Bạn nào có script liên đấu nào chạy cho server của mướp hok share cho mình với . Mình cũng lấy script liên đấu của DNT để thế vào và đổi lun maps nhưng vẫn không tác dụng .
Code:
--************************************Written by Manh Tuyen********************************************--
--******************************************BEGIN****************************************************--
danhsach_account = {}
Include("\\script\\lien_dau\\liendau_head.lua")
Include("\\script\\pass\\sourcejx49.lua");

--Include("\\script\\lien_dau\\danhsach_account.lua")
--{GetName(),GetLevel(),GetTask(106),GetTask(107),GetTask(105),GetFaction()}
xaphu = {}
DS_THAMGIA_LD = {}
function main(sel)
	W,X,Y = GetWorldPos()
	if W == 31 then
		quanvienliendau()
	else
		sugiadangkyliendau()
	end
end
function sugiadangkyliendau()
if GetTask(TaskUyThac) == 0 then
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",
"Ta muon lanh phan thuong lien dau/phanthuong",
"Roi khoi/out")
else
Talk(1,"","Ban dang Uy Thac khong the tham gia Lien Dau")
end
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(31,47744/32,97440/32)
	SetFightState(0)
	SetLogoutRV(1)
	SetDeathScript("")
	SetTaskTemp(100,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)
		SetTaskTemp(100,0)
		SetTaskTemp(101,GetPK())
		SetTaskTemp(102,GetExp())
		SetPK(0)
		SetLogoutRV(1)
		SetTempRevPos(31,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,22)
	end
end
function DangKyChienDoi()
	if TimKiem(danhsach_account,GetName()) == nil then
		danhsach_account[getn(danhsach_account)+1] = {GetName(),GetLevel(),GetTask(106),GetTask(107),GetTask(105),GetFaction()}
		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("<bclr=green><color=yellow>Ban dang tham gia hoat dong Lien Dau<color><bclr>",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("<bclr=green><color=yellow>Ban dang tham gia hoat dong Lien Dau \nThoi gian thi dau con lai la: "..ThoiGianConLai().."<color><bclr>",3,
"Thong tin ca nhan/thongtincanhan",
"Bang xep hang/Xem_BangXepHang",
"Roi khoi/out")
	elseif GioLienDau() == "chua den gio" then
		Talk(1,"","<bclr=red><color=yellow>Hien tai chua den gio tham gia Lien Dau<color><bclr>")
	end
end;
--***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
function Xem_BangXepHang()
	Say("<bclr=red><color=yellow>Nguoi muon biet thong tin ve bang xep hang lien dau phai ko?<color><bclr>",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(106),GetTask(107),GetTask(105),GetFaction()}
		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(106),GetTask(107),GetTask(105),GetFaction()}
			i = nil
		end
		LeaveTeam()
		SetFightState(0)
		SetCreateTeam(0);
		SetPunish(0)
		SetTaskTemp(100,0)
		SetTaskTemp(101,GetPK())
		SetTaskTemp(102,GetExp())
		SetPK(0)
		SetLogoutRV(1)
		SetTempRevPos(31,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,22)
	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(107)
	sotranthua = GetTask(105)
	if sotranthua+sotranthang == 0 then
		tilethang = 0
	else
		tilethang = floor(sotranthang*100/(sotranthua+sotranthang))
	end
	Say("<color=yellow>"..GetName().."<color>:Level:"..GetLevel().."\nMon Phai:"..GetFaction().."\nDiem vinh du:"..GetTask(106).."\nSo tran thang:"..GetTask(107).."\nSo tran thua:"..GetTask(105).."\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(103))
	SetPunish(1)
	SetDeathScript("");
	if GetExp() < GetTaskTemp(102) then
		AddOwnExp(GetTaskTemp(102) - GetExp())
	end
	SetTask(103,0)
	SetTask(104,0)
	SetTask(105,GetTask(105)+1)
	AddOwnExp(random(5000000,10000000))
	NewWorld(31,47744/32,97440/32)
	SetLogoutRV(1)
	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(106),GetTask(107),GetTask(105),GetFaction()}
		end
	end
	StopTimer()
	--******************************************
	PlayerIndex = PlayerIndex1;------------------nguoi danh thang
	LaunName = GetName();
	SetFightState(0)
	camp = GetCamp();
	SetCurCamp(camp);
	SetCreateTeam(1);
	SetPK(GetTask(103))
	SetPunish(1)
	SetDeathScript("");
	SetTask(106,GetTask(106)+4)
	SetTask(107,GetTask(107)+1)
	NewWorld(31,47744/32,97440/32)
	SetLogoutRV(1)
	Msg2Player("Xin chuc mung ban nhan duoc them 4 diem vinh du")
	AddOwnExp(random(10000000,20000000))
	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(106),GetTask(107),GetTask(105),GetFaction()}
		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()
        idx = SubWorldID2Idx(31)
        SubWorld = idx
	
	if GetTaskTemp(100) == 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(31,47744/32,97440/32)
			SetLogoutRV(1)
			StopTimer()
			SetTaskTemp(100,0)
			SetFightState(0)
			SetPunish(0)
			SetTask(106,GetTask(106)+4)
			SetDeathScript("")
			SetTask(107,GetTask(107)+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(106),GetTask(107),GetTask(105),GetFaction()}
					break
				end
			end
			Msg2Player("Xin chuc mung! ban nhan duoc 4 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(30,DAUTRUONGPOSXY[floor(i/2)][1]*8,DAUTRUONGPOSXY[floor(i/2)][2]*16)
					SetLogoutRV(1)
					print(GetName().." vao dau truong thu "..floor(i/2))
				else
					NewWorld(30,DAUTRUONGPOSXY[floor(i/2)+1][1]*8,DAUTRUONGPOSXY[floor(i/2)+1][2]*16)
					SetLogoutRV(1)
					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,22)
		SetTaskTemp(100,1)
	elseif GetTaskTemp(100) < 11 then
		Msg2Player("Tran dau se bat dau sau "..(11-GetTaskTemp(100)).." giay!")
		SetTaskTemp(100,GetTaskTemp(100)+1)
		w,x,y = GetWorldPos()
		if w ~= 397 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
			return
		end
		if Player_Online_LD(TenDoiThu(GetName())) == "OffLine" and GetTaskTemp(100) == 10 then
			NewWorld(31,47744/32,97440/32)
			SetLogoutRV(1)
			StopTimer()
			SetTaskTemp(100,0)
			SetFightState(0)
			SetPunish(0)
			SetTask(106,GetTask(106)+4)
			SetDeathScript("")
			SetTask(107,GetTask(107)+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(106),GetTask(107),GetTask(105),GetFaction()}
					break
				end
			end
			Msg2Player("Xin chuc mung! ban nhan duoc 4 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
	elseif GetTaskTemp(100) == 11 then
		w,x,y = GetWorldPos()
		if w ~= 30 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
			return
		end
		SetTaskTemp(100,GetTaskTemp(100)+1)
		Msg2Player("Tran dau bat dau!")
		StopTimer()
		SetFightState(1)
		SetTimer(((thoigianthidau-1)*60-10)*18,22)
	else
		--Neu khong ai danh chet duoc doi thu thi se chay den doan script nay
		if GetName() == NguoiThangCuoc(GetName(),TenDoiThu(GetName())) then
			SetTask(106,GetTask(106)+4)
			SetTask(107,GetTask(107)+1)
			AddOwnExp(random(1000000,2000000))
			Msg2Player("Xin chuc mung! ban nhan duoc 4 diem vinh du")
		else
			SetTask(105,GetTask(105)+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(106),GetTask(107),GetTask(105),GetFaction()}
				break
			end
		end
		StopTimer()
		SetFightState(0)
		SetLogoutRV(1)
		SetPunish(1)
		SetCreateTeam(1)
		camp = GetCamp();
		SetCurCamp(camp);
		SetDeathScript("")
		SetTaskTemp(100,0)
		NewWorld(31,47744/32,97440/32)
		SetLogoutRV(1)
	end
end
--**************************************************************************************
function Player_Online_LD(tennhanvat)
	player1 = PlayerIndex --nguoi choi hien tai
	for i = 1,100 do
		PlayerIndex = i
			if GetName() == tennhanvat then
				W,X,Y = GetWorldPos()
				if W == 30 then
					return "OnLine"
				else
					return "OffLine"
				end
			end
	end
	return "OffLine"
end
function phanthuong()
Say("Diem vinh du cua nguoi hien tai la:<color=pink>"..GetTask(106).."<color> diem",5,
"Trang Bi An Bang - Dinh Quoc./loaiab",
--"Do Pho Bach Kim[100 diem]/abmax",
--"Bi Kiep Mon Phai 120 [50 diem]/abnb",
"Doi Lenh Bai Vinh Du./lbvd",
"Thoat/out")
end
function loaiab()
Say("<color=red>: Su Gia Lien Dau <color>: Ban muon mua loai  nao",3,
	"Key Dinh Quoc Vip./vipdq",
	"Key An Bang./vipab",
	"Thoat./out")
end;
function lbvd()
Say("<color=red> Su Gia Lien Dau<color>: Ban muon lam gi",3,
	"Doi Lenh Bai Lay Diem./diemld",
	"Mua Lenh Bai Bang Diem./mualb",
	"Thoat./out")
end;

function diemld()
Say("<color=red>Su Gia Lien DAu<color>: Ban muon doi Lenh Bai nao",4,
		"Lenh Bai Dong [ 10 diem]./thaps",
		"Lenh Bai Thiet [ 50 diem ]./trungs",
		"Lenh Bai Vang [100 diem]./caos",
		"Thoat./out")
end;


function thaps()
if GetItemCount(76) >= 1 then
SetTask(106,GetTask(106)+10)
DelItem(76)
Msg2Player("Nhan duoc 10 diem Lien Dau")
else
Talk(1,""," Can 1 Lenh Bai [ Thiet]  de doi")
end
end;


function trungs()
if GetItemCount(77) >= 1 then
SetTask(106,GetTask(106)+50)
DelItem(77)
Msg2Player("Nhan duoc 50 diem Lien Dau")
else
Talk(1,""," Can 1 Lenh Bai [Dong]  de doi")
end
end;


function caos()
if GetItemCount(78) >= 1 then
SetTask(106,GetTask(106)+100)
DelItem(78)
Msg2Player("Nhan duoc 100 diem Lien Dau")
else
Talk(1,""," Can 1 Lenh Bai [Vang]  de doi")
end
end;
















function mualb()
Say("<color=red>Su Gia Lien Dau <color>: Ban muon doi Lenh Bai nao",4,
		"Lenh Bai Dong [ Thap]./thap",
		"Lenh Bai Thiet [ Trung ]./trung",
		"Lenh Bai Vang [Cao]./cao",
		"Thoat./out")
end;
function thap()
if GetTask(106) >= 11 then
SetTask(106,GetTask(106)-11)
AddEventItem(76)
Msg2Player("Nhan duoc 1 Lenh Bai Vinh Du [Thiet]")
else
Talk(1,""," Can 11 diem Vinh Du de co the mua")
end
end;


function trung()
if GetTask(106) >= 55  then
SetTask(106,GetTask(106)-55)
AddEventItem(77)
Msg2Player("Nhan duoc 1 Lenh Bai Vinh Du [Dong]")
else
Talk(1,""," Can 55 diem Vinh Du de co the mua")
end
end
;
function cao()
if GetTask(106) >= 111 then
SetTask(106,GetTask(106)-111)
AddEventItem(78)
Msg2Player("Nhan duoc 1 Lenh Bai Vinh Du [Vang]")
else
Talk(1,""," Can 111 diem Vinh Du de co the mua")
end
end;













function vipdq()
if GetTask(106) >= 50 then
	SetTask(106,GetTask(106)-50)
AddItem(0,8,3,10,0,0,10)
AddItem(0,5,5,10,0,0,10)
AddItem(0,7,15,10,0,0,10)
AddItem(0,2,30,10,0,0,10)
AddItem(0,6,3,10,0,0,10)
Msg2Player("Nhan duoc 1 Bo An Bang - Dinh Quoc.")
else
Talk(1,""," Can 50 diem Vinh Du de co the mua trang bi Dinh Quoc")
end
end;
function vipab()
Say("<color=red>Su Gia Lien Dau:<color> O day co cac loai trang bi tran hung phuc quoc",5,
		"Nhan An Bang [Hoa]./hoa",
		"Nhan An Bang [Thuy]/thuy",
		"Ngoc boi An Bang [Moc]./moc",
		"Day Chuyen An Bang [Tho]./tho",
		"Thoat/out")
end;

function moc()
if GetTask(106) >= 30 then
	SetTask(106,GetTask(106)-30)
AddItem(0,9,3,10,0,0,10)

Msg2Player("Nhan duoc 1 mon An Bang ")
else
Talk(1,""," Can 30 diem Vinh Du de co the mua trang bi An Bang[Moc]")
end
end;


function tho()
if GetTask(106) >= 100 then
SetTask(106,GetTask(106)-100)
	AddItem(0,4,3,10,0,0,10)
Msg2Player("Nhan duoc 1 mon An Bang ")
else
Talk(1,""," Can 100 diem Vinh Du de co the mua trang bi An Bang nay")
end
end;

function hoa()
if GetTask(106) >= 50 then
	SetTask(106,GetTask(106)-50)
	AddItem(0,3,3,10,0,0,10)

Msg2Player("Nhan duoc 1 mon An Bang ")
else
Talk(1,""," Can 50 diem Vinh Du de co the mua trang bi An Bang[Hoa]")
end
end;

function thuy()
if GetTask(106) >= 50 then
	SetTask(106,GetTask(106)-50)
	AddItem(0,3,4,10,0,0,10)
Msg2Player("Nhan duoc 1 mon An Bang ")
else
Talk(1,""," Can 50 diem Vinh Du de co the mua trang bi An Bang[Thuy]")
end
end;






function abnb()
Say("Ban Muon Lay Bi Kiep Mon Phai Nao",11,"Thieu Lam/tl2","Thien Vuong/tv2","Nga Mi/nm2","Thuy Yen/ty2","Ngu Doc/nd2","Cai Bang/cb2","Thien Nhan/tn2","Con Lon/cl2","Vo Dang/vd2","Duong Mon/dm2","Thoat./no")
end;
function nm2()
if GetTask(106) >= 50 then
		SetTask(106,GetTask(106)-50)
	
AddEventItem(65)
	Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function nd2()
if GetTask(106) >= 50 then
		SetTask(106,GetTask(106)-50)
AddEventItem(66)
	Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function tl2()
if GetTask(106) >= 50 then
		SetTask(106,GetTask(106)-50)
AddEventItem(67)
	Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end

function cb2()
if GetTask(106) >= 50 then
		SetTask(106,GetTask(106)-50)
AddEventItem(68)
	Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end

function ty2()
if GetTask(106) >= 50 then
		SetTask(106,GetTask(106)-50)
AddEventItem(69)
	Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end

function dm2()
if GetTask(106) >= 50 then
		SetTask(106,GetTask(106)-50)
AddEventItem(70)
	Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end

function cl2()
if GetTask(106) >= 50 then
		SetTask(106,GetTask(106)-50)
AddEventItem(71)
	Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end

function tn2()
if GetTask(106) >= 50 then
		SetTask(106,GetTask(106)-50)
AddEventItem(72)
	Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end

function tv2()
if GetTask(106) >= 50 then
		SetTask(106,GetTask(106)-50)
AddEventItem(73)
	Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end

function vd2()
if GetTask(106) >= 50 then
		SetTask(106,GetTask(106)-50)
AddEventItem(74)
	Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function nhanabthuy()
	if GetTask(106) >= 100 then
		AddItem(0,10,13,10,0,0,0)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function nhanabhoa()
Say("Ban Muon Lay Bi Kiep Mon Phai Nao",11,"Thieu Lam/tl1","Thien Vuong/tv1","Nga Mi/nm1","Thuy Yen/ty1","Ngu Doc/nd1","Cai Bang/cb1","Thien Nhan/tn1","Con Lon/cl1","Vo Dang/vd1","Duong Mon/dm1","Ket Thuc/no")
end;
function nm1()
if GetTask(106) >= 100 then
		AddEventItem(161)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function nd1()
if GetTask(106) >= 100 then
		AddEventItem(160)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function tl1()
if GetTask(106) >= 100 then
		AddEventItem(157)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function cb1()
if GetTask(106) >= 100 then
		AddEventItem(163)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function ty1()
if GetTask(106) >= 100 then
		AddEventItem(162)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function dm1()
if GetTask(106) >= 100 then
		AddEventItem(159)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function cl1()
if GetTask(106) >= 100 then
		AddEventItem(166)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function tn1()
if GetTask(106) >= 100 then
		AddEventItem(164)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function tv1()
if GetTask(106) >= 100 then
		AddEventItem(158)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function vd1()
if GetTask(106) >= 100 then
		AddEventItem(165)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end

	
function abmax()
SayEx({"<color=red>Su Gia Lien Dau: <color> Nguoi Muon Lay Do Pho Vu Khi Nao",
"Do Pho [Dao Bach Kim]/dbk",
"Do Pho [Kiem Bach Kim]/kbk",
"Do Pho [Thuong Bach Kim]/tbk",
"Do Pho [Chuy Bach Kim]/cbk",
"Do Pho [Bong Bach Kim]/bbk",
"Do Pho [Song Dao Bach Kim]/sdbk",
"Do Pho [Phi Tieu Bach Kim]/ptbk",
"Do Pho [Phi Dao Bach Kim]/pdbk",
"Do Pho [Am Khi Bach Kim]/akbk",
"Ket Thuc/no"})

end;
function dbk()
if GetTask(106) >= 100 then
		AddEventItem(45)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function kbk()
if GetTask(106) >= 100 then
		AddEventItem(46)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function tbk()
if GetTask(106) >= 100 then
		AddEventItem(47)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function cbk()
if GetTask(106) >= 100 then
		AddEventItem(48)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function bbk()
if GetTask(106) >= 100 then
		AddEventItem(49)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function sdbk()
if GetTask(106) >= 100 then
		AddEventItem(50)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function ptbk()
if GetTask(106) >= 100 then
		AddEventItem(51)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function pdbk()
if GetTask(106) >= 100 then
		AddEventItem(52)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function akbk()
if GetTask(106) >= 100 then
		AddEventItem(53)
		SetTask(106,GetTask(106)-100)
		Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
	else
		Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
	end
end
function PlayerBT()
	SetDeathScript("")
	SetCreateTeam(1)
	StopTimer()
	SetTask(103,0)
	SetTask(104,0)
	SetTaskTemp(100,0)
end
function xa_phu()
	for i = 1,7 do
		xaphu[getn(xaphu)+1] = GetStationName(i).."/gothanhthi"
	end
	xaphu[8] = "Ta khong muon di/out"
	Say("<color=blue>Khach quan co muon tro lai cac thanh thi khong<color>",8,xaphu)
end;

function gothanhthi(nSel)
	w,x,y = GetStationPos(nSel+1)
	if SubWorldID2Idx(w) ~= -1 then
		NewWorld(w,x,y)
		SetFightState(0)
		SetLogoutRV(1)
		SetLogoutRV(0);
		Msg2Player("Ngoi yen nhe! chung ta di "..GetStationName(nSel+1))
	else
		Say("<color=blue>Noi ban muon den khong duoc mo trong qua trinh khoi dong server!<color>",0)
	end
end
--***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
--sau day la 1 doan script cuc ki quan trong,neu khong co doan nay GameServer se bao loi(that khung khiep)
function out()
end;
function no()
end;
--*****************************************************************THE END**********************************************************************************************************************************************************************************************************************************************************************************************