Olá TibiaKing

Alguem poderia me ajudar com esse erro?

 

Versão do TFS : The OTX Server Version: (3.9 . DEV)

Tibia : 10.98

 

ERRO

Lua Script Error: [CreatureScript Interface]
data/creaturescripts/scripts/slot.lua:onLogin
LuaScriptInterface::luaAddEvent(). Argument #3 is unsafe
stack traceback:
        [C]: in function 'addEvent'
        data/creaturescripts/scripts/slot.lua:162: in function <data/creaturescripts/scripts/slot.lua:160>

 

SCRIPT

Mostrar conteúdo oculto

local conditionMP,conditionHP,conditionML,conditionCLUB,conditionSHI,conditionDIST,conditionAMP = {},{},{},{},{},{},{}
for i=1,300 do
  conditionHP = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionHP, CONDITION_PARAM_SUBID, 50)
  setConditionParam(conditionHP, CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionHP, CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionHP, CONDITION_PARAM_STAT_MAXHITPOINTSPERCENT, 100+i)
 
  conditionMP = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionMP, CONDITION_PARAM_SUBID, 51)
  setConditionParam(conditionMP, CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionMP, CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionMP, CONDITION_PARAM_STAT_MAXMANAPOINTSPERCENT, 100+i)
 
  conditionML = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionML, CONDITION_PARAM_SUBID, 52)
  setConditionParam(conditionML, CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionML, CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionML, CONDITION_PARAM_STAT_MAGICPOINTSPERCENT, 100+i)
 
  conditionCLUB = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionCLUB, CONDITION_PARAM_SUBID, 53)
  setConditionParam(conditionCLUB, CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionCLUB, CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionCLUB, CONDITION_PARAM_SKILL_MELEEPERCENT, 100+i)
 
  conditionSHI = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionSHI, CONDITION_PARAM_SUBID, 54)
  setConditionParam(conditionSHI, CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionSHI, CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionSHI, CONDITION_PARAM_SKILL_SHIELDPERCENT, 100+i)
 
  conditionDIST = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionDIST, CONDITION_PARAM_SUBID, 55)
  setConditionParam(conditionDIST, CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionDIST, CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionDIST, CONDITION_PARAM_SKILL_DISTANCEPERCENT, 100+i)
end
 
function getSlotType(n)
  if not n then
  return false
  end
  if n:match('%[(.+)%]') then
  n = n:match('%[(.+)%]')
  if n == '?' then
  return 0,n
  else
  return n:match('(.-)%.([+-])(%d+)%%')
  end
  else
  return false
  end
end
 
local function loadSet(cid)
  local t = {}
  for slot=1,9 do
  t[slot] = ''
  local s = getPlayerSlotItem(cid,slot).uid
  if s ~= 0 then
  t[slot] = Item(s):getAttribute(ITEM_ATTRIBUTE_DESCRIPTION)
  end
  end
  return t
end
 
function chk(cid,f)
  if not isPlayer(cid) then return false end
  local t = loadSet(cid)
  for i=1,#f do
  if f ~= t then
  equip(cid,nil,slot)
  break
  end
  end
  addEvent(chk,2000,cid,t)
end
 
function check_slot(aab, i)
  if i == 5 or i == 6 then
  if isWeapon(aab) or isShield(aab) or isBow(aab) then
  return true
  end
  else
  return true
  end
return false
end
 
function equip(cid,item,slot)
  local t = {}
  if item then
  local mm,sinal,qto = getSlotType(Item(item.uid):getAttribute(ITEM_ATTRIBUTE_DESCRIPTION))
  t[mm] = tonumber(qto)
  end
  for i=1,9 do
  if i ~= slot then
  if getPlayerSlotItem(cid,i).itemid ~= 0 then
  local aab = getPlayerSlotItem(cid,i).uid
  if aab and check_slot(aab,i) then
  for _ in Item(aab):getAttribute(ITEM_ATTRIBUTE_DESCRIPTION):gmatch('(%[.-%])') do
  local mm,sinal,qto2 = getSlotType(_)
  if mm then
  if not t[mm] then
  t[mm] = 0
  end
  t[mm] = t[mm]+tonumber(qto2)
  t[mm] = t[mm] > 300 and 300 or t[mm]
  end
  end
  end
  end
  end
  end
  local fu = 0
  local ca = {}
  local s = ''
  for sl,n in pairs(t) do
  fu = fu+1
  s = s..''..n..'% more of '..sl..'\n'
  if sl == 'hp' then
  doAddCondition(cid,conditionHP[tonumber(n)])
  Player(cid):addHealth(Player(cid):getMaxHealth() - Player(cid):getHealth())
  ca[50] = 1
  doSendTutorial(cid,19)
  elseif sl == 'mp' then
  doAddCondition(cid,conditionMP[tonumber(n)])
  Player(cid):addMana(Player(cid):getMaxMana() - Player(cid):getMana())
  ca[51] = 1
  doSendTutorial(cid,19)
  elseif sl == 'ml' then
  doAddCondition(cid,conditionML[tonumber(n)])
  ca[52] = 1
  elseif sl == 'melee' then
  doAddCondition(cid,conditionCLUB[tonumber(n)])
  ca[53] = 1
  elseif sl == 'shield' then
  doAddCondition(cid,conditionSHI[tonumber(n)])
  ca[54] = 1
  elseif sl == 'dist' then
  doAddCondition(cid,conditionDIST[tonumber(n)])
  ca[55] = 1
  end
  end
  if fu > 0 then
  for i=50,55 do
  if not ca then
  doRemoveCondition(cid,CONDITION_ATTRIBUTES,i)
  end
  end
  else
  for i=50,55 do
  doRemoveCondition(cid,CONDITION_ATTRIBUTES,i)
  end
  end
  return true
end
 
function onLogin(cid)
  equip(cid,nil,slot)
  addEvent(chk,2000,cid,loadSet(cid))
  return true
end

function onLogin(cid)

    equip(cid,nil,slot)
        addEvent(function()
            if isCreature(cid) then
                chk(cid,loadSet(cid))
            end
        end, 2000)
  return true
end 

 

ou 

 

function onLogin(cid)
  equip(cid,nil,slot)
  addEvent(chk,2000,cid.uid,loadSet(cid))
  return true
end

 

Editado Maio 2, 2017 8 anos por nociam (veja o histórico de edições)