ola galera peçom por favor a quem puder me ajudar e sanar esse erro que ja me tirou o sono a alguns dias aq.sao 3 erros.

Posta todos os script que tao sendo apontados nos erros, só assim pra te ajudarem.

Posta todos os script que tao sendo apontados nos erros, só assim pra te ajudarem.

magia as linhas da magia dentro do pokemon moves.lua

elseif spell == "Absorb" then

local life = getCreatureHealth(target)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 14)

local newlife = life - getCreatureHealth(target)

doSendMagicEffect(getThingPosWithDebug(cid), 14)

if newlife >= 1 then

doCreatureAddHealth(cid, newlife)

doSendAnimatedText(getThingPosWithDebug(cid), "+"..newlife.."", 32)

end

_____________________________________________________________________________________

portrait.lua

function onEquip (cid, item, slot)

if not cid then return true end

if item.uid <= 0 then return true end

if not getItemAttribute(item.uid, "poke") then

return true

end

for i, x in pairs(fotos) do

if string.lower(getItemAttribute(item.uid, "poke")) == string.lower(i) then

doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos)

return true

end

end

end

function onDeEquip(cid, item, slot)

if not cid then return true end

if item.uid <= 0 then return true end

if not getItemAttribute(item.uid, "poke") then

return true

end

doTransformItem(getPlayerSlotItem(cid, CONST_SLOT_LEGS).uid, 2395)

end

______________________________________________________________________________

exp 2.0.lua

local combats = { --alterado v1.6 \/

[PSYCHICDAMAGE] = {cor = COLOR_PSYCHIC},

[GRASSDAMAGE] = {cor = COLOR_GRASS},

[POISONEDDAMAGE] = {cor = COLOR_GRASS},

[FIREDAMAGE] = {cor = COLOR_FIRE2},

[bURNEDDAMAGE] = {cor = COLOR_BURN},

[WATERDAMAGE] = {cor = COLOR_WATER},

[iCEDAMAGE] = {cor = COLOR_ICE},

[NORMALDAMAGE] = {cor = COLOR_NORMAL},

[FLYDAMAGE] = {cor = COLOR_FLYING},

[GHOSTDAMAGE] = {cor = COLOR_GHOST},

[GROUNDDAMAGE] = {cor = COLOR_GROUND},

[ELECTRICDAMAGE] = {cor = COLOR_ELECTRIC},

[ROCKDAMAGE] = {cor = COLOR_ROCK},

[bUGDAMAGE] = {cor = COLOR_BUG},

[FIGHTDAMAGE] = {cor = COLOR_FIGHTING},

[DRAGONDAMAGE] = {cor = COLOR_DRAGON},

[POISONDAMAGE] = {cor = COLOR_POISON},

[DARKDAMAGE] = {cor = COLOR_DARK},

[sTEELDAMAGE] = {cor = COLOR_STEEL},

[MIRACLEDAMAGE] = {cor = COLOR_PSYCHIC},

[DARK_EYEDAMAGE] = {cor = COLOR_GHOST},

[sEED_BOMBDAMAGE] = {cor = COLOR_GRASS},

[sACREDDAMAGE] = {cor = COLOR_FIRE2},

[MUDBOMBDAMAGE] = {cor = COLOR_GROUND}

}

--alterado v1.5 tabelas agora estao em lib/configuration.lua

local function sendPlayerDmgMsg(cid, text)

if not isCreature(cid) then return true end

doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, text)

end

local races = {

[4] = {cor = COLOR_FIRE2},

[6] = {cor = COLOR_WATER},

[7] = {cor = COLOR_NORMAL},

[8] = {cor = COLOR_FIRE2},

[9] = {cor = COLOR_FIGHTING},

[10] = {cor = COLOR_FLYING},

[11] = {cor = COLOR_GRASS},

[12] = {cor = COLOR_POISON},

[13] = {cor = COLOR_ELECTRIC},

[14] = {cor = COLOR_GROUND},

[15] = {cor = COLOR_PSYCHIC},

[16] = {cor = COLOR_ROCK},

[17] = {cor = COLOR_ICE},

[18] = {cor = COLOR_BUG},

[19] = {cor = COLOR_DRAGON},

[20] = {cor = COLOR_GHOST},

[21] = {cor = COLOR_STEEL},

[22] = {cor = COLOR_DARK},

[1] = {cor = 180},

[2] = {cor = 180},

[3] = {cor = 180},

[5] = {cor = 180},

}

local damages = {GROUNDDAMAGE, ELECTRICDAMAGE, ROCKDAMAGE, FLYDAMAGE, BUGDAMAGE, FIGHTINGDAMAGE, DRAGONDAMAGE, POISONDAMAGE, DARKDAMAGE, STEELDAMAGE}

local fixdmgs = {PSYCHICDAMAGE, COMBAT_PHYSICALDAMAGE, GRASSDAMAGE, FIREDAMAGE, WATERDAMAGE, ICEDAMAGE, NORMALDAMAGE, GHOSTDAMAGE}

local ignored = {POISONEDDAMAGE, BURNEDDAMAGE} --alterado v1.6

local cannotkill = {BURNEDDAMAGE, POISONEDDAMAGE}

function onStatsChange(cid, attacker, type, combat, value)

if combat == FLYSYSTEMDAMAGE then return false end

if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TV

if not isCreature(attacker) then --alterado v1.5 cid == attacker

if not isInArray(fixdamages, combat) and combats[combat] then

doSendAnimatedText(getThingPos(cid), value, combats[combat].cor)

end

return true

end

-----------------------------------------HELDS------------------------------------------

if isSummon(cid) and isPlayer(getCreatureMaster(cid)) then

local master= getCreatureMaster(cid)

local ball = getPlayerSlotItem(master, 8)

local hardenChance = getHeldBonusValue(ball.uid, 'x', 'Harden')

local elementalChance = getHeldBonusValue(ball.uid, 'x', 'Elemental')

if math.random(1,100) <= hardenChance then

docastspell(cid, "Harden")

elseif math.random(1,100) <= elementalChance then

docastspell(cid, 'Elemental', 1000, 2000)

end

end

if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local master= getCreatureMaster(attacker)

local ball = getPlayerSlotItem(master, 8)

local ragechance = getHeldBonusValue(ball.uid, 'x', 'Rage')

local strafechance = getHeldBonusValue(ball.uid, 'x', 'Strafe')

local agilitychance = getHeldBonusValue(ball.uid, 'x', 'Agility')

if math.random(1,100) <= ragechance then

docastspell(attacker, 'Rage')

elseif math.random(1,100) <= strafechance then

docastspell(attacker, 'Strafe')

elseif math.random(1,100) <= agilitychance then

docastspell(attacker, 'Agility')

end

end

-----------------------------------------HELDS------------------------------------------

local damageCombat = combat

--------------------------------------------------

--alterado v1.6 retirado os combats sleep_powder e poison_powder daki!

--------------------------------------------------

if type == STATSCHANGE_HEALTHGAIN then

if cid == attacker then

return true

end

if isSummon(cid) and isSummon(attacker) and canAttackOther(cid, attacker) == "Cant" then

return false

end

return true

end

--------------------------------------------------

if isMonster(cid) then

local valor = value

if not pokes[getCreatureName(cid)] and damageCombat == COMBAT_PHYSICALDAMAGE then

valor = getOffense(attacker) * playerDamageReduction

doCreatureAddHealth(cid, -math.abs(valor), 3, races[7].cor) --alterado v1.6 dano nos npcs

return false

elseif not pokes[getCreatureName(cid)] and damageCombat ~= COMBAT_PHYSICALDAMAGE then

doCreatureAddHealth(cid, -math.abs(valor), 3, combats[damageCombat].cor)

return false

end

end

--------------------------------------------------

if isPlayer(attacker) then

local valor = value

if valor > getCreatureHealth(cid) then

valor = getCreatureHealth(cid)

end

if combat == COMBAT_PHYSICALDAMAGE then

return false

end

if combat == PHYSICALDAMAGE then

doSendMagicEffect(getThingPos(cid), 3)

doSendAnimatedText(getThingPos(cid), valor, races[getMonsterInfo(getCreatureName(cid)).race].cor)

end

if combats[damageCombat] and not isInArray(fixdmgs, damageCombat) then

doSendAnimatedText(getThingPos(cid), valor, combats[damageCombat].cor)

end

if #getCreatureSummons(attacker) >= 1 and not isInArray({POISONEDDAMAGE, BURNEDDAMAGE}, combat) then

--doPlayerSendTextMessage(attacker, cid, 20, "Seu "..getPokeName(getCreatureSummons(attacker)[1]).." causou "..valor.." de dano no "..getSomeoneDescription(cid)..".")

end

return true

end

--------------------------------------------------

if isPlayer(cid) and #getCreatureSummons(cid) >= 1 and type == STATSCHANGE_HEALTHLOSS then

--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) >= 1 then

--doSendAnimatedText(getThingPosWithDebug(attacker), "Hmpfg!", 215)

--doMonsterSetTarget(attacker, getCreatureSummons(cid)[1])

--end

return false

end

--if isPlayer(cid) and #getCreatureSummons(cid) >= 1 and type == STATSCHANGE_HEALTHLOSS then

--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) <= 0 then

--doSendAnimatedText(getThingPosWithDebug(attacker), "Grrr!", 215)

--doMonsterSetTarget(attacker, cid)

--end

--return true

--end

--------------------------------------------------

if isPlayer(cid) and #getCreatureSummons(cid) <= 0 and type == STATSCHANGE_HEALTHLOSS then

if isSummon(attacker) or isPlayer(attacker) then

if canAttackOther(cid, attacker) == "Cant" then return false end

end

local valor = 0

if combat == COMBAT_PHYSICALDAMAGE then

valor = getOffense(attacker)

else

valor = getSpecialAttack(attacker)

end

valor = valor * playerDamageReduction

valor = valor * math.random(83, 117) / 100

if valor >= getCreatureHealth(cid) then

valor = getCreatureHealth(cid)

end

valor = math.floor(valor)

if valor >= getCreatureHealth(cid) then

-- PVP ARENA

if arenaPvp.killPlayer(cid) then

return false

end

-- PVP ARENA

if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then

setPlayerStorageValue(cid, 6598754, -1)

setPlayerStorageValue(cid, 6598755, -1)

doRemoveCondition(cid, CONDITION_OUTFIT)

doTeleportThing(cid, {x = 1001, y = 1026, z = 14}, false)

doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

return false --alterado v1.8

elseif getPlayerStorageValue(cid, 577869) >= 1 then

setPlayerStorageValue(cid, 577869, 0)

doTeleportThing(cid, {x = 1009, y = 1084, z = 14}, false)

doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

return false

elseif getPlayerStorageValue(cid, 20000) >= 1 then

setPlayerStorageValue(cid, 20000, 0)

setPlayerStorageValue(cid,30,0)

doTeleportThing(cid, {x = 1172, y = 1366, z = 7}, false)

doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

doPlayerSendTextMessage(cid, 20, "Você morreu no Saffari por Favor volte mais tarde!")

return false

elseif getPlayerStorageValue(cid, 20001) >= 1 then

setPlayerStorageValue(cid,20001,0)

doTeleportThing(cid, {x = 1371, y = 1240, z = 7}, false)

doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

doRemoveCondition(cid, CONDITION_OUTFIT)

doPlayerSendTextMessage(cid, 20, "You are died in demon room, please come back!")

return false

end

------------------------------------------- ---

if getPlayerStorageValue(cid, 18) >= 1 then

setPlayerStorageValue(cid,18,0)

doRemoveCondition(cid, CONDITION_OUTFIT)

end

------------Saffari----------------------------------

if getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 then

doRemoveCondition(cid, CONDITION_OUTFIT)

setPlayerStorageValue(cid, 17000, 0)

setPlayerStorageValue(cid, 17001, 0)

setPlayerStorageValue(cid, 63215, -1)

doChangeSpeed(cid, PlayerSpeed)

local item = getPlayerSlotItem(cid, 8)

local btype = getPokeballType(item.itemid)

if #getCreatureSummons(cid) <= 0 then

if isInArray(pokeballs[btype].all, item.itemid) then

doTransformItem(item.uid, pokeballs[btype].off)

doItemSetAttribute(item.uid, "hp", 0)

end

end

end

------------Edited Golden Arena------------------

if getPlayerStorageValue(cid, 22545) == 1 then

if getGlobalStorageValue(22550) == 1 then

doPlayerSendTextMessage(cid, 20, "Você foi o último sobrevivente da Golden Arena! Tome sua recompensa!")

doPlayerAddItem(cid, 2160, getPlayerStorageValue(cid, 22551)*30/4)

doPlayerAddExperience(cid, 1000, getPlayerStorageValue(cid, 22551)*30)

setPlayerStorageValue(cid, 22545, -1)

doTeleportThing(cid, getClosestFreeTile(cid, getClosestFreeTile(cid, posBackGolden)), false)

doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))

--setPlayerRecordWaves(cid)

endGoldenArena()

return false --alterado v1.8

else

setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)

setPlayerStorageValue(cid, 22545, -1)

doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)

doPlayerAddItem(cid, 2152, getPlayerStorageValue(cid, 22551)*5)

doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))

--setPlayerRecordWaves(cid)

return true

end

end

----------------------------------

if getPlayerSex(cid) == 1 then

local corpse = doCreateItem(3058, 1, getThingPos(cid))

doDecayItem(corpse)

doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". He was killed by a ".. getCreatureName(attacker) .."")

elseif getPlayerSex(cid) == 0 then

local corpse = doCreateItem(3065, 1, getThingPos(cid))

doDecayItem(corpse)

doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". She was killed by a ".. getCreatureName(attacker) .."")

end

end

doCreatureAddHealth(cid, -valor, 3, 180)

if not isPlayer(cid) then

addEvent(sendPlayerDmgMsg, 5, cid, "Você perdeu "..valor.." em pontos de vida por um attack de "..getSomeoneDescription(attacker)..".")

end

return false

end

--------------------------------------------------

--if isMonster(attacker) and getPlayerStorageValue(attacker, 201) ~= -1 then

-- if isPlayer(cid) then

-- return false

-- end

-- if getPlayerStorageValue(getCreatureMaster(cid), ginasios[getPlayerStorageValue(attacker, 201)].storage) ~= 1 then

-- return false

-- end

--end

---------------------------------------------------

--if isMonster(cid) and getPlayerStorageValue(cid, 201) ~= -1 then

-- if getPlayerStorageValue(getCreatureMaster(attacker), ginasios[getPlayerStorageValue(cid, 201)].storage) ~= 1 then

-- return false

-- end

--end

--------------------------------------------------

if ehMonstro(cid) and ehMonstro(attacker) then

return false --edited monstro nao atacar monstro

end

--------------------------------------------------

--------------------REFLECT-----------------------

if getPlayerStorageValue(cid, 21099) >= 1 and combat ~= COMBAT_PHYSICALDAMAGE then

if not isInArray({"Team Claw", "Team Slice"}, getPlayerStorageValue(attacker, 21102)) then

doSendMagicEffect(getThingPosWithDebug(cid), 135)

doSendAnimatedText(getThingPosWithDebug(cid), "REFLECT", COLOR_GRASS)

addEvent(docastspell, 100, cid, getPlayerStorageValue(attacker, 21102))

if getCreatureName(cid) == "Wobbuffet" then

doRemoveCondition(cid, CONDITION_OUTFIT)

end

setPlayerStorageValue(cid, 21099, -1) --alterado v1.6

setPlayerStorageValue(cid, 21100, 1)

setPlayerStorageValue(cid, 21101, attacker)

setPlayerStorageValue(cid, 21103, getTableMove(attacker, getPlayerStorageValue(attacker, 21102)).f)

setPlayerStorageValue(cid, 21104, getCreatureOutfit(attacker).lookType)

return false

end

end

-------------------------------------------------

local multiplier = 1

if isCreature(cid) then

poketype1 = pokes[getCreatureName(cid)].type --alterado v1.6

poketype2 = pokes[getCreatureName(cid)].type2

end

if not poketype1 or not poketype2 then return false end --alterado v1.6

if getCreatureCondition(cid, CONDITION_INVISIBLE) then

return false

end

if damageCombat ~= COMBAT_PHYSICALDAMAGE and not isInArray(ignored, damageCombat) then

if isInArray(effectiveness[damageCombat].super, poketype1) then

multiplier = multiplier + 0.5

end

if isInArray(effectiveness[damageCombat].super, poketype2) then

multiplier = multiplier + 0.5

end

if isInArray(effectiveness[damageCombat].weak, poketype1) then --Edited effetivenes = pxg... ;p

multiplier = multiplier - 0.25

end

if isInArray(effectiveness[damageCombat].weak, poketype2) then

multiplier = multiplier - 0.25

end

if isInArray(effectiveness[damageCombat].non, poketype1) or isInArray(effectiveness[damageCombat].non, poketype2) then

if isInArray(specialabilities["foresight"], getCreatureName(attacker)) then --alterado v1.5

multiplier = 0.5

end --alterado v1.6

end

-- X-Attack --

if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local TierArray = {8, 9, 10, 11, 12, 13, 14}

local Tiers = {

[8] = {bonus = AtkBonus1},

[9] = {bonus = AtkBonus2},

[10] = {bonus = AtkBonus3},

[11] = {bonus = AtkBonus4},

[12] = {bonus = AtkBonus5},

[13] = {bonus = AtkBonus6},

[14] = {bonus = AtkBonus7},

}

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)

local Tier = getItemAttribute(ball.uid, "heldx")

local bonusatk = {}

if isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then

bonusatk = Tiers[Tier].bonus

else

bonusatk = 1

end

multiplier = multiplier * bonusatk

end

-- X-Attack --

elseif combat == COMBAT_PHYSICALDAMAGE then

if isGhostPokemon(cid) then --alterado v1.3

if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then --passiva Foresight!!

doSendMagicEffect(getThingPos(cid), 3)

return false

end

end

local cd = getPlayerStorageValue(attacker, conds["Miss"])

local cd2 = getPlayerStorageValue(attacker, conds["Confusion"])

local cd3 = getPlayerStorageValue(attacker, conds["Stun"])

if cd >= 0 or cd2 >= 0 or cd3 >= 0 then

if math.random(1, 100) > 50 then --Edited miss system -- 50% chance de da miss no atk fisico

doSendMagicEffect(getThingPos(cid), 211)

doSendAnimatedText(getThingPos(attacker), "MISS", 215) --alterado v1.5

return false

end

end

end

--------------------------------------------------

local valor = value

--------------------------------------------------

if isSummon(cid) and isSummon(attacker) then

if getCreatureMaster(cid) == getCreatureMaster(attacker) then

return false

end

if canAttackOther(cid, attacker) == "Cant" then

return false

end

end

valor = valor * multiplier

if isSummon(attacker) then

valor = valor * getHappinessRate(attacker)

else

valor = valor * summonReduction

end

valor = math.floor(valor)

if combat == COMBAT_PHYSICALDAMAGE then

block = 1 - (getDefense(cid) / (getOffense(attacker) + getDefense(cid)))

valor = getOffense(attacker) * block

if isInArray(specialabilities["counter"], getCreatureName(cid)) then

if math.random(1, 100) <= 10 then

doCreatureAddHealth(attacker, -valor, 3, 180)

valor = 0

doSendAnimatedText(getThingPosWithDebug(cid), "COUNTER", 215)

end

end

else

valor = valor / getDefense(cid)

end

local criticalHit = 1

if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local master = getCreatureMaster(attacker)

local ball = getPlayerSlotItem(master, 8)

local criticalChance = getHeldBonusValue(ball.uid, 'x', 'Critical')

if math.random(1,100) <= criticalChance then

criticalHit = 2

end

end

-------------------------Edited CLAN SYSTEM-----------------------------------

if isSummon(attacker) and getPlayerStorageValue(getCreatureMaster(attacker), 86228) >= 1 then

valor = valor*getClanPorcent(getCreatureMaster(attacker), combat, "atk") --alterado v1.3

elseif isSummon(cid) and getPlayerStorageValue(getCreatureMaster(cid), 86228) >= 1 then

valor = valor - (valor*getClanPorcent(getCreatureMaster(cid), combat, "def", pokes[getCreatureName(cid)].type, pokes[getCreatureName(cid)].type2))

end

-----------------------------------------------------------------------

---------------------- FEAR / ROAR ------------------------------------

if getPlayerStorageValue(attacker, conds["Fear"]) >= 1 then --alterado!!

return true

end

--------------------------------------------------------------------------

if damageCombat ~= COMBAT_PHYSICALDAMAGE and not isInArray(ignored, damageCombat) then

if isInArray(effectiveness[damageCombat].non, poketype1) or isInArray(effectiveness[damageCombat].non, poketype2) then

if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then --alterado v1.6

valor = valor * 0 --alterado v1.5

end

end

end

if damageCombat == GROUNDDAMAGE then

if isInArray(specialabilities["levitate"], getCreatureName(cid)) then

valor = 0 --alterado v1.5

end

end

-----------------------------------------------------------------------------

local p = getThingPos(cid)

if p.x == 1 and p.y == 1 and p.z == 10 then

return false

end

if getPlayerStorageValue(cid, 9658783) == 1 then

return false --imune

end

-----------------------------------------------------------------------------

if valor >= getCreatureHealth(cid) then

if isInArray(cannotKill, combat) and isPlayer(cid) then

valor = getCreatureHealth(cid) - 1

else

valor = getCreatureHealth(cid)

end

end

valor = math.floor(valor) --alterado v1.6

------------------ SKILLs Q CURAM O ATTACKER ---------------------------------

local function doHeal(cid, amount)

if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then

amount = math.abs(getCreatureHealth(cid)-getCreatureMaxHealth(cid))

end

if getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then --alterado v1.6

doCreatureAddHealth(cid, amount)

doSendAnimatedText(getThingPosWithDebug(cid), "+"..amount.."", 65)

end

end

if damageCombat == PSYCHICDAMAGE or damageCombat == MIRACLEDAMAGE then

if getPlayerStorageValue(attacker, 95487) >= 1 then

doHeal(attacker, valor)

setPlayerStorageValue(attacker, 95487, -1) --alterado v1.6

end

elseif damageCombat == SEED_BOMBDAMAGE then

doHeal(attacker, valor)

end

--------------------------------------------

----------SACRED FIRE-----------------------

if combat == SACREDDAMAGE and not ehNPC(cid) then --alterado v1.6

local ret = {}

ret.id = cid

ret.cd = 9

ret.check = getPlayerStorageValue(cid, conds["Silence"])

ret.eff = 39

ret.cond = "Silence"

doCondition2(ret)

end

---------------------------------------------

--------------Passiva Lifesteal Clobat------------

if combat == COMBAT_PHYSICALDAMAGE then

if getCreatureName(attacker) == "Crobat" then --alterado v1.4

doCreatureAddHealth(attacker, math.floor(valor))

doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)

end

end

--------------------------------------------

--------------Passiva Lifesteal Clobat------------

if combat == COMBAT_PHYSICALDAMAGE then

if getCreatureName(attacker) == "Golbat" then --alterado v1.4

doCreatureAddHealth(attacker, math.floor(valor))

doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)

end

end

--------------------------------------------

--------------Passiva Lifesteal Clobat------------

if combat == COMBAT_PHYSICALDAMAGE then

if getCreatureName(attacker) == "Zubat" then --alterado v1.4

doCreatureAddHealth(attacker, math.floor(valor))

doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)

end

end

--------------------------------------------

--------------Passiva Lifesteal Clobat------------

if combat == COMBAT_PHYSICALDAMAGE then

if getCreatureName(attacker) == "Shiny Crobat" then --alterado v1.4

doCreatureAddHealth(attacker, math.floor(valor))

doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)

end

end

--------------------------------------------

--------------Passiva Lifesteal Clobat------------

if combat == COMBAT_PHYSICALDAMAGE then

if getCreatureName(attacker) == "Shiny Golbat" then --alterado v1.4

doCreatureAddHealth(attacker, math.floor(valor))

doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)

end

end

--------------------------------------------

--------------Passiva Lifesteal Clobat------------

if combat == COMBAT_PHYSICALDAMAGE then

if getCreatureName(attacker) == "Shiny Zubat" then --alterado v1.4

doCreatureAddHealth(attacker, math.floor(valor))

doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)

end

end

--------------------------------------------

valor = math.abs(valor * criticalHit) --alterado v1.9

if isSummon(cid) and valor >= getCreatureHealth(cid) then

onPokeHealthChange(getCreatureMaster(cid), true)

elseif isSummon(cid) then

onPokeHealthChange(getCreatureMaster(cid))

end

if isSummon(attacker) then

if combat == COMBAT_PHYSICALDAMAGE then

doTargetCombatHealth(getCreatureMaster(attacker), cid, PHYSICALDAMAGE, -valor, -valor, 255)

if criticalHit > 1 then

doSendAnimatedText(getThingPos(cid), valor .. " STK", 180)

--[[else

doSendAnimatedText(getThingPos(cid), valor, races[getMonsterInfo(getCreatureName(cid) and getCreatureName(cid) or "Caterpie").race].cor)--]]

end

addEvent(doDoubleHit, 1000, attacker, cid, valor, races) --alterado v1.6

else

doTargetCombatHealth(getCreatureMaster(attacker), cid, damageCombat, -valor, -valor, 255)

if criticalHit > 1 then

doSendAnimatedText(getThingPos(cid), valor .. " STK", 180)

--[[else

doSendAnimatedText(getThingPos(cid), valor, combats[damageCombat].cor)--]]

end

end

-- Return --

if isSummon(cid) and isPlayer(getCreatureMaster(cid)) then

local master = getCreatureMaster(cid)

local ball = getPlayerSlotItem(master, 8)

local returnBonus = getHeldBonusValue(ball.uid, 'x', 'Return')

if returnBonus > 0 then

if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

doCreatureAddHealth(attacker, -(valor * returnBonus), 3, 182)

else

doCreatureAddHealth(attacker, -((valor * returnBonus) * 5), 3, 182)

end

end

end

-- Return --

else

if combat ~= COMBAT_PHYSICALDAMAGE then

doCreatureAddHealth(cid, -math.abs(valor), 3, combats[damageCombat].cor)

else

doCreatureAddHealth(cid, -math.abs(valor), 3, races[getMonsterInfo(getCreatureName(cid)).race].cor)

addEvent(doDoubleHit, 1000, attacker, cid, valor, races) --alterado v1.6

end

-- Return --

if isSummon(cid) and isPlayer(getCreatureMaster(cid)) then

local master = getCreatureMaster(cid)

local ball = getPlayerSlotItem(master, 8)

local returnBonus = getHeldBonusValue(ball.uid, 'x', 'Return')

if returnBonus > 0 then

if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

doCreatureAddHealth(attacker, -(valor * returnBonus), 3, 182)

else

doCreatureAddHealth(attacker, -((valor * returnBonus) * 5), 3, 182)

end

end

end

-- Return --

if isSummon(cid) and valor ~= 0 then

--addEvent(sendPlayerDmgMsg, 5, getCreatureMaster(cid), "Seu "..getCreatureName(cid).." perdeu "..valor.." de vida pelo attack do "..getSomeoneDescription(attacker)..".")

end

end

if damageCombat == FIREDAMAGE and not isBurning(cid) then

local antiburnheld = 0

local hellfire = 1

if isSummon(cid) and isPlayer(getCreatureMaster(cid)) then

antiburnheld = getHeldBonusValue(getPlayerSlotItem(getCreatureMaster(cid),8).uid, 'y', 'Antiburn')

end

if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

hellfire = getHeldBonusValue(getPlayerSlotItem(getCreatureMaster(attacker),8).uid, 'x', 'Hellfire')

end

hellfire = hellfire > 0 and hellfire or 1

local ret = {}

ret.id = cid

ret.cd = math.random(5, 12)

ret.check = getPlayerStorageValue(cid, conds["Burn"])

ret.damage = isSummon(attacker) and (getMasterLevel(attacker)+getPokemonBoost(attacker)) * hellfire or getPokemonLevel(attacker)

ret.cond = "Burn"

doCondition2(ret)

elseif damageCombat == POISONDAMAGE and not isPoisoned(cid) then

local antipoisonheld = 0

local xpoison = 1

if isSummon(cid) and isPlayer(getCreatureMaster(cid)) then

antipoisonheld = getHeldBonusValue(getPlayerSlotItem(getCreatureMaster(cid),8).uid, 'y', 'Poison')

end

if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

xpoison = getHeldBonusValue(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, 'x', 'Poison')

end

xpoison = xpoison > 0 and xpoison or 1

local ret = {}

ret.id = cid

ret.cd = math.random(6, 15)

ret.check = getPlayerStorageValue(cid, conds["Poison"])

ret.damage = math.floor(((getPokemonLevel(attacker))/2)*xpoison)

ret.cond = "Poison"

doCondition2(ret)

end

--[[---------------CD BAR-----------------------

if isSummon(cid) then

doCreatureExecuteTalkAction(getCreatureMaster(cid), "/pokeread")

end ]]

------------------------------------POTIONS-------------------------------------------

if isSummon(cid) and type == STATSCHANGE_HEALTHLOSS then

if getPlayerStorageValue(cid, 173) >= 1 then

if damageCombat ~= BURNEDDAMAGE and damageCombat ~= POISONEDDAMAGE then

setPlayerStorageValue(cid, 173, -1) --alterado v1.6

doSendAnimatedText(getThingPos(cid), "LOST HEAL", 144)

end

end

end

----------------------------------------PASSIVAS------------------------------------- --alterado v1.6 \/ todas as passivas agora estao em lib/pokemon moves.lua

-------------------------------------------Counter Helix------------------------------------

if passivesChances["Helix"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Helix"][getCreatureName(cid)] then

docastspell(cid, "Counter Helix")

end

-------------------------------------------Lava-Counter----------------------------

if passivesChances["Lava"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Lava"][getCreatureName(cid)] then

docastspell(cid, "Lava-Counter")

end

-------------------------------------------ice-Counter----------------------------

if passivesChances["Ice"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Ice"][getCreatureName(cid)] then

docastspell(cid, "Ice-Counter")

end

-------------------------------------------ground-Counter----------------------------

if passivesChances["Ground"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Ground"][getCreatureName(cid)] then

docastspell(cid, "Ground-Counter")

end

-------------------------------------------water-Counter----------------------------

if passivesChances["Water"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Water"][getCreatureName(cid)] then

docastspell(cid, "Water-Counter")

end

-------------------------------------------psy-Counter----------------------------

if passivesChances["Psy"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Psy"][getCreatureName(cid)] then

docastspell(cid, "Psy-Counter")

end

-------------------------------------------dark-Counter----------------------------

if passivesChances["Dark"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Dark"][getCreatureName(cid)] then

docastspell(cid, "Dark-Counter")

end

-------------------------------------------leaf-Counter----------------------------

if passivesChances["Leaf"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Leaf"][getCreatureName(cid)] then

docastspell(cid, "Leaf-Counter")

end

-------------------------------------------Shock-Counter----------------------------

if passivesChances["Shock"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Shock"][getCreatureName(cid)] then

docastspell(cid, "Shock-Counter")

end

-------------------------------------------Bone Spin----------------------------

if passivesChances["Bone"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Bone"][getCreatureName(cid)] then

docastspell(cid, "Bone-Spin")

end

---------------------------------------Stunning Confusion-----------------------------------------

if passivesChances["Stunning"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Stunning"][getCreatureName(cid)] then

docastspell(cid, "Stunning Confusion")

end

--------------------------------------Electric Charge---------------------------------------------

if passivesChances["Electric Charge"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Electric Charge"][getCreatureName(cid)] then

docastspell(cid, "Electric Charge", 0, 0)

end

-------------------------------------Melody------------------------------------

if passivesChances["Melody"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Melody"][getCreatureName(cid)] then

docastspell(cid, "Melody")

end

------------------------------------- Dragon Fury / Fury ---------------------------------------

if passivesChances["Dragon Fury"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Dragon Fury"][getCreatureName(cid)] then

docastspell(cid, "Dragon Fury", 0, 0)

end

------------------------------------- Mega Drain ---------------------------------------

if passivesChances["Mega Drain"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Mega Drain"][getCreatureName(cid)] then

docastspell(cid, "Mega Drain")

end

------------------------------------- Spores Reaction ---------------------------------------

if passivesChances["Spores Reaction"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Spores Reaction"][getCreatureName(cid)] then

docastspell(cid, "Spores Reaction")

end

------------------------------------ Amnesia ----------------------------------------

if passivesChances["Amnesia"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Amnesia"][getCreatureName(cid)] then

docastspell(cid, "Amnesia", 0, 0)

end

----------------------------------- Zen Mind -----------------------------------------

if passivesChances["Zen Mind"][getCreatureName(cid)] and isWithCondition(cid) and math.random(1, 100) <= passivesChances["Zen Mind"][getCreatureName(cid)] then

docastspell(cid, "Zen Mind", 0, 0)

end

---------------------------------- Mirror Coat ---------------------------------------

if passivesChances["Mirror Coat"][getCreatureName(cid)] and math.random(1, 80) <= passivesChances["Mirror Coat"][getCreatureName(cid)] then

docastspell(cid, "Mirror Coat", 0, 0)

end

--------------------------------- Illusion -----------------------------------------

return false

end

segue onde ta dando os erros.

elseif spell == "Absorb" then
    if isCreature(target) then
        local life = getCreatureHealth(target)
        doAreaCombatHealth(cid, GRASSDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 14)
        local newlife = life - getCreatureHealth(target)
        doSendMagicEffect(getThingPosWithDebug(cid), 14)
        if newlife >= 1 then
            doCreatureAddHealth(cid, newlife)
            doSendAnimatedText(getThingPosWithDebug(cid), "+"..newlife.."", 32)
        end
    end
    
----------------------------------------------------------------------------------------------------------
function onEquip (cid, item, slot)

    if not cid then return true end
    if item.uid <= 0 then return true end

    if not getItemAttribute(item.uid, "poke") then
        return true
    end
    
    for i, x in pairs(fotos) do
        if string.lower(getItemAttribute(item.uid, "poke")) == string.lower(i) then
            doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos[i])
            return true
        end
    end
end

function onDeEquip(cid, item, slot)

    if not cid then return true end
    if item.uid <= 0 then return true end

    if not getItemAttribute(item.uid, "poke") then
        return true
    end
    local feet = getPlayerSlotItem(cid, CONST_SLOT_LEGS)
    if feet.uid > 0 then
        doTransformItem(feet.uid, 2395)
    end
end

Esse outro bagulho gigante vou ler nao, preguiça :3

elseif spell == "Absorb" then
    if isCreature(target) then
        local life = getCreatureHealth(target)
        doAreaCombatHealth(cid, GRASSDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 14)
        local newlife = life - getCreatureHealth(target)
        doSendMagicEffect(getThingPosWithDebug(cid), 14)
        if newlife >= 1 then
            doCreatureAddHealth(cid, newlife)
            doSendAnimatedText(getThingPosWithDebug(cid), "+"..newlife.."", 32)
        end
    end
    
----------------------------------------------------------------------------------------------------------
function onEquip (cid, item, slot)

    if not cid then return true end
    if item.uid <= 0 then return true end

    if not getItemAttribute(item.uid, "poke") then
        return true
    end
    
    for i, x in pairs(fotos) do
        if string.lower(getItemAttribute(item.uid, "poke")) == string.lower(i) then
            doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos[i])
            return true
        end
    end
end

function onDeEquip(cid, item, slot)

    if not cid then return true end
    if item.uid <= 0 then return true end

    if not getItemAttribute(item.uid, "poke") then
        return true
    end
    local feet = getPlayerSlotItem(cid, CONST_SLOT_LEGS)
    if feet.uid > 0 then
        doTransformItem(feet.uid, 2395)
    end
end

Esse outro bagulho gigante vou ler nao, preguiça :3

 

corrigi os que vc posto e ainda nao deu mais esses erros so esses dois aq.

[06/10/2015 10:08:53] [Error - TalkAction Interface]

[06/10/2015 10:08:53] In a timer event called from:

[06/10/2015 10:08:53] data/talkactions/scripts/move1.lua:onSay

[06/10/2015 10:08:53] Description:

[06/10/2015 10:08:53] (luaGetThingPosition) Thing not found

[06/10/2015 10:08:54] [Error - TalkAction Interface]

[06/10/2015 10:08:54] In a timer event called from:

[06/10/2015 10:08:54] data/talkactions/scripts/move1.lua:onSay

[06/10/2015 10:08:54] Description:

[06/10/2015 10:08:54] data/lib/pokemon moves.lua:6388: bad argument #1 to 'random' (interval is empty)

[06/10/2015 10:08:54] stack traceback:

[06/10/2015 10:08:54] [C]: in function 'random'

[06/10/2015 10:08:54] data/lib/pokemon moves.lua:6388: in function <data/lib/pokemon moves.lua:6381>

vo posta aq as linhas que ta os erros sepuder ajudar.

elseif spell == "Flash Fire Kik" then

local config = {

times = 6, --Vezes que o pokémon irá se teleportar.

appearEffect = 101, --Efeito que vai aparecer no pokémon ao aparecer.

effect = 111, --Efeito de corte de garras.

combat = STEELDAMAGE, --Elemento.

disappearInterval = 200, --Tempo para, depois de reaparecer, o pokémon desaparecer novamente. (em milésimos de segundo)

teleportInterval = 800 --Intervalo de tempo entre cada teleporte do pokémon. (em milésimos de segundo)

}

local pos = getPosfromArea(cid, spell_area)

local randomPosis = {}

for i = 1, config.times do

randomPosis = pos[math.random(#pos)]

if not isWalkable(randomPosis) or getTileInfo(randomPosis).protection then

while not isWalkable(randomPosis) do

randomPosis = pos[math.random(#pos)]

end

end

end

local function doTeleport(cid, time)

if not isCreature(cid) then return true end

if not isCreature(target) or time <= 0 then

doAppear(cid)

doCreatureSetNoMove(cid, false)

doRegainSpeed(cid)

end

local index = math.random(#randomPosis)

doTeleportThing(cid, randomPosis[index])

for i = index, #randomPosis do

randomPosis = randomPosis[i + 1] or nil

end

doAppear(cid)

doSendMagicEffect(getThingPos(cid), config.appearEffect)

doDanoWithProtect(cid, config.combat, getThingPos(target), 0, -min, -max, config.effect)

addEvent(doDisapear, config.disappearInterval, cid)

addEvent(doTeleport, config.teleportInterval, cid, time - 1)

end

doDisapear(cid)

doCreatureSetNoMove(cid, true)

doChangeSpeed(cid, -getCreatureSpeed(cid))

addEvent(doTeleport, config.teleportInterval, cid, config.times)

essa e uma magia que o zipter crio pra mim mais ta dando esse erro quando e usada.e tipo quando o poke morre e o poke usando a magia nao acha um target pra hita da erros e a magia continua sendo usada.

se puder ajudar agradeço desde ja. ps. o zipter nao respondeu sobre o erro mandei pm pra ele e nada.

obrigado pelas ajuda ae amigo vlw.

Entao, a linha que ta dando erro é essa aqui:

local index = math.random(#randomPosis)

A tabela randomPosis ta chegando vazia, dai a função math.random ta recebendo parametro nil. Dai o erro interval is empty

O que eu posso fazer por hora e impedir o erro de acontecer, mas não sei como isso vai afetar a execução da função em si, da uma testada ai:

elseif spell == "Flash Fire Kik" then
    local config = {
        times = 6,                  --Vezes que o pokémon irá se teleportar.
        appearEffect = 101,         --Efeito que vai aparecer no pokémon ao aparecer.
        effect = 111,               --Efeito de corte de garras.
        combat = STEELDAMAGE,       --Elemento.
        disappearInterval = 200,    --Tempo para, depois de reaparecer, o pokémon desaparecer novamente. (em milésimos de segundo)
        teleportInterval = 800     --Intervalo de tempo entre cada teleporte do pokémon. (em milésimos de segundo)
    }
 
    local pos = getPosfromArea(cid, spell_area)
    local randomPosis = {}
    for i = 1, config.times do
        randomPosis[i] = pos[math.random(#pos)]
        if not isWalkable(randomPosis[i]) or getTileInfo(randomPosis[i]).protection then
            while not isWalkable(randomPosis[i]) do
                randomPosis[i] = pos[math.random(#pos)]
            end
        end
    end
 
    local function doTeleport(cid, time, randomPosis)
        if not isCreature(cid) then return true end
        if not isCreature(target) or time <= 0 then
            doAppear(cid)
            doCreatureSetNoMove(cid, false)
            doRegainSpeed(cid)
        end
        if #randomPosis < 1 then return end
        
        local index = math.random(#randomPosis)
        doTeleportThing(cid, randomPosis[index])
        for i = index, #randomPosis do
            randomPosis[i] = randomPosis[i + 1] or nil
        end
        doAppear(cid)
        doSendMagicEffect(getThingPos(cid), config.appearEffect)
        doDanoWithProtect(cid, config.combat, getThingPos(target), 0, -min, -max, config.effect)
        addEvent(doDisapear, config.disappearInterval, cid)
        addEvent(doTeleport, config.teleportInterval, cid, time - 1, randomPosis)
    end
 
    doDisapear(cid)
    doCreatureSetNoMove(cid, true)
    doChangeSpeed(cid, -getCreatureSpeed(cid))
    addEvent(doTeleport, config.teleportInterval, cid, config.times, randomPosis)

 

Entao, a linha que ta dando erro é essa aqui:

local index = math.random(#randomPosis)

A tabela randomPosis ta chegando vazia, dai a função math.random ta recebendo parametro nil. Dai o erro interval is empty

O que eu posso fazer por hora e impedir o erro de acontecer, mas não sei como isso vai afetar a execução da função em si, da uma testada ai:

elseif spell == "Flash Fire Kik" then
    local config = {
        times = 6,                  --Vezes que o pokémon irá se teleportar.
        appearEffect = 101,         --Efeito que vai aparecer no pokémon ao aparecer.
        effect = 111,               --Efeito de corte de garras.
        combat = STEELDAMAGE,       --Elemento.
        disappearInterval = 200,    --Tempo para, depois de reaparecer, o pokémon desaparecer novamente. (em milésimos de segundo)
        teleportInterval = 800     --Intervalo de tempo entre cada teleporte do pokémon. (em milésimos de segundo)
    }
 
    local pos = getPosfromArea(cid, spell_area)
    local randomPosis = {}
    for i = 1, config.times do
        randomPosis[i] = pos[math.random(#pos)]
        if not isWalkable(randomPosis[i]) or getTileInfo(randomPosis[i]).protection then
            while not isWalkable(randomPosis[i]) do
                randomPosis[i] = pos[math.random(#pos)]
            end
        end
    end
 
    local function doTeleport(cid, time, randomPosis)
        if not isCreature(cid) then return true end
        if not isCreature(target) or time <= 0 then
            doAppear(cid)
            doCreatureSetNoMove(cid, false)
            doRegainSpeed(cid)
        end
        if #randomPosis < 1 then return end
        
        local index = math.random(#randomPosis)
        doTeleportThing(cid, randomPosis[index])
        for i = index, #randomPosis do
            randomPosis[i] = randomPosis[i + 1] or nil
        end
        doAppear(cid)
        doSendMagicEffect(getThingPos(cid), config.appearEffect)
        doDanoWithProtect(cid, config.combat, getThingPos(target), 0, -min, -max, config.effect)
        addEvent(doDisapear, config.disappearInterval, cid)
        addEvent(doTeleport, config.teleportInterval, cid, time - 1, randomPosis)
    end
 
    doDisapear(cid)
    doCreatureSetNoMove(cid, true)
    doChangeSpeed(cid, -getCreatureSpeed(cid))
    addEvent(doTeleport, config.teleportInterval, cid, config.times, randomPosis)

ae man os eerro do portrait continuam ainda aq mesmo fazendo a correçao que vc me passou. tem como tu me passa o skype ae vemos oq pode ser tentei da goto pra ver se é algum poke especifico que tao usando aq mais nao da sempre que vo nos cara e testos os pokes que tao usando bem como os que tao caçando eles tao normais ae do nada volta a da o maldito erro e trava todo server. peço por favor se puder me passar o skype resolvemos aq vlw.

Coloque os scripts em code caso contrario fica difícil conseguir ajuda-lo.

Tópico Movido
Este tópico foi movido de "OTServ → Suporte OTServ → Suporte Spriting"
para "OTServ → Suporte OTServ → Suporte Spriting → Pedidos e dúvidas resolvidos - Spriting".