Linh_JX
24-07-12, 02:35 PM
NPC Võ lâm Chí Tôn Đã Thêm Vào Các File Trong Dữ Liệu Đầy Đủ rồi ! cũng đã khai báo đúng ! nhưng sao click vào k hiện gì cả ! nhưng GS lại k báo lỗi
---Author: Ohishu
--------Big Bang Script New For JX Private
----Thay The Cho Bang Hoi Se Tao Nen 1 Cot Truyen Cho Game !
Include("\\script\\startup_remix.lua")
Include("\\dulieu\\quyensohuu.lua")
Include("\\dulieu\\minhchu_bd.lua")
Include("\\dulieu\\minhchu_hd.lua")
Include("\\dulieu\\minhchu_ld.lua")
Include("\\dulieu\\listbachdao.lua")
Include("\\dulieu\\listhacdao.lua")
Include("\\dulieu\\listluongdao.lua")
Include("\\dulieu\\tranhvlmc_hd.lua")
Include("\\dulieu\\tranhvlmc_bd.lua")
Include("\\dulieu\\tranhvlmc_ld.lua")
Include("\\script\\source\\sourcejx49.lua")
function main()
if GetLevel() >= 90 then
if GetFaction() ~= "" then
if GetTask(1) == 0 and GetTask(2) == 0 and GetTask(3) == 0 and GetTask(4) == 0 and GetTask(5) == 0 and GetTask(6) == 0 and GetTask(7) == 0 and GetTask(8) == 0 and GetTask(9) == 0 and GetTask(10) == 0 then
SetTask(42,0)
SetRank(32)
SetCamp(4)
SetCurCamp(4)
end
end
for i=1,getn(danhsachbachdao) do
songuoibd = i
if GetUUID() == danhsachbachdao[i][7] then
SetTask(42,1)
chucvubd = danhsachbachdao[i][6]
SetCamp(1)
SetCurCamp(1)
capnhat()
end
end
for i=1,getn(danhsachhacdao) do
songuoihd = i
if GetUUID() == danhsachhacdao[i][7] then
SetTask(42,2)
chucvuhd = danhsachhacdao[i][6]
SetCamp(2)
SetCurCamp(2)
capnhat()
end
end
for i=1,getn(danhsachluongdao) do
songuoild = i
if GetUUID() == danhsachluongdao[i][7] then
SetTask(42,3)
chucvuld = danhsachluongdao[i][6]
SetCamp(3)
SetCurCamp(3)
capnhat()
end
end
if GetTask(42) == 1 then
kiemtra = thi_dau_bd
elseif GetTask(42) == 2 then
kiemtra = thi_dau_hd
elseif GetTask(42) == 3 then
kiemtra = thi_dau_ld
end
if timestart() == 1 then
if GetTask(42) == 0 then
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Thien Ha Loan The Chia Thanh <color=red>3<color> Nguoi Muon Gia Nhap Vao ? Muon Gia Nhap Phai Ton <color=yellow>5<color> Van Luong !",
"Hac Dao/gianhaphacdao",
"Bach Dao/gianhapbachdao",
"Luong Dao/gianhapluongdao",
"Thoat/Exit"})
elseif GetTask(42) >= 1 then
a = getn(kiemtra)
if a < 1 then
a = 1
end
for i=1,a do
if kiemtra[i] == nil or GetUUID() ~= kiemtra[i][7] then
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Hien Tai La Thoi Diem Bao Danh Tranh Ngoi Vo Lam Minh Chu Nguoi Muon Tham Gia Khong ?",
"Tranh VLMC Bach Dao/tranhvlmc",
"Tranh VLMC Hac Dao/tranhvlmc",
"Tranh VLMC Luong Dao/tranhvlmc",
"Vao Hoi Truong Thi Dau/gohoitruong",
"Tim Hieu Dieu Kien/timhieuxv",
"Thoat/Exit"})
elseif GetUUID() == kiemtra[i][7] then
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Hien Tai La Nguoi Da Bao Danh Tranh Ngoi Vo Lam Minh Chu Nguoi Muon Vao Hoi Truong ?",
"Vao Hoi Truong Thi Dau/gohoitruong",
"Thoat/Exit"})
end
end
end
elseif timestart() == 2 then
if GetTask(42) == 0 then
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Thien Ha Loan The Chia Thanh <color=red>3<color> Nguoi Muon Gia Nhap Vao ? Muon Gia Nhap Phai Ton <color=yellow>5<color> Van Luong !",
"Hac Dao/gianhaphacdao",
"Bach Dao/gianhapbachdao",
"Luong Dao/gianhapluongdao",
"Thoat/Exit"})
elseif GetTask(42) == 1 then
Say("<color=red>Minh Chu Bach Dao: "..minhchubachdao[1][1].."<color>\n<color=yellow>So Nguoi Trong Bach Dao: "..songuoibd.." Nguoi\nDiem Cong Hien Ban Than: "..GetTask(41).."\nChuc Vu: "..chucvubd.."\nNgan Quy: "..GetGlbMissionV(22).." Van\nKhu Vuc Lanh Dia Thuoc Ve: "..quyensohuu[1][1].."",6,"Ta muon ly khai/lykhai","Tim Hieu/timhieu","Vao Lanh Dia/golanhdia","Cong Nap Tien/congnap","Cap Nhat Thong Tin/capnhat","Thoat./Exit")
elseif GetTask(42) == 2 then
Say("<color=red>Minh Chu Hac Dao: "..minhchuhacdao[1][1].."<color>\n<color=yellow>So Nguoi Trong Hac Dao: "..songuoihd.." Nguoi\nDiem Cong Hien Ban Than: "..GetTask(41).."\nChuc Vu: "..chucvuhd.."\nNgan Quy: "..GetGlbMissionV(23).." Van\nKhu Vuc Huu Lanh Dia Thuoc Ve: "..quyensohuu[1][2].."",6,"Ta muon ly khai/lykhai","Tim Hieu/timhieu","Vao Lanh Dia/golanhdia","Cong Nap Tien/congnap","Cap Nhat Thong Tin/capnhat","Thoat./Exit")
elseif GetTask(42) == 3 then
Say("<color=red>Minh Chu Luong Dao: "..minhchuluongdao[1][1].."<color>\n<color=yellow>So Nguoi Trong Luong Dao: "..songuoild.." Nguoi\nDiem Cong Hien Ban Than: "..GetTask(41).."\nChuc Vu: "..chucvuld.."\nNgan Quy: "..GetGlbMissionV(24).." Van\nKhu Vuc Huu Lanh Dia Thuoc Ve: "..quyensohuu[1][3].."",6,"Ta muon ly khai/lykhai","Tim Hieu/timhieu","Vao Lanh Dia/golanhdia","Cong Nap Tien/congnap","Cap Nhat Thong Tin/capnhat","Thoat./Exit")
end
end
else
Msg2Player("Dang Cap Tren 90 Moi Co The Gia Nhap Hac-Bach-Luong Dao !")
end
end
function gohoitruong()
if GetTask(42) == 1 then
solanlap = thi_dau_bd
maps = 19
elseif GetTask(42) == 2 then
solanlap = thi_dau_hd
maps = 20
elseif GetTask(42) == 3 then
solanlap = thi_dau_ld
maps = 21
end
for i=1,getn(solanlap) do
if GetUUID() == (solanlap[i][7]) then
NewWorld(maps,1624+random(-2,2),random(-2,2)+3264) -- 203,204
Msg2Player("Ban Da Vao Dau Truong !")
end
end
end
function golanhdia()
if GetTask(42) == 1 then
gobachdao()
elseif GetTask(42) == 2 then
gohacdao()
elseif GetTask(42) == 3 then
goluongdao()
end
end
function tranhvlmc()
if GetTask(42) == 1 then
solanlap2 = danhsachbachdao
solanlap = thi_dau_bd
dulieu = "thi_dau_bd"
data = "dulieu/tranhvlmc_bd.lua"
elseif GetTask(42) == 2 then
solanlap2 = danhsachhacdao
solanlap = thi_dau_hd
dulieu = "thi_dau_hd"
data = "dulieu/tranhvlmc_hd.lua"
elseif GetTask(42) == 3 then
solanlap2 = danhsachluongdao
solanlap = thi_dau_ld
dulieu = "thi_dau_ld"
data = "dulieu/tranhvlmc_ld.lua"
end
if GetTask(42) >= 1 then
for i=1,getn(solanlap2) do
if GetUUID() == (solanlap2[i][7]) then
if GetTask(197) >= 2 and GetTask(41) >= 200 and GetRepute() >= 100 and GetTask(12) >= 200 and GetCash() >= 1000000 then
Pay(1000000)
solanlap[getn(solanlap)+1] = {solanlap2[i][1],solanlap2[i][2],solanlap2[i][3],solanlap2[i][4],solanlap2[i][5],solanlap2[i][6],solanlap2[i][7]} --Thong Tin
danhsach = TaoBang(solanlap,dulieu,"")
SaveData(data,danhsach)
Talk(1,"","<color=cyan>Vo Lam Chi Ton:<color> Truoc <color=red>19h25<color> Nguoi Phai Gap Ta De Vao Hoi Truong Neu Khong Se Bi Huy Quyen Tranh Ba ! Tran Dau Dien Ra Vao Luc <color=yellow>19h30<color> !")
Msg2Player("Ban Dang Ky Tranh Ngoi Minh Chu Thanh Cong !")
else
Msg2Player("Ban Chua Du Dieu Kien Tham Gia Doat Ngoi Vo Lam Minh Chu Vui Long Tim Hieu Dieu Kien !")
end
end
end
else
Msg2Player("Ban Khong Phai La Nguoi Cua Hac Bach Luong Dao Khong Nen Bon Chen Tai Noi Day !")
end
end
function gianhaphacdao()
if GetCash() >= 50000 then
if GetTask(1) == 0 and GetTask(2) == 0 and GetTask(3) == 0 and GetTask(4) == 0 and GetTask(5) == 0 and GetTask(6) == 0 and GetTask(7) == 0 and GetTask(8) == 0 and GetTask(9) == 0 and GetTask(10) == 0 and GetCamp() == 4 and GetRank() == 32 then
SetTask(42,2)
SetRank(18)
Pay(50000)
danhsachhacdao[getn(danhsachhacdao)+1] = {GetName(),GetLevel(),GetTask(197),GetRepute(),Get Task(41),"De Tu",GetUUID()} --Thong Tin
danhsach = TaoBang(danhsachhacdao,"danhsachhacdao","")
SaveData("dulieu/listhacdao.lua",danhsach)
SetCamp(2)
SetCurCamp(2)
Msg2SubWorld(" <<"..GetName()..">> Da Gia Nhap Hac Dao !")
else
Msg2Player("Ban Can Phai Xuat Su Moi Co The Gia Nhap Hac Dao !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi ! ")
end
end
function gianhapbachdao()
if GetCash() >= 50000 then
if GetTask(1) == 0 and GetTask(2) == 0 and GetTask(3) == 0 and GetTask(4) == 0 and GetTask(5) == 0 and GetTask(6) == 0 and GetTask(7) == 0 and GetTask(8) == 0 and GetTask(9) == 0 and GetTask(10) == 0 and GetCamp() == 4 and GetRank() == 32 then
SetTask(42,1)
SetRank(11)
Pay(50000)
danhsachbachdao[getn(danhsachbachdao)+1] = {GetName(),GetLevel(),GetTask(197),GetRepute(),Get Task(41),"De Tu",GetUUID()} --Thong Tin
danhsach = TaoBang(danhsachbachdao,"danhsachbachdao","")
SaveData("dulieu/listbachdao.lua",danhsach)
SetCamp(1)
SetCurCamp(1)
Msg2SubWorld(" <<"..GetName()..">> Da Gia Nhap Bach Dao !")
else
Msg2Player("Ban Can Phai Xuat Su Moi Co The Gia Nhap Bach Dao !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi ! ")
end
end
function gianhapluongdao()
if GetCash() >= 50000 then
if GetTask(1) == 0 and GetTask(2) == 0 and GetTask(3) == 0 and GetTask(4) == 0 and GetTask(5) == 0 and GetTask(6) == 0 and GetTask(7) == 0 and GetTask(8) == 0 and GetTask(9) == 0 and GetTask(10) == 0 and GetCamp() == 4 and GetRank() == 32 then
SetTask(42,3)
SetRank(25)
Pay(50000)
danhsachluongdao[getn(danhsachluongdao)+1] = {GetName(),GetLevel(),GetTask(197),GetRepute(),Get Task(41),"De Tu",GetUUID()} --Thong Tin
danhsach = TaoBang(danhsachluongdao,"danhsachluongdao","")
SaveData("dulieu/listluongdao.lua",danhsach)
SetCamp(3)
SetCurCamp(3)
Msg2SubWorld(" <<"..GetName()..">> Da Gia Nhap Luong Dao !")
else
Msg2Player("Ban Can Phai Xuat Su Moi Co The Gia Nhap Luong Dao !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi ! ")
end
end
function capnhat()
if GetTask(42) == 1 then
solanlap = danhsachbachdao
solanlap3 = minhchubachdao
dulieu = "dulieu/listbachdao.lua"
solanlap2 = "danhsachbachdao"
rankld = 11
elseif GetTask(42) == 2 then
solanlap = danhsachhacdao
solanlap3 = minhchuhacdao
dulieu = "dulieu/listhacdao.lua"
solanlap2 = "danhsachhacdao"
rankld = 18
elseif GetTask(42) == 3 then
solanlap = danhsachluongdao
solanlap3 = minhchuluongdao
dulieu = "dulieu/listluongdao.lua"
solanlap2 = "danhsachluongdao"
rankld = 25
end
for i=1,getn(solanlap) do
if GetUUID() == (solanlap[i][7]) then
vitri = i
end
end
lv = GetLevel()
cs = GetTask(197)
dv = GetRepute()
conghien = GetTask(41)
if GetTask(41) < 200 then
chucvu = "De Tu"
rank = rankld + 0
elseif GetTask(41) >= 200 and GetTask(41) < 2000 then
chucvu = "Duong Chu"
rank = rankld + 1
elseif GetTask(41) >= 2000 and GetTask(41) < 5000 then
chucvu = "Ta Su"
rank = rankld + 2
elseif GetTask(41) >= 5000 and GetTask(41) < 8000 then
chucvu = "Huu Su"
rank = rankld + 3
elseif GetTask(41) >= 8000 and GetTask(41) < 15000 then
chucvu = "Truong Lao"
rank = rankld + 4
elseif GetTask(41) >= 15000 then
chucvu = "Pho Cung Chu"
rank = rankld + 5
end
if solanlap[vitri][7] == solanlap3[1][7] then
danhsach = TaoBang(solanlap,solanlap2,"")
solanlap[vitri][2] = lv
solanlap[vitri][3] = cs
solanlap[vitri][4] = dv
solanlap[vitri][5] = conghien
SaveData(dulieu,danhsach)
else
danhsach = TaoBang(solanlap,solanlap2,"")
solanlap[vitri][2] = lv
solanlap[vitri][3] = cs
solanlap[vitri][4] = dv
solanlap[vitri][5] = conghien
solanlap[vitri][6] = chucvu
SaveData(dulieu,danhsach)
SetRank(rank)
end
end
function congnap()
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Nguoi Muon Cong Hien Bao Nhieu Ngan Luong ?",
"100 Van/ch1",
"500 Van/ch2",
"1000 Van/ch3",
"2000 Van/ch4",
"5000 Van/ch5",
"Thoat/Exit"})
end
function ch1()
if GetTask(42) == 1 then
idmoney = 22
elseif GetTask(42) == 2 then
idmoney = 23
elseif GetTask(42) == 3 then
idmoney = 24
end
a = GetCash()
if GetCash() >= 1000000 then
Pay(1000000)
if GetCash() == a - 1000000 then
SetGlbMissionV(idmoney,GetGlbMissionV(idmoney)+100 )
SetTask(41,GetTask(41)+3)
Msg2Player("Ban Da Cong Hien 100v Cho Lanh Dia !")
Msg2Player("Diem Cong Hien Cua Ban Tang Len 3 Diem")
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
end
function ch2()
if GetTask(42) == 1 then
idmoney = 22
elseif GetTask(42) == 2 then
idmoney = 23
elseif GetTask(42) == 3 then
idmoney = 24
end
a = GetCash()
if GetCash() >= 5000000 then
Pay(5000000)
if GetCash() == a - 5000000 then
SetGlbMissionV(idmoney,GetGlbMissionV(idmoney)+500 )
SetTask(41,GetTask(41)+20)
Msg2Player("Ban Da Cong Hien 500v Cho Lanh Dia !")
Msg2Player("Diem Cong Hien Cua Ban Tang Len 20 Diem")
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
end
function ch3()
if GetTask(42) == 1 then
idmoney = 22
elseif GetTask(42) == 2 then
idmoney = 23
elseif GetTask(42) == 3 then
idmoney = 24
end
a = GetCash()
if GetCash() >= 10000000 then
Pay(10000000)
if GetCash() == a - 10000000 then
SetGlbMissionV(idmoney,GetGlbMissionV(idmoney)+100 0)
SetTask(41,GetTask(41)+40)
Msg2Player("Ban Da Cong Hien 1kv Cho Lanh Dia !")
Msg2Player("Diem Cong Hien Cua Ban Tang Len 40 Diem")
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
end
function ch4()
if GetTask(42) == 1 then
idmoney = 22
elseif GetTask(42) == 2 then
idmoney = 23
elseif GetTask(42) == 3 then
idmoney = 24
end
a = GetCash()
if GetCash() >= 20000000 then
Pay(20000000)
if GetCash() == a - 20000000 then
SetGlbMissionV(idmoney,GetGlbMissionV(idmoney)+200 0)
SetTask(41,GetTask(41)+85)
Msg2Player("Ban Da Cong Hien 2kv Cho Lanh Dia !")
Msg2Player("Diem Cong Hien Cua Ban Tang Len 85 Diem")
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
end
function ch5()
if GetTask(42) == 1 then
idmoney = 22
elseif GetTask(42) == 2 then
idmoney = 23
elseif GetTask(42) == 3 then
idmoney = 24
end
a = GetCash()
if GetCash() >= 50000000 then
Pay(50000000)
if GetCash() == a - 50000000 then
SetGlbMissionV(idmoney,GetGlbMissionV(idmoney)+500 0)
SetTask(41,GetTask(41)+210)
Msg2Player("Ban Da Cong Hien 5kv Cho Lanh Dia !")
Msg2Player("Diem Cong Hien Cua Ban Tang Len 210 Diem")
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
end
function lykhai()
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Ly Khai Se Bi Mat Toan Bo <color=red>Diem Cong Hien<color> Nguoi Suy Nghi Ky Chua ?",
"Ta Suy Nghi Ky Roi/yeslykhai",
"De Ta Suy Nghi Lai/Exit"})
end
function yeslykhai()
if GetTask(42) == 1 then
solanlap = danhsachbachdao
dulieu = "dulieu/listbachdao.lua"
solanlap2 = "danhsachbachdao"
elseif GetTask(42) == 2 then
solanlap = danhsachhacdao
dulieu = "dulieu/listhacdao.lua"
solanlap2 = "danhsachhacdao"
elseif GetTask(42) == 3 then
solanlap = danhsachluongdao
dulieu = "dulieu/listluongdao.lua"
solanlap2 = "danhsachluongdao"
end
vitri = getn(solanlap)
for i=1,getn(solanlap) do
if GetUUID() == (solanlap[i][7]) then
solanlap[i][1] = solanlap[vitri][1]
solanlap[i][2] = solanlap[vitri][2]
solanlap[i][3] = solanlap[vitri][3]
solanlap[i][4] = solanlap[vitri][4]
solanlap[i][5] = solanlap[vitri][5]
solanlap[i][6] = solanlap[vitri][6]
solanlap[i][7] = solanlap[vitri][7]
danhsach = TaoBang(solanlap,solanlap2,"")
SaveData(dulieu,danhsach)
end
end
solanlap[vitri] = nil
danhsach = TaoBang(solanlap,solanlap2,"")
SaveData(dulieu,danhsach)
SetTask(42,0)
SetTask(41,0)
SetCamp(4)
SetCurCamp(4)
SetRank(32)
Msg2Player(" Ban Da Ly Khai Khoi Lanh Dia Thanh Cong !")
end
function timhieu()
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Nguoi Muon Biet Ve Chuyen Gi ?",
"Tim Hieu Chuc Vu/timhieucv",
"Tim Hieu Xung Vuong/timhieuxv",
"Cach Tang Diem Cong Hien/timhieuch",
"Thoat/Exit"})
end
function timhieucv()
Say("<color=cyan>Vo Lam Chi Ton:<color>\tKhi Vao Lanh Dia De Tang Chuc Vu Ta Can:\n200 Diem Cong Hien: <<Duong Chu>>\n2000 Diem Cong Hien: <<Ta Su>>\n5000 Diem Cong Hien: <<Huu Su>>\n8000 Diem Cong Hien: <<Truong Lao>>\nTren 15000 Diem Cong Hien Se La <color=red><<Pho Cung Chu>><color> !",1,"Quyen Han/tieptheo1")
end
function tieptheo1()
Say("Chuc Vu Cang Cao Cang Co Quyen:\n<color=yellow><<Duong Chu>>: Co Quyen Mua Lenh Bai\n<<Ta Su>>: x2 Tien Va Exp Khi Train\n<<Huu Su>>: x3 Tien Va Exp Khi Train\n<<Truong Lao>>: x4 Tien Va Exp Khi Train\n<<Pho Cung Chu>>: x5 Tien Va Exp Khi Train !",1,"Thoat/Exit")
end
function timhieuxv()
Say("<color=cyan>Vo Lam Chi Ton:<color>\tDe Duoc Lam Vo Lam Minh Chu Can Phai:\n<color=yellow>Diem Cong Hien: Tren 200\nSo Lan Chuyen Sinh: Tren 2 Lan\nPhuc Duyen: Tren 200\nDanh Vong: Tren 100\nPhi Bao Danh: 100 Van !",1,"Chi Tiet/tieptheo2")
end
function tieptheo2()
Talk(1,"","Tranh Minh Chu Dien Ra Hang Ngay Luc <color=water>19h<color> Thoi Gian Bao Danh <color=yellow>20<color> Phut Ta Se La Nguoi Phu Trach !")
end
function timhieuch()
Talk(1,"","De Tang Diem Cong Hien Nguoi Phai:\n<color=blue>Cong Hien Tien Cho Lanh Dia\n<color=yellow>Lam Nhiem Vu Tren Khu Vuc Cua Lanh Dia !")
end
---------------------------------------------------BIG BANG HAM HO TRO ALL SCRIPT---------------------------------------
function timestart()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
if gio == 19 and phut < 25 then
return 1
else
return 2
end
end
---Author: Ohishu
--------Big Bang Script New For JX Private
----Thay The Cho Bang Hoi Se Tao Nen 1 Cot Truyen Cho Game !
Include("\\script\\startup_remix.lua")
Include("\\dulieu\\quyensohuu.lua")
Include("\\dulieu\\minhchu_bd.lua")
Include("\\dulieu\\minhchu_hd.lua")
Include("\\dulieu\\minhchu_ld.lua")
Include("\\dulieu\\listbachdao.lua")
Include("\\dulieu\\listhacdao.lua")
Include("\\dulieu\\listluongdao.lua")
Include("\\dulieu\\tranhvlmc_hd.lua")
Include("\\dulieu\\tranhvlmc_bd.lua")
Include("\\dulieu\\tranhvlmc_ld.lua")
Include("\\script\\source\\sourcejx49.lua")
function main()
if GetLevel() >= 90 then
if GetFaction() ~= "" then
if GetTask(1) == 0 and GetTask(2) == 0 and GetTask(3) == 0 and GetTask(4) == 0 and GetTask(5) == 0 and GetTask(6) == 0 and GetTask(7) == 0 and GetTask(8) == 0 and GetTask(9) == 0 and GetTask(10) == 0 then
SetTask(42,0)
SetRank(32)
SetCamp(4)
SetCurCamp(4)
end
end
for i=1,getn(danhsachbachdao) do
songuoibd = i
if GetUUID() == danhsachbachdao[i][7] then
SetTask(42,1)
chucvubd = danhsachbachdao[i][6]
SetCamp(1)
SetCurCamp(1)
capnhat()
end
end
for i=1,getn(danhsachhacdao) do
songuoihd = i
if GetUUID() == danhsachhacdao[i][7] then
SetTask(42,2)
chucvuhd = danhsachhacdao[i][6]
SetCamp(2)
SetCurCamp(2)
capnhat()
end
end
for i=1,getn(danhsachluongdao) do
songuoild = i
if GetUUID() == danhsachluongdao[i][7] then
SetTask(42,3)
chucvuld = danhsachluongdao[i][6]
SetCamp(3)
SetCurCamp(3)
capnhat()
end
end
if GetTask(42) == 1 then
kiemtra = thi_dau_bd
elseif GetTask(42) == 2 then
kiemtra = thi_dau_hd
elseif GetTask(42) == 3 then
kiemtra = thi_dau_ld
end
if timestart() == 1 then
if GetTask(42) == 0 then
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Thien Ha Loan The Chia Thanh <color=red>3<color> Nguoi Muon Gia Nhap Vao ? Muon Gia Nhap Phai Ton <color=yellow>5<color> Van Luong !",
"Hac Dao/gianhaphacdao",
"Bach Dao/gianhapbachdao",
"Luong Dao/gianhapluongdao",
"Thoat/Exit"})
elseif GetTask(42) >= 1 then
a = getn(kiemtra)
if a < 1 then
a = 1
end
for i=1,a do
if kiemtra[i] == nil or GetUUID() ~= kiemtra[i][7] then
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Hien Tai La Thoi Diem Bao Danh Tranh Ngoi Vo Lam Minh Chu Nguoi Muon Tham Gia Khong ?",
"Tranh VLMC Bach Dao/tranhvlmc",
"Tranh VLMC Hac Dao/tranhvlmc",
"Tranh VLMC Luong Dao/tranhvlmc",
"Vao Hoi Truong Thi Dau/gohoitruong",
"Tim Hieu Dieu Kien/timhieuxv",
"Thoat/Exit"})
elseif GetUUID() == kiemtra[i][7] then
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Hien Tai La Nguoi Da Bao Danh Tranh Ngoi Vo Lam Minh Chu Nguoi Muon Vao Hoi Truong ?",
"Vao Hoi Truong Thi Dau/gohoitruong",
"Thoat/Exit"})
end
end
end
elseif timestart() == 2 then
if GetTask(42) == 0 then
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Thien Ha Loan The Chia Thanh <color=red>3<color> Nguoi Muon Gia Nhap Vao ? Muon Gia Nhap Phai Ton <color=yellow>5<color> Van Luong !",
"Hac Dao/gianhaphacdao",
"Bach Dao/gianhapbachdao",
"Luong Dao/gianhapluongdao",
"Thoat/Exit"})
elseif GetTask(42) == 1 then
Say("<color=red>Minh Chu Bach Dao: "..minhchubachdao[1][1].."<color>\n<color=yellow>So Nguoi Trong Bach Dao: "..songuoibd.." Nguoi\nDiem Cong Hien Ban Than: "..GetTask(41).."\nChuc Vu: "..chucvubd.."\nNgan Quy: "..GetGlbMissionV(22).." Van\nKhu Vuc Lanh Dia Thuoc Ve: "..quyensohuu[1][1].."",6,"Ta muon ly khai/lykhai","Tim Hieu/timhieu","Vao Lanh Dia/golanhdia","Cong Nap Tien/congnap","Cap Nhat Thong Tin/capnhat","Thoat./Exit")
elseif GetTask(42) == 2 then
Say("<color=red>Minh Chu Hac Dao: "..minhchuhacdao[1][1].."<color>\n<color=yellow>So Nguoi Trong Hac Dao: "..songuoihd.." Nguoi\nDiem Cong Hien Ban Than: "..GetTask(41).."\nChuc Vu: "..chucvuhd.."\nNgan Quy: "..GetGlbMissionV(23).." Van\nKhu Vuc Huu Lanh Dia Thuoc Ve: "..quyensohuu[1][2].."",6,"Ta muon ly khai/lykhai","Tim Hieu/timhieu","Vao Lanh Dia/golanhdia","Cong Nap Tien/congnap","Cap Nhat Thong Tin/capnhat","Thoat./Exit")
elseif GetTask(42) == 3 then
Say("<color=red>Minh Chu Luong Dao: "..minhchuluongdao[1][1].."<color>\n<color=yellow>So Nguoi Trong Luong Dao: "..songuoild.." Nguoi\nDiem Cong Hien Ban Than: "..GetTask(41).."\nChuc Vu: "..chucvuld.."\nNgan Quy: "..GetGlbMissionV(24).." Van\nKhu Vuc Huu Lanh Dia Thuoc Ve: "..quyensohuu[1][3].."",6,"Ta muon ly khai/lykhai","Tim Hieu/timhieu","Vao Lanh Dia/golanhdia","Cong Nap Tien/congnap","Cap Nhat Thong Tin/capnhat","Thoat./Exit")
end
end
else
Msg2Player("Dang Cap Tren 90 Moi Co The Gia Nhap Hac-Bach-Luong Dao !")
end
end
function gohoitruong()
if GetTask(42) == 1 then
solanlap = thi_dau_bd
maps = 19
elseif GetTask(42) == 2 then
solanlap = thi_dau_hd
maps = 20
elseif GetTask(42) == 3 then
solanlap = thi_dau_ld
maps = 21
end
for i=1,getn(solanlap) do
if GetUUID() == (solanlap[i][7]) then
NewWorld(maps,1624+random(-2,2),random(-2,2)+3264) -- 203,204
Msg2Player("Ban Da Vao Dau Truong !")
end
end
end
function golanhdia()
if GetTask(42) == 1 then
gobachdao()
elseif GetTask(42) == 2 then
gohacdao()
elseif GetTask(42) == 3 then
goluongdao()
end
end
function tranhvlmc()
if GetTask(42) == 1 then
solanlap2 = danhsachbachdao
solanlap = thi_dau_bd
dulieu = "thi_dau_bd"
data = "dulieu/tranhvlmc_bd.lua"
elseif GetTask(42) == 2 then
solanlap2 = danhsachhacdao
solanlap = thi_dau_hd
dulieu = "thi_dau_hd"
data = "dulieu/tranhvlmc_hd.lua"
elseif GetTask(42) == 3 then
solanlap2 = danhsachluongdao
solanlap = thi_dau_ld
dulieu = "thi_dau_ld"
data = "dulieu/tranhvlmc_ld.lua"
end
if GetTask(42) >= 1 then
for i=1,getn(solanlap2) do
if GetUUID() == (solanlap2[i][7]) then
if GetTask(197) >= 2 and GetTask(41) >= 200 and GetRepute() >= 100 and GetTask(12) >= 200 and GetCash() >= 1000000 then
Pay(1000000)
solanlap[getn(solanlap)+1] = {solanlap2[i][1],solanlap2[i][2],solanlap2[i][3],solanlap2[i][4],solanlap2[i][5],solanlap2[i][6],solanlap2[i][7]} --Thong Tin
danhsach = TaoBang(solanlap,dulieu,"")
SaveData(data,danhsach)
Talk(1,"","<color=cyan>Vo Lam Chi Ton:<color> Truoc <color=red>19h25<color> Nguoi Phai Gap Ta De Vao Hoi Truong Neu Khong Se Bi Huy Quyen Tranh Ba ! Tran Dau Dien Ra Vao Luc <color=yellow>19h30<color> !")
Msg2Player("Ban Dang Ky Tranh Ngoi Minh Chu Thanh Cong !")
else
Msg2Player("Ban Chua Du Dieu Kien Tham Gia Doat Ngoi Vo Lam Minh Chu Vui Long Tim Hieu Dieu Kien !")
end
end
end
else
Msg2Player("Ban Khong Phai La Nguoi Cua Hac Bach Luong Dao Khong Nen Bon Chen Tai Noi Day !")
end
end
function gianhaphacdao()
if GetCash() >= 50000 then
if GetTask(1) == 0 and GetTask(2) == 0 and GetTask(3) == 0 and GetTask(4) == 0 and GetTask(5) == 0 and GetTask(6) == 0 and GetTask(7) == 0 and GetTask(8) == 0 and GetTask(9) == 0 and GetTask(10) == 0 and GetCamp() == 4 and GetRank() == 32 then
SetTask(42,2)
SetRank(18)
Pay(50000)
danhsachhacdao[getn(danhsachhacdao)+1] = {GetName(),GetLevel(),GetTask(197),GetRepute(),Get Task(41),"De Tu",GetUUID()} --Thong Tin
danhsach = TaoBang(danhsachhacdao,"danhsachhacdao","")
SaveData("dulieu/listhacdao.lua",danhsach)
SetCamp(2)
SetCurCamp(2)
Msg2SubWorld(" <<"..GetName()..">> Da Gia Nhap Hac Dao !")
else
Msg2Player("Ban Can Phai Xuat Su Moi Co The Gia Nhap Hac Dao !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi ! ")
end
end
function gianhapbachdao()
if GetCash() >= 50000 then
if GetTask(1) == 0 and GetTask(2) == 0 and GetTask(3) == 0 and GetTask(4) == 0 and GetTask(5) == 0 and GetTask(6) == 0 and GetTask(7) == 0 and GetTask(8) == 0 and GetTask(9) == 0 and GetTask(10) == 0 and GetCamp() == 4 and GetRank() == 32 then
SetTask(42,1)
SetRank(11)
Pay(50000)
danhsachbachdao[getn(danhsachbachdao)+1] = {GetName(),GetLevel(),GetTask(197),GetRepute(),Get Task(41),"De Tu",GetUUID()} --Thong Tin
danhsach = TaoBang(danhsachbachdao,"danhsachbachdao","")
SaveData("dulieu/listbachdao.lua",danhsach)
SetCamp(1)
SetCurCamp(1)
Msg2SubWorld(" <<"..GetName()..">> Da Gia Nhap Bach Dao !")
else
Msg2Player("Ban Can Phai Xuat Su Moi Co The Gia Nhap Bach Dao !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi ! ")
end
end
function gianhapluongdao()
if GetCash() >= 50000 then
if GetTask(1) == 0 and GetTask(2) == 0 and GetTask(3) == 0 and GetTask(4) == 0 and GetTask(5) == 0 and GetTask(6) == 0 and GetTask(7) == 0 and GetTask(8) == 0 and GetTask(9) == 0 and GetTask(10) == 0 and GetCamp() == 4 and GetRank() == 32 then
SetTask(42,3)
SetRank(25)
Pay(50000)
danhsachluongdao[getn(danhsachluongdao)+1] = {GetName(),GetLevel(),GetTask(197),GetRepute(),Get Task(41),"De Tu",GetUUID()} --Thong Tin
danhsach = TaoBang(danhsachluongdao,"danhsachluongdao","")
SaveData("dulieu/listluongdao.lua",danhsach)
SetCamp(3)
SetCurCamp(3)
Msg2SubWorld(" <<"..GetName()..">> Da Gia Nhap Luong Dao !")
else
Msg2Player("Ban Can Phai Xuat Su Moi Co The Gia Nhap Luong Dao !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi ! ")
end
end
function capnhat()
if GetTask(42) == 1 then
solanlap = danhsachbachdao
solanlap3 = minhchubachdao
dulieu = "dulieu/listbachdao.lua"
solanlap2 = "danhsachbachdao"
rankld = 11
elseif GetTask(42) == 2 then
solanlap = danhsachhacdao
solanlap3 = minhchuhacdao
dulieu = "dulieu/listhacdao.lua"
solanlap2 = "danhsachhacdao"
rankld = 18
elseif GetTask(42) == 3 then
solanlap = danhsachluongdao
solanlap3 = minhchuluongdao
dulieu = "dulieu/listluongdao.lua"
solanlap2 = "danhsachluongdao"
rankld = 25
end
for i=1,getn(solanlap) do
if GetUUID() == (solanlap[i][7]) then
vitri = i
end
end
lv = GetLevel()
cs = GetTask(197)
dv = GetRepute()
conghien = GetTask(41)
if GetTask(41) < 200 then
chucvu = "De Tu"
rank = rankld + 0
elseif GetTask(41) >= 200 and GetTask(41) < 2000 then
chucvu = "Duong Chu"
rank = rankld + 1
elseif GetTask(41) >= 2000 and GetTask(41) < 5000 then
chucvu = "Ta Su"
rank = rankld + 2
elseif GetTask(41) >= 5000 and GetTask(41) < 8000 then
chucvu = "Huu Su"
rank = rankld + 3
elseif GetTask(41) >= 8000 and GetTask(41) < 15000 then
chucvu = "Truong Lao"
rank = rankld + 4
elseif GetTask(41) >= 15000 then
chucvu = "Pho Cung Chu"
rank = rankld + 5
end
if solanlap[vitri][7] == solanlap3[1][7] then
danhsach = TaoBang(solanlap,solanlap2,"")
solanlap[vitri][2] = lv
solanlap[vitri][3] = cs
solanlap[vitri][4] = dv
solanlap[vitri][5] = conghien
SaveData(dulieu,danhsach)
else
danhsach = TaoBang(solanlap,solanlap2,"")
solanlap[vitri][2] = lv
solanlap[vitri][3] = cs
solanlap[vitri][4] = dv
solanlap[vitri][5] = conghien
solanlap[vitri][6] = chucvu
SaveData(dulieu,danhsach)
SetRank(rank)
end
end
function congnap()
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Nguoi Muon Cong Hien Bao Nhieu Ngan Luong ?",
"100 Van/ch1",
"500 Van/ch2",
"1000 Van/ch3",
"2000 Van/ch4",
"5000 Van/ch5",
"Thoat/Exit"})
end
function ch1()
if GetTask(42) == 1 then
idmoney = 22
elseif GetTask(42) == 2 then
idmoney = 23
elseif GetTask(42) == 3 then
idmoney = 24
end
a = GetCash()
if GetCash() >= 1000000 then
Pay(1000000)
if GetCash() == a - 1000000 then
SetGlbMissionV(idmoney,GetGlbMissionV(idmoney)+100 )
SetTask(41,GetTask(41)+3)
Msg2Player("Ban Da Cong Hien 100v Cho Lanh Dia !")
Msg2Player("Diem Cong Hien Cua Ban Tang Len 3 Diem")
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
end
function ch2()
if GetTask(42) == 1 then
idmoney = 22
elseif GetTask(42) == 2 then
idmoney = 23
elseif GetTask(42) == 3 then
idmoney = 24
end
a = GetCash()
if GetCash() >= 5000000 then
Pay(5000000)
if GetCash() == a - 5000000 then
SetGlbMissionV(idmoney,GetGlbMissionV(idmoney)+500 )
SetTask(41,GetTask(41)+20)
Msg2Player("Ban Da Cong Hien 500v Cho Lanh Dia !")
Msg2Player("Diem Cong Hien Cua Ban Tang Len 20 Diem")
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
end
function ch3()
if GetTask(42) == 1 then
idmoney = 22
elseif GetTask(42) == 2 then
idmoney = 23
elseif GetTask(42) == 3 then
idmoney = 24
end
a = GetCash()
if GetCash() >= 10000000 then
Pay(10000000)
if GetCash() == a - 10000000 then
SetGlbMissionV(idmoney,GetGlbMissionV(idmoney)+100 0)
SetTask(41,GetTask(41)+40)
Msg2Player("Ban Da Cong Hien 1kv Cho Lanh Dia !")
Msg2Player("Diem Cong Hien Cua Ban Tang Len 40 Diem")
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
end
function ch4()
if GetTask(42) == 1 then
idmoney = 22
elseif GetTask(42) == 2 then
idmoney = 23
elseif GetTask(42) == 3 then
idmoney = 24
end
a = GetCash()
if GetCash() >= 20000000 then
Pay(20000000)
if GetCash() == a - 20000000 then
SetGlbMissionV(idmoney,GetGlbMissionV(idmoney)+200 0)
SetTask(41,GetTask(41)+85)
Msg2Player("Ban Da Cong Hien 2kv Cho Lanh Dia !")
Msg2Player("Diem Cong Hien Cua Ban Tang Len 85 Diem")
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
end
function ch5()
if GetTask(42) == 1 then
idmoney = 22
elseif GetTask(42) == 2 then
idmoney = 23
elseif GetTask(42) == 3 then
idmoney = 24
end
a = GetCash()
if GetCash() >= 50000000 then
Pay(50000000)
if GetCash() == a - 50000000 then
SetGlbMissionV(idmoney,GetGlbMissionV(idmoney)+500 0)
SetTask(41,GetTask(41)+210)
Msg2Player("Ban Da Cong Hien 5kv Cho Lanh Dia !")
Msg2Player("Diem Cong Hien Cua Ban Tang Len 210 Diem")
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
else
Msg2Player("Khong Tim Thay Ngan Luong Trong Nguoi !")
end
end
function lykhai()
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Ly Khai Se Bi Mat Toan Bo <color=red>Diem Cong Hien<color> Nguoi Suy Nghi Ky Chua ?",
"Ta Suy Nghi Ky Roi/yeslykhai",
"De Ta Suy Nghi Lai/Exit"})
end
function yeslykhai()
if GetTask(42) == 1 then
solanlap = danhsachbachdao
dulieu = "dulieu/listbachdao.lua"
solanlap2 = "danhsachbachdao"
elseif GetTask(42) == 2 then
solanlap = danhsachhacdao
dulieu = "dulieu/listhacdao.lua"
solanlap2 = "danhsachhacdao"
elseif GetTask(42) == 3 then
solanlap = danhsachluongdao
dulieu = "dulieu/listluongdao.lua"
solanlap2 = "danhsachluongdao"
end
vitri = getn(solanlap)
for i=1,getn(solanlap) do
if GetUUID() == (solanlap[i][7]) then
solanlap[i][1] = solanlap[vitri][1]
solanlap[i][2] = solanlap[vitri][2]
solanlap[i][3] = solanlap[vitri][3]
solanlap[i][4] = solanlap[vitri][4]
solanlap[i][5] = solanlap[vitri][5]
solanlap[i][6] = solanlap[vitri][6]
solanlap[i][7] = solanlap[vitri][7]
danhsach = TaoBang(solanlap,solanlap2,"")
SaveData(dulieu,danhsach)
end
end
solanlap[vitri] = nil
danhsach = TaoBang(solanlap,solanlap2,"")
SaveData(dulieu,danhsach)
SetTask(42,0)
SetTask(41,0)
SetCamp(4)
SetCurCamp(4)
SetRank(32)
Msg2Player(" Ban Da Ly Khai Khoi Lanh Dia Thanh Cong !")
end
function timhieu()
SayEx({"<color=cyan>Vo Lam Chi Ton:<color> Nguoi Muon Biet Ve Chuyen Gi ?",
"Tim Hieu Chuc Vu/timhieucv",
"Tim Hieu Xung Vuong/timhieuxv",
"Cach Tang Diem Cong Hien/timhieuch",
"Thoat/Exit"})
end
function timhieucv()
Say("<color=cyan>Vo Lam Chi Ton:<color>\tKhi Vao Lanh Dia De Tang Chuc Vu Ta Can:\n200 Diem Cong Hien: <<Duong Chu>>\n2000 Diem Cong Hien: <<Ta Su>>\n5000 Diem Cong Hien: <<Huu Su>>\n8000 Diem Cong Hien: <<Truong Lao>>\nTren 15000 Diem Cong Hien Se La <color=red><<Pho Cung Chu>><color> !",1,"Quyen Han/tieptheo1")
end
function tieptheo1()
Say("Chuc Vu Cang Cao Cang Co Quyen:\n<color=yellow><<Duong Chu>>: Co Quyen Mua Lenh Bai\n<<Ta Su>>: x2 Tien Va Exp Khi Train\n<<Huu Su>>: x3 Tien Va Exp Khi Train\n<<Truong Lao>>: x4 Tien Va Exp Khi Train\n<<Pho Cung Chu>>: x5 Tien Va Exp Khi Train !",1,"Thoat/Exit")
end
function timhieuxv()
Say("<color=cyan>Vo Lam Chi Ton:<color>\tDe Duoc Lam Vo Lam Minh Chu Can Phai:\n<color=yellow>Diem Cong Hien: Tren 200\nSo Lan Chuyen Sinh: Tren 2 Lan\nPhuc Duyen: Tren 200\nDanh Vong: Tren 100\nPhi Bao Danh: 100 Van !",1,"Chi Tiet/tieptheo2")
end
function tieptheo2()
Talk(1,"","Tranh Minh Chu Dien Ra Hang Ngay Luc <color=water>19h<color> Thoi Gian Bao Danh <color=yellow>20<color> Phut Ta Se La Nguoi Phu Trach !")
end
function timhieuch()
Talk(1,"","De Tang Diem Cong Hien Nguoi Phai:\n<color=blue>Cong Hien Tien Cho Lanh Dia\n<color=yellow>Lam Nhiem Vu Tren Khu Vuc Cua Lanh Dia !")
end
---------------------------------------------------BIG BANG HAM HO TRO ALL SCRIPT---------------------------------------
function timestart()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
if gio == 19 and phut < 25 then
return 1
else
return 2
end
end