PDA

View Full Version : [TLBB] 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ờ



--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
dvphong09
19-02-20, 06:07 PM
Thanks chủ top, bao năm rồi vẫn tâm huyết nhỉ