Cần Giúp về Script Đua top đợt 2 song song vs đợt 1.......

[kid2058]

Như tiêu đề mình đang mỡ 1 sever và mình làm như sau nhưng có 1 lôi~ là BXH 1 = BXH 2 = BXH đua top 1
Minh ko biết sai chỗ nào ai fixx hộ mình với..

mynu.lua

Include("\\script\\source\\Sourcejx49.lua")
Include("\\script\\source\\tasklist.lua")
Include("\\script\\global\\npc\\Npc_Support.lua")
Include("\\script\\manageritem\\savelog.lua")

function main(sel)
	local nNgay = tonumber(date("%d"))
	local nGio = tonumber(date("%H"))
	local nPhut = tonumber(date("%M"))
	local nGiay = tonumber(date("%S"))
	local nSoGiayHienTai = nNgay * 24 * 60 * 60 + nGio * 60 * 60 + nPhut * 60 + nGiay
	if (nSoGiayHienTai < 10) then
		Msg2Player("<color=green>Sau "..nSoGiayConLai.." giây nữa mới có thể , tiếp tục thực hiện thao tác này ! ")
		return 0
	end
	if (GetTaskTemp(TMP_ThoiGianMoTui) == 0) then
		SetTaskTemp(TMP_ThoiGianMoTui, nSoGiayHienTai)
		main1()
		Msg2Player("\<color=green>ANTI - Auto Click")
		return 0
	end
	local nSoGiayDemNguoc = nSoGiayHienTai - 10
	if (nSoGiayDemNguoc < GetTaskTemp(TMP_ThoiGianMoTui)) then
		local nSoGiayConLai = GetTaskTemp(TMP_ThoiGianMoTui) - nSoGiayDemNguoc
		Msg2Player("\<color=metal>ANTI Auto-Click <color=red>"..nSoGiayConLai.." giây<color> nữa mới có thể , tiếp tục thực hiện thao tác này ! ")
		return 0
	end
	main1()
	SetTaskTemp(TMP_ThoiGianMoTui, nSoGiayHienTai)
end

function main1()
-- dofile("script/global/npc/thantai.lua")
-- xoaevent()
-- Talk(1,"xoaevent","Event đã két thúc , vật phẩm event bị xóa")
-- dongcuaroi()
	Say("<bclr=red><color=yellow>Mỹ Nữ Võ Lâm<color><bclr> : 10 năm trôi qua , ta vẫn đứng ở đây ta là người tổ chức <color=fire>Sự Kiện<color> , Tất cả Event đang tạm đóng,Hay là ngươi quay lại sau đi",
				5,
				"Cập nhâp thông tin nhân vật !!!/ThongKeLevel",
				"Top 10 Cao Thủ Chuyển Sinh Đợt 2/dsct22",
				"Ta muốn mở bảo vật [ Kì Trân Các ]/baovat",
				--"Sự kiện - Ngọc Cát Tường/ghep",
				--"Tìm hiểu - Công thức chế tạo [Ngọc Cát Tường]/timhieu",
				--"Nhận Thưởng - Sử dụng Maximum Event [Trang bị xanh]/doilbtrangbixanh",
				"Ta muốn mở rộng các loại rương/morongruong",
				"Kết Thúc Đối Thoại/no")
end	
function morongruong()
Say("<bclr=red><color=yellow>Thần Tài<color><bclr> : Ta Là Người Đảm Nhận Các <color=fire>Sự Kiện<color> Trong Các Ngày Thần Tài Trọng",
				3,
				"Mở rộng rương 1(50 Xu)/morongruong1",
				"Mở rộng rương 2(50 Xu)/morongruong2",
				"Kết thúc đối thoại/no")
end

function ThongKeLevel()
---Msg2Player("<color=yellow>[VIP] Cập Nhập thông tin nhân vật đua top đợt 1 thành công")
if GetTask(TaskNhanDo) == 1 then
Msg2Player("<color=yellow>[VIP] Cập Nhập thông tin nhân vật đua top đợt 1 thành công")
	dofile("script/source/Top.lua")
	for i = 1, GetPlayerCount() do
		PlayerIndex = i
		if GetName() ~= "" and GetName() ~= nil then
			if GetLevel() ~= nil then
				if GetLevel() >= 90 then
					local check = 0
					for j = 1, getn(Top) do
						if Top[j][2] == GetUUID() then
							check = 1
							Top[j] = {GetName(), GetUUID(), GetLevel(), GetReBorn(), GetTask(TaskTimerOnline)}
							break
						end
					end
					if check == 0 then
						Top[getn(Top) + 1] = {GetName(), GetUUID(), GetLevel(), GetReBorn(), GetTask(TaskTimerOnline)} 
					end
				end
			end
		end
	end
	
	-- sap xep
	if getn(Top) >= 2 then 
		for i = 1, (getn(Top) - 1) do
			for k = i + 1, getn(Top) do
				if Top[i][4] < Top[k][4] then
					local temp = Top[i]
					Top[i] = Top[k]
					Top[k] = temp
				elseif Top[i][4] == Top[k][4] then
					if Top[i][3] < Top[k][3] then
						local temp = Top[i]
						Top[i] = Top[k]
						Top[k] = temp
					end
				end
			end
		end
	end
	
	-- luu file
	local luufile = TaoBang(Top,"Top","")
	SaveData("script/source/top.lua",luufile)
elseif GetTask(TaskNhanDo) == 2 then
Msg2Player("<color=yellow>[VIP] Cập Nhập thông tin nhân vật đua top đợt 2 thành công")
	dofile("script/source/Top2.lua")
	for i = 1, GetPlayerCount() do
		PlayerIndex = i
		if GetName() ~= "" and GetName() ~= nil then
			if GetLevel() ~= nil then
				if GetLevel() >= 90 then
					local check = 0
					for j = 1, getn(Top2) do
						if Top2[j][2] == GetUUID() then
							check = 1
							Top2[j] = {GetName(), GetUUID(), GetLevel(), GetReBorn(), GetTask(TaskTimerOnline)}
							break
						end
					end
					if check == 0 then
						Top2[getn(Top2) + 1] = {GetName(), GetUUID(), GetLevel(), GetReBorn(), GetTask(TaskTimerOnline)} 
					end
				end
			end
		end
	end
	
	-- sap xep
	if getn(Top2) >= 2 then 
		for i = 1, (getn(Top2) - 1) do
			for k = i + 1, getn(Top2) do
				if Top2[i][4] < Top2[k][4] then
					local temp = Top2[i]
					Top2[i] = Top2[k]
					Top2[k] = temp
				elseif Top2[i][4] == Top2[k][4] then
					if Top2[i][3] < Top2[k][3] then
						local temp = Top2[i]
						Top2[i] = Top2[k]
						Top2[k] = temp
					end
				end
			end
		end
	end
	
	-- luu file
	local luufile = TaoBang(Top2,"Top2","")
	SaveData("script/source/top2.lua",luufile)
else
	Talk(1, "","Liên hệ ADMIN lỗi thống kê lever")
end
end

function dsct22()
dofile("script/source/top2.lua")
  if getn(Top2) == 0 then
    Talk(1, "","Mới open server chưa cập nhật danh sách")
    return
  end
  Msg2Player("<color=yellow>[VIP] Hạng 1 : " .. Top2[1][1] .. "<color> - level " .. Top2[1][3] .. " - <color=yellow>Chuyển sinh : " .. Top2[1][4],1)
  Msg2Player("<color=cyan>[VIP] Hạng 2 : " .. Top2[2][1] .. "<color> - level " .. Top2[2][3] .. " - <color=cyan>Chuyển sinh : " .. Top2[2][4],1)
  Msg2Player("<color=green>[VIP] Hạng 3 : " .. Top2[3][1] .. "<color> - level " .. Top2[3][3] .. " - <color=green>Chuyển sinh : " .. Top2[3][4],1)
  Msg2Player("Hạng 4 : " .. Top2[4][1] .. " - level " .. Top2[4][3] .. " - Chuyển sinh : " .. Top2[4][4],1)
  Msg2Player("Hạng 5 : " .. Top2[5][1] .. " - level " .. Top2[5][3] .. " - Chuyển sinh : " .. Top2[5][4],1)
  Msg2Player("Hạng 6 : " .. Top2[6][1] .. " - level " .. Top2[6][3] .. " - Chuyển sinh : " .. Top2[6][4],1)
  Msg2Player("Hạng 7 : " .. Top2[7][1] .. " - level " .. Top2[7][3] .. " - Chuyển sinh : " .. Top2[7][4],1)
  Msg2Player("Hạng 8 : " .. Top2[8][1] .. " - level " .. Top2[8][3] .. " - Chuyển sinh : " .. Top2[8][4],1)
  Msg2Player("Hạng 9 : " .. Top2[9][1] .. " - level " .. Top2[9][3] .. " - Chuyển sinh : " .. Top2[9][4],1)
  Msg2Player("Hạng 10 : " .. Top2[10][1] .. " - level " .. Top2[10][3] .. " - Chuyển sinh : " .. Top2[10][4],1)

end
.................................con nua ..........................

132.lua

Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\global\\tasklist.lua")
Include("\\script\\global\\chuyensinh.lua")
Include("\\script\\source\\timerserver.lua")
-- Include("\\script\\vuotai\\sugiabalang.lua")
Include("\\Script\\global\\GM.lua")
Include("\\script\\global\\npc\\banghoi\\addnpc.lua")
Include("\\script\\global\\npc\\banghoi\\open.lua")
Include("\\script\\global\\npc\\banghoi\\quyensohuu.lua")
Include("\\script\\global\\npc\\banghoi\\quy.lua")
Include("\\script\\source\\top.lua")
Include("\\script\\source\\top2.lua")
--dofile("script/item/132.lua")

function main()
main20()
end

function main20()
w,x,y = GetWorldPos()
play = PlayerIndex
			SayNew("<bclr=red><color=yellow>Tái Xuất Giang Hồ : <color><bclr>Chào bạn<color=yellow> "..GetName().."<color> !!\nID nhân vật :  <color=red>"..play.."<color>\nĐiểm online:  <color=red>"..GetTask(92).."<color>\nBạn cần ta giúp đỡ gì - [ADM] Không có ở Game cẩn thậnbị lừa !",7,11,
			"Nhận máu hỗ trợ/nhanmauzz",
			"Cập nhâp thông tin nhân vật !!!/ThongKeLevel",
			"Top 10 Cao Thủ Chuyển Sinh Đợt 2/dsct22",
			"Top 10 Cao Thủ Chuyển Sinh Đợt 1/dsct2",
			"Giải kẹt nhân vật/gknv",
			"Thổ Địa Phù Free/tdpve",
			"Thoát/no")	   
end

function ThongKeLevel()
---Msg2Player("<color=yellow>[VIP] Cập Nhập thông tin nhân vật đua top đợt 1 thành công")
if GetTask(TaskNhanDo) == 1 then
Msg2Player("<color=yellow>[VIP] Cập Nhập thông tin nhân vật đua top đợt 1 thành công")
	dofile("script/source/Top.lua")
	for i = 1, GetPlayerCount() do
		PlayerIndex = i
		if GetName() ~= "" and GetName() ~= nil then
			if GetLevel() ~= nil then
				if GetLevel() >= 90 then
					local check = 0
					for j = 1, getn(Top) do
						if Top[j][2] == GetUUID() then
							check = 1
							Top[j] = {GetName(), GetUUID(), GetLevel(), GetReBorn(), GetTask(TaskTimerOnline)}
							break
						end
					end
					if check == 0 then
						Top[getn(Top) + 1] = {GetName(), GetUUID(), GetLevel(), GetReBorn(), GetTask(TaskTimerOnline)} 
					end
				end
			end
		end
	end
	
	-- sap xep
	if getn(Top) >= 2 then 
		for i = 1, (getn(Top) - 1) do
			for k = i + 1, getn(Top) do
				if Top[i][4] < Top[k][4] then
					local temp = Top[i]
					Top[i] = Top[k]
					Top[k] = temp
				elseif Top[i][4] == Top[k][4] then
					if Top[i][3] < Top[k][3] then
						local temp = Top[i]
						Top[i] = Top[k]
						Top[k] = temp
					end
				end
			end
		end
	end
	
	-- luu file
	local luufile = TaoBang(Top,"Top","")
	SaveData("script/source/top.lua",luufile)
elseif GetTask(TaskNhanDo) == 2 then
Msg2Player("<color=yellow>[VIP] Cập Nhập thông tin nhân vật đua top đợt 2 thành công")
	dofile("script/source/Top2.lua")
	for i = 1, GetPlayerCount() do
		PlayerIndex = i
		if GetName() ~= "" and GetName() ~= nil then
			if GetLevel() ~= nil then
				if GetLevel() >= 90 then
					local check = 0
					for j = 1, getn(Top2) do
						if Top2[j][2] == GetUUID() then
							check = 1
							Top2[j] = {GetName(), GetUUID(), GetLevel(), GetReBorn(), GetTask(TaskTimerOnline)}
							break
						end
					end
					if check == 0 then
						Top2[getn(Top2) + 1] = {GetName(), GetUUID(), GetLevel(), GetReBorn(), GetTask(TaskTimerOnline)} 
					end
				end
			end
		end
	end
	
	-- sap xep
	if getn(Top2) >= 2 then 
		for i = 1, (getn(Top2) - 1) do
			for k = i + 1, getn(Top2) do
				if Top2[i][4] < Top2[k][4] then
					local temp = Top2[i]
					Top2[i] = Top2[k]
					Top2[k] = temp
				elseif Top2[i][4] == Top2[k][4] then
					if Top2[i][3] < Top2[k][3] then
						local temp = Top2[i]
						Top2[i] = Top2[k]
						Top2[k] = temp
					end
				end
			end
		end
	end
	
	-- luu file
	local luufile = TaoBang(Top2,"Top2","")
	SaveData("script/source/top2.lua",luufile)
else
	Talk(1, "","Liên hệ ADMIN lỗi thống kê lever")
end
end


function dsct2()
dofile("script/source/top.lua")
  if getn(Top) == 0 then
    Talk(1, "","Mới open server chưa cập nhật danh sách")
    return
  end
  Msg2Player("<color=yellow>[VIP] Hạng 1 : " .. Top[1][1] .. "<color> - level " .. Top[1][3] .. " - <color=yellow>Chuyển sinh : " .. Top[1][4],1)
  Msg2Player("<color=cyan>[VIP] Hạng 2 : " .. Top[2][1] .. "<color> - level " .. Top[2][3] .. " - <color=cyan>Chuyển sinh : " .. Top[2][4],1)
  Msg2Player("<color=green>[VIP] Hạng 3 : " .. Top[3][1] .. "<color> - level " .. Top[3][3] .. " - <color=green>Chuyển sinh : " .. Top[3][4],1)
  Msg2Player("Hạng 4 : " .. Top[4][1] .. " - level " .. Top[4][3] .. " - Chuyển sinh : " .. Top[4][4],1)
  Msg2Player("Hạng 5 : " .. Top[5][1] .. " - level " .. Top[5][3] .. " - Chuyển sinh : " .. Top[5][4],1)
  Msg2Player("Hạng 6 : " .. Top[6][1] .. " - level " .. Top[6][3] .. " - Chuyển sinh : " .. Top[6][4],1)
  Msg2Player("Hạng 7 : " .. Top[7][1] .. " - level " .. Top[7][3] .. " - Chuyển sinh : " .. Top[7][4],1)
  Msg2Player("Hạng 8 : " .. Top[8][1] .. " - level " .. Top[8][3] .. " - Chuyển sinh : " .. Top[8][4],1)
  Msg2Player("Hạng 9 : " .. Top[9][1] .. " - level " .. Top[9][3] .. " - Chuyển sinh : " .. Top[9][4],1)
  Msg2Player("Hạng 10 : " .. Top[10][1] .. " - level " .. Top[10][3] .. " - Chuyển sinh : " .. Top[10][4],1)

end

function dsct22()
  if getn(Top2) == 0 then
    Talk(1, "","Mới open server chưa cập nhật danh sách")
    return
  end
  Msg2Player("<color=yellow>[VIP] Hạng 1 : " .. Top2[1][1] .. "<color> - level " .. Top2[1][3] .. " - <color=yellow>Chuyển sinh : " .. Top2[1][4],1)
  Msg2Player("<color=cyan>[VIP] Hạng 2 : " .. Top2[2][1] .. "<color> - level " .. Top2[2][3] .. " - <color=cyan>Chuyển sinh : " .. Top2[2][4],1)
  Msg2Player("<color=green>[VIP] Hạng 3 : " .. Top2[3][1] .. "<color> - level " .. Top2[3][3] .. " - <color=green>Chuyển sinh : " .. Top2[3][4],1)
  Msg2Player("Hạng 4 : " .. Top2[4][1] .. " - level " .. Top2[4][3] .. " - Chuyển sinh : " .. Top2[4][4],1)
  Msg2Player("Hạng 5 : " .. Top2[5][1] .. " - level " .. Top2[5][3] .. " - Chuyển sinh : " .. Top2[5][4],1)
  Msg2Player("Hạng 6 : " .. Top2[6][1] .. " - level " .. Top2[6][3] .. " - Chuyển sinh : " .. Top2[6][4],1)
  Msg2Player("Hạng 7 : " .. Top2[7][1] .. " - level " .. Top2[7][3] .. " - Chuyển sinh : " .. Top2[7][4],1)
  Msg2Player("Hạng 8 : " .. Top2[8][1] .. " - level " .. Top2[8][3] .. " - Chuyển sinh : " .. Top2[8][4],1)
  Msg2Player("Hạng 9 : " .. Top2[9][1] .. " - level " .. Top2[9][3] .. " - Chuyển sinh : " .. Top2[9][4],1)
  Msg2Player("Hạng 10 : " .. Top2[10][1] .. " - level " .. Top2[10][3] .. " - Chuyển sinh : " .. Top2[10][4],1)

end

................................................