[TLBB] Script Tài Xỉu
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 2 của 2

Chủ đề: Script Tài Xỉu

  1. #1
    Moderator
    Ngày tham gia
    Jun 2015
    Đang ở
    Cung cấp soucre TLBB chuẩn
    Bài viết
    532
    Thanks
    73
    Thanked 306 Times in 153 Posts

    Script Tài Xỉu

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

    Code:
    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
    Khách viếng thăm hãy cùng Sadlove123 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. The Following 2 Users Say Thank You to Sadlove123 For This Useful Post:

    0241618026 (24-02-20), dvphong09 (19-02-20)

  3. #2
    Thành Viên
    Ngày tham gia
    Sep 2011
    Bài viết
    67
    Thanks
    34
    Thanked 20 Times in 13 Posts

    Icon7 Ðề: Script Tài Xỉu

    Thanks chủ top, thấy tâm huyết nên vào cmt ngay
    Khách viếng thăm hãy cùng dvphong09 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

Các Chủ đề tương tự

  1. Một số script trong thư mục script Vina (unpack)
    Bởi sangpronhat trong diễn đàn Scripts
    Trả lời: 19
    Bài viết cuối: 26-11-11, 08:12 AM
  2. cần pro script vào xem cái script
    Bởi thuanthienkiem trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 29-04-11, 08:41 PM
  3. Hổ trợ script khi các bạn bị lỗi script của mình(v1)
    Bởi banynavy trong diễn đàn Scripts
    Trả lời: 6
    Bài viết cuối: 30-08-10, 01:51 PM
  4. Ai pro script hướng dẫn cái script chỉ dùm cái này !!!
    Bởi anthonyluu trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 30-07-10, 08:11 AM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 01:22 PM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.