qro deichar essa spell com exausted help?
elseif pokemon.x.spell == "Agility" thenlocal pos = getThingPos(getCreatureTarget(cid))
local pos2 = getThingPos(getCreatureTarget(cid))
local pos3 = getThingPos(getCreatureSummons(cid)[1])
pos.x = pos.x + math.random(-1,1)
pos.y = pos.y + math.random(-1,1)
if hasSqm(pos) then
if getTileThingByPos(pos) and getTileThingByPos(pos).itemid >= 1 and not isInArray({919, 460, 4820, 4821, 4822, 4823, 4824, 4825}, getTileThingByPos(pos).itemid) and isWalkable(pos) then
pos = getClosestFreeTile(getCreatureTarget(cid), pos)
doSendMagicEffect(pos3, 211)
doTeleportThing(getCreatureSummons(cid)[1], pos, false)
doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 159)
else
local newpos = getClosestFreeTile(getCreatureTarget(cid), pos)
doSendMagicEffect(pos3, 211)
doTeleportThing(getCreatureSummons(cid)[1], newpos, false)
doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 159)
end
else
doSendMagicEffect(pos3, 211)
doTeleportThing(getCreatureSummons(cid)[1], pos3, false)
doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 159)
end
doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)
doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)
