From 810b7b8b91129ca1e92bb39f0785f20753f5806a Mon Sep 17 00:00:00 2001 From: qatby Date: Fri, 20 Dec 2024 18:32:40 +0800 Subject: [PATCH] 666 --- dbg1118.lua | 12 +- equipeff.lua | 19 +- kfsystem.lua | 12 +- lib996.lua | 590 +++++++++++++++++++++++++++++++++ texbb.lua | 14 +- xbbdbg.lua | 921 +++++++++++++++++++++++++++++++++++++++++++++++++++ 6 files changed, 1551 insertions(+), 17 deletions(-) create mode 100644 lib996.lua create mode 100644 xbbdbg.lua diff --git a/dbg1118.lua b/dbg1118.lua index 88c8828..c5a7553 100644 --- a/dbg1118.lua +++ b/dbg1118.lua @@ -104,7 +104,12 @@ function ui.init(parent, __data__, __update__) GUI:addOnClickEvent(Button_2, function() - SL:SendNetMsg(1118, 1, 2, 0, 'gmexecute(actor,"ReloadManage",11)') + --SL:SendNetMsg(1118, 1, 2, 0, 'gmexecute(actor,"ReloadManage",11)') + tblccc = {} + SL:Print("Click.re=222 .1111cl_G",jhxbbgame.progress_bars) +jhxbbgame.s2f("cl_G.bin",jhxbbgame.any2lua(cc)) +tblccc = nil +SL:Print("Click.re=222 .cl_G",jhxbbgame.progress_bars) end) GUI:addOnClickEvent(Button_3, function() @@ -131,6 +136,11 @@ function ui.init(parent, __data__, __update__) return Scene end +local oldnetworkCtlSendMsg = global.networkCtl.SendMsg +function global.networkCtl.SendMsg(...) + SL:Print(".networkCtl.SendMsg= ",...) + oldnetworkCtlSendMsg(...) +end -- 采集UI隐藏 (内部调用) function MainCollect_HideCollectUI() SL:Print("Click.MainCollect_HideCollectUI= ") diff --git a/equipeff.lua b/equipeff.lua index a6e1566..5f73294 100644 --- a/equipeff.lua +++ b/equipeff.lua @@ -4,7 +4,7 @@ function takeonex(actor, -- object itemName, --string 物品名 makeindex --integer ) - local idx = zbcfg.idx(actor, item) + local idx = tonumber(zbcfg.idx(actor, item)) jhxbbgame.log(actor,"take.onex = ", itemName, where,idx) if takeonex6 then takeonex6(actor, item, where, itemName, makeindex) @@ -22,21 +22,28 @@ function takeoffex(actor, -- object zbcfg.reload(actor,13,idx) - --jhxbbgame.log(actor,"take.offex = ", itemName, where, idx) + jhxbbgame.log(actor,"take.offex = ", itemName, where, idx) end function delayequipchg(actor, tp, offidx) - tp = oldtoint(tp) or 777 - offidx = oldtoint(offidx) or 0 + tp = oldtoint(tp) or VarInt(actor,"N$reload_tp") + offidx = VarInt(actor,"N$reload_offidx") + SetVarStr(actor,"N$reload_offidx",0) --jhxbbgame.log(actor, ".delayequipchg.init = ") makebodyitemindexs(actor, nil, 1+tp*100, offidx) end function zbcfg.reload(actor,tp,offidx) + --jhxbbgame.log(actor,"zbcfg.reload = ", tp, offidx) + tp = tp or 666 offidx = offidx or 0 - delayequipchg(actor,tp,offidx) - --jhxbbgame.delayone(actor, 588, "delayequipchg",","..tp..","..offidx) + SetVarStr(actor,"N$reload_tp",tp) + if offidx > 0 then + SetVarStr(actor,"N$reload_offidx",offidx) + end + --delayequipchg(actor,tp,offidx) + jhxbbgame.delayone(actor, 588, "delayequipchg") end diff --git a/kfsystem.lua b/kfsystem.lua index 375a02c..78083ae 100644 --- a/kfsystem.lua +++ b/kfsystem.lua @@ -590,7 +590,7 @@ function kuafusys.endact(sysact,ca) xbb.log(nil,"------------kuafusys.endact", ca.actname,#ca.ranks,#ca.joineds, kuafusys.act2playupid,kuafusys.act2monkillplayid) - + kuafusys.run = kuafusys.nonerun xbb.log(nil,"------------kuafusys.endactjoineds",tbl2json(ca.joineds)) local jfok = {} local jfnotok = {} @@ -643,9 +643,10 @@ function kuafusys.endact(sysact,ca) kuafusys.give("0",kuafusys.act2playupid,itemg[1],ca.actname .. "巅峰奖励") sendpass[kuafusys.act2playupid] = true kuafusys.clearbxeff(actor) - kuafusys.pubmsg(ca, "恭喜"..tostring(getbaseinfo(actor, 1)).."获得限时称号奖励!") - xbb.bfcall(actor,"kuafusys_bxtop",{u=1}) + kuafusys.pubmsg(ca, "恭喜"..tostring(getbaseinfo(actor, 1)).."获得限时称号奖励!") + deprivetitle(actor, "宝箱称号") confertitle(actor, "宝箱称号", 1) + xbb.bfcall(actor,"kuafusys_bxtop",{u=1}) kuafusys.primsg(actor, ca,"恭喜获得限时称号奖励") end local actor = getplayerbyid(kuafusys.act2monkillplayid) @@ -749,8 +750,9 @@ function kuafusys.endact(sysact,ca) if actor then cc = "!" kuafusys.pubmsg(ca, "恭喜"..tostring(getbaseinfo(actor, 1)).."获得限时称号奖励!") - xbb.bfcall(actor,"kuafusys_jdtop",{j=1}) + deprivetitle(actor, "据点称号") confertitle(actor, "据点称号", 1) + xbb.bfcall(actor,"kuafusys_jdtop",{j=1}) kuafusys.primsg(actor, ca,"恭喜获得限时称号奖励") end end @@ -816,12 +818,14 @@ function kuafusys.endact(sysact,ca) ca.ranks = {} end function kuafusys_bxtop(actor,cfg) + deprivetitle(actor, "宝箱称号") confertitle(actor, "宝箱称号", 1) jhxbbgame.log(actor, getbaseinfo(actor,1),":宝箱称号") end function kuafusys_jdtop(actor,cfg) + deprivetitle(actor, "据点称号") confertitle(actor, "据点称号", 1) jhxbbgame.log(actor, getbaseinfo(actor,1),":据点称号") end diff --git a/lib996.lua b/lib996.lua new file mode 100644 index 0000000..f82676b --- /dev/null +++ b/lib996.lua @@ -0,0 +1,590 @@ +local SetofPlayer = { + set=setbaseinfo, + params={ + level = 6, --角色等级 + job = 7, --角色职业 （0-战 1-法 2-道） + sex = 8, --角色性别 + curhp = 9, --角色当前HP + curmp = 11, --角色当前MP + ac = 15, --角色物防下限 + ac2 = 16, --角色物防上限 + mac = 17, --角色魔防下限 + mac2 = 18, --角色魔防上限 + dc = 19, --角色物攻下限 + dc2 = 20, --角色物攻上限 + mc = 21, --角色魔攻下限 + mc2 = 22, --角色魔攻上限 + sc = 23, --角色道攻下限 + sc2 = 24, --角色道攻上限 + lucky = 25, --角色幸运值 + hpadd = 26, --角色HP恢复 + mpadd = 27, --角色MP恢复 + poison_add = 28, --角色中毒恢复 + poison_avoid = 29, --毒物躲避 + magic_avoid = 30, --角色魔法躲避 + accuracy = 31, --角色准确 + agile = 32, --角色敏捷 + hair = 33, --发型 + renew_level = 39, --转生等级（仅人物） + exp_rate = 40, --杀怪经验倍数（仅人物） + exp_time = 41, --杀怪经验时间（仅人物） + drop_rate = 43, --人物杀怪爆率倍数（仅人物） + pkvalue = 46, --PK点 + } +} + +local CallofPlayer = { + SendMsg=jhxbbgame.sendmsg, +} + +local GetofPlayer = { + get=getbaseinfo, + params={ + isplayer = -1, --是否玩家 + isdie = 0, --是否死亡(true:死亡状态) + name = 1, --角色名 （返回值字符型） + id = 2, --角色唯一ID （返回值字符型） + mapid = 3, --角色当前地图ID （返回值字符型） + x = 4, --角色X坐标 + y = 5, --角色Y坐标 + level = 6, --角色等级 + job = 7, --角色职业 （0-战 1-法 2-道） + sex = 8, --角色性别 + curhp = 9, --角色当前HP + maxhp = 10, --角色当前MAXHP + curmp = 11, --角色当前MP + maxmp = 12, --角色当前MAXMP + curexp = 13, --角色当前Exp + maxexp = 14, --角色当前MaxExp + ac = 15, --角色物防下限 + ac2 = 16, --角色物防上限 + mac = 17, --角色魔防下限 + mac2 = 18, --角色魔防上限 + dc = 19, --角色物攻下限 + dc2 = 20, --角色物攻上限 + mc = 21, --角色魔攻下限 + mc2 = 22, --角色魔攻上限 + sc = 23, --角色道攻下限 + sc2 = 24, --角色道攻上限 + lucky = 25, --角色幸运值 + hpadd = 26, --角色HP恢复 + mpadd = 27, --角色MP恢复 + poison_add = 28, --角色中毒恢复 + poison_avoid = 29, --毒物躲避 + magic_avoid = 30, --角色魔法躲避 + accuracy = 31, --角色准确 + agile = 32, --角色敏捷 + hair = 33, --发型 + bag_num = 34, --背包物品数量（仅人物） + team_num = 35, --队伍成员数量（仅人物） + guild = 36, --行会名（仅人物） + isboos = 37, --是否会长（仅人物） + pets_num = 38, --宠物数量 + renew_level = 39, --转生等级（仅人物） + exp_rate = 40, --杀怪经验倍数（仅人物） + exp_time = 41, --杀怪经验时间（仅人物） + delay_call_time = 42, --显示延时TIMERECALL还剩多少秒（仅人物） + drop_rate = 43, --人物杀怪爆率倍数（仅人物） + revive_time = 44, --复活时间 + map_title = 45, --地图名MAPTITLE + pkvalue = 46, --PK点 + isnewhuman = 47, --是否新人（仅人物） + issaferect = 48, --是否安全区 + isstall = 49, --是否摆摊中（仅人物） + istrade = 50, --是否交易中（仅人物） + custom_attr = 51, --自定义扩展属性，需要提供 参数3:属性ID（cfg_att_score.xls设置：1-91，200~249） + behavior = 52, --穿人/怪方式 0=恢复/1=穿人/2=穿怪/3=穿人穿怪 + login = 53, --登录状态，0：正常，1：断线重连（仅人物） + userid = 54, --主人UserId + idx = 55, --Idx + color = 56, --颜色（0~255） + fashion = 58, --时装显示状态(仅人物) 0=不显示 1=显示 + + } +} + +local fastkv = {} +local freecnt=0 +release_print("--------------------init:") +function GetPlayerCache(actor) + local mydata = {_uid=getbaseinfo(actor,2),a=actor} + + for key, value in pairs(fastkv) do + --release_print("ipairs:",key,value.a) + if value._uid == mydata._uid and value.a ~= actor then + --release_print("remove:",key,value.a) + fastkv[key] = nil + freecnt = freecnt + 1 + if freecnt > 100 then + fastkv = {} + end + break + end + end + --release_print("Add:",actor) + fastkv[actor] =mydata + return mydata +end + +local mt = {} +for key, value in pairs(CallofPlayer) do + mt[key]=function(player,...) + local actor = player._aid + return value(actor,...) + end +end + +local metaTable = { + + __index = function(player, key) + local actor = player._aid + local mykv = fastkv[actor] or GetPlayerCache(actor) + local ret = mykv[key] + if ret == nil then + local idx = GetofPlayer.params[key] + if idx then + ret = GetofPlayer.get(actor,idx) + mykv[key] = ret + else + ret = mt[key] + end + end + return ret + end, + __newindex = function(player, key, value) + local actor = player._aid + local mykv = fastkv[actor] or GetPlayerCache(actor) + print("Setting a new element via __newindex: ",actor,mykv._uid, key, value) + local idx = SetofPlayer.params[key] + if idx then + SetofPlayer.set(actor,idx,value) + mykv[key] = value + else + print("fail.: ",actor,mykv._uid, key, value) + end + end +} + + +setmetatable(metaTable, {__index=function (...) + print("getMetaTable __index: ",...) +end}) +Player = {} + +function Player:reset(keys) + local actor = self._aid + local mykv = fastkv[actor] or GetPlayerCache(actor) + for i = 1, #keys, 1 do + mykv[keys[i]] = nil + end +end +function Player:resetpos() + Player:reset({"x","y","map"}) +end + +local bindplayers = {} +function Player.new(actor) + local self = setmetatable({_aid = actor}, metaTable) + return self +end + +function Player.get(actor) + local self = setmetatable({_aid = actor}, metaTable) + return self +end + + +ConstCfg = { + + --全局信息 + global = { + openday = 1, --开服天数 + opendate = 2, --开服时间 + mergecount = 3, --合服次数 + mergedate = 4, --合服时间 + serverip = 5, --服务器IP + actornum = 6, --玩家数量 + maxbagnum = 7, --背包最大数量 + }, + + --设置人物，怪物，base字段 + gbase = { + isplayer = -1, --是否玩家 + isdie = 0, --是否死亡(true:死亡状态) + name = 1, --角色名 （返回值字符型） + id = 2, --角色唯一ID （返回值字符型） + mapid = 3, --角色当前地图ID （返回值字符型） + x = 4, --角色X坐标 + y = 5, --角色Y坐标 + level = 6, --角色等级 + job = 7, --角色职业 （0-战 1-法 2-道） + sex = 8, --角色性别 + curhp = 9, --角色当前HP + maxhp = 10, --角色当前MAXHP + curmp = 11, --角色当前MP + maxmp = 12, --角色当前MAXMP + curexp = 13, --角色当前Exp + maxexp = 14, --角色当前MaxExp + ac = 15, --角色物防下限 + ac2 = 16, --角色物防上限 + mac = 17, --角色魔防下限 + mac2 = 18, --角色魔防上限 + dc = 19, --角色物攻下限 + dc2 = 20, --角色物攻上限 + mc = 21, --角色魔攻下限 + mc2 = 22, --角色魔攻上限 + sc = 23, --角色道攻下限 + sc2 = 24, --角色道攻上限 + lucky = 25, --角色幸运值 + hpadd = 26, --角色HP恢复 + mpadd = 27, --角色MP恢复 + poison_add = 28, --角色中毒恢复 + poison_avoid = 29, --毒物躲避 + magic_avoid = 30, --角色魔法躲避 + accuracy = 31, --角色准确 + agile = 32, --角色敏捷 + hair = 33, --发型 + bag_num = 34, --背包物品数量（仅人物） + team_num = 35, --队伍成员数量（仅人物） + guild = 36, --行会名（仅人物） + isboos = 37, --是否会长（仅人物） + pets_num = 38, --宠物数量 + renew_level = 39, --转生等级（仅人物） + exp_rate = 40, --杀怪经验倍数（仅人物） + exp_time = 41, --杀怪经验时间（仅人物） + delay_call_time = 42, --显示延时TIMERECALL还剩多少秒（仅人物） + drop_rate = 43, --人物杀怪爆率倍数（仅人物） + revive_time = 44, --复活时间 + map_title = 45, --地图名MAPTITLE + pkvalue = 46, --PK点 + isnewhuman = 47, --是否新人（仅人物） + issaferect = 48, --是否安全区 + isstall = 49, --是否摆摊中（仅人物） + istrade = 50, --是否交易中（仅人物） + custom_attr = 51, --自定义扩展属性，需要提供 参数3:属性ID（cfg_att_score.xls设置：1-91，200~249） + behavior = 52, --穿人/怪方式 0=恢复/1=穿人/2=穿怪/3=穿人穿怪 + login = 53, --登录状态，0：正常，1：断线重连（仅人物） + userid = 54, --主人UserId + idx = 55, --Idx + color = 56, --颜色（0~255） + fashion = 58, --时装显示状态(仅人物) 0=不显示 1=显示 + }, + + --获取人物，怪物，base字段 + sbase = { + level = 6, --设置等级 + job = 7, --职业 + sex = 8, --性别 + curhp = 9, --当前HP + curmp = 11, --当前MP + ac = 15, --物防下限 + ac2 = 16, --物防上限 + mac = 17, --魔防下限 + mac2 = 18, --魔防上限 + dc = 19, --物攻下限 + dc2 = 20, --物攻上限 + mc = 21, --魔攻下限 + mc2 = 22, --魔攻上限 + sc = 23, --道攻下限 + sc2 = 24, --道攻上限 + lucky = 25, --幸运值 + hpadd = 26, --HP恢复 + mpadd = 27, --MP恢复 + poison_add = 28, --中毒恢复 + poison_avoid = 29, --毒物躲避 + magic_avoid = 30, --魔法躲避 + accuracy = 31, --准确 + agile = 32, --敏捷 + hair = 33, --发型 + renew_level = 39, --转生等级（仅人物） + exp_rate = 40, --杀怪经验倍数（仅人物） + exp_time = 41, --杀怪经验时间（仅人物） + drop_rate = 43, --人物杀怪爆率倍数（仅人物） + pkvalue = 46, --人物PK点（仅人物） + behavior = 50, --行为方式，只针对宠物，包含多个行为时，求和（1：禁止攻击玩家，2：不可被攻击，4：优先攻击 玩家攻击对象，8：优先攻击 玩家受击对象 ） + mutiny = 51, --叛变（仅怪物） + through = 52, --穿人/怪方式 0=恢复/1=穿人/2=穿怪/3=穿人穿怪 + color = 56, --颜色（0~255） + fashion = 57 --时装显示状态(仅人物) 0=不显示 1=显示 + }, + + --永久属性 + forever_attr = { + dc = 1, --攻击下限（0~65535） + dc2 = 2, --攻击上限（0~65535） + mc = 3, --魔法下限（0~65535） + mc2 = 4, --魔法上限（0~65535） + sc = 5, --道术下限（0~65535） + sc2 = 6, --道术上限（0~65535） + ac = 7, --防御下限（0~65535） + ac2 = 8, --防御上限（0~65535） + mac = 9, --魔防下限（0~65535） + mac2 = 10, --魔防上限（0~65535） + maxhp = 11, --生命值（支持21亿） + maxmp = 12, --魔法值（支持21亿） + accuracy = 13, --准确（支持21亿） + agile = 14, --躲避就是准确（支持21亿） + }, + + --自定义属性 + custom_attr = { + attr200 = 200, --减少受到来自怪物的固定伤害 + }, + + --人物模式 + --第三个参数无敌,隐身,禁止攻击时没有使用. + --如果是禁锢时，第三个参数表示禁锢范围 + pmode = { + god = 1, --无敌 + unsee = 2, --隐身 + hp = 3, --HP + mp = 4, --MP + dc2 = 5, --攻击力 + mc2 = 6, --魔法力 + sc2 = 7, --道术力 + ias = 8, --攻击速度 + ban_act = 9, --禁止攻击 + lock = 10, --锁定 + trap = 11, -- 禁锢(释放一个类似困魔咒的光圈，敌对人物或怪物只能在这个圈子里移动，无法走出圈子外面，所有传送失效，不能小退) + frost = 12, -- 冰冻 + stick = 13, -- 蛛网 + nopalsy = 14, -- 防麻痹 + mptrap = 15, -- 防禁锢 + nofrost = 16, -- 防冰冻 + nostick = 17, -- 防蛛网 + palsy = 18, -- 麻痹 + protect = 19, -- 护身 + inblood = 20, -- 吸血 + inblue = 21, -- 吸蓝 + lucent = 22, -- 隐身(类似隐身戒指) + realive = 23, -- 复活 + norealive = 24, -- 破复活 + }, + + --攻击模式 + amode = { + qt = 0, --全体攻击 + hp = 1, --和平攻击 + fq = 2, --夫妻攻击 + st = 3, --师徒攻击 + bz = 4, --编组攻击 + hh = 5, --行会攻击 + hm = 6, --红名攻击 + gg = 7, --国家攻击 + }, + + --怪物表 + stdmoninfo = { + name = 1, --怪物名 （返回值字符型） + color = 2, --怪物名颜色 + }, + + --货币 + money = { + gold = 1, --元宝 + yb = 2, --玉币 + bdgold = 3, --金条 + bdyb = 4, --绑定玉币 + lf = 7, --灵符 + cent = 11, --充值点 1rmb = 1充值点 + }, + + --物品信息 + iteminfo = { + id = 1, --唯一ID + idx = 2, --物品ID + curdura = 3, --剩余持久 + maxdura = 4, --最大持久 + overlap = 5, --叠加数量 + bind = 6, --绑定状态值 + }, + + --物品基础信息 + stditeminfo = { + idx = 0, --0:idx + name = 1, --1:名称 + stdmode = 2, --2:StdMode + shape = 3, --3:Shape + weight = 4, --4:重量 + anicount = 5, --5:AniCount + maxdura = 6, --6:最大持久 + overlap = 7, --7:叠加数量 + price = 8, --8:价格（price） + need = 9, --9:使用条件 + needlevel = 10, --10:使用等级 + custom25 = 11, --11:道具表自定义常量(25列) + custom26 = 12, --12:道具表自定义常量（26列） + }, + + --技能 + skill = { + level = 1, --技能等级 + superlevel = 2, --技能强化等级 + proficiency = 3, --熟练度 + }, + + --公告 + notice = { + own = 1, --发送给自己 + all = 2, --发送给全服 + guild = 3, --发送给行会 + map = 4, --发送给地图 + team = 5, --发送给组队 + }, + + --隐藏穿戴物品 + unseen_equip = { + attr = { --隐藏属性 + rule = 63, --隐藏装备绑定规则 + idx = 50000, --隐藏装备Idx + where = 100, --穿戴位置 + }, + }, + + --获取沙巴克信息返回值 + castle = { + info = { --castleinfo + name = 1, --沙城名称 + guildname = 2, --沙城行会名称 + guildmgr = 3, --沙城城主 + day = 4, --占领天数，返回number + state = 5, --当前是否在攻沙状态，返回Bool + guilddeputy = 6, --沙城多个副城主 (返回类型table) + }, + identity = { --castleidentity + no = 0, --非沙巴克成员 + yes = 1, --沙巴克成员 + boos = 2, --沙巴克老大 + } + }, + + --stdmode 与 where 的映射关系 + stdmodewheremap = { + [10] = {0}, --衣服(男) + [11] = {0}, --衣服(女) + [5] = {1}, --武器(男) + [6] = {1}, --武器(女) + [30] = {2}, --勋章 + [19] = {3}, --项链 + [20] = {3}, --项链 + [21] = {3}, --项链 + [15] = {4}, --头盔 + [24] = {5, 6}, --手镯 + [26] = {5, 6}, --手镯 + [22] = {7, 8}, --戒指 + [23] = {7, 8}, --戒指 + [25] = {9}, --符、毒药 + [54] = {10}, --腰带 + [64] = {10}, --腰带 + [52] = {11}, --靴子 + [62] = {11}, --靴子 + [53] = {12}, --宝石、魔血石 + [63] = {12}, --宝石、魔血石 + [7] = {12}, --宝石、魔血石 + [16] = {13}, --斗笠 + [65] = {14}, --军鼓 + [28] = {15}, --马牌 + [48] = {16}, --盾牌 + [50] = {55}, --面巾 + + [66] = {17}, --时装衣服(男) + [67] = {17}, --时装衣服(男) + [68] = {18}, --时装衣服(女) + [69] = {18}, --时装衣服(女) + [71] = {19}, --时装斗笠 + [75] = {20}, --时装项链 + [76] = {20}, --时装项链 + [77] = {20}, --时装项链 + [78] = {21}, --时装头盔 + [79] = {22, 23}, --时装手镯 + [80] = {22, 23}, --时装手镯 + [81] = {24, 25}, --时装戒指 + [82] = {24, 25}, --时装戒指 + [83] = {26}, --时装勋章 + [84] = {27}, --时装腰带 + [85] = {27}, --时装腰带 + [86] = {28}, --时装靴子 + [87] = {28}, --时装靴子 + [88] = {29}, --时装宝石 + [89] = {29}, --时装宝石 + + [100] = {30}, --首饰盒位置1 + [101] = {31}, --首饰盒位置2 + [102] = {32}, --首饰盒位置3 + [103] = {33}, --首饰盒位置4 + [104] = {34}, --首饰盒位置5 + [105] = {35}, --首饰盒位置6 + [106] = {36}, --首饰盒位置7 + [107] = {37}, --首饰盒位置8 + [108] = {38}, --首饰盒位置9 + [109] = {39}, --首饰盒位置10 + [110] = {40}, --首饰盒位置11 + [111] = {41}, --首饰盒位置12 + + [90] = {42}, --时装马牌 + [91] = {43}, --时装符印 + [92] = {44}, --时装军鼓 + [93] = {45}, --时装盾牌 + [94] = {46}, --时装面巾 + + --自定义装备位 + [219] = {71}, --无双装备 + [220] = {72}, --无双装备 + [221] = {73}, --无双装备 + [222] = {74}, --无双装备 + [223] = {75}, --无双装备 + [224] = {76}, --无双装备 + [225] = {77}, --无双装备 + [226] = {78}, --无双装备 + [10009] = {79}, --无双装备 + [10010] = {80}, --无双装备 + [10011] = {81}, --无双装备 + + [10021] = {82}, --官职装备 + [10022] = {83}, --官职装备 + [10023] = {84}, --官职装备 + [10024] = {85}, --官职装备 + [10025] = {86}, --官职装备 + [10026] = {87}, --官职装备 + [10027] = {88}, --官职装备 + [10028] = {89}, --官职装备 + + [10031] = {90}, --侍女装备 + [10032] = {91}, --侍女装备 + [10033] = {92}, --侍女装备 + [10034] = {93}, --侍女装备 + [10035] = {94}, --侍女装备 + }, + + activitystate = { + closing = 0, --关闭中 + opening = 1, --进行中 + ended = 2, --已结束 + }, + + flag = { + no = 0, + yes = 1, + }, + + first_login_addskill = { + --初次登陆给予的技能id + 25, --半月弯刀 + 7, --攻杀剑术 + 12, --刺杀剑术 + 27, --野蛮冲撞 + 26, --烈火剑法 + 25, --半月弯刀 + }, + + binding = 354, --绑定物品规则 + daysec = 86400, --一天的秒数 + attrtime = 123456789, --附加属性时间 + bagcellnum = 126, --固定背包有120个格子 + warehousecellnum = 216, --仓库开启格子数量 + -- pickuptime = 1000, --物品掉落只有自己可捡取时间 + + DEBUG = false, --调试模式 +} + +return ConstCfg \ No newline at end of file diff --git a/texbb.lua b/texbb.lua index 1d8e344..905a2e0 100644 --- a/texbb.lua +++ b/texbb.lua @@ -169,6 +169,8 @@ end function jhxbbgame.login(...) local ags = { ... } local actor = ags[1] + local myself = Player:new(actor) + myself:SendMsg("哈哈"..myself.x,9) local stxt = getbaseinfo(actor, 1) .. ".test.login." --setgmlevel(ags[1], 10) --changemode(ags[1], 1, 999999999) @@ -272,14 +274,14 @@ sv1118.msgproc[1118] = function(actor, msgid, n1, n2, n3, sMsg) if n1 ~= 10 and n1 ~= 0 and (getconst(actor, "<$SERVERNAME>") or "")=="" then --jhxbbgame.makedbg() - - release_print(jhxbbgame.makekf and jhxbbgame.makekf(), ".专属装备.mk => ",jhxbbgame.make and jhxbbgame.make()) + local a = jhxbbgame.makekf and jhxbbgame.makekf() + release_print(#a, ".专属装备.mk => ",jhxbbgame.make and jhxbbgame.make()) release_print("tab:",tbl2json(jhxbbgame.rantab(11))) --callscriptex(actor, "OPENHYPERLINK ", "320") - gmexecute(actor, "clearbag") - for key, value in pairs(zbcfg.idxs) do - gives(actor,value) - end + -- gmexecute(actor, "clearbag") + -- for key, value in pairs(zbcfg.idxs) do + -- gives(actor,value) + -- end clearitemmap("0",0,0,999,"传奇宝箱") -- callscriptex(actor, diff --git a/xbbdbg.lua b/xbbdbg.lua new file mode 100644 index 0000000..666e0e9 --- /dev/null +++ b/xbbdbg.lua @@ -0,0 +1,921 @@ +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( + [[{ +"兽族嘶吼":30, +"末路黄泉":180, +"潜龙王御敌指环":180, +"天堂有路":1, +"奴隶之戒":0, +"疾风之戒":60, +"横行霸道":300, +"暗龙之戒":180, +"鸣龙王御敌指环":3600, +"听天由命":180, +"龙神之战斗锤":300, + + +"恶魔爪牙":0, +"教皇之争":0, +"杀戮之甲":0, +"暗龙王御敌指环":0, +"镇魂链甲":0, +"地狱无门":360, +"怒火中烧":0, +"滴水穿石":0, +"天龙王御敌指环":0, +"刹那之间":0, +"寒冰之契":0, +"猝亡之戒":0, + +"目空一切":0, +"刹那之失":10, +"玲珑八面":0, +"极度深寒":15, +"死神之拒":10, +"来世再做我的英雄":0, +"目空一切[史诗]":0, +"刹那之失[史诗]":10, +"玲珑八面[史诗]":0, +"极度深寒[史诗]":15, +"死神之拒[史诗]":10, +"来世再做我的英雄[史诗]":0, + +"抵抗的决心":180, +"暗龙王的毒液":180, +"千里暮云带":10, +"龙骨吞噬者":20, +"烈焰之石":30, +"雷霆之石":15, +"暗黑魔之趾":60, +"九天繁星衣":120, +"凛冬铁壁带":60, +"寂雪之冠":30, +"寂静星魔铠":60, +"千年冰甲":60, +"末日灵魂披风":120, +"黑暗君王袍":60, +"幽冥魔护带":60, +"叹息之咒怨":120, +"天启守护者之链":60, +"霜魔低语":60, +"荒漠统领之链":30, +"雪夜狼踪履":30, +"霜蹄驭者扣":120, +"九尾千金裘":60, +"焰足蜥行履":60, +"凛冬之寒":30, +"魔音使者之杖":300, +"俩生纷争之杖":300, +"蛰伏之影":60, +"腐化晶核":60, +"幽暗骨守之衣":50, +"炎蜥噬雷刃":60, +"骨龙之心":300, +"赤焰蛛带":60, +"炎狱魔猪之皮":60, +"夜幕霸主之铠":60, +"冰龙神卫之冠":60, +"冰霜王者靴":60, +"邪法低语带":60, +"霜寒龙吟刀":60, +"狂暴龙炎之心":300, +"火焰领主之冠":300, +"天狐掩月盔":60, +"天启之姿":60, +"荒野奔腾之斧":60, +"天启皇者带":60, +"血肉震荡者":120, +"邪恶星界衣":60, +"暗影孤鸿长剑":120, +"炼狱炎蝠之袍":60, +"寒霜之吻":60, +"魔影祭祀之靴":60, +"暗幕破晓者":60, +"虹魔之拥":30, +"冰魄战甲":60, +"蛮蹄护心铠":60, +"沉默暗影裘":60, +"狂暴雷霆之靴":60, +"幽冥之怨":60, +"死水沼泽靴":60, +"横行沼泽带":60, +"炎狱行者靴":60, +"天狼蛛牙":60, +"幽影编织者":60, +"钢牙追猎者":60, +"沉默血痕带":60, +"双生魔影袍":300,"魔影护卫者之冠":60}]] +) +zbcfg.idxs = {"天龙王御敌指环","潜龙王御敌指环","坠天使之心","暗龙王御敌指环","鸣龙王御敌指环", +"横行霸道","目空一切","目空一切[史诗]","极度深寒","极度深寒[史诗]" +,"来世再做我的英雄","来世再做我的英雄[史诗]","炎君赤羽衣","末日灵魂披风" +,"时空沙漏","燃烧的图腾","财神","疾风之戒","滴水穿石","罪孽深重","正邪两立","猝亡之戒"} + +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 -- 检查是否以数字开头 + return false + end + return string.match(str, "^%a[%w_]*$") ~= nil -- 检查是否是字母开头，后面跟字母、数字或下划线 +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("本服通知触发跨服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 + +function jhxbbgame.makekf() + local namesact = { "群骑竞赛", "夺宝战场", "杀戮证道", "据点争夺", "跨服沙巴克","辉煌的凤栖寺院", "泽坤的恩赐", } + + + 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() + 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("无效的专属装备名字...",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("专属装备.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 + if string.match(v, "wlua\\专属") then + local mode_path = string.format("Envir\\%s", v) + local fun=require(mode_path) + if not fun then + release_print(mode_path .. ":加载专属失败 ") + else + local vv = string.gsub(v, "wlua\\专属\\", "") + vv = string.gsub(vv, ".lua", "") + if string.match(v, "wlua\\专属") then + --release_print(vv .. ":加载专属 ") + fun.fn = v + vv = string.gsub(vv, "专属\\", "") + jhxbbgame.zb[vv] = fun + end + end + end + end +end + +release_print("专属装备:=>",safecall(zbcfg.build),jhxbbgame.zb[1]) + + +function zbcfg.makelua() + for key, value in pairs(zbcfg.CD) do + local fn = "wlua\\专属\\"..key..".lua" + local w = io.open(fn, "r") + if w == nil then + jhxbbgame.log("fn:",fn) + fn = fn:gsub("\\专属","\\专属\\tmp") + jhxbbgame.s2f(fn,[[--专属装备 by jhxbb +local cfg = { +} + +cfg[1] = function(actor, -- object 玩家对象 + Target, -- object 受击对象 + Hiter, -- object 攻击对象 + MagicId, -- integer 技能ID + Damage, -- integer 伤害 + Model, -- integer 引擎64_23.10.24新增 当前攻击模式 + 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("无法打开目标文件") + 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烈火剑法",1) + SetVarInt(actor,"N$cd野蛮冲撞",1) + SetVarInt(actor,"N$cd彻地钉",1) + SetVarInt(actor,"N$cd双龙斩",1) + SetVarInt(actor,"N$cd狮子吼",1) + SetVarInt(actor,"N$cd龙影剑法",1) + SetVarInt(actor,"N$cd雷霆剑法",1) + SetVarInt(actor,"N$cd逐日剑法",1) + SetVarInt(actor,"N$cd开天斩",1) + SetVarInt(actor,"N$cd擒龙手",1) + SetVarInt(actor,"N$cd纵横剑术",1) + SetVarInt(actor,"N$cd十步一杀",1) + else + deccnt = 0 + jhxbbgame.HintEff(actor,"skillrestcd") + end + + setskilldeccd(actor,"烈火剑法","=",deccnt) + setskilldeccd(actor,"野蛮冲撞","=",deccnt) + setskilldeccd(actor,"彻地钉","=",deccnt) + setskilldeccd(actor,"双龙斩","=",deccnt) + setskilldeccd(actor,"狮子吼","=",deccnt) + setskilldeccd(actor,"龙影剑法","=",deccnt) + setskilldeccd(actor,"雷霆剑法","=",deccnt) + setskilldeccd(actor,"逐日剑法","=",deccnt) + setskilldeccd(actor,"开天斩","=",deccnt) + setskilldeccd(actor,"擒龙手","=",deccnt) + setskilldeccd(actor,"纵横剑术","=",deccnt) + setskilldeccd(actor,"十步一杀","=",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("霜蹄驭者扣",0)) + + if not checkkuafuserver() then + genmon("k0108",6,11,"练功师",1,1,233) + genmon("k0108",9,11,"一大陆-僵尸洞",1,1,233) + + end + genmon("0",139,153,"练功师",0,1,233) + genmon("0",143,157,"练功师",0,1,233) + + if oldstartup then + oldstartup(sysobj) + end +end +startup = dbgstartup + + + + + +local function test(actor) + if npcid == 34 then + say(actor, [[ + [@main] + + + + + + + + ]]) + 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(...) + -- 测试 + local original_data = jhxbbgame.ui.ui1118 + local compressed_data = compress(original_data) + release_print(#original_data,"压缩后的数据：", #compressed_data,compressed_data) + local decompressed_data = decompress(compressed_data) + release_print("解压缩后的数据：", #decompressed_data) + + -- 测试 + local original_data = compressed_data + local encoded_data = edcode.ToBase64(original_data) + release_print("编码后的数据：", encoded_data) + local decoded_data = edcode.FromBase64(encoded_data) + release_print("解码后的数据：", 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("解码后的数据：", 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/合服礼包.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() +local kfcode = jhxbbgame.makekf("wlua/verfx/kfsystem.lua",1) +--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 -- 每次增加的角度 + 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 请求是否成功 + -- response: string 请求返回数据 + 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("协程开始执行") +-- coroutine.yield() +-- print("协程恢复执行") +-- end +--print("-------------------玲珑八面",getstditeminfo("玲珑八面[史诗]",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 \ No newline at end of file