Đăng nhập

View Full Version : [TLBB] Help Script Npc đổi vàng



Superman
25-08-12, 11:42 AM
Npc đổi vàng ở đại lý đổi Vàng thành KNB

Mình muốn sửa lại thành đổi Điểm tặng thành Vàng thi fix ở đâu ,ái biết help mình với mò hoài bảo dưởng máy chủ luôn :(:(:(:(



function x002095_OnEventRequest( sceneId, selfId, targetId, eventId)
if GetNumText() == 100 then
BeginEvent( sceneId )
AddText( sceneId, "BÕn có ch¡c ch¡n mu¯n chuy¬n ð±i không?" )
AddNumText( sceneId, x400206_g_scriptId, "Ch¤p nh§n", -1, 101)
AddNumText( sceneId, x400206_g_scriptId, "Hüy", -1, 4)
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
elseif GetNumText() == 101 then
local SelfMoney = GetMoney(sceneId, selfId)
if SelfMoney<1000000 then
x002095_NotifyFailTips( sceneId, selfId, "S¯ lßþng #-02 ít h½n 100" )
x002095_NotifyFailBox( sceneId, selfId, targetId, " S¯ lßþng #-02 ít h½n 100" )
return
end
local reply = CostMoney(sceneId,selfId,1000000)
if reply == -1 then
x002095_NotifyFailTips( sceneId, selfId, "S¯ lßþng #-02 ít h½n 100" )
x002095_NotifyFailBox( sceneId, selfId, targetId, " S¯ lßþng #-02 ít h½n 100" )
return
else
local result = YuanBao(sceneId,selfId,targetId,1,10000)
local str = " #YXin chúc m×ng bÕn ðã ð±i thành công 100 #-02"
x002095_NotifyFailTips( sceneId, selfId, str )
x002095_NotifyFailBox( sceneId, selfId, targetId, str )
end
end
if GetNumText() == 200 then
BeginEvent( sceneId )
AddText( sceneId, "±¾´Î¶Ò»»Äú½«»¨·Ñ1000½ð¶Ò»»10 00Ôª±¦£¡È·¶¨¶Ò»»Âð£¿" )
AddNumText( sceneId, x400206_g_scriptId, "È·¶¨", -1, 201)
AddNumText( sceneId, x400206_g_scriptId, "È¡Ïû", -1, 4)
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
elseif GetNumText() == 201 then
local SelfMoney = GetMoney(sceneId, selfId)
if SelfMoney<1000000 then
x002095_NotifyFailTips( sceneId, selfId, "S¯ lßþng #-02 ít h½n 1000" )
x002095_NotifyFailBox( sceneId, selfId, targetId, " S¯ lßþng #-02 ít h½n 100¡£" )
return
end
local reply = CostMoney(sceneId,selfId,1000000)
if reply == -1 then
x002095_NotifyFailTips( sceneId, selfId, "S¯ lßþng #-02 ít h½n 100" )
x002095_NotifyFailBox( sceneId, selfId, targetId, " S¯ lßþng #-02 ít h½n 100¡£" )
return
else
local result = YuanBao(sceneId,selfId,targetId,1,1000)
local str = " #Yбi #-02 l¤y kim nguyên bäo thành công !"
x002095_NotifyFailTips( sceneId, selfId, str )
x002095_NotifyFailBox( sceneId, selfId, targetId, str )
end
end
if GetNumText() == 300 then
BeginEvent( sceneId )
AddText( sceneId, "BÕn có ch¡c ch¡n mu¯n chuy¬n ð±i không?" )
AddNumText( sceneId, x400206_g_scriptId, "Ch¤p nh§n", -1, 301)
AddNumText( sceneId, x400206_g_scriptId, "Hüy bö", -1, 4)
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
elseif GetNumText() == 301 then
local SelfMoney = GetMoney(sceneId, selfId)
if SelfMoney<5000000 then
x002095_NotifyFailTips( sceneId, selfId, "Không ðü 500 #-02 ð¬ ð±i" )
x002095_NotifyFailBox( sceneId, selfId, targetId, " Không ðü 500 #-02 ð¬ ð±i¡£" )
return
end
local reply = CostMoney(sceneId,selfId,5000000)
if reply == -1 then
x002095_NotifyFailTips( sceneId, selfId, "Không ðü 500 #-02 ð¬ ð±i" )
x002095_NotifyFailBox( sceneId, selfId, targetId, " Không ðü 500 #-02 ð¬ ð±i¡£" )
return
else
local result = YuanBao(sceneId,selfId,targetId,1,50000)
local str = " #Yбi #-02 l¤y kim nguyên bäo thành công !"
x002095_NotifyFailTips( sceneId, selfId, str )
x002095_NotifyFailBox( sceneId, selfId, targetId, str )
end
end
if GetNumText() == 4 then
BeginUICommand( sceneId )
UICommand_AddInt( sceneId, targetId )
EndUICommand( sceneId )
DispatchUICommand( sceneId, selfId, 1000 )
return
end
end

Superman
25-08-12, 03:01 PM
uppppppppppppppppppppppppppppppp

Superman
25-08-12, 04:56 PM
local SelfMoney = GetMoney(sceneId, selfId local reply = CostMoney(sceneId,selfId,1000000)
chố đó là kiễm tra vàng muốn kiểm tra Điểm tặng thì mình sửa sao


local result = YuanBao(sceneId,selfId,targetId,1,1000)
local str = " #Yбi #-02 l¤y kim nguyên bäo thành công !"

nhận knb còn muốn nhận vàng thì sửa sao

help mình với máy pro

ronglam
25-08-12, 09:02 PM
Bảo dưỡng máy chủ là chưa load xong server . Còn chả liên quan tới script đâu . sai script thì NPC đó k nói chuyện đc

Superman
25-08-12, 10:28 PM
upppppppppppppppppppp ko ai giải đáp thắc mắc giúp mình với

lekhanh456
28-08-12, 04:56 PM
zengdian : là điểm tặng,thay vào chỗ knb,là yuanbao gi đó,quên rồi !!

Superman
28-08-12, 05:35 PM
zengdian : là điểm tặng,thay vào chỗ knb,là yuanbao gi đó,quên rồi !!
local reply = CostMoney(sceneId,selfId,1000000) kiem tra vàng

local reply = CostZengDian(sceneId,selfId,1000000) sữa lại vầy ah