[Encerrado] [Pokemon] Dúvidas? - Pda

samuelitho · Julho 13, 2012

@Kurobisu monster nao quita sangre al player y cuando doy catch a un monster nao aparece catch

AsMinaPira · Julho 13, 2012

@stylomaldoso

Mano mt quadrado esse teu mapa, tenta lêr uns tutoriais na seção dos mappers.

Meus mapas eram assim, agora li uns tutoriais e meus mapas ficaram bem melhores.

@samuelitho

sobre os pokemons não estarem tirando vida do character, tens que baixar uma pequena atualização do Slicer, e o sistema de catch sempre funcionou perfeitamente aqui em relação a aumentar o n° deles.

samuelitho · Julho 13, 2012

quando ataco um poke selvagem ou ele me ataca, não ranca nada de Hp. Auguem poderia me ajuda com esse erro?

Kurobisu · Julho 13, 2012

Alguém aí sabe se ja conseguiram arrumar o bug da porcaria do move1.lua?

O bug maldito, com esse bug não dá pra deixar o Ot aberto durante muito tempo. Depois ele automaticamente se fecha, aí fica dificiu.

@samuelitho

Velho vê se pega o patch do nibelins ou utiliza a minha sign pra concertar issu, se você tiver pelo o menos uma base ja da pra implantar issu no seu OT.

ALGUÉM AJUDA NO (MOVE1.LUA) A COISA TA FICANDO DIFICIU!

Do Rep+ Durante acho que o mês inteiro se alguém me ajudar em 2 Erros!

[13/07/2012 18:47:11] [Error - Spell Interface]

[13/07/2012 18:47:12] data/spells/scripts/ps/String Shot.lua:onCastSpell

[13/07/2012 18:47:12] Description:

[13/07/2012 18:47:12] data/lib/pokemon moves.lua:479: attempt to call global 'doAdvancedBlind' (a nil value)

[13/07/2012 18:47:12] stack traceback:

[13/07/2012 18:47:12] data/lib/pokemon moves.lua:479: in function 'docastspell'

[13/07/2012 18:47:12] data/spells/scripts/ps/String Shot.lua:5: in function <data/spells/scripts/ps/String Shot.lua:1>

Issu aí é alguma coisa do ( pokemon moves.lua ):

Pokemon Moves.lua (Abaixo):

<p>const_distance_delay = 56

local hitmonchans = {

["Hitmonchan"] = {

[0] = {out = 559, eff = 112}, --outfit normal

[1] = {out = 1075, eff = 35}, --outfit fogo

[2] = {out = 1077, eff = 48}, --outfit raio

[3] = {out = 1078, eff = 43}, --outfit gelo

[4] = {out = 1076, eff = 140} --outfit ghost

},

["Shiny Hitmonchan"] = {

--aconcelho trocar a outfit do shiny hitmonchan pela do elite hitmonchan do PO...

[0] = {out = 837, eff = 112}, --outfit normal

[1] = {out = 1080, eff = 35}, --outfit fogo

[2] = {out = 1081, eff = 48}, --outfit raio

[3] = {out = 1082, eff = 43}, --outfit gelo

[4] = {out = 1079, eff = 140} --outfit ghost

}

function getMasterTarget(cid)

return getCreatureTarget(getCreatureMaster(cid))

end

function doAreaCombatWithDelay(cid, target, pos, area, type, effect, a, b)

if not isCreature(cid) then return true end

local topos = {}

if isCreature(target) then topos = getThingPosWithDebug(target) else topos = pos end

doAreaCombatHealth(cid, type, topos, area, -math.abs(a), -math.abs(b), effect)

end

function doAreaCombatHealthAtDistance(cid, type, pos, area, min, max, effect)

local delay = 0

if isCreature(cid) and isCreature(getMasterTarget(cid)) then

delay = getDistanceBetween(getThingPosWithDebug(cid), getThingPosWithDebug(getMasterTarget(cid))) * const_distance_delay

addEvent(doAreaCombatWithDelay, delay, cid, getMasterTarget(cid), getThingPosWithDebug(getMasterTarget(cid)), area, type, effect, -min, -max)

return true

end

doAreaCombatHealth(cid, type, pos, area, min, max, effect)

end

function docastspell(cid, spell, mina, maxa)

local getThingPositionWithDebug = getThingPosWithDebug

if not isCreature(cid) or getCreatureHealth(cid) <= 0 then return false end

if isSleeping(cid) then return true end

if getPlayerStorageValue(cid, 6) >= 1 then doSendAnimatedText(getThingPositionWithDebug(cid), "DISABLED", 152) return true end

if isMonster(cid) and not isSummon(cid) then

if getCreatureCondition(cid, CONDITION_EXHAUST) then

return true

end

doCreatureAddCondition(cid, wildexhaust)

end

local mydir = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

local target = 0

local getDistDelay = 0

if isCreature(getMasterTarget(cid)) then

target = getMasterTarget(cid)

getDistDelay = getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) * const_distance_delay

end

local movetype = getSpecialAttack(cid)

local min = 0

local max = 0

local healMultiplier = 1

if mina and maxa then

min = math.abs(mina)

max = math.abs(maxa)

elseif not isPlayer(cid) then

if movesinfo[spell] then

if movesinfo[spell].t == "fighting" then

movetype = getOffense(cid) * 1.4 + getSpecialAttack(cid) * 0.45

elseif movesinfo[spell].t == "normal" then

movetype = movetype * 0.6 + getOffense(cid) * 0.6

end

min = 5 + getPokemonLevel(cid) + (movesinfo[spell].f / 100 * movetype * specialoffenseRate)

max = min + getPokemonLevel(cid) * levelFactor

if not isSummon(cid) then

doCreatureSay(cid, string.upper(spell).."!", TALKTYPE_MONSTER)

end

if isNpcSummon(cid) then

local mnn = {" use ", " "}

local use = mnn[math.random(#mnn)]

doCreatureSay(getCreatureMaster(cid), getPlayerStorageValue(cid, 1007)..","..use..""..doCorrectString(spell).."!", 1)

end

else

print("Error trying to use move "..spell..", move not specified in moves table.")

end

--- CONFUSED -------------------------------

if getPlayerStorageValue(cid, 3891) >= 1 then

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

doSendAnimatedText(getThingPositionWithDebug(cid), "SELF HIT", 180)

doTargetCombatHealth(cid, cid, COMBAT_PHYSICALDAMAGE, -min/3, -max/3, 3)

return true

end

--- BLIND ----------------------------------

if getPlayerStorageValue(cid, 3890) >= 1 then

doSendAnimatedText(getThingPositionWithDebug(cid), "MISS", 215)

setPlayerStorageValue(cid, 3890, -1)

return true

end

--- FOCUS ----------------------------------

if getPlayerStorageValue(cid, 253) >= 0 and movesinfo[spell] and movesinfo[spell].f ~= 0 then

min = min * 3

max = max * 3

healMultiplier = 3

setPlayerStorageValue(cid, 253, -1)

end

---- MIMIC ---------------------------------

setPlayerStorageValue(cid, 877, spell)

---- COUNTER -------------------------------

if isCreature(target) and getPlayerStorageValue(target, 879) >= 1 and getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) <= 2 and spell ~= "Counter" then

if movesinfo[spell] and movesinfo[spell].t == "fighting" or movesinfo[spell].t == "normal" then

if not isInArray({"Hyper Beam", "Hyper Voice", "Counter"}, spell) then

docastspell(target, spell, min * 2, max * 2)

doSendAnimatedText(getThingPositionWithDebug(target), "COUNTER", 215)

setPlayerStorageValue(target, 879, -1)

end

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

if spell == "Dynamic Punch" then

local dirs = {

[1] = 0,

[2] = 4,

[3] = 6,

[4] = 1,

[5] = 3,

[6] = 2

}

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 112)

local targetarea = getThingPositionWithDebug(getMasterTarget(cid))

for effcs = 1, 6 do

addEvent(doSendMagicEffect, 150 * effcs, getPosByDir(getThingPositionWithDebug(getMasterTarget(cid)), dirs[effcs]), 17)

end

elseif spell == "Quick Attack" then

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local x = getClosestFreeTile(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doTeleportThing(cid, x, false)

doFaceCreature(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Slam" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 118)

elseif spell == "Rapid Hit" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

local hitalvo = getMasterTarget(cid)

local function sendef(cid)

if isCreature(cid) then

doSendMagicEffect(getThingPositionWithDebug(cid), 3)

end

for times = 0, 3 do

addEvent(sendef, 200*times+80, hitalvo)

end

elseif spell == "Bite" or tonumber(spell) == 5 then

doAreaCombatHealth(cid, DARKDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 146)

elseif spell == "Slash" or tonumber(spell) == 6 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 160)

elseif spell == "Splash" or tonumber(spell) == 7 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

doSendMagicEffect(getThingPositionWithDebug(cid), 53)

elseif spell == "Doubleslap" then

local slapalvo = getMasterTarget(cid)

local summon = cid

local function doSlap(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

addEvent(doSlap, 0, summon, slapalvo)

addEvent(doSlap, 600, summon, slapalvo)

elseif spell == "Mega Punch" then

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 112)

elseif spell == "Scratch" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 142)

elseif spell == "Confusion" then

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(cid), confusion, -min, -max, 133)

elseif spell == "Psychic" then

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(cid), psychic, -min, -max, 136)

elseif spell == "Absorb" or spell == "Leech Life" then

local life = getCreatureHealth(getMasterTarget(cid))

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 14)

local newlife = life - getCreatureHealth(getMasterTarget(cid))

doSendMagicEffect(getThingPositionWithDebug(cid), 14)

if newlife >= 1 then

doCreatureAddHealth(cid, newlife)

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

end

elseif spell == "Mud Shot" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 1)

local function doEffect(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 34)

if math.random(1, 100) >= 78 then

local rounds = math.random(6, 10)

rounds = rounds + math.floor(getPokemonLevel(cid) / 20)

doAdvancedBlind(target, rounds, getPlayerStorageValue(target, 3890), 34)

end

addEvent(doEffect, getDistDelay, cid, target)

elseif spell == "Bubbles" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 2)

doAreaCombatHealthAtDistance(cid, WATERDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 25)

elseif spell == "Water Spout" then

doSendDistanceShoot(getThingPositionWithDebug(cid), {x=getThingPositionWithDebug(cid).x, y=getThingPositionWithDebug(cid).y-5, z=getThingPositionWithDebug(cid).z}, 2)

local function spout(params)

if isCreature(params.cid) then

for x = -2,2 do

for y = -2,2 do

local newpos = getThingPositionWithDebug(params.cid)

newpos.x = newpos.x+x

newpos.y = newpos.y+y

doSendDistanceShoot({x=getThingPositionWithDebug(params.cid).x, y=getThingPositionWithDebug(params.cid).y-5, z=getThingPositionWithDebug(params.cid).z}, newpos, 2)

end

local function spdmg(params)

if isCreature(params.cid) then

doAreaCombatHealth(params.cid, WATERDAMAGE, getThingPositionWithDebug(params.cid), waterspout, -min, -max, 68)

end

addEvent(spout, 300, {cid = cid})

addEvent(spdmg, 450, {cid = cid})

elseif spell == "Horn Attack" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 15)

--doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

addEvent(doAreaCombatWithDelay, getDistDelay, cid, target, getThingPositionWithDebug(target), 0, NORMALDAMAGE, 3, -min, -max)

elseif spell == "Rock Throw" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 11)

doAreaCombatHealthAtDistance(cid, ROCKDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Headbutt" or spell == "Pound" or spell == "Tackle" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Super Sonic" or spell == "Confuse Ray" then

local target = getMasterTarget(cid)

local rounds = math.random(4, 7)

rounds = rounds + math.floor(getPokemonLevel(cid) / 35)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 32)

doAdvancedConfuse(target, rounds, getPlayerStorageValue(target, 3891))

elseif spell == "Fury Attack" then

local alvo = getMasterTarget(cid)

local function doFuryAttack(cid, target, round, rounds)

if not isCreature(cid) then return true end

if round > rounds then

doSendAnimatedText(getThingPositionWithDebug(cid), ""..rounds.." HITS", 35)

return true

end

if isCreature(getMasterTarget(cid)) and getMasterTarget(cid) ~= target then

doSendAnimatedText(getThingPositionWithDebug(cid), ""..rounds.." HITS", 35)

return true

end

if not isCreature(getMasterTarget(cid)) then

doSendAnimatedText(getThingPositionWithDebug(cid), ""..rounds.." HITS", 35)

return true

end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 15)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

addEvent(doFuryAttack, 700, cid, target, round + 1, rounds)

end

local ther = math.random(1, 200)

if ther <= 75 then

maxr = 2

elseif ther >= 76 and ther <= 100 then

maxr = 4

elseif ther >= 101 and ther <= 175 then

maxr = 3

elseif ther >= 176 then

maxr = 5

end

doFuryAttack(cid, alvo, 1, maxr)

elseif spell == "Water Gun" then

if mydir == 0 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1n, -min, -max, 74)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2n, -min, -max, 75)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3n, -min, -max, 76)

elseif mydir == 2 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1s, -min, -max, 77)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2s, -min, -max, 75)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3s, -min, -max, 78)

elseif mydir == 1 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1e, -min, -max, 69)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2e, -min, -max, 70)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3e, -min, -max, 71)

elseif mydir == 3 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1w, -min, -max, 72)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2w, -min, -max, 70)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3w, -min, -max, 73)

end

elseif spell == "Peck" then

doAreaCombatHealth(cid, FLYINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Pluck" then

doAreaCombatHealth(cid, FLYINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), pluck, -min, -max, 2)

elseif spell == "Sand Attack" then

local posicao = getThingPositionWithDebug(cid)

local function sandattack(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(params.cid, GROUNDDAMAGE, params.ar, sand1, -min, -max, params.ef)

end

if mydir == 0 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y-1, z=posicao.z}, ef = 120})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}, ef = 120})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}, ef = 120})

elseif mydir == 2 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y+1, z=posicao.z}, ef = 122})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}, ef = 122})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}, ef = 122})

elseif mydir == 1 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x+1, y=posicao.y, z=posicao.z}, ef = 121})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}, ef = 121})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}, ef = 121})

elseif mydir == 3 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x-1, y=posicao.y, z=posicao.z}, ef = 119})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}, ef = 119})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}, ef = 119})

end

elseif spell == "Spark" then

local function spark(params)

if isCreature(params.cid) then

doSendDistanceShoot(getThingPositionWithDebug(params.cid), params.cidpos, 40)

doAreaCombatHealth(cid, ELECTRICDAMAGE, params.cidpos, 0, -min, -max, 48)

end

for a = -1, 1 do

for b = -1, 1 do

cidpos = getThingPositionWithDebug(cid)

cidpos.x = cidpos.x+a

cidpos.y = cidpos.y+b

addEvent(spark, math.abs(a)*350 + math.abs(b)*650, {cid = cid, cidpos = cidpos})

end

elseif spell == "Razor Leaf" then

local alvo = getMasterTarget(cid)

local function throw(cid, target)

if isCreature(cid) then

if isCreature(target) then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 8)

addEvent(doAreaCombatWithDelay, getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) * 60, cid, target, getThingPositionWithDebug(target), 0, GRASSDAMAGE, 3, -min, -max)

end

addEvent(throw, 0, cid, alvo)

addEvent(throw, 550, cid, alvo)

elseif spell == "Waterball" then

local function throw(params)

if isCreature(params.cid) then

if isCreature(getMasterTarget(params.cid)) then

doSendDistanceShoot(getThingPositionWithDebug(params.cid), getThingPositionWithDebug(getMasterTarget(params.cid)), 2)

addEvent(doAreaCombatWithDelay, getDistDelay, cid, target, getThingPositionWithDebug(target), waba, WATERDAMAGE, 68, -min, -max)

end

addEvent(throw, 0, {cid = cid})

elseif spell == "Restore" or spell == "Selfheal" or spell == "Recover" then

local amount = getSpecialAttack(cid) * 2 * healMultiplier

doSendMagicEffect(getThingPositionWithDebug(cid), 14)

doCreatureAddHealth(cid, amount)

doSendAnimatedText(getThingPositionWithDebug(cid), "+"..amount.."", 35)

elseif spell == "Acid" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 14)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 20)

elseif spell == "Thundershock" or spell == "Thunder Shock" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 40)

doAreaCombatHealthAtDistance(cid, ELECTRICDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 48)

elseif spell == "Water Pulse" then

local function throw(params)

if isCreature(params.cid) then

if isCreature(getMasterTarget(params.cid)) then

doSendDistanceShoot(getThingPositionWithDebug(params.cid), getThingPositionWithDebug(getMasterTarget(params.cid)), 33)

addEvent(doAreaCombatWithDelay, getDistDelay, cid, target, getThingPositionWithDebug(target), 0, WATERDAMAGE, 68, -min, -max)

end

addEvent(throw, 0, {cid = cid})

elseif spell == "String Shot" then

local target = getMasterTarget(cid)

local rounds = math.random(6, 10)

rounds = rounds + math.floor(getPokemonLevel(cid) / 20)

doAdvancedBlind(target, rounds, getPlayerStorageValue(target, 3890), 137)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 23)

elseif spell == "Thunder Wave" then

if mydir == 0 then

doAreaCombatHealth(cid, THUNDERWAVEDAMAGE, getThingPositionWithDebug(cid), tsn, -min, -max, 48)

elseif mydir == 1 then

doAreaCombatHealth(cid, THUNDERWAVEDAMAGE, getThingPositionWithDebug(cid), tse, -min, -max, 48)

elseif mydir == 2 then

doAreaCombatHealth(cid, THUNDERWAVEDAMAGE, getThingPositionWithDebug(cid), tss, -min, -max, 48)

elseif mydir == 3 then

doAreaCombatHealth(cid, THUNDERWAVEDAMAGE, getThingPositionWithDebug(cid), tsw, -min, -max, 48)

end

elseif spell == "Leech Seed" then

local leecher = cid

local leeched = getMasterTarget(cid)

local dmg = 1.5 * getPokemonLevel(cid)

local function drain(cid, target)

if isCreature(cid) and isCreature(target) then

local life = getCreatureHealth(target)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(target), 0, -dmg, -dmg, 45)

local newlife = life - getCreatureHealth(leeched)

if newlife >= 1 then

doSendMagicEffect(getThingPositionWithDebug(leecher), 14)

doCreatureAddHealth(leecher, newlife)

doSendAnimatedText(getThingPositionWithDebug(leecher), "+"..newlife.."", 32)

end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 1)

for rounds = 1, 5 do

addEvent(drain, 2000 * rounds, leecher, leeched)

end

elseif spell == "Sludge" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 6)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 116)

elseif spell == "Poison Sting" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 15)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 8)

elseif spell == "Bug Bite" then

doAreaCombatHealth(cid, BUGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Pin Missile" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 13)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Rock Slide" then

local function doRockHurt(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 44)

end

local function doFallRock(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

pos.x = pos.x + math.random(-3, 1)

local ry = math.random(5, 7)

pos.y = pos.y - ry

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 11)

addEvent(doRockHurt, ry * 52, cid, target)

end

local alvo = getMasterTarget(cid)

for rocks = 0, 4 do

addEvent(doFallRock, rocks * 65, cid, alvo)

end

elseif spell == "Gust" then

local posicao = getThingPositionWithDebug(cid)

local function gust(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, FLYINGDAMAGE, params.ar, sand1, -min, -max, 42)

end

if mydir == 0 then

for b = 0, 3 do

addEvent(gust, 350 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y-(b+1), z=posicao.z}})

end

elseif mydir == 2 then

for b = 0, 3 do

addEvent(gust, 350 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y+(b+1), z=posicao.z}})

end

elseif mydir == 1 then

for b = 0, 3 do

addEvent(gust, 350 * b, {cid = cid, ar = {x=posicao.x+(1+b), y=posicao.y, z=posicao.z}})

end

elseif mydir == 3 then

for b = 0, 3 do

addEvent(gust, 350 * b, {cid = cid, ar = {x=posicao.x-(1+b), y=posicao.y, z=posicao.z}})

end

elseif spell == "Whirlwind" then

local posicao = getThingPositionWithDebug(cid)

local function wwind(params)

if isCreature(cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, FLYINGDAMAGE, params.ar, params.br, -min, -max, 42)

end

if mydir == 0 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y-1, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}, br = whirl3})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}, br = whirl5})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x, y=posicao.y-4, z=posicao.z}, br = whirl5})

elseif mydir == 2 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y+1, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}, br = whirl3})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}, br = whirl5})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x, y=posicao.y+4, z=posicao.z}, br = whirl5})

elseif mydir == 1 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x+1, y=posicao.y, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}, br = whirl52})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x+4, y=posicao.y, z=posicao.z}, br = whirl52})

elseif mydir == 3 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x-1, y=posicao.y, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}, br = whirl52})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x-4, y=posicao.y, z=posicao.z}, br = whirl52})

end

elseif spell == "Hyper Fang" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 159)

elseif spell == "Rollout" then

if getCreatureName(cid) == "Voltorb" then

doSetCreatureOutfit(cid, voltorb, 8300)

elseif getCreatureName(cid) == "Electrode" then

doSetCreatureOutfit(cid, electrode, 8300)

elseif getCreatureName(cid) == "Sandshrew" then

doSetCreatureOutfit(cid, sandshrew, 8300)

elseif getCreatureName(cid) == "Sandslash" then

doSetCreatureOutfit(cid, sandslash, 8300)

elseif getCreatureName(cid) == "Phanpy" then

doSetCreatureOutfit(cid, phanpy, 8300)

elseif getCreatureName(cid) == "Dolphan" then

doSetCreatureOutfit(cid, dolphan, 8300)

elseif getCreatureName(cid) == "Miltank" then

doSetCreatureOutfit(cid, miltank, 8300)

elseif getCreatureName(cid) == "Golem" then

doSetCreatureOutfit(cid, golem, 8300)

elseif getCreatureName(cid) == "Shiny Electrode" then

doSetCreatureOutfit(cid, shinyelectrode, 8300)

elseif getCreatureName(cid) == "Shiny Sandshrew" then

doSetCreatureOutfit(cid, shinysandshrew, 8300)

elseif getCreatureName(cid) == "Shiny Sandslash" then

doSetCreatureOutfit(cid, shinysandslash, 8300)

elseif getCreatureName(cid) == "Shiny Golem" then

doSetCreatureOutfit(cid, shinygolem, 8300)

elseif getCreatureName(cid) == "Shiny Voltorb" then

doSetCreatureOutfit(cid, shinyvoltorb, 8300)

end

doCreatureAddCondition(cid, rollspeedcondition)

local outfit = getCreatureOutfit(cid).lookType

local function roll(cid, outfit)

if not isCreature(cid) then return true end

if getCreatureOutfit(cid).lookType ~= outfit then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

end

for r = 1, 8 do

addEvent(roll, 750 * r, cid, outfit)

end

elseif spell == "Vine Whip" then

local area = getThingPositionWithDebug(cid)

local dano = {}

local effect = 255

if mydir == 0 then

area.x = area.x + 1

area.y = area.y - 1

dano = whipn

effect = 80

elseif mydir == 1 then

area.x = area.x + 2

area.y = area.y + 1

dano = whipe

effect = 83

elseif mydir == 2 then

area.x = area.x + 1

area.y = area.y + 2

dano = whips

effect = 81

elseif mydir == 3 then

area.x = area.x - 1

area.y = area.y + 1

dano = whipw

effect = 82

end

doSendMagicEffect(area, effect)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), dano, -min, -max, 255)

elseif spell == "Psycho Shift" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 39)

doAreaCombatHealthAtDistance(cid, PSYCHOSHIFTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 134)

elseif spell == "Poison Bomb" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 14)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), bomb, -min, -max, 114)

elseif spell == "Toxic Needle" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 15)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 8)

elseif spell == "Harden" then

local function effect(params)

if isCreature(params.cid) then

doSendMagicEffect(getThingPositionWithDebug(params.cid), 144)

end

local function doReduceDefense(cid, qnt)

if not isCreature(cid) then return true end

local a = getDefense(cid)

setPlayerStorageValue(cid, 1002, a - qnt)

end

local function doDoubleDefense(cid)

if not isCreature(cid) then return true end

local a = getDefense(cid)

setPlayerStorageValue(cid, 1002, a * 2)

local b = getDefense(cid)

local c = b - a

addEvent(doReduceDefense, 11 * 1500 + 40, cid, c)

end

doDoubleDefense(cid)

for times = 0, 11 do

addEvent(effect, 1500 * times + 40, {cid = cid})

end

elseif spell == "Fireball" then

doSendMoveEffect(cid, getMasterTarget(cid), 3)

local function damage(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), waba, -min, -max, 5)

end

addEvent(damage, 100, cid, getMasterTarget(cid))

elseif spell == "Toxic" then

if mydir == 0 then

areaa = toxicn

elseif mydir == 1 then

areaa = toxice

elseif mydir == 2 then

areaa = toxics

elseif mydir == 3 then

areaa = toxicw

end

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(cid), areaa, -min, -max, 114)

elseif spell == "Aqua Tail" then

local function rebackSpd(cid, sss)

if not isCreature(cid) then return true end

doChangeSpeed(cid, sss)

setPlayerStorageValue(cid, 446, -1)

end

local x = getCreatureSpeed(cid)

doFaceOpposite(cid)

doChangeSpeed(cid, -x)

addEvent(rebackSpd, 400, cid, x)

setPlayerStorageValue(cid, 446, 1)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 68)

elseif spell == "Fire Fang" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 146)

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 15)

end

addEvent(doBite, 200, cid, target)

elseif spell == "Psy Pulse" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 24)

doAreaCombatHealthAtDistance(cid, PSYCHICDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 136)

elseif spell == "Ember" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 3)

doAreaCombatHealthAtDistance(cid, FIREDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 15)

elseif spell == "Wing Attack" then

local damagearea = {}

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

damagearea = wingdn

elseif a == 1 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 129

damagearea = wingde

elseif a == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 131

damagearea = wingds

elseif a == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

damagearea = wingdw

end

doSendMagicEffect(effectpos, effect)

doAreaCombatHealth(cid, FLYINGDAMAGE, getThingPositionWithDebug(cid), damagearea, -min, -max, CONST_ME_NONE)

elseif spell == "Poisonous Wing" then

local damagearea = {}

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

damagearea = wingdn

elseif a == 1 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 129

damagearea = wingde

elseif a == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 131

damagearea = wingds

elseif a == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

damagearea = wingdw

end

doSendMagicEffect(effectpos, effect)

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(cid), damagearea, -min, -max, 114)

elseif spell == "Mud Bomb" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 38)

local function doDamageWithDelay(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), bomb, -min, -max, 116)

doAreaCombatHealth(cid, null, getThingPositionWithDebug(getMasterTarget(cid)), bomb, 0, 0, 34)

if math.random(1, 100) >= 50 then

local rounds = math.random(6, 10)

rounds = rounds + math.floor(getPokemonLevel(cid) / 20)

doAdvancedBlind(target, rounds, getPlayerStorageValue(target, 3890), 34)

end

addEvent(doDamageWithDelay, getDistDelay, cid, target)

elseif spell == "Sonicboom" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 33)

doAreaCombatHealthAtDistance(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 1)

elseif spell == "Flamethrower" then

local flamepos = getThingPositionWithDebug(cid)

local effect = 255

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

flamepos.x = flamepos.x+1

flamepos.y = flamepos.y-1

effect = 106

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), flamen, -min, -max, 255)

elseif a == 1 then

flamepos.x = flamepos.x+3

flamepos.y = flamepos.y+1

effect = 109

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), flamee, -min, -max, 255)

elseif a == 2 then

flamepos.x = flamepos.x+1

flamepos.y = flamepos.y+3

effect = 107

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), flames, -min, -max, 255)

elseif a == 3 then

flamepos.x = flamepos.x-1

flamepos.y = flamepos.y+1

effect = 108

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), flamew, -min, -max, 255)

end

doSendMagicEffect(flamepos, effect)

elseif spell == "Selfdestruct" then

setPlayerStorageValue(cid, 33, 1)

local function death(params)

if isCreature(params.cid) then

doCreatureAddHealth(params.cid, -getCreatureMaxHealth(cid))

end

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), destruct1, -min, -max, 5)

addEvent(doAreaCombatHealth, 150, cid, NORMALDAMAGE, getThingPositionWithDebug(cid), destruct2, -(min*0.7), -(max*0.8), 5)

addEvent(doAreaCombatHealth, 250, cid, NORMALDAMAGE, getThingPositionWithDebug(cid), destruct3, -(min*0.4), -(max*0.5), 5)

addEvent(death, 250, {cid = cid})

elseif spell == "Drill Peck" then

doAreaCombatHealth(cid, FLYDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 110)

local hitalvo = getMasterTarget(cid)

local function hit(cid, target)

if isCreature(cid) and isCreature(target) then

if getMasterTarget(cid) == target then

doAreaCombatHealth(cid, FLYDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 110)

end

addEvent(hit, 480, cid, hitalvo)

addEvent(hit, 880, cid, hitalvo)

elseif spell == "Dizzy Punch" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 26)

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

local rounds = getPokemonLevel(cid) / 12

rounds = rounds + 2

doAdvancedConfuse(target, rounds, getPlayerStorageValue(target, 3891))

elseif spell == "Poison Gas" then

local function gas(params)

if not isCreature(params.cid) then return true end

doAreaCombatHealth(params.cid, POISONDAMAGE, getThingPositionWithDebug(cid), bomb2, -min, -max, 114)

end

addEvent(gas, 000, {cid = cid, cb = cb})

addEvent(gas, 500, {cid = cid, cb = cb})

addEvent(gas, 1000, {cid = cid, cb = cb})

addEvent(gas, 1500, {cid = cid, cb = cb})

addEvent(gas, 2300, {cid = cid, cb = cb})

addEvent(gas, 2800, {cid = cid, cb = cb})

addEvent(gas, 3300, {cid = cid, cb = cb})

addEvent(gas, 3800, {cid = cid, cb = cb})

addEvent(gas, 4600, {cid = cid, cb = cb})

addEvent(gas, 5100, {cid = cid, cb = cb})

elseif spell == "Twister" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 36)

doAreaCombatHealthAtDistance(cid, DRAGONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 42)

elseif spell == "Rock Tomb" then

local rock1 = {}

local rock2 = {}

local rock3 = {}

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

rock1 = {x=getThingPositionWithDebug(cid).x+1, y=getThingPositionWithDebug(cid).y-1, z=getThingPositionWithDebug(cid).z}

rock2 = {x=getThingPositionWithDebug(cid).x+0, y=getThingPositionWithDebug(cid).y-1, z=getThingPositionWithDebug(cid).z}

rock3 = {x=getThingPositionWithDebug(cid).x-1, y=getThingPositionWithDebug(cid).y-1, z=getThingPositionWithDebug(cid).z}

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(cid), tombn, -min, -max, 118)

elseif a == 2 then

rock1 = {x=getThingPositionWithDebug(cid).x+1, y=getThingPositionWithDebug(cid).y+1, z=getThingPositionWithDebug(cid).z}

rock2 = {x=getThingPositionWithDebug(cid).x+0, y=getThingPositionWithDebug(cid).y+1, z=getThingPositionWithDebug(cid).z}

rock3 = {x=getThingPositionWithDebug(cid).x-1, y=getThingPositionWithDebug(cid).y+1, z=getThingPositionWithDebug(cid).z}

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(cid), tombs, -min, -max, 118)

elseif a == 3 then

rock1 = {x=getThingPositionWithDebug(cid).x-1, y=getThingPositionWithDebug(cid).y+1, z=getThingPositionWithDebug(cid).z}

rock2 = {x=getThingPositionWithDebug(cid).x-1, y=getThingPositionWithDebug(cid).y+0, z=getThingPositionWithDebug(cid).z}

rock3 = {x=getThingPositionWithDebug(cid).x-1, y=getThingPositionWithDebug(cid).y-1, z=getThingPositionWithDebug(cid).z}

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(cid), tombw, -min, -max, 118)

elseif a == 1 then

rock1 = {x=getThingPositionWithDebug(cid).x+1, y=getThingPositionWithDebug(cid).y+1, z=getThingPositionWithDebug(cid).z}

rock2 = {x=getThingPositionWithDebug(cid).x+1, y=getThingPositionWithDebug(cid).y+0, z=getThingPositionWithDebug(cid).z}

rock3 = {x=getThingPositionWithDebug(cid).x+1, y=getThingPositionWithDebug(cid).y-1, z=getThingPositionWithDebug(cid).z}

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(cid), tombe, -min, -max, 118)

end

doSendDistanceShoot(getThingPositionWithDebug(cid), rock1, 11)

doSendDistanceShoot(getThingPositionWithDebug(cid), rock2, 11)

doSendDistanceShoot(getThingPositionWithDebug(cid), rock3, 11)

elseif spell == "Discharge" then

local function discharge(cid, time)

if not isCreature(cid) then

return true

end

if time == 0 then

doSendAnimatedText(getThingPositionWithDebug(cid), "CHARGING", 210)

doSendMagicEffect(getThingPositionWithDebug(cid), 48)

addEvent(discharge, 1000, cid, time + 1)

return true

end

if math.random(1, 100) >= 78 then

doCreatureSay(cid, "DISCHARGE!", TALKTYPE_MONSTER)

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), charge, -(min*(time)), -(max*(time)), 48)

else

if time >= 6 then

doSendAnimatedText(getThingPositionWithDebug(cid), "FAIL", 215)

return true

end

doSendAnimatedText(getThingPositionWithDebug(cid), "CHARGING", 210)

doSendMagicEffect(getThingPositionWithDebug(cid), 48)

addEvent(discharge, 1000, cid, time + 1)

return true

end

discharge(cid, 0)

elseif spell == "Mega Prick" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 25)

doAreaCombatHealthAtDistance(cid, BUGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Gunk Shot" then

local target = getMasterTarget(cid)

local function rocksdown(cid, target, pos)

if not isCreature(cid) then return true end

if not isCreature(target) then return true end

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 6)

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), tresportres, -min, -max, 116)

end

local function rocksup(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

local posa = getThingPositionWithDebug(cid)

local posb = getThingPositionWithDebug(target)

local xx = 0

if posb.x < posa.x then

xx = -1

end

local posc = posa

posc.x = posc.x + xx

posc.y = posc.y - 3

doSendDistanceShoot(getThingPositionWithDebug(cid), posc, 6)

addEvent(rocksdown, 300, cid, target, posc)

end

rocksup(cid, target)

elseif spell == "Tornado" then

local pos = getThingPositionWithDebug(cid)

local function tornado(cid, area, effect, type)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, type, pos, area, -min, -max, effect)

end

addEvent(tornado, 0, cid, tor1, CONST_ME_POFF, null)

addEvent(tornado, 200, cid, tor1, 42, FLYDAMAGE)

addEvent(tornado, 500, cid, tor2, CONST_ME_POFF, null)

addEvent(tornado, 700, cid, tor2, 42, FLYDAMAGE)

addEvent(tornado, 1000, cid, tor3, CONST_ME_POFF, null)

addEvent(tornado, 1200, cid, tor3, 42, FLYDAMAGE)

addEvent(tornado, 750, cid, tor1, CONST_ME_POFF, null)

addEvent(tornado, 1250, cid, tor2, CONST_ME_POFF, null)

addEvent(tornado, 1550, cid, tor3, CONST_ME_POFF, null)

elseif spell == "Psybeam" then

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid), true) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), bmn, -min, -max, 57)

elseif a == 2 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), bms, -min, -max, 58)

elseif a == 1 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), bme, -min, -max, 234)

elseif a == 3 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), bmw, -min, -max, 209)

end

elseif spell == "Leaf Storm" or tonumber(spell) == 73 then

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), grassarea, -min, -max, 255)

local pos = getThingPositionWithDebug(cid)

local function doSendLeafStorm(cid, pos)

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 8)

end

for a = 1, 250 do

local lugar = {x = pos.x + math.random(-9, 9), y = pos.y + math.random(-8, 8), z = pos.z}

addEvent(doSendLeafStorm, a * 2, cid, lugar)

end

elseif spell == "Ranging Blast" then

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), rageblast1, -min, -max, 6)

local function damage(cid, area)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), area, -min, -max, 6)

end

addEvent(damage, 200, cid, rageblast2)

addEvent(damage, 400, cid, rageblast3)

addEvent(damage, 600, cid, rageblast4)

addEvent(damage, 800, cid, rageblast5)

elseif spell == "Tri Attack" or spell == "Tri-attack" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 226)

elseif spell == "Petal Dance" or tonumber(spell) == 76 then

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), grassarea, -min, -max, 255)

local lugar = getThingPositionWithDebug(cid)

for x= -7,7 do

for y= -6,6 do

local topos = {x=lugar.x+x, y=lugar.y+y, z=lugar.z}

doSendDistanceShoot(getThingPositionWithDebug(cid), topos, 21)

end

elseif spell == "Dragon Pulse" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 24)

doAreaCombatHealthAtDistance(cid, DRAGONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 136)

elseif spell == "Zap Cannon" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 34)

doAreaCombatHealthAtDistance(cid, ELECTRICDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), zap, -min, -max, 11)

elseif spell == "Charge Beam" then

for pa = -2, 2 do

for pb = -2, 2 do

local pos = getThingPositionWithDebug(cid)

pos.x = pos.x+pa

pos.y = pos.y+pb

doSendDistanceShoot(pos, getThingPositionWithDebug(cid), 40)

end

local function dmgbeam(cid)

if not isCreature(cid) then return true end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), beamn, -min, -max, 48)

elseif a == 1 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), beame, -min, -max, 48)

elseif a == 2 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), beams, -min, -max, 48)

elseif a == 3 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), beamw, -min, -max, 48)

end

addEvent(dmgbeam, 700, cid)

elseif spell == "Slime Wave" then

local function slime(cid, area)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, POISONDAMAGE, area, wave, -min, -max, 116)

doAreaCombatHealth(cid, null, area, wave, -min, -max, 114)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

local posicao = getThingPositionWithDebug(cid)

if a == 0 then

addEvent(slime, 0, cid, {x=posicao.x, y=posicao.y-1, z=posicao.z})

addEvent(slime, 150, cid, {x=posicao.x, y=posicao.y-2, z=posicao.z})

addEvent(slime, 300, cid, {x=posicao.x, y=posicao.y-3, z=posicao.z})

addEvent(slime, 450, cid, {x=posicao.x, y=posicao.y-4, z=posicao.z})

elseif a == 1 then

addEvent(slime, 0, cid, {x=posicao.x+1, y=posicao.y, z=posicao.z})

addEvent(slime, 150, cid, {x=posicao.x+2, y=posicao.y, z=posicao.z})

addEvent(slime, 300, cid, {x=posicao.x+3, y=posicao.y, z=posicao.z})

addEvent(slime, 450, cid, {x=posicao.x+4, y=posicao.y, z=posicao.z})

elseif a == 2 then

addEvent(slime, 0, cid, {x=posicao.x, y=posicao.y+1, z=posicao.z})

addEvent(slime, 150, cid, {x=posicao.x, y=posicao.y+2, z=posicao.z})

addEvent(slime, 300, cid, {x=posicao.x, y=posicao.y+3, z=posicao.z})

addEvent(slime, 450, cid, {x=posicao.x, y=posicao.y+4, z=posicao.z})

elseif a == 3 then

addEvent(slime, 0, cid, {x=posicao.x-1, y=posicao.y, z=posicao.z})

addEvent(slime, 150, cid, {x=posicao.x-2, y=posicao.y, z=posicao.z})

addEvent(slime, 300, cid, {x=posicao.x-3, y=posicao.y, z=posicao.z})

addEvent(slime, 450, cid, {x=posicao.x-4, y=posicao.y, z=posicao.z})

end

elseif spell == "Earthshock" then

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(cid), eshock, -min, -max, 255)

local sps = getThingPositionWithDebug(cid)

sps.x = sps.x+1

sps.y = sps.y+1

doSendMagicEffect(sps, 127)

elseif spell == "Solar Beam" then

local function useSolarBeam(cid)

if not isCreature(cid) then

return true

end

if isSleeping(cid) then

return true

end

local effect1 = 255

local effect2 = 255

local effect3 = 255

local effect4 = 255

local effect5 = 255

local area = {}

local pos1 = getThingPositionWithDebug(cid)

local pos2 = getThingPositionWithDebug(cid)

local pos3 = getThingPositionWithDebug(cid)

local pos4 = getThingPositionWithDebug(cid)

local pos5 = getThingPositionWithDebug(cid)

if getCreatureLookDir(cid) == 1 then

effect1 = 4

effect2 = 10

effect3 = 10

effect4 = 10

effect5 = 26

pos1.x = pos1.x + 2

pos1.y = pos1.y + 1

pos2.x = pos2.x + 3

pos2.y = pos2.y + 1

pos3.x = pos3.x + 4

pos3.y = pos3.y + 1

pos4.x = pos4.x + 5

pos4.y = pos4.y + 1

pos5.x = pos5.x + 6

pos5.y = pos5.y + 1

area = solare

elseif getCreatureLookDir(cid) == 0 then

effect1 = 36

effect2 = 37

effect3 = 37

effect4 = 38

pos1.x = pos1.x + 1

pos1.y = pos1.y - 1

pos2.x = pos2.x + 1

pos2.y = pos2.y - 3

pos3.x = pos3.x + 1

pos3.y = pos3.y - 4

pos4.x = pos4.x + 1

pos4.y = pos4.y - 5

area = solarn

elseif getCreatureLookDir(cid) == 2 then

effect1 = 46

effect2 = 50

effect3 = 50

effect4 = 59

pos1.x = pos1.x + 1

pos1.y = pos1.y + 2

pos2.x = pos2.x + 1

pos2.y = pos2.y + 3

pos3.x = pos3.x + 1

pos3.y = pos3.y + 4

pos4.x = pos4.x + 1

pos4.y = pos4.y + 5

area = solars

elseif getCreatureLookDir(cid) == 3 then

effect1 = 115

effect2 = 162

effect3 = 162

effect4 = 162

effect5 = 163

pos1.x = pos1.x - 1

pos1.y = pos1.y + 1

pos2.x = pos2.x - 3

pos2.y = pos2.y + 1

pos3.x = pos3.x - 4

pos3.y = pos3.y + 1

pos4.x = pos4.x - 5

pos4.y = pos4.y + 1

pos5.x = pos5.x - 6

pos5.y = pos5.y + 1

area = solarw

end

if effect1 ~= 255 then

doSendMagicEffect(pos1, effect1)

end

if effect2 ~= 255 then

doSendMagicEffect(pos2, effect2)

end

if effect3 ~= 255 then

doSendMagicEffect(pos3, effect3)

end

if effect4 ~= 255 then

doSendMagicEffect(pos4, effect4)

end

if effect5 ~= 255 then

doSendMagicEffect(pos5, effect5)

end

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), area, -min, -max, 255)

doRegainSpeed(cid)

end

local function ChargingBeam(cid)

if not isCreature(cid) then

return true

end

if isSleeping(cid) then

return true

end

local tab = {}

for x = -2, 2 do

for y = -2, 2 do

local pos = getThingPositionWithDebug(cid)

pos.x = pos.x + x

pos.y = pos.y + y

if pos.x ~= getThingPositionWithDebug(cid).x and pos.y ~= getThingPositionWithDebug(cid).y then

table.insert(tab, pos)

end

doSendDistanceShoot(tab[math.random(#tab)], getThingPositionWithDebug(cid), 37)

end

doChangeSpeed(cid, -getCreatureSpeed(cid))

for r = 1, 270 do

addEvent(ChargingBeam, r*9, cid)

end

addEvent(useSolarBeam, 2800, cid)

elseif spell == "Sleep Powder" then

local calc = math.floor(getPokemonLevel(cid) / 20)

local v1 = 6

local v2 = v1 + calc

doAreaCombatHealth(cid, SLEEP_POWDERDAMAGE, getThingPositionWithDebug(cid), powders, -v1, -v2, 27)

elseif spell == "Stun Spore" then

local area = powders

doAreaCombatCondition(cid, getThingPositionWithDebug(cid), area, stunsporecondition, 85)

elseif spell == "Poison Powder" then

local v1 = (10 + getPokemonLevel(cid)) * 2

setPlayerStorageValue(cid, 919231, v1)

local v3 = getPokemonLevel(cid) / 10 + 5

doAreaCombatHealth(cid, POISON_POWDERDAMAGE, getThingPositionWithDebug(cid), powders, -v3, -v3, 84)

elseif spell == "Body Slam" then

doBodyPush(cid, target, true)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Bullet Seed" then

local function doShootBulletSeed(cid, target, shoot, effect)

if not isCreature(cid) or not isCreature(target) then return true end

if getCreatureHealth(target) <= 0 then return true end

if shoot then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 1)

end

if effect then

doSendMagicEffect(getThingPositionWithDebug(target), effect)

end

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

end

for a = 1, 9 do

if a == 3 or a == 6 or a == 9 then

addEvent(doShootBulletSeed, a * 65, cid, getMasterTarget(cid), true, 45)

else

addEvent(doShootBulletSeed, a * 65, cid, getMasterTarget(cid), true, 3)

end

elseif spell == "Fire Spin" then

local function sendFireEff(cid, dir)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getPosByDir(getThingPositionWithDebug(cid), dir), 0, -min, -max, 15)

end

local function doSpinFire(cid)

if not isCreature(cid) then return true end

local t = {

[1] = SOUTHWEST,

[2] = SOUTH,

[3] = SOUTHEAST,

[4] = EAST,

[5] = NORTHEAST,

[6] = NORTH,

[7] = NORTHWEST,

[8] = WEST,

[17] = SOUTHWEST,

}

for a = 1, 17 do

if not t[a] then

addEvent(sendFireEff, a * 140, cid, t[a-8])

else

addEvent(sendFireEff, a * 140, cid, t[a])

end

doSpinFire(cid, false, cid)

elseif spell == "Burning Skin" then

local function doBurnSkin(cid)

if not isCreature(cid) then return true end

doSendMagicEffect(getThingPositionWithDebug(cid), 15)

for a = 0, 7 do

local pos = getPosByDir(getThingPositionWithDebug(cid), a)

local man = getTopCreature(pos).uid

if isCreature(man) then

doAreaCombatHealth(cid, FIREDAMAGE, pos, 0, -min, -max, 255)

end

for b = 1, 10 do

addEvent(doBurnSkin, b * 650, cid)

end

elseif spell == "Fire Blast" then

local posicao = getThingPositionWithDebug(cid)

local function fireBlast(cid, area1, area2, effect, area3)

if not isCreature(cid) then return true end

if not isSightClear(posicao, area1, false) then return true end

doAreaCombatHealth(cid, null, area1, 0, -min, -max, effect)

if area2.x ~= getThingPositionWithDebug(cid).x or area2.y ~= getThingPositionWithDebug(cid).y then

doAreaCombatHealth(cid, null, area2, area3, -min, -max, 35)

end

doAreaCombatHealth(cid, FIREDAMAGE, area1, area3, -min, -max, 35)

end

local m = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if m == 0 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x, y = posicao.y - (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y - a, z = posicao.z}, 60, whirl3)

end

elseif m == 2 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x, y = posicao.y + (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y + a, z = posicao.z}, 62, whirl3)

end

elseif m == 1 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x + a + 1, y = posicao.y, z = posicao.z}, {x = posicao.x + a, y = posicao.y, z = posicao.z}, 61, whirl3)

end

elseif m == 3 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x - (a + 1), y = posicao.y, z = posicao.z}, {x = posicao.x - a, y = posicao.y, z = posicao.z}, 63, whirl3)

end

elseif spell == "Bubble Blast" then

local pos = getThingPositionWithDebug(cid)

local function doSendBubble(cid, pos)

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 2)

doSendMagicEffect(pos, 53)

doAreaCombatHealth(cid, WATERDAMAGE, pos, 0, -min, -max, 1)

end

for b = 1, 3 do

for a = 1, 20 do

local lugar = {x = pos.x + math.random(-4, 4), y = pos.y + math.random(-3, 3), z = pos.z}

addEvent(doSendBubble, a * 75, cid, lugar)

end

elseif spell == "Jet Cannons" then

local function doWaterGun(cid, pos, effectlist, arealist)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, WATERDAMAGE, pos, arealist[1], -min, -max, effectlist[1])

doAreaCombatHealth(cid, WATERDAMAGE, pos, arealist[2], -min, -max, effectlist[2])

doAreaCombatHealth(cid, WATERDAMAGE, pos, arealist[3], -min, -max, effectlist[3])

end

local pos = getThingPositionWithDebug(cid)

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

local list = {74, 75, 76}

local lisx = {jg1n, jg2n, jg3n}

doWaterGun(cid, pos, list, lisx)

elseif a == 2 then

local list = {77, 75, 78}

local lisx = {jg1s, jg2s, jg3s}

doWaterGun(cid, pos, list, lisx)

elseif a == 1 then

local list = {69, 70, 71}

local lisx = {jg1e, jg2e, jg3e}

doWaterGun(cid, pos, list, lisx)

elseif a == 3 then

local list = {72, 70, 73}

local lisx = {jg1w, jg2w, jg3w}

doWaterGun(cid, pos, list, lisx)

end

elseif spell == "Surf" then

local posicao = getThingPositionWithDebug(cid)

local function doSurf(cid, area1, area2, effect)

if not isCreature(cid) then return true end

if not isSightClear(posicao, area1, false) then return true end

doAreaCombatHealth(cid, null, area1, whirl3, -min, -max, effect)

if area2.x ~= getThingPositionWithDebug(cid).x or area2.y ~= getThingPositionWithDebug(cid).y then

doAreaCombatHealth(cid, null, area2, whirl3, -min, -max, 68)

end

doAreaCombatHealth(cid, WATERDAMAGE, area1, whirl3, -min, -max, 68)

end

local n = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if n == 0 then

for a = 0, 5 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x, y = posicao.y - (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y - a, z = posicao.z}, 66)

end

elseif n == 2 then

for a = 0, 5 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x, y = posicao.y + (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y + a, z = posicao.z}, 64)

end

elseif n == 1 then

for a = 0, 5 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x + a + 1, y = posicao.y, z = posicao.z}, {x = posicao.x + a, y = posicao.y, z = posicao.z}, 67)

end

elseif n == 3 then

for a = 0, 5 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x - (a + 1), y = posicao.y, z = posicao.z}, {x = posicao.x - a, y = posicao.y, z = posicao.z}, 65)

end

elseif spell == "Hydro Pump" then

local function doUpdateHydroPumpPos(cid, pos)

if isCreature(cid) then

return getThingPositionWithDebug(cid)

else

return pos

end

local function doSendHydroPump(pos, base)

if base then

doSendMagicEffect(pos, 53)

end

local topos = {x = pos.x, y = pos.y, z = pos.z}

topos.x = topos.x + math.random(-1, 1)

local random = math.random(-6, -4)

topos.y = topos.y + random

doSendDistanceShoot(pos, topos, 2)

addEvent(doSendMagicEffect, math.abs(random) * 50, topos, 1)

end

local target = getMasterTarget(cid)

local pos = getThingPositionWithDebug(target)

for a = 1, 18 do

local backup = pos

pos = doUpdateHydroPumpPos(target, backup)

if a == 3 or a == 6 or a == 9 or a == 12 or a == 15 or a == 18 then

addEvent(doSendHydroPump, a * 55, pos, true)

else

addEvent(doSendHydroPump, a * 55, pos, false)

end

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 255)

elseif spell == "Skull Bash" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 118)

elseif spell == "Sing" then

doAreaCombatHealth(cid, SLEEP_POWDERDAMAGE, getThingPositionWithDebug(cid), powders, -6, -10, 33)

local pos = getThingPositionWithDebug(cid)

local function doSing(cid, effect, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, null, pos, powders, 0, 0, effect)

end

elseif spell == "Invisible" or spell == "GhostInvisible" then

if getPokemonLevel(cid) <= 40 then

doCreatureAddCondition(cid, weakinvisible)

else

doCreatureAddCondition(cid, stronginvisible)

end

doSendMagicEffect(getThingPositionWithDebug(cid), 134)

elseif spell == "Mach Punch" then

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local x = getClosestFreeTile(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doTeleportThing(cid, x, false)

doFaceCreature(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 112)

elseif spell == "Hypnosis" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 24)

doAreaCombatHealthAtDistance(cid, SLEEP_POWDERDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -5, -9, 255)

elseif spell == "Extreme Speed" or tonumber(spell) == 102 then

doCreatureAddCondition(cid, permanentinvisible)

local x = getCreatureSpeed(cid)

local target = getMasterTarget(cid)

doChangeSpeed(cid, -x)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local function doFinishExtremeSpeed(cid, target, x)

if not isCreature(cid) then return true end

if not isCreature(target) then doRemoveCondition(cid, CONDITION_INVISIBLE) return true end

doTeleportThing(cid, getClosestFreeTile(cid, getThingPositionWithDebug(target)), false)

doRemoveCondition(cid, CONDITION_INVISIBLE)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

doFaceCreature(cid, getThingPositionWithDebug(target))

doChangeSpeed(cid, x)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

local function doExtremeSpeed(cid, target, x)

if not isCreature(cid) then return true end

if not isCreature(target) then

doRemoveCondition(cid, CONDITION_INVISIBLE)

doChangeSpeed(cid, x)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

return true

end

if getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) <= 1 then

doSendMagicEffect(getPosByDir(getThingPositionWithDebug(target), math.random(0, 7)), 211)

else

local dir = getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target))

doSendMagicEffect(getPosByDir(getThingPositionWithDebug(cid), dir), 211)

doTeleportThing(cid, getPosByDir(getThingPositionWithDebug(cid), dir), false)

end

for a = 1, 6 do

addEvent(doExtremeSpeed, 60 * a, cid, target, x)

end

addEvent(doFinishExtremeSpeed, 60 * 6, cid, target, x)

elseif spell == "Zen Headbutt" then

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 136)

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Mega Kick" or spell == "Low Kick" then

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 113)

elseif spell == "Double Punch" then

local target = getMasterTarget(cid)

local function doPunch(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 112)

end

addEvent(doPunch, 0, cid, target)

addEvent(doPunch, 600, cid, target)

elseif spell == "Triple Punch" then

local target = getMasterTarget(cid)

local function doPunch(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 112)

end

addEvent(doPunch, 0, cid, target)

addEvent(doPunch, 600, cid, target)

addEvent(doPunch, 1200, cid, target)

elseif spell == "Double Kick" then

local target = getMasterTarget(cid)

local function doKick(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 113)

end

addEvent(doKick, 0, cid, target)

addEvent(doKick, 600, cid, target)

elseif spell == "Triple Kick" then

local target = getMasterTarget(cid)

local function doKick(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 113)

end

addEvent(doKick, 0, cid, target)

addEvent(doKick, 600, cid, target)

addEvent(doKick, 1200, cid, target)

elseif spell == "Hi Jump Kick" then

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local x = getClosestFreeTile(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doTeleportThing(cid, x, false)

doFaceCreature(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 113)

elseif spell == "Focus Punch" then

local function doFocusPunch(cid)

if not isCreature(cid) then return true end

doSendMagicEffect(getThingPositionWithDebug(cid), 247)

end

local function useFocusPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 249)

end

local target = getMasterTarget(cid)

for a = 1, 8 do

addEvent(doFocusPunch, a * 160, cid)

end

addEvent(useFocusPunch, 160 * 8 + 1000, cid, target)

elseif spell == "Omnikick" then

doCreatureAddCondition(cid, permanentinvisible)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local t = {NORTHWEST, NORTHEAST, SOUTHWEST, SOUTHEAST, SOUTH, WEST, EAST, NORTH}

local function doRandomDK(cid, target, t, damage)

if not isCreature(cid) or not isCreature(target) then return true end

local a = t[math.random(1, 8)]

local pos = getPosByDir(getThingPositionWithDebug(target), a)

doSendMagicEffect(pos, 211)

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 19)

if damage then

doTeleportThing(cid, pos, false)

doFaceCreature(cid, getThingPositionWithDebug(target))

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

local target = getMasterTarget(cid)

local function doEndDK(cid)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_INVISIBLE)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

end

for a = 1, 24 do

if a == 8 or a == 16 or a == 24 then

addEvent(doRandomDK, a * 75, cid, target, t, true)

else

addEvent(doRandomDK, a * 75, cid, target, t, false)

end

addEvent(doEndDK, 24 * 75, cid)

elseif spell == "Crunch" then

doAreaCombatHealth(cid, DARKDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 138)

elseif spell == "Thunder Fang" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 146)

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

end

addEvent(doBite, 200, cid, target)

elseif spell == "Poison Fang" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 146)

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 114)

end

addEvent(doBite, 200, cid, target)

elseif spell == "Ice Fang" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 146)

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 43)

end

addEvent(doBite, 200, cid, target)

elseif spell == "Aqua Jet" then

for a = -7, 7 do

for b = -6, 6 do

local pos = getThingPositionWithDebug(cid)

local place = {x=pos.x+a,y=pos.y+b,z=pos.z}

doSendDistanceShoot(getThingPositionWithDebug(cid), place, 2)

end

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), grassarea, -min, -max, 255)

elseif spell == "Hyper Cut" then

local target = getMasterTarget(cid)

local apos = getThingPositionWithDebug(target)

local bpos = getThingPositionWithDebug(cid)

local function doCut(cid, pos)

if not isCreature(cid) then doSendMagicEffect(pos, 160) return true end

doAreaCombatHealth(cid, NORMALDAMAGE, pos, 0, -min, -max, 160)

end

local t = {

[1] = {x = apos.x + 1, y = apos.y - 1, z = apos.z},

[2] = {x = apos.x - 1, y = apos.y + 1, z = apos.z},

[3] = {x = apos.x - 1, y = apos.y - 1, z = apos.z},

[4] = {x = apos.x + 1, y = apos.y + 1, z = apos.z}}

local delay = 0

if (bpos.x == apos.x + 1 and bpos.y == apos.y + 1) or (bpos.x == apos.x - 1 and bpos.y == apos.y - 1) then

doCut(cid, t[1])

addEvent(doCut, 200, cid, apos)

addEvent(doCut, 400, cid, t[2])

else

doCut(cid, t[3])

addEvent(doCut, 200, cid, apos)

addEvent(doCut, 400, cid, t[4])

end

elseif spell == "Psyshock" then

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid), true) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tsn, -min, -max, 47)

elseif a == 1 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tse, -min, -max, 47)

elseif a == 2 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tss, -min, -max, 47)

elseif a == 3 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tsw, -min, -max, 47)

end

elseif spell == "Psywave" then

local mydir = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid), true) or getCreatureLookDir(cid)

if mydir == 0 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tsn, -min, -max, 136)

elseif mydir == 1 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tse, -min, -max, 136)

elseif mydir == 2 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tss, -min, -max, 136)

elseif mydir == 3 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tsw, -min, -max, 136)

end

elseif spell == "Mega Drain" then

local life = getCreatureHealth(getMasterTarget(cid))

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 14)

local newlife = (life - getCreatureHealth(getMasterTarget(cid)))

doSendMagicEffect(getThingPositionWithDebug(cid), 239)

if newlife >= 1 then

doCreatureAddHealth(cid, newlife)

doSendAnimatedText(getThingPositionWithDebug(cid), "+"..newlife.."", 35)

end

elseif spell == "Multislap" then

local slapalvo = getMasterTarget(cid)

local random = math.random(1, 4)

local function doSlap(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 148)

end

local function doSayTimes(cid, target, time, say)

if not isCreature(cid) then return true end

if not isCreature(target) or say then

doSendAnimatedText(getThingPositionWithDebug(cid), ""..time.." SLAPS", 215)

return true

end

for a = 0, random do

if a == random then

addEvent(doSayTimes, a * 700, cid, slapalvo, a + 1, true)

else

addEvent(doSayTimes, a * 700, cid, slapalvo, a + 1, false)

end

addEvent(doSlap, a * 700, cid, slapalvo)

end

elseif spell == "Disable" then

local function doEnable(cid, what)

if not isCreature(cid) then return true end

local a = getPlayerStorageValue(cid, 6)

if a ~= what then return true end

if getPlayerStorageValue(cid, 6) <= 0 then

doSendAnimatedText(getThingPositionWithDebug(cid), "ENABLED", COLOR_GRASS)

return true

end

setPlayerStorageValue(cid, 6, a - 1)

doSendMagicEffect(getThingPositionWithDebug(cid), 13)

addEvent(doEnable, 500, cid, what - 1)

end

local target = getMasterTarget(cid)

if isPlayer(target) then return true end

doSendMagicEffect(getThingPositionWithDebug(target), 13)

local time = math.random(6, 12) + math.floor(getPokemonLevel(cid) / 7.5)

if getPlayerStorageValue(target, 6) > 0 then

setPlayerStorageValue(target, 6, getPlayerStorageValue(target, 6) + time)

local b = getPlayerStorageValue(target, 6)

doEnable(target, b)

return true

end

doSendAnimatedText(getThingPositionWithDebug(target), "DISABLED", 152)

setPlayerStorageValue(target, 6, time)

local b = getPlayerStorageValue(target, 6)

doEnable(target, b)

elseif spell == "Reversal" then

local health = math.floor(getCreatureHealth(cid) / getCreatureMaxHealth(cid) * 100)

local increase = (100 - health) * 0.03

local rate = 1 + increase

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min * rate, -max * rate, 231)

elseif spell == "Demon Kicker" then

local sp = getCreatureSpeed(cid)

doChangeSpeed(cid, -sp)

local b = getMasterTarget(cid)

local pos = getThingPositionWithDebug(b)

local function doShootKick(cid, pos, speed)

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 19)

if speed > 0 then

doChangeSpeed(cid, speed)

end

for a = 0, 45 do

if a == 30 then

addEvent(doShootKick, a * 10, cid, pos, sp)

else

addEvent(doShootKick, a * 10, cid, pos, -1)

end

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(b), 0, -min, -max, 3)

elseif spell == "Furious Legs" then

local outfit = {}

outfit.lookType = 652

if isCreature(getMasterTarget(cid)) then

doFaceCreature(cid, getThingPositionWithDebug(getMasterTarget(cid)))

end

local b = mydir

local p = getThingPositionWithDebug(cid)

local t = {}

if b == NORTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y - 1, z = p.z}

table.insert(t, pos)

end

elseif b == SOUTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y + 1, z = p.z}

table.insert(t, pos)

end

elseif b == EAST then

for k = -1, 1 do

local pos = {x = p.x + 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

elseif b == WEST then

for k = -1, 1 do

local pos = {x = p.x - 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

local a = getCreatureSpeed(cid)

doChangeSpeed(cid, -a)

doSetCreatureOutfit(cid, outfit, -1)

local function doKickPos(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FIGHTDAMAGE, pos, 0, -min, -max, 113)

end

local function doReturn(cid, speed)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_OUTFIT)

doChangeSpeed(cid, speed)

end

for times = 0, 2 do

for kicks = 1, 3 do

addEvent(doKickPos, kicks * 140 + times * 400, cid, t[kicks])

end

addEvent(doReturn, 1480, cid, a)

elseif spell == "Hyper Beam" then

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1n, -min, -max, 152)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2n, -min, -max, 158)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3n, -min, -max, 156)

elseif a == 2 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1s, -min, -max, 151)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2s, -min, -max, 158)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3s, -min, -max, 155)

elseif a == 1 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1e, -min, -max, 149)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2e, -min, -max, 157)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3e, -min, -max, 153)

elseif a == 3 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1w, -min, -max, 150)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2w, -min, -max, 157)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3w, -min, -max, 154)

end

elseif spell == "Fire Punch" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 112)

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 15)

end

addEvent(doPunch, 200, cid, target)

elseif spell == "Thunder Punch" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 112)

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

end

addEvent(doPunch, 200, cid, target)

elseif spell == "Ice Punch" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 112)

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 43)

end

addEvent(doPunch, 200, cid, target)

elseif spell == "Mud Slap" or spell == "Mud-slap" then

local target = getMasterTarget(cid)

local function jogarLama(cid, target, damage)

if not isCreature(target) then return true end

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 38)

if damage then

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

for a = 1, 23 do

if a == 4 or a == 15 or a == 22 then

addEvent(jogarLama, a * 32, cid, target, true)

else

addEvent(jogarLama, a * 32, cid, target, false)

end

elseif spell == "Fire Mark" then

local target = getMasterTarget(cid)

local function markFire(cid, target, damage)

if not isCreature(target) then return true end

if not isCreature(cid) then return true end

doSendMagicEffect(getThingPositionWithDebug(target), 15)

if damage then

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

end

for a = 1, 23 do

if a == 4 or a == 15 or a == 22 then

addEvent(markFire, a * 32, cid, target, true)

else

addEvent(markFire, a * 32, cid, target, false)

end

elseif spell == "Horn Drill" then

local target = getMasterTarget(cid)

local a = getThingPositionWithDebug(cid)

local b = getThingPositionWithDebug(target)

local c = getDirectionTo(a, b)

for distance = 1, 3 do

b = getPosByDir(b, c)

end

doSendDistanceShoot(a, b, 25)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

elseif spell == "Giga Impact" then

local target = getMasterTarget(cid)

local a = getThingPositionWithDebug(cid)

local b = getThingPositionWithDebug(target)

local c = getDirectionTo(a, b)

doCreatureAddCondition(cid, permanentinvisible)

doTeleportThing(cid, b)

local function doAppear(cid)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_INVISIBLE)

end

doSendDistanceShoot(a, b, 10)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

addEvent(doAppear, 250, cid)

elseif spell == "Dig" then

doCreatureAddCondition(cid, permanentinvisible)

doSendMagicEffect(getThingPositionWithDebug(cid), 3)

local function backtoground(cid)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_INVISIBLE)

local pos = getThingPositionWithDebug(cid)

doSendMagicEffect(pos, 219)

doSendMagicEffect(pos, 224)

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

return true

end

addEvent(backtoground, 6 * 450 + 150, cid)

elseif spell == "X-Scissor" then

local a = getThingPositionWithDebug(target)

a.x = a.x + 1

a.y = a.y + 1

for b = 1, 3 do

addEvent(doSendMagicEffect, b * 70, a, 16)

end

doAreaCombatHealth(cid, BUGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 255)

elseif spell == "Iron Tail" then

local function rebackSpd(cid, sss)

if not isCreature(cid) then return true end

doChangeSpeed(cid, sss)

setPlayerStorageValue(cid, 446, -1)

end

local x = getCreatureSpeed(cid)

doFaceOpposite(cid)

doChangeSpeed(cid, -x)

addEvent(rebackSpd, 400, cid, x)

setPlayerStorageValue(cid, 446, 1)

doAreaCombatHealth(cid, STEELDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 160)

elseif spell == "Dragon Tail" then

local function rebackSpd(cid, sss)

if not isCreature(cid) then return true end

doChangeSpeed(cid, sss)

setPlayerStorageValue(cid, 446, -1)

end

local x = getCreatureSpeed(cid)

doFaceOpposite(cid)

doChangeSpeed(cid, -x)

addEvent(rebackSpd, 400, cid, x)

setPlayerStorageValue(cid, 446, 1)

doAreaCombatHealth(cid, DRAGONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 136)

elseif spell == "Swift" then

local target = getMasterTarget(cid)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 32)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

elseif spell == "Crabhammer" then

local target = getMasterTarget(cid)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 225)

elseif spell == "Dream Eater" then

local target = getMasterTarget(cid)

if not isSleeping(target) then

doSendMagicEffect(getThingPositionWithDebug(target), 3)

doSendAnimatedText(getThingPositionWithDebug(target), "FAIL", 155)

return true

end

local function nightmare(target)

if not isCreature(target) then return true end

doSendMagicEffect(getThingPositionWithDebug(target), 139)

end

local a = getCreatureHealth(target)

for j = 0, 1 do

addEvent(nightmare, j * 150, target)

end

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 138)

local b = getCreatureHealth(target)

local c = a - b

doCreatureAddHealth(cid, math.ceil(c / 2))

doSendMagicEffect(getThingPositionWithDebug(cid), 12)

doSendAnimatedText(getThingPositionWithDebug(cid), "+"..math.ceil(c/2).."", 155)

elseif spell == "Stomp" then

local target = getMasterTarget(cid)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 248)

elseif spell == "Giga Drain" then

local life = getCreatureHealth(getMasterTarget(cid))

local target = getMasterTarget(cid)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 14)

local newlife = (life - getCreatureHealth(getMasterTarget(cid)))

local function doEffect(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

local t = {37, 30}

doSendDistanceShoot(getThingPositionWithDebug(target), getThingPositionWithDebug(cid), t[math.random(1, 2)])

end

for a = 1, 7 do

addEvent(doEffect, a * 65, cid, target)

end

doSendMagicEffect(getThingPositionWithDebug(cid), 239)

if newlife >= 1 then

doCreatureAddHealth(cid, newlife)

doSendAnimatedText(getThingPositionWithDebug(cid), "+"..newlife.."", 35)

end

elseif spell == "Nature Ball" then

local target = getMasterTarget(cid)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 30)

doAreaCombatHealthAtDistance(cid, GRASSDAMAGE, getThingPositionWithDebug(target), splash, -min, -max, 45)

elseif spell == "Shockwave" or spell == "Shock Wave" then

local posicao = getThingPositionWithDebug(cid)

local function doShockWave(cid, pos, varx, vary, effect)

if isCreature(cid) and isSightClear(posicao, pos, false) then

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, whirl3, -min, -max, 255)

doSendMagicEffect({x = pos.x + varx, y = pos.y + vary, z = pos.z}, effect)

end

local effect = 255

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

effect = 126

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x, y = posicao.y - (sw + 1), z = posicao.z}, 1, 1, effect)

end

elseif a == 2 then

effect = 125

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x, y = posicao.y + (sw + 1), z = posicao.z}, 1, 1, effect)

end

elseif a == 1 then

effect = 124

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x + (sw + 1), y = posicao.y, z = posicao.z}, 1, 1, effect)

end

elseif a == 3 then

effect = 123

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x - (sw + 1), y = posicao.y, z = posicao.z}, 1, 1, effect)

end

elseif spell == "Windstorm" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -5, 5 do

for y = -5, 5 do

local pos = {x = m.x + x, y = m.y + y, z = m.z}

table.insert(t, pos)

end

local function doWindStorm(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FLYDAMAGE, pos, 0, -min, -max, 42)

doSendMagicEffect(pos, CONST_ME_POFF)

doSendDistanceShoot(pos, {x=pos.x+math.random(-2,2),y=pos.y+math.random(-2,2),z=pos.z}, 36)

end

for b = 1, 3 do

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doWindStorm, 25 * a, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

elseif spell == "Air Slash" then

local target = getMasterTarget(cid)

local pos1 = getThingPositionWithDebug(target)

pos1.x = pos1.x - 2

pos1.y = pos1.y - 2

local pos2 = getThingPositionWithDebug(target)

pos2.x = pos2.x + 2

pos2.y = pos2.y + 2

for a = 1, 7 do

addEvent(doSendDistanceShoot, a * 50, pos1, pos2, 36)

end

doAreaCombatHealth(cid, FLYDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 42)

elseif spell == "Fury Swipes" then

local chance = {2, 3, 4, 5, 2, 3, 3, 2}

local random = chance[math.random(1, #chance)]

local function doFurySwipe(cid, target, round, limit)

local ret = "S"

if not isCreature(cid) then return true end

if round <= 1 then ret = "" end

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

doSendAnimatedText(getThingPositionWithDebug(cid), round.." HIT"..ret.."", 215)

return true end

if round >= limit then doSendAnimatedText(getThingPositionWithDebug(cid), round.." HIT"..ret.."", 215) return true end

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 142)

addEvent(doFurySwipe, 450, cid, target, round + 1, limit)

end

local target = getMasterTarget(cid)

doFurySwipe(cid, target, 0, random)

elseif spell == "Wind Vortex" then

local pos = getThingPositionWithDebug(cid)

local mainpos = getThingPositionWithDebug(cid)

local a = {

[1] = {x = pos.x, y = pos.y - 4, z = pos.z},

[2] = {x = pos.x - 4, y = pos.y, z = pos.z},

[3] = {x = pos.x, y = pos.y + 4, z = pos.z},

[4] = {x = pos.x + 4, y = pos.y, z = pos.z},

[5] = {x = pos.x, y = pos.y - 4, z = pos.z}}

local b = {

[1] = {x = pos.x - 3, y = pos.y, z = pos.z},

[2] = {x = pos.x, y = pos.y + 3, z = pos.z},

[3] = {x = pos.x + 3, y = pos.y, z = pos.z},

[4] = {x = pos.x, y = pos.y + 3, z = pos.z},

[5] = {x = pos.x - 3, y = pos.y, z = pos.z}}

local c = {

[1] = {x = pos.x, y = pos.y + 2, z = pos.z},

[2] = {x = pos.x + 2, y = pos.y, z = pos.z},

[3] = {x = pos.x, y = pos.y - 2, z = pos.z},

[4] = {x = pos.x - 2, y = pos.y, z = pos.z},

[5] = {x = pos.x, y = pos.y + 2, z = pos.z}}

local function doWindVortex(cid, pos1, pos2)

if not isCreature(cid) then return true end

doSendDistanceShoot(pos1, pos2, 36)

local effects = {CONST_ME_POFF, 3, 148}

--doSendMagicEffect(pos1, effects[math.random(1, 3)])

end

for aaa = 0, 7 do

for aa = 1, 4 do

addEvent(doWindVortex, aa * 50 + aaa * 225, cid, a[aa], a[aa+1])

end

for bbb = 0, 7 do

for bb = 1, 4 do

addEvent(doWindVortex, bb * 50 + bbb * 225, cid, b[bb], b[bb+1])

end

for ccc = 0, 7 do

for cc = 1, 4 do

addEvent(doWindVortex, cc * 50 + ccc * 225, cid, c[cc], c[cc+1])

end

local function doWindVortexDamage(cid, mainpos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FLYDAMAGE, mainpos, wvortex, -min, -max, 255)

end

for dmg = 1, 13 do

addEvent(doWindVortexDamage, dmg * 150, cid, mainpos)

end

elseif spell == "Wind Blow" then

doAreaCombatHealth(cid, FLYDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 222)

elseif spell == "Hurricane" then

local a = {

[1] = NORTH,

[2] = NORTHWEST,

[3] = WEST,

[4] = SOUTHWEST,

[5] = SOUTH,

[6] = SOUTHEAST,

[7] = EAST,

[8] = NORTHEAST}

local pos = getThingPositionWithDebug(cid)

local function doHurricane(cid, dir, extended)

if not isCreature(cid) then return true end

local pos = {}

if extended then

pos = getThingPositionWithDebug(cid)

local b = {

[1] = {x = pos.x, y = pos.y + 2, z = pos.z},

[2] = {x = pos.x - 1, y = pos.y + 2, z = pos.z},

[3] = {x = pos.x - 2, y = pos.y + 2, z = pos.z},

[4] = {x = pos.x - 2, y = pos.y + 1, z = pos.z},

[5] = {x = pos.x - 2, y = pos.y, z = pos.z},

[6] = {x = pos.x - 2, y = pos.y - 1, z = pos.z},

[7] = {x = pos.x - 2, y = pos.y - 2, z = pos.z},

[8] = {x = pos.x - 1, y = pos.y - 2, z = pos.z},

[9] = {x = pos.x, y = pos.y - 2, z = pos.z},

[10] = {x = pos.x + 1, y = pos.y - 2, z = pos.z},

[11] = {x = pos.x + 2, y = pos.y - 2, z = pos.z},

[12] = {x = pos.x + 2, y = pos.y - 1, z = pos.z},

[13] = {x = pos.x + 2, y = pos.y, z = pos.z},

[14] = {x = pos.x + 2, y = pos.y + 1, z = pos.z},

[15] = {x = pos.x + 2, y = pos.y + 2, z = pos.z},

[16] = {x = pos.x + 1, y = pos.y + 2, z = pos.z},}

pos = b[dir]

else

pos = getPosByDir(getThingPositionWithDebug(cid), dir)

end

doAreaCombatHealth(cid, FLYDAMAGE, pos, 0, -min, -max, 42)

end

for r = 0, 5 do

for t = 1, 8 do

addEvent(doHurricane, t * 150 + r * 1205, cid, a[t], false)

end

for r = 0, 2 do

for k = 1, 16 do

addEvent(doHurricane, k * 130 + r * 2200, cid, k, true)

end

elseif spell == "Aeroblast" then

local pos = getThingPositionWithDebug(cid)

local cidpos = getThingPositionWithDebug(cid)

local tpos = pos

local t = {}

for a = 1, 6 do

tpos = getPosByDir(tpos, mydir)

table.insert(t, tpos)

doAreaCombatHealth(cid, FLYDAMAGE, tpos, 0, -min, -max, 255)

end

local function doAeroEffect(cid, cidpos, pos, varxa, varxb, varya, varyb)

if not isCreature(cid) then return true end

doSendDistanceShoot(cidpos, pos, 36)

if math.random(1, 7) <= 3 then

doSendDistanceShoot(cidpos, {x=cidpos.x+math.random(varxa,varxb),y=cidpos.y+math.random(varya,varyb),z=cidpos.z}, 36)

end

local varxa = 0

local varxb = 0

local varya = 0

local varyb = 0

local function doHyperBeamEffect(cid, a, mpos)

if not isCreature(cid) then return true end

local pos = mpos

local beam = {

[NORTH] = {effect = {152, 158, 158, 158, 156}, xvar = 0, yvar = -1},

[sOUTH] = {effect = {151, 158, 158, 158, 155}, xvar = 0, yvar = 1},

[EAST] = {effect = {149, 157, 157, 157, 153}, xvar = 1, yvar = 0},

[WEST] = {effect = {150, 157, 157, 157, 154}, xvar = -1, yvar = 0}}

for bb = 1, 5 do

local wx = beam[a].xvar

local wy = beam[a].yvar

local ef = beam[a].effect[bb]

local topos = {x=pos.x+(wx*bb),y=pos.y+(wy*bb),z=pos.z}

doSendMagicEffect(topos, ef)

end

for a = 0, 2 do

addEvent(doHyperBeamEffect, a * 300, cid, mydir, cidpos)

end

if mydir == 0 then

varxa = -2

varxb = 2

varya = 1

varyb = 3

elseif mydir == 1 then

varxa = -3

varxb = -1

varya = -2

varyb = 2

elseif mydir == 2 then

varxa = -2

varxb = 2

varya = -3

varyb = -1

elseif mydir == 3 then

varxa = 1

varxb = 3

varya = -2

varyb = 2

end

for etc = 1, 25 do

for b = 1, 5 do

if etc <= 24 then

addEvent(doAeroEffect, b * 25 + etc * 50, cid, cidpos, t, varxa, varxb, varya, varyb)

else

addEvent(doAeroEffect, b * 25 + etc * 50, cid, cidpos, t, varxa, varxb, varya, varyb)

end

elseif spell == "Falling Rocks" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local function doCrushRock(cid, pos)

if not isCreature(cid) then return true end

local effect = 44

pos.stackpos = 0

if getTileThingByPos(pos).itemid >= 4820 and getTileThingByPos(pos).itemid <= 4825 then

effect = 1

end

doAreaCombatHealth(cid, ROCKDAMAGE, pos, 0, -min, -max, effect)

end

local function doFallRock(cid, pos)

if not isCreature(cid) then return true end

local apos = pos

local frompos = {x=apos.x-7,y=apos.y-6,z=apos.z}

doSendDistanceShoot(frompos, pos, 11)

addEvent(doCrushRock, 385, cid, pos)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doFallRock, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

for randomic = 1, 128 do

local randompos = {x=m.x+math.random(-6,6),y=m.y+math.random(-6,6),z=m.z}

addEvent(doFallRock, randomic * math.random(25, 30), cid, randompos)

end

elseif spell == "Blizzard" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local function doCrushIce(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, ICEDAMAGE, pos, 0, -min, -max, 52)

end

local function doFallIce(cid, pos)

if not isCreature(cid) then return true end

local apos = pos

local frompos = {x=apos.x-7,y=apos.y-6,z=apos.z}

doSendDistanceShoot(frompos, pos, 28)

addEvent(doCrushIce, 385, cid, pos)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doFallIce, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

for randomic = 1, 128 do

local randompos = {x=m.x+math.random(-6,6),y=m.y+math.random(-6,6),z=m.z}

addEvent(doFallIce, randomic * math.random(25, 30), cid, randompos)

end

elseif spell == "Air Cutter" then

local damagearea = {}

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

if mydir == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

damagearea = acsn

elseif mydir == 1 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 129

damagearea = acsn

elseif mydir == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 131

damagearea = acsn

elseif mydir == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

damagearea = acsn

end

local this = getThingPositionWithDebug(cid)

this = getPosByDir(this, mydir)

local function doCutAir()

if not isCreature(cid) then return true end

doSendMagicEffect(effectpos, effect)

doAreaCombatHealth(cid, FLYDAMAGE, this, damagearea, -min, -max, 42)

this = getPosByDir(this, mydir)

effectpos = getPosByDir(effectpos, mydir)

end

for range = 0, 2 do

addEvent(doCutAir, range * 350)

end

elseif spell == "Ice Shard" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 28)

doAreaCombatHealthAtDistance(cid, ICEDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 43)

elseif spell == "Shadow Ball" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 18)

local function doDamageWithDelay(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, GHOSTDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 255)

local pos = getThingPositionWithDebug(getMasterTarget(cid))

pos.x = pos.x + 1

doSendMagicEffect(pos, 140)

end

addEvent(doDamageWithDelay, getDistDelay, cid, target)

elseif spell == "Powder Snow" then

local posicao = getThingPositionWithDebug(cid)

local function snowWind(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, ICEDAMAGE, params.ar, sand1, -min, -max, 41)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for pw = 0, 2 do

addEvent(snowWind, pw * 650, {cid = cid, ar = {x=posicao.x, y=posicao.y-(pw+1), z=posicao.z}})

end

elseif a == 2 then

for pw = 0, 2 do

addEvent(snowWind, pw * 650, {cid = cid, ar = {x=posicao.x, y=posicao.y+pw+1, z=posicao.z}})

end

elseif a == 1 then

for pw = 0, 2 do

addEvent(snowWind, pw * 650, {cid = cid, ar = {x=posicao.x+(pw+1), y=posicao.y, z=posicao.z}})

end

elseif a == 3 then

for pw = 0, 2 do

addEvent(snowWind, pw * 650, {cid = cid, ar = {x=posicao.x-(pw+1), y=posicao.y, z=posicao.z}})

end

elseif spell == "Ice Beam" then

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1n, -min, -max, 99)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2n, -min, -max, 105)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3n, -min, -max, 103)

elseif a == 2 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1s, -min, -max, 98)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2s, -min, -max, 105)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3s, -min, -max, 102)

elseif a == 1 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1e, -min, -max, 96)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2e, -min, -max, 104)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3e, -min, -max, 100)

elseif a == 3 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1w, -min, -max, 97)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2w, -min, -max, 104)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3w, -min, -max, 101)

end

elseif spell == "Icy Wind" then

local target = getMasterTarget(cid)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 35)

doAreaCombatHealthAtDistance(cid, ICEDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 41)

elseif spell == "Lick" then

local target = getMasterTarget(cid)

doAreaCombatCondition(cid, getThingPositionWithDebug(target), 0, thunderwavecondition, 255)

doAreaCombatHealth(cid, GHOSTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 145)

elseif spell == "Clamp" then

local function doClamp(cid, target, damage)

if not isCreature(cid) or not isCreature(target) then return true end

if damage then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 68)

else

doSendMagicEffect(getThingPositionWithDebug(target), 117)

end

local target = getMasterTarget(cid)

for a = 0, 3 do

if a == 3 then

addEvent(doClamp, a * 75, cid, target, true)

else

addEvent(doClamp, a * 75, cid, target, false)

end

elseif spell == "Aurora Beam" then

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), auroran, -min, -max, 57)

elseif a == 2 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), auroras, -min, -max, 58)

elseif a == 1 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), aurorae, -min, -max, 234)

elseif a == 3 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), auroraw, -min, -max, 209)

end

elseif spell == "Nightmare" then

local target = getMasterTarget(cid)

if not isSleeping(target) then

doSendMagicEffect(getThingPositionWithDebug(target), 3)

doSendAnimatedText(getThingPositionWithDebug(target), "FAIL", 155)

return true

end

local function nightmare(target)

if not isCreature(target) then return true end

doSendMagicEffect(getThingPositionWithDebug(target), 139)

end

local function doNightmare(cid, target)

if not isCreature(target) then return true end

if not isCreature(cid) then return true end

if not isSleeping(target) then return true end

addEvent(nightmare, 0, target)

addEvent(nightmare, 100, target)

addEvent(nightmare, 200, target)

doAreaCombatHealth(cid, NIGHTMAREDAMAGE, getThingPositionWithDebug(target), 0, -100, -100, 242)

addEvent(doNightmare, 3000, cid, target)

end

nightmare(target)

addEvent(doNightmare, 1000, cid, target)

elseif spell == "Healarea" then

local hp = getSpecialAttack(cid) * 4 * healMultiplier

doAreaCombatHealth(cid, HEALINGDAMAGE, getThingPositionWithDebug(cid), healarea, hp, hp, 12)

local function doHeal(cid, amount)

doCreatureAddHealth(cid, amount)

doSendMagicEffect(getThingPositionWithDebug(cid), 12)

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

end

doHeal(cid, hp)

local areas = {}

for xhp = -2, 2 do

for yhp = -2, 2 do

local pos = getThingPos(cid)

pos.x = pos.x + xhp

pos.y = pos.y + yhp

local player = getTopCreature(pos).uid

if isCreature(player) and isPlayer(player) then

doHeal(player, hp)

end

for thp = 0, 3 do

local pos = getPosByDir(getThingPos(cid), thp, 3)

local player = getTopCreature(pos).uid

if isCreature(player) and isPlayer(player) then

doHeal(player, hp)

end

elseif spell == "Double Edge" or spell == "Double-edge" or spell == "Take Down" then

doBodyPush(cid, target, true)

local a = getCreatureHealth(target)

local b = 0

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

if isCreature(target) and getCreatureHealth(target) > 0 then

b = getCreatureHealth(target)

end

local hploss = math.floor((a - b) * 0.5)

local function doRecoil(cid, hp)

if not isCreature(cid) then return true end

doCreatureAddHealth(cid, -hp)

doSendAnimatedText(getThingPositionWithDebug(cid), "-"..hploss.."", 180)

doSendMagicEffect(getThingPositionWithDebug(cid), 3)

end

addEvent(doRecoil, 400, cid, hploss)

elseif spell == "Sky Drop" then

doCreatureAddCondition(cid, permanentinvisible)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local mypos = getThingPositionWithDebug(cid)

local topos = getThingPositionWithDebug(target)

topos.y = topos.y - 7

doSendDistanceShoot(getThingPositionWithDebug(cid), topos, 39)

local function doReturn(cid, check, pos)

if not isCreature(cid) then return true end

local dmgpos = {}

if check and isCreature(check) then

dmgpos = getThingPositionWithDebug(check)

else

dmgpos = pos

end

doAreaCombatHealth(cid, FLYDAMAGE, dmgpos, 0, -min, -max, 42)

doCreatureRemoveCondition(cid, CONDITION_INVISIBLE)

doTeleportThing(cid, dmgpos, false)

doCreatureSetLookDir(cid, 2)

end

local function dropBack(cid, target, pos)

if not isCreature(cid) then return true end

if not isCreature(target) then

local bpos = pos

bpos.y = bpos.y + 7

doSendDistanceShoot(pos, bpos, 39)

addEvent(doReturn, 450, cid, false, bpos)

return true

end

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 39)

addEvent(doReturn, 450, cid, target, getThingPositionWithDebug(target))

end

addEvent(dropBack, 650, cid, target, topos)

elseif spell == "Sting Gun" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 13)

doAreaCombatHealthAtDistance(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Agility" then

local a = getSpeed(cid)

local b = a * 3

local c = b - a

setPlayerStorageValue(cid, 1003, b)

doSendMagicEffect(getThingPositionWithDebug(cid), 254)

doSendAnimatedText(getThingPositionWithDebug(cid), "+ SPEED", COLOR_GRASS)

if getCreatureSpeed(cid) ~= 0 then

doRegainSpeed(cid)

end

local function loseSpeed(cid, w)

if not isCreature(cid) then return true end

local j = getPlayerStorageValue(cid, 1003)

setPlayerStorageValue(cid, 1003, j - w)

if getCreatureSpeed(cid) ~= 0 then

doRegainSpeed(cid)

end

addEvent(loseSpeed, 8000, cid, c)

elseif spell == "Thunderbolt" or spell == "Thunder Bolt" then

local function doThunderHit(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

end

local function doThunderFall(cid, frompos, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local ry = math.abs(frompos.y - pos.y)

doSendDistanceShoot(frompos, getThingPositionWithDebug(target), 41)

addEvent(doThunderHit, ry * 33, cid, target)

end

local function doThunderUp(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local mps = getThingPositionWithDebug(cid)

local xrg = math.floor((pos.x - mps.x) / 2)

local topos = mps

topos.x = topos.x + xrg

local rd = 11

topos.y = topos.y - rd

doSendDistanceShoot(getThingPositionWithDebug(cid), topos, 41)

addEvent(doThunderFall, rd * 49, cid, topos, target)

end

local alvo = getMasterTarget(cid)

for thnds = 0, 2 do

addEvent(doThunderUp, thnds * 155, cid, alvo)

end

elseif spell == "Faint Attack" then

local a = getThingPositionWithDebug(cid)

local b = getClosestFreeTile(cid, getThingPositionWithDebug(target))

local c = getCreatureLookDir(cid)

doSendMagicEffect(a, 211)

doTeleportThing(cid, b, false)

doFaceCreature(cid, getThingPositionWithDebug(target))

local function comeBack(cid, lastpos, lastld)

if not isCreature(cid) then return true end

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

doTeleportThing(cid, lastpos, false)

doCreatureSetLookDir(cid, lastld)

end

doAreaCombatHealth(cid, DARKDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 148)

addEvent(comeBack, 200, cid, a, c)

elseif spell == "Fissure" then

local aa = isCreature(getMasterTarget(cid)) and getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) or getCreatureLookDir(cid)

local bb = getFaceOpposite(aa)

local back = {}

local front = {}

local apos = getThingPositionWithDebug(cid)

local aae = {

[NORTH] = {varx = 0, vary = -1},

[sOUTH] = {varx = 0, vary = 1},

[EAST] = {varx = 1, vary = 0},

[WEST] = {varx = -1, vary = 0},

[NORTHEAST] = {varx = 1, vary = -1},

[NORTHWEST] = {varx = -1, vary = -1},

[sOUTHEAST] = {varx = 1, vary = 1},

[sOUTHWEST] = {varx = -1, vary = 1}}

local varx = aae[bb].varx

local vary = aae[bb].vary

local xvar = aae[aa].varx

local yvar = aae[aa].vary

for c = 1, 6 do

local addpos = {x=apos.x+(varx*c),y=apos.y+(vary*c),z=apos.z}

table.insert(back, addpos)

end

for d = 1, 6 do

local addpos = {x=apos.x+(xvar*d),y=apos.y+(yvar*d),z=apos.z}

table.insert(front, addpos)

end

local function doFissure(cid, pos)

doSendMagicEffect({x=pos.x+1,y=pos.y+1,z=pos.z}, 127)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min, -max, 255)

end

for times = 0, 2 do

for e = 1, 6 do

addEvent(doFissure, e * 145 + times * 400, cid, front[e])

addEvent(doFissure, e * 145 + times * 400, cid, back[e])

end

elseif spell == "Lava Plume" then

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 233)

elseif spell == "Magma Storm" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local function doExplodeFire(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, pos, 0, -min, -max, 15)

end

local function doFallFire(cid, pos)

if not isCreature(cid) then return true end

local apos = pos

local frompos = {x=apos.x-7,y=apos.y-6,z=apos.z}

doSendDistanceShoot(frompos, pos, 3)

addEvent(doExplodeFire, 385, cid, pos)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doFallFire, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

for randomic = 1, 128 do

local randompos = {x=m.x+math.random(-6,6),y=m.y+math.random(-6,6),z=m.z}

addEvent(doFallFire, randomic * math.random(25, 30), cid, randompos)

end

elseif spell == "Leaf Blade" then

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 54)

elseif spell == "Glaciate" then

doCreatureSetNoMove(target, true)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 230)

local function doReturn(cid)

if not isCreature(cid) then return true end

doCreatureSetNoMove(cid, false)

end

addEvent(doReturn, 2000, target)

elseif spell == "Icicle Crash" then

local pos = getThingPositionWithDebug(target)

pos.x = pos.x -2

pos.y = pos.y -6

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 35)

local function doIcicleDamage(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 255)

local pos = getThingPositionWithDebug(target)

doSendMagicEffect(pos, 241)

end

addEvent(doIcicleDamage, 350, cid, target)

elseif spell == "Shadow Punch" then

local pos = getThingPositionWithDebug(target)

doSendMagicEffect(pos, 112)

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, GHOSTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 255)

local pos = getThingPositionWithDebug(target)

pos.x = pos.x + 1

doSendMagicEffect(pos, 140)

end

addEvent(doPunch, 600, cid, target)

elseif spell == "Dark Pulse" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 6)

doAreaCombatHealthAtDistance(cid, DARKDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 242)

elseif spell == "Shadow Storm" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local function doShadowDamage(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GHOSTDAMAGE, pos, 0, -min, -max, 255)

local mpos = pos

mpos.x = mpos.x + 1

doSendMagicEffect(mpos, 140)

end

local function doFallShadow(cid, pos)

if not isCreature(cid) then return true end

local apos = pos

local frompos = {x=apos.x-7,y=apos.y-6,z=apos.z}

doSendDistanceShoot(frompos, pos, 18)

addEvent(doShadowDamage, 385, cid, pos)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doFallShadow, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

for randomic = 1, 128 do

local randompos = {x=m.x+math.random(-6,6),y=m.y+math.random(-6,6),z=m.z}

addEvent(doFallShadow, randomic * math.random(25, 30), cid, randompos)

end

elseif spell == "Guillotine" then

local random = getPokemonLevel(cid) - getPokemonLevel(target)

if math.random(1, 100) >= random or getPokemonLevel(cid) < getPokemonLevel(target) then

doSendAnimatedText(getThingPositionWithDebug(cid), "FAIL", 215)

return true

end

if getCreatureName(cid) == "Kingler" then

doSendMagicEffect(getThingPositionWithDebug(target), 225)

elseif getCreatureName(cid) == "Pinsir" then

local pos1 = getThingPositionWithDebug(target)

local pos2 = getThingPositionWithDebug(target)

pos1.x = pos1.x - 2

pos2.x = pos2.x + 2

doSendDistanceShoot(pos1, pos2, 0)

doSendDistanceShoot(pos2, pos1, 0)

end

doAreaCombatHealth(cid, GUILLOTINEDAMAGE, getThingPositionWithDebug(target), 0, -10, -10, 255)

elseif spell == "Volt Tackle" then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

elseif spell == "Hyper Voice" then

local effect = 165

local function doHyperVoice(cid, area)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), area, -min, -max, effect)

end

local areas = {hv1, hv2, hv3, hv4, hv5}

for go = 0, 4 do

addEvent(doHyperVoice, go * 220, cid, areas[go+1])

end

elseif spell == "Amnesia" or spell == "Psychic Up" then

if spell == "Amnesia" then

doSendMagicEffect(getThingPositionWithDebug(cid), 179)

else

doSendMagicEffect(getThingPositionWithDebug(cid), 134)

end

doSendAnimatedText(getThingPositionWithDebug(cid), "+ SP.ATK", COLOR_PSYCHIC)

local function doReduceSpAtk(cid, qnt)

if not isCreature(cid) then return true end

local a = getSpecialAttack(cid)

setPlayerStorageValue(cid, 1005, a - qnt)

end

local function doDoubleSpAtk(cid)

if not isCreature(cid) then return true end

local a = getSpecialAttack(cid)

setPlayerStorageValue(cid, 1005, a * 2)

local b = getSpecialAttack(cid)

local c = b - a

addEvent(doReduceSpAtk, 7500, cid, c)

end

doDoubleSpAtk(cid)

elseif spell == "Karate Chop" then

local pos = getThingPositionWithDebug(target)

local x = getPosByDir(getThingPositionWithDebug(target), math.random(4, 7))

doSendDistanceShoot(x, pos, 26)

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

elseif spell == "Ground Kick" then

local t = {}

local p = getThingPositionWithDebug(cid)

local b = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if b == NORTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y - 1, z = p.z}

table.insert(t, pos)

end

elseif b == SOUTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y + 1, z = p.z}

table.insert(t, pos)

end

elseif b == EAST then

for k = -1, 1 do

local pos = {x = p.x + 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

elseif b == WEST then

for k = -1, 1 do

local pos = {x = p.x - 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

local function doKickPos(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FIGHTDAMAGE, pos, 0, -min, -max, 113)

end

for kicks = 1, 3 do

addEvent(doKickPos, kicks * 220, cid, t[kicks])

end

elseif spell == "Cross Chop" then

local t = {}

table.insert(t, getPosByDir(getThingPositionWithDebug(target), NORTHEAST))

table.insert(t, getPosByDir(getThingPositionWithDebug(target), SOUTHWEST))

for a = 1, 2 do

doSendDistanceShoot(t[a], getThingPositionWithDebug(target), 26)

end

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 249)

elseif spell == "Fist Machine" then

local mpos = getThingPositionWithDebug(cid)

local b = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

local effect = 0

local xvar = 0

local yvar = 0

local area = {}

if b == SOUTH then

effect = 218

yvar = 2

area = fmn

elseif b == NORTH then

effect = 217

area = fms

elseif b == WEST then

effect = 216

area = fmw

elseif b == EAST then

effect = 215

xvar = 2

area = fme

end

mpos.x = mpos.x + xvar

mpos.y = mpos.y + yvar

doSendMagicEffect(mpos, effect)

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(cid), area, -min, -max, 255)

elseif spell == "Grass Knot" then

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 45)

elseif spell == "Bone Club" then

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 228)

elseif spell == "Bonemerang" then

local pos = getThingPositionWithDebug(cid)

local b = isCreature(getMasterTarget(cid)) and getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) or getCreatureLookDir(cid)

local t = {}

local signal = {

[NORTH] = {0, -1},

[sOUTH] = {0, 1},

[EAST] = {1, 0},

[WEST] = {-1, 0},

[sOUTHEAST] = {1, 1},

[sOUTHWEST] = {-1, 1},

[NORTHWEST] = {-1, -1},

[NORTHEAST] = {1, -1}}

for range = 1, 5 do

local add = getThingPositionWithDebug(cid)

add.x = add.x + signal[1] * range

add.y = add.y + signal[2] * range

table.insert(t, add)

end

local function doBoomerang(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min, -max, 227)

end

for throw = 1, 5 do

addEvent(doBoomerang, (throw - 1) * 200, cid, t[throw])

end

for back = -5, -1 do

local k = -back

addEvent(doBoomerang, math.abs(k - 5) * 200 + 1000, cid, t[k])

end

elseif spell == "Super Vines" then

doCreatureSetLookDir(cid, 2)

local a = getCreatureSpeed(cid)

doChangeSpeed(cid, -a)

local effect = 0

local pos = getThingPositionWithDebug(cid)

pos.x = pos.x + 1

pos.y = pos.y + 1

if getCreatureOutfit(cid).lookType == 369 then

effect = 213

else

effect = 229

end

doSendMagicEffect(pos, effect)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

local function nois(cid, s)

if not isCreature(cid) then return true end

doChangeSpeed(cid, s)

end

addEvent(nois, 200, cid, a)

elseif spell == "Electric Field" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -6, 6 do

for y = -6, 6 do

local pos = {x = m.x + x, y = m.y + y, z = m.z}

table.insert(t, pos)

end

local function doElectricAttack(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, pos, 0, -min, -max, 48)

doSendDistanceShoot(pos, {x=pos.x,y=pos.y-8,z=pos.z}, 41)

end

for b = 1, 3 do

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doElectricAttack, 25 * a, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

elseif spell == "Electric Storm" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local function doThunderAttack(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, pos, 0, -min, -max, 48)

end

local function doFallThunder(cid, pos)

if not isCreature(cid) then return true end

local apos = pos

local frompos = {x=apos.x-7,y=apos.y-6,z=apos.z}

doSendDistanceShoot(frompos, pos, 41)

addEvent(doThunderAttack, 385, cid, pos)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doFallThunder, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

for randomic = 1, 128 do

local randompos = {x=m.x+math.random(-6,6),y=m.y+math.random(-6,6),z=m.z}

addEvent(doFallThunder, randomic * math.random(25, 30), cid, randompos)

end

elseif spell == "Thunder" then

local function doThunder(cid, area, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, pos, area, -min, -max, 48)

end

local pos = getThingPositionWithDebug(cid)

local areas = {destruct1, destruct2, destruct3}

for go = 0, 2 do

addEvent(doThunder, go * 250, cid, areas[go+1], pos)

end

elseif spell == "Strangling Tweezers" then

local function doStrangle(cid, target, damage)

if not isCreature(cid) or not isCreature(target) then return true end

local pos = getThingPositionWithDebug(target)

local oos = getThingPositionWithDebug(target)

pos.x = pos.x + 1

oos.x = oos.x - 1

doSendDistanceShoot(oos, getThingPositionWithDebug(target), 0)

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 0)

if damage then

doAreaCombatHealth(cid, BUGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

for times = 0, 23 do

if isInArray({5, 10, 15, 20}, times) then

addEvent(doStrangle, times * 70, cid, target, true)

else

addEvent(doStrangle, times * 70, cid, target, false)

end

elseif spell == "Bubblebeam" then

local p = getThingPositionWithDebug(cid)

local function doBubblebeam(cid, area)

if not isCreature(cid) or not isSightClear(p, area, false) then return true end

doSendDistanceShoot(p, area, 2)

doAreaCombatHealth(cid, WATERDAMAGE, area, sand1, -min, -max, 25)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for b = 0, 4 do

local pos = {x = p.x, y = p.y - (b+1), z = p.z}

addEvent(doBubblebeam, b * 100, cid, pos)

end

elseif a == 2 then

for b = 0, 4 do

local pos = {x = p.x, y = p.y + (b+1), z = p.z}

addEvent(doBubblebeam, b * 100, cid, pos)

end

elseif a == 1 then

for b = 0, 4 do

local pos = {x = p.x + b + 1, y = p.y, z = p.z}

addEvent(doBubblebeam, b * 100, cid, pos)

end

elseif a == 3 then

for b = 0, 4 do

local pos = {x = p.x - (b+1), y = p.y, z = p.z}

addEvent(doBubblebeam, b * 100, cid, pos)

end

elseif spell == "Mortal Gas" then

local v1 = (15 + getPokemonLevel(cid)) * 5

setPlayerStorageValue(cid, 919231, v1)

local v3 = getPokemonLevel(cid) / 10 + 5

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(cid), bomb2, -min, -max, 238)

doAreaCombatHealth(cid, POISON_POWDERDAMAGE, getThingPositionWithDebug(cid), bomb2, -v3, -v3, 255)

elseif spell == "Fire Mark" then

local pos = getThingPositionWithDebug(target)

for x = -1, 1 do

for y = -1, 1 do

local frompos = {x = pos.x + x, y = pos.y + y, z = pos.z}

doSendDistanceShoot(frompos, getThingPositionWithDebug(target), 3)

end

doAreaCombatHealth(cid, FIREDAMAGE, pos, 0, -min, -max, 15)

elseif spell == "Focus" or spell == "Concentration" or spell == "Calm Mind" or spell == "Meditate" then

local effect = 0

local turns = getPokemonLevel(cid) / 5

if spell == "Focus" then

effect = 221

elseif spell == "Concentration" then

effect = 220

else

effect = 134

end

doFocus(cid, turns * 2, effect, getPlayerStorageValue(cid, 253))

elseif spell == "Fear" then

local rounds = math.random(2, 5)

rounds = rounds + getPokemonLevel(cid) / 20

addEvent(doAdvancedFear, 600, target, rounds, getPlayerStorageValue(target, 3894), cid)

doSendAnimatedText(getThingPositionWithDebug(target), "SCARED", COLOR_GHOST)

elseif spell == "Poison Jab" then

local t = {SOUTHWEST, WEST, NORTHWEST, NORTH}

local function doJab(cid, target, dir)

if not isCreature(cid) or not isCreature(target) then return true end

doSendDistanceShoot(getPosByDir(getThingPositionWithDebug(target), dir), getThingPositionWithDebug(target), 20)

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 252)

end

for a = 1, #t do

addEvent(doJab, a * 45, cid, target, t[a])

end

elseif spell == "Ground Shaker" then

local function doShakeGround(cid)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(cid), gsarea, -min, -max, 118)

end

for times = 0, 27 do

addEvent(doShakeGround, times * 300, cid)

end

elseif spell == "Earthquake" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

if getTileThingByPos(pos).itemid > 0 then

table.insert(t, pos)

end

local function doEarthquake(cid, pos)

if not isCreature(cid) then return true end

if not isSightClear(getThingPositionWithDebug(cid), pos, false) then return true end

if not canWalkOnPos(pos, false, false, false, false, true) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min, -max, 255)

doSendMagicEffect({x = pos.x + 1, y = pos.y + 1, z = pos.z}, 127)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doEarthquake, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

elseif spell == "Cross Poison" then

local a = getThingPositionWithDebug(target)

local b = {}

doSendDistanceShoot(getPosByDir(getPosByDir(getThingPositionWithDebug(target), NORTHWEST), NORTHWEST), getPosByDir(getThingPositionWithDebug(target), SOUTHEAST), 20)

doSendDistanceShoot(getPosByDir(getPosByDir(getThingPositionWithDebug(target), NORTHEAST), NORTHEAST), getPosByDir(getThingPositionWithDebug(target), SOUTHWEST), 20)

doSendDistanceShoot(getPosByDir(getPosByDir(getThingPositionWithDebug(target), SOUTHWEST), SOUTHWEST), getPosByDir(getThingPositionWithDebug(target), NORTHEAST), 20)

doSendDistanceShoot(getPosByDir(getPosByDir(getThingPositionWithDebug(target), SOUTHEAST), SOUTHEAST), getPosByDir(getThingPositionWithDebug(target), NORTHWEST), 20)

doSendMagicEffect(a, 114)

doAreaCombatHealth(cid, POISONDAMAGE, a, 0, -min, -max, 252)

elseif spell == "Seismic Clash" then

local posicao = getThingPositionWithDebug(cid)

local function clash(params)

if isCreature(cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, GROUNDDAMAGE, params.ar, whirl3, -min, -max, 255)

doAreaCombatHealth(cid, null, params.ar, params.br, 0, 0, 127)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for time = 0, 6 do

addEvent(clash, time * 120, {cid = cid, ar = {x=posicao.x, y=posicao.y-(time+1), z=posicao.z}, br = clasheffectn})

end

elseif a == 2 then

for time = 0, 6 do

addEvent(clash, time * 120, {cid = cid, ar = {x=posicao.x, y=posicao.y+(time+1), z=posicao.z}, br = clasheffects})

end

elseif a == 1 then

for time = 0, 6 do

addEvent(clash, time * 120, {cid = cid, ar = {x=posicao.x+(time+1), y=posicao.y, z=posicao.z}, br = clasheffecte})

end

elseif a == 3 then

for time = 0, 6 do

addEvent(clash, time * 120, {cid = cid, ar = {x=posicao.x-(time+1), y=posicao.y, z=posicao.z}, br = clasheffectw})

end

elseif spell == "Lovely Kiss" then

if getPokemonGender(cid) == getPokemonGender(target) then

doSendMagicEffect(getThingPositionWithDebug(target), 3)

doSendAnimatedText(getThingPositionWithDebug(target), "FAIL", COLOR_PINK)

return true

end

local v1 = math.random(4, 7)

local v2 = v1 + getPokemonLevel(cid) / 20

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 16)

doAreaCombatHealth(cid, SLEEP_POWDERDAMAGE, getThingPositionWithDebug(target), 0, -v1, -v2, 147)

elseif spell == "Sweet Kiss" then

if getPokemonGender(cid) == getPokemonGender(target) then

doSendMagicEffect(getThingPositionWithDebug(target), 3)

doSendAnimatedText(getThingPositionWithDebug(target), "FAIL", COLOR_PINK)

return true

end

local target = getMasterTarget(cid)

local rounds = math.random(4, 7)

rounds = rounds + math.floor(getPokemonLevel(cid) / 35)

doSendMagicEffect(getThingPositionWithDebug(target), 171)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 32)

addEvent(doAdvancedConfuse, 700, target, rounds, getPlayerStorageValue(target, 3891))

elseif spell == "Metronome" then

local spells = {

'Fire Blast', 'Flamethrower', 'Ranging Blast', 'Fire Spin', 'Burning Skin', 'Magma Storm', 'Overheat', 'Heat Wave',

'Confusion', 'Psychic', 'Psybeam', 'Psywave', 'Psyshock',

'Water Spout', 'Water Gun', 'Bubble Blast', 'Jet Cannons', 'Surf', 'Aqua Jet', 'Bubblebeam', 'Hydro Cannon', 'Water Oath', 'Water Pledge',

'Sand Attack', 'Earthshock', 'Shockwave', 'Fissure', 'Bonemerang', 'Ground Shaker', 'Earthquake', 'Seismic Clash', 'Magnitude', 'Earth Power',

'Spark', 'Thunder Wave', 'Discharge', 'Charge Beam', 'Electric Field', 'Electric Storm', 'Thunder',

'Restore', 'Recover', 'Selfheal', 'Healarea', 'Sleep Powder', 'Stun Spore', 'Poison Powder',

'Sing', 'Harden', 'Calm Mind', 'Agility', 'Amnesia', 'Psychic Up', 'Focus', 'Mimic Wall',

'Invisible', 'Reflect',

'Gust', 'Whirlwind', 'Wing Attack', 'Tornado', 'Windstorm', 'Wind Vortex', 'Hurricane', 'Aeroblast',

'Vine Whip', 'Leaf Storm', 'Petal Dance', 'Solar Beam',

'Toxic', 'Poisonous Wing', 'Poison Gas', 'Slime Wave', 'Mortal Gas',

'Rock Tomb', 'Falling Rocks', 'Ancient Power', 'Epicenter',

'Hyper Beam', 'Hyper Voice',

'Blizzard', 'Aurora Beam', 'Ice Beam', 'Powder Snow', 'Frost Breath',

'Ground Kick', 'Fist Machine', 'Counter',

'Shadow Storm',

'Dragon Breath',

}

local random = math.random(1, #spells)

local randommove = spells[random]

local pos = getThingPositionWithDebug(cid)

pos.y = pos.y - 1

doSendMagicEffect(pos, 161)

local function doUseMetronome(cid, spell)

if not isCreature(cid) then return true end

docastspell(cid, spell)

if isSummon(cid) then

doCreatureSay(cid, ""..string.upper(spell).."!", TALKTYPE_MONSTER)

end

addEvent(doUseMetronome, 890, cid, randommove)

elseif spell == "Flame Wheel" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 3)

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 15)

local function doSendEffect(target, direction)

if not isCreature(target) then return true end

doSendMagicEffect(getPosByDir(getThingPositionWithDebug(target), direction), 244)

end

local dir = {SOUTH, WEST, NORTH, EAST}

for a = 1, 4 do

addEvent(doSendEffect, 200 + a * 120, target, dir[a])

end

elseif spell == "Mimic" then

doSendMagicEffect(getThingPositionWithDebug(cid), 132)

local function doCopyAndCast(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

local spell = getPlayerStorageValue(target, 877)

if spell == -1 then doSendAnimatedText(getThingPositionWithDebug(cid), "FAIL", 215) return true end

docastspell(cid, spell)

if isSummon(cid) then

doCreatureSay(cid, ""..string.upper(spell).."!", TALKTYPE_MONSTER)

end

addEvent(doCopyAndCast, 700, cid, target)

elseif spell == "Gastro Acid" then

local pos = getThingPositionWithDebug(target)

local t = {}

local function doGastro(cid, pos, main)

if not isCreature(cid) then return true end

if main then

local highpos = getThingPositionWithDebug(pos)

highpos.y = highpos.y - 3

doSendDistanceShoot(highpos, getThingPositionWithDebug(pos), 14)

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(pos), 0, -min, -max, 143)

else

doAreaCombatHealth(cid, POISONDAMAGE, pos, 0, -min*2, -max*2, 143)

end

for a = 0, 3 do

local targetpos = getPosByDir(getThingPositionWithDebug(target), a)

local highpos = getPosByDir(getThingPositionWithDebug(target), a)

highpos.y = highpos.y - 3

doSendDistanceShoot(highpos, targetpos, 14)

addEvent(doGastro, 220, cid, targetpos)

addEvent(doGastro, a * 75, cid, target, true)

end

elseif spell == "Fury Cutter" then

local function doCut(cid, target, turn)

if not isCreature(cid) or not isCreature(target) then return true end

if getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) >= 3 then return true end

if turn < 1 then return true end

doAreaCombatHealth(cid, BUGDAMAGE, getThingPositionWithDebug(target), 0, -min/turn, -max/turn, 141)

addEvent(doCut, 285, cid, target, turn - 1)

end

doCut(cid, target, 10)

elseif spell == "Egg Bomb" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 12)

doAreaCombatHealthAtDistance(cid, NORMALDAMAGE, getThingPositionWithDebug(target), oathzinho, -min, -max, 3)

elseif spell == "Earth Power" then

local t = {}

local p = getThingPositionWithDebug(cid)

local b = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if b == NORTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y - 1, z = p.z}

table.insert(t, pos)

end

elseif b == SOUTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y + 1, z = p.z}

table.insert(t, pos)

end

elseif b == EAST then

for k = -1, 1 do

local pos = {x = p.x + 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

elseif b == WEST then

for k = -1, 1 do

local pos = {x = p.x - 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

local function doEarthPower(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min, -max, 255)

local a = {x=pos.x+1,y=pos.y+1,z=pos.z}

doSendMagicEffect(a, 127)

--doSendDistanceShoot(pos, {x=pos.x,y=pos.y-6,z=pos.z}, 42)

end

for times = 1, 3 do

doEarthPower(cid, t[times])

end

elseif spell == "Magnitude" then

local t = {}

local m = getThingPositionWithDebug(cid)

local target = 0

for x = -4, 4 do

for y = -4, 4 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local mag = {4, 5, 5, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 9, 9, 10}

local magnitude = math.random(4, 10)--mag[math.random(#mag)]

doSendAnimatedText(getThingPositionWithDebug(cid), magnitude, COLOR_GROUND)

local rate = magnitude - 3

local function doCrackGround(cid, posa, checkone, checktwo, target)

if not isCreature(cid) then return true end

local pos = {}

if checkone and isCreature(target) then

pos = getThingPositionWithDebug(target)

else

pos = posa

end

if checktwo and isCreature(target) and getTopCreature(pos).uid == target then

return true

end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min*rate, -max*rate, 255)

local a = {x=pos.x+1,y=pos.y+1,z=pos.z}

doSendMagicEffect(a, 127)

end

if isCreature(getMasterTarget(cid)) and getDistanceBetween(getThingPositionWithDebug(getMasterTarget(cid)), m) <= 7 then

target = getMasterTarget(cid)

local n = getThingPositionWithDebug(target)

local npos = {x = n.x, y = n.y, z = n.z, stackpos = 0}

magnitude = magnitude - 1

addEvent(doCrackGround, 1050, cid, npos, true, false, target)

end

for this = 1, magnitude do

local random = math.random(1, #t)

addEvent(doCrackGround, 1050, cid, t[random], false, true, target)

t = doRemoveElementFromTable(t, t[random])

end

elseif spell == "Pay Day" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 37)

if isSummon(cid) then

for a = 1, 3 do

if math.random(1, 100) > 40 then

local x = getPokemonLevel(cid)

x = x * math.random(40, 160) / 100

if x > 100 then

x = 100

end

local npos = getPosByDir(getThingPositionWithDebug(target), math.random(0, 7))

if canWalkOnPos(npos, false, false, true, true, true) then

doCreateItem(12416, x, npos)

end

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

elseif spell == "Mimic Wall" then

if hasMimicWall(cid) then

local health = getSpecialAttack(cid) * 2

setPlayerStorageValue(cid, 878, getPlayerStorageValue(cid, 878) + health)

return true end

local function doCreateWall(cid)

if not isCreature(cid) then return true end

local health = getSpecialAttack(cid) * 2

setPlayerStorageValue(cid, 878, health)

if getCreatureLookDir(cid) == SOUTH or getCreatureLookDir(cid) == NORTH then

doCreateItem(11439, 1, getThingPositionWithDebug(cid))

else

doCreateItem(11440, 1, getThingPositionWithDebug(cid))

end

local function doEndWallTime(cid)

if not isCreature(cid) then return true end

setPlayerStorageValue(cid, 878, -1)

local b = getTileItemById(getThingPositionWithDebug(cid), 11440)

if b.uid > 1 then doRemoveItem(b.uid, 1) end

local c = getTileItemById(getThingPositionWithDebug(cid), 11439)

if c.uid > 1 then doRemoveItem(c.uid, 1) end

doSendMagicEffect(getThingPositionWithDebug(cid), 3)

end

doSendMagicEffect(getThingPositionWithDebug(cid), 135)

addEvent(doCreateWall, 650, cid)

addEvent(doEndWallTime, 17 * 1000, cid)

elseif spell == "Counter" then

setPlayerStorageValue(cid, 879, 1)

doSendMagicEffect(getThingPositionWithDebug(cid), 247)

elseif spell == "Overheat" then

for a = -7, 7 do

for b = -6, 6 do

local pos = getThingPositionWithDebug(cid)

local place = {x=pos.x+a,y=pos.y+b,z=pos.z}

doSendDistanceShoot(getThingPositionWithDebug(cid), place, 3)

end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), grassarea, -min, -max, 255)

elseif spell == "Mind Blast" then

local function doFindMind(cid, pos, target, effect, distance)

if not isCreature(target) then return true end

if not isCreature(cid) then return true end

if getDistanceBetween(getThingPositionWithDebug(target), pos) == 0 then

local bonus = distance * 0.34 + 0.76

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(target), 0, -min * bonus, -max * bonus, 243)

return true

end

doSendMagicEffect(pos, effect)

local dir = getDirectionTo(pos, getThingPositionWithDebug(target))

if dir >= 4 then

dir = randomdiagonaldir[dir][math.random(1, 2)]

end

local a = getPosByDir(pos, dir)

local nextef = 133

if effect == 133 then

nextef = 136

end

addEvent(doFindMind, 175, cid, a, target, nextef, distance + 1)

end

doFindMind(cid, getThingPositionWithDebug(cid), getMasterTarget(cid), 133, 0)

elseif spell == "Future Sight" then

local function doFutureSight(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 253)

end

doSendMagicEffect(getThingPositionWithDebug(cid), 220)

addEvent(doFutureSight, 2500, cid, target)

elseif spell == "Shell Smash" then

doBodyPush(cid, target, true)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 223)

elseif spell == "Heat Wave" then

local posicao = getThingPositionWithDebug(cid)

local function hw(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, FIREDAMAGE, params.ar, whirl3, -min, -max, 237)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for b = 0, 4 do

addEvent(hw, 200 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y-(b+1), z=posicao.z}})

end

elseif a == 2 then

for b = 0, 4 do

addEvent(hw, 200 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y+(b+1), z=posicao.z}})

end

elseif a == 1 then

for b = 0, 4 do

addEvent(hw, 200 * b, {cid = cid, ar = {x=posicao.x+(1+b), y=posicao.y, z=posicao.z}})

end

elseif a == 3 then

for b = 0, 4 do

addEvent(hw, 200 * b, {cid = cid, ar = {x=posicao.x-(1+b), y=posicao.y, z=posicao.z}})

end

elseif spell == "Hydro Cannon" then

local posicao = getThingPositionWithDebug(cid)

local function hp(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, WATERDAMAGE, params.ar, whirl3, -min, -max, 68)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for b = 0, 5 do

addEvent(hp, 100 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y-(b+1), z=posicao.z}})

end

elseif a == 2 then

for b = 0, 5 do

addEvent(hp, 100 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y+(b+1), z=posicao.z}})

end

elseif a == 1 then

for b = 0, 5 do

addEvent(hp, 100 * b, {cid = cid, ar = {x=posicao.x+(1+b), y=posicao.y, z=posicao.z}})

end

elseif a == 3 then

for b = 0, 5 do

addEvent(hp, 100 * b, {cid = cid, ar = {x=posicao.x-(1+b), y=posicao.y, z=posicao.z}})

end

elseif spell == "Frost Attack" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 28)

doAreaCombatHealthAtDistance(cid, ICEDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), bomb, -min, -max, 43)

elseif spell == "Frost Breath" then

local posicao = getThingPositionWithDebug(cid)

local function fb(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, ICEDAMAGE, params.ar, sand1, -min, -max, 52)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for b = 0, 5 do

addEvent(fb, 120 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y-(b+1), z=posicao.z}})

end

elseif a == 2 then

for b = 0, 5 do

addEvent(fb, 120 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y+(b+1), z=posicao.z}})

end

elseif a == 1 then

for b = 0, 5 do

addEvent(fb, 120 * b, {cid = cid, ar = {x=posicao.x+(1+b), y=posicao.y, z=posicao.z}})

end

elseif a == 3 then

for b = 0, 5 do

addEvent(fb, 120 * b, {cid = cid, ar = {x=posicao.x-(1+b), y=posicao.y, z=posicao.z}})

end

elseif spell == "Psystrike" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 30)

doAreaCombatHealthAtDistance(cid, PSYCHICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 250)

elseif spell == "Psycho Flash" then

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 240)

local rounds = math.random(6, 10)

rounds = rounds + math.floor(getPokemonLevel(cid) / 15)

doAdvancedBlind(target, rounds, getPlayerStorageValue(target, 3890), 136)

elseif spell == "Electro Ball" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 40)

doAreaCombatHealthAtDistance(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), bomb, -min, -max, 48)

elseif spell == "Metal Claw" then

doAreaCombatHealth(cid, STEELDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 160)

elseif spell == "Vital Throw" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 26)

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 112)

elseif spell == "Seismic Toss" then

local function doHit(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

doAreaCombatHealth(cid, SEISMICTOSSDAMAGE, getThingPositionWithDebug(target), 0, -10, -10, 3)

end

local function doTossFall(cid, frompos, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local ry = math.abs(frompos.y - pos.y)

doSendDistanceShoot(frompos, getThingPositionWithDebug(target), 11)

addEvent(doHit, ry * 40, cid, target)

end

local function doTossUp(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local mps = getThingPositionWithDebug(cid)

local xrg = math.floor((pos.x - mps.x) / 2)

local topos = mps

topos.x = topos.x + xrg

local rd = 11

topos.y = topos.y - rd

doSendDistanceShoot(getThingPositionWithDebug(cid), topos, 11)

addEvent(doTossFall, rd * 49, cid, topos, target)

end

local alvo = getMasterTarget(cid)

doTossUp(cid, alvo)

elseif spell == "Rock Blast" then

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(cid), rockblast, -min, -max, 255)

local pos = getThingPositionWithDebug(cid)

local function doSendRock(cid, pos)

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 11)

addEvent(doSendMagicEffect, getDistanceBetween(getThingPositionWithDebug(cid), pos) * 54, pos, 118)

end

for a = 1, 120 do

local lugar = {x = pos.x + math.random(-4, 4), y = pos.y + math.random(-4, 4), z = pos.z}

addEvent(doSendRock, a * 2, cid, lugar)

end

elseif spell == "Submission" then

local a = getPosByDir(getThingPositionWithDebug(target), getFaceOpposite(getCreatureLookDir(target)))

local b = getClosestFreeTile(cid, a)

doTeleportThing(cid, b, false)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

doFaceCreature(cid, getThingPositionWithDebug(target))

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 112)

elseif spell == "Close Combat" then

local a = getCreatureSpeed(target)

local b = getCreatureSpeed(cid)

doTeleportThing(cid, getThingPositionWithDebug(target), false)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

doChangeSpeed(cid, -b)

doChangeSpeed(target, -a)

local function reputSpeed(cid, delta)

if not isCreature(cid) then return true end

if getCreatureSpeed(cid) > 0 then return true end

doChangeSpeed(cid, delta)

end

local function doCloseCombat(cid, target, finish)

if not isCreature(cid) or not isCreature(target) or finish then

reputSpeed(cid, b)

addEvent(reputSpeed, 400, target, a)

return true end

doSendMagicEffect(getThingPositionWithDebug(cid), CONST_ME_POFF)

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(cid), 0, -min, -max, math.random(112, 113))

end

for dk = 1, 6 do

if dk == 6 then

addEvent(doCloseCombat, dk * 175, cid, target, true)

else

addEvent(doCloseCombat, dk * 175, cid, target)

end

elseif spell == "Squisky Licking" then

local function doLick(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatCondition(cid, getThingPositionWithDebug(target), 0, thunderwavecondition, 255)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 145)

end

for a = 0, 4 do

addEvent(doLick, a * 350, cid, target)

end

elseif spell == "Crusher Stomp" then

doSendMagicEffect(getThingPositionWithDebug(target), 248)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), powdersc, -min, -max, 223)

elseif spell == "Ancient Power" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -5, 5 do

for y = -5, 5 do

local pos = {x = m.x + x, y = m.y + y, z = m.z}

table.insert(t, pos)

end

local function doRockDestroy(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, ROCKDAMAGE, pos, round, -min, -max, 255)

doSendMagicEffect(pos, 235)

end

local function doRockDown(cid, frompos, pos)

if not isCreature(cid) then return true end

doSendDistanceShoot(frompos, pos, 42)

addEvent(doRockDestroy, 300, cid, pos)

end

local function doRockUp(cid, pos)

if not isCreature(cid) then return true end

local topos = {x=pos.x-1,y=pos.y-5,z=pos.z}

doSendDistanceShoot(pos, topos, 42)

doSendMagicEffect(pos, 247)

addEvent(doRockDown, 300, cid, topos, pos)

end

for b = 1, 3 do

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doRockUp, 45 * a, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

elseif spell == "Water Pledge" then

local function doPledge(cid)

if not isCreature(cid) then return true end

local a = getPosByDir(getThingPositionWithDebug(cid), NORTH)

local b = getPosByDir(getThingPositionWithDebug(cid), WEST)

local c = getPosByDir(getThingPositionWithDebug(cid), SOUTH)

local d = getPosByDir(getThingPositionWithDebug(cid), EAST)

doSendDistanceShoot(a, b, 2)

doSendDistanceShoot(b, c, 2)

doSendDistanceShoot(c, d, 2)

doSendDistanceShoot(d, a, 2)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

end

for a = 0, 3 do

addEvent(doPledge, a * 215, cid)

end

elseif spell == "Water Oath" then

local t = {}

for a = 0, 3 do

local a = getPosByDir(getThingPositionWithDebug(target), a)

table.insert(t, a)

end

local frompos = getThingPositionWithDebug(target)

frompos.y = frompos.y - 4

for b = 1, #t do

doSendDistanceShoot(frompos, t, 2)

end

doSendDistanceShoot(frompos, getThingPositionWithDebug(target), 2)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(target), oathzinho, -min, -max, 68)

elseif spell == "Thrash" then

local function doThrash(cid, target, go, turn, pos)

if not isCreature(cid) or not isCreature(target) then

doRegainSpeed(cid)

doRegainSpeed(target)

return true

end

if go then

local a = getPosByDir(getThingPositionWithDebug(target), getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)))

doChangeSpeed(cid, -getCreatureSpeed(cid))

doChangeSpeed(target, -getCreatureSpeed(target))

doChangeSpeed(cid, 800)

doTeleportThing(cid, getThingPositionWithDebug(target))

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

doChangeSpeed(cid, -800)

addEvent(doThrash, 175, cid, target, false, turn - 1, a)

else

doChangeSpeed(cid, 800)

doTeleportThing(cid, pos)

doRegainSpeed(cid)

doRegainSpeed(target)

if turn > 0 then

addEvent(doThrash, 175, cid, target, true, turn)

else

doRegainSpeed(cid)

doRegainSpeed(target)

addEvent(doAdvancedConfuse, 350, cid, 4, getPlayerStorageValue(target, 3891))

local b = getThingPositionWithDebug(cid)

addEvent(doSendAnimatedText, 300, b, "CONFUSED", 210)

end

doThrash(cid, target, true, 3)

elseif spell == "Reflect" then

doSendMagicEffect(getThingPositionWithDebug(cid), 135)

if getPlayerStorageValue(cid, 34) > 0 then

setPlayerStorageValue(cid, 34, getPlayerStorageValue(cid, 34) + 9)

return true

end

setPlayerStorageValue(cid, 34, 9)

local function doEndReflect(cid)

if not isCreature(cid) then return true end

if getPlayerStorageValue(cid, 34) == 0 then

doSendAnimatedText(getThingPositionWithDebug(cid), "BREAK", 180)

return true

end

setPlayerStorageValue(cid, 34, getPlayerStorageValue(cid, 34) - 1)

addEvent(doEndReflect, 500, cid)

end

addEvent(doEndReflect, 500, cid)

elseif spell == "Dragon Breath" then

local posicao = getThingPositionWithDebug(cid)

local function wwind(params)

if isCreature(cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, DRAGONDAMAGE, params.ar, params.br, -min, -max, 246)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y-1, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}, br = whirl3})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}, br = whirl3})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x, y=posicao.y-4, z=posicao.z}, br = whirl5})

addEvent(wwind, 1400, {cid = cid, ar = {x=posicao.x, y=posicao.y-5, z=posicao.z}, br = whirl5})

elseif a == 2 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y+1, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}, br = whirl3})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}, br = whirl3})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x, y=posicao.y+4, z=posicao.z}, br = whirl5})

addEvent(wwind, 1400, {cid = cid, ar = {x=posicao.x, y=posicao.y+5, z=posicao.z}, br = whirl5})

elseif a == 1 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x+1, y=posicao.y, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x+4, y=posicao.y, z=posicao.z}, br = whirl52})

addEvent(wwind, 1400, {cid = cid, ar = {x=posicao.x+5, y=posicao.y, z=posicao.z}, br = whirl52})

elseif a == 3 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x-1, y=posicao.y, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x-4, y=posicao.y, z=posicao.z}, br = whirl52})

addEvent(wwind, 1400, {cid = cid, ar = {x=posicao.x-5, y=posicao.y, z=posicao.z}, br = whirl52})

end

elseif spell == "Flare Blitz" then

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 232)

elseif spell == "Seed Bomb" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 4)

doAreaCombatHealthAtDistance(cid, GRASSDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 45)

elseif spell == "Magical Leaves" then

local function doIt(cid, target, x, y)

if not isCreature(cid) or not isCreature(target) then return true end

local a = getThingPositionWithDebug(target)

local pos = {x = a.x + x, y = a.y + y, z = a.z}

doAreaCombatHealth(cid, GRASSDAMAGE, pos, 0, -min, -max, 255)

doSendDistanceShoot({x = pos.x, y = pos.y - 1, z = pos.z}, {x = pos.x - 1, y = pos.y, z = pos.z}, 21)

doSendDistanceShoot({x = pos.x - 1, y = pos.y, z = pos.z}, {x = pos.x, y = pos.y + 1, z = pos.z}, 21)

doSendDistanceShoot({x = pos.x, y = pos.y + 1, z = pos.z}, {x = pos.x + 1, y = pos.y, z = pos.z}, 21)

doSendDistanceShoot({x = pos.x + 1, y = pos.y, z = pos.z}, {x = pos.x, y = pos.y - 1, z = pos.z}, 21)

end

local regions = {

[1] = {-1, 0},

[2] = {0, -1},

[3] = {1, 0},

[4] = {0, 1},

[5] = {0, 0}}

local function doHurt(cid, target)

doMagicalFlower(target, true)

for tk = 1, 5 do

for a = 0, 2 do

addEvent(doIt, a * 185, cid, target, regions[tk][1], regions[tk][2])

if a == 2 then

addEvent(doMagicalFlower, a * 184, target)

end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 21)

addEvent(doHurt, getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) * 60, cid, target)

elseif spell == "Tidal Wave" then

local posicao = getThingPositionWithDebug(cid)

local function doSurf(cid, area1, area2, effect)

if not isCreature(cid) then return true end

if not isSightClear(posicao, area1, false) then return true end

doAreaCombatHealth(cid, null, area1, whirl5, -min, -max, effect)

if area2.x ~= getThingPositionWithDebug(cid).x or area2.y ~= getThingPositionWithDebug(cid).y then

doAreaCombatHealth(cid, null, area2, whirl5, -min, -max, 68)

end

doAreaCombatHealth(cid, WATERDAMAGE, area1, whirl5, -min, -max, 68)

end

local n = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if n == 0 then

for a = 0, 6 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x, y = posicao.y - (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y - a, z = posicao.z}, 66)

end

elseif n == 2 then

for a = 0, 6 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x, y = posicao.y + (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y + a, z = posicao.z}, 64)

end

elseif n == 1 then

for a = 0, 6 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x + a + 1, y = posicao.y, z = posicao.z}, {x = posicao.x + a, y = posicao.y, z = posicao.z}, 67)

end

elseif n == 3 then

for a = 0, 6 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x - (a + 1), y = posicao.y, z = posicao.z}, {x = posicao.x - a, y = posicao.y, z = posicao.z}, 65)

end

elseif spell == "Epicenter" then

local function doShake(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min, -max, 255)

doSendMagicEffect({x=pos.x+1,y=pos.y+1,z=pos.z}, 127)

end

local function getDifBetween(pos1, pos2)

local a = pos1.x - pos2.x

local b = pos1.y - pos2.y

return math.abs(a) + math.abs(b)

end

local t = {}

for x = -7, 7 do

for y = -7, 7 do

local a = getThingPositionWithDebug(cid)

a.x = a.x + x

a.y = a.y + y

table.insert(t, a)

end

local pos = getThingPositionWithDebug(cid)

local delay = 0

for go = 1, #t do

if getDirectionTo(pos, t[go]) <= 3 then

delay = 0

else

if math.abs(t[go].x - pos.x) == math.abs(t[go].y - pos.y) then

delay = 300

else

delay = 450

end

if delay >= 0 then

addEvent(doShake, getDistanceBetween(pos, t[go]) * 120 + delay, cid, t[go])

end

elseif spell == "Stone Edge" then

local signal = {

[NORTH] = {1, 0},

[sOUTH] = {1, 0},

[EAST] = {0, 1},

[WEST] = {0, 1},

[NORTHEAST] = {-1, -1},

[NORTHWEST] = {1, -1},

[sOUTHEAST] = {-1, 1},

[sOUTHWEST] = {-1, -1}}

local a = getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target))

local pos1 = getThingPositionWithDebug(target)

local pos2 = getThingPositionWithDebug(target)

pos1.x = pos1.x + signal[a][1] * 5

pos1.y = pos1.y + signal[a][2] * 5

pos2.x = pos2.x + signal[a][1] * -5

pos2.y = pos2.y + signal[a][2] * -5

doSendDistanceShoot(pos1, getThingPositionWithDebug(target), 11)

doSendDistanceShoot(pos2, getThingPositionWithDebug(target), 11)

local function doDamage(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 44)

end

addEvent(doDamage, 300, cid, target)

elseif spell == "Night Shade" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 39)

doAreaCombatHealthAtDistance(cid, GHOSTDAMAGE, getThingPositionWithDebug(target), star, -min, -max, 17)

elseif spell == "Razor Wind" then

local signal = {

[NORTH] = {0, -1},

[sOUTH] = {0, 1},

[EAST] = {1, 0},

[WEST] = {-1, 0},

[NORTHEAST] = {1, -1},

[NORTHWEST] = {-1, -1},

[sOUTHEAST] = {1, 1},

[sOUTHWEST] = {-1, 1}}

local a = isCreature(target) and getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) or getCreatureLookDir(cid)

local t = {}

for b = 1, 5 do

local pos = getThingPositionWithDebug(cid)

pos.x = pos.x + signal[a][1] * b

pos.y = pos.y + signal[a][2] * b

if canWalkOnPos(pos, false, true, true, true, false) and isSightClear(getThingPositionWithDebug(cid), pos, false) then

table.insert(t, pos)

end

if #t <= 0 then

doAreaCombatHealth(cid, FLYINGDAMAGE, getPosByDir(getThingPositionWithDebug(cid), a), 0, -min, -max, 42)

return true

end

local effect = 27

if not getCreatureCondition(cid, CONDITION_OUTFIT) and getCreatureOutfit(cid).lookType ~= 366 then

effect = 29

end

doSendDistanceShoot(getThingPositionWithDebug(cid), t[#t], effect)

local function doRazorWind(cid, pos)

if not isCreature(cid) then return true end

if not getCreatureCondition(cid, CONDITION_INVISIBLE) then return true end

doAreaCombatHealth(cid, FLYINGDAMAGE, pos, 0, -min, -max, 42)

end

local function doAppear(cid, pos)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_INVISIBLE)

doTeleportThing(cid, pos, false)

end

doCreatureAddCondition(cid, permanentinvisible)

for c = 1, #t do

addEvent(doRazorWind, 65 * c, cid, t[c])

end

addEvent(doAppear, (90 - (#t * 6)) * #t, cid, t[#t])

elseif spell == "Swords Dance" then

local function doWingAttack(cid, a, damage)

local damagearea = {}

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

if a == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

damagearea = wingdn

elseif a == 1 then

effectpos.x = effectpos.x + 2

effectpos.y = effectpos.y + 1

effect = 129

damagearea = wingde

elseif a == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 2

effect = 131

damagearea = wingds

elseif a == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

damagearea = wingdw

end

doSendMagicEffect(effectpos, effect)

if damage then

doAreaCombatHealth(cid, FLYINGDAMAGE, getThingPositionWithDebug(cid), damagearea, -min, -max, CONST_ME_NONE)

end

local dire = getCreatureLookDir(cid)

local cpos = getThingPositionWithDebug(cid)

local outfit = {}

outfit.lookType = 496

if getCreatureOutfit(cid).lookType ~= 366 then

outfit.lookType = 849

end

doSetCreatureOutfit(cid, outfit, -1)

local function doDance(cid, dir, damage)

if not isCreature(cid) then return true end

doCreatureSetLookDir(cid, dir)

doWingAttack(cid, dir, damage)

end

for times = 0, 20 do

for directions = 0, 3 do

addEvent(doDance, times * 300, cid, directions, true)

end

local function doChangeO(cid, dir, pos)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_OUTFIT)

if getThingPositionWithDebug(cid).x == pos.x and getThingPositionWithDebug(cid).y == pos.y then

doCreatureSetLookDir(cid, dir)

end

addEvent(doChangeO, 20 * 300 + 10, cid, dire, cpos)

elseif spell == "Dance Scizor" then

local function doWingAttack(cid, a, damage)

local damagearea = {}

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

if a == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

damagearea = wingdn

elseif a == 1 then

effectpos.x = effectpos.x + 2

effectpos.y = effectpos.y + 1

effect = 129

damagearea = wingde

elseif a == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 2

effect = 131

damagearea = wingds

elseif a == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

damagearea = wingdw

end

doSendMagicEffect(effectpos, effect)

if damage then

doAreaCombatHealth(cid, FLYINGDAMAGE, getThingPositionWithDebug(cid), damagearea, -min, -max, CONST_ME_NONE)

end

local dire = getCreatureLookDir(cid)

local cpos = getThingPositionWithDebug(cid)

local outfit = {}

outfit.lookType = 496

if getCreatureOutfit(cid).lookType ~= 366 then

outfit.lookType = 918

end

doSetCreatureOutfit(cid, outfit, -1)

local function doDance(cid, dir, damage)

if not isCreature(cid) then return true end

doCreatureSetLookDir(cid, dir)

doWingAttack(cid, dir, damage)

end

for times = 0, 20 do

for directions = 0, 3 do

addEvent(doDance, times * 300, cid, directions, true)

end

local function doChangeO(cid, dir, pos)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_OUTFIT)

if getThingPositionWithDebug(cid).x == pos.x and getThingPositionWithDebug(cid).y == pos.y then

doCreatureSetLookDir(cid, dir)

end

addEvent(doChangeO, 20 * 300 + 10, cid, dire, cpos)

elseif spell == "Rest" then

local function doRecoverOverTime(cid, turn)

if not isCreature(cid) then return true end

if not isSleeping(cid) then return true end

if turn > 100 then return true end

local percent = math.floor(getCreatureMaxHealth(cid) / 100)

doCreatureAddHealth(cid, percent)

addEvent(doRecoverOverTime, 100, cid, turn + 1)

end

doSleep(cid, 12, true)

doRecoverOverTime(cid, 0)

elseif spell == "Stickslash" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 212)

elseif spell == "Elemental Hands" then

if getCreatureOutfit(cid).lookType == 1301 then

return doPlayerSendTextMessage(getCreatureMaster(cid), MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn't recognize this move.")

end --proteçao pra n usar o move com o shiny hitmonchan com outfit diferente da do elite monchan do PO...

local e = getCreatureMaster(cid)

local name = getItemAttribute(getPlayerSlotItem(e, 8).uid, "poke")

local hands = getItemAttribute(getPlayerSlotItem(e, 8).uid, "hands")

%2

Alguém aí sabe se ja conseguiram arrumar o bug da porcaria do move1.lua?

O bug maldito, com esse bug não dá pra deixar o Ot aberto durante muito tempo. Depois ele automaticamente se fecha, aí fica dificiu.

@samuelitho

Velho vê se pega o patch do nibelins ou utiliza a minha sign pra concertar issu, se você tiver pelo o menos uma base ja da pra implantar issu no seu OT.

ALGUÉM AJUDA NO (MOVE1.LUA) A COISA TA FICANDO DIFICIU!

Do Rep+ Durante acho que o mês inteiro se alguém me ajudar em 2 Erros!

[13/07/2012 18:47:11] [Error - Spell Interface]

[13/07/2012 18:47:12] data/spells/scripts/ps/String Shot.lua:onCastSpell

[13/07/2012 18:47:12] Description:

[13/07/2012 18:47:12] data/lib/pokemon moves.lua:479: attempt to call global 'doAdvancedBlind' (a nil value)

[13/07/2012 18:47:12] stack traceback:

[13/07/2012 18:47:12] data/lib/pokemon moves.lua:479: in function 'docastspell'

[13/07/2012 18:47:12] data/spells/scripts/ps/String Shot.lua:5: in function <data/spells/scripts/ps/String Shot.lua:1>

Issu aí é alguma coisa do ( pokemon moves.lua ):

Pokemon Moves.lua (Abaixo):

const_distance_delay = 56

local hitmonchans = {

["Hitmonchan"] = {

[0] = {out = 559, eff = 112}, --outfit normal

[1] = {out = 1075, eff = 35}, --outfit fogo

[2] = {out = 1077, eff = 48}, --outfit raio

[3] = {out = 1078, eff = 43}, --outfit gelo

[4] = {out = 1076, eff = 140} --outfit ghost

},

["Shiny Hitmonchan"] = {

--aconcelho trocar a outfit do shiny hitmonchan pela do elite hitmonchan do PO...

[0] = {out = 837, eff = 112}, --outfit normal

[1] = {out = 1080, eff = 35}, --outfit fogo

[2] = {out = 1081, eff = 48}, --outfit raio

[3] = {out = 1082, eff = 43}, --outfit gelo

[4] = {out = 1079, eff = 140} --outfit ghost

}

function getMasterTarget(cid)

return getCreatureTarget(getCreatureMaster(cid))

end

function doAreaCombatWithDelay(cid, target, pos, area, type, effect, a, b)

if not isCreature(cid) then return true end

local topos = {}

if isCreature(target) then topos = getThingPosWithDebug(target) else topos = pos end

doAreaCombatHealth(cid, type, topos, area, -math.abs(a), -math.abs(b), effect)

end

function doAreaCombatHealthAtDistance(cid, type, pos, area, min, max, effect)

local delay = 0

if isCreature(cid) and isCreature(getMasterTarget(cid)) then

delay = getDistanceBetween(getThingPosWithDebug(cid), getThingPosWithDebug(getMasterTarget(cid))) * const_distance_delay

addEvent(doAreaCombatWithDelay, delay, cid, getMasterTarget(cid), getThingPosWithDebug(getMasterTarget(cid)), area, type, effect, -min, -max)

return true

end

doAreaCombatHealth(cid, type, pos, area, min, max, effect)

end

function docastspell(cid, spell, mina, maxa)

local getThingPositionWithDebug = getThingPosWithDebug

if not isCreature(cid) or getCreatureHealth(cid) <= 0 then return false end

if isSleeping(cid) then return true end

if getPlayerStorageValue(cid, 6) >= 1 then doSendAnimatedText(getThingPositionWithDebug(cid), "DISABLED", 152) return true end

if isMonster(cid) and not isSummon(cid) then

if getCreatureCondition(cid, CONDITION_EXHAUST) then

return true

end

doCreatureAddCondition(cid, wildexhaust)

end

local mydir = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

local target = 0

local getDistDelay = 0

if isCreature(getMasterTarget(cid)) then

target = getMasterTarget(cid)

getDistDelay = getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) * const_distance_delay

end

local movetype = getSpecialAttack(cid)

local min = 0

local max = 0

local healMultiplier = 1

if mina and maxa then

min = math.abs(mina)

max = math.abs(maxa)

elseif not isPlayer(cid) then

if movesinfo[spell] then

if movesinfo[spell].t == "fighting" then

movetype = getOffense(cid) * 1.4 + getSpecialAttack(cid) * 0.45

elseif movesinfo[spell].t == "normal" then

movetype = movetype * 0.6 + getOffense(cid) * 0.6

end

min = 5 + getPokemonLevel(cid) + (movesinfo[spell].f / 100 * movetype * specialoffenseRate)

max = min + getPokemonLevel(cid) * levelFactor

if not isSummon(cid) then

doCreatureSay(cid, string.upper(spell).."!", TALKTYPE_MONSTER)

end

if isNpcSummon(cid) then

local mnn = {" use ", " "}

local use = mnn[math.random(#mnn)]

doCreatureSay(getCreatureMaster(cid), getPlayerStorageValue(cid, 1007)..","..use..""..doCorrectString(spell).."!", 1)

end

else

print("Error trying to use move "..spell..", move not specified in moves table.")

end

--- CONFUSED -------------------------------

if getPlayerStorageValue(cid, 3891) >= 1 then

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

doSendAnimatedText(getThingPositionWithDebug(cid), "SELF HIT", 180)

doTargetCombatHealth(cid, cid, COMBAT_PHYSICALDAMAGE, -min/3, -max/3, 3)

return true

end

--- BLIND ----------------------------------

if getPlayerStorageValue(cid, 3890) >= 1 then

doSendAnimatedText(getThingPositionWithDebug(cid), "MISS", 215)

setPlayerStorageValue(cid, 3890, -1)

return true

end

--- FOCUS ----------------------------------

if getPlayerStorageValue(cid, 253) >= 0 and movesinfo[spell] and movesinfo[spell].f ~= 0 then

min = min * 3

max = max * 3

healMultiplier = 3

setPlayerStorageValue(cid, 253, -1)

end

---- MIMIC ---------------------------------

setPlayerStorageValue(cid, 877, spell)

---- COUNTER -------------------------------

if isCreature(target) and getPlayerStorageValue(target, 879) >= 1 and getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) <= 2 and spell ~= "Counter" then

if movesinfo[spell] and movesinfo[spell].t == "fighting" or movesinfo[spell].t == "normal" then

if not isInArray({"Hyper Beam", "Hyper Voice", "Counter"}, spell) then

docastspell(target, spell, min * 2, max * 2)

doSendAnimatedText(getThingPositionWithDebug(target), "COUNTER", 215)

setPlayerStorageValue(target, 879, -1)

end

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

if spell == "Dynamic Punch" then

local dirs = {

[1] = 0,

[2] = 4,

[3] = 6,

[4] = 1,

[5] = 3,

[6] = 2

}

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 112)

local targetarea = getThingPositionWithDebug(getMasterTarget(cid))

for effcs = 1, 6 do

addEvent(doSendMagicEffect, 150 * effcs, getPosByDir(getThingPositionWithDebug(getMasterTarget(cid)), dirs[effcs]), 17)

end

elseif spell == "Quick Attack" then

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local x = getClosestFreeTile(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doTeleportThing(cid, x, false)

doFaceCreature(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Slam" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 118)

elseif spell == "Rapid Hit" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

local hitalvo = getMasterTarget(cid)

local function sendef(cid)

if isCreature(cid) then

doSendMagicEffect(getThingPositionWithDebug(cid), 3)

end

for times = 0, 3 do

addEvent(sendef, 200*times+80, hitalvo)

end

elseif spell == "Bite" or tonumber(spell) == 5 then

doAreaCombatHealth(cid, DARKDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 146)

elseif spell == "Slash" or tonumber(spell) == 6 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 160)

elseif spell == "Splash" or tonumber(spell) == 7 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

doSendMagicEffect(getThingPositionWithDebug(cid), 53)

elseif spell == "Doubleslap" then

local slapalvo = getMasterTarget(cid)

local summon = cid

local function doSlap(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

addEvent(doSlap, 0, summon, slapalvo)

addEvent(doSlap, 600, summon, slapalvo)

elseif spell == "Mega Punch" then

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 112)

elseif spell == "Scratch" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 142)

elseif spell == "Confusion" then

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(cid), confusion, -min, -max, 133)

elseif spell == "Psychic" then

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(cid), psychic, -min, -max, 136)

elseif spell == "Absorb" or spell == "Leech Life" then

local life = getCreatureHealth(getMasterTarget(cid))

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 14)

local newlife = life - getCreatureHealth(getMasterTarget(cid))

doSendMagicEffect(getThingPositionWithDebug(cid), 14)

if newlife >= 1 then

doCreatureAddHealth(cid, newlife)

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

end

elseif spell == "Mud Shot" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 1)

local function doEffect(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 34)

if math.random(1, 100) >= 78 then

local rounds = math.random(6, 10)

rounds = rounds + math.floor(getPokemonLevel(cid) / 20)

doAdvancedBlind(target, rounds, getPlayerStorageValue(target, 3890), 34)

end

addEvent(doEffect, getDistDelay, cid, target)

elseif spell == "Bubbles" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 2)

doAreaCombatHealthAtDistance(cid, WATERDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 25)

elseif spell == "Water Spout" then

doSendDistanceShoot(getThingPositionWithDebug(cid), {x=getThingPositionWithDebug(cid).x, y=getThingPositionWithDebug(cid).y-5, z=getThingPositionWithDebug(cid).z}, 2)

local function spout(params)

if isCreature(params.cid) then

for x = -2,2 do

for y = -2,2 do

local newpos = getThingPositionWithDebug(params.cid)

newpos.x = newpos.x+x

newpos.y = newpos.y+y

doSendDistanceShoot({x=getThingPositionWithDebug(params.cid).x, y=getThingPositionWithDebug(params.cid).y-5, z=getThingPositionWithDebug(params.cid).z}, newpos, 2)

end

local function spdmg(params)

if isCreature(params.cid) then

doAreaCombatHealth(params.cid, WATERDAMAGE, getThingPositionWithDebug(params.cid), waterspout, -min, -max, 68)

end

addEvent(spout, 300, {cid = cid})

addEvent(spdmg, 450, {cid = cid})

elseif spell == "Horn Attack" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 15)

--doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

addEvent(doAreaCombatWithDelay, getDistDelay, cid, target, getThingPositionWithDebug(target), 0, NORMALDAMAGE, 3, -min, -max)

elseif spell == "Rock Throw" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 11)

doAreaCombatHealthAtDistance(cid, ROCKDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Headbutt" or spell == "Pound" or spell == "Tackle" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Super Sonic" or spell == "Confuse Ray" then

local target = getMasterTarget(cid)

local rounds = math.random(4, 7)

rounds = rounds + math.floor(getPokemonLevel(cid) / 35)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 32)

doAdvancedConfuse(target, rounds, getPlayerStorageValue(target, 3891))

elseif spell == "Fury Attack" then

local alvo = getMasterTarget(cid)

local function doFuryAttack(cid, target, round, rounds)

if not isCreature(cid) then return true end

if round > rounds then

doSendAnimatedText(getThingPositionWithDebug(cid), ""..rounds.." HITS", 35)

return true

end

if isCreature(getMasterTarget(cid)) and getMasterTarget(cid) ~= target then

doSendAnimatedText(getThingPositionWithDebug(cid), ""..rounds.." HITS", 35)

return true

end

if not isCreature(getMasterTarget(cid)) then

doSendAnimatedText(getThingPositionWithDebug(cid), ""..rounds.." HITS", 35)

return true

end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 15)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

addEvent(doFuryAttack, 700, cid, target, round + 1, rounds)

end

local ther = math.random(1, 200)

if ther <= 75 then

maxr = 2

elseif ther >= 76 and ther <= 100 then

maxr = 4

elseif ther >= 101 and ther <= 175 then

maxr = 3

elseif ther >= 176 then

maxr = 5

end

doFuryAttack(cid, alvo, 1, maxr)

elseif spell == "Water Gun" then

if mydir == 0 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1n, -min, -max, 74)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2n, -min, -max, 75)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3n, -min, -max, 76)

elseif mydir == 2 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1s, -min, -max, 77)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2s, -min, -max, 75)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3s, -min, -max, 78)

elseif mydir == 1 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1e, -min, -max, 69)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2e, -min, -max, 70)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3e, -min, -max, 71)

elseif mydir == 3 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1w, -min, -max, 72)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2w, -min, -max, 70)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3w, -min, -max, 73)

end

elseif spell == "Peck" then

doAreaCombatHealth(cid, FLYINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Pluck" then

doAreaCombatHealth(cid, FLYINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), pluck, -min, -max, 2)

elseif spell == "Sand Attack" then

local posicao = getThingPositionWithDebug(cid)

local function sandattack(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(params.cid, GROUNDDAMAGE, params.ar, sand1, -min, -max, params.ef)

end

if mydir == 0 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y-1, z=posicao.z}, ef = 120})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}, ef = 120})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}, ef = 120})

elseif mydir == 2 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y+1, z=posicao.z}, ef = 122})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}, ef = 122})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}, ef = 122})

elseif mydir == 1 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x+1, y=posicao.y, z=posicao.z}, ef = 121})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}, ef = 121})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}, ef = 121})

elseif mydir == 3 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x-1, y=posicao.y, z=posicao.z}, ef = 119})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}, ef = 119})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}, ef = 119})

end

elseif spell == "Spark" then

local function spark(params)

if isCreature(params.cid) then

doSendDistanceShoot(getThingPositionWithDebug(params.cid), params.cidpos, 40)

doAreaCombatHealth(cid, ELECTRICDAMAGE, params.cidpos, 0, -min, -max, 48)

end

for a = -1, 1 do

for b = -1, 1 do

cidpos = getThingPositionWithDebug(cid)

cidpos.x = cidpos.x+a

cidpos.y = cidpos.y+b

addEvent(spark, math.abs(a)*350 + math.abs(b)*650, {cid = cid, cidpos = cidpos})

end

elseif spell == "Razor Leaf" then

local alvo = getMasterTarget(cid)

local function throw(cid, target)

if isCreature(cid) then

if isCreature(target) then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 8)

addEvent(doAreaCombatWithDelay, getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) * 60, cid, target, getThingPositionWithDebug(target), 0, GRASSDAMAGE, 3, -min, -max)

end

addEvent(throw, 0, cid, alvo)

addEvent(throw, 550, cid, alvo)

elseif spell == "Waterball" then

local function throw(params)

if isCreature(params.cid) then

if isCreature(getMasterTarget(params.cid)) then

doSendDistanceShoot(getThingPositionWithDebug(params.cid), getThingPositionWithDebug(getMasterTarget(params.cid)), 2)

addEvent(doAreaCombatWithDelay, getDistDelay, cid, target, getThingPositionWithDebug(target), waba, WATERDAMAGE, 68, -min, -max)

end

addEvent(throw, 0, {cid = cid})

elseif spell == "Restore" or spell == "Selfheal" or spell == "Recover" then

local amount = getSpecialAttack(cid) * 2 * healMultiplier

doSendMagicEffect(getThingPositionWithDebug(cid), 14)

doCreatureAddHealth(cid, amount)

doSendAnimatedText(getThingPositionWithDebug(cid), "+"..amount.."", 35)

elseif spell == "Acid" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 14)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 20)

elseif spell == "Thundershock" or spell == "Thunder Shock" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 40)

doAreaCombatHealthAtDistance(cid, ELECTRICDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 48)

elseif spell == "Water Pulse" then

local function throw(params)

if isCreature(params.cid) then

if isCreature(getMasterTarget(params.cid)) then

doSendDistanceShoot(getThingPositionWithDebug(params.cid), getThingPositionWithDebug(getMasterTarget(params.cid)), 33)

addEvent(doAreaCombatWithDelay, getDistDelay, cid, target, getThingPositionWithDebug(target), 0, WATERDAMAGE, 68, -min, -max)

end

addEvent(throw, 0, {cid = cid})

elseif spell == "String Shot" then

local target = getMasterTarget(cid)

local rounds = math.random(6, 10)

rounds = rounds + math.floor(getPokemonLevel(cid) / 20)

doAdvancedBlind(target, rounds, getPlayerStorageValue(target, 3890), 137)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 23)

elseif spell == "Thunder Wave" then

if mydir == 0 then

doAreaCombatHealth(cid, THUNDERWAVEDAMAGE, getThingPositionWithDebug(cid), tsn, -min, -max, 48)

elseif mydir == 1 then

doAreaCombatHealth(cid, THUNDERWAVEDAMAGE, getThingPositionWithDebug(cid), tse, -min, -max, 48)

elseif mydir == 2 then

doAreaCombatHealth(cid, THUNDERWAVEDAMAGE, getThingPositionWithDebug(cid), tss, -min, -max, 48)

elseif mydir == 3 then

doAreaCombatHealth(cid, THUNDERWAVEDAMAGE, getThingPositionWithDebug(cid), tsw, -min, -max, 48)

end

elseif spell == "Leech Seed" then

local leecher = cid

local leeched = getMasterTarget(cid)

local dmg = 1.5 * getPokemonLevel(cid)

local function drain(cid, target)

if isCreature(cid) and isCreature(target) then

local life = getCreatureHealth(target)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(target), 0, -dmg, -dmg, 45)

local newlife = life - getCreatureHealth(leeched)

if newlife >= 1 then

doSendMagicEffect(getThingPositionWithDebug(leecher), 14)

doCreatureAddHealth(leecher, newlife)

doSendAnimatedText(getThingPositionWithDebug(leecher), "+"..newlife.."", 32)

end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 1)

for rounds = 1, 5 do

addEvent(drain, 2000 * rounds, leecher, leeched)

end

elseif spell == "Sludge" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 6)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 116)

elseif spell == "Poison Sting" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 15)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 8)

elseif spell == "Bug Bite" then

doAreaCombatHealth(cid, BUGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Pin Missile" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 13)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Rock Slide" then

local function doRockHurt(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 44)

end

local function doFallRock(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

pos.x = pos.x + math.random(-3, 1)

local ry = math.random(5, 7)

pos.y = pos.y - ry

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 11)

addEvent(doRockHurt, ry * 52, cid, target)

end

local alvo = getMasterTarget(cid)

for rocks = 0, 4 do

addEvent(doFallRock, rocks * 65, cid, alvo)

end

elseif spell == "Gust" then

local posicao = getThingPositionWithDebug(cid)

local function gust(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, FLYINGDAMAGE, params.ar, sand1, -min, -max, 42)

end

if mydir == 0 then

for b = 0, 3 do

addEvent(gust, 350 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y-(b+1), z=posicao.z}})

end

elseif mydir == 2 then

for b = 0, 3 do

addEvent(gust, 350 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y+(b+1), z=posicao.z}})

end

elseif mydir == 1 then

for b = 0, 3 do

addEvent(gust, 350 * b, {cid = cid, ar = {x=posicao.x+(1+b), y=posicao.y, z=posicao.z}})

end

elseif mydir == 3 then

for b = 0, 3 do

addEvent(gust, 350 * b, {cid = cid, ar = {x=posicao.x-(1+b), y=posicao.y, z=posicao.z}})

end

elseif spell == "Whirlwind" then

local posicao = getThingPositionWithDebug(cid)

local function wwind(params)

if isCreature(cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, FLYINGDAMAGE, params.ar, params.br, -min, -max, 42)

end

if mydir == 0 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y-1, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}, br = whirl3})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}, br = whirl5})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x, y=posicao.y-4, z=posicao.z}, br = whirl5})

elseif mydir == 2 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y+1, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}, br = whirl3})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}, br = whirl5})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x, y=posicao.y+4, z=posicao.z}, br = whirl5})

elseif mydir == 1 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x+1, y=posicao.y, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}, br = whirl52})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x+4, y=posicao.y, z=posicao.z}, br = whirl52})

elseif mydir == 3 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x-1, y=posicao.y, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}, br = whirl52})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x-4, y=posicao.y, z=posicao.z}, br = whirl52})

end

elseif spell == "Hyper Fang" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 159)

elseif spell == "Rollout" then

if getCreatureName(cid) == "Voltorb" then

doSetCreatureOutfit(cid, voltorb, 8300)

elseif getCreatureName(cid) == "Electrode" then

doSetCreatureOutfit(cid, electrode, 8300)

elseif getCreatureName(cid) == "Sandshrew" then

doSetCreatureOutfit(cid, sandshrew, 8300)

elseif getCreatureName(cid) == "Sandslash" then

doSetCreatureOutfit(cid, sandslash, 8300)

elseif getCreatureName(cid) == "Phanpy" then

doSetCreatureOutfit(cid, phanpy, 8300)

elseif getCreatureName(cid) == "Dolphan" then

doSetCreatureOutfit(cid, dolphan, 8300)

elseif getCreatureName(cid) == "Miltank" then

doSetCreatureOutfit(cid, miltank, 8300)

elseif getCreatureName(cid) == "Golem" then

doSetCreatureOutfit(cid, golem, 8300)

elseif getCreatureName(cid) == "Shiny Electrode" then

doSetCreatureOutfit(cid, shinyelectrode, 8300)

elseif getCreatureName(cid) == "Shiny Sandshrew" then

doSetCreatureOutfit(cid, shinysandshrew, 8300)

elseif getCreatureName(cid) == "Shiny Sandslash" then

doSetCreatureOutfit(cid, shinysandslash, 8300)

elseif getCreatureName(cid) == "Shiny Golem" then

doSetCreatureOutfit(cid, shinygolem, 8300)

elseif getCreatureName(cid) == "Shiny Voltorb" then

doSetCreatureOutfit(cid, shinyvoltorb, 8300)

end

doCreatureAddCondition(cid, rollspeedcondition)

local outfit = getCreatureOutfit(cid).lookType

local function roll(cid, outfit)

if not isCreature(cid) then return true end

if getCreatureOutfit(cid).lookType ~= outfit then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

end

for r = 1, 8 do

addEvent(roll, 750 * r, cid, outfit)

end

elseif spell == "Vine Whip" then

local area = getThingPositionWithDebug(cid)

local dano = {}

local effect = 255

if mydir == 0 then

area.x = area.x + 1

area.y = area.y - 1

dano = whipn

effect = 80

elseif mydir == 1 then

area.x = area.x + 2

area.y = area.y + 1

dano = whipe

effect = 83

elseif mydir == 2 then

area.x = area.x + 1

area.y = area.y + 2

dano = whips

effect = 81

elseif mydir == 3 then

area.x = area.x - 1

area.y = area.y + 1

dano = whipw

effect = 82

end

doSendMagicEffect(area, effect)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), dano, -min, -max, 255)

elseif spell == "Psycho Shift" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 39)

doAreaCombatHealthAtDistance(cid, PSYCHOSHIFTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 134)

elseif spell == "Poison Bomb" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 14)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), bomb, -min, -max, 114)

elseif spell == "Toxic Needle" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 15)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 8)

elseif spell == "Harden" then

local function effect(params)

if isCreature(params.cid) then

doSendMagicEffect(getThingPositionWithDebug(params.cid), 144)

end

local function doReduceDefense(cid, qnt)

if not isCreature(cid) then return true end

local a = getDefense(cid)

setPlayerStorageValue(cid, 1002, a - qnt)

end

local function doDoubleDefense(cid)

if not isCreature(cid) then return true end

local a = getDefense(cid)

setPlayerStorageValue(cid, 1002, a * 2)

local b = getDefense(cid)

local c = b - a

addEvent(doReduceDefense, 11 * 1500 + 40, cid, c)

end

doDoubleDefense(cid)

for times = 0, 11 do

addEvent(effect, 1500 * times + 40, {cid = cid})

end

elseif spell == "Fireball" then

doSendMoveEffect(cid, getMasterTarget(cid), 3)

local function damage(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), waba, -min, -max, 5)

end

addEvent(damage, 100, cid, getMasterTarget(cid))

elseif spell == "Toxic" then

if mydir == 0 then

areaa = toxicn

elseif mydir == 1 then

areaa = toxice

elseif mydir == 2 then

areaa = toxics

elseif mydir == 3 then

areaa = toxicw

end

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(cid), areaa, -min, -max, 114)

elseif spell == "Aqua Tail" then

local function rebackSpd(cid, sss)

if not isCreature(cid) then return true end

doChangeSpeed(cid, sss)

setPlayerStorageValue(cid, 446, -1)

end

local x = getCreatureSpeed(cid)

doFaceOpposite(cid)

doChangeSpeed(cid, -x)

addEvent(rebackSpd, 400, cid, x)

setPlayerStorageValue(cid, 446, 1)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 68)

elseif spell == "Fire Fang" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 146)

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 15)

end

addEvent(doBite, 200, cid, target)

elseif spell == "Psy Pulse" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 24)

doAreaCombatHealthAtDistance(cid, PSYCHICDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 136)

elseif spell == "Ember" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 3)

doAreaCombatHealthAtDistance(cid, FIREDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 15)

elseif spell == "Wing Attack" then

local damagearea = {}

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

damagearea = wingdn

elseif a == 1 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 129

damagearea = wingde

elseif a == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 131

damagearea = wingds

elseif a == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

damagearea = wingdw

end

doSendMagicEffect(effectpos, effect)

doAreaCombatHealth(cid, FLYINGDAMAGE, getThingPositionWithDebug(cid), damagearea, -min, -max, CONST_ME_NONE)

elseif spell == "Poisonous Wing" then

local damagearea = {}

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

damagearea = wingdn

elseif a == 1 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 129

damagearea = wingde

elseif a == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 131

damagearea = wingds

elseif a == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

damagearea = wingdw

end

doSendMagicEffect(effectpos, effect)

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(cid), damagearea, -min, -max, 114)

elseif spell == "Mud Bomb" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 38)

local function doDamageWithDelay(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), bomb, -min, -max, 116)

doAreaCombatHealth(cid, null, getThingPositionWithDebug(getMasterTarget(cid)), bomb, 0, 0, 34)

if math.random(1, 100) >= 50 then

local rounds = math.random(6, 10)

rounds = rounds + math.floor(getPokemonLevel(cid) / 20)

doAdvancedBlind(target, rounds, getPlayerStorageValue(target, 3890), 34)

end

addEvent(doDamageWithDelay, getDistDelay, cid, target)

elseif spell == "Sonicboom" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 33)

doAreaCombatHealthAtDistance(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 1)

elseif spell == "Flamethrower" then

local flamepos = getThingPositionWithDebug(cid)

local effect = 255

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

flamepos.x = flamepos.x+1

flamepos.y = flamepos.y-1

effect = 106

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), flamen, -min, -max, 255)

elseif a == 1 then

flamepos.x = flamepos.x+3

flamepos.y = flamepos.y+1

effect = 109

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), flamee, -min, -max, 255)

elseif a == 2 then

flamepos.x = flamepos.x+1

flamepos.y = flamepos.y+3

effect = 107

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), flames, -min, -max, 255)

elseif a == 3 then

flamepos.x = flamepos.x-1

flamepos.y = flamepos.y+1

effect = 108

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), flamew, -min, -max, 255)

end

doSendMagicEffect(flamepos, effect)

elseif spell == "Selfdestruct" then

setPlayerStorageValue(cid, 33, 1)

local function death(params)

if isCreature(params.cid) then

doCreatureAddHealth(params.cid, -getCreatureMaxHealth(cid))

end

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), destruct1, -min, -max, 5)

addEvent(doAreaCombatHealth, 150, cid, NORMALDAMAGE, getThingPositionWithDebug(cid), destruct2, -(min*0.7), -(max*0.8), 5)

addEvent(doAreaCombatHealth, 250, cid, NORMALDAMAGE, getThingPositionWithDebug(cid), destruct3, -(min*0.4), -(max*0.5), 5)

addEvent(death, 250, {cid = cid})

elseif spell == "Drill Peck" then

doAreaCombatHealth(cid, FLYDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 110)

local hitalvo = getMasterTarget(cid)

local function hit(cid, target)

if isCreature(cid) and isCreature(target) then

if getMasterTarget(cid) == target then

doAreaCombatHealth(cid, FLYDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 110)

end

addEvent(hit, 480, cid, hitalvo)

addEvent(hit, 880, cid, hitalvo)

elseif spell == "Dizzy Punch" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 26)

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

local rounds = getPokemonLevel(cid) / 12

rounds = rounds + 2

doAdvancedConfuse(target, rounds, getPlayerStorageValue(target, 3891))

elseif spell == "Poison Gas" then

local function gas(params)

if not isCreature(params.cid) then return true end

doAreaCombatHealth(params.cid, POISONDAMAGE, getThingPositionWithDebug(cid), bomb2, -min, -max, 114)

end

addEvent(gas, 000, {cid = cid, cb = cb})

addEvent(gas, 500, {cid = cid, cb = cb})

addEvent(gas, 1000, {cid = cid, cb = cb})

addEvent(gas, 1500, {cid = cid, cb = cb})

addEvent(gas, 2300, {cid = cid, cb = cb})

addEvent(gas, 2800, {cid = cid, cb = cb})

addEvent(gas, 3300, {cid = cid, cb = cb})

addEvent(gas, 3800, {cid = cid, cb = cb})

addEvent(gas, 4600, {cid = cid, cb = cb})

addEvent(gas, 5100, {cid = cid, cb = cb})

elseif spell == "Twister" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 36)

doAreaCombatHealthAtDistance(cid, DRAGONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 42)

elseif spell == "Rock Tomb" then

local rock1 = {}

local rock2 = {}

local rock3 = {}

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

rock1 = {x=getThingPositionWithDebug(cid).x+1, y=getThingPositionWithDebug(cid).y-1, z=getThingPositionWithDebug(cid).z}

rock2 = {x=getThingPositionWithDebug(cid).x+0, y=getThingPositionWithDebug(cid).y-1, z=getThingPositionWithDebug(cid).z}

rock3 = {x=getThingPositionWithDebug(cid).x-1, y=getThingPositionWithDebug(cid).y-1, z=getThingPositionWithDebug(cid).z}

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(cid), tombn, -min, -max, 118)

elseif a == 2 then

rock1 = {x=getThingPositionWithDebug(cid).x+1, y=getThingPositionWithDebug(cid).y+1, z=getThingPositionWithDebug(cid).z}

rock2 = {x=getThingPositionWithDebug(cid).x+0, y=getThingPositionWithDebug(cid).y+1, z=getThingPositionWithDebug(cid).z}

rock3 = {x=getThingPositionWithDebug(cid).x-1, y=getThingPositionWithDebug(cid).y+1, z=getThingPositionWithDebug(cid).z}

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(cid), tombs, -min, -max, 118)

elseif a == 3 then

rock1 = {x=getThingPositionWithDebug(cid).x-1, y=getThingPositionWithDebug(cid).y+1, z=getThingPositionWithDebug(cid).z}

rock2 = {x=getThingPositionWithDebug(cid).x-1, y=getThingPositionWithDebug(cid).y+0, z=getThingPositionWithDebug(cid).z}

rock3 = {x=getThingPositionWithDebug(cid).x-1, y=getThingPositionWithDebug(cid).y-1, z=getThingPositionWithDebug(cid).z}

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(cid), tombw, -min, -max, 118)

elseif a == 1 then

rock1 = {x=getThingPositionWithDebug(cid).x+1, y=getThingPositionWithDebug(cid).y+1, z=getThingPositionWithDebug(cid).z}

rock2 = {x=getThingPositionWithDebug(cid).x+1, y=getThingPositionWithDebug(cid).y+0, z=getThingPositionWithDebug(cid).z}

rock3 = {x=getThingPositionWithDebug(cid).x+1, y=getThingPositionWithDebug(cid).y-1, z=getThingPositionWithDebug(cid).z}

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(cid), tombe, -min, -max, 118)

end

doSendDistanceShoot(getThingPositionWithDebug(cid), rock1, 11)

doSendDistanceShoot(getThingPositionWithDebug(cid), rock2, 11)

doSendDistanceShoot(getThingPositionWithDebug(cid), rock3, 11)

elseif spell == "Discharge" then

local function discharge(cid, time)

if not isCreature(cid) then

return true

end

if time == 0 then

doSendAnimatedText(getThingPositionWithDebug(cid), "CHARGING", 210)

doSendMagicEffect(getThingPositionWithDebug(cid), 48)

addEvent(discharge, 1000, cid, time + 1)

return true

end

if math.random(1, 100) >= 78 then

doCreatureSay(cid, "DISCHARGE!", TALKTYPE_MONSTER)

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), charge, -(min*(time)), -(max*(time)), 48)

else

if time >= 6 then

doSendAnimatedText(getThingPositionWithDebug(cid), "FAIL", 215)

return true

end

doSendAnimatedText(getThingPositionWithDebug(cid), "CHARGING", 210)

doSendMagicEffect(getThingPositionWithDebug(cid), 48)

addEvent(discharge, 1000, cid, time + 1)

return true

end

discharge(cid, 0)

elseif spell == "Mega Prick" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 25)

doAreaCombatHealthAtDistance(cid, BUGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Gunk Shot" then

local target = getMasterTarget(cid)

local function rocksdown(cid, target, pos)

if not isCreature(cid) then return true end

if not isCreature(target) then return true end

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 6)

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), tresportres, -min, -max, 116)

end

local function rocksup(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

local posa = getThingPositionWithDebug(cid)

local posb = getThingPositionWithDebug(target)

local xx = 0

if posb.x < posa.x then

xx = -1

end

local posc = posa

posc.x = posc.x + xx

posc.y = posc.y - 3

doSendDistanceShoot(getThingPositionWithDebug(cid), posc, 6)

addEvent(rocksdown, 300, cid, target, posc)

end

rocksup(cid, target)

elseif spell == "Tornado" then

local pos = getThingPositionWithDebug(cid)

local function tornado(cid, area, effect, type)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, type, pos, area, -min, -max, effect)

end

addEvent(tornado, 0, cid, tor1, CONST_ME_POFF, null)

addEvent(tornado, 200, cid, tor1, 42, FLYDAMAGE)

addEvent(tornado, 500, cid, tor2, CONST_ME_POFF, null)

addEvent(tornado, 700, cid, tor2, 42, FLYDAMAGE)

addEvent(tornado, 1000, cid, tor3, CONST_ME_POFF, null)

addEvent(tornado, 1200, cid, tor3, 42, FLYDAMAGE)

addEvent(tornado, 750, cid, tor1, CONST_ME_POFF, null)

addEvent(tornado, 1250, cid, tor2, CONST_ME_POFF, null)

addEvent(tornado, 1550, cid, tor3, CONST_ME_POFF, null)

elseif spell == "Psybeam" then

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid), true) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), bmn, -min, -max, 57)

elseif a == 2 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), bms, -min, -max, 58)

elseif a == 1 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), bme, -min, -max, 234)

elseif a == 3 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), bmw, -min, -max, 209)

end

elseif spell == "Leaf Storm" or tonumber(spell) == 73 then

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), grassarea, -min, -max, 255)

local pos = getThingPositionWithDebug(cid)

local function doSendLeafStorm(cid, pos)

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 8)

end

for a = 1, 250 do

local lugar = {x = pos.x + math.random(-9, 9), y = pos.y + math.random(-8, 8), z = pos.z}

addEvent(doSendLeafStorm, a * 2, cid, lugar)

end

elseif spell == "Ranging Blast" then

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), rageblast1, -min, -max, 6)

local function damage(cid, area)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), area, -min, -max, 6)

end

addEvent(damage, 200, cid, rageblast2)

addEvent(damage, 400, cid, rageblast3)

addEvent(damage, 600, cid, rageblast4)

addEvent(damage, 800, cid, rageblast5)

elseif spell == "Tri Attack" or spell == "Tri-attack" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 226)

elseif spell == "Petal Dance" or tonumber(spell) == 76 then

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), grassarea, -min, -max, 255)

local lugar = getThingPositionWithDebug(cid)

for x= -7,7 do

for y= -6,6 do

local topos = {x=lugar.x+x, y=lugar.y+y, z=lugar.z}

doSendDistanceShoot(getThingPositionWithDebug(cid), topos, 21)

end

elseif spell == "Dragon Pulse" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 24)

doAreaCombatHealthAtDistance(cid, DRAGONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 136)

elseif spell == "Zap Cannon" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 34)

doAreaCombatHealthAtDistance(cid, ELECTRICDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), zap, -min, -max, 11)

elseif spell == "Charge Beam" then

for pa = -2, 2 do

for pb = -2, 2 do

local pos = getThingPositionWithDebug(cid)

pos.x = pos.x+pa

pos.y = pos.y+pb

doSendDistanceShoot(pos, getThingPositionWithDebug(cid), 40)

end

local function dmgbeam(cid)

if not isCreature(cid) then return true end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), beamn, -min, -max, 48)

elseif a == 1 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), beame, -min, -max, 48)

elseif a == 2 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), beams, -min, -max, 48)

elseif a == 3 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), beamw, -min, -max, 48)

end

addEvent(dmgbeam, 700, cid)

elseif spell == "Slime Wave" then

local function slime(cid, area)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, POISONDAMAGE, area, wave, -min, -max, 116)

doAreaCombatHealth(cid, null, area, wave, -min, -max, 114)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

local posicao = getThingPositionWithDebug(cid)

if a == 0 then

addEvent(slime, 0, cid, {x=posicao.x, y=posicao.y-1, z=posicao.z})

addEvent(slime, 150, cid, {x=posicao.x, y=posicao.y-2, z=posicao.z})

addEvent(slime, 300, cid, {x=posicao.x, y=posicao.y-3, z=posicao.z})

addEvent(slime, 450, cid, {x=posicao.x, y=posicao.y-4, z=posicao.z})

elseif a == 1 then

addEvent(slime, 0, cid, {x=posicao.x+1, y=posicao.y, z=posicao.z})

addEvent(slime, 150, cid, {x=posicao.x+2, y=posicao.y, z=posicao.z})

addEvent(slime, 300, cid, {x=posicao.x+3, y=posicao.y, z=posicao.z})

addEvent(slime, 450, cid, {x=posicao.x+4, y=posicao.y, z=posicao.z})

elseif a == 2 then

addEvent(slime, 0, cid, {x=posicao.x, y=posicao.y+1, z=posicao.z})

addEvent(slime, 150, cid, {x=posicao.x, y=posicao.y+2, z=posicao.z})

addEvent(slime, 300, cid, {x=posicao.x, y=posicao.y+3, z=posicao.z})

addEvent(slime, 450, cid, {x=posicao.x, y=posicao.y+4, z=posicao.z})

elseif a == 3 then

addEvent(slime, 0, cid, {x=posicao.x-1, y=posicao.y, z=posicao.z})

addEvent(slime, 150, cid, {x=posicao.x-2, y=posicao.y, z=posicao.z})

addEvent(slime, 300, cid, {x=posicao.x-3, y=posicao.y, z=posicao.z})

addEvent(slime, 450, cid, {x=posicao.x-4, y=posicao.y, z=posicao.z})

end

elseif spell == "Earthshock" then

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(cid), eshock, -min, -max, 255)

local sps = getThingPositionWithDebug(cid)

sps.x = sps.x+1

sps.y = sps.y+1

doSendMagicEffect(sps, 127)

elseif spell == "Solar Beam" then

local function useSolarBeam(cid)

if not isCreature(cid) then

return true

end

if isSleeping(cid) then

return true

end

local effect1 = 255

local effect2 = 255

local effect3 = 255

local effect4 = 255

local effect5 = 255

local area = {}

local pos1 = getThingPositionWithDebug(cid)

local pos2 = getThingPositionWithDebug(cid)

local pos3 = getThingPositionWithDebug(cid)

local pos4 = getThingPositionWithDebug(cid)

local pos5 = getThingPositionWithDebug(cid)

if getCreatureLookDir(cid) == 1 then

effect1 = 4

effect2 = 10

effect3 = 10

effect4 = 10

effect5 = 26

pos1.x = pos1.x + 2

pos1.y = pos1.y + 1

pos2.x = pos2.x + 3

pos2.y = pos2.y + 1

pos3.x = pos3.x + 4

pos3.y = pos3.y + 1

pos4.x = pos4.x + 5

pos4.y = pos4.y + 1

pos5.x = pos5.x + 6

pos5.y = pos5.y + 1

area = solare

elseif getCreatureLookDir(cid) == 0 then

effect1 = 36

effect2 = 37

effect3 = 37

effect4 = 38

pos1.x = pos1.x + 1

pos1.y = pos1.y - 1

pos2.x = pos2.x + 1

pos2.y = pos2.y - 3

pos3.x = pos3.x + 1

pos3.y = pos3.y - 4

pos4.x = pos4.x + 1

pos4.y = pos4.y - 5

area = solarn

elseif getCreatureLookDir(cid) == 2 then

effect1 = 46

effect2 = 50

effect3 = 50

effect4 = 59

pos1.x = pos1.x + 1

pos1.y = pos1.y + 2

pos2.x = pos2.x + 1

pos2.y = pos2.y + 3

pos3.x = pos3.x + 1

pos3.y = pos3.y + 4

pos4.x = pos4.x + 1

pos4.y = pos4.y + 5

area = solars

elseif getCreatureLookDir(cid) == 3 then

effect1 = 115

effect2 = 162

effect3 = 162

effect4 = 162

effect5 = 163

pos1.x = pos1.x - 1

pos1.y = pos1.y + 1

pos2.x = pos2.x - 3

pos2.y = pos2.y + 1

pos3.x = pos3.x - 4

pos3.y = pos3.y + 1

pos4.x = pos4.x - 5

pos4.y = pos4.y + 1

pos5.x = pos5.x - 6

pos5.y = pos5.y + 1

area = solarw

end

if effect1 ~= 255 then

doSendMagicEffect(pos1, effect1)

end

if effect2 ~= 255 then

doSendMagicEffect(pos2, effect2)

end

if effect3 ~= 255 then

doSendMagicEffect(pos3, effect3)

end

if effect4 ~= 255 then

doSendMagicEffect(pos4, effect4)

end

if effect5 ~= 255 then

doSendMagicEffect(pos5, effect5)

end

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), area, -min, -max, 255)

doRegainSpeed(cid)

end

local function ChargingBeam(cid)

if not isCreature(cid) then

return true

end

if isSleeping(cid) then

return true

end

local tab = {}

for x = -2, 2 do

for y = -2, 2 do

local pos = getThingPositionWithDebug(cid)

pos.x = pos.x + x

pos.y = pos.y + y

if pos.x ~= getThingPositionWithDebug(cid).x and pos.y ~= getThingPositionWithDebug(cid).y then

table.insert(tab, pos)

end

doSendDistanceShoot(tab[math.random(#tab)], getThingPositionWithDebug(cid), 37)

end

doChangeSpeed(cid, -getCreatureSpeed(cid))

for r = 1, 270 do

addEvent(ChargingBeam, r*9, cid)

end

addEvent(useSolarBeam, 2800, cid)

elseif spell == "Sleep Powder" then

local calc = math.floor(getPokemonLevel(cid) / 20)

local v1 = 6

local v2 = v1 + calc

doAreaCombatHealth(cid, SLEEP_POWDERDAMAGE, getThingPositionWithDebug(cid), powders, -v1, -v2, 27)

elseif spell == "Stun Spore" then

local area = powders

doAreaCombatCondition(cid, getThingPositionWithDebug(cid), area, stunsporecondition, 85)

elseif spell == "Poison Powder" then

local v1 = (10 + getPokemonLevel(cid)) * 2

setPlayerStorageValue(cid, 919231, v1)

local v3 = getPokemonLevel(cid) / 10 + 5

doAreaCombatHealth(cid, POISON_POWDERDAMAGE, getThingPositionWithDebug(cid), powders, -v3, -v3, 84)

elseif spell == "Body Slam" then

doBodyPush(cid, target, true)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Bullet Seed" then

local function doShootBulletSeed(cid, target, shoot, effect)

if not isCreature(cid) or not isCreature(target) then return true end

if getCreatureHealth(target) <= 0 then return true end

if shoot then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 1)

end

if effect then

doSendMagicEffect(getThingPositionWithDebug(target), effect)

end

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

end

for a = 1, 9 do

if a == 3 or a == 6 or a == 9 then

addEvent(doShootBulletSeed, a * 65, cid, getMasterTarget(cid), true, 45)

else

addEvent(doShootBulletSeed, a * 65, cid, getMasterTarget(cid), true, 3)

end

elseif spell == "Fire Spin" then

local function sendFireEff(cid, dir)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getPosByDir(getThingPositionWithDebug(cid), dir), 0, -min, -max, 15)

end

local function doSpinFire(cid)

if not isCreature(cid) then return true end

local t = {

[1] = SOUTHWEST,

[2] = SOUTH,

[3] = SOUTHEAST,

[4] = EAST,

[5] = NORTHEAST,

[6] = NORTH,

[7] = NORTHWEST,

[8] = WEST,

[17] = SOUTHWEST,

}

for a = 1, 17 do

if not t[a] then

addEvent(sendFireEff, a * 140, cid, t[a-8])

else

addEvent(sendFireEff, a * 140, cid, t[a])

end

doSpinFire(cid, false, cid)

elseif spell == "Burning Skin" then

local function doBurnSkin(cid)

if not isCreature(cid) then return true end

doSendMagicEffect(getThingPositionWithDebug(cid), 15)

for a = 0, 7 do

local pos = getPosByDir(getThingPositionWithDebug(cid), a)

local man = getTopCreature(pos).uid

if isCreature(man) then

doAreaCombatHealth(cid, FIREDAMAGE, pos, 0, -min, -max, 255)

end

for b = 1, 10 do

addEvent(doBurnSkin, b * 650, cid)

end

elseif spell == "Fire Blast" then

local posicao = getThingPositionWithDebug(cid)

local function fireBlast(cid, area1, area2, effect, area3)

if not isCreature(cid) then return true end

if not isSightClear(posicao, area1, false) then return true end

doAreaCombatHealth(cid, null, area1, 0, -min, -max, effect)

if area2.x ~= getThingPositionWithDebug(cid).x or area2.y ~= getThingPositionWithDebug(cid).y then

doAreaCombatHealth(cid, null, area2, area3, -min, -max, 35)

end

doAreaCombatHealth(cid, FIREDAMAGE, area1, area3, -min, -max, 35)

end

local m = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if m == 0 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x, y = posicao.y - (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y - a, z = posicao.z}, 60, whirl3)

end

elseif m == 2 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x, y = posicao.y + (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y + a, z = posicao.z}, 62, whirl3)

end

elseif m == 1 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x + a + 1, y = posicao.y, z = posicao.z}, {x = posicao.x + a, y = posicao.y, z = posicao.z}, 61, whirl3)

end

elseif m == 3 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x - (a + 1), y = posicao.y, z = posicao.z}, {x = posicao.x - a, y = posicao.y, z = posicao.z}, 63, whirl3)

end

elseif spell == "Bubble Blast" then

local pos = getThingPositionWithDebug(cid)

local function doSendBubble(cid, pos)

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 2)

doSendMagicEffect(pos, 53)

doAreaCombatHealth(cid, WATERDAMAGE, pos, 0, -min, -max, 1)

end

for b = 1, 3 do

for a = 1, 20 do

local lugar = {x = pos.x + math.random(-4, 4), y = pos.y + math.random(-3, 3), z = pos.z}

addEvent(doSendBubble, a * 75, cid, lugar)

end

elseif spell == "Jet Cannons" then

local function doWaterGun(cid, pos, effectlist, arealist)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, WATERDAMAGE, pos, arealist[1], -min, -max, effectlist[1])

doAreaCombatHealth(cid, WATERDAMAGE, pos, arealist[2], -min, -max, effectlist[2])

doAreaCombatHealth(cid, WATERDAMAGE, pos, arealist[3], -min, -max, effectlist[3])

end

local pos = getThingPositionWithDebug(cid)

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

local list = {74, 75, 76}

local lisx = {jg1n, jg2n, jg3n}

doWaterGun(cid, pos, list, lisx)

elseif a == 2 then

local list = {77, 75, 78}

local lisx = {jg1s, jg2s, jg3s}

doWaterGun(cid, pos, list, lisx)

elseif a == 1 then

local list = {69, 70, 71}

local lisx = {jg1e, jg2e, jg3e}

doWaterGun(cid, pos, list, lisx)

elseif a == 3 then

local list = {72, 70, 73}

local lisx = {jg1w, jg2w, jg3w}

doWaterGun(cid, pos, list, lisx)

end

elseif spell == "Surf" then

local posicao = getThingPositionWithDebug(cid)

local function doSurf(cid, area1, area2, effect)

if not isCreature(cid) then return true end

if not isSightClear(posicao, area1, false) then return true end

doAreaCombatHealth(cid, null, area1, whirl3, -min, -max, effect)

if area2.x ~= getThingPositionWithDebug(cid).x or area2.y ~= getThingPositionWithDebug(cid).y then

doAreaCombatHealth(cid, null, area2, whirl3, -min, -max, 68)

end

doAreaCombatHealth(cid, WATERDAMAGE, area1, whirl3, -min, -max, 68)

end

local n = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if n == 0 then

for a = 0, 5 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x, y = posicao.y - (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y - a, z = posicao.z}, 66)

end

elseif n == 2 then

for a = 0, 5 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x, y = posicao.y + (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y + a, z = posicao.z}, 64)

end

elseif n == 1 then

for a = 0, 5 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x + a + 1, y = posicao.y, z = posicao.z}, {x = posicao.x + a, y = posicao.y, z = posicao.z}, 67)

end

elseif n == 3 then

for a = 0, 5 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x - (a + 1), y = posicao.y, z = posicao.z}, {x = posicao.x - a, y = posicao.y, z = posicao.z}, 65)

end

elseif spell == "Hydro Pump" then

local function doUpdateHydroPumpPos(cid, pos)

if isCreature(cid) then

return getThingPositionWithDebug(cid)

else

return pos

end

local function doSendHydroPump(pos, base)

if base then

doSendMagicEffect(pos, 53)

end

local topos = {x = pos.x, y = pos.y, z = pos.z}

topos.x = topos.x + math.random(-1, 1)

local random = math.random(-6, -4)

topos.y = topos.y + random

doSendDistanceShoot(pos, topos, 2)

addEvent(doSendMagicEffect, math.abs(random) * 50, topos, 1)

end

local target = getMasterTarget(cid)

local pos = getThingPositionWithDebug(target)

for a = 1, 18 do

local backup = pos

pos = doUpdateHydroPumpPos(target, backup)

if a == 3 or a == 6 or a == 9 or a == 12 or a == 15 or a == 18 then

addEvent(doSendHydroPump, a * 55, pos, true)

else

addEvent(doSendHydroPump, a * 55, pos, false)

end

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 255)

elseif spell == "Skull Bash" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 118)

elseif spell == "Sing" then

doAreaCombatHealth(cid, SLEEP_POWDERDAMAGE, getThingPositionWithDebug(cid), powders, -6, -10, 33)

local pos = getThingPositionWithDebug(cid)

local function doSing(cid, effect, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, null, pos, powders, 0, 0, effect)

end

elseif spell == "Invisible" or spell == "GhostInvisible" then

if getPokemonLevel(cid) <= 40 then

doCreatureAddCondition(cid, weakinvisible)

else

doCreatureAddCondition(cid, stronginvisible)

end

doSendMagicEffect(getThingPositionWithDebug(cid), 134)

elseif spell == "Mach Punch" then

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local x = getClosestFreeTile(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doTeleportThing(cid, x, false)

doFaceCreature(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 112)

elseif spell == "Hypnosis" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 24)

doAreaCombatHealthAtDistance(cid, SLEEP_POWDERDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -5, -9, 255)

elseif spell == "Extreme Speed" or tonumber(spell) == 102 then

doCreatureAddCondition(cid, permanentinvisible)

local x = getCreatureSpeed(cid)

local target = getMasterTarget(cid)

doChangeSpeed(cid, -x)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local function doFinishExtremeSpeed(cid, target, x)

if not isCreature(cid) then return true end

if not isCreature(target) then doRemoveCondition(cid, CONDITION_INVISIBLE) return true end

doTeleportThing(cid, getClosestFreeTile(cid, getThingPositionWithDebug(target)), false)

doRemoveCondition(cid, CONDITION_INVISIBLE)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

doFaceCreature(cid, getThingPositionWithDebug(target))

doChangeSpeed(cid, x)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

local function doExtremeSpeed(cid, target, x)

if not isCreature(cid) then return true end

if not isCreature(target) then

doRemoveCondition(cid, CONDITION_INVISIBLE)

doChangeSpeed(cid, x)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

return true

end

if getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) <= 1 then

doSendMagicEffect(getPosByDir(getThingPositionWithDebug(target), math.random(0, 7)), 211)

else

local dir = getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target))

doSendMagicEffect(getPosByDir(getThingPositionWithDebug(cid), dir), 211)

doTeleportThing(cid, getPosByDir(getThingPositionWithDebug(cid), dir), false)

end

for a = 1, 6 do

addEvent(doExtremeSpeed, 60 * a, cid, target, x)

end

addEvent(doFinishExtremeSpeed, 60 * 6, cid, target, x)

elseif spell == "Zen Headbutt" then

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 136)

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Mega Kick" or spell == "Low Kick" then

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 113)

elseif spell == "Double Punch" then

local target = getMasterTarget(cid)

local function doPunch(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 112)

end

addEvent(doPunch, 0, cid, target)

addEvent(doPunch, 600, cid, target)

elseif spell == "Triple Punch" then

local target = getMasterTarget(cid)

local function doPunch(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 112)

end

addEvent(doPunch, 0, cid, target)

addEvent(doPunch, 600, cid, target)

addEvent(doPunch, 1200, cid, target)

elseif spell == "Double Kick" then

local target = getMasterTarget(cid)

local function doKick(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 113)

end

addEvent(doKick, 0, cid, target)

addEvent(doKick, 600, cid, target)

elseif spell == "Triple Kick" then

local target = getMasterTarget(cid)

local function doKick(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 113)

end

addEvent(doKick, 0, cid, target)

addEvent(doKick, 600, cid, target)

addEvent(doKick, 1200, cid, target)

elseif spell == "Hi Jump Kick" then

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local x = getClosestFreeTile(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doTeleportThing(cid, x, false)

doFaceCreature(cid, getThingPositionWithDebug(getMasterTarget(cid)))

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 113)

elseif spell == "Focus Punch" then

local function doFocusPunch(cid)

if not isCreature(cid) then return true end

doSendMagicEffect(getThingPositionWithDebug(cid), 247)

end

local function useFocusPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 249)

end

local target = getMasterTarget(cid)

for a = 1, 8 do

addEvent(doFocusPunch, a * 160, cid)

end

addEvent(useFocusPunch, 160 * 8 + 1000, cid, target)

elseif spell == "Omnikick" then

doCreatureAddCondition(cid, permanentinvisible)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local t = {NORTHWEST, NORTHEAST, SOUTHWEST, SOUTHEAST, SOUTH, WEST, EAST, NORTH}

local function doRandomDK(cid, target, t, damage)

if not isCreature(cid) or not isCreature(target) then return true end

local a = t[math.random(1, 8)]

local pos = getPosByDir(getThingPositionWithDebug(target), a)

doSendMagicEffect(pos, 211)

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 19)

if damage then

doTeleportThing(cid, pos, false)

doFaceCreature(cid, getThingPositionWithDebug(target))

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

local target = getMasterTarget(cid)

local function doEndDK(cid)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_INVISIBLE)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

end

for a = 1, 24 do

if a == 8 or a == 16 or a == 24 then

addEvent(doRandomDK, a * 75, cid, target, t, true)

else

addEvent(doRandomDK, a * 75, cid, target, t, false)

end

addEvent(doEndDK, 24 * 75, cid)

elseif spell == "Crunch" then

doAreaCombatHealth(cid, DARKDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 138)

elseif spell == "Thunder Fang" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 146)

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

end

addEvent(doBite, 200, cid, target)

elseif spell == "Poison Fang" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 146)

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 114)

end

addEvent(doBite, 200, cid, target)

elseif spell == "Ice Fang" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 146)

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 43)

end

addEvent(doBite, 200, cid, target)

elseif spell == "Aqua Jet" then

for a = -7, 7 do

for b = -6, 6 do

local pos = getThingPositionWithDebug(cid)

local place = {x=pos.x+a,y=pos.y+b,z=pos.z}

doSendDistanceShoot(getThingPositionWithDebug(cid), place, 2)

end

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), grassarea, -min, -max, 255)

elseif spell == "Hyper Cut" then

local target = getMasterTarget(cid)

local apos = getThingPositionWithDebug(target)

local bpos = getThingPositionWithDebug(cid)

local function doCut(cid, pos)

if not isCreature(cid) then doSendMagicEffect(pos, 160) return true end

doAreaCombatHealth(cid, NORMALDAMAGE, pos, 0, -min, -max, 160)

end

local t = {

[1] = {x = apos.x + 1, y = apos.y - 1, z = apos.z},

[2] = {x = apos.x - 1, y = apos.y + 1, z = apos.z},

[3] = {x = apos.x - 1, y = apos.y - 1, z = apos.z},

[4] = {x = apos.x + 1, y = apos.y + 1, z = apos.z}}

local delay = 0

if (bpos.x == apos.x + 1 and bpos.y == apos.y + 1) or (bpos.x == apos.x - 1 and bpos.y == apos.y - 1) then

doCut(cid, t[1])

addEvent(doCut, 200, cid, apos)

addEvent(doCut, 400, cid, t[2])

else

doCut(cid, t[3])

addEvent(doCut, 200, cid, apos)

addEvent(doCut, 400, cid, t[4])

end

elseif spell == "Psyshock" then

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid), true) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tsn, -min, -max, 47)

elseif a == 1 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tse, -min, -max, 47)

elseif a == 2 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tss, -min, -max, 47)

elseif a == 3 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tsw, -min, -max, 47)

end

elseif spell == "Psywave" then

local mydir = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid), true) or getCreatureLookDir(cid)

if mydir == 0 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tsn, -min, -max, 136)

elseif mydir == 1 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tse, -min, -max, 136)

elseif mydir == 2 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tss, -min, -max, 136)

elseif mydir == 3 then

doAreaCombatHealth(cid, PSYDAMAGE, getThingPositionWithDebug(cid), tsw, -min, -max, 136)

end

elseif spell == "Mega Drain" then

local life = getCreatureHealth(getMasterTarget(cid))

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 14)

local newlife = (life - getCreatureHealth(getMasterTarget(cid)))

doSendMagicEffect(getThingPositionWithDebug(cid), 239)

if newlife >= 1 then

doCreatureAddHealth(cid, newlife)

doSendAnimatedText(getThingPositionWithDebug(cid), "+"..newlife.."", 35)

end

elseif spell == "Multislap" then

local slapalvo = getMasterTarget(cid)

local random = math.random(1, 4)

local function doSlap(cid, target)

if isCreature(cid) and isCreature(target) then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 148)

end

local function doSayTimes(cid, target, time, say)

if not isCreature(cid) then return true end

if not isCreature(target) or say then

doSendAnimatedText(getThingPositionWithDebug(cid), ""..time.." SLAPS", 215)

return true

end

for a = 0, random do

if a == random then

addEvent(doSayTimes, a * 700, cid, slapalvo, a + 1, true)

else

addEvent(doSayTimes, a * 700, cid, slapalvo, a + 1, false)

end

addEvent(doSlap, a * 700, cid, slapalvo)

end

elseif spell == "Disable" then

local function doEnable(cid, what)

if not isCreature(cid) then return true end

local a = getPlayerStorageValue(cid, 6)

if a ~= what then return true end

if getPlayerStorageValue(cid, 6) <= 0 then

doSendAnimatedText(getThingPositionWithDebug(cid), "ENABLED", COLOR_GRASS)

return true

end

setPlayerStorageValue(cid, 6, a - 1)

doSendMagicEffect(getThingPositionWithDebug(cid), 13)

addEvent(doEnable, 500, cid, what - 1)

end

local target = getMasterTarget(cid)

if isPlayer(target) then return true end

doSendMagicEffect(getThingPositionWithDebug(target), 13)

local time = math.random(6, 12) + math.floor(getPokemonLevel(cid) / 7.5)

if getPlayerStorageValue(target, 6) > 0 then

setPlayerStorageValue(target, 6, getPlayerStorageValue(target, 6) + time)

local b = getPlayerStorageValue(target, 6)

doEnable(target, b)

return true

end

doSendAnimatedText(getThingPositionWithDebug(target), "DISABLED", 152)

setPlayerStorageValue(target, 6, time)

local b = getPlayerStorageValue(target, 6)

doEnable(target, b)

elseif spell == "Reversal" then

local health = math.floor(getCreatureHealth(cid) / getCreatureMaxHealth(cid) * 100)

local increase = (100 - health) * 0.03

local rate = 1 + increase

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min * rate, -max * rate, 231)

elseif spell == "Demon Kicker" then

local sp = getCreatureSpeed(cid)

doChangeSpeed(cid, -sp)

local b = getMasterTarget(cid)

local pos = getThingPositionWithDebug(b)

local function doShootKick(cid, pos, speed)

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 19)

if speed > 0 then

doChangeSpeed(cid, speed)

end

for a = 0, 45 do

if a == 30 then

addEvent(doShootKick, a * 10, cid, pos, sp)

else

addEvent(doShootKick, a * 10, cid, pos, -1)

end

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(b), 0, -min, -max, 3)

elseif spell == "Furious Legs" then

local outfit = {}

outfit.lookType = 652

if isCreature(getMasterTarget(cid)) then

doFaceCreature(cid, getThingPositionWithDebug(getMasterTarget(cid)))

end

local b = mydir

local p = getThingPositionWithDebug(cid)

local t = {}

if b == NORTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y - 1, z = p.z}

table.insert(t, pos)

end

elseif b == SOUTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y + 1, z = p.z}

table.insert(t, pos)

end

elseif b == EAST then

for k = -1, 1 do

local pos = {x = p.x + 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

elseif b == WEST then

for k = -1, 1 do

local pos = {x = p.x - 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

local a = getCreatureSpeed(cid)

doChangeSpeed(cid, -a)

doSetCreatureOutfit(cid, outfit, -1)

local function doKickPos(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FIGHTDAMAGE, pos, 0, -min, -max, 113)

end

local function doReturn(cid, speed)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_OUTFIT)

doChangeSpeed(cid, speed)

end

for times = 0, 2 do

for kicks = 1, 3 do

addEvent(doKickPos, kicks * 140 + times * 400, cid, t[kicks])

end

addEvent(doReturn, 1480, cid, a)

elseif spell == "Hyper Beam" then

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1n, -min, -max, 152)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2n, -min, -max, 158)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3n, -min, -max, 156)

elseif a == 2 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1s, -min, -max, 151)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2s, -min, -max, 158)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3s, -min, -max, 155)

elseif a == 1 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1e, -min, -max, 149)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2e, -min, -max, 157)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3e, -min, -max, 153)

elseif a == 3 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1w, -min, -max, 150)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2w, -min, -max, 157)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3w, -min, -max, 154)

end

elseif spell == "Fire Punch" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 112)

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 15)

end

addEvent(doPunch, 200, cid, target)

elseif spell == "Thunder Punch" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 112)

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

end

addEvent(doPunch, 200, cid, target)

elseif spell == "Ice Punch" then

local target = getMasterTarget(cid)

doSendMagicEffect(getThingPositionWithDebug(getMasterTarget(cid)), 112)

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 43)

end

addEvent(doPunch, 200, cid, target)

elseif spell == "Mud Slap" or spell == "Mud-slap" then

local target = getMasterTarget(cid)

local function jogarLama(cid, target, damage)

if not isCreature(target) then return true end

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 38)

if damage then

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

for a = 1, 23 do

if a == 4 or a == 15 or a == 22 then

addEvent(jogarLama, a * 32, cid, target, true)

else

addEvent(jogarLama, a * 32, cid, target, false)

end

elseif spell == "Fire Mark" then

local target = getMasterTarget(cid)

local function markFire(cid, target, damage)

if not isCreature(target) then return true end

if not isCreature(cid) then return true end

doSendMagicEffect(getThingPositionWithDebug(target), 15)

if damage then

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

end

for a = 1, 23 do

if a == 4 or a == 15 or a == 22 then

addEvent(markFire, a * 32, cid, target, true)

else

addEvent(markFire, a * 32, cid, target, false)

end

elseif spell == "Horn Drill" then

local target = getMasterTarget(cid)

local a = getThingPositionWithDebug(cid)

local b = getThingPositionWithDebug(target)

local c = getDirectionTo(a, b)

for distance = 1, 3 do

b = getPosByDir(b, c)

end

doSendDistanceShoot(a, b, 25)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

elseif spell == "Giga Impact" then

local target = getMasterTarget(cid)

local a = getThingPositionWithDebug(cid)

local b = getThingPositionWithDebug(target)

local c = getDirectionTo(a, b)

doCreatureAddCondition(cid, permanentinvisible)

doTeleportThing(cid, b)

local function doAppear(cid)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_INVISIBLE)

end

doSendDistanceShoot(a, b, 10)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

addEvent(doAppear, 250, cid)

elseif spell == "Dig" then

doCreatureAddCondition(cid, permanentinvisible)

doSendMagicEffect(getThingPositionWithDebug(cid), 3)

local function backtoground(cid)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_INVISIBLE)

local pos = getThingPositionWithDebug(cid)

doSendMagicEffect(pos, 219)

doSendMagicEffect(pos, 224)

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

return true

end

addEvent(backtoground, 6 * 450 + 150, cid)

elseif spell == "X-Scissor" then

local a = getThingPositionWithDebug(target)

a.x = a.x + 1

a.y = a.y + 1

for b = 1, 3 do

addEvent(doSendMagicEffect, b * 70, a, 16)

end

doAreaCombatHealth(cid, BUGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 255)

elseif spell == "Iron Tail" then

local function rebackSpd(cid, sss)

if not isCreature(cid) then return true end

doChangeSpeed(cid, sss)

setPlayerStorageValue(cid, 446, -1)

end

local x = getCreatureSpeed(cid)

doFaceOpposite(cid)

doChangeSpeed(cid, -x)

addEvent(rebackSpd, 400, cid, x)

setPlayerStorageValue(cid, 446, 1)

doAreaCombatHealth(cid, STEELDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 160)

elseif spell == "Dragon Tail" then

local function rebackSpd(cid, sss)

if not isCreature(cid) then return true end

doChangeSpeed(cid, sss)

setPlayerStorageValue(cid, 446, -1)

end

local x = getCreatureSpeed(cid)

doFaceOpposite(cid)

doChangeSpeed(cid, -x)

addEvent(rebackSpd, 400, cid, x)

setPlayerStorageValue(cid, 446, 1)

doAreaCombatHealth(cid, DRAGONDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 136)

elseif spell == "Swift" then

local target = getMasterTarget(cid)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 32)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

elseif spell == "Crabhammer" then

local target = getMasterTarget(cid)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 225)

elseif spell == "Dream Eater" then

local target = getMasterTarget(cid)

if not isSleeping(target) then

doSendMagicEffect(getThingPositionWithDebug(target), 3)

doSendAnimatedText(getThingPositionWithDebug(target), "FAIL", 155)

return true

end

local function nightmare(target)

if not isCreature(target) then return true end

doSendMagicEffect(getThingPositionWithDebug(target), 139)

end

local a = getCreatureHealth(target)

for j = 0, 1 do

addEvent(nightmare, j * 150, target)

end

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 138)

local b = getCreatureHealth(target)

local c = a - b

doCreatureAddHealth(cid, math.ceil(c / 2))

doSendMagicEffect(getThingPositionWithDebug(cid), 12)

doSendAnimatedText(getThingPositionWithDebug(cid), "+"..math.ceil(c/2).."", 155)

elseif spell == "Stomp" then

local target = getMasterTarget(cid)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 248)

elseif spell == "Giga Drain" then

local life = getCreatureHealth(getMasterTarget(cid))

local target = getMasterTarget(cid)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 14)

local newlife = (life - getCreatureHealth(getMasterTarget(cid)))

local function doEffect(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

local t = {37, 30}

doSendDistanceShoot(getThingPositionWithDebug(target), getThingPositionWithDebug(cid), t[math.random(1, 2)])

end

for a = 1, 7 do

addEvent(doEffect, a * 65, cid, target)

end

doSendMagicEffect(getThingPositionWithDebug(cid), 239)

if newlife >= 1 then

doCreatureAddHealth(cid, newlife)

doSendAnimatedText(getThingPositionWithDebug(cid), "+"..newlife.."", 35)

end

elseif spell == "Nature Ball" then

local target = getMasterTarget(cid)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 30)

doAreaCombatHealthAtDistance(cid, GRASSDAMAGE, getThingPositionWithDebug(target), splash, -min, -max, 45)

elseif spell == "Shockwave" or spell == "Shock Wave" then

local posicao = getThingPositionWithDebug(cid)

local function doShockWave(cid, pos, varx, vary, effect)

if isCreature(cid) and isSightClear(posicao, pos, false) then

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, whirl3, -min, -max, 255)

doSendMagicEffect({x = pos.x + varx, y = pos.y + vary, z = pos.z}, effect)

end

local effect = 255

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

effect = 126

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x, y = posicao.y - (sw + 1), z = posicao.z}, 1, 1, effect)

end

elseif a == 2 then

effect = 125

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x, y = posicao.y + (sw + 1), z = posicao.z}, 1, 1, effect)

end

elseif a == 1 then

effect = 124

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x + (sw + 1), y = posicao.y, z = posicao.z}, 1, 1, effect)

end

elseif a == 3 then

effect = 123

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x - (sw + 1), y = posicao.y, z = posicao.z}, 1, 1, effect)

end

elseif spell == "Windstorm" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -5, 5 do

for y = -5, 5 do

local pos = {x = m.x + x, y = m.y + y, z = m.z}

table.insert(t, pos)

end

local function doWindStorm(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FLYDAMAGE, pos, 0, -min, -max, 42)

doSendMagicEffect(pos, CONST_ME_POFF)

doSendDistanceShoot(pos, {x=pos.x+math.random(-2,2),y=pos.y+math.random(-2,2),z=pos.z}, 36)

end

for b = 1, 3 do

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doWindStorm, 25 * a, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

elseif spell == "Air Slash" then

local target = getMasterTarget(cid)

local pos1 = getThingPositionWithDebug(target)

pos1.x = pos1.x - 2

pos1.y = pos1.y - 2

local pos2 = getThingPositionWithDebug(target)

pos2.x = pos2.x + 2

pos2.y = pos2.y + 2

for a = 1, 7 do

addEvent(doSendDistanceShoot, a * 50, pos1, pos2, 36)

end

doAreaCombatHealth(cid, FLYDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 42)

elseif spell == "Fury Swipes" then

local chance = {2, 3, 4, 5, 2, 3, 3, 2}

local random = chance[math.random(1, #chance)]

local function doFurySwipe(cid, target, round, limit)

local ret = "S"

if not isCreature(cid) then return true end

if round <= 1 then ret = "" end

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

doSendAnimatedText(getThingPositionWithDebug(cid), round.." HIT"..ret.."", 215)

return true end

if round >= limit then doSendAnimatedText(getThingPositionWithDebug(cid), round.." HIT"..ret.."", 215) return true end

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 142)

addEvent(doFurySwipe, 450, cid, target, round + 1, limit)

end

local target = getMasterTarget(cid)

doFurySwipe(cid, target, 0, random)

elseif spell == "Wind Vortex" then

local pos = getThingPositionWithDebug(cid)

local mainpos = getThingPositionWithDebug(cid)

local a = {

[1] = {x = pos.x, y = pos.y - 4, z = pos.z},

[2] = {x = pos.x - 4, y = pos.y, z = pos.z},

[3] = {x = pos.x, y = pos.y + 4, z = pos.z},

[4] = {x = pos.x + 4, y = pos.y, z = pos.z},

[5] = {x = pos.x, y = pos.y - 4, z = pos.z}}

local b = {

[1] = {x = pos.x - 3, y = pos.y, z = pos.z},

[2] = {x = pos.x, y = pos.y + 3, z = pos.z},

[3] = {x = pos.x + 3, y = pos.y, z = pos.z},

[4] = {x = pos.x, y = pos.y + 3, z = pos.z},

[5] = {x = pos.x - 3, y = pos.y, z = pos.z}}

local c = {

[1] = {x = pos.x, y = pos.y + 2, z = pos.z},

[2] = {x = pos.x + 2, y = pos.y, z = pos.z},

[3] = {x = pos.x, y = pos.y - 2, z = pos.z},

[4] = {x = pos.x - 2, y = pos.y, z = pos.z},

[5] = {x = pos.x, y = pos.y + 2, z = pos.z}}

local function doWindVortex(cid, pos1, pos2)

if not isCreature(cid) then return true end

doSendDistanceShoot(pos1, pos2, 36)

local effects = {CONST_ME_POFF, 3, 148}

--doSendMagicEffect(pos1, effects[math.random(1, 3)])

end

for aaa = 0, 7 do

for aa = 1, 4 do

addEvent(doWindVortex, aa * 50 + aaa * 225, cid, a[aa], a[aa+1])

end

for bbb = 0, 7 do

for bb = 1, 4 do

addEvent(doWindVortex, bb * 50 + bbb * 225, cid, b[bb], b[bb+1])

end

for ccc = 0, 7 do

for cc = 1, 4 do

addEvent(doWindVortex, cc * 50 + ccc * 225, cid, c[cc], c[cc+1])

end

local function doWindVortexDamage(cid, mainpos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FLYDAMAGE, mainpos, wvortex, -min, -max, 255)

end

for dmg = 1, 13 do

addEvent(doWindVortexDamage, dmg * 150, cid, mainpos)

end

elseif spell == "Wind Blow" then

doAreaCombatHealth(cid, FLYDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 222)

elseif spell == "Hurricane" then

local a = {

[1] = NORTH,

[2] = NORTHWEST,

[3] = WEST,

[4] = SOUTHWEST,

[5] = SOUTH,

[6] = SOUTHEAST,

[7] = EAST,

[8] = NORTHEAST}

local pos = getThingPositionWithDebug(cid)

local function doHurricane(cid, dir, extended)

if not isCreature(cid) then return true end

local pos = {}

if extended then

pos = getThingPositionWithDebug(cid)

local b = {

[1] = {x = pos.x, y = pos.y + 2, z = pos.z},

[2] = {x = pos.x - 1, y = pos.y + 2, z = pos.z},

[3] = {x = pos.x - 2, y = pos.y + 2, z = pos.z},

[4] = {x = pos.x - 2, y = pos.y + 1, z = pos.z},

[5] = {x = pos.x - 2, y = pos.y, z = pos.z},

[6] = {x = pos.x - 2, y = pos.y - 1, z = pos.z},

[7] = {x = pos.x - 2, y = pos.y - 2, z = pos.z},

[8] = {x = pos.x - 1, y = pos.y - 2, z = pos.z},

[9] = {x = pos.x, y = pos.y - 2, z = pos.z},

[10] = {x = pos.x + 1, y = pos.y - 2, z = pos.z},

[11] = {x = pos.x + 2, y = pos.y - 2, z = pos.z},

[12] = {x = pos.x + 2, y = pos.y - 1, z = pos.z},

[13] = {x = pos.x + 2, y = pos.y, z = pos.z},

[14] = {x = pos.x + 2, y = pos.y + 1, z = pos.z},

[15] = {x = pos.x + 2, y = pos.y + 2, z = pos.z},

[16] = {x = pos.x + 1, y = pos.y + 2, z = pos.z},}

pos = b[dir]

else

pos = getPosByDir(getThingPositionWithDebug(cid), dir)

end

doAreaCombatHealth(cid, FLYDAMAGE, pos, 0, -min, -max, 42)

end

for r = 0, 5 do

for t = 1, 8 do

addEvent(doHurricane, t * 150 + r * 1205, cid, a[t], false)

end

for r = 0, 2 do

for k = 1, 16 do

addEvent(doHurricane, k * 130 + r * 2200, cid, k, true)

end

elseif spell == "Aeroblast" then

local pos = getThingPositionWithDebug(cid)

local cidpos = getThingPositionWithDebug(cid)

local tpos = pos

local t = {}

for a = 1, 6 do

tpos = getPosByDir(tpos, mydir)

table.insert(t, tpos)

doAreaCombatHealth(cid, FLYDAMAGE, tpos, 0, -min, -max, 255)

end

local function doAeroEffect(cid, cidpos, pos, varxa, varxb, varya, varyb)

if not isCreature(cid) then return true end

doSendDistanceShoot(cidpos, pos, 36)

if math.random(1, 7) <= 3 then

doSendDistanceShoot(cidpos, {x=cidpos.x+math.random(varxa,varxb),y=cidpos.y+math.random(varya,varyb),z=cidpos.z}, 36)

end

local varxa = 0

local varxb = 0

local varya = 0

local varyb = 0

local function doHyperBeamEffect(cid, a, mpos)

if not isCreature(cid) then return true end

local pos = mpos

local beam = {

[NORTH] = {effect = {152, 158, 158, 158, 156}, xvar = 0, yvar = -1},

[sOUTH] = {effect = {151, 158, 158, 158, 155}, xvar = 0, yvar = 1},

[EAST] = {effect = {149, 157, 157, 157, 153}, xvar = 1, yvar = 0},

[WEST] = {effect = {150, 157, 157, 157, 154}, xvar = -1, yvar = 0}}

for bb = 1, 5 do

local wx = beam[a].xvar

local wy = beam[a].yvar

local ef = beam[a].effect[bb]

local topos = {x=pos.x+(wx*bb),y=pos.y+(wy*bb),z=pos.z}

doSendMagicEffect(topos, ef)

end

for a = 0, 2 do

addEvent(doHyperBeamEffect, a * 300, cid, mydir, cidpos)

end

if mydir == 0 then

varxa = -2

varxb = 2

varya = 1

varyb = 3

elseif mydir == 1 then

varxa = -3

varxb = -1

varya = -2

varyb = 2

elseif mydir == 2 then

varxa = -2

varxb = 2

varya = -3

varyb = -1

elseif mydir == 3 then

varxa = 1

varxb = 3

varya = -2

varyb = 2

end

for etc = 1, 25 do

for b = 1, 5 do

if etc <= 24 then

addEvent(doAeroEffect, b * 25 + etc * 50, cid, cidpos, t, varxa, varxb, varya, varyb)

else

addEvent(doAeroEffect, b * 25 + etc * 50, cid, cidpos, t, varxa, varxb, varya, varyb)

end

elseif spell == "Falling Rocks" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local function doCrushRock(cid, pos)

if not isCreature(cid) then return true end

local effect = 44

pos.stackpos = 0

if getTileThingByPos(pos).itemid >= 4820 and getTileThingByPos(pos).itemid <= 4825 then

effect = 1

end

doAreaCombatHealth(cid, ROCKDAMAGE, pos, 0, -min, -max, effect)

end

local function doFallRock(cid, pos)

if not isCreature(cid) then return true end

local apos = pos

local frompos = {x=apos.x-7,y=apos.y-6,z=apos.z}

doSendDistanceShoot(frompos, pos, 11)

addEvent(doCrushRock, 385, cid, pos)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doFallRock, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

for randomic = 1, 128 do

local randompos = {x=m.x+math.random(-6,6),y=m.y+math.random(-6,6),z=m.z}

addEvent(doFallRock, randomic * math.random(25, 30), cid, randompos)

end

elseif spell == "Blizzard" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local function doCrushIce(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, ICEDAMAGE, pos, 0, -min, -max, 52)

end

local function doFallIce(cid, pos)

if not isCreature(cid) then return true end

local apos = pos

local frompos = {x=apos.x-7,y=apos.y-6,z=apos.z}

doSendDistanceShoot(frompos, pos, 28)

addEvent(doCrushIce, 385, cid, pos)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doFallIce, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

for randomic = 1, 128 do

local randompos = {x=m.x+math.random(-6,6),y=m.y+math.random(-6,6),z=m.z}

addEvent(doFallIce, randomic * math.random(25, 30), cid, randompos)

end

elseif spell == "Air Cutter" then

local damagearea = {}

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

if mydir == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

damagearea = acsn

elseif mydir == 1 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 129

damagearea = acsn

elseif mydir == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 131

damagearea = acsn

elseif mydir == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

damagearea = acsn

end

local this = getThingPositionWithDebug(cid)

this = getPosByDir(this, mydir)

local function doCutAir()

if not isCreature(cid) then return true end

doSendMagicEffect(effectpos, effect)

doAreaCombatHealth(cid, FLYDAMAGE, this, damagearea, -min, -max, 42)

this = getPosByDir(this, mydir)

effectpos = getPosByDir(effectpos, mydir)

end

for range = 0, 2 do

addEvent(doCutAir, range * 350)

end

elseif spell == "Ice Shard" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 28)

doAreaCombatHealthAtDistance(cid, ICEDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 43)

elseif spell == "Shadow Ball" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 18)

local function doDamageWithDelay(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, GHOSTDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 255)

local pos = getThingPositionWithDebug(getMasterTarget(cid))

pos.x = pos.x + 1

doSendMagicEffect(pos, 140)

end

addEvent(doDamageWithDelay, getDistDelay, cid, target)

elseif spell == "Powder Snow" then

local posicao = getThingPositionWithDebug(cid)

local function snowWind(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, ICEDAMAGE, params.ar, sand1, -min, -max, 41)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for pw = 0, 2 do

addEvent(snowWind, pw * 650, {cid = cid, ar = {x=posicao.x, y=posicao.y-(pw+1), z=posicao.z}})

end

elseif a == 2 then

for pw = 0, 2 do

addEvent(snowWind, pw * 650, {cid = cid, ar = {x=posicao.x, y=posicao.y+pw+1, z=posicao.z}})

end

elseif a == 1 then

for pw = 0, 2 do

addEvent(snowWind, pw * 650, {cid = cid, ar = {x=posicao.x+(pw+1), y=posicao.y, z=posicao.z}})

end

elseif a == 3 then

for pw = 0, 2 do

addEvent(snowWind, pw * 650, {cid = cid, ar = {x=posicao.x-(pw+1), y=posicao.y, z=posicao.z}})

end

elseif spell == "Ice Beam" then

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1n, -min, -max, 99)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2n, -min, -max, 105)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3n, -min, -max, 103)

elseif a == 2 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1s, -min, -max, 98)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2s, -min, -max, 105)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3s, -min, -max, 102)

elseif a == 1 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1e, -min, -max, 96)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2e, -min, -max, 104)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3e, -min, -max, 100)

elseif a == 3 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1w, -min, -max, 97)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2w, -min, -max, 104)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3w, -min, -max, 101)

end

elseif spell == "Icy Wind" then

local target = getMasterTarget(cid)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 35)

doAreaCombatHealthAtDistance(cid, ICEDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 41)

elseif spell == "Lick" then

local target = getMasterTarget(cid)

doAreaCombatCondition(cid, getThingPositionWithDebug(target), 0, thunderwavecondition, 255)

doAreaCombatHealth(cid, GHOSTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 145)

elseif spell == "Clamp" then

local function doClamp(cid, target, damage)

if not isCreature(cid) or not isCreature(target) then return true end

if damage then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 68)

else

doSendMagicEffect(getThingPositionWithDebug(target), 117)

end

local target = getMasterTarget(cid)

for a = 0, 3 do

if a == 3 then

addEvent(doClamp, a * 75, cid, target, true)

else

addEvent(doClamp, a * 75, cid, target, false)

end

elseif spell == "Aurora Beam" then

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), auroran, -min, -max, 57)

elseif a == 2 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), auroras, -min, -max, 58)

elseif a == 1 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), aurorae, -min, -max, 234)

elseif a == 3 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), auroraw, -min, -max, 209)

end

elseif spell == "Nightmare" then

local target = getMasterTarget(cid)

if not isSleeping(target) then

doSendMagicEffect(getThingPositionWithDebug(target), 3)

doSendAnimatedText(getThingPositionWithDebug(target), "FAIL", 155)

return true

end

local function nightmare(target)

if not isCreature(target) then return true end

doSendMagicEffect(getThingPositionWithDebug(target), 139)

end

local function doNightmare(cid, target)

if not isCreature(target) then return true end

if not isCreature(cid) then return true end

if not isSleeping(target) then return true end

addEvent(nightmare, 0, target)

addEvent(nightmare, 100, target)

addEvent(nightmare, 200, target)

doAreaCombatHealth(cid, NIGHTMAREDAMAGE, getThingPositionWithDebug(target), 0, -100, -100, 242)

addEvent(doNightmare, 3000, cid, target)

end

nightmare(target)

addEvent(doNightmare, 1000, cid, target)

elseif spell == "Healarea" then

local hp = getSpecialAttack(cid) * 4 * healMultiplier

doAreaCombatHealth(cid, HEALINGDAMAGE, getThingPositionWithDebug(cid), healarea, hp, hp, 12)

local function doHeal(cid, amount)

doCreatureAddHealth(cid, amount)

doSendMagicEffect(getThingPositionWithDebug(cid), 12)

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

end

doHeal(cid, hp)

local areas = {}

for xhp = -2, 2 do

for yhp = -2, 2 do

local pos = getThingPos(cid)

pos.x = pos.x + xhp

pos.y = pos.y + yhp

local player = getTopCreature(pos).uid

if isCreature(player) and isPlayer(player) then

doHeal(player, hp)

end

for thp = 0, 3 do

local pos = getPosByDir(getThingPos(cid), thp, 3)

local player = getTopCreature(pos).uid

if isCreature(player) and isPlayer(player) then

doHeal(player, hp)

end

elseif spell == "Double Edge" or spell == "Double-edge" or spell == "Take Down" then

doBodyPush(cid, target, true)

local a = getCreatureHealth(target)

local b = 0

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

if isCreature(target) and getCreatureHealth(target) > 0 then

b = getCreatureHealth(target)

end

local hploss = math.floor((a - b) * 0.5)

local function doRecoil(cid, hp)

if not isCreature(cid) then return true end

doCreatureAddHealth(cid, -hp)

doSendAnimatedText(getThingPositionWithDebug(cid), "-"..hploss.."", 180)

doSendMagicEffect(getThingPositionWithDebug(cid), 3)

end

addEvent(doRecoil, 400, cid, hploss)

elseif spell == "Sky Drop" then

doCreatureAddCondition(cid, permanentinvisible)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local mypos = getThingPositionWithDebug(cid)

local topos = getThingPositionWithDebug(target)

topos.y = topos.y - 7

doSendDistanceShoot(getThingPositionWithDebug(cid), topos, 39)

local function doReturn(cid, check, pos)

if not isCreature(cid) then return true end

local dmgpos = {}

if check and isCreature(check) then

dmgpos = getThingPositionWithDebug(check)

else

dmgpos = pos

end

doAreaCombatHealth(cid, FLYDAMAGE, dmgpos, 0, -min, -max, 42)

doCreatureRemoveCondition(cid, CONDITION_INVISIBLE)

doTeleportThing(cid, dmgpos, false)

doCreatureSetLookDir(cid, 2)

end

local function dropBack(cid, target, pos)

if not isCreature(cid) then return true end

if not isCreature(target) then

local bpos = pos

bpos.y = bpos.y + 7

doSendDistanceShoot(pos, bpos, 39)

addEvent(doReturn, 450, cid, false, bpos)

return true

end

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 39)

addEvent(doReturn, 450, cid, target, getThingPositionWithDebug(target))

end

addEvent(dropBack, 650, cid, target, topos)

elseif spell == "Sting Gun" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 13)

doAreaCombatHealthAtDistance(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

elseif spell == "Agility" then

local a = getSpeed(cid)

local b = a * 3

local c = b - a

setPlayerStorageValue(cid, 1003, b)

doSendMagicEffect(getThingPositionWithDebug(cid), 254)

doSendAnimatedText(getThingPositionWithDebug(cid), "+ SPEED", COLOR_GRASS)

if getCreatureSpeed(cid) ~= 0 then

doRegainSpeed(cid)

end

local function loseSpeed(cid, w)

if not isCreature(cid) then return true end

local j = getPlayerStorageValue(cid, 1003)

setPlayerStorageValue(cid, 1003, j - w)

if getCreatureSpeed(cid) ~= 0 then

doRegainSpeed(cid)

end

addEvent(loseSpeed, 8000, cid, c)

elseif spell == "Thunderbolt" or spell == "Thunder Bolt" then

local function doThunderHit(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

end

local function doThunderFall(cid, frompos, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local ry = math.abs(frompos.y - pos.y)

doSendDistanceShoot(frompos, getThingPositionWithDebug(target), 41)

addEvent(doThunderHit, ry * 33, cid, target)

end

local function doThunderUp(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local mps = getThingPositionWithDebug(cid)

local xrg = math.floor((pos.x - mps.x) / 2)

local topos = mps

topos.x = topos.x + xrg

local rd = 11

topos.y = topos.y - rd

doSendDistanceShoot(getThingPositionWithDebug(cid), topos, 41)

addEvent(doThunderFall, rd * 49, cid, topos, target)

end

local alvo = getMasterTarget(cid)

for thnds = 0, 2 do

addEvent(doThunderUp, thnds * 155, cid, alvo)

end

elseif spell == "Faint Attack" then

local a = getThingPositionWithDebug(cid)

local b = getClosestFreeTile(cid, getThingPositionWithDebug(target))

local c = getCreatureLookDir(cid)

doSendMagicEffect(a, 211)

doTeleportThing(cid, b, false)

doFaceCreature(cid, getThingPositionWithDebug(target))

local function comeBack(cid, lastpos, lastld)

if not isCreature(cid) then return true end

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

doTeleportThing(cid, lastpos, false)

doCreatureSetLookDir(cid, lastld)

end

doAreaCombatHealth(cid, DARKDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 148)

addEvent(comeBack, 200, cid, a, c)

elseif spell == "Fissure" then

local aa = isCreature(getMasterTarget(cid)) and getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) or getCreatureLookDir(cid)

local bb = getFaceOpposite(aa)

local back = {}

local front = {}

local apos = getThingPositionWithDebug(cid)

local aae = {

[NORTH] = {varx = 0, vary = -1},

[sOUTH] = {varx = 0, vary = 1},

[EAST] = {varx = 1, vary = 0},

[WEST] = {varx = -1, vary = 0},

[NORTHEAST] = {varx = 1, vary = -1},

[NORTHWEST] = {varx = -1, vary = -1},

[sOUTHEAST] = {varx = 1, vary = 1},

[sOUTHWEST] = {varx = -1, vary = 1}}

local varx = aae[bb].varx

local vary = aae[bb].vary

local xvar = aae[aa].varx

local yvar = aae[aa].vary

for c = 1, 6 do

local addpos = {x=apos.x+(varx*c),y=apos.y+(vary*c),z=apos.z}

table.insert(back, addpos)

end

for d = 1, 6 do

local addpos = {x=apos.x+(xvar*d),y=apos.y+(yvar*d),z=apos.z}

table.insert(front, addpos)

end

local function doFissure(cid, pos)

doSendMagicEffect({x=pos.x+1,y=pos.y+1,z=pos.z}, 127)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min, -max, 255)

end

for times = 0, 2 do

for e = 1, 6 do

addEvent(doFissure, e * 145 + times * 400, cid, front[e])

addEvent(doFissure, e * 145 + times * 400, cid, back[e])

end

elseif spell == "Lava Plume" then

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 233)

elseif spell == "Magma Storm" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local function doExplodeFire(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, pos, 0, -min, -max, 15)

end

local function doFallFire(cid, pos)

if not isCreature(cid) then return true end

local apos = pos

local frompos = {x=apos.x-7,y=apos.y-6,z=apos.z}

doSendDistanceShoot(frompos, pos, 3)

addEvent(doExplodeFire, 385, cid, pos)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doFallFire, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

for randomic = 1, 128 do

local randompos = {x=m.x+math.random(-6,6),y=m.y+math.random(-6,6),z=m.z}

addEvent(doFallFire, randomic * math.random(25, 30), cid, randompos)

end

elseif spell == "Leaf Blade" then

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 54)

elseif spell == "Glaciate" then

doCreatureSetNoMove(target, true)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 230)

local function doReturn(cid)

if not isCreature(cid) then return true end

doCreatureSetNoMove(cid, false)

end

addEvent(doReturn, 2000, target)

elseif spell == "Icicle Crash" then

local pos = getThingPositionWithDebug(target)

pos.x = pos.x -2

pos.y = pos.y -6

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 35)

local function doIcicleDamage(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 255)

local pos = getThingPositionWithDebug(target)

doSendMagicEffect(pos, 241)

end

addEvent(doIcicleDamage, 350, cid, target)

elseif spell == "Shadow Punch" then

local pos = getThingPositionWithDebug(target)

doSendMagicEffect(pos, 112)

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, GHOSTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 255)

local pos = getThingPositionWithDebug(target)

pos.x = pos.x + 1

doSendMagicEffect(pos, 140)

end

addEvent(doPunch, 600, cid, target)

elseif spell == "Dark Pulse" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 6)

doAreaCombatHealthAtDistance(cid, DARKDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 242)

elseif spell == "Shadow Storm" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local function doShadowDamage(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GHOSTDAMAGE, pos, 0, -min, -max, 255)

local mpos = pos

mpos.x = mpos.x + 1

doSendMagicEffect(mpos, 140)

end

local function doFallShadow(cid, pos)

if not isCreature(cid) then return true end

local apos = pos

local frompos = {x=apos.x-7,y=apos.y-6,z=apos.z}

doSendDistanceShoot(frompos, pos, 18)

addEvent(doShadowDamage, 385, cid, pos)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doFallShadow, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

for randomic = 1, 128 do

local randompos = {x=m.x+math.random(-6,6),y=m.y+math.random(-6,6),z=m.z}

addEvent(doFallShadow, randomic * math.random(25, 30), cid, randompos)

end

elseif spell == "Guillotine" then

local random = getPokemonLevel(cid) - getPokemonLevel(target)

if math.random(1, 100) >= random or getPokemonLevel(cid) < getPokemonLevel(target) then

doSendAnimatedText(getThingPositionWithDebug(cid), "FAIL", 215)

return true

end

if getCreatureName(cid) == "Kingler" then

doSendMagicEffect(getThingPositionWithDebug(target), 225)

elseif getCreatureName(cid) == "Pinsir" then

local pos1 = getThingPositionWithDebug(target)

local pos2 = getThingPositionWithDebug(target)

pos1.x = pos1.x - 2

pos2.x = pos2.x + 2

doSendDistanceShoot(pos1, pos2, 0)

doSendDistanceShoot(pos2, pos1, 0)

end

doAreaCombatHealth(cid, GUILLOTINEDAMAGE, getThingPositionWithDebug(target), 0, -10, -10, 255)

elseif spell == "Volt Tackle" then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

elseif spell == "Hyper Voice" then

local effect = 165

local function doHyperVoice(cid, area)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), area, -min, -max, effect)

end

local areas = {hv1, hv2, hv3, hv4, hv5}

for go = 0, 4 do

addEvent(doHyperVoice, go * 220, cid, areas[go+1])

end

elseif spell == "Amnesia" or spell == "Psychic Up" then

if spell == "Amnesia" then

doSendMagicEffect(getThingPositionWithDebug(cid), 179)

else

doSendMagicEffect(getThingPositionWithDebug(cid), 134)

end

doSendAnimatedText(getThingPositionWithDebug(cid), "+ SP.ATK", COLOR_PSYCHIC)

local function doReduceSpAtk(cid, qnt)

if not isCreature(cid) then return true end

local a = getSpecialAttack(cid)

setPlayerStorageValue(cid, 1005, a - qnt)

end

local function doDoubleSpAtk(cid)

if not isCreature(cid) then return true end

local a = getSpecialAttack(cid)

setPlayerStorageValue(cid, 1005, a * 2)

local b = getSpecialAttack(cid)

local c = b - a

addEvent(doReduceSpAtk, 7500, cid, c)

end

doDoubleSpAtk(cid)

elseif spell == "Karate Chop" then

local pos = getThingPositionWithDebug(target)

local x = getPosByDir(getThingPositionWithDebug(target), math.random(4, 7))

doSendDistanceShoot(x, pos, 26)

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

elseif spell == "Ground Kick" then

local t = {}

local p = getThingPositionWithDebug(cid)

local b = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if b == NORTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y - 1, z = p.z}

table.insert(t, pos)

end

elseif b == SOUTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y + 1, z = p.z}

table.insert(t, pos)

end

elseif b == EAST then

for k = -1, 1 do

local pos = {x = p.x + 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

elseif b == WEST then

for k = -1, 1 do

local pos = {x = p.x - 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

local function doKickPos(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, FIGHTDAMAGE, pos, 0, -min, -max, 113)

end

for kicks = 1, 3 do

addEvent(doKickPos, kicks * 220, cid, t[kicks])

end

elseif spell == "Cross Chop" then

local t = {}

table.insert(t, getPosByDir(getThingPositionWithDebug(target), NORTHEAST))

table.insert(t, getPosByDir(getThingPositionWithDebug(target), SOUTHWEST))

for a = 1, 2 do

doSendDistanceShoot(t[a], getThingPositionWithDebug(target), 26)

end

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 249)

elseif spell == "Fist Machine" then

local mpos = getThingPositionWithDebug(cid)

local b = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

local effect = 0

local xvar = 0

local yvar = 0

local area = {}

if b == SOUTH then

effect = 218

yvar = 2

area = fmn

elseif b == NORTH then

effect = 217

area = fms

elseif b == WEST then

effect = 216

area = fmw

elseif b == EAST then

effect = 215

xvar = 2

area = fme

end

mpos.x = mpos.x + xvar

mpos.y = mpos.y + yvar

doSendMagicEffect(mpos, effect)

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(cid), area, -min, -max, 255)

elseif spell == "Grass Knot" then

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 45)

elseif spell == "Bone Club" then

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 228)

elseif spell == "Bonemerang" then

local pos = getThingPositionWithDebug(cid)

local b = isCreature(getMasterTarget(cid)) and getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) or getCreatureLookDir(cid)

local t = {}

local signal = {

[NORTH] = {0, -1},

[sOUTH] = {0, 1},

[EAST] = {1, 0},

[WEST] = {-1, 0},

[sOUTHEAST] = {1, 1},

[sOUTHWEST] = {-1, 1},

[NORTHWEST] = {-1, -1},

[NORTHEAST] = {1, -1}}

for range = 1, 5 do

local add = getThingPositionWithDebug(cid)

add.x = add.x + signal[1] * range

add.y = add.y + signal[2] * range

table.insert(t, add)

end

local function doBoomerang(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min, -max, 227)

end

for throw = 1, 5 do

addEvent(doBoomerang, (throw - 1) * 200, cid, t[throw])

end

for back = -5, -1 do

local k = -back

addEvent(doBoomerang, math.abs(k - 5) * 200 + 1000, cid, t[k])

end

elseif spell == "Super Vines" then

doCreatureSetLookDir(cid, 2)

local a = getCreatureSpeed(cid)

doChangeSpeed(cid, -a)

local effect = 0

local pos = getThingPositionWithDebug(cid)

pos.x = pos.x + 1

pos.y = pos.y + 1

if getCreatureOutfit(cid).lookType == 369 then

effect = 213

else

effect = 229

end

doSendMagicEffect(pos, effect)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

local function nois(cid, s)

if not isCreature(cid) then return true end

doChangeSpeed(cid, s)

end

addEvent(nois, 200, cid, a)

elseif spell == "Electric Field" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -6, 6 do

for y = -6, 6 do

local pos = {x = m.x + x, y = m.y + y, z = m.z}

table.insert(t, pos)

end

local function doElectricAttack(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, pos, 0, -min, -max, 48)

doSendDistanceShoot(pos, {x=pos.x,y=pos.y-8,z=pos.z}, 41)

end

for b = 1, 3 do

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doElectricAttack, 25 * a, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

elseif spell == "Electric Storm" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local function doThunderAttack(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, pos, 0, -min, -max, 48)

end

local function doFallThunder(cid, pos)

if not isCreature(cid) then return true end

local apos = pos

local frompos = {x=apos.x-7,y=apos.y-6,z=apos.z}

doSendDistanceShoot(frompos, pos, 41)

addEvent(doThunderAttack, 385, cid, pos)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doFallThunder, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

for randomic = 1, 128 do

local randompos = {x=m.x+math.random(-6,6),y=m.y+math.random(-6,6),z=m.z}

addEvent(doFallThunder, randomic * math.random(25, 30), cid, randompos)

end

elseif spell == "Thunder" then

local function doThunder(cid, area, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, pos, area, -min, -max, 48)

end

local pos = getThingPositionWithDebug(cid)

local areas = {destruct1, destruct2, destruct3}

for go = 0, 2 do

addEvent(doThunder, go * 250, cid, areas[go+1], pos)

end

elseif spell == "Strangling Tweezers" then

local function doStrangle(cid, target, damage)

if not isCreature(cid) or not isCreature(target) then return true end

local pos = getThingPositionWithDebug(target)

local oos = getThingPositionWithDebug(target)

pos.x = pos.x + 1

oos.x = oos.x - 1

doSendDistanceShoot(oos, getThingPositionWithDebug(target), 0)

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 0)

if damage then

doAreaCombatHealth(cid, BUGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

for times = 0, 23 do

if isInArray({5, 10, 15, 20}, times) then

addEvent(doStrangle, times * 70, cid, target, true)

else

addEvent(doStrangle, times * 70, cid, target, false)

end

elseif spell == "Bubblebeam" then

local p = getThingPositionWithDebug(cid)

local function doBubblebeam(cid, area)

if not isCreature(cid) or not isSightClear(p, area, false) then return true end

doSendDistanceShoot(p, area, 2)

doAreaCombatHealth(cid, WATERDAMAGE, area, sand1, -min, -max, 25)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for b = 0, 4 do

local pos = {x = p.x, y = p.y - (b+1), z = p.z}

addEvent(doBubblebeam, b * 100, cid, pos)

end

elseif a == 2 then

for b = 0, 4 do

local pos = {x = p.x, y = p.y + (b+1), z = p.z}

addEvent(doBubblebeam, b * 100, cid, pos)

end

elseif a == 1 then

for b = 0, 4 do

local pos = {x = p.x + b + 1, y = p.y, z = p.z}

addEvent(doBubblebeam, b * 100, cid, pos)

end

elseif a == 3 then

for b = 0, 4 do

local pos = {x = p.x - (b+1), y = p.y, z = p.z}

addEvent(doBubblebeam, b * 100, cid, pos)

end

elseif spell == "Mortal Gas" then

local v1 = (15 + getPokemonLevel(cid)) * 5

setPlayerStorageValue(cid, 919231, v1)

local v3 = getPokemonLevel(cid) / 10 + 5

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(cid), bomb2, -min, -max, 238)

doAreaCombatHealth(cid, POISON_POWDERDAMAGE, getThingPositionWithDebug(cid), bomb2, -v3, -v3, 255)

elseif spell == "Fire Mark" then

local pos = getThingPositionWithDebug(target)

for x = -1, 1 do

for y = -1, 1 do

local frompos = {x = pos.x + x, y = pos.y + y, z = pos.z}

doSendDistanceShoot(frompos, getThingPositionWithDebug(target), 3)

end

doAreaCombatHealth(cid, FIREDAMAGE, pos, 0, -min, -max, 15)

elseif spell == "Focus" or spell == "Concentration" or spell == "Calm Mind" or spell == "Meditate" then

local effect = 0

local turns = getPokemonLevel(cid) / 5

if spell == "Focus" then

effect = 221

elseif spell == "Concentration" then

effect = 220

else

effect = 134

end

doFocus(cid, turns * 2, effect, getPlayerStorageValue(cid, 253))

elseif spell == "Fear" then

local rounds = math.random(2, 5)

rounds = rounds + getPokemonLevel(cid) / 20

addEvent(doAdvancedFear, 600, target, rounds, getPlayerStorageValue(target, 3894), cid)

doSendAnimatedText(getThingPositionWithDebug(target), "SCARED", COLOR_GHOST)

elseif spell == "Poison Jab" then

local t = {SOUTHWEST, WEST, NORTHWEST, NORTH}

local function doJab(cid, target, dir)

if not isCreature(cid) or not isCreature(target) then return true end

doSendDistanceShoot(getPosByDir(getThingPositionWithDebug(target), dir), getThingPositionWithDebug(target), 20)

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 252)

end

for a = 1, #t do

addEvent(doJab, a * 45, cid, target, t[a])

end

elseif spell == "Ground Shaker" then

local function doShakeGround(cid)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(cid), gsarea, -min, -max, 118)

end

for times = 0, 27 do

addEvent(doShakeGround, times * 300, cid)

end

elseif spell == "Earthquake" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -7, 7 do

for y = -7, 7 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

if getTileThingByPos(pos).itemid > 0 then

table.insert(t, pos)

end

local function doEarthquake(cid, pos)

if not isCreature(cid) then return true end

if not isSightClear(getThingPositionWithDebug(cid), pos, false) then return true end

if not canWalkOnPos(pos, false, false, false, false, true) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min, -max, 255)

doSendMagicEffect({x = pos.x + 1, y = pos.y + 1, z = pos.z}, 127)

end

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doEarthquake, a * 24, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

elseif spell == "Cross Poison" then

local a = getThingPositionWithDebug(target)

local b = {}

doSendDistanceShoot(getPosByDir(getPosByDir(getThingPositionWithDebug(target), NORTHWEST), NORTHWEST), getPosByDir(getThingPositionWithDebug(target), SOUTHEAST), 20)

doSendDistanceShoot(getPosByDir(getPosByDir(getThingPositionWithDebug(target), NORTHEAST), NORTHEAST), getPosByDir(getThingPositionWithDebug(target), SOUTHWEST), 20)

doSendDistanceShoot(getPosByDir(getPosByDir(getThingPositionWithDebug(target), SOUTHWEST), SOUTHWEST), getPosByDir(getThingPositionWithDebug(target), NORTHEAST), 20)

doSendDistanceShoot(getPosByDir(getPosByDir(getThingPositionWithDebug(target), SOUTHEAST), SOUTHEAST), getPosByDir(getThingPositionWithDebug(target), NORTHWEST), 20)

doSendMagicEffect(a, 114)

doAreaCombatHealth(cid, POISONDAMAGE, a, 0, -min, -max, 252)

elseif spell == "Seismic Clash" then

local posicao = getThingPositionWithDebug(cid)

local function clash(params)

if isCreature(cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, GROUNDDAMAGE, params.ar, whirl3, -min, -max, 255)

doAreaCombatHealth(cid, null, params.ar, params.br, 0, 0, 127)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for time = 0, 6 do

addEvent(clash, time * 120, {cid = cid, ar = {x=posicao.x, y=posicao.y-(time+1), z=posicao.z}, br = clasheffectn})

end

elseif a == 2 then

for time = 0, 6 do

addEvent(clash, time * 120, {cid = cid, ar = {x=posicao.x, y=posicao.y+(time+1), z=posicao.z}, br = clasheffects})

end

elseif a == 1 then

for time = 0, 6 do

addEvent(clash, time * 120, {cid = cid, ar = {x=posicao.x+(time+1), y=posicao.y, z=posicao.z}, br = clasheffecte})

end

elseif a == 3 then

for time = 0, 6 do

addEvent(clash, time * 120, {cid = cid, ar = {x=posicao.x-(time+1), y=posicao.y, z=posicao.z}, br = clasheffectw})

end

elseif spell == "Lovely Kiss" then

if getPokemonGender(cid) == getPokemonGender(target) then

doSendMagicEffect(getThingPositionWithDebug(target), 3)

doSendAnimatedText(getThingPositionWithDebug(target), "FAIL", COLOR_PINK)

return true

end

local v1 = math.random(4, 7)

local v2 = v1 + getPokemonLevel(cid) / 20

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 16)

doAreaCombatHealth(cid, SLEEP_POWDERDAMAGE, getThingPositionWithDebug(target), 0, -v1, -v2, 147)

elseif spell == "Sweet Kiss" then

if getPokemonGender(cid) == getPokemonGender(target) then

doSendMagicEffect(getThingPositionWithDebug(target), 3)

doSendAnimatedText(getThingPositionWithDebug(target), "FAIL", COLOR_PINK)

return true

end

local target = getMasterTarget(cid)

local rounds = math.random(4, 7)

rounds = rounds + math.floor(getPokemonLevel(cid) / 35)

doSendMagicEffect(getThingPositionWithDebug(target), 171)

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 32)

addEvent(doAdvancedConfuse, 700, target, rounds, getPlayerStorageValue(target, 3891))

elseif spell == "Metronome" then

local spells = {

'Fire Blast', 'Flamethrower', 'Ranging Blast', 'Fire Spin', 'Burning Skin', 'Magma Storm', 'Overheat', 'Heat Wave',

'Confusion', 'Psychic', 'Psybeam', 'Psywave', 'Psyshock',

'Water Spout', 'Water Gun', 'Bubble Blast', 'Jet Cannons', 'Surf', 'Aqua Jet', 'Bubblebeam', 'Hydro Cannon', 'Water Oath', 'Water Pledge',

'Sand Attack', 'Earthshock', 'Shockwave', 'Fissure', 'Bonemerang', 'Ground Shaker', 'Earthquake', 'Seismic Clash', 'Magnitude', 'Earth Power',

'Spark', 'Thunder Wave', 'Discharge', 'Charge Beam', 'Electric Field', 'Electric Storm', 'Thunder',

'Restore', 'Recover', 'Selfheal', 'Healarea', 'Sleep Powder', 'Stun Spore', 'Poison Powder',

'Sing', 'Harden', 'Calm Mind', 'Agility', 'Amnesia', 'Psychic Up', 'Focus', 'Mimic Wall',

'Invisible', 'Reflect',

'Gust', 'Whirlwind', 'Wing Attack', 'Tornado', 'Windstorm', 'Wind Vortex', 'Hurricane', 'Aeroblast',

'Vine Whip', 'Leaf Storm', 'Petal Dance', 'Solar Beam',

'Toxic', 'Poisonous Wing', 'Poison Gas', 'Slime Wave', 'Mortal Gas',

'Rock Tomb', 'Falling Rocks', 'Ancient Power', 'Epicenter',

'Hyper Beam', 'Hyper Voice',

'Blizzard', 'Aurora Beam', 'Ice Beam', 'Powder Snow', 'Frost Breath',

'Ground Kick', 'Fist Machine', 'Counter',

'Shadow Storm',

'Dragon Breath',

}

local random = math.random(1, #spells)

local randommove = spells[random]

local pos = getThingPositionWithDebug(cid)

pos.y = pos.y - 1

doSendMagicEffect(pos, 161)

local function doUseMetronome(cid, spell)

if not isCreature(cid) then return true end

docastspell(cid, spell)

if isSummon(cid) then

doCreatureSay(cid, ""..string.upper(spell).."!", TALKTYPE_MONSTER)

end

addEvent(doUseMetronome, 890, cid, randommove)

elseif spell == "Flame Wheel" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 3)

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 15)

local function doSendEffect(target, direction)

if not isCreature(target) then return true end

doSendMagicEffect(getPosByDir(getThingPositionWithDebug(target), direction), 244)

end

local dir = {SOUTH, WEST, NORTH, EAST}

for a = 1, 4 do

addEvent(doSendEffect, 200 + a * 120, target, dir[a])

end

elseif spell == "Mimic" then

doSendMagicEffect(getThingPositionWithDebug(cid), 132)

local function doCopyAndCast(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

local spell = getPlayerStorageValue(target, 877)

if spell == -1 then doSendAnimatedText(getThingPositionWithDebug(cid), "FAIL", 215) return true end

docastspell(cid, spell)

if isSummon(cid) then

doCreatureSay(cid, ""..string.upper(spell).."!", TALKTYPE_MONSTER)

end

addEvent(doCopyAndCast, 700, cid, target)

elseif spell == "Gastro Acid" then

local pos = getThingPositionWithDebug(target)

local t = {}

local function doGastro(cid, pos, main)

if not isCreature(cid) then return true end

if main then

local highpos = getThingPositionWithDebug(pos)

highpos.y = highpos.y - 3

doSendDistanceShoot(highpos, getThingPositionWithDebug(pos), 14)

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(pos), 0, -min, -max, 143)

else

doAreaCombatHealth(cid, POISONDAMAGE, pos, 0, -min*2, -max*2, 143)

end

for a = 0, 3 do

local targetpos = getPosByDir(getThingPositionWithDebug(target), a)

local highpos = getPosByDir(getThingPositionWithDebug(target), a)

highpos.y = highpos.y - 3

doSendDistanceShoot(highpos, targetpos, 14)

addEvent(doGastro, 220, cid, targetpos)

addEvent(doGastro, a * 75, cid, target, true)

end

elseif spell == "Fury Cutter" then

local function doCut(cid, target, turn)

if not isCreature(cid) or not isCreature(target) then return true end

if getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) >= 3 then return true end

if turn < 1 then return true end

doAreaCombatHealth(cid, BUGDAMAGE, getThingPositionWithDebug(target), 0, -min/turn, -max/turn, 141)

addEvent(doCut, 285, cid, target, turn - 1)

end

doCut(cid, target, 10)

elseif spell == "Egg Bomb" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 12)

doAreaCombatHealthAtDistance(cid, NORMALDAMAGE, getThingPositionWithDebug(target), oathzinho, -min, -max, 3)

elseif spell == "Earth Power" then

local t = {}

local p = getThingPositionWithDebug(cid)

local b = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if b == NORTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y - 1, z = p.z}

table.insert(t, pos)

end

elseif b == SOUTH then

for k = -1, 1 do

local pos = {x = p.x - k, y = p.y + 1, z = p.z}

table.insert(t, pos)

end

elseif b == EAST then

for k = -1, 1 do

local pos = {x = p.x + 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

elseif b == WEST then

for k = -1, 1 do

local pos = {x = p.x - 1, y = p.y + k, z = p.z}

table.insert(t, pos)

end

local function doEarthPower(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min, -max, 255)

local a = {x=pos.x+1,y=pos.y+1,z=pos.z}

doSendMagicEffect(a, 127)

--doSendDistanceShoot(pos, {x=pos.x,y=pos.y-6,z=pos.z}, 42)

end

for times = 1, 3 do

doEarthPower(cid, t[times])

end

elseif spell == "Magnitude" then

local t = {}

local m = getThingPositionWithDebug(cid)

local target = 0

for x = -4, 4 do

for y = -4, 4 do

local pos = {x = m.x + x, y = m.y + y, z = m.z, stackpos = 0}

table.insert(t, pos)

end

local mag = {4, 5, 5, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 9, 9, 10}

local magnitude = math.random(4, 10)--mag[math.random(#mag)]

doSendAnimatedText(getThingPositionWithDebug(cid), magnitude, COLOR_GROUND)

local rate = magnitude - 3

local function doCrackGround(cid, posa, checkone, checktwo, target)

if not isCreature(cid) then return true end

local pos = {}

if checkone and isCreature(target) then

pos = getThingPositionWithDebug(target)

else

pos = posa

end

if checktwo and isCreature(target) and getTopCreature(pos).uid == target then

return true

end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min*rate, -max*rate, 255)

local a = {x=pos.x+1,y=pos.y+1,z=pos.z}

doSendMagicEffect(a, 127)

end

if isCreature(getMasterTarget(cid)) and getDistanceBetween(getThingPositionWithDebug(getMasterTarget(cid)), m) <= 7 then

target = getMasterTarget(cid)

local n = getThingPositionWithDebug(target)

local npos = {x = n.x, y = n.y, z = n.z, stackpos = 0}

magnitude = magnitude - 1

addEvent(doCrackGround, 1050, cid, npos, true, false, target)

end

for this = 1, magnitude do

local random = math.random(1, #t)

addEvent(doCrackGround, 1050, cid, t[random], false, true, target)

t = doRemoveElementFromTable(t, t[random])

end

elseif spell == "Pay Day" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 37)

if isSummon(cid) then

for a = 1, 3 do

if math.random(1, 100) > 40 then

local x = getPokemonLevel(cid)

x = x * math.random(40, 160) / 100

if x > 100 then

x = 100

end

local npos = getPosByDir(getThingPositionWithDebug(target), math.random(0, 7))

if canWalkOnPos(npos, false, false, true, true, true) then

doCreateItem(12416, x, npos)

end

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

elseif spell == "Mimic Wall" then

if hasMimicWall(cid) then

local health = getSpecialAttack(cid) * 2

setPlayerStorageValue(cid, 878, getPlayerStorageValue(cid, 878) + health)

return true end

local function doCreateWall(cid)

if not isCreature(cid) then return true end

local health = getSpecialAttack(cid) * 2

setPlayerStorageValue(cid, 878, health)

if getCreatureLookDir(cid) == SOUTH or getCreatureLookDir(cid) == NORTH then

doCreateItem(11439, 1, getThingPositionWithDebug(cid))

else

doCreateItem(11440, 1, getThingPositionWithDebug(cid))

end

local function doEndWallTime(cid)

if not isCreature(cid) then return true end

setPlayerStorageValue(cid, 878, -1)

local b = getTileItemById(getThingPositionWithDebug(cid), 11440)

if b.uid > 1 then doRemoveItem(b.uid, 1) end

local c = getTileItemById(getThingPositionWithDebug(cid), 11439)

if c.uid > 1 then doRemoveItem(c.uid, 1) end

doSendMagicEffect(getThingPositionWithDebug(cid), 3)

end

doSendMagicEffect(getThingPositionWithDebug(cid), 135)

addEvent(doCreateWall, 650, cid)

addEvent(doEndWallTime, 17 * 1000, cid)

elseif spell == "Counter" then

setPlayerStorageValue(cid, 879, 1)

doSendMagicEffect(getThingPositionWithDebug(cid), 247)

elseif spell == "Overheat" then

for a = -7, 7 do

for b = -6, 6 do

local pos = getThingPositionWithDebug(cid)

local place = {x=pos.x+a,y=pos.y+b,z=pos.z}

doSendDistanceShoot(getThingPositionWithDebug(cid), place, 3)

end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(cid), grassarea, -min, -max, 255)

elseif spell == "Mind Blast" then

local function doFindMind(cid, pos, target, effect, distance)

if not isCreature(target) then return true end

if not isCreature(cid) then return true end

if getDistanceBetween(getThingPositionWithDebug(target), pos) == 0 then

local bonus = distance * 0.34 + 0.76

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(target), 0, -min * bonus, -max * bonus, 243)

return true

end

doSendMagicEffect(pos, effect)

local dir = getDirectionTo(pos, getThingPositionWithDebug(target))

if dir >= 4 then

dir = randomdiagonaldir[dir][math.random(1, 2)]

end

local a = getPosByDir(pos, dir)

local nextef = 133

if effect == 133 then

nextef = 136

end

addEvent(doFindMind, 175, cid, a, target, nextef, distance + 1)

end

doFindMind(cid, getThingPositionWithDebug(cid), getMasterTarget(cid), 133, 0)

elseif spell == "Future Sight" then

local function doFutureSight(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 253)

end

doSendMagicEffect(getThingPositionWithDebug(cid), 220)

addEvent(doFutureSight, 2500, cid, target)

elseif spell == "Shell Smash" then

doBodyPush(cid, target, true)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 223)

elseif spell == "Heat Wave" then

local posicao = getThingPositionWithDebug(cid)

local function hw(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, FIREDAMAGE, params.ar, whirl3, -min, -max, 237)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for b = 0, 4 do

addEvent(hw, 200 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y-(b+1), z=posicao.z}})

end

elseif a == 2 then

for b = 0, 4 do

addEvent(hw, 200 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y+(b+1), z=posicao.z}})

end

elseif a == 1 then

for b = 0, 4 do

addEvent(hw, 200 * b, {cid = cid, ar = {x=posicao.x+(1+b), y=posicao.y, z=posicao.z}})

end

elseif a == 3 then

for b = 0, 4 do

addEvent(hw, 200 * b, {cid = cid, ar = {x=posicao.x-(1+b), y=posicao.y, z=posicao.z}})

end

elseif spell == "Hydro Cannon" then

local posicao = getThingPositionWithDebug(cid)

local function hp(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, WATERDAMAGE, params.ar, whirl3, -min, -max, 68)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for b = 0, 5 do

addEvent(hp, 100 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y-(b+1), z=posicao.z}})

end

elseif a == 2 then

for b = 0, 5 do

addEvent(hp, 100 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y+(b+1), z=posicao.z}})

end

elseif a == 1 then

for b = 0, 5 do

addEvent(hp, 100 * b, {cid = cid, ar = {x=posicao.x+(1+b), y=posicao.y, z=posicao.z}})

end

elseif a == 3 then

for b = 0, 5 do

addEvent(hp, 100 * b, {cid = cid, ar = {x=posicao.x-(1+b), y=posicao.y, z=posicao.z}})

end

elseif spell == "Frost Attack" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(getMasterTarget(cid)), 28)

doAreaCombatHealthAtDistance(cid, ICEDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), bomb, -min, -max, 43)

elseif spell == "Frost Breath" then

local posicao = getThingPositionWithDebug(cid)

local function fb(params)

if isCreature(params.cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, ICEDAMAGE, params.ar, sand1, -min, -max, 52)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

for b = 0, 5 do

addEvent(fb, 120 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y-(b+1), z=posicao.z}})

end

elseif a == 2 then

for b = 0, 5 do

addEvent(fb, 120 * b, {cid = cid, ar = {x=posicao.x, y=posicao.y+(b+1), z=posicao.z}})

end

elseif a == 1 then

for b = 0, 5 do

addEvent(fb, 120 * b, {cid = cid, ar = {x=posicao.x+(1+b), y=posicao.y, z=posicao.z}})

end

elseif a == 3 then

for b = 0, 5 do

addEvent(fb, 120 * b, {cid = cid, ar = {x=posicao.x-(1+b), y=posicao.y, z=posicao.z}})

end

elseif spell == "Psystrike" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 30)

doAreaCombatHealthAtDistance(cid, PSYCHICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 250)

elseif spell == "Psycho Flash" then

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 240)

local rounds = math.random(6, 10)

rounds = rounds + math.floor(getPokemonLevel(cid) / 15)

doAdvancedBlind(target, rounds, getPlayerStorageValue(target, 3890), 136)

elseif spell == "Electro Ball" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 40)

doAreaCombatHealthAtDistance(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), bomb, -min, -max, 48)

elseif spell == "Metal Claw" then

doAreaCombatHealth(cid, STEELDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 160)

elseif spell == "Vital Throw" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 26)

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 112)

elseif spell == "Seismic Toss" then

local function doHit(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

doAreaCombatHealth(cid, SEISMICTOSSDAMAGE, getThingPositionWithDebug(target), 0, -10, -10, 3)

end

local function doTossFall(cid, frompos, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local ry = math.abs(frompos.y - pos.y)

doSendDistanceShoot(frompos, getThingPositionWithDebug(target), 11)

addEvent(doHit, ry * 40, cid, target)

end

local function doTossUp(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local mps = getThingPositionWithDebug(cid)

local xrg = math.floor((pos.x - mps.x) / 2)

local topos = mps

topos.x = topos.x + xrg

local rd = 11

topos.y = topos.y - rd

doSendDistanceShoot(getThingPositionWithDebug(cid), topos, 11)

addEvent(doTossFall, rd * 49, cid, topos, target)

end

local alvo = getMasterTarget(cid)

doTossUp(cid, alvo)

elseif spell == "Rock Blast" then

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(cid), rockblast, -min, -max, 255)

local pos = getThingPositionWithDebug(cid)

local function doSendRock(cid, pos)

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 11)

addEvent(doSendMagicEffect, getDistanceBetween(getThingPositionWithDebug(cid), pos) * 54, pos, 118)

end

for a = 1, 120 do

local lugar = {x = pos.x + math.random(-4, 4), y = pos.y + math.random(-4, 4), z = pos.z}

addEvent(doSendRock, a * 2, cid, lugar)

end

elseif spell == "Submission" then

local a = getPosByDir(getThingPositionWithDebug(target), getFaceOpposite(getCreatureLookDir(target)))

local b = getClosestFreeTile(cid, a)

doTeleportThing(cid, b, false)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

doFaceCreature(cid, getThingPositionWithDebug(target))

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 112)

elseif spell == "Close Combat" then

local a = getCreatureSpeed(target)

local b = getCreatureSpeed(cid)

doTeleportThing(cid, getThingPositionWithDebug(target), false)

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

doChangeSpeed(cid, -b)

doChangeSpeed(target, -a)

local function reputSpeed(cid, delta)

if not isCreature(cid) then return true end

if getCreatureSpeed(cid) > 0 then return true end

doChangeSpeed(cid, delta)

end

local function doCloseCombat(cid, target, finish)

if not isCreature(cid) or not isCreature(target) or finish then

reputSpeed(cid, b)

addEvent(reputSpeed, 400, target, a)

return true end

doSendMagicEffect(getThingPositionWithDebug(cid), CONST_ME_POFF)

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(cid), 0, -min, -max, math.random(112, 113))

end

for dk = 1, 6 do

if dk == 6 then

addEvent(doCloseCombat, dk * 175, cid, target, true)

else

addEvent(doCloseCombat, dk * 175, cid, target)

end

elseif spell == "Squisky Licking" then

local function doLick(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatCondition(cid, getThingPositionWithDebug(target), 0, thunderwavecondition, 255)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 145)

end

for a = 0, 4 do

addEvent(doLick, a * 350, cid, target)

end

elseif spell == "Crusher Stomp" then

doSendMagicEffect(getThingPositionWithDebug(target), 248)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), powdersc, -min, -max, 223)

elseif spell == "Ancient Power" then

local t = {}

local m = getThingPositionWithDebug(cid)

for x = -5, 5 do

for y = -5, 5 do

local pos = {x = m.x + x, y = m.y + y, z = m.z}

table.insert(t, pos)

end

local function doRockDestroy(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, ROCKDAMAGE, pos, round, -min, -max, 255)

doSendMagicEffect(pos, 235)

end

local function doRockDown(cid, frompos, pos)

if not isCreature(cid) then return true end

doSendDistanceShoot(frompos, pos, 42)

addEvent(doRockDestroy, 300, cid, pos)

end

local function doRockUp(cid, pos)

if not isCreature(cid) then return true end

local topos = {x=pos.x-1,y=pos.y-5,z=pos.z}

doSendDistanceShoot(pos, topos, 42)

doSendMagicEffect(pos, 247)

addEvent(doRockDown, 300, cid, topos, pos)

end

for b = 1, 3 do

for a = 1, #t do

if #t >= 1 then

local random = math.random(1, #t)

addEvent(doRockUp, 45 * a, cid, t[random])

t = doRemoveElementFromTable(t, t[random])

end

elseif spell == "Water Pledge" then

local function doPledge(cid)

if not isCreature(cid) then return true end

local a = getPosByDir(getThingPositionWithDebug(cid), NORTH)

local b = getPosByDir(getThingPositionWithDebug(cid), WEST)

local c = getPosByDir(getThingPositionWithDebug(cid), SOUTH)

local d = getPosByDir(getThingPositionWithDebug(cid), EAST)

doSendDistanceShoot(a, b, 2)

doSendDistanceShoot(b, c, 2)

doSendDistanceShoot(c, d, 2)

doSendDistanceShoot(d, a, 2)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

end

for a = 0, 3 do

addEvent(doPledge, a * 215, cid)

end

elseif spell == "Water Oath" then

local t = {}

for a = 0, 3 do

local a = getPosByDir(getThingPositionWithDebug(target), a)

table.insert(t, a)

end

local frompos = getThingPositionWithDebug(target)

frompos.y = frompos.y - 4

for b = 1, #t do

doSendDistanceShoot(frompos, t, 2)

end

doSendDistanceShoot(frompos, getThingPositionWithDebug(target), 2)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(target), oathzinho, -min, -max, 68)

elseif spell == "Thrash" then

local function doThrash(cid, target, go, turn, pos)

if not isCreature(cid) or not isCreature(target) then

doRegainSpeed(cid)

doRegainSpeed(target)

return true

end

if go then

local a = getPosByDir(getThingPositionWithDebug(target), getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)))

doChangeSpeed(cid, -getCreatureSpeed(cid))

doChangeSpeed(target, -getCreatureSpeed(target))

doChangeSpeed(cid, 800)

doTeleportThing(cid, getThingPositionWithDebug(target))

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(getMasterTarget(cid)), 0, -min, -max, 3)

doChangeSpeed(cid, -800)

addEvent(doThrash, 175, cid, target, false, turn - 1, a)

else

doChangeSpeed(cid, 800)

doTeleportThing(cid, pos)

doRegainSpeed(cid)

doRegainSpeed(target)

if turn > 0 then

addEvent(doThrash, 175, cid, target, true, turn)

else

doRegainSpeed(cid)

doRegainSpeed(target)

addEvent(doAdvancedConfuse, 350, cid, 4, getPlayerStorageValue(target, 3891))

local b = getThingPositionWithDebug(cid)

addEvent(doSendAnimatedText, 300, b, "CONFUSED", 210)

end

doThrash(cid, target, true, 3)

elseif spell == "Reflect" then

doSendMagicEffect(getThingPositionWithDebug(cid), 135)

if getPlayerStorageValue(cid, 34) > 0 then

setPlayerStorageValue(cid, 34, getPlayerStorageValue(cid, 34) + 9)

return true

end

setPlayerStorageValue(cid, 34, 9)

local function doEndReflect(cid)

if not isCreature(cid) then return true end

if getPlayerStorageValue(cid, 34) == 0 then

doSendAnimatedText(getThingPositionWithDebug(cid), "BREAK", 180)

return true

end

setPlayerStorageValue(cid, 34, getPlayerStorageValue(cid, 34) - 1)

addEvent(doEndReflect, 500, cid)

end

addEvent(doEndReflect, 500, cid)

elseif spell == "Dragon Breath" then

local posicao = getThingPositionWithDebug(cid)

local function wwind(params)

if isCreature(cid) and isSightClear(posicao, params.ar, false) then

doAreaCombatHealth(cid, DRAGONDAMAGE, params.ar, params.br, -min, -max, 246)

end

local a = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if a == 0 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y-1, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}, br = whirl3})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}, br = whirl3})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x, y=posicao.y-4, z=posicao.z}, br = whirl5})

addEvent(wwind, 1400, {cid = cid, ar = {x=posicao.x, y=posicao.y-5, z=posicao.z}, br = whirl5})

elseif a == 2 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x, y=posicao.y+1, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}, br = whirl3})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}, br = whirl3})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x, y=posicao.y+4, z=posicao.z}, br = whirl5})

addEvent(wwind, 1400, {cid = cid, ar = {x=posicao.x, y=posicao.y+5, z=posicao.z}, br = whirl5})

elseif a == 1 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x+1, y=posicao.y, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x+4, y=posicao.y, z=posicao.z}, br = whirl52})

addEvent(wwind, 1400, {cid = cid, ar = {x=posicao.x+5, y=posicao.y, z=posicao.z}, br = whirl52})

elseif a == 3 then

addEvent(wwind, 0, {cid = cid, ar = {x=posicao.x-1, y=posicao.y, z=posicao.z}, br = sand1})

addEvent(wwind, 350, {cid = cid, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 700, {cid = cid, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}, br = whirl32})

addEvent(wwind, 1050, {cid = cid, ar = {x=posicao.x-4, y=posicao.y, z=posicao.z}, br = whirl52})

addEvent(wwind, 1400, {cid = cid, ar = {x=posicao.x-5, y=posicao.y, z=posicao.z}, br = whirl52})

end

elseif spell == "Flare Blitz" then

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 232)

elseif spell == "Seed Bomb" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 4)

doAreaCombatHealthAtDistance(cid, GRASSDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 45)

elseif spell == "Magical Leaves" then

local function doIt(cid, target, x, y)

if not isCreature(cid) or not isCreature(target) then return true end

local a = getThingPositionWithDebug(target)

local pos = {x = a.x + x, y = a.y + y, z = a.z}

doAreaCombatHealth(cid, GRASSDAMAGE, pos, 0, -min, -max, 255)

doSendDistanceShoot({x = pos.x, y = pos.y - 1, z = pos.z}, {x = pos.x - 1, y = pos.y, z = pos.z}, 21)

doSendDistanceShoot({x = pos.x - 1, y = pos.y, z = pos.z}, {x = pos.x, y = pos.y + 1, z = pos.z}, 21)

doSendDistanceShoot({x = pos.x, y = pos.y + 1, z = pos.z}, {x = pos.x + 1, y = pos.y, z = pos.z}, 21)

doSendDistanceShoot({x = pos.x + 1, y = pos.y, z = pos.z}, {x = pos.x, y = pos.y - 1, z = pos.z}, 21)

end

local regions = {

[1] = {-1, 0},

[2] = {0, -1},

[3] = {1, 0},

[4] = {0, 1},

[5] = {0, 0}}

local function doHurt(cid, target)

doMagicalFlower(target, true)

for tk = 1, 5 do

for a = 0, 2 do

addEvent(doIt, a * 185, cid, target, regions[tk][1], regions[tk][2])

if a == 2 then

addEvent(doMagicalFlower, a * 184, target)

end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 21)

addEvent(doHurt, getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) * 60, cid, target)

elseif spell == "Tidal Wave" then

local posicao = getThingPositionWithDebug(cid)

local function doSurf(cid, area1, area2, effect)

if not isCreature(cid) then return true end

if not isSightClear(posicao, area1, false) then return true end

doAreaCombatHealth(cid, null, area1, whirl5, -min, -max, effect)

if area2.x ~= getThingPositionWithDebug(cid).x or area2.y ~= getThingPositionWithDebug(cid).y then

doAreaCombatHealth(cid, null, area2, whirl5, -min, -max, 68)

end

doAreaCombatHealth(cid, WATERDAMAGE, area1, whirl5, -min, -max, 68)

end

local n = isCreature(getMasterTarget(cid)) and getCreatureDirectionToTarget(cid, getMasterTarget(cid)) or getCreatureLookDir(cid)

if n == 0 then

for a = 0, 6 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x, y = posicao.y - (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y - a, z = posicao.z}, 66)

end

elseif n == 2 then

for a = 0, 6 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x, y = posicao.y + (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y + a, z = posicao.z}, 64)

end

elseif n == 1 then

for a = 0, 6 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x + a + 1, y = posicao.y, z = posicao.z}, {x = posicao.x + a, y = posicao.y, z = posicao.z}, 67)

end

elseif n == 3 then

for a = 0, 6 do

addEvent(doSurf, 300 * a, cid, {x = posicao.x - (a + 1), y = posicao.y, z = posicao.z}, {x = posicao.x - a, y = posicao.y, z = posicao.z}, 65)

end

elseif spell == "Epicenter" then

local function doShake(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, 0, -min, -max, 255)

doSendMagicEffect({x=pos.x+1,y=pos.y+1,z=pos.z}, 127)

end

local function getDifBetween(pos1, pos2)

local a = pos1.x - pos2.x

local b = pos1.y - pos2.y

return math.abs(a) + math.abs(b)

end

local t = {}

for x = -7, 7 do

for y = -7, 7 do

local a = getThingPositionWithDebug(cid)

a.x = a.x + x

a.y = a.y + y

table.insert(t, a)

end

local pos = getThingPositionWithDebug(cid)

local delay = 0

for go = 1, #t do

if getDirectionTo(pos, t[go]) <= 3 then

delay = 0

else

if math.abs(t[go].x - pos.x) == math.abs(t[go].y - pos.y) then

delay = 300

else

delay = 450

end

if delay >= 0 then

addEvent(doShake, getDistanceBetween(pos, t[go]) * 120 + delay, cid, t[go])

end

elseif spell == "Stone Edge" then

local signal = {

[NORTH] = {1, 0},

[sOUTH] = {1, 0},

[EAST] = {0, 1},

[WEST] = {0, 1},

[NORTHEAST] = {-1, -1},

[NORTHWEST] = {1, -1},

[sOUTHEAST] = {-1, 1},

[sOUTHWEST] = {-1, -1}}

local a = getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target))

local pos1 = getThingPositionWithDebug(target)

local pos2 = getThingPositionWithDebug(target)

pos1.x = pos1.x + signal[a][1] * 5

pos1.y = pos1.y + signal[a][2] * 5

pos2.x = pos2.x + signal[a][1] * -5

pos2.y = pos2.y + signal[a][2] * -5

doSendDistanceShoot(pos1, getThingPositionWithDebug(target), 11)

doSendDistanceShoot(pos2, getThingPositionWithDebug(target), 11)

local function doDamage(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 44)

end

addEvent(doDamage, 300, cid, target)

elseif spell == "Night Shade" then

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 39)

doAreaCombatHealthAtDistance(cid, GHOSTDAMAGE, getThingPositionWithDebug(target), star, -min, -max, 17)

elseif spell == "Razor Wind" then

local signal = {

[NORTH] = {0, -1},

[sOUTH] = {0, 1},

[EAST] = {1, 0},

[WEST] = {-1, 0},

[NORTHEAST] = {1, -1},

[NORTHWEST] = {-1, -1},

[sOUTHEAST] = {1, 1},

[sOUTHWEST] = {-1, 1}}

local a = isCreature(target) and getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) or getCreatureLookDir(cid)

local t = {}

for b = 1, 5 do

local pos = getThingPositionWithDebug(cid)

pos.x = pos.x + signal[a][1] * b

pos.y = pos.y + signal[a][2] * b

if canWalkOnPos(pos, false, true, true, true, false) and isSightClear(getThingPositionWithDebug(cid), pos, false) then

table.insert(t, pos)

end

if #t <= 0 then

doAreaCombatHealth(cid, FLYINGDAMAGE, getPosByDir(getThingPositionWithDebug(cid), a), 0, -min, -max, 42)

return true

end

local effect = 27

if not getCreatureCondition(cid, CONDITION_OUTFIT) and getCreatureOutfit(cid).lookType ~= 366 then

effect = 29

end

doSendDistanceShoot(getThingPositionWithDebug(cid), t[#t], effect)

local function doRazorWind(cid, pos)

if not isCreature(cid) then return true end

if not getCreatureCondition(cid, CONDITION_INVISIBLE) then return true end

doAreaCombatHealth(cid, FLYINGDAMAGE, pos, 0, -min, -max, 42)

end

local function doAppear(cid, pos)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_INVISIBLE)

doTeleportThing(cid, pos, false)

end

doCreatureAddCondition(cid, permanentinvisible)

for c = 1, #t do

addEvent(doRazorWind, 65 * c, cid, t[c])

end

addEvent(doAppear, (90 - (#t * 6)) * #t, cid, t[#t])

elseif spell == "Swords Dance" then

local function doWingAttack(cid, a, damage)

local damagearea = {}

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

if a == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

damagearea = wingdn

elseif a == 1 then

effectpos.x = effectpos.x + 2

effectpos.y = effectpos.y + 1

effect = 129

damagearea = wingde

elseif a == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 2

effect = 131

damagearea = wingds

elseif a == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

damagearea = wingdw

end

doSendMagicEffect(effectpos, effect)

if damage then

doAreaCombatHealth(cid, FLYINGDAMAGE, getThingPositionWithDebug(cid), damagearea, -min, -max, CONST_ME_NONE)

end

local dire = getCreatureLookDir(cid)

local cpos = getThingPositionWithDebug(cid)

local outfit = {}

outfit.lookType = 496

if getCreatureOutfit(cid).lookType ~= 366 then

outfit.lookType = 849

end

doSetCreatureOutfit(cid, outfit, -1)

local function doDance(cid, dir, damage)

if not isCreature(cid) then return true end

doCreatureSetLookDir(cid, dir)

doWingAttack(cid, dir, damage)

end

for times = 0, 20 do

for directions = 0, 3 do

addEvent(doDance, times * 300, cid, directions, true)

end

local function doChangeO(cid, dir, pos)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_OUTFIT)

if getThingPositionWithDebug(cid).x == pos.x and getThingPositionWithDebug(cid).y == pos.y then

doCreatureSetLookDir(cid, dir)

end

addEvent(doChangeO, 20 * 300 + 10, cid, dire, cpos)

elseif spell == "Dance Scizor" then

local function doWingAttack(cid, a, damage)

local damagearea = {}

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

if a == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

damagearea = wingdn

elseif a == 1 then

effectpos.x = effectpos.x + 2

effectpos.y = effectpos.y + 1

effect = 129

damagearea = wingde

elseif a == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 2

effect = 131

damagearea = wingds

elseif a == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

damagearea = wingdw

end

doSendMagicEffect(effectpos, effect)

if damage then

doAreaCombatHealth(cid, FLYINGDAMAGE, getThingPositionWithDebug(cid), damagearea, -min, -max, CONST_ME_NONE)

end

local dire = getCreatureLookDir(cid)

local cpos = getThingPositionWithDebug(cid)

local outfit = {}

outfit.lookType = 496

if getCreatureOutfit(cid).lookType ~= 366 then

outfit.lookType = 918

end

doSetCreatureOutfit(cid, outfit, -1)

local function doDance(cid, dir, damage)

if not isCreature(cid) then return true end

doCreatureSetLookDir(cid, dir)

doWingAttack(cid, dir, damage)

end

for times = 0, 20 do

for directions = 0, 3 do

addEvent(doDance, times * 300, cid, directions, true)

end

local function doChangeO(cid, dir, pos)

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_OUTFIT)

if getThingPositionWithDebug(cid).x == pos.x and getThingPositionWithDebug(cid).y == pos.y then

doCreatureSetLookDir(cid, dir)

end

addEvent(doChangeO, 20 * 300 + 10, cid, dire, cpos)

elseif spell == "Rest" then

local function doRecoverOverTime(cid, turn)

if not isCreature(cid) then return true end

if not isSleeping(cid) then return true end

if turn > 100 then return true end

local percent = math.floor(getCreatureMaxHealth(cid) / 100)

doCreatureAddHealth(cid, percent)

addEvent(doRecoverOverTime, 100, cid, turn + 1)

end

doSleep(cid, 12, true)

doRecoverOverTime(cid, 0)

elseif spell == "Stickslash" then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 212)

elseif spell == "Elemental Hands" then

if getCreatureOutfit(cid).lookType == 1301 then

return doPlayerSendTextMessage(getCreatureMaster(cid), MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn't recognize this move.")

end --proteçao pra n usar o move com o shiny hitmonchan com outfit diferente da do elite monchan do PO...

local e = getCreatureMaster(cid)

local name = getItemAttribute(getPlayerSlotItem(e, 8).uid, "poke")

local hands = getItemAttribute(getPlayerSlotItem(e, 8).uid, "hands")

if hands == 4 then

doItemSetAttribute(getPlayerSlotItem(e, 8).uid, "hands", 0)

doSendMagicEffect(getThingPositionWithDebug(cid), hitmonchans[name][0].eff)

doSetCreatureOutfit(cid, {lookType = hitmonchans[name][0].out}, -1)

else

doItemSetAttribute(getPlayerSlotItem(e, 8).uid, "hands", hands+1)

doSendMagicEffect(getThingPositionWithDebug(cid), hitmonchans[name][hands+1].eff)

doSetCreatureOutfit(cid, {lookType = hitmonchans[name][hands+1].out}, -1)

end

elseif spell == "Stickmerang" then

local pos = getThingPositionWithDebug(cid)

local b = isCreature(getMasterTarget(cid)) and getDirectionTo(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) or getCreatureLookDir(cid)

local t = {}

local signal = {

[NORTH] = {0, -1},

[sOUTH] = {0, 1},

[EAST] = {1, 0},

[WEST] = {-1, 0},

[sOUTHEAST] = {1, 1},

[sOUTHWEST] = {-1, 1},

[NORTHWEST] = {-1, -1},

[NORTHEAST] = {1, -1}}

for range = 1, 5 do

local add = getThingPositionWithDebug(cid)

add.x = add.x + signal[1] * range

add.y = add.y + signal[2] * range

table.insert(t, add)

end

local function doBoomerang(cid, pos)

if not isCreature(cid) then return true end

doAreaCombatHealth(cid, NORMALDAMAGE, pos, 0, -min, -max, 212)

end

for throw = 1, 5 do

addEvent(doBoomerang, (throw - 1) * 200, cid, t[throw])

end

for back = -5, -1 do

local k = -back

addEvent(doBoomerang, math.abs(k - 5) * 200 + 1000, cid, t[k])

end

elseif spell == "Comet Punch" then

local pos = getThingPositionWithDebug(target)

pos.y = pos.y - 5

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 26)

local function doPunchie(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIGHTDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 249)

end

addEvent(doPunchie, const_distance_delay * 5, cid, target)

end

return true

end

Quanto aos atacks muitos estão dando esse erro daí não entendi ele mais é oque é.

Se quiser posto até a pasta ( Spells ) Pra vocês darem uma olhada e ver o bug.

Agora quanto ao move1.lua gostaria que alguém corrigisse este erro, porfavorzão, é o único erro que me prende a por meu Ot online pra geral.

Socorro ajudem aí!

Meu Move1.lua:

local msgs = {"use ", ""}

function doAlertReady(cid, id, movename, n, cd)

if not isCreature(cid) then return true end

local myball = getPlayerSlotItem(cid, 8)

if myball.itemid > 0 and getItemAttribute(myball.uid, cd) == "cd:"..id.."" then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(myball.uid).." - "..movename.." (m"..n..") is ready!")

return true

end

local p = getPokeballsInContainer(getPlayerSlotItem(cid, 3).uid)

if not p or #p <= 0 then return true end

for a = 1, #p do

if getItemAttribute(p[a], cd) == "cd:"..id.."" then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(p[a]).." - "..movename.." (m"..n..") is ready!")

return true

end

function onSay(cid, words, param, channel)

if param ~= "" then return true end

if string.len(words) > 3 then return true end

if #getCreatureSummons(cid) == 0 then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need a pokemon to use moves.")

return 0

end

if getCreatureCondition(getCreatureSummons(cid)[1], CONDITION_INVISIBLE) and not isGhostPokemon(getCreatureSummons(cid)[1]) then

return 0

end

local mypoke = getCreatureSummons(cid)[1]

if getCreatureCondition(cid, CONDITION_EXHAUST) then return true end

if getCreatureName(mypoke) == "Evolution" then return true end

local name = getCreatureName(mypoke) == "Ditto" and getPlayerStorageValue(mypoke, 1010) or getCreatureName(mypoke)

local it = string.sub(words, 2, 3)

local move = movestable[name].move1

local cdzin = "move"..it..""

if it == "2" then

move = movestable[name].move2

elseif it == "3" then

move = movestable[name].move3

elseif it == "4" then

move = movestable[name].move4

elseif it == "5" then

move = movestable[name].move5

elseif it == "6" then

move = movestable[name].move6

elseif it == "7" then

move = movestable[name].move7

elseif it == "8" then

move = movestable[name].move8

elseif it == "9" then

move = movestable[name].move9

elseif it == "10" then

move = movestable[name].move10

elseif it == "11" then

move = movestable[name].move11

elseif it == "12" then

move = movestable[name].move12

elseif it == "13" then

move = movestable[name].move13

end

if not move then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn't recognize this move.")

return true

end

--if false and getLevel(mypoke) < move.level then

if getLevel(mypoke) < move.level then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn't have enough level to use this move.")

return 0

end

if getCD(getPlayerSlotItem(cid, 8).uid, cdzin) > 0 and getCD(getPlayerSlotItem(cid, 8).uid, cdzin) < (move.cd + 2) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have to wait "..getCD(getPlayerSlotItem(cid, 8).uid, cdzin).." seconds to use "..move.name.." again.")

return 0

end

if getTileInfo(getThingPos(mypoke)).protection then

doPlayerSendCancel(cid, "Your pokemon cannot use moves while in protection zone.")

return 0

end

if move.name == "Team Slice" and #getCreatureSummons(cid) < 2 then

doPlayerSendCancel(cid, "Your pokemon need be in a team for use this move!") --edited team ^^

return 0

end

if move.target == 1 then

if not isCreature(getCreatureTarget(cid)) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don\'t have any targets.")

return 0

end

if getCreatureCondition(getCreatureTarget(cid), CONDITION_INVISIBLE) then

return 0

end

if getCreatureHealth(getCreatureTarget(cid)) <= 0 then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your have already defeated your target.")

return 0

end

if not isCreature(getCreatureSummons(cid)[1]) then

return true

end

if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid))) > move.dist then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Get closer to the target to use this move.")

return 0

end

if not isSightClear(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), false) then

return 0

end

local newid = 0

if isSleeping(mypoke) then

--newid = setCD(getPlayerSlotItem(cid, 8).uid, cdzin, 8)

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry your pokemon cant use cd while sleeping.")

doCreatureSay(mypoke, "zZzZ", TALKTYPE_MONSTER)

return 0

else

newid = setCD(getPlayerSlotItem(cid, 8).uid, cdzin, move.cd)

end

doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..move.name.."!", TALKTYPE_SAY)

local mypoke22 = getCreatureSummons(cid)[2] or 0 --edited team

local mypoke33 = getCreatureSummons(cid)[3] or 0

--if move.name ~= "Metronome" then

--doCreatureSay(mypoke, ""..string.upper(move.name).."!", TALKTYPE_MONSTER)

--end

addEvent(doAlertReady, move.cd * 1000, cid, newid, move.name, it, cdzin)

if mypoke33 ~= 0 and getPlayerStorageValue(cid, 637501) >= 1 then

if move.name ~= "Team Slice" then

docastspell(mypoke33, move.name)

docastspell(mypoke22, move.name)

end

elseif mypoke22 ~= 0 and getPlayerStorageValue(cid, 637501) >= 1 then --edited team

if move.name ~= "Team Slice" then

docastspell(mypoke22, move.name)

end

docastspell(mypoke, move.name)

doCreatureAddCondition(cid, playerexhaust)

if useKpdoDlls then

doUpdateCooldowns(cid)

end

return 0

end

AWeskers · Julho 13, 2012

@Kurobisu edita seu post ae, coloca um spoiler direito, isso ta ocupando quase a téla toda

Kurobisu · Julho 13, 2012

Pronto apaguei este post pra postar sobre outra coisa, quando um ( Magby ) Ficou tentando matar meu ( Pidgeot )

>Apareceu isto no Console<

ERRO DO CONSOLE (Parte 1)

[13/07/2012 19:09:31] [Error - CreatureScript Interface]

[13/07/2012 19:09:31] data/creaturescripts/scripts/exp.lua:onStatsChange

[13/07/2012 19:09:31] Description:

[13/07/2012 19:09:31] data/lib/status library.lua:262: attempt to call global 'canAttackOther' (a nil value)

[13/07/2012 19:09:31] stack traceback:

[13/07/2012 19:09:31] data/lib/status library.lua:262: in function 'doAdvancedBurn'

[13/07/2012 19:09:31] data/creaturescripts/scripts/exp.lua:529: in function <data/creaturescripts/scripts/exp.lua:128>

Fora aquele ali em cima que eu ja tinha postado, mais ninguém ajuda.

ERRO DO CONSOLE (Parte 2)

[13/07/2012 18:47:01] [Error - Spell Interface]

[13/07/2012 18:47:02] data/spells/scripts/ps/String Shot.lua:onCastSpell

[13/07/2012 18:47:02] Description:

[13/07/2012 18:47:02] data/lib/pokemon moves.lua:479: attempt to call global 'doAdvancedBlind' (a nil value)

[13/07/2012 18:47:02] stack traceback:

[13/07/2012 18:47:02] data/lib/pokemon moves.lua:479: in function 'docastspell'

[13/07/2012 18:47:02] data/spells/scripts/ps/String Shot.lua:5: in function <data/spells/scripts/ps/String Shot.lua:1>

Ajuda ai porfavor.

Gostaria que vocês entendessem que o Xtibia anda dando erro aqui, não sei se é só comigo mais ele devez enquando está fora do ar e talz. Quando vou postar algo demora muito para postar, e quando posta de vez enquando vai logo duplo.

Editado Julho 13, 2012 por Kurobisu

AWeskers · Julho 13, 2012

Alguem tem o script de duel com janela de opções ? igual a do KpDo que apareçe uma janela escolhendo a quantidade de pokes que seram utilizados na batalha ?

Vlws ae.

samuelitho · Julho 14, 2012

=(

mi pokedex no registra pokemon johto como arrumar iso

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

ya lo arregle xD

Editado Julho 14, 2012 por samuelitho

AWeskers · Julho 14, 2012

Galéra alguem tem o script da EvoItem igual do KpDo ? tipo que dando use no item o poke se estiver no level cérto evolua sem presisar passar +1 level ?

REP++ ae.

FlamesAdmin · Julho 14, 2012

Galera to com uma duvida ake;

adcionei uns pokes novos ake no meu servidor só q qnd eu sumono eles, eles vem lvl baxo sempre lvl 20 a 30 ou 30 a 40 por ae

keria saber como q eu coloco para eles nascerem lvl alto

AsMinaPira · Julho 14, 2012

@Flames muda o head e o body do Xml do pokemon que você criou.

Head = Lv Minimo que o pokemon vai nascer.

Body = Lv Máximo que o pokemon vai nascer.

Exemplo:

head="10" body="30"

FlamesAdmin · Julho 14, 2012

@Flames muda o head e o body do Xml do pokemon que você criou.

Head = Lv Minimo que o pokemon vai nascer.

Body = Lv Máximo que o pokemon vai nascer.

Exemplo:
head="10" body="30"

ja mudei mano

zesy · Julho 14, 2012

Hmm... tou com alguns erros aqui e uma duvida:

Erro:

Quando o Player faz logout com o poke fora e depois ele faz login, o poke volta a vida inteira.

Duvida:

Tem como, tipo, tira a pokemonbar e deixa só a cdbar? vou posta uma foto aqui de um post q eu vi:

Imagem:

Tipo, nao repare os detalhes, essa img foi de um post q eu vi...

Minha pergunta é:

Tira o pokemonBar, e deixar só o MoveBar

com esses botões, se alguém puder me ajudar por favor...

@Flames

Se vc já edito, entao deve tar certo mano. Tenta dar um reload e tenha certeza q é o diretorio certo né

EDIT:

Se isso for possivel, tem como upar as dlls?

Editado Julho 14, 2012 por ZeSy

FlamesAdmin · Julho 14, 2012

Hmm... tou com alguns erros aqui e uma duvida:

Erro:

Quando o Player faz logout com o poke fora e depois ele faz login, o poke volta a vida inteira.

Duvida:

Tem como, tipo, tira a pokemonbar e deixa só a cdbar? vou posta uma foto aqui de um post q eu vi:

Imagem:

Tipo, nao repare os detalhes, essa img foi de um post q eu vi...

Minha pergunta é:

Tira o pokemonBar, e deixar só o MoveBar

com esses botões, se alguém puder me ajudar por favor...

@Flames

Se vc já edito, entao deve tar certo mano. Tenta dar um reload e tenha certeza q é o diretorio certo né

EDIT:

Se isso for possivel, tem como upar as dlls?

sua pokebar tbm ta bugando?

AWeskers · Julho 14, 2012

@AsMinaPira: vlws ae tbm tava presisando saber como editar o lv min e max, seu primeiro REP+ ae ^^

Editado Julho 14, 2012 por Jhonsy

Entrar

[Encerrado] [Pokemon] Dúvidas? - Pda

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

lucashgas

Slicer

brun123

Posted Images

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Quem Está Navegando 0 membros estão online

Conteúdo Similar

Anúncios