shppero
18-08-11, 03:51 PM
Vuotai.lua
Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\global\\monter\\vuotai.lua")
function main()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
if gio == 7 or gio == 9 or gio == 11 or gio == 13 or gio == 15 or gio == 21 then
if phut >= 28 and phut < 32 then
Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",2,"Tham gia vuot ai/thamgia","Thoat/no")
else
Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",1,"Chua toi gio tham gia vuot ai/no")
end
else
Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",1,"Chua toi gio tham gia vuot ai/no")
end
end
function KiemTraTang()
if GetLevel() >=100 or IsCaptain() == 1 then
return 25
end
end
function IDLevelMaps(Idmaps)
if Idmaps == 25 then
return 1
end
end
function thamgia()
idtd = GetTeam()
lvl = GetLevel()
SubWorld = SubWorldID2Idx(25)
if (GetGlbMissionV(100) ~= 0) or (GetGlbMissionV(101) ~= 0) then
Say("<color=cyan>Vuot Ai Than Quan<color>: Hien tai dang co To Doi bao danh, vi vay ban phai doi 1 lat de Server khong LAG",1,"Thoat./Exit")
return
end
if (idtd ~= nil) then
if (GetTeamSize() >= 3) then
if (IsCaptain() == 1) then
idbt = PlayerIndex
if GetLevel() >=100 then
SetGlbMissionV(100,1)
SetGlbMissionV(101,40)
end
for i = 1,GetPlayerCount() do
PlayerIndex = i
if (GetTeam() == idtd) then
if (GetLevel() >= GetGlbMissionV(100)) and (GetLevel() <= GetGlbMissionV(101)) then
ycvp = 1
end
end
end
PlayerIndex = idbt
ycvp = 0
if (ycvp == 0) then
if GetItemCount(131) >= 1 then
DelItem(131)
ycvp = 0
idbt = PlayerIndex
for i =1,GetPlayerCount() do
PlayerIndex = i
if (GetTeam() == idtd) then
SetTask(19,0)
SetTask(20,0)
SetPunish(0)
SetFightState(1)
SetLogoutRV(1)
SetTempRevPos(25,200*8*32,200*16*32);
NewWorld(KiemTraTang(),1570, 3250)
SetGlbMissionV(88,0)
SetGlbMissionV(89,0)
Msg2Player("Dang Tien Vao Vuot Ai Tang: "..IDLevelMaps(KiemTraTang())..".")
end
end
else
SetGlbMissionV(100,0)
SetGlbMissionV(101,0)
Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi khong du 1 <color=red>Lenh Bai Vuot Ai<color>,khong the dua to doi di")
end
else
SetGlbMissionV(100,0)
SetGlbMissionV(101,0)
Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Trong to doi co thanh vien chenh lech ve cap do "..GetGlbMissionV(88).." ~ "..GetGlbMissionV(89)..", nen khong the di")
end
else
SetGlbMissionV(100,0)
SetGlbMissionV(101,0)
Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi khong phai la <color=red>Truong Nhom<color>, khong the dua to doi di")
end
else
SetGlbMissionV(100,0)
SetGlbMissionV(101,0)
Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: To doi phai co it nhat la 3 nguoi tro len thi moi co the vao duoc")
end
else
SetGlbMissionV(100,0)
SetGlbMissionV(101,0)
Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi can phai lap <color=red>To Doi<color>, va yeu cau la phai co 3 thanh vien trong nhom")
end
end
w,x,y = GetWorldPos()
if GetGlbMissionV(87) == 1 then
gio1 = gio + 1
Msg2Team(1,"","Vao luc "..gio1.." : 00 se bat dau vuot ai !")
elseif GetGlbMissionV(87) == 2 then
for i =1,GetPlayerCount() do
PlayerIndex = i
if (GetTeam() == idtd) then
if w == 25 then
if GetGlbMissionV(88) == 24 then
NewWorld(26,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 26 then
if GetGlbMissionV(88) == 48 then
NewWorld(27,1603,3207)
SetFightState(0)
else
n = 48 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 27 then
if GetGlbMissionV(88) == 72 then
NewWorld(28,1603,3207)
SetFightState(0)
else
n = 72 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 28 then
if GetGlbMissionV(88) == 96 then
NewWorld(29,1603,3207)
SetFightState(0)
else
n = 96 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 29 then
if GetGlbMissionV(88) == 24 then
NewWorld(108,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 108 then
if GetGlbMissionV(88) == 24 then
NewWorld(109,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 109 then
if GetGlbMissionV(88) == 24 then
NewWorld(110,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 110 then
if GetGlbMissionV(88) == 24 then
NewWorld(111,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 111 then
if GetGlbMissionV(88) == 24 then
NewWorld(112,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 112 then
if GetGlbMissionV(88) == 24 then
NewWorld(100,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 100 then
if GetGlbMissionV(88) == 24 then
NewWorld(101,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 101 then
if GetGlbMissionV(88) == 24 then
NewWorld(102,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 102 then
if GetGlbMissionV(88) == 24 then
NewWorld(103,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 103 then
if GetGlbMissionV(88) == 24 then
NewWorld(104,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 104 then
if GetGlbMissionV(88) == 24 then
NewWorld(105,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 105 then
if GetGlbMissionV(88) == 24 then
NewWorld(106,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 106 then
if GetGlbMissionV(88) == 24 then
NewWorld(107,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 107 then
if GetGlbMissionV(88) == 120 then
Msg2Team(1,"nhanthuong","Nguoi da hoan thanh 18 ai roi, xin hay nhan phan thuong va roi khoi day")
else
n = 120 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
else
NewWorld(53,1603,3207)
Msg2Team(1,"","Hien tai khong phai la thoi gian vuot ai")
end
end
end
end
function nhanthuong()
AddOwnExp(2000000)
Earn(500000)
AddRepute(20)
AddEventItem(133)
NewWorld(53,1603,3207)
SetFightState(0)
Msg2Player("Hoan thanh 18 ai !! Nhan duoc phan thuong : 1 Le Vat Vuot Ai")
end[/QUOTE]
monter1x.lua
[QUOTE] Include("\\script\\global\\kinhnghiem\\exp.lua")
Include("\\script\\global\\kinhnghiem\\droprate.lua")
Include("\\script\\vuotai\\vuotai.lua")
function OnDeath()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
if GetGlbMissionV(87) == 1 then
gio1 = gio + 1
Talk(1,"","Vao luc "..gio1.." : 00 se bat dau vuot ai !")
elseif GetGlbMissionV(87) == 2 then
if GetGlbMissionV(88) < 24 then
expmonter()
droprate()
SetGlbMissionV(88,GetGlbMissionV(88)+1)
n = 30 - GetGlbMissionV(88)
Msg2Team("Nguoi con phai tieu diet "..n.." con quai nua")
else
Msg2Team("Ban da tieu diet du so luong quai, hay tieu diet Boss de qua ai, Good Luck")
end
else
Msg2Player("Hoat dong vuot ai da ket thuc roi !!")
NewWorld(53,1603,3207)
SetFightState(0)
end
end
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\global\\monter\\vuotai.lua")
function main()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
if gio == 7 or gio == 9 or gio == 11 or gio == 13 or gio == 15 or gio == 21 then
if phut >= 28 and phut < 32 then
Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",2,"Tham gia vuot ai/thamgia","Thoat/no")
else
Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",1,"Chua toi gio tham gia vuot ai/no")
end
else
Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",1,"Chua toi gio tham gia vuot ai/no")
end
end
function KiemTraTang()
if GetLevel() >=100 or IsCaptain() == 1 then
return 25
end
end
function IDLevelMaps(Idmaps)
if Idmaps == 25 then
return 1
end
end
function thamgia()
idtd = GetTeam()
lvl = GetLevel()
SubWorld = SubWorldID2Idx(25)
if (GetGlbMissionV(100) ~= 0) or (GetGlbMissionV(101) ~= 0) then
Say("<color=cyan>Vuot Ai Than Quan<color>: Hien tai dang co To Doi bao danh, vi vay ban phai doi 1 lat de Server khong LAG",1,"Thoat./Exit")
return
end
if (idtd ~= nil) then
if (GetTeamSize() >= 3) then
if (IsCaptain() == 1) then
idbt = PlayerIndex
if GetLevel() >=100 then
SetGlbMissionV(100,1)
SetGlbMissionV(101,40)
end
for i = 1,GetPlayerCount() do
PlayerIndex = i
if (GetTeam() == idtd) then
if (GetLevel() >= GetGlbMissionV(100)) and (GetLevel() <= GetGlbMissionV(101)) then
ycvp = 1
end
end
end
PlayerIndex = idbt
ycvp = 0
if (ycvp == 0) then
if GetItemCount(131) >= 1 then
DelItem(131)
ycvp = 0
idbt = PlayerIndex
for i =1,GetPlayerCount() do
PlayerIndex = i
if (GetTeam() == idtd) then
SetTask(19,0)
SetTask(20,0)
SetPunish(0)
SetFightState(1)
SetLogoutRV(1)
SetTempRevPos(25,200*8*32,200*16*32);
NewWorld(KiemTraTang(),1570, 3250)
SetGlbMissionV(88,0)
SetGlbMissionV(89,0)
Msg2Player("Dang Tien Vao Vuot Ai Tang: "..IDLevelMaps(KiemTraTang())..".")
end
end
else
SetGlbMissionV(100,0)
SetGlbMissionV(101,0)
Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi khong du 1 <color=red>Lenh Bai Vuot Ai<color>,khong the dua to doi di")
end
else
SetGlbMissionV(100,0)
SetGlbMissionV(101,0)
Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Trong to doi co thanh vien chenh lech ve cap do "..GetGlbMissionV(88).." ~ "..GetGlbMissionV(89)..", nen khong the di")
end
else
SetGlbMissionV(100,0)
SetGlbMissionV(101,0)
Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi khong phai la <color=red>Truong Nhom<color>, khong the dua to doi di")
end
else
SetGlbMissionV(100,0)
SetGlbMissionV(101,0)
Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: To doi phai co it nhat la 3 nguoi tro len thi moi co the vao duoc")
end
else
SetGlbMissionV(100,0)
SetGlbMissionV(101,0)
Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi can phai lap <color=red>To Doi<color>, va yeu cau la phai co 3 thanh vien trong nhom")
end
end
w,x,y = GetWorldPos()
if GetGlbMissionV(87) == 1 then
gio1 = gio + 1
Msg2Team(1,"","Vao luc "..gio1.." : 00 se bat dau vuot ai !")
elseif GetGlbMissionV(87) == 2 then
for i =1,GetPlayerCount() do
PlayerIndex = i
if (GetTeam() == idtd) then
if w == 25 then
if GetGlbMissionV(88) == 24 then
NewWorld(26,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 26 then
if GetGlbMissionV(88) == 48 then
NewWorld(27,1603,3207)
SetFightState(0)
else
n = 48 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 27 then
if GetGlbMissionV(88) == 72 then
NewWorld(28,1603,3207)
SetFightState(0)
else
n = 72 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 28 then
if GetGlbMissionV(88) == 96 then
NewWorld(29,1603,3207)
SetFightState(0)
else
n = 96 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 29 then
if GetGlbMissionV(88) == 24 then
NewWorld(108,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 108 then
if GetGlbMissionV(88) == 24 then
NewWorld(109,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 109 then
if GetGlbMissionV(88) == 24 then
NewWorld(110,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 110 then
if GetGlbMissionV(88) == 24 then
NewWorld(111,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 111 then
if GetGlbMissionV(88) == 24 then
NewWorld(112,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 112 then
if GetGlbMissionV(88) == 24 then
NewWorld(100,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 100 then
if GetGlbMissionV(88) == 24 then
NewWorld(101,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 101 then
if GetGlbMissionV(88) == 24 then
NewWorld(102,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 102 then
if GetGlbMissionV(88) == 24 then
NewWorld(103,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 103 then
if GetGlbMissionV(88) == 24 then
NewWorld(104,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 104 then
if GetGlbMissionV(88) == 24 then
NewWorld(105,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 105 then
if GetGlbMissionV(88) == 24 then
NewWorld(106,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 106 then
if GetGlbMissionV(88) == 24 then
NewWorld(107,1603,3207)
SetFightState(0)
else
n = 24 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
elseif w == 107 then
if GetGlbMissionV(88) == 120 then
Msg2Team(1,"nhanthuong","Nguoi da hoan thanh 18 ai roi, xin hay nhan phan thuong va roi khoi day")
else
n = 120 - GetGlbMissionV(88)
Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
end
else
NewWorld(53,1603,3207)
Msg2Team(1,"","Hien tai khong phai la thoi gian vuot ai")
end
end
end
end
function nhanthuong()
AddOwnExp(2000000)
Earn(500000)
AddRepute(20)
AddEventItem(133)
NewWorld(53,1603,3207)
SetFightState(0)
Msg2Player("Hoan thanh 18 ai !! Nhan duoc phan thuong : 1 Le Vat Vuot Ai")
end[/QUOTE]
monter1x.lua
[QUOTE] Include("\\script\\global\\kinhnghiem\\exp.lua")
Include("\\script\\global\\kinhnghiem\\droprate.lua")
Include("\\script\\vuotai\\vuotai.lua")
function OnDeath()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
if GetGlbMissionV(87) == 1 then
gio1 = gio + 1
Talk(1,"","Vao luc "..gio1.." : 00 se bat dau vuot ai !")
elseif GetGlbMissionV(87) == 2 then
if GetGlbMissionV(88) < 24 then
expmonter()
droprate()
SetGlbMissionV(88,GetGlbMissionV(88)+1)
n = 30 - GetGlbMissionV(88)
Msg2Team("Nguoi con phai tieu diet "..n.." con quai nua")
else
Msg2Team("Ban da tieu diet du so luong quai, hay tieu diet Boss de qua ai, Good Luck")
end
else
Msg2Player("Hoat dong vuot ai da ket thuc roi !!")
NewWorld(53,1603,3207)
SetFightState(0)
end
end
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>