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