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ả :(
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.