Linux - Hỏi về hiển thị hạng ?

[vklchinsuj]

Bạn gán vào NPC Lễ quan như này là được:

DynamicExecute("\\script\\vng_feature\\top10\\vngtop10.lua", "tbTop10:ShowTopList", PlayerIndex)

hướng dẫn mình fix thời gian cập nhật đc ko vậy,mình lick vào báo Hệ thống đang tiến hành xếp hạng,hãy quay lại sau.

[gia_muvn]

hướng dẫn mình fix thời gian cập nhật đc ko vậy,mình lick vào báo Hệ thống đang tiến hành xếp hạng,hãy quay lại sau.

Sửa lại ngày trong file \script\vng_feature\top10\vngtop10.lua

function tbTop10:CheckDay()
local nTime = tonumber(date("%Y%m%d"))
if nTime < 20110707 or nTime > 20110713 then
return 0
end
return 1
end

function tbTop10:IsActive()
local nTime = tonumber(date("%Y%m%d"))
if nTime < 20110707 or nTime > 20110717 then
return 0
end
return 1
end

--- Chế độ gộp bài viết ---

bạn cho mình hỏi khi Update nó sẻ lưu vào file nào nhỉ? và củng không thấy nó gọi từ file nào. mình tìm ko thấy nhờ b nào biết chỉ dùm.
bạn nào giúp mình tí. mình cám ơn và hậu tạ

Cụ thể nó lưu vào thư mục vng_data/top10/ gồm 2 file "subcribers.txt" và "toplist.txt"

[vklchinsuj]

Sửa lại ngày trong file \script\vng_feature\top10\vngtop10.lua

sao chỉnh quài ko đc vậy mọi người ai hướng dẫn chỉnh thời hian đc ko

[lang_khach]

code mình sửa lại là vầy, còn khi chạy hàm tbTop10.UpdateInfo thì thấy hàm check điều kiện đầy đủ nhưng lại ko xuất ra thông báo gì hết nhỉ.
Demo đoạn 1 phút mình test các phần lỗi mình quay lại đây.

--HÖ thèng tiÕp nhËn ®¨ng ký vµ xÕp h¹ng 10 ng­êi level cao nhÊt server - Created by DinhHQ - 20110614

Include("\\script\\vng_feature\\top10\\vngglobalvar.lua")
Include("\\script\\misc\\eventsys\\type\\npc.lua")
Include("\\script\\dailogsys\\dailogsay.lua")
Include("\\script\\task\\metempsychosis\\task_func.lua")
Include("\\script\\vng_lib\\files_lib.lua")
Include("\\script\\global\\autoexec_head.lua")
Include("\\script\\activitysys\\playerfunlib.lua")

function tbTop10:Init()
    self.tbSubcribers = {}
    self.nRegisterCount = 0
end

function tbTop10:CheckTime()
    local nTime = tonumber(date("%H%M"))
    if (nTime >= 0955 and nTime <=1005) or (nTime >= 0000 and nTime <=0010) then
        return 1
    end
    return 0
end

function tbTop10:CheckDay()
    local nTime = tonumber(date("%Y%m%d"))
--    if nTime < 20151003 or nTime > 20151010 then    --     if nTime < 20110707 or nTime > 20110713 then
--        return 0
--    end
    return 1
end

function tbTop10:IsActive()
    local nTime = tonumber(date("%Y%m%d"))
    if nTime < 20151003 or nTime > 20151013 then    --    if nTime < 20110707 or nTime > 20110717 then
        return 0
    end
    return 1
end

function tbTop10:MainDialog()
    if self.CheckTime() == 1 then
        Talk(1, "", "HÖ thèng ®ang tiÕn hµnh xÕp h¹ng, xin h·y quay l¹i sau.")
        return
    end
    local tbOpt = {}
    local pEventType = EventSys:GetType("AddNpcOption")
    if self.CheckDay() == 1 then
        tinsert(tbOpt, {"Ta muèn ®¨ng ký", tbTop10.Regist, {tbTop10}})
        tinsert(tbOpt, {"Ta muèn cËp nhËt th«ng tin", tbTop10.UpdateInfo, {tbTop10}})
    end    
    tinsert(tbOpt, {"Xem danh s¸ch ThËp §¹i Cao Thñ", tbTop10.ShowTopList, {tbTop10}})
    tinsert(tbOpt, {"Hñy bá "})
    CreateNewSayEx("Ta phô tr¸ch viÖc tiÕp nhËn ®¨ng ký thËp ®¹i cao thñ, ng­¬i cã muèn ®¨ng ký kh«ng?", tbOpt)
end

--=======================Subcribers=================  ==========

function tbTop10:Regist()
    if self.CheckDay() == 0 then
        Talk(1, "", "§· hÕt h¹n ®¨ng ký.")
        return
    end
    if self.CheckTime() == 1 then
        Talk(1, "", "HÖ thèng ®ang tiÕn hµnh xÕp h¹ng, xin h·y quay l¹i sau.")
        return
    end
    
    if not self.tbSubcribers then
        self:Init()
    end
    local nTransLifeCount = ST_GetTransLifeCount()
--    if nTransLifeCount < 3 then
--        Talk(1, "", "Møc ®é tu luyÖn cña ng­¬i ch­a ®ñ, h·y quay vÒ rÌn luyÖn thªm ®i.")
--        return
--    end
    local strName = GetName()
    if self.tbSubcribers[strName] then
        Talk(1, "", "Ng­¬i ®· ®¨ng ký råi, kh«ng cÇn ®¨ng ký n÷a. Xin h·y cËp nhËt th«ng tin.")
        return
    end
    self.tbSubcribers[strName] = {}
    local tbSubcriber = self.tbSubcribers[strName]
    for i = 1, nTransLifeCount do
        local nlevel, _ = zhuansheng_get_gre(i);
        tinsert(tbSubcriber, nlevel)        
    end
    --level hiÖn t¹i
    tinsert(tbSubcriber, GetLevel())
    --kinh nghiÖm hiÖn t¹i
    tinsert(tbSubcriber, GetExp()/1e9)
    tinsert(tbSubcriber, GetExpPercent())
    if self:Subcribers2File() == 1 then
        Say("§¨ng ký thµnh c«ng, xin h·y kiÓm tra l¹i danh s¸ch.", 1, "§ãng/OnCancel")
    end
end

function tbTop10:UpdateInfo()
    if self.CheckDay() == 0 then
        Talk(1, "", "§· hÕt h¹n cËp nhËt th«ng tin.")
        return
    end
    if self.CheckTime() == 1 then
        Talk(1, "", "HÖ thèng ®ang tiÕn hµnh xÕp h¹ng, xin h·y quay l¹i sau.")
        return
    end
    
    if not self.tbSubcribers then
        self:Init()
    end
    local strName = GetName()
    if (not self.tbSubcribers[strName]) then
        Talk(1, "", "Ng­¬i vÉn ch­a ®¨ng ký, kh«ng thÓ cËp nhËt th«ng tin.")
        return
    end
    
    --Mçi ngµy chØ ®­îc cËp nhËt 1 lÇn
    local nTaskDayCount = PlayerFunLib:GetTaskDailyCount(self.nTaskDayLimit)
    if nTaskDayCount == 1 then
        Talk(1, "", "Mçi ngµy chØ ®­îc cËp nhËt th«ng tin 1 lÇn, ngµy mai råi h·y quay l¹i.")
        return
    end
    
    local nTransLifeCount = ST_GetTransLifeCount()
--    if nTransLifeCount < 3 then
--        Talk(1, "", "Møc ®é tu luyÖn cña ng­¬i ch­a ®ñ, h·y quay vÒ rÌn luyÖn thªm ®i.")
--        return
--    end
        
    local tbSubcriber = self.tbSubcribers[strName]

    --level hiÖn t¹i
    tbSubcriber[self.nCUR_LVL] = GetLevel()
    --kinh nghiÖm hiÖn t¹i
    tbSubcriber[self.nCUR_EXP] = GetExp()/1e9
    tbSubcriber[self.nCUR_EXP_PERCENT] = GetExpPercent()
    if self:Subcribers2File() == 1 then
        PlayerFunLib:AddTaskDaily(self.nTaskDayLimit, 1)
        Say("CËp nhËt th«ng tin thµnh c«ng, xin h·y kiÓm tra l¹i danh s¸ch.", 1, "§ãng/OnCancel")
    end
end

function tbTop10:Subcribers2File()
    local tbTemp = {}
    tinsert(tbTemp, self.tbFileHeader)
    for key, val in self.tbSubcribers do
        tinsert(tbTemp, {key, val[self.nST1_LVL], val[self.nST2_LVL], val[self.nST3_LVL], val[self.nCUR_LVL], val[self.nCUR_EXP], val[self.nCUR_EXP_PERCENT]})
    end
    tbVngLib_File:Table2File(self.strFilePath, self.strFileName, "w", tbTemp)    
    return 1
end

--=======================End Subcribers===========================

function OnCancel()
end

function tbTop10:ShowList()    
    if not self.tbSubcribers then
        CreateNewSayEx("HiÖn ch­a cã danh s¸ch ®¨ng ký",{{"§ãng",OnCancel}})
        return
    end
    
    local nCounter = 0
    local strTittle = format("%-6s%-16s%-6s%-6s%-6s%s\n", "STT", "Tªn", "TS1", "TS2", "TS3", "HiÖn t¹i")
    for key, val in self.tbSubcribers do
        nCounter = nCounter + 1
        strTittle = strTittle..format("<color=yellow>%-6d%-16s%-6d%-6d%-6d%d<color>\n", nCounter, key, val[1], val[2], val[3], val[4])
    end
    CreateNewSayEx(strTittle,{{"§ãng",OnCancel}})
end

--=======================Top list===========================

function tbTop10:ShowTopList()
    if self.CheckTime() == 1 then
        Talk(1, "", "HÖ thèng ®ang tiÕn hµnh xÕp h¹ng, xin h·y quay l¹i sau.")
        return
    end
    if not self.tbTopList or getn(self.tbTopList) <= 0 then
        CreateNewSayEx("HiÖn t¹i ch­a cã b¶ng xÕp h¹ng",{{"§ãng",OnCancel}})
        return
    end
    local strTittle = format("%-13s%s\n%s <color=red>%s<color>\n\n", "", "Danh s¸ch ThËp §¹i Cao Thñ", "\t\t\t\t\t\tThêi gian tæng kÕt:", self.tbTopList[1][5])
    strTittle = strTittle..format("%-5s%-17s%-12s%-10s%-8s\n", "H¹ng", "Tªn", "Trïng Sinh", "HiÖn T¹i", "Exp(Tû)")
    local strTittle_TS = ""
    local strName = ""
    local strCurLVL = ""
    for nRank = 1, getn(self.tbTopList) do
        strName = self.tbTopList[nRank][1]        
        local tbPlayer = self.tbSubcribers[strName]
        strTittle_TS = format("%d/%d/%d", tbPlayer[self.nST1_LVL], tbPlayer[self.nST2_LVL], tbPlayer[self.nST3_LVL])
        strCurLVL = format("%d(%d", self.tbTopList[nRank][2], self.tbTopList[nRank][3]).."%)"
        if strName == GetName() then
            strTittle = strTittle..format("<color=cyan>%-5s%-17s%-12s%-10s%-8.04f<color>\n", nRank, strName, strTittle_TS, strCurLVL,self.tbTopList[nRank][4])
        else
            strTittle = strTittle..format("<color=yellow>%-5s%-17s%-12s%-10s%-8.04f<color>\n", nRank, strName, strTittle_TS, strCurLVL,self.tbTopList[nRank][4])
        end
    end
    CreateNewSayEx(strTittle,{{"§ãng",OnCancel}})
end


--Hµm s¾p xÕp danh s¸ch ®¨ng ký theo exp ®Ó t×m 10 ng­êi cã exp cao nhÊt
--L­u danh s¸ch 10 cao thñ vµo file dù phßng

function tbTop10:UpdateTopList()
    nLamAnMapID = SubWorldID2Idx(176)
    if nLamAnMapID < 0 then
        print("\nMap Lam An khong co tren server nay")
        return
    end
    self.tbTopList = {}
    local tbTemp = {}
    local nExp = 0
    local strTime = GetLocalDate("%Y-%m-%d_%H:%M:%S")
    --t¹o table l­u t¹m d÷ liÖu cho viÖc s¾p xÕp
    for key, val in self.tbSubcribers do
        nExp = ((val[self.nST1_LVL] - 160) * 2 + 18.5667721) + ((val[self.nST2_LVL] - 170) * 4 + 72.3667721) + ((val[self.nST3_LVL] - 180) * 8 + 221.9667721) + (self.tbCurLvl_Exp[val[self.nCUR_LVL]]) + val[self.nCUR_EXP]
        tinsert(tbTemp, {key, val[self.nCUR_LVL], val[self.nCUR_EXP_PERCENT], nExp, strTime})
    end
    --s¾p xÕp table t¹m theo thø tù gi¶m dÇn dùa vµo sè exp tæng
    sort(tbTemp, function (a, b) return(a[4] > b[4]) end)
    --Chän 10 ng­êi cã exp tæng cao nhÊt ®Ó ®­a vµo danh s¸ch toplist dïng cho viÖc l­u vµo file hoÆc hiÓn thÞ t¹i npc
    local nCount = 0
     if getn(tbTemp) > 10 then
         nCount = 10
     else
         nCount = getn(tbTemp)
     end
    for i = 1, nCount do
        self.tbTopList[i] = tbTemp[i]
    end
    --save top list vµo file
    self:TopList2File()
end

function tbTop10:TopList2File()
    local tbTemp = {}
    --insert header cña file
    tinsert(tbTemp, self.tbTopListFileHeader)
    for key, val in self.tbTopList do
        tinsert(tbTemp, val)
    end
    tbVngLib_File:Table2File(self.strFilePath, self.strTopListFileName, "w", tbTemp)    
    return 1
end

function tbTop10:TopListFromFile()
    if not self.tbTopList then
        self.tbTopList = {}
    end
    local tb = tbVngLib_File:TableFromFile(tbTop10.strFilePath, tbTop10.strTopListFileName, {"*w", "*n", "*n", "*n", "*w"})
    if not tb then
        tbTop10.tbTopList = nil
        return
    end
    for i = 1, getn(tb) do
        self.tbTopList[i] = tb[i]
    end
end

--=======================Top list===========================
--Load danh s¸ch ®¨ng ký vµ top 10 vµo table
function LoadFromFile()
    --load danh s¸ch ®¨ng ký
    if not tbTop10.tbSubcribers then
        tbTop10.tbSubcribers = {}
    end
    local tb = tbVngLib_File:TableFromFile(tbTop10.strFilePath, tbTop10.strFileName, {"*w", "*n", "*n", "*n", "*n", "*n", "*n"})
    if not tb then
        tbTop10.tbSubcribers = nil
        return
    end
    local nLength = 0
    for i = 1, getn(tb) do        
        if tb[i][1] then
            nLength = nLength + 1
            tbTop10.tbSubcribers[tb[i][1]] = {tb[i][2], tb[i][3], tb[i][4], tb[i][5], tb[i][6], tb[i][7]}            
        end
    end
    
    tbTop10.nRegisterCount = nLength
    --load top list
    tbTop10:TopListFromFile()
end
if tbTop10:IsActive() == 1 then
    local a = AutoFunctions:Add(LoadFromFile)
end 

[Anh2SiTinh]

code mình sửa lại là vầy, còn khi chạy hàm tbTop10.UpdateInfo thì thấy hàm check điều kiện đầy đủ nhưng lại ko xuất ra thông báo gì hết nhỉ.
Demo đoạn 1 phút mình test các phần lỗi mình quay lại đây.

Sao bạn cho nó hiện hạng ở dấu "?" được thế bày cho mọi người làm với

[lang_khach]

Sao bạn cho nó hiện hạng ở dấu "?" được thế bày cho mọi người làm với

nhờ pro làm hộ thôi b, m chỉ test với làm mấy thứ vớ vẩn cho vui chứ mình củng gà lắm chẳng biết gì hết nên mò cho biết thôi
b biết fix chổ top 10 này ko chỉ mình với, bạn BinLaĐen (Bil4d3n) gì đó chỉ cho mình bỏ bớt mấy hàm điều kiện đi mà mình bỏ rồi mà chạy vẩn ko đc.

[vuduymanh]

nhờ pro làm hộ thôi b, m chỉ test với làm mấy thứ vớ vẩn cho vui chứ mình củng gà lắm chẳng biết gì hết nên mò cho biết thôi
b biết fix chổ top 10 này ko chỉ mình với, bạn BinLaĐen (Bil4d3n) gì đó chỉ cho mình bỏ bớt mấy hàm điều kiện đi mà mình bỏ rồi mà chạy vẩn ko đc.

bác share cho anh em dùng mới đc ko bác

[lang_khach]

bác share cho anh em dùng mới đc ko bác

sr b m ko biết fix ở đâu, pro fix dùm cho để chơi off chứ m gà chẳng biết fix chổ nào hay làm gì chỉ mò mò cho biết thôi. b biết ko nhờ b chỉ m cách fix dùm đi b

[congthanhchien]

Bro nào fix cho thím cái xếp hạng vậy ?

[bil4i3n]

nhờ pro làm hộ thôi b, m chỉ test với làm mấy thứ vớ vẩn cho vui chứ mình củng gà lắm chẳng biết gì hết nên mò cho biết thôi
b biết fix chổ top 10 này ko chỉ mình với, bạn BinLaĐen (Bil4d3n) gì đó chỉ cho mình bỏ bớt mấy hàm điều kiện đi mà mình bỏ rồi mà chạy vẩn ko đc.

Cái này lúc qua mình làm chưa đầy 5 phút , bạn bỏ mấy cái check điều kiện đi, sau đó return nó về giá trị đúng để thực hiện lệnh, rồi dùng lệnh tbTop10:Regist() để đăng ký, khi bạn đăng ký nó sẽ lưu trong thư mục vng_data/top10/subcribers.txt đây là thư mục lưu tạm, sau đó dùng tiếp lệnh tbTop10:UpdateTopList() nó sẽ tiến hành sắp xếp và lưu vào tập tin vng_data/top10/toplist.txt thế là xong,
à cái hạng dấu hỏi mình tìm hiểu gần 2 tháng nay chưa có kết quả gì, bạn mách nước mình fix với