PDA

View Full Version : Xin hướng dẫn code nhận điểm môn phái



tomtomtom
16-08-11, 09:22 PM
Mình thấy NPC tổng hợp có nhận vàng, KNB,điẻm tặng mỗi ngày, vậy mình muốn nhận thêm điểm môn phái thì code thế nào. Xin các bạn giúp mình. Cám ơn các bạn nhiều.

dauchanhp306
17-08-11, 12:44 AM
ai biết trả lời dùm em cái, em cũng đang cần cái này gấp à :(

minhtien_2010
17-08-11, 08:24 AM
function x000163_OnDefaultEvent( sceneId, selfId,targetId )
local temp = random(10)
local msgStr = format( "#GMu¯n nh§n Kim nguyên bäo hãy t¾i g£p ta.")
BeginEvent(sceneId)
AddText(sceneId,msgStr)
AddNumText( sceneId, x000160_g_ScriptId, "Nh§n KNB", 10, 100 )
AddNumText( sceneId, x000160_g_ScriptId, "Ta không c¥n...", 10, 4 )
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end

function x000163_OnEventRequest( sceneId, selfId, targetId, eventId)
if GetNumText() == 100 then
BeginEvent( sceneId )
AddText( sceneId, "Ь nh§n KNB c¥n phäi t¯n 1 #-04 ti«n thuª. Ngß½i xác nh§n chuy¬n d±i chång?" )
AddNumText( sceneId, x400206_g_scriptId, "OK", -1, 101)
AddNumText( sceneId, x400206_g_scriptId, "Ta hi®n gi¶ chßa c¥n KNB", -1, 4)
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
elseif GetNumText() == 101 then
local SelfMoney = GetMoney(sceneId, selfId)
if SelfMoney<1 then
x000163_NotifyFailTips( sceneId, selfId, "1 #-04 mà cûng ko có sao?" )
x000163_NotifyFailBox( sceneId, selfId, targetId, "Không có xu nào mà ðòi KNB à?" )
return
end
local reply = CostMoney(sceneId,selfId,1)
if reply == -1 then
x000163_NotifyFailTips( sceneId, selfId, "1 #-04 mà cûng ko có sao?" )
x000163_NotifyFailBox( sceneId, selfId, targetId, "Không có xu nào mà ðòi KNB à?" )
return
else
local result = YuanBao(sceneId,selfId,targetId,1,200000)
local str = "#YXin chúc m×ng, các hÕ ðã nh§n ðßþc KNB."
x000163_NotifyFailTips( sceneId, selfId, str )
x000163_NotifyFailBox( sceneId, selfId, targetId, str )
end
end
end

function x000163_NotifyFailBox( sceneId, selfId, targetId, msg )
BeginEvent( sceneId )
AddText( sceneId, msg )
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
end

--**********************************

--**********************************
function x000163_NotifyFailTips( sceneId, selfId, Tip )
BeginEvent( sceneId )
AddText( sceneId, Tip )
EndEvent( sceneId )
DispatchMissionTips( sceneId, selfId )
end

Thay cái YuanBao thành điểm môn phái.
Không biết có đúng không nữa. cái này chỉ dựa trên script nhận KNB free , bạn đem về chỉnh sửa test thử xem

dauchanhp306
17-08-11, 09:22 AM
thank anh, em làm đc có dòng nhận điểm môn phái rồi, thế nhưng lại k nhận được :(. Hình như phải cần cái code. Ai có giúp em với

tomtomtom
17-08-11, 11:17 AM
Cám ơn bạn minhtien_2010 nhưng mình làm chưa được. Không biết còn thêm gì nữa không.

sunday2288
17-08-11, 11:17 AM
Thay chữ YuanBao = MenpaiPoint

dauchanhp306
17-08-11, 05:13 PM
Thay chữ YuanBao = MenpaiPoint
em thay như thế rồi, có dòng nhận điểm môn phái rồi. Nhưng ấn vào đó, nhận không được ạ