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.
<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>
--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 cha ®ñ, 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 cha ®¨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 cha ®ñ, 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 cha 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 cha 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
--Lu 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 lu 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 lu 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