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 :

PHP Code:


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
[Only registered and activated users can see links. ]
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

Gửi bởi trungjx [Only registered and activated users can see links. ]

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 :

PHP Code:


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
[Only registered and activated users can see links. ]
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

Code:

     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

Code:

     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

Gửi bởi HoangTVT [Only registered and activated users can see links. ]

Code:

     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

Code:

     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

Gửi bởi HoangTVT [Only registered and activated users can see links. ]

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:

PHP Code:


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

Code:

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

Gửi bởi HoangTVT [Only registered and activated users can see links. ]

Code:

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ả

Chủ đề: Lại nhờ vả mọi người!

Công cụ Chủ đề

Lại nhờ vả mọi người!

Ðề: Lại nhờ vả mọi người!

Ðề: Lại nhờ vả mọi người!

Ðề: Lại nhờ vả mọi người!

The Following 2 Users Say Thank You to HoangTVT For This Useful Post:

Ðề: Lại nhờ vả mọi người!

Ðề: Lại nhờ vả mọi người!

Ðề: Lại nhờ vả mọi người!

Ðề: Lại nhờ vả mọi người!

Ðề: Lại nhờ vả mọi người!

Các thành viên gởi lời cảm ơn đến HoangTVT vì bài viết này !

Ðề: Lại nhờ vả mọi người!

Quyền viết bài