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

**Sadlove123** · 13-01-20, 01:51 AM

- 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¨ din 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 ǵ 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₫ ǵ 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 ǵ")
		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 din 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 tŕ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

**dvphong09** · 19-02-20, 06:07 PM

Thanks chủ top, bao năm rồi vẫn tâm huyết nhỉ

Chủ đề: Script Quay Số May Mắn có hạn giờ

Công cụ Chủ đề

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

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

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

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

[TLBB] Script vòng quay may mắn?

[TLBB] Xin giúp đỡ về Interface Vòng Quay May Mắn

[MU] Tình trạng lag máy quay chao khi quay đồ và mất luôn

[JX] Hỏi về vấn đề add res ngựa mà đầu ngựa bi quay quay

[MU] Vấn đề items không thể để vào máy Quay Chaos để Quay

Quyền viết bài