init
This commit is contained in:
aixianling
349
LogicServer/data/functions/Common/CommonMisc.txt
Normal file
349
LogicServer/data/functions/Common/CommonMisc.txt
Normal file
@@ -0,0 +1,349 @@
|
||||
--刷选职业性别奖励
|
||||
--sex表示玩家的性别，-1 不限 0表示男的，1表示女的
|
||||
--job -1,0 表示任何职业 1 - 3 ， 战法道
|
||||
function SelectAwards(sysarg,awards)
|
||||
local tab = {}
|
||||
local job = Actor.getIntProperty( sysarg, PROP_ACTOR_VOCATION)
|
||||
local sex = Actor.getIntProperty( sysarg, PROP_ACTOR_SEX)
|
||||
for k,v in ipairs(awards) do
|
||||
if ((v.sex == -1) or (v.sex == sex) or (v.sex == nil) ) and ((v.job == -1) or (v.job == 0) or (v.job == job) or (v.job == nil)) then
|
||||
table.insert(tab,v)
|
||||
end
|
||||
end
|
||||
return tab
|
||||
end
|
||||
|
||||
--系统加成通用函数
|
||||
function GetSysAddCfg()
|
||||
return 0,0
|
||||
--[[
|
||||
local day = System.getDaysSinceOpenServer()
|
||||
local length = #OpenServerConfig.SysAdd.AddRate
|
||||
if day < OpenServerConfig.SysAdd.day then
|
||||
return 0,0
|
||||
else
|
||||
local i = day % length + 1
|
||||
return i, OpenServerConfig.SysAdd.AddRate[i] or 0
|
||||
end
|
||||
--]]
|
||||
end
|
||||
|
||||
--给玩家发送物品
|
||||
function MailItemsToPlayer(actorId, Items, sTitle, sContent)
|
||||
local nType1, nID1, nCount1, nType2, nID2, nCount2, nType3, nID3, nCount3, nType4, nID4, nCount4,
|
||||
nType5, nID5, nCount5, nType6, nID6, nCount6 = GetActivityAnswerAwards(Items)
|
||||
System.sendSysMail(actorId, sTitle, sContent, nType1, nID1, nCount1, nType2, nID2, nCount2,
|
||||
nType3, nID3, nCount3, nType4, nID4, nCount4, nType5, nID5, nCount5, nType6, nID6, nCount6,1) --默认是非绑定的，1-绑定
|
||||
end
|
||||
|
||||
--校验背包物品是否足够
|
||||
--Item格式{{id1, count1},{id2,count2}}
|
||||
function CheckBagItems(sysarg, Items)
|
||||
for _, item in pairs(Items) do
|
||||
local id = item[1]
|
||||
local count = item[2]
|
||||
--print("CheckBagItems, id="..id..", count="..count)
|
||||
if id > 3 then --物品
|
||||
if Actor.getItemCount(sysarg, id) < count then
|
||||
return false
|
||||
end
|
||||
else --金钱
|
||||
if Actor.getMoneyCount(sysarg, id) < count then
|
||||
return false
|
||||
end
|
||||
end
|
||||
end
|
||||
return true
|
||||
end
|
||||
|
||||
--检查物品所占格子的数量
|
||||
-- item为{ type = 0, id=258, count = 5, strong = 0, quality = 0, bind = 0,} 类型
|
||||
function GetItemGrid(sysarg, item)
|
||||
return Item.getAddItemNeedGridCount( sysarg, item.id, item.count, item.quality, item.strong)
|
||||
end
|
||||
|
||||
--[[给奖励
|
||||
使用commonFunc.txt的方法
|
||||
function GiveCommonAward(sysarg, Awards, logId, LogDesc)
|
||||
for _, v in ipairs(Awards) do
|
||||
if v.qualityDataIndex then
|
||||
Actor.giveAward(sysarg, v.type, v.id, v.count, v.quality or 0, v.strong or 0, v.bind or 0, 0, logId, LogDesc,
|
||||
v.qualityDataIndex)
|
||||
else
|
||||
Actor.giveAward(sysarg, v.type, v.id, v.count, v.quality or 0, v.strong or 0, v.bind or 0, 0, logId, LogDesc)
|
||||
end
|
||||
end
|
||||
end
|
||||
]]
|
||||
|
||||
|
||||
--检查背包格子是否足够，返回需要空闲的格子数量，
|
||||
--0-不缺
|
||||
function CheckBagGridForAwards(sysarg, Awards)
|
||||
local needGirds = 0
|
||||
for _, v in ipairs( Awards ) do
|
||||
if v.type == 0 then
|
||||
needGirds = needGirds + Item.getAddItemNeedGridCount( sysarg, v.id, v.count, v.quality, v.strong)
|
||||
end
|
||||
end
|
||||
--local hasEmptyIdxs = Item.getBagEmptyGridCount( sysarg )
|
||||
local hasEmptyIdxs = Item.getAllBagMinEmptyGridCount( sysarg )
|
||||
if hasEmptyIdxs >= needGirds then
|
||||
return 0
|
||||
else
|
||||
return needGirds
|
||||
end
|
||||
end
|
||||
|
||||
function GetCommonAwardByRange( diffAwards, diff )
|
||||
--print("GetCommonAwardByRange, diff="..diff)
|
||||
for i,diffAward in ipairs(diffAwards) do
|
||||
if diffAward.range[1] <= diff and diff <= diffAward.range[2] then
|
||||
return diffAward
|
||||
end
|
||||
end
|
||||
return nil
|
||||
end
|
||||
|
||||
function GetElemByRange( elems, value )
|
||||
for i,elem in ipairs(elems) do
|
||||
if elem.range[1] <= value and value <= elem.range[2] then
|
||||
return elem
|
||||
end
|
||||
end
|
||||
return nil
|
||||
end
|
||||
|
||||
--------------------------------常用公共接口-------------------------------
|
||||
|
||||
-- 从a~b范围内随机出N个不重复的数
|
||||
BaseFuc_Random = function( nMin, nMax, nRandCount )
|
||||
local nRange = nMax + 1 - nMin
|
||||
if nRange <= 1 or nRandCount > nRange then
|
||||
--local szError = string.format( "Error: can't from %d to %d random %d times", nMin, nMax, nRandCount )
|
||||
--BaseFuc_Print( szError )
|
||||
return {}
|
||||
end
|
||||
local tabRet ={}
|
||||
local tabTemp = {}
|
||||
local nTop = nMax
|
||||
for i = 1, nRandCount do
|
||||
local nRandResult = math.random( nMin, nTop )
|
||||
local nResult = tabTemp[nRandResult] or nRandResult
|
||||
table.insert( tabRet, nResult )
|
||||
if nRandResult ~= nTop then
|
||||
tabTemp[nRandResult] = tabTemp[nTop] or nTop
|
||||
end
|
||||
nTop = nTop - 1
|
||||
end
|
||||
return tabRet
|
||||
end
|
||||
|
||||
--自动拼接打印参数
|
||||
BaseFuc_Print = function(...)
|
||||
local strContent=""
|
||||
for i=1,arg.n,1 do
|
||||
strContent = tostring(strContent)..tostring(arg[i])
|
||||
if i ~= arg.n then
|
||||
strContent = strContent.."\t"
|
||||
end
|
||||
end
|
||||
print(strContent)
|
||||
end
|
||||
|
||||
--table to string
|
||||
BaseFuc_serialize = function( obj )
|
||||
local lua = ""
|
||||
local t = type( obj )
|
||||
if t == "number" then
|
||||
lua = lua .. obj
|
||||
elseif t == "boolean" then
|
||||
lua = lua .. tostring( obj )
|
||||
elseif t == "string" then
|
||||
lua = lua .. string.format( "%q", obj )
|
||||
elseif t == "table" then
|
||||
lua = lua .. "{"
|
||||
for k, v in pairs( obj ) do
|
||||
lua = lua .. "[" .. BaseFuc_serialize( k ) .. "]=" .. BaseFuc_serialize( v ) .. ","
|
||||
end
|
||||
local metatable = getmetatable( obj )
|
||||
if metatable ~= nil and type( metatable.__index ) == "table" then
|
||||
for k, v in pairs( metatable.__index ) do
|
||||
lua = lua .. "[" .. BaseFuc_serialize( k ) .. "]=" .. BaseFuc_serialize( v ) .. ","
|
||||
end
|
||||
end
|
||||
lua = lua .. "}"
|
||||
elseif t == "nil" then
|
||||
return nil
|
||||
else
|
||||
error( "can not BaseFuc_serialize a " .. t .. " type." )
|
||||
end
|
||||
return lua
|
||||
end
|
||||
|
||||
--string to table
|
||||
BaseFuc_unserialize = function( lua )
|
||||
local t = type( lua )
|
||||
if t == "nil" or lua == "" then
|
||||
return nil
|
||||
elseif t == "number" or t == "string" or t == "boolean" then
|
||||
lua = tostring( lua )
|
||||
else
|
||||
error( "can not unserialize a " .. t .. " type." )
|
||||
end
|
||||
lua = "return " .. lua
|
||||
local func = loadstring( lua )
|
||||
if func == nil then
|
||||
return nil
|
||||
end
|
||||
return func()
|
||||
end
|
||||
|
||||
--获取元素列表长度（支持离散列表）
|
||||
function GetElemsLen( elems )
|
||||
local num = 0
|
||||
for k,elem in pairs(elems) do
|
||||
num = num + 1
|
||||
end
|
||||
return num
|
||||
end
|
||||
|
||||
--检查物品是否足够(包括金钱)
|
||||
function CheckSingleEnoughByType(sysarg, nType, nId , nCount)
|
||||
if(sysarg == nil or type(nType)~='number' or type(nId)~='number' or type(nCount)~='number')then
|
||||
print("CheckSingleEnoughByType Error")
|
||||
return false
|
||||
end
|
||||
if(nType == 0)then -- 道具
|
||||
if (Actor.getItemCount(sysarg, nId, -1, -1) < nCount) then --不足
|
||||
local strName = Item.getItemName(nId)
|
||||
local strNotice = string.format(OldLang.Script.ir103,strName)
|
||||
Actor.sendTipmsg(sysarg, strNotice, ttFlyTip)
|
||||
return false
|
||||
end
|
||||
elseif(nType == 3)then -- 金币
|
||||
if (Actor.getMoneyCount(sysarg,0) < nCount)then
|
||||
Actor.sendTipmsg(sysarg, OldLang.Script.ir105, ttFlyTip)
|
||||
return false
|
||||
end
|
||||
elseif(nType == 5)then -- 绑定元宝
|
||||
if (Actor.getMoneyCount(sysarg,2) < nCount)then
|
||||
Actor.sendTipmsg(sysarg, OldLang.Script.ir106, ttFlyTip)
|
||||
return false
|
||||
end
|
||||
elseif(nType == 10)then -- 元宝
|
||||
if (Actor.getMoneyCount(sysarg,3) < nCount)then
|
||||
Actor.sendTipmsg(sysarg, OldLang.Script.ir107, ttFlyTip)
|
||||
return false
|
||||
end
|
||||
elseif(nType == 27)then -- 羽魂
|
||||
local myWingSoul = Actor.getMoneyCount(sysarg, mtWingSoul)
|
||||
if ( myWingSoul < nCount)then
|
||||
--Actor.sendTipmsg(sysarg, OldLang.Script.ir108, ttFlyTip)
|
||||
Actor.sendNotEnoughMoney(sysarg, mtWingSoul, nCount)
|
||||
return false
|
||||
end
|
||||
else
|
||||
return false
|
||||
end
|
||||
return true
|
||||
end
|
||||
|
||||
--扣除物品(包括金钱)
|
||||
function SubSingleItemByType(sysarg, nType, nId , nCount, logId, logStr)
|
||||
if(nCount == 0)then
|
||||
return true
|
||||
end
|
||||
if(sysarg == nil or type(nType)~='number' or type(nId)~='number' or type(nCount)~='number')then
|
||||
print("SubSingleItemByType Error")
|
||||
return false
|
||||
end
|
||||
if(type(logId) ~= 'number' or type(logStr)~='string')then
|
||||
print("SubSingleItemByType Error")
|
||||
return false
|
||||
end
|
||||
if(nType == 0)then --道具
|
||||
if Actor.getItemCount(sysarg, nId, -1, -1) < nCount then
|
||||
return false
|
||||
end
|
||||
|
||||
if not Actor.removeItem(sysarg, nId, nCount,-1, -1, -1, logStr, logId)then
|
||||
return false
|
||||
end
|
||||
elseif(nType == 3)then -- 金币
|
||||
if (Actor.changeMoney(sysarg,0, -nCount, logId, logStr) == false)then
|
||||
return false
|
||||
end
|
||||
elseif(nType == 5)then -- 礼券
|
||||
if (Actor.changeMoney(sysarg,2, -nCount, logId, logStr) == false)then
|
||||
return false
|
||||
end
|
||||
elseif(nType == 10)then -- 元宝
|
||||
if (Actor.changeMoney(sysarg,3, -nCount, logId, logStr) == false)then
|
||||
return false
|
||||
end
|
||||
elseif(nType == 27)then
|
||||
if (Actor.changeMoney(sysarg,6, -nCount, logId, logStr) == false)then
|
||||
return false
|
||||
end
|
||||
else
|
||||
return false
|
||||
end
|
||||
return true
|
||||
end
|
||||
|
||||
--批量扣除物品(包括金钱)
|
||||
function SubBatchItemByType(sysarg, ItemList, logId, logStr)
|
||||
if(sysarg == nil or type(ItemList)~='table' or type(logId)~='number' or type(logStr)~='string')then
|
||||
print("SubBatchItemByType Error")
|
||||
return false
|
||||
end
|
||||
for k,v in pairs(ItemList)do --先判断够不够
|
||||
if(v.type == nil or v.id == nil or v.count == nil)then
|
||||
BaseFuc_Print("SubBatchItemByType ItemList Error",v.type,v.id,v.count)
|
||||
return false
|
||||
end
|
||||
if(CheckSingleEnoughByType(sysarg, v.type, v.id , v.count) ~= true)then
|
||||
return false
|
||||
end
|
||||
end
|
||||
for k,v in pairs(ItemList)do --再批量扣除物品(包括金钱)
|
||||
if(SubSingleItemByType(sysarg, v.type, v.id , v.count, logId, logStr) ~= true)then
|
||||
return false
|
||||
end
|
||||
end
|
||||
return true
|
||||
end
|
||||
|
||||
--扣除货币
|
||||
--nCount:必须 >= 0
|
||||
function SubSingleMoneyByType(sysarg, nType, nCount, logId, logStr)
|
||||
--print("SubSingleMoneyByType, nType="..nType..", nCount="..nCount)
|
||||
if(sysarg == nil or type(nType)~='number' or type(nCount)~='number')then
|
||||
print("SubSingleMoneyByType type Error")
|
||||
return false
|
||||
end
|
||||
if(type(logId) ~= 'number' or type(logStr)~='string')then
|
||||
print("SubSingleMoneyByType log Error")
|
||||
return false
|
||||
end
|
||||
if nCount < 0 then
|
||||
return false
|
||||
end
|
||||
if(nType == 0)then -- 金币
|
||||
if (Actor.changeMoney(sysarg,0, -nCount, logId, logStr) == false)then
|
||||
return false
|
||||
end
|
||||
elseif(nType == 5)then -- 礼券
|
||||
if (Actor.changeMoney(sysarg,2, -nCount, logId, logStr) == false)then
|
||||
return false
|
||||
end
|
||||
elseif(nType == 10)then -- 元宝
|
||||
if (Actor.changeMoney(sysarg,3, -nCount, logId, logStr) == false)then
|
||||
return false
|
||||
end
|
||||
else
|
||||
return false
|
||||
end
|
||||
return true
|
||||
end
|
||||
Reference in New Issue
Block a user