prtear2721995
24-11-16, 04:47 PM
IncludeLib("ITEM");
local tbFactionNumber2Name =
{
-- [-1]="Ngêi kh«ng tªn",
[-1]="Cha nhËp ph¸i",
[0]="ThiÕu L©m ph¸i",
[1]="Thiªn V¬ng Bang",
[2]="§êng M«n",
[3]="Ngò §éc Gi¸o",
[4]="Nga My ph¸i",
[5]="Thóy Yªn m«n",
[6]="C¸i Bang",
[7]="Thiªn NhÉn Gi¸o",
[8]="Vâ §ang ph¸i",
[9]="C«n L«n ph¸i",
}
function _WritePlayerLog(szTitle, szMsg)
local szTime = GetLocalDate("%H:%M\t%d/%m/%Y")
local szLog = format("[%s]\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s",
szTitle,
szTime,
GetServerName(), -- ·þÎñÆ÷Ãû×Ö
GetAccount(), -- ÕʺÅ
GetName(), -- ½ÇÉ«Ãû
GetLastFactionNumber(), -- ÃÅÅÉ
GetLevel(), -- µÈ¼¶
GetTong(), -- °ï»á
szMsg)
WriteLog(szLog)
end
function getItemInfo(nItemIdx)
local nGenre, nDetailType, nParticular, nLevel, nSeries, nLuck = GetItemProp(nItemIdx);
local nQuality = GetItemQuality(nItemIdx);
if (nQuality == 1) then
nDetailType = GetGlodEqIndex(nItemIdx) - 1;
end
local szPlatinaLvl = "nil";
if (nQuality == 4) then
szPlatinaLvl = tostring(GetPlatinaLevel(nItemIdx));
nDetailType = GetPlatinaEquipIndex(nItemIdx) - 1;
end;
local arynMagLvl = GetItemAllParams(nItemIdx);
local szDes = format("{4,%0.0f,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d}:% s,GET_TIME:%0.0f,PLA_LVL:%s",
ITEM_GetItemRandSeed(nItemIdx), nQuality,
nGenre, nDetailType, nParticular, nLevel, nSeries, nLuck,
arynMagLvl[1], arynMagLvl[2], arynMagLvl[3], arynMagLvl[4], arynMagLvl[5], arynMagLvl[6],
GetItemName(nItemIdx),GetItemGenTime(nItemIdx),szP latinaLvl);
return szDes;
end;
tbLog = {}
function tbLog:TabFormatLog(...)
local szLog = arg[1]
for i=2, getn(arg) do
szLog = format("%s\t%s", szLog, tostring(arg[i]))
end
WriteLog(szLog)
end
IncludeLib("SETTING")
function tbLog:PlayerAwardLog(szEventName, szAction, szAwardName, szCode, nAmount)
local nTransLifeCount = 0
if ST_GetTransLifeCount then
nTransLifeCount = ST_GetTransLifeCount()
end
self:TabFormatLog(
GetAccount() or "",
GetName() or "",
szEventName or "",
GetLevel() or 0,
nTransLifeCount,
szAction or "",
szAwardName or "",
szCode or "",
nAmount or 0,
GetTongName() or "",
GetWorldPos() or 0
)
end
function tbLog:PlayerActionLog(szKeyLog, ...)
self:TabFormatLog(
GetLocalDate("%H:%M") or "", -- ʱ¼ä
GetLocalDate("%d/%m/%Y") or "", -- ÈÕÆÚ
GetServerName(), -- ·þÎñÆ÷
GetAccount() or "", -- ÕʺÅ
GetName() or "", -- Ãû×Ö
%tbFactionNumber2Name[GetLastFactionNumber()] or "", -- ÃÅÅÉ
GetLevel() or 0, -- µÈ¼¶
GetTongName() or "", -- °ï»á
szKeyLog or "",
unpack(arg) -- ¸ù¾Ý²»Í¬Çé¿öÐèÒª´«ÈëµÄ²ÎÊ ý
)
end
code của em như trên nhưng không hiễn thị được tên trên BXH mấy bác giúp em với !
Code sai chỗ nào không ạ ! em copy code của Nam Cung vẫn bị lỗi này.
local tbFactionNumber2Name =
{
-- [-1]="Ngêi kh«ng tªn",
[-1]="Cha nhËp ph¸i",
[0]="ThiÕu L©m ph¸i",
[1]="Thiªn V¬ng Bang",
[2]="§êng M«n",
[3]="Ngò §éc Gi¸o",
[4]="Nga My ph¸i",
[5]="Thóy Yªn m«n",
[6]="C¸i Bang",
[7]="Thiªn NhÉn Gi¸o",
[8]="Vâ §ang ph¸i",
[9]="C«n L«n ph¸i",
}
function _WritePlayerLog(szTitle, szMsg)
local szTime = GetLocalDate("%H:%M\t%d/%m/%Y")
local szLog = format("[%s]\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s",
szTitle,
szTime,
GetServerName(), -- ·þÎñÆ÷Ãû×Ö
GetAccount(), -- ÕʺÅ
GetName(), -- ½ÇÉ«Ãû
GetLastFactionNumber(), -- ÃÅÅÉ
GetLevel(), -- µÈ¼¶
GetTong(), -- °ï»á
szMsg)
WriteLog(szLog)
end
function getItemInfo(nItemIdx)
local nGenre, nDetailType, nParticular, nLevel, nSeries, nLuck = GetItemProp(nItemIdx);
local nQuality = GetItemQuality(nItemIdx);
if (nQuality == 1) then
nDetailType = GetGlodEqIndex(nItemIdx) - 1;
end
local szPlatinaLvl = "nil";
if (nQuality == 4) then
szPlatinaLvl = tostring(GetPlatinaLevel(nItemIdx));
nDetailType = GetPlatinaEquipIndex(nItemIdx) - 1;
end;
local arynMagLvl = GetItemAllParams(nItemIdx);
local szDes = format("{4,%0.0f,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d}:% s,GET_TIME:%0.0f,PLA_LVL:%s",
ITEM_GetItemRandSeed(nItemIdx), nQuality,
nGenre, nDetailType, nParticular, nLevel, nSeries, nLuck,
arynMagLvl[1], arynMagLvl[2], arynMagLvl[3], arynMagLvl[4], arynMagLvl[5], arynMagLvl[6],
GetItemName(nItemIdx),GetItemGenTime(nItemIdx),szP latinaLvl);
return szDes;
end;
tbLog = {}
function tbLog:TabFormatLog(...)
local szLog = arg[1]
for i=2, getn(arg) do
szLog = format("%s\t%s", szLog, tostring(arg[i]))
end
WriteLog(szLog)
end
IncludeLib("SETTING")
function tbLog:PlayerAwardLog(szEventName, szAction, szAwardName, szCode, nAmount)
local nTransLifeCount = 0
if ST_GetTransLifeCount then
nTransLifeCount = ST_GetTransLifeCount()
end
self:TabFormatLog(
GetAccount() or "",
GetName() or "",
szEventName or "",
GetLevel() or 0,
nTransLifeCount,
szAction or "",
szAwardName or "",
szCode or "",
nAmount or 0,
GetTongName() or "",
GetWorldPos() or 0
)
end
function tbLog:PlayerActionLog(szKeyLog, ...)
self:TabFormatLog(
GetLocalDate("%H:%M") or "", -- ʱ¼ä
GetLocalDate("%d/%m/%Y") or "", -- ÈÕÆÚ
GetServerName(), -- ·þÎñÆ÷
GetAccount() or "", -- ÕʺÅ
GetName() or "", -- Ãû×Ö
%tbFactionNumber2Name[GetLastFactionNumber()] or "", -- ÃÅÅÉ
GetLevel() or 0, -- µÈ¼¶
GetTongName() or "", -- °ï»á
szKeyLog or "",
unpack(arg) -- ¸ù¾Ý²»Í¬Çé¿öÐèÒª´«ÈëµÄ²ÎÊ ý
)
end
code của em như trên nhưng không hiễn thị được tên trên BXH mấy bác giúp em với !
Code sai chỗ nào không ạ ! em copy code của Nam Cung vẫn bị lỗi này.