[TLBB] Script Quay Số May Mắn có hạn giờ
Hello & Welcome to our community. Is this your first visit? Đăng Ký
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
  1. #1
    Moderator Sadlove123's Avatar
    Ngày tham gia
    Jun 2015
    Đang ở
    Cung cấp soucre TLBB chuẩn
    Bài viết
    563
    Thanks
    76
    Thanked 380 Times in 174 Posts

    Script Quay Số May Mắn có hạn giờ

    - Script này có nhiều điều bất ngờ


    Code:
    --SÑ giä may m¡n
    
    --date:13/01/2020
    
    
    	local ngay = GetDayTime();
    	local gio = GetHour();
    	local phut = GetMinute();
    	local	quayso1	= GetMissionData(sceneId, selfId, quayso)
    	local	hanhtau1	= GetMissionData(sceneId, selfId, hanhtau)
    function x002005_OnDefaultEvent( sceneId, selfId,targetId )
    
    	local 	nam	= LuaFnGetName( sceneId, selfId )
    	local	ktvang	= GetMoney(sceneId, selfId)
    	local	hanhtau1	= GetMissionData(sceneId, selfId, hanhtau)
    	local ngay = GetDayTime();
    	local gio = GetHour();
    	local phut = GetMinute();
    --*****************************************************************
    	BeginEvent(sceneId)
    	if gio == 18 and (phut == 50 or phut == 55) then
    		BroadMsgByChatPipe( sceneId, selfId, "#48#gFFFF00Vào 19h00 s¨ di­n ra sñ ki®n #YQuay s¯ trúng thß·ng#gFFFF00 tƠi SÑ giä may m¡n Hiên Viên Kiªm#48", 4 )
    	end	
    	AddText(sceneId,"  #GChào m×ng ĐƠi hi®p đă đªn v¾i #YHiên Viên Kiªm#W#G. Ta s¨ là ng߶i mang nhi«u may m¡n đªn cho đƠi hi®p trong Nåm m¾i. ĐƠi hi®p mu¯n ǵ nào?#W#rTh¶i gian hi®n tƠi: "..gio.." gi¶ "..phut.." phút ")
    	--AddNumText( sceneId, x002017_g_ScriptId, "Ta mu¯n nh§n Buff",10,100 )
    	--AddNumText( sceneId, x002017_g_ScriptId, "Ta mu¯n nh§n Ngân lß₫ng",10,110 )
    	AddNumText( sceneId, x002017_g_ScriptId, "Quay s¯ trúng thß·ng",6,140 )
    	--AddNumText( sceneId, x002017_g_ScriptId, "Đi¬m Hành T¦u Giang H°",10,120 )
    	--AddNumText( sceneId, x002017_g_ScriptId, "Ta mu¯n đ±i EXP l¤y Ngân lß₫ng",10,130 )
    	EndEvent(sceneId)
    	DispatchEventList(sceneId,selfId,targetId)
    end
    
    
    function x002005_OnEventRequest( sceneId, selfId, targetId, eventId )
    	local	ngay 	= GetDayTime();
    	local	gio 	= GetHour();
    	local 	phut 	= GetMinute();
    	local	quayso1	= GetMissionData(sceneId, selfId, quayso)
    	local	key	= GetNumText()
    	local 	chsi 	= GetMissionData(sceneId, selfId, MD_ZHUANSHENG)
    	local	lev	= GetLevel( sceneId, selfId )
    	local	hanhtau1	= GetMissionData(sceneId, selfId, hanhtau)
    --***********************Nh§n Buff***********************************
             if key  == 100 then
                   	LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 30160, 0)
                    	LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 30150, 0)
                    	LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 30119, 0) 
                   	LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 30134, 0)
                    	LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 30170, 0) 
                    	LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 30180, 0) 
                    	LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 30186, 0) 
                    	LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 30005, 0)
    		LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId,  8051, 0)
    		LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId,  8052, 0)
                    	BeginEvent(sceneId)
    	        	AddText(sceneId,"Nh§n BUFF thành công !")
    		EndEvent(sceneId)
    		DispatchEventList(sceneId,selfId,targetId)
    	end
    --******************************Nh§n Vàng**********************************
    	 if key  == 110 then
    		BeginEvent( sceneId )
    			AddText( sceneId, "#GTân thü đß₫c phát thß·ng Ngân lß₫ng nhß sau:#W#r#RĐÆng c¤p >= 30 đß₫c 30 Vàng.#rĐÆng c¤p >= 50 đß₫c 50 Vàng.#rĐÆng c¤p >= 80 đß₫c 80 Vàng.#rĐÆng c¤p >= 100 đß₫c 100 Vàng.#W" )
    			AddNumText(sceneId, x002017_g_ScriptId, "Ta mu¯n nh§n Ngân lß₫ng", 10, 111 )
    		EndEvent( sceneId )
    		DispatchEventList( sceneId, selfId, targetId )
    	end
    	if key == 111 then
    		if chsi  >= 1 then
    			x002005_TalkMsg( sceneId, selfId, targetId, "#GĐƠi hi®p không c̣n là tân thü næa, ta không h² tr₫ ǵ thêm!#W" )
    			return
    		else
    			if lev < 30 then
    				x002005_TalkMsg( sceneId, selfId, targetId, "ĐÆng c¤p nhö h½n #R30#W. Hăy quay lƠi khi đƠt c¤p đµ #G30.#W " )
    				return
    			elseif lev >= 100 then
    			local vang10x =  GetMissionData(sceneId, selfId, vang100)
    			if vang10x == 0 then
       				AddMoney( sceneId, selfId, 1000000 )
    				SetMissionData(sceneId, selfId, vang100,1)
    				x002005_TalkMsg( sceneId, selfId, targetId,"#GChúc m×ng, nh§n thành công 100 Vàng.#W")
    				return
    			else
    				x002005_TalkMsg( sceneId, selfId, targetId,"#GĐƠi hi®p đă nh§n Ngân lß₫ng rùi c̣n mu¯n næa sao !.#W")
    				return
    			end
    			elseif lev >=80 then
    			local vang8x = GetMissionData(sceneId, selfId, vang80)
    			if vang == 0 then
    				 AddMoney( sceneId, selfId, 800000 )
    				SetMissionData(sceneId, selfId, vang80,1)
    				x002005_TalkMsg( sceneId, selfId, targetId,"#GChúc m×ng, nh§n thành công 80 Vàng.#W")
    			else
    				x002005_TalkMsg( sceneId, selfId, targetId,"#GĐƠi hi®p đă nh§n Ngân lß₫ng rùi c̣n mu¯n næa sao !.#W")
    			end
    			elseif lev >=50 then
    			local vang5x = GetMissionData(sceneId, selfId, vang50)
    			if  vang5x == 0 then
    	   			AddMoney( sceneId, selfId, 500000 )
    				SetMissionData(sceneId, selfId, vang50,1)
    				x002005_TalkMsg( sceneId, selfId, targetId,"#GChúc m×ng, nh§n thành công 50 Vàng.#W")
    			else
    				x002005_TalkMsg( sceneId, selfId, targetId,"#GĐƠi hi®p đă nh§n Ngân lß₫ng rùi c̣n mu¯n næa sao !.#W")
    			end
    			elseif lev >=30 then
    			local vang3x = GetMissionData(sceneId, selfId, vang30)
    			if vang3x == 0 then
    			   	AddMoney( sceneId, selfId, 300000 )
    				SetMissionData(sceneId, selfId, vang30,1)
    				x002005_TalkMsg( sceneId, selfId, targetId,"#GChúc m×ng, nh§n thành công 30 Vàng.#W")
    			else
    				x002005_TalkMsg( sceneId, selfId, targetId,"#GĐƠi hi®p đă nh§n Ngân lß₫ng rùi c̣n mu¯n næa sao !.#W")
    			end
    			end
    		end
    	end
    --******************************Hành T¦u Giang H°*******************************
    	if key == 120 then
    		BeginEvent(sceneId)
    		AddText(sceneId,"#YHành T¦u Giang H°#W#G là 1 loƠi đi¬m mà các hƠ có đß₫c nh¶ vào Chuy¬n sinh ho£c tham gia các sñ ki®n trong game. Hi®n tƠi các hƠ có "..hanhtau1.." đi¬m Hành T¦u Giang H°. Ngß½i mu¯n sØ døng làm ǵ")
    		AddNumText(sceneId, x000166_g_ScriptId, "Ta mu¯n đ±i Ngân lß₫ng.", 10, 121 )
    		AddNumText(sceneId, x000166_g_ScriptId, "Ta mu¯n đ±i Trang b¸.", 10, 122 )
    		EndEvent(sceneId)
    		DispatchEventList(sceneId,selfId,targetId)
    	end
    	if key == 121 then
    		BeginEvent(sceneId)
    		AddText(sceneId,"TÖ l® đ±i đi¬m Hành T¦u Giang H° l¤y Ngân lß₫ng là 1:100. Các hƠ mu¯n đ±i bao nhiêu?")
    		AddNumText(sceneId, x000166_g_ScriptId, "бi 5 đi¬m l¤y 500 Vàng.", 10, 123 )
    		AddNumText(sceneId, x000166_g_ScriptId, "бi 10 đi¬m l¤y 1000 Vàng.", 10, 124 )
    		EndEvent(sceneId)
    		DispatchEventList(sceneId,selfId,targetId)
    	end
    	if key == 123 then
    		if hanhtau1 <5 then
    			x002005_TalkMsg( sceneId, selfId, targetId, "  Các hƠ không đü 5 đi¬m#Y Hành T¦u Giang H°" )
    			return
    		else
    			AddMoney( sceneId, selfId, 5000000 )
    			SetMissionData(sceneId, selfId, hanhtau, hanhtau1-5)
    			x002005_TalkMsg( sceneId, selfId, targetId, "  Giao d¸ch thành công, Chúc m×ng các hƠ đă nh§n đß₫c 500 Vàng!" )
    		end
    	end
    	if key == 124 then 
    		if hanhtau1 <10 then
    			x002005_TalkMsg( sceneId, selfId, targetId, "  Các hƠ không đü 10 đi¬m#Y Hành T¦u Giang H°" )
    			return
    		else
    			AddMoney( sceneId, selfId, 10000000 )
    			SetMissionData(sceneId, selfId, hanhtau, hanhtau1-5)
    			x002005_TalkMsg( sceneId, selfId, targetId, "  Giao d¸ch thành công, Chúc m×ng các hƠ đă nh§n đß₫c 1000 Vàng!" )
    		end
    	end
    	if key == 122 then
    		x002005_TalkMsg( sceneId, selfId, targetId, "  #GChÑc nång đang đß₫c hoàn thi®n, các hƠ hăy quay lƠi sau!" )
    	end
    --*******************************EXP=>Vàng**************************************
    	if key == 130 then
    		local exp = GetExp( sceneId, selfId )
    		BeginEvent(sceneId)
    		AddText(sceneId, "#G Ngß½i mu¯n đ±i đi¬m EXP l¤y Ngân lß₫ng àh? S¯ đi¬m EXP hi®n tƠi cüa ngß½i là #Y"..exp.." #G.Ngß½i mu¯n đ±i bao nhiêuEXP?#r#RĐÆng c¤p yêu c¥u: 130.#rTÖ l® đ±i: 1 Tri®u EXP = 1 Vàng.")
    		AddNumText(sceneId, x000166_g_ScriptId, "Ta mu¯n đ±i 100Tri®u EXP.", 5, 131)
    		AddNumText(sceneId, x000166_g_ScriptId, "Ta mu¯n đ±i 500Tri®u EXP.", 5, 132)
    		EndEvent(sceneId)
    		DispatchEventList(sceneId,selfId,targetId)
    	end
    	if key == 131 then
    		if lev < 130 then
    			x002005_TalkMsg( sceneId, selfId, targetId, "#RNgß½i không đü c¤p đµ 130")
    			return
    		else
    			if GetExp( sceneId, selfId ) < 100000000 then
    				x002005_TalkMsg( sceneId, selfId, targetId, "#GNgß½i không đü 100 Tri®u EXP")
    				return
    			else
    				AddExp(sceneId,selfId,-100000000)
    				AddMoney( sceneId, selfId, 1000000 )
    				x002005_TalkMsg( sceneId, selfId, targetId, "Giao d¸ch thành công, nh§n đß₫c 100 vàng")
    			end
    		end
    	end
    	if key == 132 then
    		if lev < 130 then
    			x002005_TalkMsg( sceneId, selfId, targetId, "#RNgß½i không đü c¤p đµ 130")
    			return
    		else
    			if GetExp( sceneId, selfId ) < 500000000 then
    				x002005_TalkMsg( sceneId, selfId, targetId, "#GNgß½i không đü 500 Tri®u EXP")
    				return
    			else
    				AddExp(sceneId,selfId,-500000000)
    				AddMoney( sceneId, selfId, 5000000 )
    				x002005_TalkMsg( sceneId, selfId, targetId, "Giao d¸ch thành công, nh§n đß₫c 500 vàng")
    			end
    		end
    	end
    --*****************************Quay s¯************************************
    	if key == 140 then
    		if gio == 23 and phut == 55 then
    				BeginEvent(sceneId)
    				AddText(sceneId, "#G Sñ ki®n#Y Quay s¯ trúng thß·ng #Gđang di­n ra, Các hƠ có mu¯n thØ v§n may không?")
    				AddNumText(sceneId, x000166_g_ScriptId, "T¤t nhiên là ta mu¯n rùi.", 5, 141)
    				EndEvent(sceneId)
    				DispatchEventList(sceneId,selfId,targetId)
    		else 
    				BeginEvent(sceneId)
    				AddText(sceneId, "#GVào 19h00 đªn 19h01 hàng ngày, Các hƠ s¨ đß₫c quay s¯ trúng thß·ng. Th¶i gian chï có 1 phút, Các hƠ hăy t§n døng c½ hµi!")
    				AddNumText(sceneId, x000166_g_ScriptId, "H́nh thÑc và c½ c¤u giäi thß·ng?", 5, 142)
    				EndEvent(sceneId)
    				DispatchEventList(sceneId,selfId,targetId)			
    		end
    	end
    	if key == 141 then
    		if quayso1 == ngay then
    			x002005_TalkMsg( sceneId, selfId, targetId, "#G Hôm nay các hƠ đă quay s¯ rùi, h©n g£p lƠi vào ngày mai!")
    		else
    			local ran = random(100)
    			SetMissionData(sceneId, selfId, quayso, ngay)
    			if ran >=1 and ran <=5 then 
    				BeginEvent(sceneId)
    				AddText(sceneId, "#Y Xin chúc m×ng, ĐƠi hi®p là ng߶i s· hæu s¯ "..ran.."may m¡n cüa ngày hôm nay. Nh§n đß₫c 1000 WON!!")
    				BroadMsgByChatPipe( sceneId, selfId, "#56#gFFFF00Xin chúc m×ng, "..nam.." là ng߶i s· hæu s¯ "..ran.."may m¡n cüa ngày hôm nay. Nh§n đß₫c 2000 WON!!", 4 )
    				ZengDian(sceneId,selfId,targetId,1,2000)
    				EndEvent(sceneId)
    				DispatchEventList(sceneId,selfId,targetId)
    			elseif ran >= 11 and ran <= 30 then
    				BeginEvent(sceneId)
    				AddText(sceneId, "#Y Xin chúc m×ng, ĐƠi hi®p là ng߶i s· hæu s¯ "..ran.."may m¡n cüa ngày hôm nay. Nh§n đß₫c 500 WON!!")
    				BroadMsgByChatPipe( sceneId, selfId, "#56#gFFFF00Xin chúc m×ng, "..nam.." là ng߶i s· hæu s¯ "..ran.."may m¡n cüa ngày hôm nay. Nh§n đß₫c 100 WON!!", 4 )
    				ZengDian(sceneId,selfId,targetId,1,1000)
    				EndEvent(sceneId)
    				DispatchEventList(sceneId,selfId,targetId)
    			elseif ran >= 51 and ran <= 80 then
    				BeginEvent(sceneId)
    				AddText(sceneId, "#Y Xin chúc m×ng, ĐƠi hi®p là ng߶i s· hæu s¯ "..ran.."may m¡n cüa ngày hôm nay. Nh§n đß₫c 200 WON!")
    				BroadMsgByChatPipe( sceneId, selfId, "#56#gFFFF00Xin chúc m×ng, "..nam.." là ng߶i s· hæu s¯ "..ran.."may m¡n cüa ngày hôm nay. Nh§n đß₫c 500 WON!", 4 )
    				ZengDian(sceneId,selfId,targetId,1,500)
    				EndEvent(sceneId)
    				DispatchEventList(sceneId,selfId,targetId)
    			else
    				BeginEvent(sceneId)
    				AddText(sceneId, "#G Th§t đáng tiªc, Con s¯ "..ran.." đă không đem lƠi may m¡n cho đƠi hi®p ngày hôm nay. H©n g£p lƠi vào ngày mai!")
    				EndEvent(sceneId)
    				DispatchEventList(sceneId,selfId,targetId)
    			end
    		end
    	end
    	if key == 142 then
    		BeginEvent(sceneId)
    		AddText(sceneId,"#GKhi tham chß½ng tŕnh, h® th¯ng s¨ ngçu nhiên gØi v« cho bƠn mµt con s¯ dñ thß·ng trong khoäng t× (1-100). V¾i c½ c¤u giäi thß·ng nhß sau:#r#YS¯ t× (1 - 5), nh§n đß₫c 2000 WON.#rS¯ t× (11-20), nh§n đß₫c 1000 WON.#rS¯ t× (51-80), nh§n đß₫c 500 WON.")
    		AddNumText(sceneId, x000166_g_ScriptId, "Cäm ½n! Ta đă hi¬u.", 2, 99 )
    		EndEvent(sceneId)
    		DispatchEventList(sceneId,selfId,targetId)
    	end
    	if GetNumText() == 99 then
    		BeginUICommand( sceneId )
    			UICommand_AddInt( sceneId, targetId )
    			EndUICommand( sceneId )
    		DispatchUICommand( sceneId, selfId, 1000 )
    		return
    	end
    end
    --**********************************
    --**********************************
    function x002005_NotifyFailBox( sceneId, selfId, targetId, msg )
    	BeginEvent( sceneId )
    		AddText( sceneId, msg )
    	EndEvent( sceneId )
    	DispatchEventList( sceneId, selfId, targetId )
    end
    --**********************************
    --**********************************
    function x002005_MsgBox( sceneId, selfId, str )	
    	BeginEvent( sceneId )
    		AddText( sceneId, str )
    	EndEvent( sceneId )
    	DispatchMissionTips( sceneId, selfId )
    end
    
    --**********************************
    --**********************************
    function x002005_TalkMsg( sceneId, selfId, targetId, str )	
    	BeginEvent(sceneId)
          AddText(sceneId, str)      
      EndEvent(sceneId)
      DispatchEventList(sceneId,selfId,targetId)    
    end
    --**********************************
    
    function x002005_NotifyTip( sceneId, selfId, msg )
    
    	BeginEvent( sceneId )
    		AddText( sceneId, msg )
    	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 3 Users Say Thank You to Sadlove123 For This Useful Post:

    0241618026 (24-02-20), dvphong09 (19-02-20), hanny (31-10-22)

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

    Icon14 Ðề: Script Quay Số May Mắn có hạn giờ

    Thanks chủ top, bao năm rồi vẫn tâm huyết nhỉ
    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. [TLBB] Script vòng quay may mắn?
    Bởi dvphong09 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 2
    Bài viết cuối: 24-07-15, 12:02 PM
  2. [TLBB] Xin giúp đỡ về Interface Vòng Quay May Mắn
    Bởi Ftiuhoang trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 25
    Bài viết cuối: 01-05-15, 02:49 PM
  3. [MU] Tình trạng lag máy quay chao khi quay đồ và mất luôn
    Bởi bkromeo trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 9
    Bài viết cuối: 11-04-14, 05:06 PM
  4. [JX] Hỏi về vấn đề add res ngựa mà đầu ngựa bi quay quay
    Bởi tieudieuphong trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 27-05-13, 01:53 AM
  5. [MU] Vấn đề items không thể để vào máy Quay Chaos để Quay
    Bởi Jackieldm trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 13-05-13, 01:37 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à 03:01 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ệ.