local b2i = { [false] = 0, [true] = 1 } local waittimesec = 3*60 local namesact = { [0] = "跨服", "群骑竞赛", "夺宝战场", "杀戮证道", "据点争夺", "跨服沙巴克","辉煌的凤栖寺院", "泽坤的恩赐", } local tims = { [0] = { (14 * 60 + 0), (23 * 60 + 30) } , { (16 * 60 + 30), (16 * 60 + 50) }--群骑竞赛 , { (18 * 60 + 10), (18 * 60 + 25) }--夺宝战场 ,nil--, { (20 * 60 + 00), (20 * 60 + 10) }--杀戮证道 , { (19 * 60 + 00), (19 * 60 + 20) }--据点争夺 每周二四六开启21:00:00 , { (19 * 60 + 00), (19 * 60 + 50) }--跨服沙巴克 每周二四六开启21:00:00 , { (20 * 60 + 00), (20 * 60 + 50) }--辉煌的凤栖寺院 , { (19 * 60 + 00), (19 * 60 + 50) }--泽坤的恩赐 周日21:00:00 } local txcl = {[0]="14:00-23:30", "每天16:30-16:50",--群骑竞赛 "每天18:10-18:25",--夺宝战场 "关闭",--"每天20:00-20:10",--杀戮证道 "每周一三五19:00-19:20",--据点争夺 "每周二四六19:00-19:50",--跨服沙巴克 "每天20:00-20:50",--辉煌的凤栖寺院 "周日19:00-19:50"--泽坤的恩赐 } local boxeffid = 60584 -- local tims = { [0] = nil, nil,nil,nil,nil,nil,nil,{ (18 * 60 + 30), (18 * 60 + 50) }--群骑竞赛 -- } -- local tims = { [0] = nil, nil,{ (18 * 60 + 30), (18 * 60 + 50) }--群骑竞赛 -- } --@ff xdt306 130 208 @ff xdt246 192 178 local maps = { { "xdt306", 283, 283 }, { "xdt293", 26, 52 }, { "xdt292", 33, 35 }, { "xdt294", 83, 90 }, { "kf3", 650, 300 }, { "xdt292", 33, 35 }, { "xdt316" }, { "xdt292", 33, 35 }, } local avtime = {[0]=0, 60, 120, -20, 600, 600, 60*10, 600 } local jfmaps ={[0]={},{ "xdt306" }, { "xdt293" }, { "xdt292" }, { "xdt294","jddd"}, { "kf3", "kf0150" }, { "xdt297", "xdt298", "xdt299", "xdt300", "xdt301", "xdt302", "xdt303", }, { "xdt316"}, { "xdt292" }, { "xdt292" }, { "xdt292" }} local zypos = {{40,41}} local zyname = {"红","蓝"} local stpos = {{59,26},{16,55}} local zystmen = {{45,144},{127,45}} local oneguild = "" local AllGuilds = {} local castleguid = "" local castleoldguid = "" local dieflag = 0 local dieflag2 = 0 local jlitems = { [0]= {""}, [1] = { "代购币#10&绑定元宝#98888&绑定金币#18888888&书页#40#339&布料#40#339&龙玉勋章#1#339", "代购币#10&绑定元宝#78888&绑定金币#15888888&书页#30#339&布料#30#339&龙玉勋章#1#339", "代购币#10&绑定元宝#58888&绑定金币#12888888&书页#20#339&布料#20#339&龙玉勋章#1#339", "代购币#10&绑定元宝#38888&绑定金币#5888888&书页#10#339&布料#10#339&龙玉勋章#1#339", }, [2] = { "代购币#10&绑定元宝#98888&绑定金币#18888888&书页#40#339&布料#40#339&龙玉勋章#1#339", "代购币#10&绑定元宝#78888&绑定金币#15888888&书页#30#339&布料#30#339&龙玉勋章#1#339", "代购币#10&绑定元宝#38888&绑定金币#5888888&书页#10#339&布料#10#339&龙玉勋章#1#339", }, [3] = { "代购币#10&绑定元宝#98888&绑定金币#18888888&书页#40#339&布料#40#339&龙玉勋章#1#339", "代购币#10&绑定元宝#78888&绑定金币#15888888&书页#30#339&布料#30#339&龙玉勋章#1#339", "代购币#10&绑定元宝#58888&绑定金币#12888888&书页#20#339&布料#20#339&龙玉勋章#1#339", "代购币#10&绑定元宝#38888&绑定金币#5888888&书页#10#339&布料#10#339&龙玉勋章#1#339", }, [4] = { "代购币#10&绑定元宝#98888&绑定金币#18888888&书页#40#339&布料#40#339&龙玉勋章#1#339", "代购币#10&绑定元宝#38888&绑定金币#5888888&书页#10#339&布料#10#339&龙玉勋章#1#339", }, [5] = { "代购币#10&绑定元宝#98888&绑定金币#18888888&书页#40#339&布料#40#339&龙玉勋章#10#339", "代购币#10&绑定元宝#38888&绑定金币#5888888&书页#10#339&布料#10#339&龙玉勋章#10#339", }, [6] = { "代购币#10&绑定元宝#38888&绑定金币#5888888&书页#10#339&布料#10#339&龙玉勋章#10#339", }, [7] = { "代购币#10&绑定元宝#38888&绑定金币#5888888&书页#10#339&布料#10#339&龙玉勋章#1#339", } , [8] = { "代购币#10&绑定元宝#38888&绑定金币#5888888&书页#10#339&布料#10#339&龙玉勋章#1#339", } , [9] = { "代购币#10&绑定元宝#38888&绑定金币#5888888&书页#10#339&布料#10#339&龙玉勋章#1#339", } } release_print("-----跨服玩家消息处理") kuafusys = { maps=tbl2json(jfmaps), msgproc = {}, bmHour = 25, roomopen=0, diedrop=false, sun=true, kaimentime = 0, actstate = { }, curact = nil } local kuafusys = kuafusys local recfile="QuestDiary/跨服报名.ini" function kuafusys.read(actor,k) local ss = tostring(getconst(actor, "<$USERNAME>"))..math.floor(os.time()/86400) return tonumber(readini(recfile, k, ss)) end function kuafusys.write(actor,k, v) local ss = tostring(getconst(actor, "<$USERNAME>"))..math.floor(os.time()/86400) local old = kuafusys.read(actor,k) writeini(recfile, k, ss, v) jhxbbgame.log(actor,getbaseinfo(actor, 1), getbaseinfo(actor, 2), ss,".write=>",k, v,old) end function kuafusys_setzy(actor,zy) zy = zy or {z=0} jhxbbgame.log(actor,"setcamp:",zy.z,getbaseinfo(actor,1),getbaseinfo(actor,2)) setcamp(actor, zy.z or 0) jhxbbgame.topui.upzy(actor,zy.z or 0) end function kuafusys.setzy(actor,zy) setcamp(actor, zy) jhxbbgame.bfcall(actor,"kuafusys_setzy",{z=zy}) jhxbbgame.log(actor,"kuafusys.setzy:",zy) end function kuafusys_regohome(actor,zy) local ca = kuafusys.curact jhxbbgame.IncHP(actor, 0.999) jhxbbgame.log(actor,"阵营复活:",zy,getbaseinfo(actor,1),getbaseinfo(actor,2)) if ca and ca.i == 4 and ca.runing == 1 then local spd = kuafusys.getdataEx(actor, ca.i) local x,y = getbaseinfo(actor,4),getbaseinfo(actor,5) if spd.pd.zy > 0 then local ax,ay = stpos[spd.pd.zy][1],stpos[spd.pd.zy][2] if not kuafusys.InRange(ax,ay,x,y) then kuafusys.JoinMap(actor,maps[ca.i],spd,spd.pd.zy) return end end end mapmove(actor, "xdt246", 192, 178, 5) end function kuafusys.gohome(actor,re) re = re or 0 kuafusys.setzy(actor,0) jhxbbgame.IncHP(actor, 0.999) jhxbbgame.log(actor,"kuafusys.gohome:",re) if re == 1 then jhxbbgame.kfcall(actor,"kuafusys_regohome",{re=1}) else mapmove(actor, "xdt246", 192, 178, 5) end kuafusys.NColor(actor, 255) jhxbbgame.TimeMsg(actor,"",0) jhxbbgame.take(actor,"传奇宝箱") jhxbbgame.bfcall(actor,"___xiamaauto",{u=1}) kuafusys.clearbxeff(actor) kuafusys.RetAttackMode(actor) end function kuafusys.init(i) i = tonumber(i) jhxbbgame.log("kuafusys.init:", i) local t = tims[i] local s = {joineds={},playdatas={},ranks={},runing=0} s.i = i s.actname = namesact[i] if t then s.bgtime = t[1] * 60 s.edtime = t[2] * 60 local sun = jhxbbgame.daysun() if s.actname == "据点争夺" then if ((sun ==1) or (sun ==3) or (sun ==5)) then elseif ((sun ==6)) then s.bgtime = s.bgtime + 2*86400 s.edtime = s.edtime + 2*86400 else s.bgtime = s.bgtime + 86400 s.edtime = s.edtime + 86400 end elseif s.actname == "跨服沙巴克" then if ((sun ==2) or (sun ==4) or (sun ==6)) then elseif ((sun ==7)) then s.bgtime = s.bgtime + 3*86400 s.edtime = s.edtime + 3*86400 else s.bgtime = s.bgtime + 86400 s.edtime = s.edtime + 86400 end elseif s.actname == "泽坤的恩赐" then if ((sun ==7)) then else local dc = 7-sun s.bgtime = s.bgtime + dc*86400 s.edtime = s.edtime + dc*86400 end end -- s.bgtime = jhxbbgame.nowsec()+20 -- s.edtime = s.bgtime + 3 * 60 else s.bgtime = 0 s.edtime = 0 end kuafusys.actstate[i] = s return kuafusys.actstate[i] end --release_print("kuafusys:", tbl2json(kuafusys.actstate)) function kuafusys_pubmsg(actor,cfg) sendmovemsg(actor, 1, 249, 0, 150, 1, cfg.t) end function kuafusys.pubmsg(ca,smsg) jhxbbgame.log(nil,"-------kf.pubmsg",ca.actname..smsg) jhxbbgame.bfcall("0","kuafusys_pubmsg",{t="<" .. ca.actname .. "/FCOLOR=250>{"..smsg.."/FCOLOR=253}"}) end function kuafusys.connected() return checkkuafuserver() or checkkuafuconnect() end function kuafusys.primsg(actor, ca,smsg) local caname = (ca and ca.actname) or "跨服" jhxbbgame.log(actor,"-------kf.primsg",caname,smsg) --jhxbbgame.sendmsg(actor, ca.actname..":"..smsg) jhxbbgame.HintEff(actor, caname..":"..smsg,"00FF00") end function kuafusys.nonerun(actor) end function kuafusys.run(actor) --kuafusys._run(actor) end function kuafusys.paopush(actor) jhxbbgame.log(actor,"------------kuafusys.paopush") jhxbbgame.kfcall(actor, "kuafusys_paopush") end function kuafusys_paopush(actor) local ca = kuafusys.curact if ca and ca.actname == "群骑竞赛" and ca.runing == 1 then local lv = kuafusys.RecRank(actor, ca) if lv > 0 then end else --kuafusys.give(actor,getbaseinfo(actor, 2),"代购币#10&元宝#98888","群骑竞赛") jhxbbgame.log(actor,"------------kuafusys.paopush.失败活动无效", tbl2json(ca)) jhxbbgame.sendmsg(actor, "失败活动无效!") end end function kuafusys.give(actor,uid,itm,tile) kuafusys.sendkfmail(actor,uid,itm,tile,"跨服活动奖励") end function kuafusys_mail(actor,a) jhxbbgame.log(actor,"------------.kuafusys_mail.",tbl2json(a)) if a and a.t and a.u then --local aactor = getplayerbyid(a.u) --if aactor then sendmail(a.u, 1, a.t, a.tt, a.i) --end end end function kuafusys.sendkfmail(actor,uid,itm,tile,t2) jhxbbgame.bfcall(actor,"kuafusys_mail",{u=uid,i=itm,t=tile,tt=t2}) end function clearkfgate() delmapgate("G1","xdt306") delmapeffect(131313) delmapgate("G3","xdt294") delmapgate("G31","xdt294") end function kuafusys.begact(sysact,ca) jhxbbgame.log(nil,"------------kuafusys.begact",ca.actname) ca.ranks = ca.ranks or {} kuafusys.pking = kuafusys.pknone kuafusys.endguildWar(sysact) if ca.actname == "群骑竞赛" then kuafusys.run = kuafusys._run --local x,y =275,279 local x,y =273,273 --mapeffect(131313, "xdt306", x, y, 490, 15, 0) -- jhxbbgame.MapPlayRun(maps[1][1], function (actor) -- sendcentermsg(actor,180,251,"还剩余%d后活动开始.",0,180) -- --sendmapmsg(maps[1][1],tbl2json({Msg=ca.actname.."活动结束!",FColor=255,BColor=155,Type=1,Time=3})) -- end) local t = waittimesec - (jhxbbgame.nowsec()- ca.bgtime) if t > 3 then kuafusys.kaimentime = os.time()+t addmapgate("G1","xdt306",273,273,6,"xdt306",282,282,2000000) else kuafusys.kaimentime = 0 end elseif ca.actname == "夺宝战场" then if getmoncount("xdt293",-1,true)<1 then genmon("xdt293", 26, 52, "宝藏巨蟹",5,1,255) end kuafusys.act2playupid = kuafusys.act2playupid or "" kuafusys.act2monkillplayid = kuafusys.act2monkillplayid or "" kuafusys.bxx = kuafusys.bxx or 17 kuafusys.bxy = kuafusys.bxy or 56 elseif ca.actname == "据点争夺" then local function initzy() return {pw=0,plays={},ptjf={0,0,0,0,0}, jf=0} end ca.zydata = ca.zydata or {initzy(),initzy()} ca.jdzt= ca.jdzt or {0,0,0,0,0} -- addmapgate("G3","xdt294",zystmen[1][1],zystmen[1][2],5,"xdt294",36,153,2000000) -- addmapgate("G31","xdt294",zystmen[2][1],zystmen[2][2],5,"xdt294",136,36,2000000) local t = 60 - (jhxbbgame.nowsec()- ca.bgtime) if t > 3 then kuafusys.kaimentime = os.time()+t else kuafusys.kaimentime = 0 end --genmon("xdt293", 26, 52, "宝藏巨蟹",5,1,255) elseif ca.actname == "跨服沙巴克" then if getmoncount("kf3",1001,true)<1 then genmon("kf3", 624, 278, "LeftWall",0,1,255) end if getmoncount("kf3",1002,true)<1 then genmon("kf3", 627, 278, "CenterWall",0,1,255) end if getmoncount("kf3",1003,true)<1 then genmon("kf3", 634, 271, "RightWall",0,1,255) end castleguid = castleguid or "" elseif ca.actname == "辉煌的凤栖寺院" then --kuafusys.pking = kuafusys._pkingfx --genmon("xdt296", 35, 34, "意念掌控者",0,1,254) if getmoncount("xdt297",-1,true)<1 then genmon("xdt297", 26, 25, "意念掌控者",0,1,254)end if getmoncount("xdt298",-1,true)<1 then genmon("xdt298", 25, 26, "记忆抹杀者",0,1,254)end if getmoncount("xdt299",-1,true)<1 then genmon("xdt299", 25, 26, "时空潜行者",0,1,254)end if getmoncount("xdt300",-1,true)<1 then genmon("xdt300", 26, 27, "巨龙驾驭者",0,1,254)end if getmoncount("xdt301",-1,true)<1 then genmon("xdt301", 26, 26, "邪恶守护者",0,1,254)end if getmoncount("xdt302",-1,true)<1 then genmon("xdt302", 26, 26, "亡魂守灵者",0,1,254)end if getmoncount("xdt303",-1,true)<1 then genmon("xdt303", 25, 25, "恐惧支配者蓝焰翼龙",0,1,254) end ca.mon = 1 --genmon("xdt304", 29, 22, "CenterWall",0,1,255) --genmon("kf3", 634, 271, "RightWall",0,1,255) elseif ca.actname == "泽坤的恩赐" then kuafusys.pking = kuafusys._pking kuafusys.makenpc(0) local ps = kuafusys.makenpc(1) end end function kuafusys.pknone(actor) end function kuafusys._pking(actor) if isplayer(actor) then SetVarInt(actor, "U023", 1) jhxbbgame.topui.hidebar(actor) end end function kuafusys._pkingfx(tag,actor,dam) local ca = kuafusys.curact if ismon(tag) and checkkuafuserver() and ca and ca.runing and ca.actname == "辉煌的凤栖寺院" then local spd = kuafusys.getdataEx(actor, ca.i) if spd and spd.pd.jf < 3*10000 then spd.pd.jf = spd.pd.jf + 1 jhxbbgame.log(actor,tag,"------------kuafusys.delnpc",dam) if spd.pd.jf > 300 then kuafusys.dcjoin(actor,ca,spd,"达成活跃!!") end end end end function kuafusys.dcjoin(actor,ca,spd,s) kuafusys.primsg(actor, ca,s) spd.pd.mapjoin = 1 ca.joineds[#ca.joineds + 1] = { getbaseinfo(actor, 2), getbaseinfo(actor, 1),getbaseinfo(actor, 36) } end local keys = {"１８８代购币","８８代购币","５８代购币","１０代购币"} kuafusys.pking = kuafusys.pknone function kuafusys_delnpc(actor,a) a = a or {} local id = a[1] local key = keys[a[2]] jhxbbgame.log(actor,id,"------------kuafusys.delnpc", key) delnpc(key..id,"xdt316") delnpc(id,"xdt316") end local caijicfg = {} function kfcaijiok(actor) local id = VarInt(actor, "U023") if id >= 1118*8 then local cfg = caijicfg[id] if cfg and cfg[2] then if cfg[0] == 1 then jhxbbgame.sendmsg(actor, "采集失败!!!") return end cfg[0] = cfg[0] or 1 caijicfg[id] = cfg local key = cfg[2] --jhxbbgame.kfcall(actor, "kuafusys_delnpc", tbl2json({id, key})) jhxbbgame.log(actor,id,"------------kuafusys.kfcaijiok", key) if key == 1 then gives(actor,"代购币#188","kfcaijiok") elseif key == 2 then gives(actor,"代购币#88","kfcaijiok") elseif key == 3 then gives(actor,"代购币#58","kfcaijiok") elseif key == 4 then gives(actor,"代购币#10","kfcaijiok") end kuafusys_delnpc(actor,{id, key}) return else jhxbbgame.sendmsg(actor, "已经被过采集了!!") end cfg[0] = 0 caijicfg[id] = cfg else jhxbbgame.sendmsg(actor, "采集失败!") SetVarInt(actor, "U023", 0) jhxbbgame.log(actor,id,"------------kuafusys.kfcaijiok", id) end end function npcxy(npc_id) local npc = getnpcbyindex(npc_id) return getbaseinfo(npc,4),getbaseinfo(npc,5) end function kuafusys.clickcaiji(actor, npcid) local time= caijicfg[npcid] if time and time[1] then local x,y = getbaseinfo(actor,4),getbaseinfo(actor,5) local nx,ny = npcxy(npcid) local absx = math.abs(nx - x) local absy = math.abs(ny - y) if (absx <= 2) and (absy <= 2) then else jhxbbgame.sendmsg(actor, "距离太远了!!!") return end SetVarInt(actor, "U023", npcid) --jhxbbgame.sendmsg(actor, npcid.."采集:"..keys[time[2]]..","..time[3]..","..time[4]) showprogressbardlg(actor, time[1], "@kfcaijiok", "正在采集,进度%d%.....", 1, nil) else jhxbbgame.sendmsg(actor, "已经被过采集了!") jhxbbgame.log(actor,npcid,"------------kuafusys.clickcaiji", "无配置数据") kuafusys_delnpc(actor,{npcid, tostring(time[2])}) end end --{id,key, x,y} local npccfg = {{1,60,1097,151}, {2,40,1094,249}, {3,20,1093,254}, {35,10,1098,255}, } function kuafusys_makenpc(actor,a) local id, key,x,y= a[1],a[2],a[3],a[4] local value = npccfg[key] local npcInfo = { ["Idx"] = id, -- 自定义NPC的Idx，NPC点击触发时，触发参数会传回Idx值 ["npcname"] = keys[key]..id, -- NPC名称 ["appr"] = value[3], -- NPC外形效果 ["color"] = value[4], -- NPC外形效果 ["limit"] = 60*60, -- 生命周期 (秒) 引擎64_24.05.23新增 } caijicfg[id]={value[2],key, x,y} createnpc("xdt316",x,y,tbl2json(npcInfo)) end function kuafusys.makenpc(a) local id = 1118*8 jhxbbgame.log(nil,"------------kuafusys.makenpc,") local dmp = {} for key, value in pairs(npccfg) do -- genmon("xdt316", 25, 25, key,66,value[1],254) for i = 1, value[1], 1 do local npcInfo = { ["Idx"] = id, -- 自定义NPC的Idx，NPC点击触发时，触发参数会传回Idx值 ["npcname"] = keys[key]..id, -- NPC名称 ["appr"] = value[3], -- NPC外形效果 ["color"] = value[4], -- NPC外形效果 ["limit"] = 60*60, -- 生命周期 (秒) 引擎64_24.05.23新增 } --genmon("xdt316", 25, 25, key,66,value[1],254) local function mk(x,y) local ret = nil ret = createnpc("xdt316",x,y,tbl2json(npcInfo)) jhxbbgame.log(nil,id,"------------kuafusys.createnpc", ret,keys[key]..id,x,y) caijicfg[id]={value[2],key, x,y} jhxbbgame.bfcall("0","kuafusys_makenpc",{id,key, x,y}) id = id + 1 end if a == 0 then kuafusys_delnpc(nil,{id, key}) else for i = 1, 100, 1 do local x,y = math.random(1,30)+math.random(1,30),math.random(1,30)+math.random(1,30) if gridattr("xdt316",x ,y,1) and not dmp[x.."_"..y] then dmp[x.."_"..y] = true mk(x,y) break end end end end end if a == 0 then jhxbbgame.log(nil,"------------kuafusys.delnpc", #caijicfg) caijicfg ={} else return caijicfg end end function kuafusys.endact(sysact,ca) local xbb = jhxbbgame local itemg = jlitems[ca.i] local avid = #itemg 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 = {} local jfabs = math.abs(avtime[ca.i]) for uid, lpd in pairs(ca.playdatas) do local jf = lpd.jf or 0 if (jf >= jfabs) and (jfabs > 0) then jfok[uid]=lpd elseif (jfabs > 0) then jfnotok[uid]=lpd end end xbb.log(nil,ca.actname,"------------kuafusys.endactjfok",tbl2json(jfok)) xbb.log(nil,ca.actname,"------------kuafusys.endactjfnotok",tbl2json(jfnotok)) xbb.log(nil,ca.actname,"------------kuafusys.endactplaydatas",tbl2json(ca.playdatas)) local sendpass = {} local function giv(r, info,mc) local uid = info[1] if uid and uid ~= "" and not sendpass[uid] then local aa = itemg[r] local actor = getplayerbyid(uid) if aa and aa ~= "" then sendpass[uid] = true if not mc then mc = "第" .. r .. "名" if r > 3 then mc = "安慰" else --kuafusys.note(ca,"恭喜["..info[2].."]获得第"..r.."名。获得丰厚奖励！！！") end end jhxbbgame.log(actor,"------------kf.endact发放奖励",info[2] or "",uid,ca.actname,mc,aa) kuafusys.give("0",uid,aa,ca.actname .. mc .. "奖励") end end end if ca.actname == "群骑竞赛" then kuafusys.run = kuafusys.nonerun xbb.MapPlayRun(jfmaps[ca.i],function (actor,m) xbb.bfcall(actor,"___xiamaauto",{u=1}) end) elseif ca.actname == "夺宝战场" then local actor = getplayerbyid(kuafusys.act2playupid) if actor then kuafusys.give("0",kuafusys.act2playupid,itemg[1],ca.actname .. "巅峰奖励") sendpass[kuafusys.act2playupid] = true kuafusys.clearbxeff(actor) 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) if actor and (not sendpass[kuafusys.act2monkillplayid]) then kuafusys.give("0",kuafusys.act2monkillplayid,itemg[2],ca.actname .. "击杀奖励") sendpass[kuafusys.act2monkillplayid] = true end for key, value in pairs(ca.joineds) do local uid = value[1] if not sendpass[uid] then kuafusys.give("0",uid,itemg[3],ca.actname .. "参与奖励") sendpass[uid] = true end end xbb.MapPlayRun(nil,function (actor,m) xbb.dbgout(actor, "收宝箱!") xbb.take(actor,"传奇宝箱") end) kuafusys.act2monkillplayidold = kuafusys.act2monkillplayid kuafusys.act2playupidold = kuafusys.act2playupid kuafusys.act2monkillplayid = "" kuafusys.act2playupid = "" elseif ca.actname == "杀戮证道" then ca.ranks = {} ca.joineds = {} for key, value in pairs(ca.playdatas) do if value.jf >= 20 then local rd = { key, value.name, value.jf} ca.ranks[#ca.ranks + 1] = rd ca.joineds[#ca.joineds + 1] = rd end end table.sort(ca.ranks,function (a, b) return a[3] > b[3] end) xbb.MapPlayRun(nil,function (actor,m) kuafusys.setzy(actor,0) xbb.SetDefColor(actor) end) elseif ca.actname == "据点争夺" then local zyjf = {{jf=ca.zydata[1].jf,pw=ca.zydata[1].pw},{jf=ca.zydata[2].jf,pw=ca.zydata[2].pw}} local win = 0 local lost = {} if zyjf[1].jf == zyjf[2].jf then if zyjf[1].pw > zyjf[2].pw then win = 1 else win = 2 end elseif zyjf[1].jf > zyjf[2].jf then win = 1 end if win == 1 then lost = {2} else win =2 lost = {1} end ca.ranks = {} ca.joineds = {} for _, z in pairs(lost) do local zyd = ca.zydata[z] for uid, value in pairs(zyd.plays) do local spd = kuafusys.getUiddataEx(uid,ca.i) if spd and spd.pd.mapjoin == 1 then giv(2, {uid}, "参与") else local actor = getplayerbyid(uid) if actor then kuafusys.primsg(actor, ca,"未达成活跃无法领奖!") end end end end local max = 0 local top = nil for _, z in pairs({1,2}) do local zyd = ca.zydata[z] for uid, value in pairs(zyd.plays) do --giv(2, {uid}, "参与") local spd = kuafusys.getUiddataEx(uid,ca.i) if spd and (spd.pd.jfkill or 0> max) then top = uid end end end local cc = "" if top then local actor = getplayerbyid(top) if actor then cc = "!" kuafusys.pubmsg(ca, "恭喜"..tostring(getbaseinfo(actor, 1)).."获得限时称号奖励!") deprivetitle(actor, "据点称号") confertitle(actor, "据点称号", 1) xbb.bfcall(actor,"kuafusys_jdtop",{j=1}) kuafusys.primsg(actor, ca,"恭喜获得限时称号奖励") end end if win > 0 then kuafusys.pubmsg(ca, "恭喜"..zyname[win].."方获得巅峰奖励!"..cc) xbb.log("","据点争夺:Win"..zyname[win]) local zyd = ca.zydata[win] for uid, value in pairs(zyd.plays) do giv(1, {uid}, "巅峰") end end xbb.MapPlayRun(nil,function (actor,m) kuafusys.setzy(actor,0) xbb.SetDefColor(actor) end) ca.zydata = nil ca.jdzt= nil elseif ca.actname == "跨服沙巴克" then kuafusys.endguildWar(sysact) for key, value in pairs(ca.joineds) do if value[3] == castleguid then giv(1, value, "巅峰") end end castleoldguid = castleguid castleguid = "" avid = 2 elseif ca.actname == "泽坤的恩赐" then kuafusys.pking = kuafusys.pknone kuafusys.makenpc(0) avid = 1 end ca.ranks[#ca.ranks + 1] = { "", "" } ca.ranks[#ca.ranks + 1] = { "", "" } ca.ranks[#ca.ranks + 1] = { "", "" } giv(1, ca.ranks[1]) giv(2, ca.ranks[2]) giv(3, ca.ranks[3]) if itemg[avid] then for key, value in pairs(ca.joineds) do giv(avid, value,"参与") end end for uid, value in pairs(jfnotok) do if sendpass[uid] then else kuafusys.sendkfmail("0",uid,"",ca.actname,ca.actname .. "未达成活跃!您的活跃积分:"..(value.jf)) end end for key, m in pairs(jfmaps[ca.i] or {}) do sendmapmsg(m,tbl2json({Msg=ca.actname.." 活动结束!",FColor=255,BColor=155,Type=1,Time=3})) movemapplay(sysact,m,"xdt246", 192, 178, 3) end ca.joineds = {} 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 function kuafusys_end(actor,cfg) jhxbbgame.log(actor,"*kuafusys_end:"..1) kuafusys.changedMap(actor,"*kfend") end function kuafusys.kend(actor) kuafusys.clearbxeff(actor,boxeffid) jhxbbgame.take(actor,"传奇宝箱") --setattackmode(actor,-1,666) kuafusys.RetAttackMode(actor) local cc = {zy=0} kuafusys_ncmod(actor, cc) jhxbbgame.log(actor,"*kend:"..1) SetVarInt(actor, "U020", 0) jhxbbgame.kfcall(actor, "kuafusys_end", tbl2json({uid=getbaseinfo(actor, 2)}),true) end function kuafusys.InRange(ax,ay,x2,y2) local x = math.abs(ax-x2) local y = math.abs(ay-y2) local dis = x*x + ((y*y)*1.1) dis=dis^0.5 return dis <= 4.518 end function kuafusys.getjd(x,y) for key, value in pairs(zypos) do if kuafusys.InRange(x,y,value[1],value[2]) then return key end end return -1 end function kuafusys.jdjfAdd(ca,zy,x,y,v) local key = kuafusys.getjd(x,y) if key >= 1 then local cur = ca.zydata[zy].ptjf[key] +v ca.zydata[zy].ptjf[key] = cur ca.zydata[zy].jf = ca.zydata[zy].jf + v jhxbbgame.log("","jdjfAdd:",zy,x,y,v,cur) -- if cur >= 300 and ca.jdzt[key] == 0 then -- ca.jdzt[key] = zy -- kuafusys.pubmsg(ca,zyname[zy].."方阵营,成功拿下一个据点!") -- else local zdpos = zypos[key] for uid, actor in pairs(ca.zydata[zy].plays) do if isnotnull(actor) then local ax = getbaseinfo(actor, 4)-zdpos[1] local ay = getbaseinfo(actor, 5)-zdpos[2] if (math.abs(ax)<= 10) and (math.abs(ay)<= 10) then kuafusys.jdclick(actor, key) end end end --end return cur end return -1 end function kuafusys.jdclick(actor, id) local ca = kuafusys.curact if checkkuafuserver() and ca and ca.runing == 1 and ca.actname == "据点争夺" then local v1,v2 = ca.zydata[1].jf,ca.zydata[2].jf v1,v2 = math.floor(v1),math.floor(v2) if ca.jdzt[id] == 0 then kuafusys.primsg(actor, ca,"当前据点积分:"..zyname[1].."方="..v1..","..zyname[2].."方="..v2) else kuafusys.primsg(actor, ca,"当前据点已被"..zyname[ca.jdzt[id]].."占领!") end end end function kuafusys.die(actor,killer) local ca = kuafusys.curact if checkkuafuserver() then local isplay = isplayer(killer) local t2 = "你在" .. getbaseinfo(actor, 45) if isplay then t2=t2.. "被【" .. getbaseinfo(killer, 1) .. "】击杀" else t2=t2.. "被怪物【" .. getbaseinfo(killer, 1) .. "】击杀" end kuafusys.sendkfmail(actor,getbaseinfo(actor, 2),nil,"跨服死亡",t2) if kuafusys.diedrop and jhxbbgame.GetRate(10) then dieflag2 = os.time() dieflag = dieflag2 callscriptex(actor, "HumanDropUseItem", "-1","S0") dieflag = 0 jhxbbgame.log(actor, "*跨服死亡掉落::"..VarStr(actor,"S0")) if jhxbbgame.GetRate(1000) then dieflag = os.time() callscriptex(actor, "HumanDropUseItem", "-1","S0") dieflag = 0 jhxbbgame.log(actor, "*跨服死亡掉落2::"..VarStr(actor,"S0")) end end if ca and ca.runing and isplayer(actor) then jhxbbgame.log(actor, "*-----kuafusys.die "..ca.actname) if ca.actname == "夺宝战场" then kuafusys.changedMap(actor,"*die") elseif not isplayer(killer) then elseif ca.actname == "杀戮证道" then local spd = kuafusys.getdataEx(actor, ca.i) if spd.pd.join == 1 then spd.pd.jf = spd.pd.jf + 1 kuafusys.primsg(actor, ca,"积分+1,当前:"..spd.pd.jf) end spd = kuafusys.getdataEx(killer, ca.i) if spd.pd.join == 1 then spd.pd.jf = spd.pd.jf + 3 kuafusys.primsg(killer, ca,"积分+3,当前:"..spd.pd.jf) end elseif ca.actname == "据点争夺" then local spdk = kuafusys.getdataEx(killer, ca.i) local spd2 = kuafusys.getdataEx(actor, ca.i) if spdk == nil or spdk == nil then jhxbbgame.log(actor, "*据点争夺数据异常!",actor) elseif spdk.pd.zy ~= 0 and spd2.pd.zy ~= spdk.pd.zy then local x,y = getbaseinfo(actor,4),getbaseinfo(actor,5) local z = kuafusys.getjd(x,y) if z >= 0 then ca.zydata[z].jf = ca.zydata[z].jf +1 spdk.pd.jfkill = (spdk.pd.jfkill or 0) + 1 kuafusys.primsg(actor, ca,"当前积分:"..spdk.pd.jfkill..",本方总积分:"..ca.zydata[z].jf) end -- local v1 = kuafusys.jdjfAdd(ca,spdk.pd.zy,x,y,3) -- if v1 > 0 then -- kuafusys.jdclick(actor, spdk.pd.zy) -- end end end end end end function kuafusys.LockAttackMode(actor,m) jhxbbgame.log(actor, "*LockAttackMode",m) callscriptex(actor, "SetHumAttackMode",tostring(m), "3600") end function kuafusys.RetAttackMode(actor, chk) if not chk or (chk == getattackmode(actor)) then local old = VarInt(actor,"U024") jhxbbgame.log(actor, "*RetAttackMode",old) callscriptex(actor, "SetHumAttackMode",tostring(old), "0") changeattackmode(actor,old) end end function kuafusys.changedMap(actor,mapid) mapid = mapid or "" kuafusys.pking(actor) local ca = kuafusys.curact if checkkuafuserver() then if ((jfmaps[4][1] ~= mapid) and (jfmaps[4][2] ~= mapid)) and getcamp(actor)>0 then kuafusys_ncmod(actor, {zy=0}) kuafusys.RetAttackMode(actor,8) end if mapid ~= maps[2][1] then kuafusys.clearbxeff(actor) jhxbbgame.log(actor,"changedMap:"..mapid) if kuafusys.act2playupid == getbaseinfo(actor, 2) then kuafusys.changeitemplay(nil) end end end end function kuafusys.pickup(actor, item) if checkkuafuserver() then jhxbbgame.log(actor, "*kuafusys.pickup.= ") local itmname = getiteminfo(actor, item, 7) if itmname == "传奇宝箱" then kuafusys.changeitemplay(actor) end end end function kuafusys.clearbxeff(actor) jhxbbgame.showeff(actor, boxeffid, 1, 20,80) clearplayeffect(actor, boxeffid) end function kuafusys.changeitemplay(actor) local ca = kuafusys.curact if checkkuafuserver() and ca and ca.runing then jhxbbgame.log(actor or "nil", "*-----kuafusys.changeitemplay ",ca.actname,kuafusys.act2playupid) if ca.actname == "夺宝战场" then local old = nil if kuafusys.act2playupid ~= "" then old = getplayerbyid(kuafusys.act2playupid) if old then kuafusys.clearbxeff(old) jhxbbgame.take(old,"传奇宝箱") jhxbbgame.dbgout(actor, "换地图删除宝箱!") end end if actor and isplayer(actor) then kuafusys.act2playupid = getbaseinfo(actor, 2) kuafusys.pubmsg(ca, getbaseinfo(actor, 1).."获得了传奇宝箱!") jhxbbgame.showeff(actor, boxeffid, 999999, 20,80) jhxbbgame.take(actor,"传奇宝箱") jhxbbgame.ChatMsg(actor, "获得传奇宝箱!") SetVarInt(actor, "U020", 1) return elseif old then kuafusys.act2playupid = "" kuafusys.clearbxeff(old) SetVarInt(old, "U020", 0) jhxbbgame.ChatMsg(old, "失去传奇宝箱!") jhxbbgame.take(old,"传奇宝箱") end kuafusys.dropbx(kuafusys.bxx,kuafusys.bxy,1,18) end end --jhxbbgame.log(actor, "kuafusys.changeitemplay.= ",kuafusys.act2playupid,"new.",getbaseinfo(actor, 2)) end function kuafusys.dropbx(x,y,r,aa) if getmoncount("xdt293",-1,true)<1 then local oo = false jhxbbgame.MapPlayRun({maps[2][1]}, function(o) if getiteminfo(nil,o,7) == "传奇宝箱" then oo = true end end,8) jhxbbgame.dbgout(nil,"kuafusys.dropbx:",aa,oo) if not oo then clearitemmap(maps[2][1],0,0,999,"传奇宝箱") throwitem("0",maps[2][1],x,y,r,"传奇宝箱", 1,99999999,1,true,false,false,1,false) end end end function beforeroute(actor,dm,dx,dy) jhxbbgame.log(actor,"beforeroute",dm,dx,dy,type(dx),getbaseinfo(actor, 36)) local ret = true --kf3 630,274 -> kf0150 22,26 local ca = kuafusys.curact if checkkuafuserver() then if ca and ca.runing then if kuafusys.kaimentime > 0 and kuafusys.kaimen(actor) <=0 then kuafusys.pubmsg(ca,"比赛开始！！！") ret = false end if dm == "kf0150" and dx == 22 and dy == 26 then ret = castleguid == getbaseinfo(actor, 36) end end end return ret end function kuafusys.kaimen(actor) local a = kuafusys.kaimentime - os.time() if a > 0 then --jhxbbgame.sendmsg(actor, a.."秒后活动开始.") return a elseif kuafusys.kaimentime ~= 0 then kuafusys.kaimentime = 0 clearkfgate() return 0 end return a end function bfdropbodyitem(actor,a) jhxbbgame.log(actor,"bfdropbodyitem.",tbl2json(a)) if a and a.i then takew(actor,a.i,1,"跨服掉落") end end function kuafusys.drop(actor, dropItem,itemName,m) if itemName == "传奇宝箱" and kuafusys.act2playupid == getbaseinfo(actor, 2) then jhxbbgame.log(actor, "*kuafusys.drop1.= ",itemName,m) kuafusys.changeitemplay(nil) end if (checkkuafuserver() and m == 1) then if (checkitemstate(dropItem,1) or checkitemstate(dropItem,5)) then jhxbbgame.log(actor, "*kuafusys.drop1.禁止= ",itemName,m) return false end if dieflag == dieflag2 then jhxbbgame.bfcall(actor,"bfdropbodyitem",{i=itemName}) end end end function kuafusys.killmon(actor, mon,monName) if checkkuafu(actor) and checkkuafuserver() then jhxbbgame.log(actor,"*kfkillmon",monName) local ca = kuafusys.curact if ca and ca.runing then if ca.actname == "夺宝战场" then if "宝藏巨蟹" == monName then--一大陆-骷髅洞 kuafusys.act2monkillplayid = getbaseinfo(actor, 2) end end end end end function kuafusys.RecRank(actor, ca) local ret = -1 if ca.actname == "群骑竞赛" then local mapid = getbaseinfo(actor, 3) --jhxbbgame.log(actor, "*RecRank，mapid",mapid,tbl2json(ca)) if mapid == maps[1][1] and ca and ca.runing == 1 then local x = getbaseinfo(actor, 4) local y = getbaseinfo(actor, 5) local absx = math.abs(x - 128) local absy = math.abs(y - 213) if (absx <= 10) and (absy <= 10) then local info = { getbaseinfo(actor, 2), getbaseinfo(actor, 1) } local spd = kuafusys.getdataEx(actor, ca.i) if spd.pd.join ~= 1 then jhxbbgame.sendmsg(actor, "未参加活动!"..tostring(spd.pd)) return ret end for key, value in pairs(ca.ranks) do if info[1] == value[1] then jhxbbgame.sendmsg(actor, "您已经获得了第["..key.."]名!") jhxbbgame.sendmsg(actor, "您已经获得了第["..key.."]名!") jhxbbgame.sendmsg(actor, "您已经获得了第["..key.."]名!") kuafusys.gohome(actor) return key end end local i = #ca.ranks + 1 ret = i ca.ranks[i] = info jhxbbgame.log(actor, "*跑酷名次" .. i) if i <= 3 then kuafusys.pubmsg(ca,"恭喜["..info[2].."]获得第"..i.."名。稍后获得丰厚奖励！！！") jhxbbgame.sendmsg(actor, "您已经获得了第["..i.."]名!") jhxbbgame.sendmsg(actor, "您已经获得了第["..i.."]名!") jhxbbgame.sendmsg(actor, "您已经获得了第["..i.."]名!") end else jhxbbgame.sendmsg(actor, "距离终点太远了!") end else jhxbbgame.sendmsg(actor, "活动结束!") end end return ret end local cd = os.time() function kuafusys._run(actor) local mapid = getbaseinfo(actor, 3) local ca = kuafusys.curact if mapid == maps[1][1] and ca and ca.runing == 1 then --128 213 --jhxbbgame.log(actor,"*跑酷1111名次"..mapid) local x = getbaseinfo(actor, 4) local y = getbaseinfo(actor, 5) if jhxbbgame.GetRate(5000) then local curtime = os.time() if curtime > cd then cd = curtime + 3 --local eff = {{1,470},{7,527,5000},{10,511},{5,458}} local eff = { { 12, 470 }, { 13, 527 } } local e = eff[math.random(#eff)] local plays = {actor}--getobjectinmap(mapid, x, y, 8, 1) for key, value in pairs(plays) do --if jhxbbgame.GetRate(6500) then --jhxbbgame.mapSelfeff(value, e[2]) makeposion(value, e[1], 3) --end end end end end end local optmode = -1 function kuafusys_opact(actor,op) local ca = kuafusys.curact local cab = kuafusys.actstate[op[1]] local opmode = op[2] jhxbbgame.log(actor, "kuafusys_opact:", op[1],op[2]) if ca and opmode < 10 then if ca.runing == 1 and ca.i ~= 0 then jhxbbgame.log(actor, "-------kuafusys_opact:Close.", ca.actname) ca.edtime = jhxbbgame.nowsec()-1 kuafusys.doClose(actor,ca) end end optmode = op[1] if cab and opmode < 10 then if cab.runing == 1 and cab.i ~= 0 and ca ~= cab then cab.edtime = jhxbbgame.nowsec()-1 kuafusys.doClose(actor,cab) end if opmode >= 1 then cab.bgtime = jhxbbgame.nowsec()-1 if opmode == 1 then cab.edtime = cab.bgtime + 50 * 60 else cab.edtime = cab.bgtime + 3 * 60 end kuafusys.doOpen(actor,cab) kuafusys.pubmsg(cab,"已经开始!") end return end if opmode == 11 then optmode = -1 elseif opmode == 12 then kuafusys.diedrop =false elseif opmode == 13 then kuafusys.diedrop =true elseif opmode == 15 then kuafusys.sun = false elseif opmode == 16 then kuafusys.sun = true elseif opmode == 20 then kuafusys.roomopen = 0 elseif opmode == 21 then kuafusys.roomopen = 1 elseif opmode == 17 then savekfdata("{}") readkfdata() end jhxbbgame.log(actor, "kuafusys.opact:17 ", opmode,kuafusys.roomopen,kuafusys.sun,kuafusys.diedrop) jhxbbgame.sendmsg(actor, "跨服开关: "..opmode.." ok "..kuafusys.roomopen) end function kuafusys.opact(actor,id, p2) jhxbbgame.log(actor, "kuafusys.opact:", id,p2) jhxbbgame.kfcall(actor, "kuafusys_opact", tbl2json({id, p2})) end function kuafusys.doOpen(sysact,ca) ca.runing = 1 ca.ranks={} jhxbbgame.log(sysact, ca.actname, ".开始") kuafusys.pubmsg(ca,"已经开启请去跨服参加活动！") if kuafusys.curact then end kuafusys.curact = ca kuafusys.begact(sysact,ca) end function kuafusys.doClose(sysact,ca) ca.runing = 0 jhxbbgame.log(sysact, ca.actname, ".结束") kuafusys.pubmsg(ca,"已经结束！") kuafusys.endact(sysact,ca) if kuafusys.curact and kuafusys.curact.actname == ca.actname then kuafusys.curact = nil end end local sed = "" local runtime = 5*1000 local runtimey = 0 local runed = false local readday = 0 local tt = 0 function jhxbbgame_kfact(sysact) local curtime = jhxbbgame.nowsec() or 0 --delmapgate("G1","xdt306") grobaldelaygoto(runtime, "jhxbbgame_kfact") if checkkuafuserver() then local d = math.floor(os.time()/86400) if readday ~= d then readday = d jhxbbgame.log("跨服活动---跨天初始化！！！！！11！！！！！！！！！") savekfdata("{}") readkfdata() end if not runed then readkfdata() jhxbbgame.log("跨服活动定时器开启！！！！！11！！！！！！！！！") end runed = true if curtime > runtimey then jhxbbgame.MapPlayRun(nil, function (actor, m) if jhxbbgame.CInt(actor,"<$PKPOINT>") >= 300 then mapmove(actor, "0", "131", "137", 3) kuafusys.primsg(actor,kuafusys.actstate[0], "红名禁止进入!") return end if kuafusys.actstate[0] and (kuafusys.actstate[0].runing ~= 1) and (getgmlevel(actor)<=0) then kuafusys.primsg(actor,kuafusys.actstate[0],"活动结束安全回城!") mapmove(actor, "0", "131", "137", 3) end end) runtimey = runtimey + 60 end else tims = { [0] = tims[0]} runtime = 10*1000 if checkkuafuconnect() then if not runed then jhxbbgame.log("跨服活动定时器=>本服开启！！！！！！！！！！！！！！") end runed = true runtime = 5*1000 elseif runed then jhxbbgame.log("跨服断开！！！！！！！！！！！！！！") if kuafusys.curact and kuafusys.curact.runing == 1 then kuafusys.endact(sysact, kuafusys.curact) kuafusys.curact = nil end runed = false end end --jhxbbgame.log("跨服活动定时器+++++++++++++++++",kuafusys.cont) --release_print("jhxbbgame_kfact..",curtime) kuafusys.cont = kuafusys.connected() runtime = 0 if kuafusys.cont then for key, value in pairs(tims) do key = tonumber(key) local ca = kuafusys.actstate[key] or kuafusys.init(key) if ca then local timein = (curtime > ca.bgtime) and (curtime < ca.edtime) ca.i = key if ca.i == 11111 then release_print("jhxbbgame_kfact..",curtime,timein,ca.runing,tbl2json(ca)) end if optmode < 0 or optmode == key then if timein and ca.runing ~= 1 then local sun = jhxbbgame.daysun() while true do if kuafusys.sun then if ca.actname == "据点争夺" then if ((sun ==1) or (sun ==3) or (sun ==5)) then else break end elseif ca.actname == "跨服沙巴克" then if ((sun ==2) or (sun ==4) or (sun ==6)) then else break end elseif ca.actname == "泽坤的恩赐" then if ((sun ==7)) then else break end end end kuafusys.doOpen(sysact,ca) break end end if not timein and ca.runing == 1 then kuafusys.doClose(sysact,ca) end end if ca.runing == 1 then local actmap = jfmaps[ca.i] --release_print(ca.i.."jhxbbgame_kfact..",tbl2json(mm or {})) local zyaddok = {{0,0,0,0,0},{0,0,0,0,0}} if (kuafusys.kaimentime > 0) and ca.actname == "据点争夺" then runtime = 1*1000 if kuafusys.kaimen(nil) <= 0 then kuafusys.pubmsg(ca,"比赛开始！！！") jhxbbgame.MapPlayRun({"jddd"}, function (actor, m) local spd = kuafusys.getdataEx(actor, ca.i) if spd.pd.zy > 0 then kuafusys.primsg(actor, ca,"活动已经开始!") kuafusys.JoinMap(actor,maps[ca.i],spd,spd.pd.zy) else jhxbbgame.log(actor,"据点争夺=>异常！！！！！！！！！！！！！！",spd.pd.zy,spd.pd.name,spd.pd.join, spd.pd.mapjoin) kuafusys.primsg(actor, ca,"您已经安回城!") kuafusys.gohome(actor) end end) end else runtime = 5*1000 end if true then local guilds={} local guildnoe = "" jhxbbgame.MapPlayRun(actmap, function (actor, m) local spd = kuafusys.getdataEx(actor, ca.i) --callscriptex(actor, "CHANGEPKPOINT", "=", "0") if ca.actname == "据点争夺" then runtime = 5*1000 if spd.pd.zy > 0 then local x,y=getbaseinfo(actor,4),getbaseinfo(actor,5) local id = kuafusys.getjd(x,y) if id >= 0 then spd.pd.jfkill = (spd.pd.jfkill or 0)+1 ca.zydata[spd.pd.zy].jf = ca.zydata[spd.pd.zy].jf + 1 kuafusys.primsg(actor, ca,"当前积分:"..spd.pd.jfkill..",本方总积分:"..ca.zydata[spd.pd.zy].jf) end -- if id > 0 and zyaddok[spd.pd.zy][id] == 0 then -- zyaddok[spd.pd.zy][id] = 1 -- kuafusys.jdjfAdd(ca,spd.pd.zy,x,y,0.416) -- end end elseif ca.actname == "跨服沙巴克" then if not getbaseinfo(actor, 0) and (m == "kf0150") then guildnoe = getbaseinfo(actor, 36) guilds[guildnoe] = 1 end runtime = 1*1000 elseif ca.i == 6 then runtime = 1*1000 elseif ca.i == 7 then runtime = 1*1000 end if (spd.pd.join == 1) then if (ca.i ~= 3) and kuafusys.kaimentime <= 0 then spd.pd.jf = spd.pd.jf + math.floor(runtime/1000) if (avtime[ca.i] > 0) and (spd.pd.mapjoin == 0) and (ca.i ~= 3) then if spd.pd.jf >= avtime[ca.i] then kuafusys.dcjoin(actor,ca,spd,"达成活跃!") end end end else kuafusys.primsg(actor, ca,"未报名本次活动,已经安回城!") kuafusys.gohome(actor) end end) --地图上个玩家处理结束 if ca.actname == "跨服沙巴克" then if jhxbbgame.len(guilds) == 1 and guildnoe ~= "" and guildnoe ~= castleguid then castleguid = guildnoe kuafusys.pubmsg(ca,castleguid.."成功占领了皇宫!") end elseif ca.actname == "夺宝战场" then local actor = getplayerbyid(kuafusys.act2playupid) if kuafusys.act2playupid ~="" and actor and getbaseinfo(actor,3) == maps[2][1] then jhxbbgame.showeff(actor, boxeffid , 999999, 20,80) kuafusys.bxx,kuafusys.bxy=getbaseinfo(actor, 4),getbaseinfo(actor, 5) else kuafusys.dropbx(17,56,3,111) end end end end end kuafusys.actstate[key] = ca end end if runtime < 1000 then if (kuafusys.curact == nil) or (kuafusys.curact.runing ~= 1) then runtime = 1*1000 else runtime = 5*1000 end end local vv = tbl2json(kuafusys.actstate) if checkkuafuserver() and sed ~= vv then sed = vv savekfdata(vv) end end function savekfdata(d) local jo = {acts=json2tbl(d)} local w = io.open("/wlua/kfdata25.txt", "w+") if w then local tx = "" pcall(function (...) jo.readday = readday jo.oneguild = oneguild jo.AllGuilds = AllGuilds jo.castleguid = castleguid jo.castleoldguid = castleoldguid jo.act2playupid = kuafusys.act2playupid jo.act2monkillplayid = kuafusys.act2monkillplayid jo.bxx = kuafusys.bxx jo.bxy = kuafusys.bxy tx = tbl2json(jo) end) --release_print("/wlua/kfdata.txt write -----------",tx) w:write(tx) w:close() end end function readkfdata() local r = io.open("/wlua/kfdata25.txt", "r") kuafusys.actstate = {} if not r then release_print("/wlua/kfdata.txt read fail-----------") savekfdata("{}") else local ret = r:read("*all") r:close() release_print("/wlua/kfdata.txt read -----------",md5str(ret),ret) if (ret) and (ret ~= "") then jhxbbgame.s2f("/wlua/kfdatar.txt", ret) local read = json2tbl(ret) or {} for key, value in pairs(read.acts or {}) do kuafusys.actstate[tonumber(key)] = value value.runing = 0 end readday = read.readday oneguild = read.oneguild AllGuilds = read.AllGuilds castleguid = read.castleguid castleoldguid = read.castleoldguid kuafusys.act2playupid = read.act2playupid kuafusys.act2monkillplayid = read.act2monkillplayid kuafusys.act2playupidold = read.act2playupidold kuafusys.act2monkillplayidold = read.act2monkillplayidold kuafusys.bxx = read.bxx kuafusys.bxy = read.bxy end end end local dd = "" function kuafusys_login(actor, cfg) if cfg.i == 0 then dd = "" elseif cfg.i == 1 then dd = dd .. cfg.d elseif cfg.i == 2 then dd = dd .. cfg.d local lcfg = json2tbl(dd) jhxbbgame.log(actor, "-----222-kuafusys_login====>", #dd) setvarval(actor, lcfg) --confertitle(actor, jhxbbgame.titleName.kbzl,1) login(actor) end end function kflogined(actor) local cfg = getvarval(actor) local scfg = tbl2json(cfg) jhxbbgame.log(actor, "-----222-sent.kflogined",#scfg) local a = #scfg jhxbbgame.kfcall(actor, "kuafusys_login",tbl2json({i=0})) local ii = 1 for i = 1, math.floor(a/118), 1 do local cc = scfg:sub(ii,ii+118-1) ii = ii+118 jhxbbgame.kfcall(actor, "kuafusys_login",tbl2json({i=1,d=cc})) end local cc = scfg:sub(ii,math.min(ii+118,a)) jhxbbgame.kfcall(actor, "kuafusys_login",tbl2json({i=2,d=cc})) zbcfg.reload(actor,0xff,-1) end function kuafusys.click(actor, ui, btn,bt2) jhxbbgame.log(actor, "kuafusys.click()"..kuafusys.roomopen, ui, btn, bt2) local spd = kuafusys.getdataEx(actor, ui) local curtime = jhxbbgame.nowsec() if ui == 0 then if not checkkuafuconnect() then jhxbbgame.sendmsg(actor, "跨服未开启!") return end if jhxbbgame.CInt(actor,"<$PKPOINT>") >= 300 then jhxbbgame.sendmsg(actor, "红名禁止进入!") return end if kuafusys.roomopen ~= 1 then if ((not checktitle(actor, jhxbbgame.titleName.kbzl)) or (getbaseinfo(actor, 39) < 5)) and (not jhxbbgame.IsWQ(actor)) then jhxbbgame.sendmsg(actor, "条件不足,无法进入跨服!") return end local c1,c2,c3 = (curtime >= spd.s.edtime) , (curtime <= spd.s.bgtime), (spd.s.runing ~= 1) if c1 or c2 or c3 then jhxbbgame.sendmsg(actor, "活动还未开始!") jhxbbgame.log(actor, "*活动还未开始!",c1,c2,c3) return end end SetVarInt(actor,"U024",getattackmode(actor)) kuafusys.gohome(actor) --jhxbbgame.topui.hide(actor) --mapmove(actor, "xdt246", 192,179,3) elseif ui >= 1 and ui <= 8 then if getgmlevel(actor)> 5 then -- kuafusys.endguildWar(actor) -- setcamp(actor, 1) --kuafusys.endguildWar(actor) --kuafusys.NColor(actor, 47) aaa = aaa or 12366666 aaa = aaa + 1 --setcamp(actor, aaa) jhxbbgame.log(actor, "*狂暴:",checktitle(actor, jhxbbgame.titleName.kbzl) ) end --报名 if (btn == 1) then if (spd.pd.join == 1) then jhxbbgame.sendmsg(actor, "已经报名!"..tostring(spd.pd)) return end if ((tonumber(getconst(actor, "<$HOUR>")) >= kuafusys.bmHour)) then jhxbbgame.sendmsg(actor, "已过报名截止时间!") return end if not takes(actor, "金币#1000000",0) then jhxbbgame.sendmsg(actor, "没有足够的金币!") return end if (curtime >= spd.s.edtime) then jhxbbgame.sendmsg(actor, "活动已经结束!") return end spd.pd.join = 1 local lcfg = kuafusys.getdata(actor, ui) jhxbbgame.hfsv.Incjd(actor, 6, 1) kuafusys.primsg(actor,spd.s,"报名成功!") jhxbbgame.refUI(actor, namesact[ui], lcfg) kuafusys.write(actor,ui,1) elseif (btn == 2) then --入场 if (spd.pd.join ~= 1) then jhxbbgame.sendmsg(actor, "失败!未报名无法参加!!") return end if (curtime <= spd.s.bgtime) or spd.s.runing ~= 1 then jhxbbgame.sendmsg(actor, "活动还未开始!") return end if (curtime >= spd.s.edtime) then jhxbbgame.sendmsg(actor, "活动已经结束!") return end -- if jhxbbgame.CInt(actor, "<$HUMAN(坐骑穿戴)>") <= 0 then -- jhxbbgame.sendmsg(actor, "你没有坐骑!") -- return -- end local m = maps[ui] --jhxbbgame.log(actor,"*mapmove",tbl2json(m)) if getconst(actor, "<$MAP>") == m[1] then return end IncVar(actor, "u32", 1 * (2 ^ ui)) kuafusys.JoinMap(actor, m, spd,bt2) end end end function kuafusys.nextcen(actor, c,pass) local ca = kuafusys.curact if checkkuafuserver() then if ca and ca.runing and ca.actname == "辉煌的凤栖寺院" then local mc = getmoncount("xdt"..(296+ca.mon),-1,true) jhxbbgame.log(actor, "*"..(296+ca.mon)..".info!"..mc) if (not pass) and c >= ca.mon and mc > 0 then jhxbbgame.sendmsg(actor, "怪物击杀后才可以进入下层!") return end if ca.mon <= c and mc == 0 then jhxbbgame.log(actor,ca.mon..".辉煌的凤栖寺院.地图无怪未触发!") ca.mon= ca.mon + 1 end if 296+ca.mon == 304 then local spd = kuafusys.getdataEx(actor, ca.i) if spd.pd.mapjoin == 0 then jhxbbgame.sendmsg(actor, "您的还未达成活跃,回城后无法再进入活动地图!") else kuafusys.gohome(actor) end else map(actor, "xdt"..(296+ca.mon)) end end end end function kuafusys.NColor(actor, acl) --jhxbbgame.bfcall(actor,"kuafusys_ncmod",{cl=acl}) kuafusys_ncmod(actor, {cl=acl}) end function kuafusys_ncmod(actor, pd) jhxbbgame.log(actor, "ncmod:",pd.cl) if pd.cl then callscriptex(actor, "changenamecolor", tostring(pd.cl)) elseif (pd.zy == 0) then jhxbbgame.SetDefColor(actor) elseif (pd.zy == 1) then callscriptex(actor, "changenamecolor", tostring(249)) else callscriptex(actor, "changenamecolor", tostring(252)) end end function kuafusys.JoinMap(actor, m, spd,bt2) local ca = spd.s local name = getbaseinfo(actor, 1) --jhxbbgame.log(actor, "JoinMap:",ca.actname) local mid,x,y = m[1], m[2], m[3] if ca.actname == "据点争夺" then local pwall = ca.zydata[1].pw+ca.zydata[2].pw+1 local apw = getbaseinfo(actor, 20) if spd.pd.zy == 0 then if ca.zydata[1].pw/pwall > 0.5 then spd.pd.zy = 2 else spd.pd.zy = 1 end ca.zydata[spd.pd.zy].pw = ca.zydata[spd.pd.zy].pw + apw end ca.zydata[spd.pd.zy].plays[getbaseinfo(actor, 2)] = actor mid = jfmaps[4][1] if kuafusys.kaimentime > 0 then mid = jfmaps[4][2] end x,y = stpos[spd.pd.zy][1], stpos[spd.pd.zy][2] kuafusys.setzy(actor, spd.pd.zy) jhxbbgame.bfcall(actor,"kuafusys_ncmod",{zy=spd.pd.zy}) kuafusys_ncmod(actor, {zy=spd.pd.zy}) kuafusys.LockAttackMode(actor,8) if tonumber(bt2) ~= 1 then --kuafusys.primsg(actor,ca,name.."进入活动地图,当前阵营"..zyname[spd.pd.zy]) jhxbbgame.log(actor, "*JoinMap:",spd.pd.zy, apw,pwall,getcamp(actor)) end kuafusys.primsg(actor,ca,name.."进入活动地图,当前阵营"..zyname[spd.pd.zy]) local a = kuafusys.kaimentime - os.time() if a > 0 then jhxbbgame.TimeMsg(actor,"还剩余%d后活动开始.",a) end elseif ca.actname == "跨服沙巴克" then if bt2 == "沙仓库" then x,y = 641, 247 elseif bt2 == "衣服店" then x,y = 671, 281 elseif bt2 == "沙大门" then x,y = 678, 336 elseif bt2 == "首饰店" then x,y = 684, 292 elseif bt2 == "武器店" then x,y = 632, 320 end if not kuafusys.addg(actor) then jhxbbgame.sendmsg(actor, "无行会!") return end kuafusys.LockAttackMode(actor,5) kuafusys.guildWar(actor,1) elseif ca.actname == "辉煌的凤栖寺院" then kuafusys.nextcen(actor, 0, true) return elseif ca.actname == "杀戮证道" then kuafusys.LockAttackMode(actor,0) elseif ca.actname == "夺宝战场" then kuafusys.LockAttackMode(actor,5) elseif ca.actname == "泽坤的恩赐" then local a = ca.edtime - jhxbbgame.nowsec() if a < 60*5 then jhxbbgame.sendmsg(actor, "活动最后5分钟无法再进入!") return end elseif ca.actname == "群骑竞赛" then local a = kuafusys.kaimentime - os.time() if a > 0 then jhxbbgame.TimeMsg(actor,"还剩余%d后活动开始.",a) end jhxbbgame.bfcall(actor,"___shangmaauto",{u=1,i=1,t=1}) --delskill(actor, 27) end if m[2] then mapmove(actor, mid, x,y, 3) else map(actor, mid) end if ca.actname == "杀戮证道" then kuafusys.NColor(actor, 251) end -- local endt = ca.edtime-jhxbbgame.nowsec() -- if ca.i == 1 and VarInt(actor,"J10"..ca.i) == 0 then -- sendcentermsg(actor,180,251,"等待%d秒后活动开始.",0,endt) -- SetVarInt(actor,"J10"..ca.i,1) -- end --sendcentermsg(actor,180,251,ca.actname.."还剩余%d秒后活动结束.",0,endt) end function kuafusys.addg(actor) local g = getbaseinfo(actor, 36) if (not g) or (g == "") then return false end if oneguild == "" then oneguild = g end AllGuilds[g] = 1 return true end function kuafusys.endguildWar(actor) AllGuilds = {} kuafusys.guildWar(actor,0) end function kuafusys.guildWar(actor,t) if AllGuilds == nil or #AllGuilds == 0 then AllGuilds = {} oneguild = "" jhxbbgame.MapPlayRun(nil, function (a) kuafusys.addg(a) end) end end function kuafusys.getdata(actor, ui) ui = ui or 0 if ui < 0 then local lcfg = {} if ui == -1 then lcfg.cnts = {VarInt(actor,"U021")} for i = 2, 8, 1 do lcfg.cnts[i] = VarInt(actor,"J0"..(20+i)) end elseif ui == -2 then lcfg.lv = VarInt(actor,"U022") end return lcfg end local cur = jhxbbgame.nowsec() local spd = kuafusys.getdataEx(actor, ui) local lcfg = {jf=0} if spd then if cur >= spd.s.edtime then lcfg.bgtime = (86400 - cur) + spd.s.bgtime else if cur >= spd.s.bgtime then lcfg.bgtime = 0 else lcfg.bgtime = spd.s.bgtime-cur end end lcfg.join = spd.pd.join lcfg.jf = spd.pd.jf lcfg.zy = spd.pd.zy lcfg.mon = spd.s.mon lcfg.tx = txcl[spd.s.i] if ui == 0 then lcfg.cont = kuafusys.cont end if spd.pd.zy > 0 and spd.s.zydata then lcfg.jf = math.floor(spd.s.zydata[spd.pd.zy].jf) end end --jhxbbgame.log(actor, ui .. ".kuafusys.getdata::", tbl2json(lcfg)) return lcfg end function kuafusys.getdataEx(actor, ui) local ret = kuafusys.getUiddataEx(getbaseinfo(actor, 2), ui) if ret then ret.pd.name = getbaseinfo(actor, 1) return ret end end function kuafusys.getUiddataEx(uid, ui) ui = ui or 0 local ls = kuafusys.actstate[ui] if ls then local lpd = ls.playdatas[uid] if lpd == nil then local aname= "" local actor = getplayerbyid(uid) if actor then aname=getbaseinfo(actor, 1) end lpd = {name = aname,join = kuafusys.read(actor,ui), jf = 0,mapjoin=0,zy=0 } ls.playdatas[uid] = lpd end kuafusys.actstate[ui] = ls return { s = ls, pd = lpd } end end function kuafusys_openui(actor, ui) local cj = ui[2] or 0 ui = ui[1] release_print("-----kuafusys_openui=>",ui) if cj == 1 then kuafusys.clickcaiji(actor, ui) return end if ui >100000 then kuafusys.jdclick(actor, ui - 100000) return end local npcid = 691+ui --706-712 local snpcid = tonumber(npcid) if ui >= 15 then ui = ui -14 kuafusys.nextcen(actor, ui) else sendluamsg(actor, 31118, npcid, 0, 0, tbl2json({ fn = namesact[ui], cfg = kuafusys.getdata(actor,ui), code = jhxbbgame.ui[namesact[ui]], npcid = npcid })) end end function kuafusys.openui(actor, ui,cj) cj = cj or 0 jhxbbgame.kfcall(actor, "kuafusys_openui", tbl2json({ui,cj})) end function kuafusys_click(actor,a) kuafusys.click(actor, a[1], a[2], a[3]) end kuafusys.msgproc[1381] = function(actor, msgid, n1, n2, n3, sMsg) if n1 == 0 then kuafusys.click(actor, n1, n2) elseif n1 == 1118 then if n2 >= 1 and n2 <= 8 then local cntsmax ={1,1,5,10,10,10,10,10} local cfg = kuafusys.getdata(actor, -1) if cfg.cnts[n2] >= cntsmax[n2] then jhxbbgame.sendmsg(actor, "限购次数用尽!") return end local need= { "龙玉勋章#20", "龙玉勋章#5", "龙玉勋章#2", "龙玉勋章#1", "龙玉勋章#1", "龙玉勋章#1", "龙玉勋章#1", "龙玉勋章#1", } local giv={ "封印符咒#1#339", "滚烫的龙族心脏#1#339", "起源之火#1#339", "寒冰精魄#1#339", "沉默本源#1#339", "远古记忆#1#339", "上古遗石#1#339", "太古神石#1#339", } if not takes(actor,need[n2],"军需兑换") then jhxbbgame.sendmsg(actor, "材料不够!") else gives(actor,giv[n2],"军需兑换") if n2 == 1 then IncVar(actor,"U021") else IncVar(actor,"J0"..(20+n2)) end cfg = kuafusys.getdata(actor, -1) jhxbbgame.refUI(actor, "npc704", cfg) end elseif n2 == 1118 then local curlv = VarInt(actor,"U022") if curlv >= 10 then jhxbbgame.sendmsg(actor, "已经满级!") --SetVarInt(actor,"U022",0) return end local need= { 10, 1000, 1000, 30 ,2000,2000, 60 ,3000,3000, 100 ,4000,4000, 200 ,5000,5000, 300 ,6000,6000, 350 ,7000,7000, 400 ,8000,8000, 450 ,9000,9000, 500 ,10000,10000, } local sneed = "龙玉勋章#"..need[curlv*3+1] sneed = sneed.."&万物之灵#"..need[curlv*3+2] sneed = sneed.."&金刚石#"..need[curlv*3+3] if not takes(actor,sneed,"游林升级") then jhxbbgame.sendmsg(actor, "材料不够!") else IncVar(actor,"U022") local til = { "战争荣耀LV.1", "战争荣耀LV.2", "战争荣耀LV.3", "战争荣耀LV.4", "战争荣耀LV.5", "战争荣耀LV.6", "战争荣耀LV.7", "战争荣耀LV.8", "战争荣耀LV.9", "战争荣耀LV.MAX", } curlv= curlv+1 --低级 for k,v in pairs(til) do deprivetitle(actor, v) end confertitle(actor, til[curlv]) jhxbbgame.refUI(actor, "npc705", kuafusys.getdata(actor, -2)) end end else jhxbbgame.kfcall(actor, "kuafusys_click", tbl2json({n1, n2, sMsg})) end --jhxbbgame.openUI(actor, "进入跨服", lcfg,"kf00") end --genmon("kf3", 672, 278, "MainDoor",0,1,255) for key, value in pairs(zypos) do delmapeffect(1118+key) mapeffect(1118+key, "xdt294", value[1], value[2], 70250, -1, 0) end -- killmapmon("xdt293",0,0,99999,"*",0,1) -- killmapmon("xdt246",0,0,99999,"*",0,1) -- genmon("xdt293", 26, 52, "一大陆-骷髅洞",5,1,255) -- genmon("xdt246", 185, 169, "一大陆-骷髅洞",5,1,255) -- --genmon("xdt246", 185, 169, "石墓猪王6",1,1,255) -- throwitem("0",maps[2][1],26, 52,2,"传奇宝箱",1,0,1,true,false,false,1,false) clearkfgate() grobalcleardelaygoto("jhxbbgame_kfact") grobaldelaygoto(100, "jhxbbgame_kfact") return kuafusys