[JX] Lỗi không chuyển phái được phái Đường Môn? [Lưu trữ]

View Full Version : [JX] Lỗi không chuyển phái được phái Đường Môn?

David_Linh_97

05-01-17, 11:08 AM

[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>]
[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>]
[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>]

Các phái khác thì e thấy đều có dòng "Muốn thỉnh giáo việc khác" để đi đến chuyển phái.
Code:
[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>]
[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>]
[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>]
[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>]

Mong được mọi người giúp đở ạ [-O<

David_Linh_97

05-01-17, 01:32 PM

Dù ai đi ngược về xuôi nhớ ngày giỗ tổ ... ? (gợi ý câu trả lời: mung 10 thang 3)

kennyhoang

05-01-17, 02:34 PM

Dù ai đi ngược về xuôi nhớ ngày giỗ tổ ... ? (gợi ý câu trả lời: mung 10 thang 3)

Bật cái debug lên show code lằng ngoằng quá .

David_Linh_97

05-01-17, 02:56 PM

Bật cái debug lên show code lằng ngoằng quá .

-- »ù´¡IOº¯Êý
local _read_ = function()
local nPakIdx = 0
if usepack then
nPakIdx = usepack(0)
end
write("--------------------\n")
write("Debug>>>: ")
local szBuff = read()
if usepack then
usepack(nPakIdx)
end
return szBuff
end
-- »ù´¡IOº¯Êý
local _write_ = function(...)
local nPakIdx = 0
if usepack then
nPakIdx = usepack(0)
end
call(write,arg)
if usepack then
usepack(nPakIdx)
end
end

-------------------
local Match = function(szExp , szRegx)
if szExp then
local _, _, szBuff, szOther = strfind(szExp, szRegx)
return szBuff, szOther
end
end

local ParseExp = function (szExp)
if not szExp then return end
local tbExp = {}
local szOp = nil
local szVar = nil
while (szExp) do
szVar, szExp = %Match(szExp, "([a-zA-Z0-9_]+)(.*)")
if szVar then
tinsert(tbExp, szVar)
end
szOp, szExp = %Match(szExp, "([%.%+%-%*/%[])(.*)")
if szOp then
tinsert(tbExp, szOp)
end
end
return tbExp
end

---------debug Ïà¹ØµÄº¯Êý--------------------------

local GetVar = function(szVar, nLevel, tbLocal)
local tmp = tonumber(szVar)
if not tmp then
if tbLocal[szVar] then
_, tmp = getlocal(nLevel, tbLocal[szVar] )
end
end
if not tmp then
tmp = getglobal(szVar)
end
return tmp
end

local calcExp = function(op, v, tmp, nLevel, tbLocal)
if op == "." then
return v[tmp]
elseif op == "[" and tonumber(tmp) then
return v[tonumber(tmp)]
elseif op == "+" then
return v + %GetVar(tmp, nLevel + 1, tbLocal)
elseif op == "-" then
return v - %GetVar(tmp, nLevel + 1, tbLocal)
elseif op == "*" then
return v * %GetVar(tmp, nLevel + 1, tbLocal)
elseif op == "/" then
return v / %GetVar(tmp, nLevel + 1, tbLocal)
else
return
end

end

local GetExpValue = function(tbExp, nLevel, tbLocal)
local v = %GetVar( tbExp[1], nLevel + 1, tbLocal)
local op = nil

for i=2, getn(tbExp) - 1, 2 do
if not v then
return nil
end
op = tbExp[i]
if op then
v = %calcExp(op, v, tbExp[i + 1], nLevel + 1, tbLocal)
else
return v
end
end
return v
end

local SetExpValue = function(tbExp, nLevel, tbLocal, varValue)
local nCount = getn(tbExp)
if nCount == 1 then
local nHook = tbLocal[tbExp[1]]
if not nHook then
return
end
setlocal(nLevel, nHook, varValue)
elseif nCount > 1 then
local szKey = tbExp[nCount]
tremove(tbExp, nCount )
szKey = tonumber(szKey) or szKey
local tb = %GetExpValue(tbExp, nLevel+1, tbLocal)
tb[szKey] = varValue
else
return
end
return 1
end

local GetLocalVariable = function (nLevel)
local tbLocal = {}
local i = 1
local k,v = getlocal(nLevel, i)
while k do
tbLocal[k] = i
i = i + 1
k,v = getlocal(nLevel, i)
end
return tbLocal
end

local ShowCurStack = function (nBaseLevel, hook)
local t=getinfo(nBaseLevel)
local nCurline = t.currentline
local szSource = t.source
if hook == "call" then
nCurline = t.linedefined
elseif hook == "return" then
local t2 = getinfo(nBaseLevel + 1)
nCurline = t2.currentline
szSource = t2.source
end

local szMsg = format(" %s ",type(hook) ~= "number" and hook or "")

if t.what ~= "main" then
szMsg = szMsg..t.what.." function "
else
szMsg = szMsg..t.what.." "
end

if t.name then
szMsg = szMsg.."'"..t.name.."'"
end
szMsg = szMsg.."\n\t\t"
szMsg = szMsg.."["..szSource.."]"
szMsg = szMsg.."("..nCurline..")"
return szMsg
end

local ShowStack = function (nBaseLevel, nCount, hook)
print("\nbreak in stack traceback:")

nCount = nCount or 10
for i=nBaseLevel, nBaseLevel + nCount - 1 do
local t=getinfo(i)
if t then
local szMsg = format("\t%d:", i - nBaseLevel + 1)
if i == nBaseLevel then
szMsg = szMsg..%ShowCurStack(i + 1, hook)
else
szMsg = szMsg..%ShowCurStack(i + 1)
end
print(szMsg)
end

end
end

local varControl = {}

local Control = function(nBaseLevel, szType, hook)
if hook == "return" then
nBaseLevel = nBaseLevel + 1
end
local t = getinfo(nBaseLevel)
local szFile = t.source
local nLine = t.currentline
local szFuncName = t.name
local nRet = 1
if szType == "s" then
%varControl.bForce = 1
elseif szType == "n" then
%varControl.source = szFile
%varControl.name = szFuncName
elseif szType == "f" then
%varControl.source = szFile
%varControl.name = szFuncName
%varControl.hook = "return"
elseif szType == "c" then
setlinehook()
setcallhook()
else
nRet = nil
end
return nRet
end

local Query = function(nBaseLevel, szType, tbVarLocal, hook)
if strfind(szType, "p .+") then
local _,_, szExp = strfind(szType, "p (.+)")
local tbExp = %ParseExp(szExp)
print(szExp.." = ", %GetExpValue(tbExp, nBaseLevel + 1, tbVarLocal) )
elseif szType == "bt" then
%ShowStack(nBaseLevel+1, 10, hook)
elseif strfind(szType, "set .+=.+") then
local _,_, szExp, szValue = strfind(szType, "set (.+)%s*=%s*(.+)")
local varValue = dostring("return "..szValue)
local tbExp = %ParseExp(szExp)
if not %SetExpValue(tbExp, nBaseLevel + 1, tbVarLocal, varValue) then
print("error expression")
end
elseif strfind(szType, "break (.-):(%d+)") then
local _,_,szFile, nLineNo = strfind(szType, "break (.-):(%d+)")
addtrap(szFile, nLineNo)
else
dostring(szType)
end
end

local ProcCmd = function(nBaseLevel, hook)
local tbVarLocal = %GetLocalVariable(nBaseLevel + 1) --»ñµÃ¶ÏµãËùÔÚ²ã¾Ö²¿±äÁ¿
local szCmd = %_read_()
while not %Control(nBaseLevel + 1, szCmd, hook) do
if szCmd == nil then
exit()
end
%Query(nBaseLevel + 1, szCmd, tbVarLocal, hook)
szCmd = %_read_()
end
end

local NeedStop = function(nLevel, hook)
local t = getinfo(nLevel)

if t.what == "C" then
return
end

if %varControl.bForce == 1 then
%varControl.bForce = nil
return 1
elseif t.source == %varControl.source and t.name == %varControl.name then
if not %varControl.hook or %varControl.hook == hook then
%varControl.hook = nil
%varControl.source = nil
%varControl.name = nil
return 1
end
end
end

local CallHook = function(hook)

local nBreakLevel = 2

if %NeedStop(nBreakLevel + 1, hook) then
%ShowStack(nBreakLevel + 1, 1, hook)
%ProcCmd(nBreakLevel + 1, hook)
end
end

local Hook = function(hook)
setcallhook(%CallHook)
setlinehook(%CallHook)
local nBreakLevel = 2 --Ö¸¶ÏµãËùÔÚµÄ²ã
%ShowStack(nBreakLevel + 1, 1, hook)
%ProcCmd(nBreakLevel + 1, hook)
end

function LuaDebug()

setbreakpointhook(%Hook)
end

function LuaUnDebug()

setbreakpointhook()
end
CODE đây bác

kennyhoang

05-01-17, 07:40 PM

-- »ù´¡IOº¯Êý
local _read_ = function()
local nPakIdx = 0
if usepack then
nPakIdx = usepack(0)
end
write("--------------------\n")
write("Debug>>>: ")
local szBuff = read()
if usepack then
usepack(nPakIdx)
end
return szBuff
end
-- »ù´¡IOº¯Êý
local _write_ = function(...)
local nPakIdx = 0
if usepack then
nPakIdx = usepack(0)
end
call(write,arg)
if usepack then
usepack(nPakIdx)
end
end

-------------------
local Match = function(szExp , szRegx)
if szExp then
local _, _, szBuff, szOther = strfind(szExp, szRegx)
return szBuff, szOther
end
end

local ParseExp = function (szExp)
if not szExp then return end
local tbExp = {}
local szOp = nil
local szVar = nil
while (szExp) do
szVar, szExp = %Match(szExp, "([a-zA-Z0-9_]+)(.*)")
if szVar then
tinsert(tbExp, szVar)
end
szOp, szExp = %Match(szExp, "([%.%+%-%*/%[])(.*)")
if szOp then
tinsert(tbExp, szOp)
end
end
return tbExp
end

---------debug Ïà¹ØµÄº¯Êý--------------------------

local GetVar = function(szVar, nLevel, tbLocal)
local tmp = tonumber(szVar)
if not tmp then
if tbLocal[szVar] then
_, tmp = getlocal(nLevel, tbLocal[szVar] )
end
end
if not tmp then
tmp = getglobal(szVar)
end
return tmp
end

local calcExp = function(op, v, tmp, nLevel, tbLocal)
if op == "." then
return v[tmp]
elseif op == "[" and tonumber(tmp) then
return v[tonumber(tmp)]
elseif op == "+" then
return v + %GetVar(tmp, nLevel + 1, tbLocal)
elseif op == "-" then
return v - %GetVar(tmp, nLevel + 1, tbLocal)
elseif op == "*" then
return v * %GetVar(tmp, nLevel + 1, tbLocal)
elseif op == "/" then
return v / %GetVar(tmp, nLevel + 1, tbLocal)
else
return
end

end

local GetExpValue = function(tbExp, nLevel, tbLocal)
local v = %GetVar( tbExp[1], nLevel + 1, tbLocal)
local op = nil

for i=2, getn(tbExp) - 1, 2 do
if not v then
return nil
end
op = tbExp[i]
if op then
v = %calcExp(op, v, tbExp[i + 1], nLevel + 1, tbLocal)
else
return v
end
end
return v
end

local SetExpValue = function(tbExp, nLevel, tbLocal, varValue)
local nCount = getn(tbExp)
if nCount == 1 then
local nHook = tbLocal[tbExp[1]]
if not nHook then
return
end
setlocal(nLevel, nHook, varValue)
elseif nCount > 1 then
local szKey = tbExp[nCount]
tremove(tbExp, nCount )
szKey = tonumber(szKey) or szKey
local tb = %GetExpValue(tbExp, nLevel+1, tbLocal)
tb[szKey] = varValue
else
return
end
return 1
end

local GetLocalVariable = function (nLevel)
local tbLocal = {}
local i = 1
local k,v = getlocal(nLevel, i)
while k do
tbLocal[k] = i
i = i + 1
k,v = getlocal(nLevel, i)
end
return tbLocal
end

local ShowCurStack = function (nBaseLevel, hook)
local t=getinfo(nBaseLevel)
local nCurline = t.currentline
local szSource = t.source
if hook == "call" then
nCurline = t.linedefined
elseif hook == "return" then
local t2 = getinfo(nBaseLevel + 1)
nCurline = t2.currentline
szSource = t2.source
end

local szMsg = format(" %s ",type(hook) ~= "number" and hook or "")

if t.what ~= "main" then
szMsg = szMsg..t.what.." function "
else
szMsg = szMsg..t.what.." "
end

if t.name then
szMsg = szMsg.."'"..t.name.."'"
end
szMsg = szMsg.."\n\t\t"
szMsg = szMsg.."["..szSource.."]"
szMsg = szMsg.."("..nCurline..")"
return szMsg
end

local ShowStack = function (nBaseLevel, nCount, hook)
print("\nbreak in stack traceback:")

nCount = nCount or 10
for i=nBaseLevel, nBaseLevel + nCount - 1 do
local t=getinfo(i)
if t then
local szMsg = format("\t%d:", i - nBaseLevel + 1)
if i == nBaseLevel then
szMsg = szMsg..%ShowCurStack(i + 1, hook)
else
szMsg = szMsg..%ShowCurStack(i + 1)
end
print(szMsg)
end

end
end

local varControl = {}

local Control = function(nBaseLevel, szType, hook)
if hook == "return" then
nBaseLevel = nBaseLevel + 1
end
local t = getinfo(nBaseLevel)
local szFile = t.source
local nLine = t.currentline
local szFuncName = t.name
local nRet = 1
if szType == "s" then
%varControl.bForce = 1
elseif szType == "n" then
%varControl.source = szFile
%varControl.name = szFuncName
elseif szType == "f" then
%varControl.source = szFile
%varControl.name = szFuncName
%varControl.hook = "return"
elseif szType == "c" then
setlinehook()
setcallhook()
else
nRet = nil
end
return nRet
end

local Query = function(nBaseLevel, szType, tbVarLocal, hook)
if strfind(szType, "p .+") then
local _,_, szExp = strfind(szType, "p (.+)")
local tbExp = %ParseExp(szExp)
print(szExp.." = ", %GetExpValue(tbExp, nBaseLevel + 1, tbVarLocal) )
elseif szType == "bt" then
%ShowStack(nBaseLevel+1, 10, hook)
elseif strfind(szType, "set .+=.+") then
local _,_, szExp, szValue = strfind(szType, "set (.+)%s*=%s*(.+)")
local varValue = dostring("return "..szValue)
local tbExp = %ParseExp(szExp)
if not %SetExpValue(tbExp, nBaseLevel + 1, tbVarLocal, varValue) then
print("error expression")
end
elseif strfind(szType, "break (.-):(%d+)") then
local _,_,szFile, nLineNo = strfind(szType, "break (.-):(%d+)")
addtrap(szFile, nLineNo)
else
dostring(szType)
end
end

local ProcCmd = function(nBaseLevel, hook)
local tbVarLocal = %GetLocalVariable(nBaseLevel + 1) --»ñµÃ¶ÏµãËùÔÚ²ã¾Ö²¿±äÁ¿
local szCmd = %_read_()
while not %Control(nBaseLevel + 1, szCmd, hook) do
if szCmd == nil then
exit()
end
%Query(nBaseLevel + 1, szCmd, tbVarLocal, hook)
szCmd = %_read_()
end
end

local NeedStop = function(nLevel, hook)
local t = getinfo(nLevel)

if t.what == "C" then
return
end

if %varControl.bForce == 1 then
%varControl.bForce = nil
return 1
elseif t.source == %varControl.source and t.name == %varControl.name then
if not %varControl.hook or %varControl.hook == hook then
%varControl.hook = nil
%varControl.source = nil
%varControl.name = nil
return 1
end
end
end

local CallHook = function(hook)

local nBreakLevel = 2

if %NeedStop(nBreakLevel + 1, hook) then
%ShowStack(nBreakLevel + 1, 1, hook)
%ProcCmd(nBreakLevel + 1, hook)
end
end

local Hook = function(hook)
setcallhook(%CallHook)
setlinehook(%CallHook)
local nBreakLevel = 2 --Ö¸¶ÏµãËùÔÚµÄ²ã
%ShowStack(nBreakLevel + 1, 1, hook)
%ProcCmd(nBreakLevel + 1, hook)
end

function LuaDebug()

setbreakpointhook(%Hook)
end

function LuaUnDebug()

setbreakpointhook()
end
CODE đây bác

Trời ơi biết cái Log script lỗi không :(( Show cái đó lên . Thấy nó bỏ qua script chuyển phái mà k biết nó sai ở đâu. Thường thì script JX khi lỗi hoặc sai cú pháp no vẫn chạy nhưng bỏ qua luôn đoạn lỗi đó và lưu Log đã lỗi đó

David_Linh_97

05-01-17, 08:06 PM

Trời ơi biết cái Log script lỗi không :(( Show cái đó lên . Thấy nó bỏ qua script chuyển phái mà k biết nó sai ở đâu. Thường thì script JX khi lỗi hoặc sai cú pháp no vẫn chạy nhưng bỏ qua luôn đoạn lỗi đó và lưu Log đã lỗi đó

[2017-01-05 14:30:38] error: `for' table must be a table
stack traceback:
1[153]: function <129:string "\script\activitysys\config\1008\give_rose_t..."> at line 137

[2017-01-05 17:47:50] error: bad argument #1 to `getn' (table expected, got nil)
stack traceback:
1[153]: function `getn' [C]
2[150]: function `didenvitrikhac' at line 353 [string "/script/item/ib/shenxingfu.lua"]

[2017-01-05 17:54:11] error: bad argument #1 to `getn' (table expected, got nil)
stack traceback:
1[153]: function `getn' [C]
2[150]: function `didenvitrikhac' at line 353 [string "/script/item/ib/shenxingfu.lua"]

[2017-01-05 18:03:16] error: attempt to call global `LG_ApplyDoScript' (a nil value)
stack traceback:
1[195]: method `pFun' at line 223 [string "\script\event\jiefang_jieri\201004\main.lua"]
2[190]: method `Give' at line 6 [string "/script/lib/awardtype/fun.lua"]
3[182]: method `Give' at line 52 [string "\script\lib\awardtemplet.lua"]
4[174]: method `Give' at line 45 [string "\script\lib\awardtemplet.lua"]
5[169]: method `GiveAwardByList' at line 60 [string "\script\lib\awardtemplet.lua"]
6[163]: method `Compose' at line 350 [string "\script\lib\composeex.lua"]
7[158]: function <437:string "\script\lib\composeex.lua"> at line 450
8[155]: function `call' [C]
9[150]: function `g_AskClientNumberBackEx' at line 108 [string "\script\dailogsys\dailogsay.lua"]

[2017-01-05 18:18:37] error: attempt to call global `LG_ApplyDoScript' (a nil value)
stack traceback:
1[195]: method `pFun' at line 223 [string "\script\event\jiefang_jieri\201004\main.lua"]
2[190]: method `Give' at line 6 [string "/script/lib/awardtype/fun.lua"]
3[182]: method `Give' at line 52 [string "\script\lib\awardtemplet.lua"]
4[174]: method `Give' at line 45 [string "\script\lib\awardtemplet.lua"]
5[169]: method `GiveAwardByList' at line 60 [string "\script\lib\awardtemplet.lua"]
6[163]: method `Compose' at line 350 [string "\script\lib\composeex.lua"]
7[158]: function <437:string "\script\lib\composeex.lua"> at line 450
8[155]: function `call' [C]
9[150]: function `g_AskClientNumberBackEx' at line 108 [string "\script\dailogsys\dailogsay.lua"]