Script Tài Xỉu

[Sadlove123]

- Không biết phải nói gì hơn, có npc này cũng đỡ buồn.


x110002_g_scriptId = 110002

x110002_g_eventList={} --110004


function x110002_OnDefaultEvent( sceneId, selfId, targetId )
BeginEvent(sceneId)
--AddText(sceneId," #GNåm m¾i #Pmu¯n thØ chút v§n may không nào nªu mu¯n th́ nhanh đƠt cß₫c đi!?")
AddText(sceneId," Trông ngß½i thª kia là lƠi mu¯n đánh bƠc r°i. Ngß½i mu¯n ch½i ǵ nào?")
AddNumText( sceneId, x110002_g_ScriptId, "Ta mu¯n ch½i Tài Xïu", 6, 500)
AddNumText( sceneId, x110002_g_ScriptId, "Ta mu¯n ch½i Tôm Cua Cá", 6, 510)
for i, eventId in x110002_g_eventList do
CallScriptFunction( eventId, "OnEnumerate",sceneId, selfId, targetId )
end
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end


function x110002_OnEventRequest( sceneId, selfId, targetId, eventId )
for i, findId in x110002_g_eventList do
if eventId == findId then
CallScriptFunction( eventId, "OnDefaultEvent",sceneId, selfId, targetId )
return
end
end
local key = GetNumText()
--******************************Tài Xïu********************************
if key == 500 then
BeginEvent(sceneId)
AddText(sceneId,"Khi tham gia tṛ ch½i, ngß½i s¨ phäi đ£t cß₫c 1000 Vàng, tÖ l® th¡ng thua là 50:50 nªu th¡ng l¶i đß₫c 500 Vàng. Ngß½i mu¯n đ£t Tài hay Xïu?")
AddNumText(sceneId, x110002_g_ScriptId, "Ta mu¯n đ£t Tài.", 6, 501 )
AddNumText(sceneId, x110002_g_ScriptId, "Ta mu¯n đ£t Xïu", 6, 502 )
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end
if key == 501 then
local layvang = CostMoney(sceneId,selfId,10000000)
if layvang == -1 then
x110002_NotifyFailBox( sceneId, selfId, targetId, " Xin thÑ l²i, trong ng߶i đƠi hi®p không đü 1000 Vàng" )
return
else
local chanle = random(2)
local nam = LuaFnGetName( sceneId, selfId )
if chanle == 1 then
x110002_NotifyFailBox( sceneId, selfId, targetId, " #R Xïu#W Th§t đáng tiªc, ĐƠi hi®p đă thua và m¤t 1000 Vàng" )
else
x110002_NotifyFailBox( sceneId, selfId, targetId, " #R Tài#W Xin chúc m×ng, ĐƠi hi®p đă th¡ng và nh§n đß₫c 500 Vàng" )
BroadMsgByChatPipe( sceneId, selfId, "#BChúc m×ng #Y"..nam.." #Bch½i Tài Xïu tƠi 179,179 ĐƠi Lư th¡ng đß₫c #W500 Vàng.", 4 )
AddMoney( sceneId, selfId, 15000000 )
end
end
end
if key == 502 then
local layvang = CostMoney(sceneId,selfId,10000000)
if layvang == -1 then
x110002_NotifyFailBox( sceneId, selfId, targetId, " Xin thÑ l²i, trong ng߶i đƠi hi®p không đü 1000 Vàng" )
return
else
local chanle = random(2)
if chanle == 1 then
x110002_NotifyFailBox( sceneId, selfId, targetId, " #R Xïu#W Xin chúc m×ng, ĐƠi hi®p đă th¡ng và nh§n đß₫c 1000 Vàng" )
AddMoney( sceneId, selfId, 15000000 )
else
x110002_NotifyFailBox( sceneId, selfId, targetId, " #R Tài#W Th§t đáng tiªc, ĐƠi hi®p đă thua và m¤t 500 Vàng" )
end
end
end
--****************************Tôm Cua Cá***************************************
if key == 510 then
BeginEvent(sceneId)
AddText(sceneId,"Khi tham gia tṛ ch½i, ngß½i s¨ phäi đ£t cß₫c 500 Vàng, tÖ l® th¡ng thua là 1:6 nªu th¡ng s¨ nh§n dc 500 Vàng. Ngß½i mu¯n đ£t ǵ nào?")
--AddText(sceneId,"")
AddNumText(sceneId, x181003_g_scriptId, "Ta mu¯n đ£t Tôm.", 6, 1 )
AddNumText(sceneId, x181003_g_scriptId, "Ta mu¯n đ£t Cua.", 6, 2 )
AddNumText(sceneId, x181003_g_scriptId, "Ta mu¯n đ£t Gà.", 6, 3 )
AddNumText(sceneId, x181003_g_scriptId, "Ta mu¯n đ£t Cá.", 6, 4 )
AddNumText(sceneId, x181003_g_scriptId, "Ta mu¯n đ£t Hß½u.", 6, 5 )
AddNumText(sceneId, x181003_g_scriptId, "Ta mu¯n đ£t H° Lô.", 6, 6 )
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end
if key == 1 or key == 2 or key == 3 or key == 4 or key == 5 or key == 6 then
local layvang = CostMoney(sceneId,selfId,5000000)
if layvang == -1 then
x110002_NotifyFailBox( sceneId, selfId, targetId, " Xin thÑ l²i, trong ng߶i đƠi hi®p không đü 500 Vàng" )
return
else
local nam = LuaFnGetName( sceneId, selfId )
local tomcuaca = random(6)
if key == tomcuaca then
x110002_NotifyFailBox( sceneId, selfId, targetId, " Xin chúc m×ng, ĐƠi hi®p đă th¡ng và nh§n đß₫c 500 Vàng" )
BroadMsgByChatPipe( sceneId, selfId, "#BChúc m×ng #Y"..nam.." #Bch½i Tôm Cua Cá tƠi 179,179 ĐƠi Lư th¡ng đß₫c #W500 Vàng.", 4 )
AddMoney( sceneId, selfId, 10000000 )
else
x110002_NotifyFailBox( sceneId, selfId, targetId, " Th§t đáng tiªc, ĐƠi hi®p đă thua và m¤t 500 Vàng" )
end
end
end
end
--**********************************
function x110002_NotifyFailBox( sceneId, selfId, targetId, msg )
BeginEvent( sceneId )
AddText( sceneId, msg )
EndEvent( sceneId )
DispatchEventList( sceneId, selfId, targetId )
end

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

[dvphong09]

Thanks chủ top, thấy tâm huyết nên vào cmt ngay :D

[nhatdiad]

Thanks chủ top, thấy tâm huyết nên vào cmt ngay :D

sao minh đổi idscip giống npc mà vẫn kg dk nhỉ