PDA

View Full Version : [JX] Cần Giúp về Script Đua top đợt 2 song song vs đợt 1.......


kid2058
27-03-15, 06:31 PM
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

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