1505 lines
35 KiB
Lua
1505 lines
35 KiB
Lua
-- require("Envir/QuestDiary/config/VarCfg.lua")
|
||
-- require("Envir/Market_Def/denglujiemian.lua")
|
||
|
||
--获取玩家自定义数值变量
|
||
function getint(player,bianlian)
|
||
return GetInt(0,player,bianlian)
|
||
end
|
||
|
||
--获取玩家自定义字符变量
|
||
function getstr(player,bianlian)
|
||
return GetStr(0,player,bianlian)
|
||
end
|
||
|
||
--设置玩家自定义数值变量
|
||
function setint(player,bianlian,zhi)
|
||
SetInt(0,player,bianlian,zhi)
|
||
end
|
||
|
||
--设置玩家自定义字符变量
|
||
function setstr(player,bianlian,zhi)
|
||
SetStr(0,player,bianlian,zhi)
|
||
end
|
||
|
||
--获取自定义数值系统变量
|
||
function getsysint(bianlian)
|
||
return GetSysInt(bianlian)
|
||
end
|
||
|
||
--获取自定义字符系统变量
|
||
function getsysstr(bianlian)
|
||
return GetSysStr(bianlian)
|
||
end
|
||
|
||
--设置自定义数值系统变量
|
||
function setsysint(bianlian,value,itype)
|
||
if not itype then
|
||
itype = 0
|
||
end
|
||
|
||
if type(value) ~= "number" then
|
||
release_print("SetTempDBInt类型错误:" .. type(value))
|
||
return
|
||
end
|
||
|
||
SetSysInt(bianlian,value,itype)
|
||
end
|
||
|
||
--设置自定义字符系统变量
|
||
function setsysstr(bianlian,value,itype)
|
||
if not itype then
|
||
itype = 0
|
||
end
|
||
|
||
if type(value) ~= "string" then
|
||
release_print("SetDBStr类型错误:" .. type(value))
|
||
return
|
||
end
|
||
SetSysStr(bianlian,value,itype)
|
||
end
|
||
|
||
--设置全局临时I变量
|
||
function SetIVar(index, value, itype)
|
||
if not itype then
|
||
itype = 0
|
||
end
|
||
|
||
if index > 99 then
|
||
release_print("SetTempDBInt超出范围:" .. index)
|
||
return
|
||
end
|
||
|
||
if type(value) ~= "number" then
|
||
release_print("SetTempDBInt类型错误:" .. type(value))
|
||
return
|
||
end
|
||
|
||
SetSysInt("I" .. index, value, itype)
|
||
end
|
||
|
||
--获取全局临时I变量
|
||
function GetIVar(index)
|
||
if index > 99 then
|
||
release_print("GetTempDBInt超出范围:" .. index)
|
||
return
|
||
end
|
||
|
||
return GetSysStr("I" .. index)
|
||
end
|
||
|
||
--设置全局A变量
|
||
function SetAVar(index, value, itype)
|
||
if not itype then
|
||
itype = 0
|
||
end
|
||
|
||
if index > 499 then
|
||
release_print("SetDBStr超出范围:" .. index)
|
||
return
|
||
end
|
||
|
||
if type(value) ~= "string" then
|
||
release_print("SetDBStr类型错误:" .. type(value))
|
||
return
|
||
end
|
||
|
||
SetSysStr("A" .. index, value, itype)
|
||
end
|
||
|
||
--获取全局A变量
|
||
function GetAVar(index)
|
||
if index > 499 then
|
||
release_print("GetDBStr超出范围:" .. index)
|
||
return
|
||
end
|
||
return GetSysStr("A" .. index)
|
||
end
|
||
|
||
--设置全局G变量
|
||
function SetGVar(index, value, itype)
|
||
if not itype then
|
||
itype = 0
|
||
end
|
||
|
||
if index > 499 then
|
||
release_print("SetDBInt超出范围:" .. index)
|
||
return
|
||
end
|
||
|
||
if type(value) ~= "number" then
|
||
release_print("SetDBInt类型错误:" .. type(value))
|
||
return
|
||
end
|
||
SetSysStr("G" .. index, value, itype)
|
||
end
|
||
|
||
--获取全局G变量
|
||
function GetGVar(index)
|
||
if index > 499 then
|
||
release_print("GetDBInt超出范围:" .. index)
|
||
return
|
||
end
|
||
return GetSysStr("G" .. index)
|
||
end
|
||
|
||
--获取玩家数值型天变量
|
||
function getdayint(actor,bianliang)
|
||
local biao = {}
|
||
local s = GetStr(0,actor,"Z0")
|
||
local n = 0
|
||
if s ~= "" then
|
||
local z = json2tbl(s)
|
||
if not z then
|
||
SetStr(0,actor,"Z0","")
|
||
end
|
||
for k,v in pairs(z) do
|
||
if k == bianliang then
|
||
n = v
|
||
break
|
||
end
|
||
end
|
||
end
|
||
return n
|
||
end
|
||
--设置玩家数值型天变量
|
||
function setdayint(actor,bianliang,num)
|
||
if type(num) ~= "number" then
|
||
return
|
||
end
|
||
local biao = {}
|
||
local s = GetStr(0,actor,"Z0")
|
||
if s ~= "" then
|
||
biao = json2tbl(s)
|
||
end
|
||
biao[bianliang] = num
|
||
SetStr(0,actor,"Z0",tbl2json(biao))
|
||
end
|
||
|
||
--获取玩家字符型天变量
|
||
function getdaystr(actor,bianliang)
|
||
local biao = {}
|
||
local s = GetStr(0,actor,"Z1")
|
||
local n = ""
|
||
if s ~= "" then
|
||
local z = json2tbl(s)
|
||
if not z then
|
||
SetStr(0,actor,"Z1","")
|
||
end
|
||
for k,v in pairs(z) do
|
||
if k == bianliang then
|
||
n = v
|
||
break
|
||
end
|
||
end
|
||
end
|
||
return n
|
||
end
|
||
--设置玩家字符型天变量
|
||
function setdaystr(actor,bianliang,str)
|
||
if type(str) ~= "string" then
|
||
return
|
||
end
|
||
local biao = {}
|
||
local s = GetStr(0,actor,"Z1")
|
||
if s ~= "" then
|
||
biao = json2tbl(s)
|
||
end
|
||
biao[bianliang] = str
|
||
SetStr(0,actor,"Z1",tbl2json(biao))
|
||
end
|
||
|
||
--检查一个对象的范围
|
||
function FCheckRange(obj, x, y, range)
|
||
local cur_x, cur_y = getbaseinfo(obj, 4), getbaseinfo(obj, 5)
|
||
local min_x, max_x = x-range, x+range
|
||
local min_y, max_y = y-range, y+range
|
||
|
||
if (cur_x >= min_x) and (cur_x <= max_x) and (cur_y >= min_y) and (cur_y <= max_y) then
|
||
return true
|
||
end
|
||
return false
|
||
end
|
||
--带颜色的字符串
|
||
function sencolormsg(actor,idx,msg,co1,co2)
|
||
local x = getconst(actor,'$SCREENWIDTH') * 0.5
|
||
local y = getconst(actor,'$SCREENHEIGHT') * 0.65
|
||
sendcustommsg(actor,idx,msg,co1,co2,x,y)
|
||
end
|
||
--获取宠物宝宝列表
|
||
function getbaobaolist(actor)
|
||
local t = {}
|
||
local ncount=getbaseinfo(actor,38)
|
||
for i = 0 ,ncount-1 do
|
||
mon = getslavebyindex(actor, i)
|
||
table.insert(t,mon)
|
||
end
|
||
return t
|
||
end
|
||
--发送消息类型9
|
||
function sendmsg9(actor,msg,yanse,miaobian)
|
||
if yanse == nil then
|
||
yanse = "#FFFFFF"
|
||
end
|
||
if miaobian == nil then
|
||
if getispc(actor) then
|
||
miaobian = 1
|
||
else
|
||
miaobian = 0
|
||
end
|
||
end
|
||
sendmsg(actor,1,[[{"Msg":"<outline size=']].. miaobian ..[['> <font color=']].. yanse ..[['>]]..msg..[[</font> </outline>","Type":9,"Time":"1"}]])
|
||
end
|
||
--发送提示消息
|
||
function sendmsg6(actor,msg,yanse)
|
||
if yanse == nil then
|
||
yanse = "#ff0000"
|
||
end
|
||
callscriptex(actor, "SENDMSG", 6, "<font color=\'".. yanse .."\'>".. msg .."</font>")
|
||
end
|
||
--全区上部缩放系统公告
|
||
function sendmsg13(actor,msg)
|
||
sendmsg(actor,2,'{"Msg":"'.. msg ..'","FColor":255,"BColor":0,"Type":13,"Time":5}')
|
||
end
|
||
|
||
--全区聊天框系统公告
|
||
function sendmsg0(actor,msg,qianse,house)
|
||
qianse = qianse or 255 --前景色
|
||
house = house or 56 --背景色
|
||
sendmsg(actor,2,'{"Msg":"'.. msg ..'","FColor":'.. qianse ..',"BColor":'.. house ..',"Type":1}')
|
||
end
|
||
|
||
--获取对象名字
|
||
function getname(actor) --名字
|
||
return getbaseinfo(actor,1)
|
||
end
|
||
--获取对象地图id
|
||
function getmap(actor) --地图id
|
||
return getbaseinfo(actor,3)
|
||
end
|
||
--获取对象x坐标
|
||
function getx(actor) --x坐标
|
||
return getbaseinfo(actor,4)
|
||
end
|
||
--获取对象y坐标
|
||
function gety(actor) --y坐标
|
||
return getbaseinfo(actor,5)
|
||
end
|
||
--获取等级
|
||
function getlevel(actor) --等级
|
||
return getbaseinfo(actor,6)
|
||
end
|
||
--设置等级
|
||
function setlevel(actor,zhi) --等级
|
||
changelevel(actor,"=",zhi)
|
||
--setbaseinfo(actor,6,zhi)
|
||
end
|
||
--获取转生等级
|
||
function getzslevel(actor)
|
||
return getbaseinfo(actor,39)
|
||
end
|
||
--获取职业
|
||
function getjob(actor) --职业0 1 2 战法道
|
||
return getbaseinfo(actor,7)
|
||
end
|
||
--设置职业
|
||
function setjob(actor,zhi) --职业0 1 2 战法道
|
||
setbaseinfo(actor,7,zhi)
|
||
end
|
||
|
||
--获取性别
|
||
function getsex(actor) --性别0男1女
|
||
return getbaseinfo(actor,8)
|
||
end
|
||
--设置性别
|
||
function setsex(actor,zhi) --性别0男1女
|
||
setbaseinfo(actor,8,zhi)
|
||
end
|
||
|
||
--判断是否为PC还是手机
|
||
function getispc(actor) --获取是否电脑端
|
||
if getconst(actor,"<$CLIENTFLAG>") == "1" then
|
||
return true
|
||
else
|
||
return false
|
||
end
|
||
end
|
||
|
||
--获取什么方式进入h5
|
||
-- 1=横版
|
||
-- 2=PC竖版
|
||
-- 3=PCWEB 横版
|
||
-- 4=PCWEB 竖版
|
||
-- 5=ios手机网页 横板
|
||
-- 6=ios手机网页 竖版
|
||
-- 7=安卓手机网页 横板
|
||
-- 8=安卓手机网页 竖版
|
||
-- 9=微信ios 横板
|
||
-- 10=微信ios 竖版
|
||
-- 11=微信安卓 横板
|
||
-- 12=微信安卓 竖版
|
||
function geth5state(actor)
|
||
local state = tonumber(getconst(actor,"<$CLIENTFLAGH5>"))
|
||
return state
|
||
end
|
||
|
||
----屏幕大小
|
||
function getpingmusize(actor)
|
||
return tonumber(getconst(actor,"<$CLIENTFLAG>")),tonumber(getconst(actor,"<$SCREENHEIGHT>"))
|
||
end
|
||
|
||
--天数差
|
||
function getDateNum(timeNow, timeNext)
|
||
local ret = 0
|
||
if timeNow and timeNext then
|
||
local now = os.date("*t", timeNow)
|
||
local next = os.date("*t", timeNext)
|
||
|
||
if now and next then
|
||
local num1 = os.time({ year = now.year, month=now.month, day=now.day })
|
||
local num2 = os.time({ year = next.year, month=next.month, day=next.day })
|
||
if num1 and num2 then
|
||
ret = math.abs(num1 - num2) / (3600*24)
|
||
end
|
||
end
|
||
end
|
||
return ret
|
||
end
|
||
|
||
--获取开区天数
|
||
function getkaiquday()
|
||
local kqtime = getsysint("开区时间") --开区时间戳
|
||
if kqtime == 0 then
|
||
return 1
|
||
end
|
||
local curtime = os.time() --当前时间戳
|
||
return getDateNum(curtime,kqtime) + 1
|
||
end
|
||
--获取背包物品数量
|
||
function itemcount(actor,name)
|
||
local ncount=getbaseinfo(actor,34) --获取背包物品数量
|
||
local sl = 0
|
||
for i = 0 ,ncount-1 do
|
||
local item = getiteminfobyindex(actor, i) --根据索引返回对象
|
||
local itemid = getiteminfo(actor,item,2) --物品id
|
||
local iname = getstditeminfo(itemid,1)
|
||
if iname == name then
|
||
if getiteminfo(actor,item,5) == 0 then
|
||
sl = sl + 1
|
||
else
|
||
sl = sl + getiteminfo(actor,item,5) --叠加数量
|
||
end
|
||
end
|
||
end
|
||
return sl
|
||
end
|
||
--是否在背包
|
||
function isinbag(actor,item)
|
||
local ncount=getbaseinfo(actor,34) --获取背包物品数量
|
||
for i = 0 ,ncount-1 do
|
||
local item1 = getiteminfobyindex(actor, i) --根据索引返回对象
|
||
if item1 == item then
|
||
return true
|
||
end
|
||
end
|
||
return false
|
||
end
|
||
|
||
--是否在装备栏
|
||
function isinrole(actor,makeid)
|
||
for i = 0 ,100 do
|
||
local item = linkbodyitem(actor,i)
|
||
if item ~= "0" and makeid == getiteminfo(actor,item,1) then
|
||
return true
|
||
end
|
||
end
|
||
return false
|
||
end
|
||
|
||
--获取物品总幸运
|
||
function getluck(actor,item)
|
||
local itemid = getiteminfo(actor,item,2)
|
||
local jichuluck = getstditematt(itemid,39) --基础幸运
|
||
local addluck = getitemaddvalue(actor,item,1,5) --极品幸运
|
||
return jichuluck + addluck
|
||
end
|
||
|
||
--根据物品对象获取物品名称
|
||
function getitemname(actor,item,zidingyiname) --玩家 道具 自定义名字
|
||
if zidingyiname == 1 then
|
||
local jsonstr = getitemcustomabil(actor,item)
|
||
if jsonstr ~= "" then
|
||
local json_t = json2tbl(jsonstr)
|
||
if json_t["name"] ~= "" then
|
||
return json_t["name"]
|
||
end
|
||
end
|
||
end
|
||
local id = getiteminfo(actor,item,2)
|
||
return getstditeminfo(id,1)
|
||
end
|
||
--根据名字获取物品id
|
||
function getidbyname(name)
|
||
return getstditeminfo(name,0)
|
||
end
|
||
|
||
--获取背包物品对象列表
|
||
function getbaglist(actor)
|
||
local t = {}
|
||
local ncount=getbaseinfo(actor,34)
|
||
local str = ""
|
||
for i = 0 ,ncount-1 do
|
||
table.insert(t,getiteminfobyindex(actor, i))
|
||
end
|
||
return t
|
||
end
|
||
|
||
--获取人物装备列表
|
||
function getrolelist(actor)
|
||
local t = {}
|
||
for i = 0,100 do
|
||
local item = linkbodyitem(actor,i)
|
||
if item ~= "0" then
|
||
table.insert(t,item)
|
||
end
|
||
end
|
||
return t
|
||
end
|
||
|
||
-------物品标识使用段 标识范围0-31
|
||
--标识1 是否禁止捡取
|
||
function getisjianqu(actor,item) --是否禁止捡取
|
||
return getitemaddvalue(actor,item,3,1)
|
||
end
|
||
function setisjianqu(actor,item,zhi) --设置是否禁止捡取
|
||
setitemaddvalue(actor,item,3,1,zhi)
|
||
end
|
||
|
||
--标识2 是否捡取触发过
|
||
function getisjianquguo(actor,item) --是否禁止捡取
|
||
return getitemaddvalue(actor,item,3,2)
|
||
end
|
||
function setisjianquguo(actor,item,zhi) --设置是否禁止捡取
|
||
setitemaddvalue(actor,item,3,2,zhi)
|
||
end
|
||
|
||
--标识3 是否怪物爆
|
||
function getisguaibao(actor,item) --获取是否怪物爆出
|
||
return getitemaddvalue(actor,item,3,3)
|
||
end
|
||
function setisguaibao(actor,item,zhi) --设置是否怪物爆出
|
||
setitemaddvalue(actor,item,3,3,zhi)
|
||
end
|
||
|
||
|
||
|
||
-------
|
||
-----物品记录信息无效属性使用
|
||
--属性34 主属性
|
||
function getitem_sxzsx(actor,item) --升星主属性
|
||
return getitemaddvalue(actor,item,1,34)
|
||
end
|
||
function setitem_sxzsx(actor,item,zhi) --
|
||
setitemaddvalue(actor,item,1,34,zhi)
|
||
end
|
||
--属性35 防御
|
||
function getitem_sxfy(actor,item) --升星防御
|
||
return getitemaddvalue(actor,item,1,35)
|
||
end
|
||
function setitem_sxfy(actor,item,zhi) --
|
||
setitemaddvalue(actor,item,1,35,zhi)
|
||
end
|
||
--属性36 魔防
|
||
function getitem_sxmf(actor,item) --升星魔防
|
||
return getitemaddvalue(actor,item,1,36)
|
||
end
|
||
function setitem_sxmf(actor,item,zhi) --
|
||
setitemaddvalue(actor,item,1,36,zhi)
|
||
end
|
||
|
||
--属性37 祥运值
|
||
function getitem_zfz(actor,item) --祥运值
|
||
return getitemaddvalue(actor,item,1,37)
|
||
end
|
||
function setitem_zfz(actor,item,zhi) --
|
||
setitemaddvalue(actor,item,1,37,zhi)
|
||
end
|
||
|
||
--属性38 法宝融合编号
|
||
function getitem_fabaozhi(actor,item) --法宝融合编号
|
||
return getitemaddvalue(actor,item,1,38)
|
||
end
|
||
function setitem_fabaozhi(actor,item,zhi) --法宝融合编号
|
||
setitemaddvalue(actor,item,1,38,zhi)
|
||
end
|
||
|
||
--属性39 锻魂装备
|
||
function getitem_duanhun(actor,item)
|
||
return getitemaddvalue(actor,item,1,39)
|
||
end
|
||
function setitem_duanhun(actor,item,zhi)
|
||
setitemaddvalue(actor,item,1,39,zhi)
|
||
end
|
||
|
||
--属性40 武器神秘属性
|
||
function getitem_wqsmsx(actor,item)
|
||
return getitemaddvalue(actor,item,1,40)
|
||
end
|
||
function setitem_wqsmsx(actor,item,zhi)
|
||
setitemaddvalue(actor,item,1,40,zhi)
|
||
end
|
||
|
||
--属性39 武穆遗书等级
|
||
function getitem_wmyslv(actor,item) --武穆遗书等级
|
||
return getitemaddvalue(actor,item,1,39)
|
||
end
|
||
function setitem_wmyslv(actor,item,zhi) --武穆遗书等级
|
||
setitemaddvalue(actor,item,1,39,zhi)
|
||
end
|
||
|
||
--属性40 武穆遗书经验 和酒气值 共用属性 不冲突
|
||
function getitem_wmysjy(actor,item) --武穆遗书经验
|
||
return getitemaddvalue(actor,item,1,40)
|
||
end
|
||
function setitem_wmysjy(actor,item,zhi) --武穆遗书经验
|
||
setitemaddvalue(actor,item,1,40,zhi)
|
||
end
|
||
|
||
function getitem_jiuqizhi(actor,item) --酒气值
|
||
return getitemaddvalue(actor,item,1,40)
|
||
end
|
||
function setitem_jiuqizhi(actor,item,zhi) --酒气值
|
||
setitemaddvalue(actor,item,1,40,zhi)
|
||
end
|
||
|
||
function getitem_lhdyzlv(actor,item) --获取龙魂帝印珠等级
|
||
return getitemaddvalue(actor,item,1,39)
|
||
end
|
||
function setitem_lhdyzlv(actor,item,zhi) --设置龙魂帝印珠等级
|
||
setitemaddvalue(actor,item,1,39,zhi)
|
||
end
|
||
|
||
function getitem_lhdyztupolv(actor,item) --获取龙魂帝印珠突破等级
|
||
return getitemaddvalue(actor,item,1,40)
|
||
end
|
||
function setitem_lhdyztupolv(actor,item,zhi) --设置龙魂帝印珠突破等级
|
||
setitemaddvalue(actor,item,1,40,zhi)
|
||
end
|
||
|
||
function getitem_lhdyzlyxd(actor,item) --获取龙胤血盾上限
|
||
return getitemaddvalue(actor,item,1,41)
|
||
end
|
||
function setitem_lhdyzlyxd(actor,item,zhi) --设置龙胤血盾上限
|
||
setitemaddvalue(actor,item,1,41,zhi)
|
||
end
|
||
|
||
function getitem_lhdyzdxbl(actor,item) --获取抵消比例
|
||
return getitemaddvalue(actor,item,1,42)
|
||
end
|
||
function setitem_lhdyzdxbl(actor,item,zhi) --设置抵消比例
|
||
setitemaddvalue(actor,item,1,42,zhi)
|
||
end
|
||
|
||
function getitem_lhdyzxdcf(actor,item) --获取血盾触发上限
|
||
return getitemaddvalue(actor,item,1,43)
|
||
end
|
||
function setitem_lhdyzxdcf(actor,item,zhi) --设置血盾触发上限
|
||
setitemaddvalue(actor,item,1,43,zhi)
|
||
end
|
||
|
||
function getitem_lhdyzcurxd(actor,item) --获取当前龙胤血盾
|
||
return getitemaddvalue(actor,item,1,44)
|
||
end
|
||
function setitem_lhdyzcurxd(actor,item,zhi) --设置当前龙胤血盾
|
||
setitemaddvalue(actor,item,1,44,zhi)
|
||
end
|
||
|
||
function getitem_zhanqijy(actor,item) --神弧经验值
|
||
return getitemaddvalue(actor,item,1,40)
|
||
end
|
||
function setitem_zhanqijy(actor,item,zhi) --神弧经验值
|
||
setitemaddvalue(actor,item,1,40,zhi)
|
||
end
|
||
|
||
function getitem_zhanqilv(actor,item) --神弧等级
|
||
return getitemaddvalue(actor,item,1,39)
|
||
end
|
||
function setitem_zhanqilv(actor,item,zhi) --神弧等级
|
||
setitemaddvalue(actor,item,1,39,zhi)
|
||
end
|
||
|
||
--成长属性 神弧下限
|
||
function getitem_zhanqixiaxian(actor,item) --神弧下限
|
||
return getitemaddvalue(actor,item,2,9)
|
||
end
|
||
function setitem_zhanqixiaxian(actor,item,zhi) --神弧下限
|
||
setitemaddvalue(actor,item,2,9,zhi)
|
||
end
|
||
--成长属性 神弧上限
|
||
function getitem_zhanqishangxian(actor,item) --神弧上限
|
||
return getitemaddvalue(actor,item,2,10)
|
||
end
|
||
function setitem_zhanqishangxian(actor,item,zhi) --神弧上限
|
||
setitemaddvalue(actor,item,2,10,zhi)
|
||
end
|
||
|
||
-- 装备成长属性核心逻辑（修正版）
|
||
-- 参数说明：
|
||
-- actor - 玩家对象
|
||
-- item - 装备物品ID
|
||
-- reforgeCount - 当前重塑次数（从1开始，仅重塑模式有效）
|
||
-- isReforge - 是否为重塑模式（true=重塑，false=普通升级）
|
||
function givezqczattr(actor, item, reforgeCount, isReforge)
|
||
-- 1. 基础数据获取
|
||
local item_name = getitemname(actor, item)
|
||
local item_color = getstditeminfo(item_name, 13) -- 品质颜色：255,250,254,253,70,249
|
||
|
||
-- 职业属性ID映射：[职业] = {下限属性, 上限属性}
|
||
-- 明确对应关系：索引1=下限(3,5,7)，索引2=上限(4,6,8)
|
||
local shuxingid_t = {
|
||
[0] = {3, 4}, -- 职业0：下限3，上限4
|
||
[1] = {5, 6}, -- 职业1：下限5，上限6
|
||
[2] = {7, 8} -- 职业2：下限7，上限8
|
||
}
|
||
local t = shuxingid_t[getjob(actor)] -- 当前职业的属性组
|
||
|
||
-- 当前上下限属性值
|
||
local currentLower = getitem_zhanqixiaxian(actor, item) -- 下限值（对应3,5,7）
|
||
local currentUpper = getitem_zhanqishangxian(actor, item) -- 上限值（对应4,6,8）
|
||
|
||
|
||
-- 2. 配置表：各品质的最大属性点和初始概率
|
||
local qualityConfig = {
|
||
[255] = { maxPoint = 15, initProb = 5 }, -- 白色
|
||
[250] = { maxPoint = 20, initProb = 15 }, -- 绿色
|
||
[254] = { maxPoint = 25, initProb = 25 }, -- 蓝色
|
||
[253] = { maxPoint = 30, initProb = 35 }, -- 紫色
|
||
[70] = { maxPoint = 30, initProb = 45 }, -- 橙色
|
||
[249] = { maxPoint = 30, initProb = 55 } -- 红色
|
||
}
|
||
local cfg = qualityConfig[item_color] or qualityConfig[255] -- 默认配置
|
||
|
||
|
||
-- 3. 检查是否已达最大属性点
|
||
local totalPoint = currentLower + currentUpper
|
||
if totalPoint >= cfg.maxPoint then
|
||
return false -- 已达上限，不再添加属性
|
||
end
|
||
|
||
|
||
-- 4. 计算属性添加概率（重塑模式动态递增）
|
||
local addProb = cfg.initProb -- 基础概率
|
||
if isReforge then
|
||
-- 各品质达到100%概率所需的重塑次数
|
||
local maxReforgeTimes = {
|
||
[255] = 30, [250] = 30, [254] = 30,
|
||
[253] = 40, [70] = 20, [249] = 10
|
||
}
|
||
local maxTimes = maxReforgeTimes[item_color] or 30
|
||
|
||
-- 概率随重塑次数递增（最高100%）
|
||
addProb = math.min(
|
||
cfg.initProb + (100 - cfg.initProb) * (reforgeCount / maxTimes),
|
||
100
|
||
)
|
||
end
|
||
|
||
|
||
-- 5. 判断是否触发属性添加
|
||
if math.random(1, 100) > addProb then
|
||
return false -- 未触发属性添加
|
||
end
|
||
|
||
|
||
-- 6. 计算上下限分配概率（重塑模式动态调整）
|
||
local upperProb -- 上限属性（4,6,8）的分配概率（%）
|
||
if isReforge then
|
||
-- 各品质的上限概率配置：{初始概率, 最大次数, 每次增长步长}
|
||
local upperRateConfig = {
|
||
[255] = {10, 100, 1}, -- 白色：10%起始，逐步增长
|
||
[250] = {20, 100, 1}, -- 绿色：20%起始，逐步增长
|
||
[254] = {30, 100, 1}, -- 蓝色：30%起始，逐步增长
|
||
[253] = {30, 40, 1.75}, -- 紫色：30%起始，40次满
|
||
[70] = {40, 20, 3}, -- 橙色：40%起始，20次满
|
||
[249] = {50, 10, 5} -- 红色：50%起始，10次满
|
||
}
|
||
local uCfg = upperRateConfig[item_color] or upperRateConfig[255]
|
||
|
||
-- 计算当前上限概率（不超过100%）
|
||
upperProb = math.min(
|
||
uCfg[1] + (reforgeCount - 1) * uCfg[3],
|
||
100
|
||
)
|
||
else
|
||
-- 普通升级模式：固定30%上限，70%下限
|
||
upperProb = 30
|
||
end
|
||
|
||
|
||
-- 7. 确定添加上限还是下限（关键修正：确保upperProb对应上限属性）
|
||
local attrType -- 1=上限属性(4,6,8)，2=下限属性(3,5,7)
|
||
if math.random(1, 100) <= upperProb then
|
||
-- 命中上限概率：添加上限属性(4,6,8)
|
||
attrType = (currentUpper < cfg.maxPoint - currentLower) and 1 or 2
|
||
else
|
||
-- 未命中上限概率：添加下限属性(3,5,7)
|
||
attrType = (currentLower < cfg.maxPoint - currentUpper) and 2 or 1
|
||
end
|
||
|
||
|
||
-- 8. 执行属性更新（明确对应关系）
|
||
if attrType == 1 then
|
||
-- 添加上限属性(4,6,8)
|
||
setitem_zhanqishangxian(actor, item, currentUpper + 1)
|
||
else
|
||
-- 添加下限属性(3,5,7)
|
||
setitem_zhanqixiaxian(actor, item, currentLower + 1)
|
||
end
|
||
|
||
|
||
-- 9. 应用属性组（t[2]对应上限属性，t[1]对应下限属性）
|
||
local targetAttrId = (attrType == 1) and t[2] or t[1]
|
||
callscriptex(actor, "SETADDNEWABIL", 16, "+" ,"3#".. targetAttrId .."#1")
|
||
return true
|
||
end
|
||
|
||
|
||
-- 重塑成长属性流程（执行30次成长判断）
|
||
function reforgeZqczAttr(actor, item)
|
||
-- 重置当前上下限属性（重塑前清零）
|
||
setitem_zhanqixiaxian(actor, item, 0)
|
||
setitem_zhanqishangxian(actor, item, 0)
|
||
|
||
-- 执行30次重塑成长逻辑
|
||
for reforgeCount = 1, 30 do
|
||
givezqczattr(actor, item, reforgeCount, true)
|
||
end
|
||
|
||
return true
|
||
end
|
||
|
||
--神弧神秘属性重塑次数
|
||
function getitem_shenhusmsxchongsu(actor,item) --神弧神秘属性重塑次数
|
||
return getitemaddvalue(actor,item,1,41)
|
||
end
|
||
function setitem_shenhusmsxchongsu(actor,item,zhi) --神弧神秘属性重塑次数
|
||
setitemaddvalue(actor,item,1,41,zhi)
|
||
end
|
||
|
||
--神弧成长属性重塑次数
|
||
function getitem_shenhuczsxchongsu(actor,item) --神弧成长属性重塑次数
|
||
return getitemaddvalue(actor,item,1,42)
|
||
end
|
||
function setitem_shenhuczsxchongsu(actor,item,zhi) --神弧成长属性重塑次数
|
||
setitemaddvalue(actor,item,1,42,zhi)
|
||
end
|
||
|
||
--神秘属性 神弧神秘属性编号
|
||
function getitem_zhanqismsxbh(actor,item) --神弧神秘属性编号
|
||
return getitemaddvalue(actor,item,1,43)
|
||
end
|
||
function setitem_zhanqismsxbh(actor,item,zhi) --神弧神秘属性编号
|
||
setitemaddvalue(actor,item,1,43,zhi)
|
||
end
|
||
|
||
|
||
--属性2 8 项链洗练次数
|
||
function getitem_xlxlcs(actor,item) --项链洗练次数
|
||
return getitemaddvalue(actor,item,2,8)
|
||
end
|
||
function setitem_xlxlcs(actor,item,zhi) --项链洗练次数
|
||
setitemaddvalue(actor,item,2,8,zhi)
|
||
end
|
||
|
||
--属性2 7 到期时间
|
||
function getitem_daoqishijian(actor,item) --到期时间
|
||
return getitemaddvalue(actor,item,2,7)
|
||
end
|
||
function setitem_daoqishijian(actor,item,zhi) --到期时间
|
||
setitemaddvalue(actor,item,2,7,zhi)
|
||
end
|
||
|
||
--属性2 11 沙巴克标识
|
||
function getitem_shabake(actor,item) --沙巴克标识
|
||
return getitemaddvalue(actor,item,2,11)
|
||
end
|
||
function setitem_shabake(actor,item,zhi) --沙巴克标识
|
||
setitemaddvalue(actor,item,2,11,zhi)
|
||
end
|
||
|
||
-----
|
||
--是否绑定
|
||
function isbind(actor,item)
|
||
if getitemaddvalue(actor,item,2,1) == 0 then
|
||
return false
|
||
else
|
||
return true
|
||
end
|
||
end
|
||
|
||
-------货币操作
|
||
----获取金币绑金总数
|
||
function getbindgold(actor)
|
||
return getbindmoney(actor,"金币")
|
||
end
|
||
----扣除金币 优先扣除绑定金币
|
||
function subbindgold(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
if num > 0 then
|
||
post(actor,beizhu.."通用金币货币消耗*"..num)
|
||
end
|
||
consumebindmoney(actor,"金币",num)
|
||
end
|
||
--加绑定金币
|
||
function addbindgold(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,8,"+",num,beizhu,true)
|
||
end
|
||
---获取单获取金币
|
||
function getgold(actor)
|
||
return querymoney(actor,7)
|
||
end
|
||
|
||
---获取单获取绑定金币
|
||
function getbindjinbi(actor)
|
||
return querymoney(actor,8)
|
||
end
|
||
|
||
--加金币
|
||
function addgold(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,7,"+",num,beizhu,true)
|
||
end
|
||
--减金币
|
||
function subgold(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
if num > 0 then
|
||
post(actor,beizhu.."非绑定金币货币消耗*"..num)
|
||
end
|
||
return changemoney(actor,7,"-",num,beizhu,true)
|
||
end
|
||
|
||
----获取元宝绑元总数
|
||
function getbindyb(actor)
|
||
return getbindmoney(actor,"元宝")
|
||
end
|
||
----扣除元宝 优先扣除绑定元宝
|
||
function subbindyuanbao(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
if num > 0 then
|
||
-- post(actor,beizhu.."通用元宝货币消耗*"..num)
|
||
end
|
||
consumebindmoney(actor,"元宝",num)
|
||
end
|
||
--加绑定元宝
|
||
function addbindyuanbao(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,4,"+",num,beizhu,true)
|
||
end
|
||
---获取单获取元宝
|
||
function getyuanbao(actor)
|
||
return querymoney(actor,2)
|
||
end
|
||
|
||
---获取单获取绑定元宝
|
||
function getbindyuanbao(actor)
|
||
return querymoney(actor,4)
|
||
end
|
||
|
||
--加元宝
|
||
function addyuanbao(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,2,"+",num,beizhu,true)
|
||
end
|
||
--减元宝
|
||
function subyuanbao(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
if num > 0 then
|
||
post(actor,beizhu.."非绑定元宝货币消耗*"..num)
|
||
end
|
||
return changemoney(actor,2,"-",num,beizhu,true)
|
||
end
|
||
|
||
--获得军功数量
|
||
function getjungong(actor)
|
||
return querymoney(actor,20)
|
||
end
|
||
--加军功
|
||
function addjungong(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,20,"+",num,beizhu,true)
|
||
end
|
||
--减军功
|
||
function subjungong(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,20,"-",num,beizhu,true)
|
||
end
|
||
|
||
--获得声望数量
|
||
function getshengwang(actor)
|
||
return querymoney(actor,15)
|
||
end
|
||
--加声望
|
||
function addshengwang(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,15,"+",num,beizhu,true)
|
||
end
|
||
--减声望
|
||
function subshengwang(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,15,"-",num,beizhu,true)
|
||
end
|
||
|
||
--获得天赋点数量
|
||
function gettianfudian(actor)
|
||
return querymoney(actor,5)
|
||
end
|
||
--加天赋点
|
||
function addtianfudian(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,5,"+",num,beizhu,true)
|
||
end
|
||
--减天赋点
|
||
function subtianfudian(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,5,"-",num,beizhu,true)
|
||
end
|
||
|
||
--获得灵韵值数量
|
||
function getlingyunzhi(actor)
|
||
return querymoney(actor,10)
|
||
end
|
||
--加灵韵值
|
||
function addlingyunzhi(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,10,"+",num,beizhu,true)
|
||
end
|
||
--减灵韵值
|
||
function sublingyunzhi(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,10,"-",num,beizhu,true)
|
||
end
|
||
|
||
--获得猎魔值数量
|
||
function getliemozhi(actor)
|
||
return querymoney(actor,11)
|
||
end
|
||
--加猎魔值
|
||
function addliemozhi(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,11,"+",num,beizhu,true)
|
||
end
|
||
--减猎魔值
|
||
function subliemozhi(actor,num,beizhu)
|
||
if beizhu == nil then
|
||
beizhu = ""
|
||
end
|
||
return changemoney(actor,11,"-",num,beizhu,true)
|
||
end
|
||
|
||
|
||
--脚本总耗时
|
||
function haoshistart(actor)
|
||
callscriptex(actor, "PRINTUSETIME", 1)
|
||
end
|
||
function haoshiend(actor)
|
||
callscriptex(actor, "PRINTUSETIME", 2)
|
||
end
|
||
|
||
--删除物品
|
||
function delitem(actor,item,sl)
|
||
if sl == nil then
|
||
sl = getiteminfo(actor,item,5)
|
||
if sl == 0 then
|
||
sl = 1
|
||
end
|
||
end
|
||
return delitembymakeindex(actor,getiteminfo(actor,item,1),sl)
|
||
end
|
||
|
||
--获取已装备的全套装备的最低极品等级
|
||
local jipintaozhuangjisuant = {1,0,4,3,7,8,5,6,2,11,12,10,13,14}
|
||
function getjipintaozhuanglevel(actor)
|
||
local _List = {}
|
||
local t = jipintaozhuangjisuant
|
||
for i = 1, #t do
|
||
_List[i] = 0
|
||
local item = linkbodyitem(actor,t[i])
|
||
if item ~= "0" then
|
||
local val = getitemaddvalue(actor,item,1,2)
|
||
local val2 = getitemaddvalue(actor,item,1,3)
|
||
local val3 = getitemaddvalue(actor,item,1,4)
|
||
if val < val2 then
|
||
val = val2
|
||
end
|
||
if val < val3 then
|
||
val = val3
|
||
end
|
||
_List[i] = val
|
||
end
|
||
end
|
||
|
||
table.sort(_List, function(l, r)
|
||
return l > r
|
||
end)
|
||
|
||
return _List[10]
|
||
end
|
||
|
||
local taozhuanggeibuff_t = {
|
||
[0]=10100,[1]=10101,[2]=10102,[3]=10103,[4]=10104,[5]=10105,[6]=10106,[7]=10107,[8]=10108,[9]=10109,[10]=10110,
|
||
}
|
||
local jptzjieshao = {
|
||
"HP+3%",
|
||
"HP+6%",
|
||
"HP+9%",
|
||
"HP+12%",
|
||
"HP+15%，攻魔道+3%",
|
||
"HP+18%，攻魔道+6%",
|
||
"HP+20%，攻魔道+9%",
|
||
"HP+20%，攻魔道+12%",
|
||
"HP+20%，攻魔道+15%",
|
||
"HP+20%，攻魔道+15%，暴击+2%",
|
||
}
|
||
function jipintaozhuanggeibuff(actor)
|
||
local lev = getjipintaozhuanglevel(actor) --获取套装等级属性
|
||
--sendmsg6(actor,"套装等级"..lev)
|
||
if not hasbuff(actor,taozhuanggeibuff_t[lev]) then
|
||
addbuff(actor,taozhuanggeibuff_t[lev])
|
||
if lev > 0 then
|
||
sendmsg6(actor,"触发极品+".. lev .."套："..jptzjieshao[lev])
|
||
end
|
||
end
|
||
|
||
end
|
||
|
||
--秒转时分秒 100 = 00:01:40
|
||
function ssrSecToHMS(sec)
|
||
sec = sec or 0
|
||
|
||
local h,m,s = 0,0,0
|
||
if sec > 3600 then
|
||
h = math.floor(sec/3600)
|
||
end
|
||
sec = sec % 3600
|
||
if sec > 60 then
|
||
m = math.floor(sec/60)
|
||
end
|
||
s = sec % 60
|
||
|
||
return string.format("%02d:%02d:%02d", h, m, s)
|
||
end
|
||
|
||
function huicheng(actor)
|
||
mapmove(actor,"3",330,330,6)
|
||
end
|
||
|
||
function getitemnamebymakeid(actor,makeid)
|
||
local item = getitembymakeindex(actor,makeid)
|
||
local name = getitemname(actor,item)
|
||
return name
|
||
end
|
||
|
||
function jianhuanum(num)
|
||
if num >= 100000000 then
|
||
local yi = num/100000000
|
||
local zhi = yi - yi%0.01
|
||
return zhi .. "亿"
|
||
end
|
||
if num >= 10000 then
|
||
local wan = num/10000
|
||
if wan >= 10 then
|
||
return math.floor(wan) .. "万"
|
||
end
|
||
|
||
local zhi = wan - wan%0.01
|
||
return zhi .. "万"
|
||
end
|
||
return num
|
||
end
|
||
|
||
function isyongyou(actor,iname,weizi) --装备名 位置
|
||
if itemcount(actor,iname) > 0 then
|
||
return true
|
||
end
|
||
local item = linkbodyitem(actor,weizi)
|
||
--sendmsg9(actor,item)
|
||
if item ~= "0" then
|
||
if getitemname(actor,item) == iname then
|
||
return true
|
||
end
|
||
end
|
||
return false
|
||
end
|
||
|
||
-- 宝箱配置
|
||
local treasure_boxes = {0,30,60,120,180,255,}
|
||
function chengjiuhongdian(actor)
|
||
for i=1, #treasure_boxes do
|
||
local today_total = getdayint(actor, "成就_今日总点数")
|
||
local is_unlocked = today_total >= treasure_boxes[i]
|
||
local is_claimed = getdayint(actor, "宝箱_"..i.."_已领取") == 1
|
||
if is_unlocked and not is_claimed then
|
||
return true
|
||
end
|
||
end
|
||
return false
|
||
end
|
||
|
||
local hongdianlv = {38,40,42,44,46,48,50,52,54,56,58,60}
|
||
function dengjihongdian(actor)
|
||
local rolelv = getlevel(actor)
|
||
for i = 1,#hongdianlv do
|
||
if rolelv < hongdianlv[i] then
|
||
break
|
||
end
|
||
if getint(actor,"升级奖励_"..hongdianlv[i]) == 0 then
|
||
return true
|
||
end
|
||
end
|
||
return false
|
||
end
|
||
|
||
function cxxbhongdian(actor)
|
||
local chongzhi = getint(actor, "3合后累充")
|
||
if chongzhi < 10 then
|
||
return false
|
||
else
|
||
if getint(actor,"初心相伴领取") == 0 then
|
||
return true
|
||
else
|
||
return false
|
||
end
|
||
end
|
||
return false
|
||
end
|
||
|
||
local hongdian_db = {38,88,188,288}
|
||
function dbflhongdian(actor)
|
||
for i = 1,#hongdian_db do
|
||
local current = getint(actor,"单笔返利_"..hongdian_db[i])
|
||
local yiling = getint(actor,"已领返利_"..hongdian_db[i])
|
||
|
||
if (current - yiling) > 0 then
|
||
return true
|
||
end
|
||
end
|
||
return false
|
||
end
|
||
|
||
-- 累充档位配置（与你的leichong_t中的档位对应）
|
||
local leichong_t = {30, 50, 100, 200, 500, 2000} -- 按顺序对应各档位的累充金额
|
||
-- 累充红点判断函数：存在已达条件但未领取的档位时返回true（显示红点）
|
||
function leichongHongdian(actor)
|
||
local totalRecharge = getint(actor, "累计充值") -- 玩家累计充值总额
|
||
-- 遍历所有累充档位
|
||
for i = 1, #leichong_t do
|
||
local needRecharge = leichong_t[i] -- 该档位需要的累充金额
|
||
|
||
-- 若累计充值未达到该档位，后续档位无需判断（按档位顺序递增）
|
||
if totalRecharge < needRecharge then
|
||
break
|
||
end
|
||
-- 500档特殊处理（支持重复领取）
|
||
if needRecharge == 500 then
|
||
local receivedRounds = getint(actor, "累充500已领轮次") or 0 -- 已领轮次
|
||
local availableRounds = math.floor(totalRecharge / 500) -- 可领总轮次
|
||
-- 若有未领取的轮次，显示红点
|
||
if receivedRounds < availableRounds then
|
||
return true
|
||
end
|
||
else
|
||
-- 普通档位（一次性领取）：判断是否未领取
|
||
if getint(actor, "累充奖励_"..needRecharge) == 0 then
|
||
return true
|
||
end
|
||
end
|
||
end
|
||
|
||
return false -- 无未领取的奖励，不显示红点
|
||
end
|
||
|
||
|
||
local richong_t = {300}
|
||
function meirileichonghd(actor)
|
||
local totalRecharge = getdayint(actor, "今日充值")
|
||
-- 遍历所有累充档位
|
||
for i = 1, #richong_t do
|
||
local needRecharge = richong_t[i] -- 该档位需要的累充金额
|
||
if totalRecharge < needRecharge then
|
||
break
|
||
end
|
||
if getdayint(actor, "日充奖励_"..needRecharge) == 0 then
|
||
return true
|
||
end
|
||
end
|
||
return false
|
||
end
|
||
|
||
|
||
|
||
function isingongchengquyu(actor)
|
||
if castleinfo(5) and (getmap(actor) == "0150" or (getmap(actor) == "3" and getx(actor) >= 544 and gety(actor) <= 390 )) then
|
||
return true
|
||
end
|
||
return false
|
||
end
|
||
|
||
--获取经验值
|
||
function getjingyan(actor)
|
||
local jingyan = getstr(actor,"经验值")
|
||
return tonumber(jingyan) or 0
|
||
end
|
||
|
||
--存储经验值
|
||
function setjingyan(actor,zhi)
|
||
setstr(actor,"经验值",tostring(zhi))
|
||
zhuangtaijiemian(actor)
|
||
end
|
||
|
||
--post消息记录
|
||
function post(actor,xiaoxi)
|
||
local fuwuqiname = getconst(actor,"<$SERVERNAME>") --服务器名称
|
||
if fuwuqiname == "" then
|
||
fuwuqiname = "工具服"
|
||
end
|
||
local curtime = os.date("%Y-%m-%d %H:%M:%S", os.time())
|
||
end
|
||
|
||
--post1消息记录
|
||
function post1(actor,xiaoxi)
|
||
local fuwuqiname = getconst(actor,"<$SERVERNAME>") --服务器名称
|
||
if fuwuqiname == "" then
|
||
fuwuqiname = "工具服"
|
||
end
|
||
local curtime = os.date("%Y-%m-%d %H:%M:%S", os.time())
|
||
end
|
||
|
||
function getguaigongjitime(mon)
|
||
local zhi = getcurrent(mon,6)
|
||
if zhi == "" then
|
||
zhi = 0
|
||
end
|
||
return tonumber(zhi) or 0
|
||
end
|
||
|
||
function setguaigongjitime(mon,zhi)
|
||
setcurrent(mon,6,tostring(zhi))
|
||
end
|
||
|
||
function getdiaoluodata()
|
||
local t = {}
|
||
local str = getsysstr("掉落查询数据")
|
||
if str ~= "" then
|
||
t = json2tbl(str)
|
||
end
|
||
return t
|
||
end
|
||
|
||
-----功能公用函数----------------------------------------------------
|
||
|
||
function tongyonggoumai(actor,title,danjia,max,huobi)
|
||
if huobi == nil then
|
||
huobi = 2
|
||
end
|
||
local t = {
|
||
title = title,
|
||
danjia = danjia,
|
||
max = max,
|
||
huobi = huobi
|
||
}
|
||
sendluamsg(actor, 64000,0,0,0,tbl2json(t))
|
||
end
|
||
|
||
function tongyongxuanzediejia(actor,title,wyid)
|
||
local count = itemcount(actor, title)
|
||
local t = {
|
||
title = title,
|
||
max = count,
|
||
wyid=wyid,
|
||
}
|
||
sendluamsg(actor, 71000,5,0,0,tbl2json(t))
|
||
end
|
||
|
||
|
||
--检查一个对象的范围
|
||
function FCheckRange(obj, x, y, range)
|
||
local cur_x, cur_y = getbaseinfo(obj, 4), getbaseinfo(obj, 5)
|
||
local min_x, max_x = x-range, x+range
|
||
local min_y, max_y = y-range, y+range
|
||
|
||
if (cur_x >= min_x) and (cur_x <= max_x) and
|
||
(cur_y >= min_y) and (cur_y <= max_y) then
|
||
return true
|
||
end
|
||
|
||
return false
|
||
end
|
||
|
||
--检查自己与npc的距离
|
||
function FCheckNPCRange(actor, npcidx, range)
|
||
range = range or 15
|
||
local npcobj = getnpcbyindex(npcidx)
|
||
local npc_mapid = getbaseinfo(npcobj, 3)
|
||
local my_mapid = getbaseinfo(actor, 3)
|
||
if npc_mapid ~= my_mapid then return false end
|
||
|
||
local npc_x = getbaseinfo(npcobj, 4)
|
||
local npc_y = getbaseinfo(npcobj, 5)
|
||
return FCheckRange(actor, npc_x, npc_y, range)
|
||
end
|
||
|
||
--在gb2312编码下，计算字符串中中文字符的个数
|
||
function count_gb2312_chinese(str)
|
||
local count = 0
|
||
local i = 1 -- 索引从1开始（Lua字符串索引规则）
|
||
local str_len = string.len(str) -- 获取字符串总字节数（GB2312中文占2字节，ASCII占1字节）
|
||
|
||
while i <= str_len do
|
||
local byte1 = string.byte(str, i) -- 取当前字节（可能是中文高字节或ASCII）
|
||
|
||
-- 判断是否为GB2312中文的高字节
|
||
if byte1 >= 0xA1 and byte1 <= 0xF7 then
|
||
-- 是中文：需占用2字节，计数+1，索引跳2位
|
||
count = count + 1
|
||
i = i + 2
|
||
else
|
||
-- 不是中文（ASCII字符）：仅占1字节，索引跳1位
|
||
i = i + 1
|
||
end
|
||
end
|
||
return count
|
||
end
|
||
|
||
|
||
function GetDate(iTime)
|
||
iTime = iTime or os.time()
|
||
return os.date("%Y-%m-%d %H:%M:%S", iTime)
|
||
end
|
||
|
||
function GetYear(iTime)
|
||
iTime = iTime or os.time()
|
||
local t = os.date("*t", iTime)
|
||
return t.year
|
||
end
|
||
|
||
function GetMonth(iTime)
|
||
iTime = iTime or os.time()
|
||
local t = os.date("*t", iTime)
|
||
return t.month
|
||
end
|
||
|
||
function GetDay(iTime)
|
||
iTime = iTime or os.time()
|
||
|
||
local t = os.date("*t", iTime)
|
||
return t.day
|
||
end
|
||
|
||
function GetHour(iTime)
|
||
iTime = iTime or os.time()
|
||
|
||
local t = os.date("*t", iTime)
|
||
return t.hour
|
||
end
|
||
|
||
function GetMin(iTime)
|
||
iTime = iTime or os.time()
|
||
local t = os.date("*t", iTime)
|
||
return t.min
|
||
end
|
||
|
||
function GetSec(iTime)
|
||
iTime = iTime or os.time()
|
||
local t = os.date("*t", iTime)
|
||
return t.sec
|
||
end
|
||
|
||
function GetWday(iTime)
|
||
iTime = iTime or os.time()
|
||
local t = os.date("*t", iTime)
|
||
--周日 t.wday = 1
|
||
if t.wday == 1 then
|
||
--周日
|
||
return 7
|
||
else
|
||
return t.wday - 1
|
||
end
|
||
end
|
||
|
||
--麻痹
|
||
function setMabi(actor, sec, gongjizhe)
|
||
makeposion(actor, 5, sec)
|
||
sendattackeff(actor, 131, 0, gongjizhe)
|
||
end
|
||
|
||
--冰冻
|
||
function setBingDong(actor, sec, gongjizhe)
|
||
makeposion(actor, 12, sec)
|
||
sendattackeff(actor, 132, 0, gongjizhe)
|
||
end
|
||
|
||
--蛛网
|
||
function setZhuWang(actor, sec)
|
||
makeposion(actor, 13, sec)
|
||
end
|
||
|
||
--居中显示公告
|
||
function sendCenterMsg(actor, msg, receiver, fColor, bColor, iTime, func)
|
||
--[[ actor object 否 玩家对象
|
||
FColor int 否 前景色
|
||
BColor int 否 背景色
|
||
Msg string 否 消息内容
|
||
flag string 否 发送对象：
|
||
0=发送给自己；
|
||
1=发送所有人物；
|
||
2=发送行会；
|
||
3=发送国家；
|
||
4=发送当前地图；
|
||
5=替换模式；
|
||
7=组队
|
||
time int 是 显示时间
|
||
func string 是 倒计时结束后跳转的脚本位置，对应脚本需要放QFunction脚本中，使用跳转时，消息文字提示中必须包含%d，用于显示倒计时时间 ]]
|
||
receiver = receiver or 0
|
||
fColor = fColor or 255
|
||
bColor = bColor or 0
|
||
iTime = iTime or 2
|
||
if func then
|
||
sendcentermsg(actor, fColor, bColor, msg, receiver, iTime, func)
|
||
else
|
||
sendcentermsg(actor, fColor, bColor, msg, receiver, iTime)
|
||
end
|
||
end |