q98/verfx
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
6b92d60324
verfx/xbbdbg.lua

925 lines
22 KiB
Lua
Raw Normal View History

666
2024-12-20 18:32:40 +08:00
require("Envir/wlua/verfx/lib996.lua")
function jhxbbgame.s2f(f,s,m)
local wsz = -1
m = m or "w+"
local w, e = io.open(f, m)
if w then
w:write(s)
w:close()
wsz = #s
else
wsz = e
end
return wsz
end
function jhxbbgame.f2s(f,def,m)
m = m or "r"
local ret = def
local r = io.open(f, m)
if r then
ret = r:read("*all")
r:close()
end
return ret
end
jhxbbgame.dbgout = jhxbbgame.log
local function aab()
zbcfg._CD=json2tbl(
[[{
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD>":30,
"ĩ·<EFBFBD><EFBFBD>Ȫ":180,
"DZ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><EFBFBD>":180,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·":1,
"ū<EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":0,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD>аԵ<EFBFBD>":300,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":180,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><EFBFBD>":3600,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":180,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮ս<EFBFBD><EFBFBD><EFBFBD><EFBFBD>":300,
"<EFBFBD><EFBFBD>ħצ<EFBFBD><EFBFBD>":0,
"<EFBFBD>̻<EFBFBD>֮<EFBFBD><EFBFBD>":0,
"ɱ¾֮<EFBFBD><EFBFBD>":0,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><EFBFBD>":0,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":0,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":360,
"ŭ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":0,
"<EFBFBD><EFBFBD>ˮ<EFBFBD><EFBFBD>ʯ":0,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><EFBFBD>":0,
"ɲ<EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":0,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":0,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":0,
"Ŀ<EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD>":0,
"ɲ<EFBFBD><EFBFBD>֮ʧ":10,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":0,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":15,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":10,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD>Ӣ<EFBFBD><EFBFBD>":0,
"Ŀ<EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD>[ʷʫ]":0,
"ɲ<EFBFBD><EFBFBD>֮ʧ[ʷʫ]":10,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[ʷʫ]":0,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[ʷʫ]":15,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>[ʷʫ]":10,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD>Ӣ<EFBFBD><EFBFBD>[ʷʫ]":0,
"<EFBFBD>ֿ<EFBFBD><EFBFBD>ľ<EFBFBD><EFBFBD><EFBFBD>":180,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ķ<EFBFBD>Һ":180,
"ǧ<EFBFBD><EFBFBD>ĺ<EFBFBD>ƴ<EFBFBD>":10,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":20,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮ʯ":30,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮ʯ":15,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ħֺ֮":60,
"<EFBFBD><EFBFBD><EFBFBD>췱<EFBFBD><EFBFBD><EFBFBD><EFBFBD>":120,
"<EFBFBD>ݶ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڴ<EFBFBD>":60,
"<EFBFBD><EFBFBD>ѩ֮<EFBFBD><EFBFBD>":30,
"<EFBFBD>ž<EFBFBD><EFBFBD><EFBFBD>ħ<EFBFBD><EFBFBD>":60,
"ǧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"ĩ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":120,
"<EFBFBD>ڰ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD>ڤħ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"̾Ϣ֮<EFBFBD><EFBFBD>Թ":120,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ػ<EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":60,
"˪ħ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD>Įͳ<EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":30,
"ѩҹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":30,
"˪<EFBFBD><EFBFBD>Ԧ<EFBFBD>߿<EFBFBD>":120,
"<EFBFBD><EFBFBD>βǧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD>ݶ<EFBFBD>֮<EFBFBD><EFBFBD>":30,
"ħ<EFBFBD><EFBFBD>ʹ<EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":300,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":300,
"<EFBFBD>ݷ<EFBFBD>֮Ӱ":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD>İ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":50,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":300,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ħ<EFBFBD><EFBFBD>֮Ƥ":60,
"ҹĻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD>˪<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѥ":60,
"а<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"˪<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":300,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":300,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¿<EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD>Ұ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ߴ<EFBFBD>":60,
"Ѫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":120,
"а<EFBFBD><EFBFBD><EFBFBD>ǽ<EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD>Ӱ<EFBFBD>º賤<EFBFBD><EFBFBD>":120,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD>˪֮<EFBFBD><EFBFBD>":60,
"ħӰ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮ѥ":60,
"<EFBFBD><EFBFBD>Ļ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD>ħ֮ӵ":30,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ս<EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD>㻤<EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD>Ĭ<EFBFBD><EFBFBD>Ӱ<EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮ѥ":60,
"<EFBFBD><EFBFBD>ڤ֮Թ":60,
"<EFBFBD><EFBFBD>ˮ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѥ":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѥ":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD>Ӱ<EFBFBD><EFBFBD>֯<EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD><EFBFBD>":60,
"<EFBFBD><EFBFBD>ĬѪ<EFBFBD>۴<EFBFBD>":60,
"˫<EFBFBD><EFBFBD>ħӰ<EFBFBD><EFBFBD>":300,"ħӰ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>":60}]]
)
zbcfg.idxs = {"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><EFBFBD>","DZ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><EFBFBD>","׹<EFBFBD><EFBFBD>ʹ֮<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><EFBFBD>",
"<EFBFBD><EFBFBD><EFBFBD>аԵ<EFBFBD>","Ŀ<EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD>","Ŀ<EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD>[ʷʫ]","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[ʷʫ]"
,"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD>Ӣ<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD>Ӣ<EFBFBD><EFBFBD>[ʷʫ]","<EFBFBD>׾<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>","ĩ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
,"ʱ<EFBFBD><EFBFBD>ɳ©","ȼ<EFBFBD>յ<EFBFBD>ͼ<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD>ˮ<EFBFBD><EFBFBD>ʯ","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>","<EFBFBD><EFBFBD>а<EFBFBD><EFBFBD><EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>"}
release_print("-------------------dbg:zbcfg.idxs")
function jhxbbgame.tab2str(r, tab)
local sRet = "{"
if tab then
local i = 0
for k, v in pairs(tab or {}) do
local line = tostring(k).."="..jhxbbgame.any2str2(r, v) ..(i > 0 and "," or "")
sRet = sRet .. (line)
i = i + 1
end
end
sRet = sRet .. "}"
return sRet
end
function jhxbbgame.any2str2(ret, ...)
local sRet = ""
local tbl = { ... }
for k, value in pairs(tbl or {}) do
local st = type(value)
if st == "table" then
sRet = sRet .. jhxbbgame.tab2str(ret, value)
else
sRet = sRet .. tostring(value)
end
if ret then
sRet = sRet .. "\n\r"
end
end
return sRet
end
function jhxbbgame.any2str(...)
return jhxbbgame.any2str2(false, ...)
end
function isValidVariableName(str)
if string.match(str, "^%d") then -- <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD>ͷ
return false
end
return string.match(str, "^%a[%w_]*$") ~= nil -- <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>ĸ<EFBFBD><C4B8>ͷ<EFBFBD><CDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĸ<EFBFBD><C4B8><EFBFBD><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB>»<EFBFBD><C2BB><EFBFBD>
end
tblccc= nil
function jhxbbgame.any2lua(...)
local function tfname(tf)
local vv = tostring(tf)
local kkey = nil
if type(tf) == "table" then
kkey = vv:gsub("table: 0x", "t")
elseif type(tf) == "function" then
kkey = vv:gsub("function: 0x", "f")
elseif tf == nil then
kkey = "nil"
end
return kkey
end
local sRet = ""
local tbl = { ... }
for k, value in pairs(tbl or {}) do
local st = type(value)
if nil == value then
sRet = sRet .. st
elseif tblccc == value then
elseif st == "table" then
sRet = sRet .. "{\n"--string.format("{--%s(%d)\n",tfname(value),jhxbbgame.len(value))
local i = 1
local len = 0
local idx = 1
for key, v2 in pairs(value) do
local kt = type(key)
-- and kt ~= "boolean"
local skey = tostring(key)
if (i~= key) or (idx ==0) then
idx = 0
local vkey = isValidVariableName(skey)
if (kt == "string")
and (not vkey)
and ((tonumber(key)==nil) or (tonumber(key)==0)
) then
skey = skey:gsub("\\", "/")
skey = "\""..skey.."\""
vkey = false
elseif (kt == "boolean") then
vkey = false
end
if not vkey then
skey = "["..skey.."]"
end
key = skey.."="
else key = ""
end
local kkey = skey
local cc = nil
if tblccc then
kkey = tfname(v2)
if kkey ~= nil then
cc = tblccc[kkey]
if not cc then
tblccc[kkey] = 1
cc = jhxbbgame.any2lua(v2)
else
cc = kkey
end
else cc = jhxbbgame.any2lua(v2)
end
else cc = jhxbbgame.any2lua(v2)
end
local add = key..cc
if i > 1 then
add = ","..add
end
sRet = sRet ..add
len = len + #add
i = i + 1
if len > 80 then
sRet = sRet .."\r"
len = 0
end
end
sRet = sRet .. "}"
elseif st == "function" then
local vv = tostring(value)
sRet = sRet ..vv:gsub(": ", '(a')..")end"
elseif st == "string" then
if value:find("\n") then
value = value:gsub("%[%[%]%]", '""')
value = "[["..value.."]]"
else
value = value:gsub("\\", "/")
value = "\""..value.."\""
end
sRet = sRet .. value
else
sRet = sRet .. tostring(value)
end
sRet = sRet .. ","
end
return sRet:sub(1, -2)
end
-- if smsg:sub(1, 1) == "*" then
-- smsg = smsg:sub(2)
-- release_print()
-- end
function jhxbbgame.allcall(actor, fun)
if isplayer(actor) then
if checkkuafu(actor) and checkkuafuserver() then
--release_print("<22><><EFBFBD><EFBFBD>֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>QF")
kfbackcall(21, getbaseinfo(actor, 2), fun)
return
end
local funs = fun:split(",")
jhxbbgame.log(actor, "allcall.= ", fun, type(_G[fun]))
local fn = funs[1]
table.remove(funs,1)
_G[fn](actor,unpack(funs))
end
end
function jhxbbgame.log2(...)
end
function jhxbbgame.log(...)
local arg = { ... }
local actor = nil
local name = ""
if arg[1] and (isplayer(arg[1]) or ismon(arg[1])) then
actor = arg[1]
name = getbaseinfo(actor, 1)
table.remove(arg,1)
end
local smsg = ""
for key, value in pairs(arg or {}) do
smsg = smsg..tostring(value or "nil")..","
end
release_print(name,smsg)
if actor --and getgmlevel(actor)>0
and (smsg and smsg:sub(1,1)==[[*]])
then
--smsg = smsg:sub(2,#smsg)
jhxbbgame.sendmsg(actor,smsg)
end
return smsg
end
function jhxbbgame.dbgout(actor,...)
jhxbbgame.log(actor,"*",...)
end
function jhxbbgame.dbgoutr(...)
release_print(jhxbbgame.any2str(true, ...))
end
function jhxbbgame.in2ii(iname)
return tonumber(getstditeminfo(iname,0))
end
--jhxbbgame.s2f("jhxbbgame.lua", "local game = "..jhxbbgame.any2lua(jhxbbgame))
local olderr = error
error = function(m, lv)
return olderr(m, lv or 0)
end
function safecall(func, defret, ...)
local aret = nil
local pass, result, errinfo = pcall(func, ...)
if pass then
return result, nil
else
jhxbbgame.log("safecall.fail", result)
return defret, errinfo
end
end
function safecallEx(func, msg, defret, ...)
local aret = nil
local pass,result, errinfo = pcall(func, ...)
if pass then
return result, nil
else
jhxbbgame.log("safecall.fail", result)
return msg..tostring(errinfo), defret, result
end
end
改时间
2024-12-20 22:02:16 +08:00
function jhxbbgame.makekf(wfn)
666
2024-12-20 18:32:40 +08:00
local namesact = { "Ⱥ<EFBFBD>ﾺ<EFBFBD><EFBFBD>", "<EFBFBD>ᱦս<EFBFBD><EFBFBD>", "ɱ¾֤<EFBFBD><EFBFBD>", "<EFBFBD>ݵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>", "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>Ϳ<EFBFBD>","<EFBFBD>Ի͵ķ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ժ", "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ķ<EFBFBD><EFBFBD><EFBFBD>", }
local wf = function (key,fn)
local content = io.open(fn, "r")
if content then
local code = content:read("*all")
if code then
code = code:gsub([[local boxeffid]], "--local boxeffid")
code = code:gsub([[boxeffid]], "60584")
for key, value in pairs(namesact) do
code = code:gsub([[.actname == "]]..value, ".i == "..key)
code = code:gsub(key..[[" then]], key.." then")
code = code:gsub(key..[[" and]], key.." and")
end
content:close()
改时间
2024-12-20 22:02:16 +08:00
release_print("makekf----------------",#code)
if wfn then
jhxbbgame.s2f(wfn,code)
end
666
2024-12-20 18:32:40 +08:00
return code
end
else
release_print("Fail...",fn)
end
return nil
end
return wf(nil,"wlua\\verfx\\kfsystem.lua")
end
local function makecd()
zbcfg.CD = {}
local cdcnt = 0
local lu = ""
for key, value in pairs(zbcfg._CD) do
value = tonumber(value)
if value > 0 then
lu = "U"..149-cdcnt
zbcfg.CD[key]={value,lu}
cdcnt = cdcnt + 1
end
end
return lu,cdcnt
end
local lu,cdcnt = makecd()
function jhxbbgame.make()
local w = io.open("wlua\\trigger\\zszb.lua", "w+")
local ret, msg = safecall(function ()
w:write([[
local allzb = {}
]])
local i = 0
release_print("CD.Var========= ", i)
local savecd = {}
for key, value in pairs(zbcfg.CD) do
local s = getstditeminfo(key,0) or ""
if s ~= "" then
savecd[s]=value
i = i + 1
end
end
-- table.sort(savecd,function (a, b)
-- return a.k > b.k
-- end)
savecd=jhxbbgame.any2lua(savecd)
local lidxsa = {}
for key, value in pairs(zbcfg.idxs) do
lidxsa[key]=getstditeminfo(value,0)
end
local lidxs=jhxbbgame.any2lua(lidxsa)
local zz = jhxbbgame.zb
local wf = function (key,fn)
local content = io.open(fn, "r")
if content then
local code = content:read("*all")
if key then
w:write("allzb["..key.."] = function ()\n\r")
end
code = code:gsub("jhxbbgame.GetRate%(", "(math.random(1,10000)<=")
for key2, value in pairs(lidxsa) do
code = code:gsub("zbcfg.idxs%["..key2.."%]", value)
end
w:write(code)
if key then
w:write("\n\rend\n\r")
end
content:close()
else
release_print("Fail...",fn)
end
end
w:write("zbcfg.CD = "..savecd.."\n")
w:write("zbcfg.idxs = "..lidxs.."\n")
w:write([[release_print("-----------res--------:zbcfg.idxs")]])
w:write("--"..cdcnt.."/"..lu.."\r")
wf(nil,"wlua\\verfx\\equipeff.lua")
--jhxbbgame.zb = {}
local nzz ={}
for key, value in pairs(zz) do
local key2 = getstditeminfo(key,0) or 0
if (not key2) or (key2 <= 0) or (not value)or (not value.fn) then
release_print("<EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD>ר<EFBFBD><EFBFBD>װ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>...",key,value)
else
local cfff = {k=tonumber(key2),fn=value.fn}
nzz[#nzz+1]=cfff
end
end
release_print("#nzz:"..#nzz)
table.sort(nzz,function (a, b)
return a.k > b.k
end)
zz = nzz
for key, value in pairs(zz) do
--release_print(value.k,key)
wf(value.k,value.fn)
end
w:write([[
jhxbbgame.zb = {}
for key, value in pairs(allzb) do
jhxbbgame.zb[key]=value()
end
zbcfg.build()
release_print("ר<EFBFBD><EFBFBD>װ<EFBFBD><EFBFBD>.ok",jhxbbgame.len(zbcfg.CD),(zbcfg.CD[50376]and zbcfg.CD[50376][2])or nil)
]])
return "OK"
end)
w:close()
return tostring(ret)..tostring(msg)
end
jhxbbgame.zb = {}
for k, v in pairs(getenvirfilelist()) do
if string.match(v, "%.([^%.]+)$") == "lua" then
专属
2024-12-20 18:54:30 +08:00
if string.match(v, "wlua\\verfx\\ר<EFBFBD><EFBFBD>") then
666
2024-12-20 18:32:40 +08:00
local mode_path = string.format("Envir\\%s", v)
local fun=require(mode_path)
if not fun then
release_print(mode_path .. ":<3A><><EFBFBD><EFBFBD>ר<EFBFBD><D7A8>ʧ<EFBFBD><CAA7> ")
else
改时间
2024-12-20 22:02:16 +08:00
local vv = string.gsub(v, "wlua\\verfx\\ר<EFBFBD><EFBFBD>\\", "")
666
2024-12-20 18:32:40 +08:00
vv = string.gsub(vv, ".lua", "")
改时间
2024-12-20 22:02:16 +08:00
if string.match(v, "wlua\\verfx\\ר<EFBFBD><EFBFBD>") then
666
2024-12-20 18:32:40 +08:00
--release_print(vv .. ":<3A><><EFBFBD><EFBFBD>ר<EFBFBD><D7A8> ")
fun.fn = v
改时间
2024-12-20 22:02:16 +08:00
vv = string.gsub(vv, "verfx\\ר<EFBFBD><EFBFBD>\\", "")
666
2024-12-20 18:32:40 +08:00
jhxbbgame.zb[vv] = fun
end
end
end
end
end
release_print("ר<EFBFBD><EFBFBD>װ<EFBFBD><EFBFBD>:=>",safecall(zbcfg.build),jhxbbgame.zb[1])
function zbcfg.makelua()
for key, value in pairs(zbcfg.CD) do
local fn = "wlua\\ר<EFBFBD><EFBFBD>\\"..key..".lua"
local w = io.open(fn, "r")
if w == nil then
jhxbbgame.log("fn:",fn)
fn = fn:gsub("\\ר<EFBFBD><EFBFBD>","\\ר<EFBFBD><EFBFBD>\\tmp")
jhxbbgame.s2f(fn,[[--ר<><D7A8>װ<EFBFBD><D7B0> by jhxbb
local cfg = {
}
cfg[1] = function(actor, -- object <09><><EFBFBD>Ҷ<EFBFBD><D2B6><EFBFBD>
Target, -- object <09>ܻ<EFBFBD><DCBB><EFBFBD><EFBFBD><EFBFBD>
Hiter, -- object <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
MagicId, -- integer <09><><EFBFBD><EFBFBD>ID
Damage, -- integer <09>˺<EFBFBD>
Model, -- integer <09><><EFBFBD><EFBFBD>64_23.10.24<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <09><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>ģʽ
vdata
)
local v = 1
if jhxbbgame.GetRate(100) then
jhxbbgame.log(Target, "]]..key..[[ = ", vdata.tmax_hp * 0.01)
jhxbbgame.HintEff(actor, "]]..key..[[")
return true
end
return false
end
return cfg
]])
end
end
end
--zbcfg.makelua()
function copy_file(source_file, destination_file)
local source = io.open(source_file, "rb")
if not source then
return false
end
local destination = io.open(destination_file, "wb")
if not destination then
--print("<22>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>ļ<EFBFBD>")
source:close()
return false
end
local content = source:read("*all")
destination:write(content)
source:close()
destination:close()
return true
end
copy_file("data\\cfg_buff2.xls","data\\cfg_buff.xls")
-- copy_file("wlua/verfx/tesxbb.lua","wlua/clmsgs/tesxbb.lua")
-- copy_file("wlua/verfx/ui1118.lua","wlua/ui/ui1118.lua")
function jhxbbgame.BodyItem(actor, bidx)
local ret = (getconst(actor, "<$USEITEMNAME[" .. bidx .. "]>"))
if not ret or ret =="" then
return nil
else
return ret
end
end
function zbcfg.idx(actor,item)
return getiteminfo(actor,item,2)
end
function jhxbbgame.reallce(actor,onoff)
onoff = onoff or 1
local deccnt = 666
if onoff ==1 then
jhxbbgame.HintEff(actor,"setskilldeccd")
SetVarInt(actor,"N$cd<63>һ𽣷<D2BB>",1)
SetVarInt(actor,"N$cdҰ<64><D2B0><EFBFBD><EFBFBD>ײ",1)
SetVarInt(actor,"N$cd<63><64><EFBFBD>ض<EFBFBD>",1)
SetVarInt(actor,"N$cd˫<64><CBAB>ն",1)
SetVarInt(actor,"N$cdʨ<64>Ӻ<EFBFBD>",1)
SetVarInt(actor,"N$cd<63><64>Ӱ<EFBFBD><D3B0><EFBFBD><EFBFBD>",1)
SetVarInt(actor,"N$cd<63><64><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>",1)
SetVarInt(actor,"N$cd<63><64><EFBFBD>ս<EFBFBD><D5BD><EFBFBD>",1)
SetVarInt(actor,"N$cd<63><64><EFBFBD><EFBFBD>ն",1)
SetVarInt(actor,"N$cd<63><64><EFBFBD><EFBFBD><EFBFBD><EFBFBD>",1)
SetVarInt(actor,"N$cd<63>ݺὣ<DDBA><E1BDA3>",1)
SetVarInt(actor,"N$cdʮ<64><CAAE>һɱ",1)
else
deccnt = 0
jhxbbgame.HintEff(actor,"skillrestcd")
end
setskilldeccd(actor,"<EFBFBD>һ𽣷<EFBFBD>","=",deccnt)
setskilldeccd(actor,"Ұ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ײ","=",deccnt)
setskilldeccd(actor,"<EFBFBD><EFBFBD><EFBFBD>ض<EFBFBD>","=",deccnt)
setskilldeccd(actor,"˫<EFBFBD><EFBFBD>ն","=",deccnt)
setskilldeccd(actor,"ʨ<EFBFBD>Ӻ<EFBFBD>","=",deccnt)
setskilldeccd(actor,"<EFBFBD><EFBFBD>Ӱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>","=",deccnt)
setskilldeccd(actor,"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>","=",deccnt)
setskilldeccd(actor,"<EFBFBD><EFBFBD><EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD>","=",deccnt)
setskilldeccd(actor,"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ն","=",deccnt)
setskilldeccd(actor,"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>","=",deccnt)
setskilldeccd(actor,"<EFBFBD>ݺὣ<EFBFBD><EFBFBD>","=",deccnt)
setskilldeccd(actor,"ʮ<EFBFBD><EFBFBD>һɱ","=",deccnt)
end
function jhxbbgame.GetRate(ratetag)
return true
end
function math.round(num)
return num >= 0 and math.floor(num + 0.5) or math.ceil(num - 0.5)
end
function math.sign(num)
if num > 0 then
return 1
elseif num < 0 then
return -1
else
return 0
end
end
local oldhumanhp = humanhp
function humanhp2(actor,...)
jhxbbgame.log(actor,"*humanhp",...)
--oldhumanhp(actor,...)
end
local oldaddhpper = addhpper
function addhpper2(actor,...)
jhxbbgame.log(actor,"*addhpper",...)
--oldaddhpper(actor,...)
end
local oldstartup= startup
function dbgstartup(sysobj)
release_print("startup",getstditeminfo("˪<EFBFBD><EFBFBD>Ԧ<EFBFBD>߿<EFBFBD>",0))
if not checkkuafuserver() then
genmon("k0108",6,11,"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʦ",1,1,233)
genmon("k0108",9,11,"һ<EFBFBD><EFBFBD>½-<2D><>ʬ<EFBFBD><CAAC>",1,1,233)
end
genmon("0",139,153,"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʦ",0,1,233)
genmon("0",143,157,"<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʦ",0,1,233)
if oldstartup then
oldstartup(sysobj)
end
end
startup = dbgstartup
local function test(actor)
if npcid == 34 then
say(actor, [[
[@main]
<Img|move=0|hidemain=1|img=public/bg_npc_01.png|loadDelay=1|bg=1|reset=1|show=0>
<Layout|x=545|y=0|width=80|height=80|link=@exit>
<Button|x=546|y=0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
<PageView|children={1,3,2}|x=297.0|y=49.0|width=450|height=200|direction=1|color=255>
<Layout|id=1|x=206.0|y=193.0|color=251>
<Layout|id=3|x=361.0|y=349.0|color=254>
<Layout|id=2|x=265.0|y=245.0|color=253>
]])
return
end
edcode = require("Envir/wlua/edcode.lua")
local function compress(data)
return edcode:CompressDeflate(data)
end
local function decompress(data)
return edcode:DecompressDeflate(data)
end
-- jhxbbgame.encom = compress
-- jhxbbgame.endecom = decompress
local function t2(...)
-- <20><><EFBFBD><EFBFBD>
local original_data = jhxbbgame.ui.ui1118
local compressed_data = compress(original_data)
release_print(#original_data,"ѹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>", #compressed_data,compressed_data)
local decompressed_data = decompress(compressed_data)
release_print("<EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>", #decompressed_data)
-- <20><><EFBFBD><EFBFBD>
local original_data = compressed_data
local encoded_data = edcode.ToBase64(original_data)
release_print("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>", encoded_data)
local decoded_data = edcode.FromBase64(encoded_data)
release_print("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>", decoded_data)
release_print(".zbcfg.load() =2 ",jhxbbgame.any2lua(dd),jhxbbgame.any2lua(cc))
release_print(".zbcfg.load() =2.::",jhxbbgame.any2lua(dd1),jhxbbgame.any2lua(cc1))
release_print("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>", decoded_data)
end
end
test()
end
require("Envir/wlua/equipeff.lua")
local cc= {}
local dd= {}
for key, value in pairs(jhxbbgame.zb) do
local s1 = getstditeminfo(key,2) or 0
local a=0
if s1 >= 300 then
a = 71 + (s1 - 300)
dd[a] = s1
else
cc[s1] = (cc[s1] or 0)+1
end
end
local cc1= {}
local dd1= {}
for key, value in pairs(zbcfg.idxs) do
local s1 = getstditeminfo(value,2) or 0
local a=0
if s1 >= 300 then
a = 71 + (s1 - 300)
dd1[a] = s1
else
cc1[s1] = (cc1[s1] or 0)+1
end
end
for key, value in pairs(dd) do
table.remove(cc,value)
end
local eqidxtab = {
}
for key, value in pairs(zbcfg.eqpos) do
eqidxtab[value] = "<$USEITEMID[" .. value .. "]>"
end
jhxbbgame.eqidxtab = eqidxtab
aab()
jhxbbgame.s2f("wlua/verfx/aaa.lua",jhxbbgame.any2lua(eqidxtab))
--jhxbbgame.msgsv.reg(require("Envir/wlua/<2F>Ϸ<EFBFBD><CFB7><EFBFBD><EFBFBD><EFBFBD>.lua"))
function jhxbbgame.makedbg()
jhxbbgame.localdata=jhxbbgame.recfile({dbg1118=jhxbbgame.ui.dbg1118,
--ui=jhxbbgame.any2lua(jhxbbgame.ui),
--dbg=jhxbbgame.f2s("wlua/verfx/dbgsvbuding.lua")
dbgsv=jhxbbgame.f2s("wlua/verfx/texbb.lua")
},true)
jhxbbgame.s2f("wlua/verfx/lst.txt",tbl2json(jhxbbgame.localdata))
jhxbbgame.log("*jhxbbgame.makedbg()")
end
--require("Envir/wlua/verfx/dbgsvbuding.lua")
local rr = require("Envir/wlua/verfx/texbb.lua")
jhxbbgame.msgsv.reg(rr)
--
jhxbbgame.reloadui("dbg1118",nil,jhxbbgame.f2s("wlua/verfx/dbg1118.lua"))
jhxbbgame.makedbg()
改时间
2024-12-20 22:02:16 +08:00
local kfcode = jhxbbgame.makekf()
666
2024-12-20 18:32:40 +08:00
--local w = io.open("wlua\\clmsgs\\kuafusysproc.lua", "w+")
--w:write(code)
--w:close()
jhxbbgame.reloadui("kuafusysproc",kfcode,nil)
local wret = jhxbbgame.s2f([[\wlua\clmsgs\kuafusysproc.lua]],kfcode)
jhxbbgame.log("*jhxbbgame.111111()--------",#kfcode, wret)
local oldhumanhp = humanhp
function humanhp22(actor,operate,nvalue,effid,delay,hiter,isSend,isRob)
jhxbbgame.log(actor,"*humanhp",operate,nvalue)
end
function makeposfile()
local function getCirclePoints(x0, y0, r)
local points = {}
local step = math.pi / 8 -- ÿ<><C3BF><EFBFBD><EFBFBD><EFBFBD>ӵĽǶ<C4BD>
local function add(xy)
points[xy.x.."_"..xy.y] = {x=xy.x,y=xy.y}
end
for a = 0, 2 * math.pi, step do
local x1 = math.floor(x0 + r * math.cos(a) + 0.5)
local y1 = math.floor(y0 + r * math.sin(a) + 0.5)
if (x1 - x0)^2 + (y1 - y0)^2 <= r^2 then
add({x = x1, y = y1})
end
add({x = x0 - (x1 - x0), y = y1})
add({x = x1, y = y0 - (y1 - y0)})
add({x = x0 - (x1 - x0), y = y0 - (y1 - y0)})
end
local ret = {}
for key, value in pairs(points) do
ret[#ret+1] = value
end
return ret
end
local function name(i)
local aa = tbl2json(getCirclePoints(0,0,i))
aa= string.gsub(aa, ":", "=")
aa= string.gsub(aa, "\"", "")
aa= string.gsub(aa, "]", "")
aa= string.gsub(aa, "%[", "")
return aa
end
local w = io.open("wlua\\trigger\\rpos.lua", "w+")
w:write("jhxbbgame.rpos ={","[2]={"..name(2)
.."},","[4]={"..
(name(4)).."},","[6]={"..
(name(6)).."}}")
w:close()
SL:HTTPRequestGet("https://www.baidu.com/", function (success, response)
SL:Print("HTTPRequestGet...",success, response)
-- success: boolean <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>ɹ<EFBFBD>
-- response: string <20><><EFBFBD>󷵻<EFBFBD><F3B7B5BB><EFBFBD><EFBFBD><EFBFBD>
end)
end
-- local qfitem ={{Index=11,pic=22},{Index=11,pic=3}}
-- table.sort(qfitem,function(a,b)
-- return a.pic < b.pic
-- end)
-- print(jhxbbgame.any2lua(qfitem))
-- function myOtherCoroutine()
-- print("Э<>̿<EFBFBD>ʼִ<CABC><D6B4>")
-- coroutine.yield()
-- print("Э<>ָ̻<CCBB>ִ<EFBFBD><D6B4>")
-- end
--print("-------------------<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>",getstditeminfo("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[ʷʫ]",0))
-- local co = coroutine.create(myOtherCoroutine);
-- print(coroutine.status(co));
-- coroutine.resume(co);
-- print(coroutine.status(co));
function aaafafaaa()
local cd = os.time()
local function _run(actor)
if jhxbbgame.GetRate(2500) then
local curtime = os.time()
if curtime > cd then
--cd = curtime + 5
local x = getbaseinfo(actor,4)
local y = getbaseinfo(actor,5)
local eff = {{1,470},{7,527,5000},{10,511},{5,458}}
local e =eff[2]--[math.random(#eff)]
rangeharm(actor,
x,
y,
8,
0,
e[1],
0,
0,
0,
e[2],
999)
end
end
end
end
Reference in New Issue Copy Permalink