PDA

View Full Version : [JX] Lại nhờ vả mọi người!



trungjx
10-09-16, 05:57 PM
Mấy bác đi ngang xem dùm mình đoạn code sau sao nó ko xuất ra số hạng mà cấp nhiu là nó xuất ra nhiu luôn :

function xephang()
local PlayerIndexOld = PlayerIndex
local szArrayRankingLevel = {}
local szArrayRankingName = {}
local i = 1
local MAX_PLAYER = 100
for i=1, MAX_PLAYER do
PlayerIndex = i
szArrayRankingLevel[i] = GetLevel()
szArrayRankingName[i] = GetName()
end
PlayerIndex = PlayerIndexOld

local TempLevel = 0
local TempName = ""
local hasChanged
while hasChanged do
hasChanged = false
for i = 1, MAX_PLAYER - 1 do
if szArrayRankingLevel[i] > szArrayRankingLevel[i + 1] then
Temp = szArrayRankingLevel[i]
szArrayRankingLevel[i] = szArrayRankingLevel[i + 1]
szArrayRankingLevel[i + 1] = Temp

TempName = szArrayRankingName[i]
szArrayRankingName[i] = szArrayRankingName[i + 1]
szArrayRankingName[i + 1] = TempName
hasChanged = true
end
end
end
for i=1, MAX_PLAYER do
PlayerIndex = i
SetTask(3001,szArrayRankingLevel[i])
Msg2Player("Thø h¹ng c¸ nh©n: Nh©n vËt:"..szArrayRankingName[i].."\tH¹ng:"..szArrayRankingLevel[i].."\n")
end
end
Còn vấn đề nữa là mình chơi off thôi, sau cứ tới 12h trưa là nó add vòng sáng, + kháng tè le, bỏ ở đâu z mọi người ơi
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
tiện thể mấy bạn cho mình xin cái code add tinh lực đc ko? muốn add nhiu điểm là add á, chứ cắn cái hỗn nguyên linh lộ lâu kinh

22sac22
10-09-16, 06:39 PM
Mấy bác đi ngang xem dùm mình đoạn code sau sao nó ko xuất ra số hạng mà cấp nhiu là nó xuất ra nhiu luôn :

function xephang()
local PlayerIndexOld = PlayerIndex
local szArrayRankingLevel = {}
local szArrayRankingName = {}
local i = 1
local MAX_PLAYER = 100
for i=1, MAX_PLAYER do
PlayerIndex = i
szArrayRankingLevel[i] = GetLevel()
szArrayRankingName[i] = GetName()
end
PlayerIndex = PlayerIndexOld

local TempLevel = 0
local TempName = ""
local hasChanged
while hasChanged do
hasChanged = false
for i = 1, MAX_PLAYER - 1 do
if szArrayRankingLevel[i] > szArrayRankingLevel[i + 1] then
Temp = szArrayRankingLevel[i]
szArrayRankingLevel[i] = szArrayRankingLevel[i + 1]
szArrayRankingLevel[i + 1] = Temp

TempName = szArrayRankingName[i]
szArrayRankingName[i] = szArrayRankingName[i + 1]
szArrayRankingName[i + 1] = TempName
hasChanged = true
end
end
end
for i=1, MAX_PLAYER do
PlayerIndex = i
SetTask(3001,szArrayRankingLevel[i])
Msg2Player("Thø h¹ng c¸ nh©n: Nh©n vËt:"..szArrayRankingName[i].."\tH¹ng:"..szArrayRankingLevel[i].."\n")
end
end
Còn vấn đề nữa là mình chơi off thôi, sau cứ tới 12h trưa là nó add vòng sáng, + kháng tè le, bỏ ở đâu z mọi người ơi
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
tiện thể mấy bạn cho mình xin cái code add tinh lực đc ko? muốn add nhiu điểm là add á, chứ cắn cái hỗn nguyên linh lộ lâu kinh


nhờ thôi bạn đừng vã tội người ta :))))))))))))))))))))))))))))))))))))

trungjx
11-09-16, 12:58 PM
tự up cái vụ scipt chưa xong :(

HoangTVT
11-09-16, 02:06 PM
for i=1, MAX_PLAYER do
PlayerIndex = i
SetTask(3001,szArrayRankingLevel[i])
Msg2Player("Thø h¹ng c¸ nh©n: Nh©n vËt:"..szArrayRankingName[i].."\tH¹ng:"..szArrayRankingLevel[i].."\n")
end

sửa thành


for i=1, MAX_PLAYER do
PlayerIndex = i
SetTask(3001,i)
Msg2Player("Thø h¹ng c¸ nh©n: Nh©n vËt:"..szArrayRankingName[i].."\tH¹ng:"..i.."\n")
end

trungjx
11-09-16, 02:27 PM
for i=1, MAX_PLAYER do
PlayerIndex = i
SetTask(3001,szArrayRankingLevel[i])
Msg2Player("Thø h¹ng c¸ nh©n: Nh©n vËt:"..szArrayRankingName[i].."\tH¹ng:"..szArrayRankingLevel[i].."\n")
end

sửa thành


for i=1, MAX_PLAYER do
PlayerIndex = i
SetTask(3001,i)
Msg2Player("Thø h¹ng c¸ nh©n: Nh©n vËt:"..szArrayRankingName[i].."\tH¹ng:"..i.."\n")
end

tks bạn, để mình thử...............

trungjx
11-09-16, 02:36 PM
sửa code theo cách của bạn, acc nào đang nhập vô trc là hạng 1, vô sau hạng 2, cứ thế :( bạn xem dùm mình lần nữa đc ko tks

HoangTVT
11-09-16, 02:38 PM
mình nhầm chút, bạn thêm chút thông tin đi code này bạn xếp để thông báo thứ hạng cho từng người chơi đang online hay là để người chơi tự xem thứ hạng vậy.

trungjx
11-09-16, 02:41 PM
mình nhầm chút, bạn thêm chút thông tin đi code này bạn xếp để thông báo thứ hạng cho từng người chơi đang online hay là để người chơi tự xem thứ hạng vậy.

mình ko biết , nó nằm trong file để xếp hạng ấy, login vào là nó thông báo cho các nhân vật đang online hạng bao nhiu . Nguyên cái file nó đây:

IncludeLib("RELAYLADDER");
IncludeLib("TONG")
function XepHang()
if GetLevel()>10 then
raktdct()
raktdct()
rakfac()
rakcashfac()
rakcash()
hoangda()
rakd()
trip()
valu()
end
end

function raktdct()
if (GetCamp() ~= 4) and (GetCamp() ~= 0) then
Ladder_NewLadder(10287, GetName(),GetLevel(),1);
end
end


function rakd()
Ladder_NewLadder(10264, GetName(),GetRepute(),1);
end

function trip()
Ladder_NewLadder(10263, GetName(),GetPK(),1);
end

function valu()
Ladder_NewLadder(10261,GetName(),GetAllEquipValue( ),1);
end


function hoangda()
if (GetCamp() == 4) or (GetCamp() == 0) then
Ladder_NewLadder(10119, GetName(),GetLevel(),1);
end
end


function rakcash()
Ladder_NewLadder(10288, GetName(),GetCash(),1);
end


function rakfac()
local player_Faction = GetFaction()
local szTongName, nTongID = GetTongName();
if GetLevel()>10 then
if (player_Faction == "cuiyan") then
Ladder_NewLadder(10282, GetName(),GetLevel(),1);
elseif (player_Faction == "emei") then
Ladder_NewLadder(10281, GetName(),GetLevel(),1);
elseif (player_Faction == "tangmen") then
Ladder_NewLadder(10279, GetName(),GetLevel(),1);
elseif (player_Faction == "wudu") then
Ladder_NewLadder(10280, GetName(),GetLevel(),1);
elseif (player_Faction == "tianwang") then
Ladder_NewLadder(10278, GetName(),GetLevel(),1);
elseif (player_Faction == "shaolin") then
Ladder_NewLadder(10277, GetName(),GetLevel(),1);
elseif (player_Faction == "wudang") then
Ladder_NewLadder(10285, GetName(),GetLevel(),1);
elseif (player_Faction == "kunlun") then
Ladder_NewLadder(10286, GetName(),GetLevel(),1);
elseif (player_Faction == "tianren") then
Ladder_NewLadder(10284, GetName(),GetLevel(),1);
elseif (player_Faction == "gaibang") then
Ladder_NewLadder(10283, GetName(),GetLevel(),1);
elseif (GetLastFactionNumber() == 10) then
Ladder_NewLadder(10276, GetName(),GetLevel(),1);

end
end
end

function rakcashfac()
local player_Faction = GetFaction()
local szTongName, nTongID = GetTongName();
if GetLevel()>10 then
if (player_Faction == "cuiyan") then
Ladder_NewLadder(10265, GetName(),GetCash(),1);
elseif (player_Faction == "emei") then
Ladder_NewLadder(10266, GetName(),GetCash(),1);
elseif (player_Faction == "tangmen") then
Ladder_NewLadder(10267, GetName(),GetCash(),1);
elseif (player_Faction == "wudu") then
Ladder_NewLadder(10268, GetName(),GetCash(),1);
elseif (player_Faction == "tianwang") then
Ladder_NewLadder(10269, GetName(),GetCash(),1);
elseif (player_Faction == "shaolin") then
Ladder_NewLadder(10270, GetName(),GetCash(),1);
elseif (player_Faction == "wudang") then
Ladder_NewLadder(10271, GetName(),GetCash(),1);
elseif (player_Faction == "kunlun") then
Ladder_NewLadder(10272, GetName(),GetCash(),1);
elseif (player_Faction == "tianren") then
Ladder_NewLadder(10273, GetName(),GetCash(),1);
elseif (player_Faction == "gaibang") then
Ladder_NewLadder(10274, GetName(),GetCash(),1);
elseif (GetLastFactionNumber() == 10) then
Ladder_NewLadder(10275, GetName(),GetCash(),1);
end
end
end

function XoaXepHang()
for i=10000,10300 do
Ladder_ClearLadder(i)
end
Ladder_ClearLadder(10119)
end

function xephangcanhan()
local PlayerIndexOld = PlayerIndex
local szArrayRankingLevel = {}
local szArrayRankingName = {}
local i = 1
local MAX_PLAYER = 100
for i=1, MAX_PLAYER do
PlayerIndex = i
szArrayRankingLevel[i] = GetLevel()
szArrayRankingName[i] = GetName()
end
PlayerIndex = PlayerIndexOld

local TempLevel = 0
local TempName = ""
local hasChanged
while hasChanged do
hasChanged = false
for i = 1, MAX_PLAYER - 1 do
if szArrayRankingLevel[i] > szArrayRankingLevel[i + 1] then
Temp = szArrayRankingLevel[i]
szArrayRankingLevel[i] = szArrayRankingLevel[i + 1]
szArrayRankingLevel[i + 1] = Temp

TempName = szArrayRankingName[i]
szArrayRankingName[i] = szArrayRankingName[i + 1]
szArrayRankingName[i + 1] = TempName
hasChanged = true
end
end
end
for i=1, MAX_PLAYER do
PlayerIndex = i
SetTask(3001,i)
Msg2Player("Thø h¹ng c¸ nh©n: Nh©n vËt:"..szArrayRankingName[i].."\tH¹ng:"..i.."\n")
end
end

HoangTVT
11-09-16, 02:48 PM
for i=1, getn(szArrayRankingName) do
local nPlayerIndex = SearchPlayer(szArrayRankingName[i]);
if (nPlayerIndex > 0)
PlayerIndex = nPlayerIndex;
SetTask(3001,i);
Msg2Player("Thø h¹ng c¸ nh©n: Nh©n vËt:"..szArrayRankingName[i].."\tH¹ng:"..i.."\n");
end;
end;

trungjx
11-09-16, 03:25 PM
for i=1, getn(szArrayRankingName) do
local nPlayerIndex = SearchPlayer(szArrayRankingName[i]);
if (nPlayerIndex > 0)
PlayerIndex = nPlayerIndex;
SetTask(3001,i);
Msg2Player("Thø h¹ng c¸ nh©n: Nh©n vËt:"..szArrayRankingName[i].."\tH¹ng:"..i.."\n");
end;
end;
bỏ cái này vô nó báo file not exit luôn bạn, ko báo lỗi gì cả :(