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

[nhatdiad]

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

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