boykho
19-09-11, 09:46 PM
Liên Đấu Vào 2 người Chưa Kiệp Đánh Thì Bi Văng Ra Ngoài.Thua Hoặc Thắng
Include("\\script\\lien_dau\\liendau_head.lua")
Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\GetFaction.lua")
-------Author: Manh Tuyen Kute ------
-----Edit Online By Ohishu Kuto------
-------Task 53 So Tran Thang---------
-------Task 54 So Tran Thua----------
-------Task 57 Diem Vinh Du----------
danhsach_account = {}
DS_THAMGIA_LD = {}
function main(sel)
W,X,Y = GetWorldPos()
if W == 42 then
quanvienliendau()
else
sugiadangkyliendau()
end
end
function sugiadangkyliendau()
Say("<bclr=red><color=yellow>Ta la su gia lien dau,nguoi co muon tham gia hoat dong nay khong<color><bclr>",4,"Dang ky chien doi/DangKyChienDoi","Den hoi truong lien dau/VaoHoiTruongLienDau","Phan thuong lien dau/phanthuong","Thoat/out")
end
function VaoHoiTruongLienDau()
if TimKiem(danhsach_account,GetName()) == nil then
Talk(1,"","<bclr=red><color=yellow>Ban phai dang ky chien doi truoc khi vao dau truong<color><bclr>")
return
end
NewWorld(42,47744/32,97440/32)
SetFightState(0)
SetLogoutRV(1)
SetDeathScript("")
SetTask(59,0)
Msg2Player("Ban da den hoi truong lien dau!")
if TimKiem(DS_THAMGIA_LD,GetName()) == 1 and GioLienDau() == "bao danh" then
LeaveTeam()
SetFightState(0)
SetCreateTeam(0);
SetPunish(0)
SetTask(59,0)
SetTask(55,GetPK())
SetTask(56,GetExp())
SetPK(0)
SetLogoutRV(1)
SetTempRevPos(42,47744/32,97440/32)
SetDeathScript("\\script\\lien_dau\\su_gia_lien_dau.lua")
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
for i = 1,getn(gio_liendau) do
if phut <= gio_liendau[i][2]+thoigianbaodanh then
thoigiancho = (gio_liendau[i][2]+thoigianbaodanh-phut)*60-giay
break
end
end
Msg2Player("Thoi gian cho doi: "..thoigiancho.." giay")
StopTimer()
SetTimer(thoigiancho*18,16)
end
end
function DangKyChienDoi()
if TimKiem(danhsach_account,GetName()) == nil then
danhsach_account[getn(danhsach_account)+1] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
Msg2Player("Ban da lap thanh cong chien doi ["..GetName().."]")
else
Msg2Player("Ban da lap chien doi,khong can lap lai nua")
end
end
function quanvienliendau()
SetFightState(0)
if GioLienDau() == "bao danh" then
Say("<color=yellow>Ban dang tham gia hoat dong lien dau do TSBD phat trien<color>",4,"Ta muon tham gia/DangKy","Thong tin ca nhan/thongtincanhan","Bang xep hang/Xem_BangXepHang","Roi khoi/out")
elseif GioLienDau() == "thi dau" then
Say("<color=yellow>Ban dang tham gia hoat dong lien dau do TSBD phat trien\nThoi gian thi dau con lai la: "..ThoiGianConLai().."<color> phut",3,"Thong tin ca nhan/thongtincanhan","Bang xep hang/Xem_BangXepHang","Roi khoi/out")
elseif GioLienDau() == "chua den gio" then
Talk(1,"","<color=yellow>hien tai chua den gio tham gia Lien Dau<color>")
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function Xem_BangXepHang()
Say("<color=yellow>Nguoi muon biet thong tin ve bang xep hang lien dau phai ko?<color>",3,"10 hang dau/xephang","20 hang dau/xephang","Roi khoi/out")
end
function xephang(nsel)
BangXepHang((nsel+1)*10)
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function DangKy()--Dang ky tham gia
if STT_LD() ~= luotliendau then
luotliendau = STT_LD()
DS_THAMGIA_LD = {}
end
if GioLienDau() ~= "bao danh" then
return
end
if TimKiem(DS_THAMGIA_LD,GetName()) == nil then
if getn(DS_THAMGIA_LD) < 2 then
DS_THAMGIA_LD[getn(DS_THAMGIA_LD)+1] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
else
i = random(1,getn(DS_THAMGIA_LD))
DS_THAMGIA_LD[getn(DS_THAMGIA_LD)+1] = DS_THAMGIA_LD[i]
DS_THAMGIA_LD[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
i = nil
end
LeaveTeam()
SetFightState(0)
SetCreateTeam(0);
SetPunish(0)
SetTask(59,0)
SetTask(55,GetPK())
SetTask(56,GetExp())
SetPK(0)
SetLogoutRV(1)
SetTempRevPos(42,47744/32,97440/32)
SetDeathScript("\\script\\lien_dau\\su_gia_lien_dau.lua")
Msg2Player("Ban da dang ky tham gia thi dau Lien Dau dot "..luotliendau)
print("<<"..GetName()..">> dang ki tham gia Lien Dau luot thu "..luotliendau.."\nhien co "..getn(DS_THAMGIA_LD).." nguoi dang ky tham gia lien dau")
Msg2SubWorld("Chien doi ["..GetName().."] dang ki tham gia Lien Dau luot thu "..luotliendau)
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
for i = 1,getn(gio_liendau) do
if phut <= gio_liendau[i][2]+thoigianbaodanh then
thoigiancho = (gio_liendau[i][2]+thoigianbaodanh-phut)*60-giay
break
end
end
Msg2Player("Thoi gian cho doi: "..thoigiancho.." giay")
StopTimer()
SetTimer(thoigiancho*18,16)
else
Msg2Player("Ban da dang ky tham gia thi dau dot "..luotliendau..", xin doi it phut")
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function TenDoiThu(tennhanvat)--tim ten doi thu cua tennhanvat
for i = 1,getn(DS_THAMGIA_LD) do
if GetName() == DS_THAMGIA_LD[i][1] then
if i == getn(DS_THAMGIA_LD) and mod(getn(DS_THAMGIA_LD),2) ~= 0 then
return ""
end
if mod(i,2) ~= 0 then --so le
return DS_THAMGIA_LD[i+1][1]
else --so chan
return DS_THAMGIA_LD[i-1][1]
end
end
end
return ""
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function STT_LD()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
for i = 1,getn(gio_liendau) do
if gio == gio_liendau[i][1] and phut <= gio_liendau[i][2]+thoigianthidau+thoigianbaodanh-1 then
return i
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function BangXepHang(hang)
--if GetName() ~= "admin_manhtuyen" then
-- Talk(1,"","Chuc nang nay chua duoc cap nhat")
-- return
--end
if getn(danhsach_account) < 2 then
Talk(1,"","<bclr=red><color=yellow>Bang xep hang chua duoc cap nhat<color><bclr>")
return
end
--if getn(danhsach_account) < 10 then
-- Talk(1,"","<bclr=red><color=yellow>So nguoi dang ky tham gia lien dau chua du 10 nguoi nen khong the xep hang<color><bclr>")
-- return
--end
bangxephang = {}
for k = 1,hang do
danhsach2 = {}
danhsach1 = {}
danhsach = {}
diem_vd_lonnhat = 0
tilethang_lonnhat = 0
level_nhonhat = 0
--so sanh diem vinh du
for i = 1,getn(danhsach_account) do
if danhsach_account[i][3] > diem_vd_lonnhat and TimKiem(bangxephang,danhsach_account[i][1]) == nil then
danhsach = {danhsach_account[i][1]}
diem_vd_lonnhat = danhsach_account[i][3]
elseif danhsach_account[i][3] == diem_vd_lonnhat and TimKiem(bangxephang,danhsach_account[i][1]) ==nil then
danhsach[getn(danhsach)+1] = danhsach_account[i][1]
end
end
--so sanh ti le thang
for i = 1,getn(danhsach) do
if TiLeThang(danhsach[i],0) > tilethang_lonnhat and TimKiem(bangxephang,danhsach[i]) ==nil then
danhsach1 = {danhsach[i]}
tilethang_lonnhat = TiLeThang(danhsach[i],0)
elseif TiLeThang(danhsach[i],0) == tilethang_lonnhat and TimKiem(bangxephang,danhsach[i]) ==nil then
danhsach1[getn(danhsach1)+1] = danhsach[i]
end
end
--so sanh dang cap
danhsach2 = {danhsach1[1]}
for i = 1,getn(danhsach1)-1 do
if Level_LD(danhsach1[i]) < level_nhonhat and TimKiem(bangxephang,danhsach1[i]) ==nil then
danhsach2 = {danhsach1[i+1][1]}
level_nhonhat = Level_LD(danhsach1[i])
elseif Level_LD(danhsach1[i]) == level_nhonhat and TimKiem(bangxephang,danhsach1[i]) ==nil then
danhsach2[getn(danhsach2)+1] = danhsach1[i+1][1]
end
end
if danhsach2[1] ~= nil then
bangxephang[getn(bangxephang)+1] = danhsach2
end
end
if getn(bangxephang) == 0 then
return
end
for i = 1,getn(bangxephang) do
for k = 1,getn(bangxephang[i]) do
str = "<<"..bangxephang[i][k]..">>\nDiem vinh du: "..DiemVinhDu(bangxephang[i][k]).."\nTi le thang: "..TiLeThang(bangxephang[i][k],1).."."
end
str = "Hang "..i..":\n"..str
Msg2Player(str)
str = ""
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function TimKiem(tenbang,tukhoa)
if getn(tenbang) == 0 then
return nil
end
for i= 1,getn(tenbang) do
for k = 1,getn(tenbang[i]) do
if tenbang[i][k] == tukhoa then
return 1
end
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function DiemVinhDu(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
return danhsach_account[i][3]
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function ThoiGianConLai()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
for i = 1,getn(gio_liendau) do
if gio == gio_liendau[i][1] and phut <= gio_liendau[i][2]+thoigianthidau+thoigianbaodanh then
thoigianconlai = (gio_liendau[i][2]+thoigianbaodanh+thoigianthidau-phut)*60-giay
break
end
end
return floor(thoigianconlai/60)
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function Level_LD(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
return danhsach_account[i][2]
end
end
return "biet chet lien"
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function ThongTin_NhanVat_LD(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
return tennhanvat..":Mon phai:"..danhsach_account[i][6].."\ndiem vinh du:"..danhsach_account[i][3].."\nTi le thang:"..TiLeThang(tennhanvat,1).."\nXep Hang:"..XepHang_LienDau()..""
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function TiLeThang(tennhanvat,lamtron)
if tennhanvat == "" or tennhanvat == "Khong Xac Dinh" then
return 0
end
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
if danhsach_account[i][4]+danhsach_account[i][5] == 0 then
return 0
else
if lamtron == 1 then
return floor(danhsach_account[i][4]*100/(danhsach_account[i][5]+danhsach_account[i][4]))
else
return danhsach_account[i][4]*100/(danhsach_account[i][5]+danhsach_account[i][4])
end
end
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function thongtincanhan()
sotranthang = GetTask(53)
sotranthua = GetTask(54)
if sotranthua+sotranthang == 0 then
tilethang = 0
else
tilethang = floor(sotranthang*100/(sotranthua+sotranthang))
end
Say("<color=yellow>"..GetName().."<color>:Level:"..GetLevel().."\nMon Phai:"..tenmonphai().."\nDiem vinh du:"..GetTask(57).."\nSo tran thang:"..GetTask(53).."\nSo tran thua:"..GetTask(54).."\nTi le thang:"..tilethang.."",0)
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function NguoiThangCuoc(tennv1,tennv2)
if TiLeThang(tennv1,0) > TiLeThang(tennv2,0) then
return tennv1
elseif TiLeThang(tennv1,0) < TiLeThang(tennv2,0) then
return tennv2
else--neu ti le thang bang nhau thi set den dang cap(neu dang cap thap hon se thang)
if Level_LD(tennv1) > Level_LD(tennv2) then
return tennv1
elseif Level_LD(tennv1) < Level_LD(tennv2) then
return tennv2
else--neu den dang cap cung bang nhau thi he thong se random nguoi thang cuoc
i = random(1,2)
if i == 1 then
return tennv1
else
return tennv2
end
i = nil
end
end
end
--************************************************** ************************************************** ************************************************** ***************************
function OnDeath(Launcher)
PlayerIndex1 = NpcIdx2PIdx(Launcher);
OrgPlayer = PlayerIndex;
DeathName = GetName();--------------------------nguoi thua
SetFightState(0);
camp = GetCamp();
SetCurCamp(camp);
SetCreateTeam(1);
SetPK(GetTask(55))
SetPunish(1)
SetDeathScript("");
if GetExp() < GetTask(56) then
AddOwnExp(GetTask(56) - GetExp())
end
SetTask(55,0)
SetTask(56,0)
SetTask(54,GetTask(54)+1)
AddOwnExp(random(500000,1000000))
NewWorld(42,47744/32,97440/32)
Msg2Player("Do vo dung! danh dam nhu the ha, de cai thang "..MonPhai(TenDoiThu(GetName())).." cap "..Level_LD(GetName()).." no bat nat,di chet di!")
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
end
end
StopTimer()
--******************************************
PlayerIndex = PlayerIndex1;------------------nguoi danh thang
LaunName = GetName();
SetFightState(0)
camp = GetCamp();
SetCurCamp(camp);
SetCreateTeam(1);
SetPK(GetTask(55))
SetPunish(1)
SetDeathScript("");
SetTask(57,GetTask(57)+10)
SetTask(53,GetTask(53)+1)
NewWorld(42,47744/32,97440/32)
Msg2Player("Xin chuc mung ban nhan duoc them 10 diem vinh du")
AddOwnExp(random(1000000,2000000))
str = "Chien doi ["..LaunName.."] danh bai chien doi ["..DeathName.."]"
Msg2SubWorld(str);
print(str)
StopTimer()
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
end
end
PlayerIndex = OrgPlayer;
end
--************************************************** ************************************************** ************************************************** ***************************
function MonPhai(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
if danhsach_account[i][6] == "" then
return "Vo mon phai"
else
return danhsach_account[i][6]
end
end
end
return ""
end
--************************************************** ************************************************** ************************************************** ***************************
function OnTimer()
gio = tonumber(date("%H"))
w,x,y = GetWorldPos()
if GetTask(59) == 0 then
--neu khong co ai la doi thu trong luot dau do thi se duoc su thang cuoc
if TenDoiThu(GetName()) == "" or TenDoiThu(GetName()) == "Khong Xac Dinh" then
NewWorld(42,47744/32,97440/32)
StopTimer()
SetTask(59,0)
SetFightState(0)
SetPunish(0)
SetTask(57,GetTask(57)+10)
SetDeathScript("")
SetTask(53,GetTask(53)+1)
camp = GetCamp();
SetCurCamp(camp);
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
break
end
end
Msg2Player("Xin chuc mung! ban nhan duoc 10 diem vinh du")
return
end
print("doi thu cua "..GetName()..":"..TenDoiThu(GetName()))
Msg2Player("\n[Thong tin doi thu]:"..TenDoiThu(GetName())..",level:"..Level_LD(TenDoiThu(GetName()))..",mon phai:"..MonPhai(TenDoiThu(GetName())))
for i = 1,getn(DS_THAMGIA_LD) do
if GetName() == DS_THAMGIA_LD[i][1] then
if mod(i,2) == 0 then
NewWorld(43,DAUTRUONGPOSXY[floor(i/2)][1]*8,DAUTRUONGPOSXY[floor(i/2)][2]*16)
print(GetName().." vao dau truong thu "..floor(i/2))
else
NewWorld(43,DAUTRUONGPOSXY[floor(i/2)+1][1]*8,DAUTRUONGPOSXY[floor(i/2)+1][2]*16)
print(GetName().." vao dau truong thu "..(floor(i/2)+1))
end
Msg2SubWorld("Chien doi ["..GetName().."] da vao khu vuc chuan bi thi dau")
break
end
end
for i = 1,getn(DS_THAMGIA_LD) do
if DS_THAMGIA_LD[i][1] == GetName() then
if mod(i,2) == 0 then
SetCurCamp(1)
else
SetCurCamp(2)
end
break
end
end
StopTimer()
SetTimer(18,16)
SetTask(59,1)
elseif GetTask(59) >= 1 and GetTask(59) < 11 then
if w ~= 43 then
Msg2SubWorld("["..GetName().."] tu y roi khoi dau truong lien dau nen bi su thua,chien thang thuoc ve ["..TenDoiThu(GetName()).."]")
for i = 1,getn(DS_THAMGIA_LD) do
if DS_THAMGIA_LD[i][1] == GetName() then
DS_THAMGIA_LD[i] = {"Khong Xac Dinh"}
break
end
end
StopTimer()
return
end
Msg2Player("Tran dau se bat dau sau "..(11-GetTask(59)).." giay!")
SetTask(59,GetTask(59)+1)
elseif GetTask(59) == 11 then
if w ~= 43 then
Msg2SubWorld("["..GetName().."] tu y roi khoi dau truong lien dau nen bi su thua,chien thang thuoc ve ["..TenDoiThu(GetName()).."]")
for i = 1,getn(DS_THAMGIA_LD) do
if DS_THAMGIA_LD[i][1] == GetName() then
DS_THAMGIA_LD[i] = {"Khong Xac Dinh"}
break
end
end
StopTimer()
return
end
SetTask(59,GetTask(59)+1)
SetFightState(1)
Msg2Player("Tran dau bat dau!")
if Player_Online_LD(TenDoiThu(GetName())) == "OffLine" and GetTask(59) == 12 then
NewWorld(42,47744/32,97440/32)
StopTimer()
SetTask(59,0)
SetFightState(0)
SetPunish(0)
SetTask(57,GetTask(57)+10)
SetDeathScript("")
SetTask(53,GetTask(53)+1)
camp = GetCamp();
SetCurCamp(camp);
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
break
end
end
Msg2Player("Xin chuc mung! ban nhan duoc 10 diem vinh du")
Msg2SubWorld("["..TenDoiThu(GetName()).."] tu y roi khoi dau truong lien dau nen bi su thua,chien thang thuoc ve ["..GetName().."]")
return
end
StopTimer()
SetTimer(((thoigianthidau-1)*60-10)*18,16)
else
if w ~= 43 then
Msg2SubWorld("["..GetName().."] tu y roi khoi dau truong lien dau nen bi su thua,chien thang thuoc ve ["..TenDoiThu(GetName()).."]")
for i = 1,getn(DS_THAMGIA_LD) do
if DS_THAMGIA_LD[i][1] == GetName() then
DS_THAMGIA_LD[i] = {"Khong Xac Dinh"}
break
end
end
StopTimer()
return
end
--Neu khong ai danh chet duoc doi thu thi se chay den doan script nay
if GetName() == NguoiThangCuoc(GetName(),TenDoiThu(GetName())) then
SetTask(57,GetTask(57)+10)
SetTask(53,GetTask(53)+1)
AddOwnExp(random(1000000,2000000))
Msg2Player("Xin chuc mung! ban nhan duoc 10 diem vinh du")
else
SetTask(54,GetTask(54)+1)
AddOwnExp(random(500000,1000000))
Msg2Player("Do vo dung! danh dam nhu the ha, de cai thang "..MonPhai(TenDoiThu(GetName())).." cap "..Level_LD(GetName()).." no bat nat,di chet di!")
end
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
break
end
end
StopTimer()
SetFightState(0)
SetLogoutRV(1)
SetPunish(1)
SetCreateTeam(1)
camp = GetCamp();
SetCurCamp(camp);
SetDeathScript("")
SetTask(59,0)
NewWorld(42,47744/32,97440/32)
end
end
--************************************************** ************************************
function Player_Online_LD(tennhanvat)
player1 = PlayerIndex --nguoi choi hien tai
for i=1,GetPlayerCount() do
PlayerIndex = i
if GetName() == tennhanvat then
W,X,Y = GetWorldPos()
if W == 43 then
return "OnLine"
else
return "OffLine"
end
end
end
return "OffLine"
end
--************************************************** **************************************
function phanthuong()
SayEx({"<color=red>Su gia lien dau:<color> nguoi hay chon phan thuong muon doi ! dung diem vinh du de doi",
"Sieu Quang [1000 Diem]/phanthuongcond",
"Trang Suc Vo Danh [5000 Diem]/phanthuongcond",
"Doi Exp [50 Diem]/phanthuongcond",
"Set Bach Kim [1000 Diem]/phanthuongcond",
"Set Hoang Kim [600 Diem]/phanthuongcond",
"Thoat/out"})
end
function phanthuongcond(nsel)
id = nsel + 1
if id == 1 then
point = 1000
elseif id == 2 then
point = 5000
elseif id == 3 then
point = 50
elseif id == 4 then
point = 1000
tb = "Bach Kim"
elseif id == 5 then
point = 600
tb = "Hoang Kim"
end
a = GetTask(57)
if GetTask(57) >= point then
SetTask(57,GetTask(57)-point)
if GetTask(57) == (a-point) then
if id == 1 then
z = random(0,4)
AddItem(0,10,11,10,z,0,10)
Msg2Player("Nhan duoc ngua sieu quang")
elseif id == 2 then
SayEx({"<color=yellow>Su gia lien dau:<color> xin hay chon loai trang suc !",
"Nhan [Vo Danh]/trangbivodanh",
"Day Chuyen [Vo Danh]/trangbivodanh",
"Ngoc Boi [Vo Danh]/trangbivodanh",
"Thoat/Exit"})
elseif id == 3 then
j = random(30,50)
for i=1,j do AddOwnExp(99999999) end
Msg2Player("Ban Nhan Duoc "..j.." Level !")
else
addtbmp(tb,"Ao",tenmonphai(),4,1)
addtbmp(tb,"Mu",tenmonphai(),0,1)
addtbmp(tb,"Dai Lung",tenmonphai(),3,1)
addtbmp(tb,"Bao Tay",tenmonphai(),1,1)
addtbmp(tb,"Giay",tenmonphai(),2,1)
addtbmp(tb,"Nhan",tenmonphai(),2,1)
addtbmp(tb,"Nhan",tenmonphai(),3,1)
addtbmp(tb,"Ngoc Boi",tenmonphai(),1,1)
addtbmp(tb,"Day Truyen",tenmonphai(),4,1)
end
else
Msg2Player("Ban khong du "..point.." diem tich luy lien dau !")
end
else
Msg2Player("Ban khong du "..point.." diem tich luy lien dau !")
end
end
function trangbivodanh(sel)
id = sel + 1
z = random(0,4)
if id == 1 then
j = random(1,2)
AddItem(0,3,21,j,z,0,10)
elseif id == 2 then
AddItem(0,4,20,1,z,0,10)
elseif id == 3 then
AddItem(0,9,20,1,z,0,10)
end
Msg2Player("Ban Nhan Duoc 1 Mon Trang Suc Vo Danh !")
end
Include("\\script\\lien_dau\\liendau_head.lua")
Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\GetFaction.lua")
-------Author: Manh Tuyen Kute ------
-----Edit Online By Ohishu Kuto------
-------Task 53 So Tran Thang---------
-------Task 54 So Tran Thua----------
-------Task 57 Diem Vinh Du----------
danhsach_account = {}
DS_THAMGIA_LD = {}
function main(sel)
W,X,Y = GetWorldPos()
if W == 42 then
quanvienliendau()
else
sugiadangkyliendau()
end
end
function sugiadangkyliendau()
Say("<bclr=red><color=yellow>Ta la su gia lien dau,nguoi co muon tham gia hoat dong nay khong<color><bclr>",4,"Dang ky chien doi/DangKyChienDoi","Den hoi truong lien dau/VaoHoiTruongLienDau","Phan thuong lien dau/phanthuong","Thoat/out")
end
function VaoHoiTruongLienDau()
if TimKiem(danhsach_account,GetName()) == nil then
Talk(1,"","<bclr=red><color=yellow>Ban phai dang ky chien doi truoc khi vao dau truong<color><bclr>")
return
end
NewWorld(42,47744/32,97440/32)
SetFightState(0)
SetLogoutRV(1)
SetDeathScript("")
SetTask(59,0)
Msg2Player("Ban da den hoi truong lien dau!")
if TimKiem(DS_THAMGIA_LD,GetName()) == 1 and GioLienDau() == "bao danh" then
LeaveTeam()
SetFightState(0)
SetCreateTeam(0);
SetPunish(0)
SetTask(59,0)
SetTask(55,GetPK())
SetTask(56,GetExp())
SetPK(0)
SetLogoutRV(1)
SetTempRevPos(42,47744/32,97440/32)
SetDeathScript("\\script\\lien_dau\\su_gia_lien_dau.lua")
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
for i = 1,getn(gio_liendau) do
if phut <= gio_liendau[i][2]+thoigianbaodanh then
thoigiancho = (gio_liendau[i][2]+thoigianbaodanh-phut)*60-giay
break
end
end
Msg2Player("Thoi gian cho doi: "..thoigiancho.." giay")
StopTimer()
SetTimer(thoigiancho*18,16)
end
end
function DangKyChienDoi()
if TimKiem(danhsach_account,GetName()) == nil then
danhsach_account[getn(danhsach_account)+1] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
Msg2Player("Ban da lap thanh cong chien doi ["..GetName().."]")
else
Msg2Player("Ban da lap chien doi,khong can lap lai nua")
end
end
function quanvienliendau()
SetFightState(0)
if GioLienDau() == "bao danh" then
Say("<color=yellow>Ban dang tham gia hoat dong lien dau do TSBD phat trien<color>",4,"Ta muon tham gia/DangKy","Thong tin ca nhan/thongtincanhan","Bang xep hang/Xem_BangXepHang","Roi khoi/out")
elseif GioLienDau() == "thi dau" then
Say("<color=yellow>Ban dang tham gia hoat dong lien dau do TSBD phat trien\nThoi gian thi dau con lai la: "..ThoiGianConLai().."<color> phut",3,"Thong tin ca nhan/thongtincanhan","Bang xep hang/Xem_BangXepHang","Roi khoi/out")
elseif GioLienDau() == "chua den gio" then
Talk(1,"","<color=yellow>hien tai chua den gio tham gia Lien Dau<color>")
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function Xem_BangXepHang()
Say("<color=yellow>Nguoi muon biet thong tin ve bang xep hang lien dau phai ko?<color>",3,"10 hang dau/xephang","20 hang dau/xephang","Roi khoi/out")
end
function xephang(nsel)
BangXepHang((nsel+1)*10)
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function DangKy()--Dang ky tham gia
if STT_LD() ~= luotliendau then
luotliendau = STT_LD()
DS_THAMGIA_LD = {}
end
if GioLienDau() ~= "bao danh" then
return
end
if TimKiem(DS_THAMGIA_LD,GetName()) == nil then
if getn(DS_THAMGIA_LD) < 2 then
DS_THAMGIA_LD[getn(DS_THAMGIA_LD)+1] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
else
i = random(1,getn(DS_THAMGIA_LD))
DS_THAMGIA_LD[getn(DS_THAMGIA_LD)+1] = DS_THAMGIA_LD[i]
DS_THAMGIA_LD[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
i = nil
end
LeaveTeam()
SetFightState(0)
SetCreateTeam(0);
SetPunish(0)
SetTask(59,0)
SetTask(55,GetPK())
SetTask(56,GetExp())
SetPK(0)
SetLogoutRV(1)
SetTempRevPos(42,47744/32,97440/32)
SetDeathScript("\\script\\lien_dau\\su_gia_lien_dau.lua")
Msg2Player("Ban da dang ky tham gia thi dau Lien Dau dot "..luotliendau)
print("<<"..GetName()..">> dang ki tham gia Lien Dau luot thu "..luotliendau.."\nhien co "..getn(DS_THAMGIA_LD).." nguoi dang ky tham gia lien dau")
Msg2SubWorld("Chien doi ["..GetName().."] dang ki tham gia Lien Dau luot thu "..luotliendau)
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
for i = 1,getn(gio_liendau) do
if phut <= gio_liendau[i][2]+thoigianbaodanh then
thoigiancho = (gio_liendau[i][2]+thoigianbaodanh-phut)*60-giay
break
end
end
Msg2Player("Thoi gian cho doi: "..thoigiancho.." giay")
StopTimer()
SetTimer(thoigiancho*18,16)
else
Msg2Player("Ban da dang ky tham gia thi dau dot "..luotliendau..", xin doi it phut")
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function TenDoiThu(tennhanvat)--tim ten doi thu cua tennhanvat
for i = 1,getn(DS_THAMGIA_LD) do
if GetName() == DS_THAMGIA_LD[i][1] then
if i == getn(DS_THAMGIA_LD) and mod(getn(DS_THAMGIA_LD),2) ~= 0 then
return ""
end
if mod(i,2) ~= 0 then --so le
return DS_THAMGIA_LD[i+1][1]
else --so chan
return DS_THAMGIA_LD[i-1][1]
end
end
end
return ""
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function STT_LD()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
for i = 1,getn(gio_liendau) do
if gio == gio_liendau[i][1] and phut <= gio_liendau[i][2]+thoigianthidau+thoigianbaodanh-1 then
return i
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function BangXepHang(hang)
--if GetName() ~= "admin_manhtuyen" then
-- Talk(1,"","Chuc nang nay chua duoc cap nhat")
-- return
--end
if getn(danhsach_account) < 2 then
Talk(1,"","<bclr=red><color=yellow>Bang xep hang chua duoc cap nhat<color><bclr>")
return
end
--if getn(danhsach_account) < 10 then
-- Talk(1,"","<bclr=red><color=yellow>So nguoi dang ky tham gia lien dau chua du 10 nguoi nen khong the xep hang<color><bclr>")
-- return
--end
bangxephang = {}
for k = 1,hang do
danhsach2 = {}
danhsach1 = {}
danhsach = {}
diem_vd_lonnhat = 0
tilethang_lonnhat = 0
level_nhonhat = 0
--so sanh diem vinh du
for i = 1,getn(danhsach_account) do
if danhsach_account[i][3] > diem_vd_lonnhat and TimKiem(bangxephang,danhsach_account[i][1]) == nil then
danhsach = {danhsach_account[i][1]}
diem_vd_lonnhat = danhsach_account[i][3]
elseif danhsach_account[i][3] == diem_vd_lonnhat and TimKiem(bangxephang,danhsach_account[i][1]) ==nil then
danhsach[getn(danhsach)+1] = danhsach_account[i][1]
end
end
--so sanh ti le thang
for i = 1,getn(danhsach) do
if TiLeThang(danhsach[i],0) > tilethang_lonnhat and TimKiem(bangxephang,danhsach[i]) ==nil then
danhsach1 = {danhsach[i]}
tilethang_lonnhat = TiLeThang(danhsach[i],0)
elseif TiLeThang(danhsach[i],0) == tilethang_lonnhat and TimKiem(bangxephang,danhsach[i]) ==nil then
danhsach1[getn(danhsach1)+1] = danhsach[i]
end
end
--so sanh dang cap
danhsach2 = {danhsach1[1]}
for i = 1,getn(danhsach1)-1 do
if Level_LD(danhsach1[i]) < level_nhonhat and TimKiem(bangxephang,danhsach1[i]) ==nil then
danhsach2 = {danhsach1[i+1][1]}
level_nhonhat = Level_LD(danhsach1[i])
elseif Level_LD(danhsach1[i]) == level_nhonhat and TimKiem(bangxephang,danhsach1[i]) ==nil then
danhsach2[getn(danhsach2)+1] = danhsach1[i+1][1]
end
end
if danhsach2[1] ~= nil then
bangxephang[getn(bangxephang)+1] = danhsach2
end
end
if getn(bangxephang) == 0 then
return
end
for i = 1,getn(bangxephang) do
for k = 1,getn(bangxephang[i]) do
str = "<<"..bangxephang[i][k]..">>\nDiem vinh du: "..DiemVinhDu(bangxephang[i][k]).."\nTi le thang: "..TiLeThang(bangxephang[i][k],1).."."
end
str = "Hang "..i..":\n"..str
Msg2Player(str)
str = ""
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function TimKiem(tenbang,tukhoa)
if getn(tenbang) == 0 then
return nil
end
for i= 1,getn(tenbang) do
for k = 1,getn(tenbang[i]) do
if tenbang[i][k] == tukhoa then
return 1
end
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function DiemVinhDu(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
return danhsach_account[i][3]
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function ThoiGianConLai()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
for i = 1,getn(gio_liendau) do
if gio == gio_liendau[i][1] and phut <= gio_liendau[i][2]+thoigianthidau+thoigianbaodanh then
thoigianconlai = (gio_liendau[i][2]+thoigianbaodanh+thoigianthidau-phut)*60-giay
break
end
end
return floor(thoigianconlai/60)
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function Level_LD(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
return danhsach_account[i][2]
end
end
return "biet chet lien"
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function ThongTin_NhanVat_LD(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
return tennhanvat..":Mon phai:"..danhsach_account[i][6].."\ndiem vinh du:"..danhsach_account[i][3].."\nTi le thang:"..TiLeThang(tennhanvat,1).."\nXep Hang:"..XepHang_LienDau()..""
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function TiLeThang(tennhanvat,lamtron)
if tennhanvat == "" or tennhanvat == "Khong Xac Dinh" then
return 0
end
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
if danhsach_account[i][4]+danhsach_account[i][5] == 0 then
return 0
else
if lamtron == 1 then
return floor(danhsach_account[i][4]*100/(danhsach_account[i][5]+danhsach_account[i][4]))
else
return danhsach_account[i][4]*100/(danhsach_account[i][5]+danhsach_account[i][4])
end
end
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function thongtincanhan()
sotranthang = GetTask(53)
sotranthua = GetTask(54)
if sotranthua+sotranthang == 0 then
tilethang = 0
else
tilethang = floor(sotranthang*100/(sotranthua+sotranthang))
end
Say("<color=yellow>"..GetName().."<color>:Level:"..GetLevel().."\nMon Phai:"..tenmonphai().."\nDiem vinh du:"..GetTask(57).."\nSo tran thang:"..GetTask(53).."\nSo tran thua:"..GetTask(54).."\nTi le thang:"..tilethang.."",0)
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function NguoiThangCuoc(tennv1,tennv2)
if TiLeThang(tennv1,0) > TiLeThang(tennv2,0) then
return tennv1
elseif TiLeThang(tennv1,0) < TiLeThang(tennv2,0) then
return tennv2
else--neu ti le thang bang nhau thi set den dang cap(neu dang cap thap hon se thang)
if Level_LD(tennv1) > Level_LD(tennv2) then
return tennv1
elseif Level_LD(tennv1) < Level_LD(tennv2) then
return tennv2
else--neu den dang cap cung bang nhau thi he thong se random nguoi thang cuoc
i = random(1,2)
if i == 1 then
return tennv1
else
return tennv2
end
i = nil
end
end
end
--************************************************** ************************************************** ************************************************** ***************************
function OnDeath(Launcher)
PlayerIndex1 = NpcIdx2PIdx(Launcher);
OrgPlayer = PlayerIndex;
DeathName = GetName();--------------------------nguoi thua
SetFightState(0);
camp = GetCamp();
SetCurCamp(camp);
SetCreateTeam(1);
SetPK(GetTask(55))
SetPunish(1)
SetDeathScript("");
if GetExp() < GetTask(56) then
AddOwnExp(GetTask(56) - GetExp())
end
SetTask(55,0)
SetTask(56,0)
SetTask(54,GetTask(54)+1)
AddOwnExp(random(500000,1000000))
NewWorld(42,47744/32,97440/32)
Msg2Player("Do vo dung! danh dam nhu the ha, de cai thang "..MonPhai(TenDoiThu(GetName())).." cap "..Level_LD(GetName()).." no bat nat,di chet di!")
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
end
end
StopTimer()
--******************************************
PlayerIndex = PlayerIndex1;------------------nguoi danh thang
LaunName = GetName();
SetFightState(0)
camp = GetCamp();
SetCurCamp(camp);
SetCreateTeam(1);
SetPK(GetTask(55))
SetPunish(1)
SetDeathScript("");
SetTask(57,GetTask(57)+10)
SetTask(53,GetTask(53)+1)
NewWorld(42,47744/32,97440/32)
Msg2Player("Xin chuc mung ban nhan duoc them 10 diem vinh du")
AddOwnExp(random(1000000,2000000))
str = "Chien doi ["..LaunName.."] danh bai chien doi ["..DeathName.."]"
Msg2SubWorld(str);
print(str)
StopTimer()
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
end
end
PlayerIndex = OrgPlayer;
end
--************************************************** ************************************************** ************************************************** ***************************
function MonPhai(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
if danhsach_account[i][6] == "" then
return "Vo mon phai"
else
return danhsach_account[i][6]
end
end
end
return ""
end
--************************************************** ************************************************** ************************************************** ***************************
function OnTimer()
gio = tonumber(date("%H"))
w,x,y = GetWorldPos()
if GetTask(59) == 0 then
--neu khong co ai la doi thu trong luot dau do thi se duoc su thang cuoc
if TenDoiThu(GetName()) == "" or TenDoiThu(GetName()) == "Khong Xac Dinh" then
NewWorld(42,47744/32,97440/32)
StopTimer()
SetTask(59,0)
SetFightState(0)
SetPunish(0)
SetTask(57,GetTask(57)+10)
SetDeathScript("")
SetTask(53,GetTask(53)+1)
camp = GetCamp();
SetCurCamp(camp);
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
break
end
end
Msg2Player("Xin chuc mung! ban nhan duoc 10 diem vinh du")
return
end
print("doi thu cua "..GetName()..":"..TenDoiThu(GetName()))
Msg2Player("\n[Thong tin doi thu]:"..TenDoiThu(GetName())..",level:"..Level_LD(TenDoiThu(GetName()))..",mon phai:"..MonPhai(TenDoiThu(GetName())))
for i = 1,getn(DS_THAMGIA_LD) do
if GetName() == DS_THAMGIA_LD[i][1] then
if mod(i,2) == 0 then
NewWorld(43,DAUTRUONGPOSXY[floor(i/2)][1]*8,DAUTRUONGPOSXY[floor(i/2)][2]*16)
print(GetName().." vao dau truong thu "..floor(i/2))
else
NewWorld(43,DAUTRUONGPOSXY[floor(i/2)+1][1]*8,DAUTRUONGPOSXY[floor(i/2)+1][2]*16)
print(GetName().." vao dau truong thu "..(floor(i/2)+1))
end
Msg2SubWorld("Chien doi ["..GetName().."] da vao khu vuc chuan bi thi dau")
break
end
end
for i = 1,getn(DS_THAMGIA_LD) do
if DS_THAMGIA_LD[i][1] == GetName() then
if mod(i,2) == 0 then
SetCurCamp(1)
else
SetCurCamp(2)
end
break
end
end
StopTimer()
SetTimer(18,16)
SetTask(59,1)
elseif GetTask(59) >= 1 and GetTask(59) < 11 then
if w ~= 43 then
Msg2SubWorld("["..GetName().."] tu y roi khoi dau truong lien dau nen bi su thua,chien thang thuoc ve ["..TenDoiThu(GetName()).."]")
for i = 1,getn(DS_THAMGIA_LD) do
if DS_THAMGIA_LD[i][1] == GetName() then
DS_THAMGIA_LD[i] = {"Khong Xac Dinh"}
break
end
end
StopTimer()
return
end
Msg2Player("Tran dau se bat dau sau "..(11-GetTask(59)).." giay!")
SetTask(59,GetTask(59)+1)
elseif GetTask(59) == 11 then
if w ~= 43 then
Msg2SubWorld("["..GetName().."] tu y roi khoi dau truong lien dau nen bi su thua,chien thang thuoc ve ["..TenDoiThu(GetName()).."]")
for i = 1,getn(DS_THAMGIA_LD) do
if DS_THAMGIA_LD[i][1] == GetName() then
DS_THAMGIA_LD[i] = {"Khong Xac Dinh"}
break
end
end
StopTimer()
return
end
SetTask(59,GetTask(59)+1)
SetFightState(1)
Msg2Player("Tran dau bat dau!")
if Player_Online_LD(TenDoiThu(GetName())) == "OffLine" and GetTask(59) == 12 then
NewWorld(42,47744/32,97440/32)
StopTimer()
SetTask(59,0)
SetFightState(0)
SetPunish(0)
SetTask(57,GetTask(57)+10)
SetDeathScript("")
SetTask(53,GetTask(53)+1)
camp = GetCamp();
SetCurCamp(camp);
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
break
end
end
Msg2Player("Xin chuc mung! ban nhan duoc 10 diem vinh du")
Msg2SubWorld("["..TenDoiThu(GetName()).."] tu y roi khoi dau truong lien dau nen bi su thua,chien thang thuoc ve ["..GetName().."]")
return
end
StopTimer()
SetTimer(((thoigianthidau-1)*60-10)*18,16)
else
if w ~= 43 then
Msg2SubWorld("["..GetName().."] tu y roi khoi dau truong lien dau nen bi su thua,chien thang thuoc ve ["..TenDoiThu(GetName()).."]")
for i = 1,getn(DS_THAMGIA_LD) do
if DS_THAMGIA_LD[i][1] == GetName() then
DS_THAMGIA_LD[i] = {"Khong Xac Dinh"}
break
end
end
StopTimer()
return
end
--Neu khong ai danh chet duoc doi thu thi se chay den doan script nay
if GetName() == NguoiThangCuoc(GetName(),TenDoiThu(GetName())) then
SetTask(57,GetTask(57)+10)
SetTask(53,GetTask(53)+1)
AddOwnExp(random(1000000,2000000))
Msg2Player("Xin chuc mung! ban nhan duoc 10 diem vinh du")
else
SetTask(54,GetTask(54)+1)
AddOwnExp(random(500000,1000000))
Msg2Player("Do vo dung! danh dam nhu the ha, de cai thang "..MonPhai(TenDoiThu(GetName())).." cap "..Level_LD(GetName()).." no bat nat,di chet di!")
end
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(57),GetTask(53),GetT ask(54),tenmonphai()}
break
end
end
StopTimer()
SetFightState(0)
SetLogoutRV(1)
SetPunish(1)
SetCreateTeam(1)
camp = GetCamp();
SetCurCamp(camp);
SetDeathScript("")
SetTask(59,0)
NewWorld(42,47744/32,97440/32)
end
end
--************************************************** ************************************
function Player_Online_LD(tennhanvat)
player1 = PlayerIndex --nguoi choi hien tai
for i=1,GetPlayerCount() do
PlayerIndex = i
if GetName() == tennhanvat then
W,X,Y = GetWorldPos()
if W == 43 then
return "OnLine"
else
return "OffLine"
end
end
end
return "OffLine"
end
--************************************************** **************************************
function phanthuong()
SayEx({"<color=red>Su gia lien dau:<color> nguoi hay chon phan thuong muon doi ! dung diem vinh du de doi",
"Sieu Quang [1000 Diem]/phanthuongcond",
"Trang Suc Vo Danh [5000 Diem]/phanthuongcond",
"Doi Exp [50 Diem]/phanthuongcond",
"Set Bach Kim [1000 Diem]/phanthuongcond",
"Set Hoang Kim [600 Diem]/phanthuongcond",
"Thoat/out"})
end
function phanthuongcond(nsel)
id = nsel + 1
if id == 1 then
point = 1000
elseif id == 2 then
point = 5000
elseif id == 3 then
point = 50
elseif id == 4 then
point = 1000
tb = "Bach Kim"
elseif id == 5 then
point = 600
tb = "Hoang Kim"
end
a = GetTask(57)
if GetTask(57) >= point then
SetTask(57,GetTask(57)-point)
if GetTask(57) == (a-point) then
if id == 1 then
z = random(0,4)
AddItem(0,10,11,10,z,0,10)
Msg2Player("Nhan duoc ngua sieu quang")
elseif id == 2 then
SayEx({"<color=yellow>Su gia lien dau:<color> xin hay chon loai trang suc !",
"Nhan [Vo Danh]/trangbivodanh",
"Day Chuyen [Vo Danh]/trangbivodanh",
"Ngoc Boi [Vo Danh]/trangbivodanh",
"Thoat/Exit"})
elseif id == 3 then
j = random(30,50)
for i=1,j do AddOwnExp(99999999) end
Msg2Player("Ban Nhan Duoc "..j.." Level !")
else
addtbmp(tb,"Ao",tenmonphai(),4,1)
addtbmp(tb,"Mu",tenmonphai(),0,1)
addtbmp(tb,"Dai Lung",tenmonphai(),3,1)
addtbmp(tb,"Bao Tay",tenmonphai(),1,1)
addtbmp(tb,"Giay",tenmonphai(),2,1)
addtbmp(tb,"Nhan",tenmonphai(),2,1)
addtbmp(tb,"Nhan",tenmonphai(),3,1)
addtbmp(tb,"Ngoc Boi",tenmonphai(),1,1)
addtbmp(tb,"Day Truyen",tenmonphai(),4,1)
end
else
Msg2Player("Ban khong du "..point.." diem tich luy lien dau !")
end
else
Msg2Player("Ban khong du "..point.." diem tich luy lien dau !")
end
end
function trangbivodanh(sel)
id = sel + 1
z = random(0,4)
if id == 1 then
j = random(1,2)
AddItem(0,3,21,j,z,0,10)
elseif id == 2 then
AddItem(0,4,20,1,z,0,10)
elseif id == 3 then
AddItem(0,9,20,1,z,0,10)
end
Msg2Player("Ban Nhan Duoc 1 Mon Trang Suc Vo Danh !")
end