11111

dbgsvbuding.lua

@@ -0,0 +1,432 @@
+
+
+function jhxbbgame.dbgout(...)
+  release_print(...)
+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, result
+  end
+end
+
+
+local old =  {struckdamage,attackdamage,killmon,setbaseinfo}
+
+local md ={}
+local new ={}
+
+local function rmmob(Target,Hiter,ret,Damage,flg)
+  local bb = false
+  for index, value in ipairs(md) do
+      if value == Target then
+        table.remove(md,index)
+        bb = true
+        break
+      end
+  end
+  local died = getbaseinfo(Target,0)
+  if not died then
+    jhxbbgame.dbgout(Hiter,Target,jhxbbgame.info(Target,true),jhxbbgame.info(Hiter),
+            "KMon.和谐",zbcfg.last2,ret,Damage,tbl2json(attrtab(Target)))
+    killmonbyobj(Hiter,Target,true,false,true)  
+  end
+  jhxbbgame.dbgout(Target,"KMon.Die",died,jhxbbgame.info(Target, true),flg,bb)
+end
+
+function jhxbbgame.info(actor, d)
+  if isnotnull(actor) then
+    local n,i,m,x,y,dd = getbaseinfo(actor, 1,2),
+    tonumber(getbaseinfo(actor, 55)), 
+    getbaseinfo(actor, 3),getbaseinfo(actor, 4),
+    getbaseinfo(actor, 5),getbaseinfo(actor, 12)
+    local td = "" 
+    if d then
+      local dis = {}
+      for i = 1, 11, 1 do
+        if checkhumanstate(actor,i) then
+          dis[i] = 1
+        else
+          dis[i] = 0
+        end
+      end
+      td = tbl2json(dis)
+    end
+    return string.format("[%s]%s:%d(%s,%d,%d)%d.",
+    actor,n,i,m, x,y,dd)..td
+  else
+    return "nil"
+  end
+end
+function new.struckdamage(actor, Hiter, Target, MagicId, Damage)
+  local ret,errinfo = safecall(old[1],Damage,actor, Hiter, Target, MagicId, Damage)
+  if errinfo then
+    jhxbbgame.dbgout(nil,"KMon.Err1",jhxbbgame.info(Target),jhxbbgame.info(Hiter),errinfo)
+  end
+  return ret
+end
+debug = debug or {}
+debug.traceback = debug.traceback or function ()
+  return "none"
+end
+function new.setbaseinfo(actor,nID,value)
+    if nID == 12 then      
+      jhxbbgame.dbgout(actor,"KMon.Set12",jhxbbgame.info(actor),value,debug.traceback())
+    end
+   return old[4](actor,nID,value)
+end
+function new.attackdamage(actor,   --	object		玩家对象
+  Target,  --	object		受击对象
+  Hiter,   --	object		攻击对象
+  MagicId, --	integer		技能ID
+  Damage,  --	integer		伤害
+  Model    --	integer	引擎64_23.10.24新增	当前攻击模式
+)
+  local ret,errinfo = safecall(old[2],Damage,actor,
+  Target,
+  Hiter,
+  MagicId,
+  Damage,
+  Model)
+
+  
+  if false then
+    local vdata = {}
+    for key, cfg in pairs(jhxbbgame.zb) do
+        vdata.zb = key
+
+        zbcfg.last = key
+        zbcfg.last2 = zbcfg.last
+        if cfg and cfg[2] and cfg[2](actor, Target, Hiter, MagicId, Damage, Model, vdata) then
+            local aa = getbaseinfo(Target, 12)
+            if aa > 0 then
+                jhxbbgame.log(actor,key, ".攻击怪物 = ", aa)
+                break
+            end                            
+        end
+        zbcfg.last = nil
+    end
+    return Damage
+end
+
+  if errinfo then
+    jhxbbgame.dbgout(nil,"KMon.Err2",zbcfg.last2,ret,Damage,jhxbbgame.info(Target),jhxbbgame.info(Hiter),errinfo)
+  end
+  if ismon(Target) then
+      local mdd = md[Target] or {t=os.time(),hpp = 1,pt=os.time()}
+      md[Target] = mdd
+      if getbaseinfo(Target,0) then
+        rmmob(Target,Hiter,ret,Damage,2)
+      else--@刷怪 一大陆-骷髅洞
+        mdd.cnt = (mdd.cnt or 0) + 1
+        
+        local thp,tmax_hp = getbaseinfo(Target, 9),getbaseinfo(Target, 10) or 1
+        local hpp = thp/tmax_hp
+
+        --20秒 1%的血都没打到
+        local dv = mdd.hpp-hpp
+        if (dv) < 0.02 and os.time()> mdd.pt then
+          local mid1 = getbaseinfo(Target, 55)
+          local mid = mid1 - 2665
+            --jhxbbgame.log(Hiter, ".怪物被攻击= ", mid, mid1,getbaseinfo(Target,12))
+          if (mid >= 1) and (mid <= 8) then
+            return ret
+          end
+          local mp = getbaseinfo(Target,12)
+          if mp > 0 then
+            local dbmp = getdbmonfieldvalue(mid1,"mp")
+            if mp ~= dbmp then
+              old[4](Target,12,dbmp)
+              jhxbbgame.dbgout(nil,"KMon.Fix12",jhxbbgame.info(Target),mp,dbmp,getbaseinfo(Target,12))    
+            end 
+          end
+
+          jhxbbgame.dbgout(actor,jhxbbgame.info(Target),
+          "KMon.20秒 2%的血都没打到",zbcfg.last2,ret,Damage,mdd.cnt,hpp,mdd.hpp)
+        
+          mdd.pt = os.time() + 20
+          mdd.hpp = hpp
+          mdd.pcnt = (mdd.pcnt or 0) + 1
+
+          if mdd.pcnt >= 10 and (getbaseinfo(Target,12) <= 0) then
+              rmmob(Target,Hiter,ret,Damage,1)
+          end
+          
+        end
+        if mdd.cnt > 10 and mdd.cnt %20 == 0 then
+          --jhxbbgame.dbgout(actor,"KMon.cnt",dv,mdd.cnt,getbaseinfo(Target, 1))
+          if mdd.cnt > 3000 then
+            rmmob(Target,Hiter,ret,Damage,3)
+          end
+        end
+      end
+  end
+
+
+return ret
+
+
+end
+
+function new.killmon(actor, mon, killerType, monid, monName, mapid)
+  local ret = old[3](actor, mon, killerType, monid, monName,mapid)
+  rmmob(mon,actor,ret,mapid,111)
+  return ret
+end
+
+
+local hooks = {["makeposion"]=0,
+"changehumability","changehumnewvalue","changemode","addbuff"}
+
+local hooks = {}
+
+for key, value in pairs(hooks) do
+  local old = _G[key]
+  if old then
+    _G[key] = function (actor,p1,...)
+      if isplayer(actor) or p1 == value then
+        old(actor,p1,...)
+      else
+        jhxbbgame.log(actor,key..".Fail.",p1,...)
+      end 
+    end
+  end
+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 .. 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
+
+function jhxbbgame.Gives(actor,sitem)
+  local items = sitem:split("&")
+  for key, value in pairs(items) do
+     local aitm = value:split("#")
+     if aitm then
+       giveitem(actor,aitm[1],aitm[2],1+2+16+64+256)
+     end
+  end
+end
+
+edcode = edcode or require("Envir/wlua/edcode.lua")
+local function compress(data)
+  return  edcode.ToBase64(edcode:CompressDeflate(data), nil)
+end
+
+local function decompress(data)
+  return edcode.FromBase64(edcode:DecompressDeflate(data))
+end
+
+jhxbbgame.encom = compress
+jhxbbgame.endecom = decompress
+release_print("jhxbbgame.dbgout22211112:", jhxbbgame,tostring(jhxbbgame))
+tblccc= {}
+--jhxbbgame.s2f("wlua/verfx/_G.luaba",jhxbbgame.any2lua(_G))
+tblccc = nil
+local remocode = {ui1118=jhxbbgame.any2lua(jhxbbgame.ui.ui1118),ui=jhxbbgame.any2lua(jhxbbgame.ui),dbg=jhxbbgame.f2s("wlua/verfx/dbgsvbuding.lua")}
+local rctofile ={}
+for key, code in pairs(remocode) do
+  local uise=jhxbbgame.encom(code)
+  jhxbbgame.s2f("wlua/verfx/"..key..".jh",uise)
+  rctofile[key] = md5str(uise)
+end
+
+jhxbbgame.s2f("wlua/verfx/lst.txt",tbl2json(rctofile))
+
+release_print(("中文"),"jhxbbgame.dbgout2222:",jhxbbgame.len(remocode),jhxbbgame.len(rctofile), jhxbbgame)
+
+
+
+local saalog = [[公测01区	32774177	10
+公测01区(已爆满)	17426628	10
+公测01区-测试	1573475096	98
+公测02区	12423194	10
+公测02区-测试	10120082	98
+公测02区-测试	27238132	10
+公测02区-测试	25600594	98
+公测02区-测试	13606434	648
+公测02区-测试	13606434	328
+公测02区-测试	13935325	328
+公测02区-测试	13606434	128]]
+local saalog = [[公测01区	32774177	10
+公测01区(已爆满)	17426628	10
+公测01区-测试	1573475096	98
+公测02区	12423194	10
+公测02区-测试	10120082	98
+公测02区-测试	27238132	10
+公测02区-测试	25600594	98
+公测02区-测试	13606434	648
+公测02区-测试	13606434	328
+公测02区-测试	13935325	328
+公测02区-测试	13606434	128]]
+local aalog =saalog:gsub("\n", "\t"):split("\t")
+--jhxbbgame.s2f("wlua/verfx/ccc.lua",jhxbbgame.any2lua(aalog))
+local  ccc = {}
+for i = 1, #aalog /3, 1 do
+  local value = {aalog[((i-1)*3)+1],aalog[((i-1)*3)+2],aalog[((i-1)*3)+3]}
+  local q = value[1]
+  ccc[q] = ccc[q] or {all={},c98={},c38={}}
+  local cc= ccc[q]
+  local accid = tonumber(value[2])
+  local cnt = tonumber(value[3])
+  cc.all[accid] = (cc.all[accid] or 0)+value[3]
+  if cnt == 98 then    
+    cc.c98[accid] = (cc.c98[accid] or 0)+1
+  elseif cnt == 38 then
+    cc.c38[accid] = (cc.c38[accid] or 0)+1
+  end
+end
+
+jhxbbgame.s2f("wlua/verfx/ccc.lua",jhxbbgame.any2lua(ccc))
+function jhxbbgame.zxcz.readex(actor,k)
+  return tonumber(readini(jhxbbgame.zxcz.recfile, k, actor))
+end
+
+function jhxbbgame.zxcz.writeex(svname,actor,k, v)
+  release_print(svname,"充值记录.write=>", actor,k, v)
+  writeini(jhxbbgame.zxcz.recfile, k, actor,v)
+end
+
+local function bfbylogq(svname,qacc)
+  local tpcfg = {c38={"日享",0},c98={"特权",0},all={"总累计",0}}
+  for tpkey, tpval in pairs(tpcfg) do
+    local recs = qacc[tpkey]
+    for acckey, value in pairs(recs) do
+      local tp = tpval[1]
+      
+      local rec = jhxbbgame.zxcz.readex(acckey, tp)
+      if tpkey == "c38" then
+        --补日享数量
+        if rec <= 0 then
+          jhxbbgame.zxcz.writeex(svname,acckey, tp, value)
+          tpval[2] = tpval[2] +1
+        end
+      elseif tpkey == "c98" then
+        --补特权
+        jhxbbgame.zxcz.writeex(svname,acckey, tp, 1)
+        tpval[2] = tpval[2] +1
+      elseif tpkey == "all" then
+        jhxbbgame.zxcz.writeex(svname,acckey, tp, value)
+        tpval[2] = tpval[2] +1
+      end
+    end
+  end
+end
+local function bfbylog()
+    local localsv = getconst(nil, "<$SERVERNAME>")
+    for key, value in pairs(ccc) do
+       if localsv:find(key) then
+        release_print(key,"充值记录=>", jhxbbgame.len(value.c98), jhxbbgame.len(value.c38))
+        bfbylogq(key,value)
+        break
+       end 
+    end
+end
+
+bfbylog()

lst.txt

@@ -1 +1 @@
-{"ui":"84bcc73ad1168982aa259398a55bf63b"}
+{"ui":"05d94f948a1dc1a0eca4bf083de1a640","ui1118":"2f46febe3111c6837c337d6fa66b7eb1","dbg":"6b968db923a4f5124879578f33e1a612"}

tesxbb.lua

@@ -0,0 +1,313 @@
+local sv1118 = { msgproc = {} }
+
+-- for key, actor in pairs(getplayerlst(0) or{}) do
+--   jhxbbgame.sendmsg(actor, tostring(getbaseinfo(actor,0)))
+-- end
+local oldsetplaydef = setplaydef
+function setplaydef22(actor, n, v)
+  if "u181" == n then
+    jhxbbgame.GMLog(actor,"*任务:",v,debug.traceback())     
+  end
+  oldsetplaydef(actor,n,v)
+end
+function testkf(player)
+  
+
+      local x1 =getbaseinfo(player,4)
+      local y1 =getbaseinfo(player,5)
+  
+      local x2 =107
+      local y2 =147
+  
+    local x = math.abs(x1-x2)
+    local y = math.abs(y1-y2)
+    
+    local dis = x*x + ((y*y)*1.1) 
+    dis=dis^0.5
+    callscriptex(player, 
+    "HumanDropUseItem", 
+    "-1","S0")
+    jhxbbgame.sendmsg(player,"掉拉:"..VarStr(player,"S0"))
+    
+    --jhxbbgame.sendmsg(player,"dis"..dis)
+    return dis
+  
+end
+
+
+release_print("load.jhxbbgame.login")
+function jhxbbgame.login(...)
+  local ags = { ... }
+  local actor = ags[1]
+  local stxt = getbaseinfo(actor, 1) .. ".test.login."
+  --setgmlevel(ags[1], 10)
+  --changemode(ags[1], 1, 999999999)
+  handlerequest(actor,1118,0,0,0,"")
+  release_print(stxt)
+end
+
+sv1118.msgproc[1118] = function(actor, msgid, n1, n2, n3, sMsg)
+  local x = getbaseinfo(actor, 4)
+  local y = getbaseinfo(actor, 5)
+  local tagpos = getoppositeobj(actor)
+  --gives(actor, "51147#1", "获得" )
+  --jhxbbgame.YDUi(actor, 16,2)
+  --jhxbbgame.updateTopbtn(actor, 1)
+  --takeoffitem(actor,79,jhxbbgame.CInt(actor,"<$USEITEM[79]>"))
+  --makeposion(actor,12,3)
+  --addbuff(actor, 31123,11)
+  --jhxbbgame.TakeToBag(actor,1)
+  --local ret = releasemagic_pos(actor,56,1,3,x,y,1)
+  --jhxbbgame.showeff(actor, 60462)
+  --makeposion(actor,5,10)
+  --jhxbbgame.DecHP(actor, 11,111)
+  local mon = getoppositeobj(actor)
+  --jhxbbgame.DecHP(mon,111,101) 
+  --kuafusys.makenpc(1)
+  
+  -- sendmail(getbaseinfo(actor, 2),
+  -- 1, "yyyy",  "跨服活动奖励", "代购币#10&元宝#98888")
+  --callscriptex(actor, "SETGUILDWAR", "回家了", "管道施工", "30")
+    --callscriptex(actor, "SetHumAttackMode", "8", "3600")
+  --createnation(actor,1,"红",99999)
+  --joinnational(actor,1,1)
+ -- setattackmode(actor,7,60*60)
+  --jhxbbgame.showeff(actor, 111, 11)
+  --jhxbbgame.reallce(actor,1)
+  --giveitem(actor, "斩马刀",6)
+  --throwitem("0","0",118, 128,2,"传奇宝箱",1,0,1,true,false,false,1,false)
+  --renewlevel(actor,6,100,0)
+
+  --60520
+  --jhxbbgame.mapSelfeff(actor,60518)
+  --jhxbbgame.mapSelfeff(actor,60427)   
+  --sendattackeff(actor,113,111)
+  --releasemagic_pos(actor,25,1,3,x,y,0)
+  --sendmail(getbaseinfo(actor, 2), 1, "奖励",  "奖励", "代购币#10&元宝#98888&金币#9888888&书页#30&布料#30&龙玉勋章#1")
+                
+    
+  -- local  tbs = [[{\"bgtime\":70199,\"tx\":[\"8小时59分\",\"每日13:30-23:30\",\"开启狂暴+转生5转\"],\"join\":0}","{\"s\":{\"i\":1,\"edtime\":70259,\"bgtime\":70199,\"joineds\":{},\"playdatas\":{\"50000000001731327867000068392\":{\"jf\":0,\"mapjoin\":0,\"join\":0}},\"runing\":0,\"actname\":\"群骑竞赛\",\"ranks\":{}},\"pd\":{\"jf\":0,\"mapjoin\":0,\"join\":0}}]]
+  -- jhxbbgame.log("----11----",tbs)
+  -- tbs = tbs:gsub("\\\"", "\"")
+  -- jhxbbgame.log("----22----",tbs)
+  -- local tt = json2tbl(tbs) or {}
+  -- tbs = tbl2json(tt)
+  
+  -- -- addattlist(actor, "专属",
+  -- -- "+", "3#79#10000", 0)
+  -- sendattackeff(actor, 9,1789,actor)
+  -- --sendluamsg(actor, 0xeff, 13, 0, 21, getbaseinfo(actor, 2))
+  -- addskill(actor, 1002, 3)
+  -- --jhxbbgame.DecHP(actor,0,3)
+  -- jhxbbgame.log(actor,
+  local tab = {1+math.random(1, 10000)*1000,
+  2+math.random(1, 10000)*1000,
+  3+math.random(1, 10000)*1000,
+  4+math.random(1, 10000)*1000,
+  5+math.random(1, 10000)*1000,
+  6+math.random(1, 10000)*1000,7+math.random(1, 10000)*1000,8+math.random(1, 10000)*1000,9+math.random(1, 10000)*1000,10+math.random(1, 10000)*1000}
+  table.sort(tab)
+  for key, value in pairs(tab) do
+    tab[key] = value %1000
+  end
+  -- jhxbbgame.nowsec()..tostring(getbaseinfo(actor, 48)) .. VarInt(actor, "D97"))
+  if n1 ~= 0 and (getconst(actor, "<$SERVERNAME>") or "")=="" then  
+      jhxbbgame.makekf()
+      release_print(".专属装备.mk => ",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
+      clearitemmap("0",0,0,999,"传奇宝箱")
+      -- callscriptex(actor, 
+      -- "HumanDropUseItem", 
+      -- "-1","S$掉拉")
+      -- jhxbbgame.sendmsg(actor,"掉拉:"..VarStr(actor,"S$掉拉"))
+      
+      
+  end
+  if n1 == 10 then
+      --jhxbbgame.openUI(actor, "topui",nil)
+      jhxbbgame.openUI(actor, "泽坤的恩赐",nil)
+    elseif n1 == 11 then
+      release_print(".1118.mk => ",#sMsg,sMsg)      
+    elseif n1 == 0 then
+      local lcfg = { day = VarInt(actor, "U000"), mon = VarInt(actor, "U053") }
+      sendluamsg(actor, 31118, 0, 0, 0, tbl2json({ fn = "ui1118", cfg = lcfg, code = jhxbbgame.ui.ui1118, npcid = 0 }))
+    elseif n1 == 3 then
+      gives(actor,
+      "天龙王战刃#1&起源之火#100#339&封神剑#100#339&"..
+      "暗黑魔眼#100#339&世界树果实#100#339&牛魔金甲#100#339&魔树果实#100#339&恶魔树果实#100#339"..
+      "&硫磺#100#339&木炭#100#339&导火索#100#339"..
+      "&战备口粮#100&战争企划书#100&魔王偃月刀#100"..
+      "&寂静之泉#100&屠龙#1&嗜魂法杖#1&逍遥扇#1"..
+      "&英雄肉身#100&邪魔躯体#100&恶魔灵魂#100&黑铁矿石#100&逍遥扇#1"..
+      "&秘境卷轴[三大陆]#100&邪魔躯体#100&恶魔灵魂#100&黑铁矿石#100&逍遥扇#1"..
+      "&聚灵珠[满]#100&魔族尸骸#100&泯灭的龙魂石#100&万物之灵#200"
+     
+      )
+
+      --jhxbbgame.kfcall(actor, "testkf",{})
+      --addskill(actor,31,3)
+      --openwebsite(actor,"https://h5.kf.996sdk.net?companyId=614") 
+    elseif n1 == 37567567 then  
+      gmexecute(actor, "clearbag")
+      gives(actor,
+      "天龙王战刃#1&起源之火#100#339&封神剑#100#339&"..
+      "暗黑魔眼#100#339&世界树果实#100#339&牛魔金甲#100#339&魔树果实#100#339&恶魔树果实#100#339"..
+      "&硫磺#100#339&木炭#100#339&导火索#100#339"..
+      "&战备口粮#100&战争企划书#100&魔王偃月刀#100"..
+      "&寂静之泉#100&屠龙#1&嗜魂法杖#1&逍遥扇#1"..
+      "&英雄肉身#100&邪魔躯体#100&恶魔灵魂#100&黑铁矿石#100&逍遥扇#1"..
+      "&秘境卷轴[三大陆]#100&邪魔躯体#100&恶魔灵魂#100&黑铁矿石#100&逍遥扇#1"..
+      "&聚灵珠[满]#100&魔族尸骸#100&泯灭的龙魂石#100&万物之灵#200"
+     
+      )
+
+
+      zhuangtailanshuaxin1(actor)
+      
+      aaa = aaa or 0
+      aaa = aaa + 1
+      clearplayeffect(actor, 60584)
+      jhxbbgame.showeff(actor, 60584 , 3, 20,80)
+                                
+      setcamp(actor, aaa)
+      --yindaochufa(actor)
+      jhxbbgame.kfcall(actor, "testkf",{})
+      --startup(nil)
+      addattlist(actor, "专属", "=","3#75#-20000",0)
+     
+      jhxbbgame.log("*end:",getconst(actor, "<$ATTR[75]>"))
+  
+      newchangetask(actor,1,1,2,3) 
+    elseif n1 == 1113 then
+      -- callscriptex(actor, "changenamecolor",
+      -- "249")
+      -- jhxbbgame.showeff(actor,33,4)
+      --changemode(tagpos,10,2,10)
+      -- addbuff(actor,31119,3)
+
+      
+      local bb = 1+2+16+64+256
+
+      
+      --confertitle(actor, "称号：勇士之证")
+      confertitle(actor, "称号：宝箱揭秘")
+      
+      --giveitem(actor,"起源之火",1,339)
+      
+      --jhxbbgame.Gives(actor,"起源之火#998#339")
+
+      -- for key, value in pairs(getbagitems(actor)) do
+      --   if checkitemstate(value) then
+      --     jhxbbgame.log(actor, "*bbb")
+
+      --   end
+      --   setitemstate(value,8, 1)
+      -- end
+      --makeposion(actor,12,188880)
+      --login(actor)
+      setKBicon(actor)
+      setcamp(actor, 1)
+      jhxbbgame.TimeMsg(actor,"还剩余%d后活动开始.",11)
+      deprivetitle(actor, "称号：世界树果")
+      deprivetitle(actor, "不惑之年")
+      jhxbbgame.log(actor, 
+        "++++++++++:1=",jhxbbgame.nowsec(),
+        getattlist(actor, "专属") 
+        -- ,getconst(actor, "<$ATTR[74]>")
+        -- ,getconst(actor, "<$ATTR[222]>")
+        --,tbl2json(attrtab(actor))
+
+        )--)
+      addattlist(actor, "专属", "=","3#231#20000",0)
+      --delattlist(actor, "专属")
+      
+      jhxbbgame.log(actor, 
+        "sendability:2=",
+        getattlist(actor, "专属") 
+        ,getconst(actor, "<$ATTR[74]>")
+        ,getconst(actor, "<$ATTR[222]>")
+        --,tbl2json(attrtab(actor))
+
+        )--)
+      recalcabilitys(actor)
+      deprivetitle(actor,"称号：封神魔眼")
+      --deprivetitle(actor,jhxbbgame.titleName.kbzl)
+      jhxbbgame.log(actor, 
+        "sendability:3",
+        getattlist(actor, "专属") 
+        ,getconst(actor, "<$ATTR[74]>")
+        ,getconst(actor, "<$ATTR[222]>")
+        --,tbl2json(attrtab(actor))
+
+        )--)
+      --addattlist(actor, "专属", "+", "3#44#"..100, 0)
+
+      --callscriptex(actor, "take", "传奇宝箱","999999")
+      --jhxbbgame.HintEff(actor, "阵营="..getcamp(actor))
+      --setbaseinfo(tagpos,12,110)
+      -- jhxbbgame.HintEff(actor, getbaseinfo(tagpos,12).."mp="..getdbmonfieldvalue(getbaseinfo(tagpos, 55),"mp")
+      -- )
+      --jhxbbgame.log(jhxbbgame.info(tagpos, true))
+      --jhxbbgame.log(debug.traceback())
+      --callscriptex(actor, "SetHumAttackMode","-1", "3600")
+      local cc = {zy=0}
+      --kuafusys_ncmod(actor, cc)
+      --changenamecolor(actor,254)
+      --jhxbbgame.showeff(actor, 5009, 20)
+      --clearplayeffect(actor, 111)
+      --addbuff(actor,31134,5)
+
+      jhxbbgame.log(tagpos,"*tagpos=",
+      
+      tbl2json(attrtab(tagpos))
+      )
+
+      -- local npcInfo = {
+      --           ["Idx"] = 13111,  -- 自定义NPC的Idx，NPC点击触发时，触发参数会传回Idx值
+      --           ["npcname"] =  "NPC名称", -- NPC名称
+      --           ["appr"] =   1097,  -- NPC外形效果
+      --           ["color"] =   249,  -- NPC外形效果
+      --           ["limit"] = 60*60, -- 生命周期 (秒) 引擎64_24.05.23新增
+      --       }
+      -- local ret = createnpc("0",x,y+1,tbl2json(npcInfo))
+      --   local npc = getnpcbyindex(1121111)    
+        
+      jhxbbgame.log(actor,"*sun",jhxbbgame.daysun())
+      
+      --jhxbbgame.openUI(actor, "群骑竞赛", kuafusys.getdata(actor,1))
+    elseif n1 == 1 then
+    if true then
+      --jhxbbgame.reftopbtn(actor)
+      --SetVarInt(actor,"N$福利大厅引导点亮",2)
+      --jhxbbgame.YDUi(actor, 6, 1, "点击查看")
+      -- clearskill(actor)
+      -- addskill(actor,56)
+      --addbuff(actor, 31126,10)
+      --return
+    end
+    --sMsg = string.gsub(sMsg," r="," return ")
+    local aret = loadstring("local a = { ... } actor =a[1] \n\r" .. sMsg, "c1118")
+    --gmexecute(actor,"ReloadManage",11)
+    --gmexecute(actor,"@f","0")
+
+    local ret, err = safecall(aret, true, actor)
+    jhxbbgame.log(actor, "ret=", aret, tostring(ret), tostring(err))
+  else
+    sendluamsg(actor, 31119, 0, 0, 0,
+      tbl2json({ fn = "ui1118", val = { update = { d = 7 }, npcid = 0 } }))
+  end
+end
+
+
+function triggerchat22(actor,...)
+  jhxbbgame.log(actor,"*triggerchat",...)
+  
+end
+
+
+return sv1118

ui1118.jh

@@ -0,0 +1 @@
+rVlNb9vIGT7Lv2IwQbBUS1MSGXodAT4kjmN7GyduLHsPqiGMxZFMh+Io5NB2ukh/TIH22iLtYrFo0QX6gXTTS9FeggK97S2nbQ89teg7H/ySaIlKVoEZDueZ9+t5Z+Ydst8P2JAEKPHRFvrs5ZpqDU6gNUrCIfdZaFw2UUR5EoXo6FF3l/IDyskJCRIqemjo6UEPjx9v//B453inKKl3b/fJ/U/UE+oNmUfhPqLPEz+iBr44vz47G5MJbak+K0gIbq6tparBLMsPfW5MSURDbqLBwCOcDAbiLpnCPR0MmmsNf1RoI35Ow9RiEKCeG+lQZXJjfR1tRxQ60NGQhnStoeyVDTBx93i/+4i8YAkfKFhmApYQbKKO1W6n18GJgY+2n+7sPB58uv+gt4ebpWd7O/u7ez3xcESCmILFQn5M+b1weM6iQ+aH3JByTdSWAsU1h/VYMjzfCclZQL0UNyOpR8Zpz3oHQlhw8JCENBh0Uhd1c7GTGoSrXEPfA/PcSgfTro3NTRM5dzsLHdY6hLNuW11vcDlDVjidSyl7fT/hnIW522lb+62b2u9MCE5h4Lnd3lAUbypO8AM6IknAWxrzmEUTEljTcIxzk7ZZyCGER/6PqZHKMpHwzyl4tz8OWUQ19p5HpvxTn5/PDCo6q58Kn30e0B695gVkv//LX//pZ6en1eBtFrCogMa3RvKHq+EP2Zz5nY0ylAucIudJwgM/pCXxbfkTU6Sa+By7NNlzKI+SGeYLYoD6Gtzb9bi3C9zbnQ/j3n4f7u3a3NuC+7/89K+/fz6qxb69Mvv2KuzbK7Bv12ffXsC+XXfiO8vI505xzrsfxrvzPrw7tXl3BO9gcS3SnZVJd1Yh3VmBdKc+6c4C0h1JeqMG6+5S1i8LrH/gQu++D+lubdJdQfoJOqlFursy6e4qpLsrkO7WJ91dQLqbrvPLWY/oMtojUcHZG98J7RF9H94jWpt4Ae33I1qLeAFekXkxpD71SkFN7qM6FW0BeyP7UlB5oRch2g+nUL1m/Bce6QzIn8wlQQGMRbWqNvyPP5b/O4JRUcVmgcnhYNkRj/xwbBREgMA33/z53Vf/wlV4EXJFU3nIDFGlMYcBGdJzFng0unE42RD/KofLmwM4VZXHtKv5KmOWMVZClzk78WMfMGVIRd0+axRQC4e1dEIDe9ncTsnNToVwtgtibsTJcEjj2IR2PGWhVNCofchswPYxK9ijQzaZgrjYEIdFAWrog6Qa232QIWCxCEQ+aaEPIza5T2K6cUcNlbaIg2Yjk54ZYsX2yBiZsTmRGiZg7QSxCOGr72PxQFl1BY99ZrEpDQGMFFb8wWn3Sh5yRaNx1b2KfLAjburmMGAxNWRLGaCuufZoFIDochu0f5b4W7iNX641EPzybvlqoNQU4JdZ9C4Y9B896n4Ss1CEBxKuSAj0HEYiw/Ber3f4FFihMd+l3LIsbGYU3rpgZnHUCHQ8oy+A24nnIj9EU+JHsXHBmshjOgglD/qAPv3JloRnsQHdZaUGPud82m21Ou2O5TiW7bqWfedOd7PT2Ww9v7vZuqTR6LoVkavWWURgerQmxA9b2LJAPBhsXZzDUpExmqcgdBfNl/aFjCMNyE3K46ElWiIWI+IH0FBDG+qqEk/eKwZLAS+kakk3mvnBcinxF6w7jpMzA9/u3+6DD/hHWKubR5zePi0hUoZ37/+gx457DzcFDwWD9IwLGPEMrOcLOAaUqsmX+NjEZ1xL02iZKNphCJZ8mkdJhOkI3H5M+UE8NjrADyzFojCHxcKUaD02jU0atiwr+irAAopPtcIZiJyIGJYdfs2xOcdhBVCsHWbqfTWX7NlcZt8qiDZFiprqTRrsIgcP3BKBJqp2oKTUSyZT4wYcwqUOYLIaWO3iFTioJ0EalsRP4wGZot3qojPGAkpC9Prd63+/ef3Ft7/6+sufp6DUmS6K5TYpQV98/pu3b/77u3+mCT23QNVbKAoMLTdnuS1StdqXiOc9CbcDf/hs55KW3lJkb0L1ejafmGleljfhcVWdIHYG6f7aQrV2PbXi+Gt+NJ7QazpMYBcgQ84iEz+lYjIekJCModDtdJofZVoXKXVqKHVSX+XqsFymrHOLQtfXF89trDfn72rxhlJBJbKuG5pqg5sz4267M2eGNBfNVDb5lJlGbCyW4MEZieK8yhFj8myWIbEiumXbNioPKczNcke9HHHLkRVeLSrCxH4k+seV/XleNipemotQpB8B5PtyMXHAzVdf//YXx/t/+9+rt8j44z9effX5f/7+h2b+/v4ACIC6NaBDPtjzParvj/eFvbMhuhG8hbDa2Ga8AzsH8Df7driALBWtC+C5MT2SS1Z9eicXj2IqDHrkx1xtVekmq7dqcSvikhoggCc+vYI5MGGX9F4Q7HM6iY2yqMUG57jMYKGi9IlEk6VL1vX1PKlewOLjEWYUKmtzA2p7AbU8E1+KzzgwO0Sui5JroDIqL7iyjzq67oJgSID8xiLulFb1TUVcpHHZx5e109P//w==