const_distance_delay = 56
RollOuts = {
["Voltorb"] = {lookType = 638},
["Electrode"] = {lookType = 637},
["Sandshrew"] = {lookType = 635},
["Sandslash"] = {lookType = 636},
["Phanpy"] = {lookType = 1005},
["Donphan"] = {lookType = 1456},
["Miltank"] = {lookType = 1006}, --alterado v1.6 peguem o script todo!!
["Golem"] = {lookType = 639},
["Ditto"] = {lookType = 639},
["Shiny Electrode"] = {lookType = 1387},
["Orebound Shiny Golem"] = {lookType = 1403},
["Orebound Golem"] = {lookType = 639},
["Shiny Golem"] = {lookType = 1403},
["Shiny Voltorb"] = {lookType = 1388},
["Roll Donphan"] = {lookType = 1456},
["Fury Sandslash"] = {lookType = 636}
}
--//////////////////////////////////////////////////////////////////////////////////////////////////////////--
local function getThingName(cid)
if not isCreature(cid) then return "" end --alterado v1.6
return getCreatureName(cid)
end
function getTableMove(cid, move) --alterado v1.6
local backup = {f = 0, t = ""}
if getThingName(cid) == "Ditto" and pokes[getPlayerStorageValue(cid, 1010)] and getPlayerStorageValue(cid, 1010) ~= "Ditto" then
name = getPlayerStorageValue(cid, 1010)
else
name = getThingName(cid)
end
if not isCreature(cid) or name == "" or not move then return backup end
local x = movestable[name]
if not x then return "" end
local z = {x.move1, x.move2, x.move3, x.move4, x.move5, x.move6, x.move7, x.move8, x.move9, x.move10, x.move11, x.move12, x.passive1, x.passive2, x.passive3}
if getPlayerStorageValue(cid, 21103) ~= -1 then
local sto = getPlayerStorageValue(cid, 21103)
setPlayerStorageValue(cid, 21103, -1)
return {f = sto, t = ""}
end
for j = 1, 15 do
if z[j] and z[j].name == move then
return z[j]
end
end
return movesinfo[move]
end
function getMasterTarget(cid)
if isCreature(cid) and getPlayerStorageValue(cid, 21101) ~= -1 then
return getPlayerStorageValue(cid, 21101) --alterado v1.6
end
if isSummon(cid) then
return getCreatureTarget(getCreatureMaster(cid))
else
return getCreatureTarget(cid)
end
end
--////////////////////////////////////////////////////////////////////////////////////////////////////////--
function docastspell(cid, spell, mina, maxa)
local target = 0
local getDistDelay = 0
if not isCreature(cid) or getCreatureHealth(cid) <= 0 then return false end --alterado v1.6
if getTileInfo(getThingPos(cid)).protection then
return false
end
if isSleeping(cid) and getPlayerStorageValue(cid, 21100) <= -1 then return true end --alterado v1.6
if isCreature(getMasterTarget(cid)) then
target = getMasterTarget(cid)
getDistDelay = getDistanceBetween(getThingPosWithDebug(cid), getThingPosWithDebug(target)) * const_distance_delay
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(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
local table = getTableMove(cid, spell) --alterado v1.6
local min = 0
local max = 0
--alterado v1.6
if ehMonstro(cid) and isCreature(getMasterTarget(cid)) and isInArray(specialabilities["evasion"], getCreatureName(getMasterTarget(cid))) and math.random(1, 100) <= 10 then
local target = getMasterTarget(cid)
--alterado v1.5
if isCreature(getMasterTarget(target)) then --alterado v1.6
doSendMagicEffect(getThingPosWithDebug(target), 211)
doSendAnimatedText(getThingPosWithDebug(target), "TOO BAD", 215)
doTeleportThing(target, getClosestFreeTile(target, getThingPosWithDebug(cid)), false)
doSendMagicEffect(getThingPosWithDebug(target), 211)
doFaceCreature(target, getThingPosWithDebug(cid))
end
return false
end
--- FEAR / ROAR / SILENCE ---
if (isWithFear(cid) or isSilence(cid)) and getPlayerStorageValue(cid, 21100) <= -1 then
return true --alterado v1.6!!
end
----------------------------
if mina and maxa then
min = math.abs(mina)
max = math.abs(maxa)
elseif not isPlayer(cid) then
if table ~= "" then --alterado v1.6
min = getSpecialAttack(cid) * table.f * 0.1 --alterado v1.6
max = min + (isSummon(cid) and getMasterLevel(cid) or getPokemonLevel(cid))
if spell == "Selfdestruct" then
min = getCreatureHealth(cid) --alterado v1.6
max = getCreatureHealth(cid)
end
if not isSummon(cid) and not isInArray({"Demon Puncher", "Demon Kicker"}, spell) then --alterado v1.7
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 the pokemon table.")
end
end
--- FOCUS ----------------------------------
if getPlayerStorageValue(cid, 253) >= 0 and table ~= "" and table.f ~= 0 then --alterado v1.6
min = min * 1.3
max = max * 1.3
setPlayerStorageValue(cid, 253, -1)
end
--- Shredder Team -------------------------------
if getPlayerStorageValue(cid, 637501) >= 1 then
if #getCreatureSummons(cid) == 1 then
docastspell(getCreatureSummons(cid)[1], spell)
elseif #getCreatureSummons(cid) == 2 then
docastspell(getCreatureSummons(cid)[1], spell)
docastspell(getCreatureSummons(cid)[2], spell)
end
elseif getPlayerStorageValue(cid, 637500) >= 1 then
min = 0
max = 0
end
------------------Miss System--------------------------
local cd = getPlayerStorageValue(cid, conds["Miss"])
local cd2 = getPlayerStorageValue(cid, conds["Confusion"]) --alterado v1.5
local cd3 = getPlayerStorageValue(cid, conds["Stun"])
if cd >= 0 or cd2 >= 0 or cd3 >= 0 then
if not isInArray({"Aromateraphy", "Emergency Call", "Magical Leaf", "Sunny Day", "Safeguard"}, spell) and getPlayerStorageValue(cid, 21100) <= -1 then
if math.random(1, 100) > 30 then --alterado v1.6
doSendAnimatedText(getThingPosWithDebug(cid), "MISS", 215)
return false
end
end
end
---------------GHOST DAMAGE-----------------------
ghostDmg = GHOSTDAMAGE
psyDmg = PSYCHICDAMAGE
if getPlayerStorageValue(cid, 999457) >= 1 and table ~= "" and table.f ~= 0 then --alterado v1.6
psyDmg = MIRACLEDAMAGE
ghostDmg = DARK_EYEDAMAGE
addEvent(setPlayerStorageValue, 50, cid, 999457, -1)
end
--------------------REFLECT----------------------
setPlayerStorageValue(cid, 21100, -1) --alterado v1.6
if not isInArray({"Mud Bomb", "Psybeam", "Sand Attack", "Flamethrower"}, spell) then
setPlayerStorageValue(cid, 21101, -1)
end
setPlayerStorageValue(cid, 21102, spell)
---------------------------------------------------
if spell == "Reflect" or spell == "Magic Coat" then
if spell == "Magic Coat" then
eff = 11
else
eff = 135
end
doSendMagicEffect(getThingPosWithDebug(cid), eff)
setPlayerStorageValue(cid, 21099, 1)
elseif spell == "Quick Attack" then
doSendMagicEffect(getThingPosWithDebug(cid), 211)
local x = getClosestFreeTile(cid, getThingPosWithDebug(target))
doTeleportThing(cid, x, false)
doFaceCreature(cid, getThingPosWithDebug(target))
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 3)
elseif spell == "Razor Leaf" or spell == "Magical Leaf" then
local eff = spell == "Razor Leaf" and 8 or 21
local function throw(cid, target)
if not isCreature(cid) or not isCreature(target) then return false end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), eff)
doDanoWithProtectWithDelay(cid, target, GRASSDAMAGE, min, max, 245)
end
addEvent(throw, 0, cid, target)
addEvent(throw, 350, cid, target)
elseif spell == "Vine Whip" then
local area = getThingPosWithDebug(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, getThingPosWithDebug(cid), dano, -min, -max, 255)
elseif spell == "Headbutt" then
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 118)
elseif spell == "Leech Seed" then
local ret = {}
ret.id = target
ret.attacker = cid
ret.cd = 5
ret.check = getPlayerStorageValue(target, conds["Leech"])
ret.damage = isSummon(cid) and getMasterLevel(cid)+getPokemonBoost(cid) or getPokemonLevel(cid)
ret.cond = "Leech"
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 1)
addEvent(doMoveDano2, 1000, cid, target, GRASSDAMAGE, 0, 0, ret, spell)
elseif spell == "Solar Beam" then
local function useSolarBeam(cid)
if not isCreature(cid) then
return true
end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then
return true
end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then
return true
end
local effect1 = 255
local effect2 = 255
local effect3 = 255
local effect4 = 255
local effect5 = 255
local area = {}
local pos1 = getThingPosWithDebug(cid)
local pos2 = getThingPosWithDebug(cid)
local pos3 = getThingPosWithDebug(cid)
local pos4 = getThingPosWithDebug(cid)
local pos5 = getThingPosWithDebug(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, getThingPosWithDebug(cid), area, -min, -max, 255)
doRegainSpeed(cid)
setPlayerStorageValue(cid, 3644587, -1)
end
local function ChargingBeam(cid)
if not isCreature(cid) then
return true
end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then
return true
end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then
return true
end
local tab = {}
for x = -2, 2 do
for y = -2, 2 do
local pos = getThingPosWithDebug(cid)
pos.x = pos.x + x
pos.y = pos.y + y
if pos.x ~= getThingPosWithDebug(cid).x and pos.y ~= getThingPosWithDebug(cid).y then
table.insert(tab, pos)
end
end
end
doSendDistanceShoot(tab[math.random(#tab)], getThingPosWithDebug(cid), 37)
end
doChangeSpeed(cid, -getCreatureSpeed(cid))
setPlayerStorageValue(cid, 3644587, 1) --alterado v1.6 n sei pq mas tava dando debug
doSendMagicEffect(getThingPosWithDebug(cid), 132)
addEvent(useSolarBeam, 650, cid)
elseif spell == "Sleep Powder" then
local ret = {}
ret.id = 0
ret.cd = math.random(6, 9)
ret.check = 0
ret.first = true --alterado v1.6
ret.cond = "Sleep"
doMoveInArea2(cid, 27, confusion, NORMALDAMAGE, 0, 0, spell, ret)
elseif spell == "Stun Spore" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 0
ret.check = 0
ret.spell = spell
ret.cond = "Stun"
doMoveInArea2(cid, 85, confusion, GRASSDAMAGE, 0, 0, spell, ret)
elseif spell == "Poison Powder" then
local ret = {}
ret.id = 0
ret.cd = math.random(6, 15) --alterado v1.6
ret.check = 0
local lvl = isSummon(cid) and getMasterLevel(cid) or getPokemonLevel(cid)
ret.damage = math.floor((getPokemonLevel(cid)+lvl)/2)
ret.cond = "Poison"
doMoveInArea2(cid, 84, confusion, NORMALDAMAGE, 0, 0, spell, ret)
elseif spell == "Bullet Seed" then
--cid, effDist, effDano, areaEff, areaDano, element, min, max
doMoveInAreaMulti(cid, 1, 45, bullet, bulletDano, GRASSDAMAGE, min, max)
elseif spell == "Body Slam" then
doBodyPush(cid, target, true)
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 3)
elseif spell == "Leaf Storm" or tonumber(spell) == 73 then
addEvent(doDanoWithProtect, 150, cid, GRASSDAMAGE, getThingPosWithDebug(cid), grassarea, -min, -max, 0)
local pos = getThingPosWithDebug(cid)
local function doSendLeafStorm(cid, pos) --alterado!!
if not isCreature(cid) then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), pos, 8)
end
for a = 1, 100 do
local lugar = {x = pos.x + math.random(-6, 6), y = pos.y + math.random(-5, 5), z = pos.z}
addEvent(doSendLeafStorm, a * 2, cid, lugar)
end
elseif spell == "Scratch" then
doDanoWithProtect(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 142)
elseif spell == "Ember" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 3)
doDanoWithProtectWithDelay(cid, target, FIREDAMAGE, min, max, 15)
elseif spell == "Flamethrower" then
local flamepos = getThingPosWithDebug(cid)
local effect = 255
local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
if a == 0 then
flamepos.x = flamepos.x+1
flamepos.y = flamepos.y-1
effect = 106
elseif a == 1 then
flamepos.x = flamepos.x+3
flamepos.y = flamepos.y+1
effect = 109
elseif a == 2 then
flamepos.x = flamepos.x+1
flamepos.y = flamepos.y+3
effect = 107
elseif a == 3 then
flamepos.x = flamepos.x-1
flamepos.y = flamepos.y+1
effect = 108
end
doMoveInArea2(cid, 0, flamek, FIREDAMAGE, min, max, spell)
doSendMagicEffect(flamepos, effect)
elseif spell == "Fireball" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 3)
addEvent(doDanoWithProtect, 200, cid, FIREDAMAGE, getThingPosWithDebug(target), waba, min, max, 5)
elseif spell == "Fire Fang" then
doSendMagicEffect(getThingPosWithDebug(target), 138)
doDanoWithProtectWithDelay(cid, target, FIREDAMAGE, min, max, 15)
elseif spell == "Fire Blast" then
local p = getThingPosWithDebug(cid)
local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
function sendAtk(cid, area, eff)
if isCreature(cid) then
if not isSightClear(p, area, false) then return true end
doAreaCombatHealth(cid, FIREDAMAGE, area, 0, 0, 0, eff)
doAreaCombatHealth(cid, FIREDAMAGE, area, whirl3, -min, -max, 35)
end
end
for a = 0, 4 do
local t = {
[0] = {60, {x=p.x, y=p.y-(a+1), z=p.z}}, --alterado v1.4
[1] = {61, {x=p.x+(a+1), y=p.y, z=p.z}},
[2] = {62, {x=p.x, y=p.y+(a+1), z=p.z}},
[3] = {63, {x=p.x-(a+1), y=p.y, z=p.z}}
}
addEvent(sendAtk, 300*a, cid, t[d][2], t[d][1])
end
elseif spell == "Rage" then
local ret = {}
ret.id = cid
ret.cd = 15
ret.eff = 13
ret.check = 0
ret.buff = spell
ret.first = true
doCondition2(ret)
elseif spell == "Raging Blast" then
--cid, effDist, effDano, areaEff, areaDano, element, min, max
doMoveInAreaMulti(cid, 3, 6, bullet, bulletDano, FIREDAMAGE, min, max)
elseif spell == "Dragon Claw" then
doDanoWithProtect(cid, DRAGONDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 141)
elseif spell == "Wing Attack" or spell == "Steel Wing" then
local effectpos = getThingPosWithDebug(cid)
local effect = 255
local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
if a == 0 then
effect = spell == "Steel Wing" and 251 or 128
effectpos.x = effectpos.x + 1
effectpos.y = effectpos.y - 1 --alterado v1.4
elseif a == 1 then
effectpos.x = effectpos.x + 2
effectpos.y = effectpos.y + 1
effect = spell == "Steel Wing" and 253 or 129
elseif a == 2 then
effectpos.x = effectpos.x + 1
effectpos.y = effectpos.y + 2
effect = spell == "Steel Wing" and 252 or 131
elseif a == 3 then
effectpos.x = effectpos.x - 1
effectpos.y = effectpos.y + 1
effect = spell == "Steel Wing" and 254 or 130
end
doSendMagicEffect(effectpos, effect)
doMoveInArea2(cid, 0, wingatk, FLYINGDAMAGE, min, max, spell)
elseif spell == "Magma Storm" then
local eff = {6, 35, 35, 6}
local area = {flames1, flames2, flames3, flames4}
addEvent(doMoveInArea2, 2*450, cid, 2, flames0, FIREDAMAGE, min, max, spell)
for i = 0, 3 do
addEvent(doMoveInArea2, i*450, cid, eff[i+1], area[i+1], FIREDAMAGE, min, max, spell)
end
elseif spell == "Bubbles" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 2)
doDanoWithProtectWithDelay(cid, target, WATERDAMAGE, min, max, 25)
elseif spell == "Clamp" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 2)
doDanoWithProtectWithDelay(cid, target, WATERDAMAGE, min, max, 53)
elseif spell == "Water Gun" then
if mydir == 0 then
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg1n, -min, -max, 74)
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg2n, -min, -max, 75)
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg3n, -min, -max, 76)
elseif mydir == 2 then
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg1s, -min, -max, 77)
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg2s, -min, -max, 75)
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg3s, -min, -max, 78)
elseif mydir == 1 then
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg1e, -min, -max, 69)
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg2e, -min, -max, 70)
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg3e, -min, -max, 71)
elseif mydir == 3 then
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg1w, -min, -max, 72)
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg2w, -min, -max, 70)
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), wg3w, -min, -max, 73)
end
elseif spell == "Waterball" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 2)
doDanoWithProtectWithDelay(cid, target, WATERDAMAGE, min, max, 68, waba)
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, getThingPosWithDebug(target), 0, -min, -max, 68)
elseif spell == "Hydro Cannon" then
local p = getThingPosWithDebug(cid)
local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
function sendAtk(cid, area, eff)
if isCreature(cid) then
if not isSightClear(p, area, false) then return true end
doAreaCombatHealth(cid, WATERDAMAGE, area, 0, 0, 0, eff)
doAreaCombatHealth(cid, WATERDAMAGE, area, whirl3, -min, -max, 68)
end
end
for a = 0, 4 do
local t = { --alterado v1.4
[0] = {64, {x=p.x, y=p.y-(a+1), z=p.z}},
[1] = {65, {x=p.x+(a+1), y=p.y, z=p.z}},
[2] = {66, {x=p.x, y=p.y+(a+1), z=p.z}},
[3] = {67, {x=p.x-(a+1), y=p.y, z=p.z}}
}
addEvent(sendAtk, 300*a, cid, t[d][2], t[d][1])
end
elseif spell == "Harden" or spell == "Calm Mind" or spell == "Defense Curl" or spell == "Charm" then
--alterado v1.4
if spell == "Calm Mind" then
eff = 133
elseif spell == "Charm" then
eff = 147 --efeito n eh esse.. e n sei se eh soh bonus de def, ou sp.def tb.. ;x
else
eff = 144
end
local ret = {}
ret.id = cid
ret.cd = 8
ret.eff = eff
ret.check = 0
ret.buff = spell
ret.first = true
doCondition2(ret)
elseif spell == "Bubble Blast" then
--cid, effDist, effDano, areaEff, areaDano, element, min, max
doMoveInAreaMulti(cid, 2, 68, bullet, bulletDano, WATERDAMAGE, min, max)
elseif spell == "Skull Bash" then
local ret = {}
ret.id = 0
ret.cd = 9 --alterado v1.6
ret.eff = 118
ret.check = 0
ret.first = true
ret.cond = "Paralyze"
doMoveInArea2(cid, 118, reto5, NORMALDAMAGE, min, max, spell, ret)
elseif spell == "Hydropump" then
local pos = getThingPosWithDebug(cid)
local function doSendBubble(cid, pos)
if not isCreature(cid) then return true end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), pos, 2)
doSendMagicEffect(pos, 53)
end
--alterado!!
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 * 25, cid, lugar)
end
addEvent(doDanoWithProtect, 150, cid, WATERDAMAGE, pos, waterarea, -min, -max, 0)
elseif spell == "String Shot" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 23)
local ret = {}
ret.id = target
ret.cd = 6
ret.eff = 137
ret.check = getPlayerStorageValue(target, conds["Stun"])
ret.spell = spell
ret.cond = "Stun"
addEvent(doMoveDano2, 100, cid, target, BUGDAMAGE, 0, 0, ret, spell)
elseif spell == "Bug Bite" then
doSendMagicEffect(getThingPosWithDebug(target), 244)
doDanoWithProtectWithDelay(cid, target, BUGDAMAGE, min, max, 8)
elseif spell == "Super Sonic" then
local rounds = math.random(4, 7)
rounds = rounds + math.floor(getPokemonLevel(cid) / 35)
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 32)
local ret = {}
ret.id = target
ret.cd = rounds
ret.check = getPlayerStorageValue(target, conds["Confusion"])
ret.cond = "Confusion"
addEvent(doMoveDano2, 100, cid, target, NORMALDAMAGE, 0, 0, ret, spell)
elseif spell == "Whirlwind" then
area = {SL1, SL2, SL3, SL4}
for i = 0, 3 do
addEvent(doMoveInArea2, i*300, cid, 42, area[i+1], FLYINGDAMAGE, min, max, spell)
end
elseif spell == "Psybeam" then
local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
local t = {
[0] = 58, --alterado v1.6
[1] = 234,
[2] = 58,
[3] = 234,
}
doMoveInArea2(cid, t[a], reto4, psyDmg, min, max, spell) --alterado v1.4
elseif spell == "Sand Attack" then
local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
local t = {
[0] = 120,
[1] = 121,
[2] = 122,
[3] = 119,
}
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 34
ret.check = 0
ret.spell = spell
ret.cond = "Miss"
doCreatureSetLookDir(cid, a) --sera? '-'
stopNow(cid, 1000)
doMoveInArea2(cid, t[a], reto5, GROUNDDAMAGE, 0, 0, spell, ret)
elseif spell == "Confusion" or spell == "Night Shade" then
local rounds = math.random(4, 7) --rever area...
rounds = rounds + math.floor(getPokemonLevel(cid) / 35)
if spell == "Confusion" then
dano = psyDmg --alterado v1.4
else
dano = ghostDmg
end
local ret = {}
ret.id = 0
ret.check = 0
ret.cd = rounds
ret.cond = "Confusion"
doMoveInArea2(cid, 136, selfArea1, dano, min, max, spell, ret)
elseif spell == "Horn Attack" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 15)
doDanoWithProtectWithDelay(cid, target, NORMALDAMAGE, min, max, 3)
elseif spell == "Poison Sting" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 15)
doDanoWithProtectWithDelay(cid, target, POISONDAMAGE, min, max, 8)
elseif spell == "Fury Cutter" or spell == "Red Fury" then
local effectpos = getThingPosWithDebug(cid)
local effect = 255
local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
if a == 0 then
if getCreatureName(cid) == "Scizor" then
effect = 236
else
effect = 128
end
effectpos.x = effectpos.x + 1
effectpos.y = effectpos.y - 1
elseif a == 1 then
effectpos.x = effectpos.x + 2
effectpos.y = effectpos.y + 1
if getCreatureName(cid) == "Scizor" then
effect = 232
else
effect = 129
end
elseif a == 2 then
effectpos.x = effectpos.x + 1
effectpos.y = effectpos.y + 2
if getCreatureName(cid) == "Scizor" then
effect = 233
else
effect = 131
end
elseif a == 3 then
effectpos.x = effectpos.x - 1
effectpos.y = effectpos.y + 1
if getCreatureName(cid) == "Scizor" then
effect = 224
else
effect = 130
end
end
local function doFury(cid, effect)
if not isCreature(cid) then return true end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doSendMagicEffect(effectpos, effect)
doMoveInArea2(cid, 2, wingatk, BUGDAMAGE, min, max, spell)
end
addEvent(doFury, 0, cid, effect)
addEvent(doFury, 350, cid, effect)
elseif spell == "Pin Missile" then
doMoveInAreaMulti(cid, 13, 7, bullet, bulletDano, BUGDAMAGE, min, max)
elseif spell == "Strafe" or spell == "Agility" then
local ret = {}
ret.id = cid
ret.cd = 15
ret.eff = 14
ret.check = 0
ret.buff = spell
ret.first = true
doCondition2(ret)
elseif spell == "Gust" then
doMoveInArea2(cid, 42, reto5, FLYINGDAMAGE, min, max, spell)
elseif spell == "Drill Peck" then
doDanoWithProtect(cid, FLYINGDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 148)
elseif spell == "Tornado" then
local pos = getThingPosWithDebug(cid)
local function doSendTornado(cid, pos)
if not isCreature(cid) then return true end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), pos, 22)
doSendMagicEffect(pos, 42)
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(doSendTornado, a * 75, cid, lugar)
end
end
doDanoWithProtect(cid, FLYINGDAMAGE, pos, waterarea, -min, -max, 0)
elseif spell == "Bite" or tonumber(spell) == 5 then
doDanoWithProtect(cid, DARKDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 146)
elseif spell == "Super Fang" then
doDanoWithProtect(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 244)
elseif spell == "Poison Fang" then
doSendMagicEffect(getThingPosWithDebug(target), 244)
doDanoWithProtectWithDelay(cid, target, POISONDAMAGE, min, max, 114)
elseif spell == "Sting Gun" then
local function doGun(cid, target)
if not isCreature(cid) or not isCreature(target) then return true end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 13)
doDanoWithProtectWithDelay(cid, target, POISONDAMAGE, min, max, 8)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 200, cid, 3644587, 1)
for i = 0, 2 do
addEvent(doGun, i*100, cid, target)
end
elseif spell == "Acid" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 14)
doDanoWithProtectWithDelay(cid, target, POISONDAMAGE, min, max, 20)
elseif spell == "Fear" or spell == "Roar" then
local ret = {}
ret.id = 0
ret.cd = 5
ret.check = 0
ret.skill = spell
ret.cond = "Fear"
doMoveInArea2(cid, 0, confusion, DARKDAMAGE, 0, 0, spell, ret)
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)
doDanoWithProtect(cid, STEELDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 160)
elseif spell == "Thunder Shock" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 40)
doDanoWithProtectWithDelay(cid, target, ELECTRICDAMAGE, min, max, 48)
elseif spell == "Thunder Bolt" then
local function doThunderHit(cid, target)
if not isCreature(target) or not isCreature(cid) then return true end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(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 = getThingPosWithDebug(target)
local ry = math.abs(frompos.y - pos.y)
doSendDistanceShoot(frompos, getThingPosWithDebug(target), 41)
addEvent(doThunderHit, ry * 11, cid, target)
end
local function doThunderUp(cid, target)
if not isCreature(target) or not isCreature(cid) then return true end
local pos = getThingPosWithDebug(target)
local mps = getThingPosWithDebug(cid)
local xrg = math.floor((pos.x - mps.x) / 2)
local topos = mps
topos.x = topos.x + xrg
local rd = 7
topos.y = topos.y - rd
doSendDistanceShoot(getThingPosWithDebug(cid), topos, 41)
addEvent(doThunderFall, rd * 49, cid, topos, target)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 350, cid, 3644587, -1)
for thnds = 1, 2 do
addEvent(doThunderUp, thnds * 155, cid, target)
end
elseif spell == "Thunder Wave" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.check = 0
ret.eff = 48
ret.spell = spell
ret.cond = "Stun"
doMoveInArea2(cid, 48, tw1, ELECTRICDAMAGE, min, max, spell, ret)
elseif spell == "Thunder" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.check = 0
ret.eff = 48
ret.spell = spell
ret.cond = "Stun"
doMoveInArea2(cid, 48, thunderr, ELECTRICDAMAGE, min, max, spell, ret)
elseif spell == "Mega Kick" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
doDanoWithProtectWithDelay(cid, target, FIGHTINGDAMAGE, min, max, 113)
elseif spell == "Thunder Punch" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
doSendMagicEffect(getThingPosWithDebug(target), 112)
doDanoWithProtectWithDelay(cid, target, ELECTRICDAMAGE, min, max, 48)
elseif spell == "Electric Storm" then
local master = isSummon(cid) and getCreatureMaster(cid) or cid
local function doFall(cid)
for rocks = 1, 42 do
addEvent(fall, rocks*35, cid, master, ELECTRICDAMAGE, 41, 48)
end
end
for up = 1, 10 do
addEvent(upEffect, up*75, cid, 41)
end
addEvent(doFall, 450, cid)
local ret = {}
ret.id = 0
ret.cd = 9
ret.check = 0
ret.eff = 48
ret.spell = spell
ret.cond = "Stun"
addEvent(doMoveInArea2, 1400, cid, 0, BigArea2, ELECTRICDAMAGE, min, max, spell, ret)
elseif spell == "Mud Shot" or spell == "Mud Slap" then
local contudion = spell == "Mud Shot" and "Miss" or "Stun"
local ret = {}
ret.id = target
ret.cd = 9
ret.eff = 34
ret.check = getPlayerStorageValue(target, conds[contudion])
ret.spell = spell
ret.cond = contudion
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 6)
addEvent(doMoveDano2, 100, cid, target, GROUNDDAMAGE, -min, -max, ret, spell)
elseif spell == "Rollout" then
local ret = {}
ret.id = cid
ret.cd = 15
ret.eff = 14
ret.check = 0
ret.buff = spell
ret.first = true
doCondition2(ret)
local function setOutfit(cid, outfit)
if isCreature(cid) and getCreatureCondition(cid, CONDITION_OUTFIT) == true then
if getCreatureOutfit(cid).lookType == outfit then
doRemoveCondition(cid, CONDITION_OUTFIT)
end
end
end
if RollOuts[getCreatureName(cid)] then
doSetCreatureOutfit(cid, RollOuts[getCreatureName(cid)], -1)
else --alterado v1.6
doSetCreatureOutfit(cid, {lookType = getPlayerStorageValue(cid, 21104)}, -1)
end
local outfit = getCreatureOutfit(cid).lookType
local function roll(cid, outfit)
if not isCreature(cid) then return true end
if isSleeping(cid) then return true end
if RollOuts[getCreatureName(cid)] then
doSetCreatureOutfit(cid, RollOuts[getCreatureName(cid)], -1)
else --alterado v1.6
doSetCreatureOutfit(cid, {lookType = getPlayerStorageValue(cid, 21104)}, -1)
end
doDanoWithProtect(cid, ROCKDAMAGE, getThingPosWithDebug(cid), splash, -min, -max, 0)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 9000, cid, 3644587, -1)
for r = 1, 11 do --8
addEvent(roll, 750 * r, cid, outfit)
end
addEvent(setOutfit, 9050, cid, outfit)
elseif spell == "Shockwave" then
local p = getThingPosWithDebug(cid)
local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
function sendAtk(cid, area, areaEff, eff)
if isCreature(cid) then
if not isSightClear(p, area, false) then return true end --testar o atk!!
doAreaCombatHealth(cid, GROUNDDAMAGE, areaEff, 0, 0, 0, eff)
doAreaCombatHealth(cid, GROUNDDAMAGE, area, whirl3, -min, -max, 255)
end
end
for a = 0, 5 do
local t = {
[0] = {126, {x=p.x, y=p.y-(a+1), z=p.z}, {x=p.x+1, y=p.y-(a+1), z=p.z}},
[1] = {124, {x=p.x+(a+1), y=p.y, z=p.z}, {x=p.x+(a+1), y=p.y+1, z=p.z}},
[2] = {125, {x=p.x, y=p.y+(a+1), z=p.z}, {x=p.x+1, y=p.y+(a+1), z=p.z}},
[3] = {123, {x=p.x-(a+1), y=p.y, z=p.z}, {x=p.x-(a+1), y=p.y+1, z=p.z}}
}
addEvent(sendAtk, 325*a, cid, t[d][2], t[d][3], t[d][1])
end
elseif spell == "Earthshock" then
local eff = getCreatureName(cid) == "Shiny Onix" and 179 or 127
doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPosWithDebug(cid), splash, -min, -max, 255)
local sps = getThingPosWithDebug(cid)
sps.x = sps.x+1
sps.y = sps.y+1
doSendMagicEffect(sps, eff)
elseif spell == "Earthquake" then
if pokeHaveReflect(cid) then
eff = getCreatureName(target) == "Shiny Onix" and 175 or 118 --alterado v1.6
else
eff = getCreatureName(cid) == "Shiny Onix" and 175 or 118
end
local function doQuake(cid)
if not isCreature(cid) then return false end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doMoveInArea2(cid, 175, confusion, GROUNDDAMAGE, min, max, spell)
end
times = {0, 500, 1000, 1500, 2300, 2800, 3300, 3800, 4600, 5100, 5600, 6100, 6900, 7400, 7900, 8400, 9200, 10000}
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 10000, cid, 3644587, -1)
for i = 1, #times do --alterado v1.4
addEvent(doQuake, times[i], cid)
end
elseif spell == "Stomp" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.check = 0
ret.eff = 34
ret.spell = spell
ret.cond = "Stun"
doMoveInArea2(cid, 118, stomp, GROUNDDAMAGE, min, max, spell, ret)
elseif spell == "Toxic Spikes" then
local function doToxic(cid, target)
if not isCreature(cid) or not isCreature(target) then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 15)
doDanoWithProtectWithDelay(cid, target, POISONDAMAGE, min, max, 114)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 300, cid, 3644587, -1)
addEvent(doToxic, 0, cid, target)
addEvent(doToxic, 300, cid, target)
elseif spell == "Horn Drill" then
local function doHorn(cid, target)
if not isCreature(cid) or not isCreature(target) then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 25)
doDanoWithProtectWithDelay(cid, target, NORMALDAMAGE, min, max, 3)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 300, cid, 3644587, -1)
addEvent(doHorn, 0, cid, target)
addEvent(doHorn, 300, cid, target)
elseif spell == "Doubleslap" then
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 148)
elseif spell == "Lovely Kiss" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 16)
local ret = {}
ret.id = target
ret.cd = 9
ret.check = getPlayerStorageValue(target, conds["Stun"])
ret.eff = 147
ret.spell = spell
ret.cond = "Stun"
addEvent(doMoveDano2, 100, cid, target, NORMALDAMAGE, 0, 0, ret, spell)
elseif spell == "Sing" then
local ret = {}
ret.id = 0
ret.cd = math.random(6, 10)
ret.check = 0
ret.first = true
ret.cond = "Sleep" --alterado v1.6
doMoveInArea2(cid, 33, selfArea1, NORMALDAMAGE, 0, 0, spell, ret)
elseif spell == "Multislap" then
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), splash, -min, -max, 3)
elseif spell == "Metronome" then
local spells = {"Shadow Storm", "Electric Storm", "Magma Storm", "Blizzard", "Leaf Storm", "Hydropump", "Falling Rocks"}
local random = math.random(1, #spells)
local randommove = spells[random]
local pos = getThingPosWithDebug(cid)
pos.y = pos.y - 1
doSendMagicEffect(pos, 161)
local function doMetronome(cid, skill)
if not isCreature(cid) then return true end
docastspell(cid, skill)
end
addEvent(doMetronome, 200, cid, randommove)
elseif spell == "Focus" or spell == "Charge" or spell == "Swords Dance" then
--alterado v1.4
if spell == "Charge" then
doSendAnimatedText(getThingPosWithDebug(cid), "CHARGE", 168)
doSendMagicEffect(getThingPosWithDebug(cid), 177)
elseif spell == "Swords Dance" then
doSendMagicEffect(getThingPosWithDebug(cid), 132)
else
doSendAnimatedText(getThingPosWithDebug(cid), "FOCUS", 144)
doSendMagicEffect(getThingPosWithDebug(cid), 132)
end
setPlayerStorageValue(cid, 253, 1)
elseif spell == "Flame Wheel" then
local function sendFireEff(cid, dir)
if not isCreature(cid) then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doDanoWithProtect(cid, FIREDAMAGE, getPosByDir(getThingPosWithDebug(cid), dir), 0, -min, -max, 15)
end
local function doWheel(cid)
if not isCreature(cid) then return true end
local t = {
[1] = SOUTH,
[2] = SOUTHEAST,
[3] = EAST,
[4] = NORTHEAST,
[5] = NORTH, --alterado!
[6] = NORTHWEST,
[7] = WEST,
[8] = SOUTHWEST,
}
for a = 1, 8 do
addEvent(sendFireEff, a * 140, cid, t[a])
end
end
doWheel(cid, false, cid)
elseif spell == "Hyper Voice" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.check = 0
ret.eff = 22
ret.spell = spell
ret.cond = "Stun"
doMoveInArea2(cid, 22, tw1, NORMALDAMAGE, min, max, spell, ret)
elseif spell == "Restore" or spell == "Selfheal" then
local min = (getCreatureMaxHealth(cid) * 75) / 100
local max = (getCreatureMaxHealth(cid) * 85) / 100
local function doHealArea(cid, min, max)
local amount = math.random(min, max)
if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then
amount = -(getCreatureHealth(cid)-getCreatureMaxHealth(cid))
end
if getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then
doCreatureAddHealth(cid, amount)
doSendAnimatedText(getThingPosWithDebug(cid), "+"..amount.."", 65)
end
end
doSendMagicEffect(getThingPosWithDebug(cid), 132)
doHealArea(cid, min, max)
elseif spell == "Healarea" then
local min = (getCreatureMaxHealth(cid) * 50) / 100
local max = (getCreatureMaxHealth(cid) * 60) / 100
local function doHealArea(cid, min, max)
local amount = math.random(min, max)
if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then
amount = -(getCreatureHealth(cid)-getCreatureMaxHealth(cid))
end
if getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then
doCreatureAddHealth(cid, amount)
doSendAnimatedText(getThingPosWithDebug(cid), "+"..amount.."", 65)
end
end
local pos = getPosfromArea(cid, heal)
local n = 0
doHealArea(cid, min, max)
while n < #pos do
n = n+1
thing = {x=pos[n].x,y=pos[n].y,z=pos[n].z,stackpos=253}
local pid = getThingFromPosWithProtect(thing)
doSendMagicEffect(pos[n], 12)
if isCreature(pid) then
if isSummon(cid) and (isSummon(pid) or isPlayer(pid)) then
if canAttackOther(cid, pid) == "Cant" then
doHealArea(pid, min, max)
end
elseif ehMonstro(cid) and ehMonstro(pid) then
doHealArea(pid, min, max)
end
end
end
elseif spell == "Toxic" then
doMoveInArea2(cid, 114, reto5, POISONDAMAGE, min, max, spell)
elseif spell == "Absorb" then
local life = getCreatureHealth(target)
doAreaCombatHealth(cid, GRASSDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 14)
local newlife = life - getCreatureHealth(target)
doSendMagicEffect(getThingPosWithDebug(cid), 14)
if newlife >= 1 then
doCreatureAddHealth(cid, newlife)
doSendAnimatedText(getThingPosWithDebug(cid), "+"..newlife.."", 32)
end
elseif spell == "Poison Bomb" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 14)
doDanoWithProtectWithDelay(cid, target, POISONDAMAGE, min, max, 20, bombWee2)
elseif spell == "Poison Gas" then
local dmg = isSummon(cid) and getMasterLevel(cid)+getPokemonBoost(cid) or getPokemonLevel(cid)
local ret = {id = 0, cd = 13, eff = 34, check = 0, spell = spell, cond = "Miss"}
local ret2 = {id = 0, cd = 13, check = 0, damage = dmg, cond = "Poison"} --rever isso ainda!!
local function gas(cid)
doMoveInArea2(cid, 114, confusion, POISONDAMAGE, 0, 0, spell, ret)
doMoveInArea2(cid, 0, confusion, POISONDAMAGE, min, max, spell)
end
times = {0, 500, 1000, 1500, 2300, 2800, 3300, 3800, 4600, 5100, 5600, 6100, 6900, 7400, 7900, 8400, 9200, 10000}
for i = 1, #times do
addEvent(gas, times[i], cid)
end
elseif spell == "Petal Dance" then
doMoveInAreaMulti(cid, 21, 245, bullet, bulletDano, GRASSDAMAGE, min, max)
elseif spell == "Slash" then
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 159)
elseif spell == "X-Scissor" then
local a = getThingPosWithDebug(cid)
local X = {
{{x = a.x+1, y = a.y, z = a.z}, 16}, --norte
{{x = a.x+2, y = a.y+1, z = a.z}, 221}, --leste
{{x = a.x+1, y = a.y+2, z = a.z}, 223}, --sul
{{x = a.x, y = a.y+1, z = a.z}, 243}, --oeste
}
local pos = X[mydir+1]
for b = 1, 3 do
addEvent(doSendMagicEffect, b * 70, pos[1], pos[2])
end
doMoveInArea2(cid, 2, xScissor, BUGDAMAGE, min, max, spell)
elseif spell == "Psychic" then
doDanoWithProtect(cid, psyDmg, getThingPosWithDebug(cid), selfArea2, min, max, 133)
elseif spell == "Pay Day" then
local function doThunderHit(cid, target)
if not isCreature(target) or not isCreature(cid) then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 28)
end
local function doThunderFall(cid, frompos, target)
if not isCreature(target) or not isCreature(cid) then return true end
local pos = getThingPosWithDebug(target)
local ry = math.abs(frompos.y - pos.y)
doSendDistanceShoot(frompos, getThingPosWithDebug(target), 39)
addEvent(doThunderHit, ry * 11, cid, target)
end
local function doThunderUp(cid, target)
if not isCreature(target) or not isCreature(cid) then return true end
local pos = getThingPosWithDebug(target)
local mps = getThingPosWithDebug(cid)
local xrg = math.floor((pos.x - mps.x) / 2)
local topos = mps
topos.x = topos.x + xrg
local rd = 7
topos.y = topos.y - rd
doSendDistanceShoot(getThingPosWithDebug(cid), topos, 39)
addEvent(doThunderFall, rd * 49, cid, topos, target)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 350, cid, 3644587, -1)
for thnds = 1, 2 do
addEvent(doThunderUp, thnds * 155, cid, target)
end
elseif spell == "Psywave" then
doMoveInArea2(cid, 133, db1, psyDmg, min, max, spell)
elseif spell == "Triple Kick" or spell == "Triple Kick Lee" then
doDanoWithProtect(cid, FIGHTINGDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 110)
elseif spell == "Karate Chop" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
doDanoWithProtect(cid, FIGHTINGDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 113)
elseif spell == "Ground Chop" then
local p = getThingPosWithDebug(cid)
local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
function sendAtk(cid, area, area2, eff) --alterado v1.6
if isCreature(cid) then
if not isSightClear(p, area, false) then return true end
doAreaCombatHealth(cid, FIGHTINGDAMAGE, area, 0, 0, 0, eff)
doAreaCombatHealth(cid, FIGHTINGDAMAGE, area2, whirl3, -min, -max, 255) --alterado v1.6
end
end
for a = 0, 4 do
local t = {
[0] = {99, {x=p.x+1, y=p.y-(a+1), z=p.z}, {x=p.x, y=p.y-(a+1), z=p.z}}, --alterado v1.6
[1] = {99, {x=p.x+(a+2), y=p.y+1, z=p.z}, {x=p.x+(a+1), y=p.y, z=p.z}},
[2] = {99, {x=p.x+1, y=p.y+(a+2), z=p.z}, {x=p.x, y=p.y+(a+1), z=p.z}},
[3] = {99, {x=p.x-(a+1), y=p.y+1, z=p.z}, {x=p.x-(a+1), y=p.y, z=p.z}}
}
addEvent(sendAtk, 270*a, cid, t[d][2], t[d][3], t[d][1]) --alterado v1.6
end
elseif spell == "Mega Punch" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
doDanoWithProtect(cid, FIGHTINGDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 112)
elseif spell == "Tri Flames" then
doMoveInArea2(cid, 6, triflames, FIREDAMAGE, min, max, spell)
elseif spell == "War Dog" then
local ret = {}
ret.id = cid
ret.cd = 15
ret.eff = 28
ret.check = 0
ret.buff = spell
ret.first = true
doCondition2(ret)
elseif spell == "Hypnosis" then
local ret = {}
ret.id = target
ret.cd = math.random(6, 9)
ret.check = getPlayerStorageValue(target, conds["Sleep"])
ret.first = true --alterado v1.6
ret.cond = "Sleep"
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 24)
addEvent(doMoveDano2, 150, cid, target, PSYCHICDAMAGE, 0, 0, ret, spell)
elseif spell == "Dizzy Punch" then
local rounds = getPokemonLevel(cid) / 12
rounds = rounds + 2
local ret = {}
ret.id = target
ret.check = getPlayerStorageValue(target, conds["Confusion"])
ret.cd = rounds
ret.cond = "Confusion"
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 26)
doDanoWithProtect(cid, FIGHTINGDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 112)
addEvent(doMoveDano2, 50, cid, target, NORMALDAMAGE, 0, 0, ret, spell)
elseif spell == "Ice Punch" then
local ret = {}
ret.id = target
ret.cd = 9
ret.eff = 43
ret.check = getPlayerStorageValue(target, conds["Slow"])
ret.first = true
ret.cond = "Slow"
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 28)
doSendMagicEffect(getThingPosWithDebug(target), 112)
doDanoWithProtectWithDelay(cid, target, ICEDAMAGE, min, max, 43)
addEvent(doMoveDano2, 50, cid, target, ICEDAMAGE, 0, 0, ret, spell)
elseif spell == "Ice Beam" then
local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
local p = getThingPosWithDebug(cid)
local t = {
[0] = {186, {x=p.x+1, y=p.y-1, z=p.z}},
[1] = {57, {x=p.x+6, y=p.y+1, z=p.z}}, --alterado v1.6
[2] = {186, {x=p.x+1, y=p.y+6, z=p.z}},
[3] = {57, {x=p.x-1, y=p.y+1, z=p.z}}, --alterado v1.6
}
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 43
ret.check = 0
ret.first = true
ret.cond = "Slow"
doMoveInArea2(cid, 0, triplo6, ICEDAMAGE, min, max, spell, ret)
doSendMagicEffect(t[a][2], t[a][1])
elseif spell == "Psy Pulse" or spell == "Cyber Pulse" or spell == "Dark Pulse" then
damage = skill == "Dark Pulse" and DARKDAMAGE or psyDmg
local function doPulse(cid, eff)
if not isCreature(cid) then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 3)
doDanoWithProtectWithDelay(cid, target, damage, -min, -max, eff) --alterado v1.4
end
if spell == "Cyber Pulse" then
eff = 11
elseif spell == "Dark Pulse" then
eff = 47 --efeito n eh esse mas... ;p
else
eff = 133
end
addEvent(doPulse, 0, cid, eff)
addEvent(doPulse, 250, cid, eff)
elseif spell == "Psyusion" then
local rounds = math.random(4, 7)
rounds = rounds + math.floor(getPokemonLevel(cid) / 35)
local eff = {136, 133, 136, 133, 137}
local area = {psy1, psy2, psy3, psy4, psy5}
local ret = {}
ret.id = 0
ret.check = 0
ret.cd = rounds
ret.cond = "Confusion"
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 4*400, cid, 3644587, -1)
for i = 0, 4 do
addEvent(doMoveInArea2, i*400, cid, eff[i+1], area[i+1], psyDmg, min, max, spell, ret)
end
elseif spell == "Triple Punch" then
doDanoWithProtect(cid, FIGHTINGDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 110)
elseif spell == "Fist Machine" then
local mpos = getThingPosWithDebug(cid)
local b = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
local effect = 0
local xvar = 0
local yvar = 0
if b == SOUTH then
effect = 218
yvar = 2
elseif b == NORTH then
effect = 217
elseif b == WEST then
effect = 216
elseif b == EAST then
effect = 215
xvar = 2
end
mpos.x = mpos.x + xvar
mpos.y = mpos.y + yvar
doSendMagicEffect(mpos, effect)
doMoveInArea2(cid, 0, machine, FIGHTINGDAMAGE, min, max, spell)
elseif spell == "Destroyer Hand" then
doMoveInAreaMulti(cid, 26, 111, bullet, bulletDano, FIGHTINGDAMAGE, min, max)
elseif spell == "Rock Throw" then
if pokeHaveReflect(cid) then
effD = getCreatureName(target) == "Shiny Onix" and 0 or 11
eff = getCreatureName(target) == "Shiny Onix" and 176 or 44
else --alterado v1.6
effD = getCreatureName(cid) == "Shiny Onix" and 0 or 11
eff = getCreatureName(cid) == "Shiny Onix" and 176 or 44
end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), effD)
doDanoWithProtectWithDelay(cid, target, ROCKDAMAGE, min, max, eff)
elseif spell == "Rock Slide" or spell == "Stone Edge" then
atk = {
["Rock Slide"] = {11, 44, 0, 176},
["Stone Edge"] = {11, 239}
}
if pokeHaveReflect(cid) then
effD = getCreatureName(target) == "Shiny Onix" and atk[spell][3] or atk[spell][1]
eff = getCreatureName(target) == "Shiny Onix" and atk[spell][4] or atk[spell][2]
else
effD = getCreatureName(cid) == "Shiny Onix" and atk[spell][3] or atk[spell][1]
eff = getCreatureName(cid) == "Shiny Onix" and atk[spell][4] or atk[spell][2]
end
local function doRockHit(cid, target)
if not isCreature(target) or not isCreature(cid) then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(target), 0, -min, -max, eff)
end
local function doRockFall(cid, frompos, target)
if not isCreature(target) or not isCreature(cid) then return true end
local pos = getThingPosWithDebug(target)
local ry = math.abs(frompos.y - pos.y)
doSendDistanceShoot(frompos, getThingPosWithDebug(target), effD)
addEvent(doRockHit, ry * 11, cid, target)
end
local function doRockUp(cid, target)
if not isCreature(target) or not isCreature(cid) then return true end
local pos = getThingPosWithDebug(target)
local mps = getThingPosWithDebug(cid)
local xrg = math.floor((pos.x - mps.x) / 2)
local topos = mps
topos.x = topos.x + xrg
local rd = 7
topos.y = topos.y - rd
doSendDistanceShoot(getThingPosWithDebug(cid), topos, effD)
addEvent(doRockFall, rd * 49, cid, topos, target)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 350, cid, 3644587, -1)
for thnds = 1, 2 do
addEvent(doRockUp, thnds * 155, cid, target)
end
elseif spell == "Falling Rocks" then
if pokeHaveReflect(cid) then
effD = getCreatureName(target) == "Shiny Onix" and 0 or 11
eff = getCreatureName(target) == "Shiny Onix" and 176 or 44
else --alterado v1.6
effD = getCreatureName(cid) == "Shiny Onix" and 0 or 11
eff = getCreatureName(cid) == "Shiny Onix" and 176 or 44
end
local master = isSummon(cid) and getCreatureMaster(cid) or cid
------------
local function doFall(cid)
for rocks = 1, 62 do
addEvent(fall, rocks*35, cid, master, ROCKDAMAGE, effD, eff)
end
end
for up = 1, 10 do
addEvent(upEffect, up*75, cid, effD)
end
addEvent(doFall, 450, cid)
addEvent(doDanoWithProtect, 1400, cid, ROCKDAMAGE, getThingPosWithDebug(cid), waterarea, -min, -max, 0)
elseif spell == "Selfdestruct" then
local function death(cid)
if isCreature(cid) then
if pokeHaveReflect(cid) then return true end --alterado v1.6
doCreatureAddHealth(cid, -getCreatureMaxHealth(cid))
end
end
doMoveInArea2(cid, 5, selfArea1, NORMALDAMAGE, min, max, spell) --alterado v1.6
addEvent(death, 300, cid)
elseif spell == "Crusher Stomp" then
local pL = getThingPosWithDebug(cid)
pL.x = pL.x+5
pL.y = pL.y+1
-----------------
local pO = getThingPosWithDebug(cid)
pO.x = pO.x-3
pO.y = pO.y+1
------------------
local pN = getThingPosWithDebug(cid)
pN.x = pN.x+1
pN.y = pN.y+5
-----------------
local pS = getThingPosWithDebug(cid)
pS.x = pS.x+1
pS.y = pS.y-3
local po = {pL, pO, pN, pS}
local po2 = {
{x = pL.x, y = pL.y-1, z = pL.z},
{x = pO.x, y = pO.y-1, z = pO.z},
{x = pN.x-1, y = pN.y, z = pN.z},
{x = pS.x-1, y = pS.y, z = pS.z},
}
local ret = {}
ret.id = 0
ret.cd = 9
ret.check = 0
ret.eff = 34
ret.spell = spell
ret.cond = "Stun"
for i = 1, 4 do
doSendMagicEffect(po[i], 127)
doAreaCombatHealth(cid, GROUNDDAMAGE, po2[i], crusher, -min, -max, 255)
end
doMoveInArea2(cid, 118, stomp, GROUNDDAMAGE, min, max, spell, ret)
elseif spell == "Water Pulse" then
doMoveInArea2(cid, 68, reto5, WATERDAMAGE, min, max, spell)
elseif spell == "Sonicboom" then
local function doBoom(cid)
if not isCreature(cid) then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 33)
doDanoWithProtectWithDelay(cid, target, NORMALDAMAGE, min, max, 3)
end
addEvent(doBoom, 0, cid)
addEvent(doBoom, 250, cid)
elseif spell == "Stickmerang" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 34)
doDanoWithProtectWithDelay(cid, target, FLYINGDAMAGE, min, max, 212)
elseif spell == "Stickslash" then
local function sendStickEff(cid, dir)
if not isCreature(cid) then return true end
doAreaCombatHealth(cid, FLYINGDAMAGE, getPosByDir(getThingPosWithDebug(cid), dir), 0, -min, -max, 212)
end
local function doStick(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,
[9] = SOUTHWEST,
}
for a = 1, 9 do
addEvent(sendStickEff, a * 140, cid, t[a])
end
end
doStick(cid, false, cid)
elseif spell == "Stick Throw" then
stopNow(cid, 2000)
doMoveInArea2(cid, 212, reto4, FLYINGDAMAGE, min, max, spell)
elseif spell == "Pluck" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
doDanoWithProtectWithDelay(cid, target, FLYINGDAMAGE, min, max, 111)
elseif spell == "Tri-Attack" then
local function doTriAtk(cid, target)
if not isCreature(cid) or not isCreature(target) then return true end --alterado v1.3
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end --alterado!!
doTargetCombatHealth(cid, target, NORMALDAMAGE, -min, -max, 238)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 600, cid, 3644587, -1)
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 42) --alterado v1.6
for i = 0, 2 do
addEvent(doTriAtk, i*300, cid, target) --alterado v1.3
end
elseif spell == "Fury Attack" then
local function doFuryAtk(cid, target)
if not isCreature(cid) or not isCreature(target) then return true end --alterado v1.3
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end --alterado!!
doTargetCombatHealth(cid, target, NORMALDAMAGE, -min, -max, 110)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 600, cid, 3644587, -1)
for i = 0, 2 do
addEvent(doFuryAtk, i*300, cid, target)
end
elseif spell == "Ice Shards" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 28)
doDanoWithProtectWithDelay(cid, target, ICEDAMAGE, min, max, 43)
elseif spell == "Icy Wind" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 43
ret.check = 0
ret.first = true
ret.cond = "Slow"
doMoveInArea2(cid, 17, tw1, ICEDAMAGE, min, max, spell, ret)
elseif spell == "Aurora Beam" then
local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
local p = getThingPosWithDebug(cid)
local t = {
[0] = {97, {x=p.x+1, y=p.y-1, z=p.z}},
[1] = {96, {x=p.x+6, y=p.y+1, z=p.z}},
[2] = {97, {x=p.x+1, y=p.y+6, z=p.z}},
[3] = {96, {x=p.x-1, y=p.y+1, z=p.z}},
}
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 43
ret.check = 0
ret.first = true
ret.cond = "Slow"
doMoveInArea2(cid, 0, triplo6, ICEDAMAGE, min, max, spell, ret)
doSendMagicEffect(t[a][2], t[a][1])
elseif spell == "Rest" then
local ret = {}
ret.id = cid
ret.cd = 6
ret.eff = 0
ret.check = 0
ret.buff = spell
ret.first = true
doCondition2(ret)
elseif spell == "Sludge" then
local function doSludgeHit(cid, target)
if not isCreature(target) or not isCreature(cid) then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doAreaCombatHealth(cid, POISONDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 116)
end
local function doSludgeFall(cid, frompos, target)
if not isCreature(target) or not isCreature(cid) then return true end
local pos = getThingPosWithDebug(target)
local ry = math.abs(frompos.y - pos.y)
doSendDistanceShoot(frompos, getThingPosWithDebug(target), 6)
addEvent(doSludgeHit, ry * 11, cid, target)
end
local function doSludgeUp(cid, target)
if not isCreature(target) or not isCreature(cid) then return true end
local pos = getThingPosWithDebug(target)
local mps = getThingPosWithDebug(cid)
local xrg = math.floor((pos.x - mps.x) / 2)
local topos = mps
topos.x = topos.x + xrg
local rd = 7
topos.y = topos.y - rd
doSendDistanceShoot(getThingPosWithDebug(cid), topos, 6)
addEvent(doSludgeFall, rd * 49, cid, topos, target)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 350, cid, 3644587, -1)
for thnds = 1, 2 do
addEvent(doSludgeUp, thnds * 155, cid, target)
end --alterado v1.5
elseif spell == "Mud Bomb" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 34
ret.check = 0
ret.spell = spell
ret.cond = "Miss"
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 6)
doDanoWithProtectWithDelay(cid, target, GROUNDDAMAGE, min, max, 116, bombWee2)
addEvent(doMoveInArea2, 250, cid, 0, bombWee1, GROUNDDAMAGE, 0, 0, spell, ret) --alterado v1.6
addEvent(doMoveDano2, 250, cid, target, GROUNDDAMAGE, 0, 0, ret, spell)
elseif spell == "Mortal Gas" then
local pos = getThingPosWithDebug(cid)
local function doSendAcid(cid, pos)
if not isCreature(cid) then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), pos, 14)
doSendMagicEffect(pos, 114)
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(doSendAcid, a * 75, cid, lugar)
end
end
doDanoWithProtect(cid, POISONDAMAGE, pos, waterarea, -min, -max, 0)
elseif spell == "Rock Drill" or spell == "Megahorn" or spell == "Rock Blast" then
local damage = spell == "Megahorn" and BUGDAMAGE or ROCKDAMAGE
local eff = spell == "Megahorn" and 8 or 44
local effD = spell == "Rock Blast" and 11 or 25
--cid, effDist, effDano, areaEff, areaDano, element, min, max
doMoveInAreaMulti(cid, effD, eff, bullet, bulletDano, damage, min, max)
elseif spell == "Egg Bomb" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 12)
doDanoWithProtectWithDelay(cid, target, NORMALDAMAGE, min, max, 5, crusher)
elseif spell == "Super Vines" then
stopNow(cid, 200) --alterado v1.6
doCreatureSetLookDir(cid, 2)
local effect = 0
local pos = getThingPosWithDebug(cid)
pos.x = pos.x + 1
pos.y = pos.y + 1
if pokeHaveReflect(cid) then
effect = getCreatureName(target) == "Tangela" and 213 or 229
else --alterado v1.6
effect = getCreatureName(cid) == "Tangela" and 213 or 229
end
doSendMagicEffect(pos, effect)
doDanoWithProtect(cid, GRASSDAMAGE, getThingPosWithDebug(cid), splash, -min, -max, 0)
elseif spell == "Epicenter" then
doMoveInArea2(cid, 127, epicenter, GROUNDDAMAGE, min, max, spell)
elseif spell == "Bubblebeam" then
local function sendBubbles(cid)
if not isCreature(cid) or not isCreature(target) then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 2)
doDanoWithProtectWithDelay(cid, target, WATERDAMAGE, min, max, 25)
end
sendBubbles(cid)
addEvent(sendBubbles, 250, cid)
elseif spell == "Swift" then
local function sendSwift(cid, target)
if not isCreature(cid) or not isCreature(target) then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 32)
doDanoWithProtectWithDelay(cid, target, NORMALDAMAGE, min, max, 3)
end
addEvent(sendSwift, 100, cid, target)
addEvent(sendSwift, 200, cid, target)
elseif spell == "Spark" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 32)
doDanoWithProtectWithDelay(cid, target, ELECTRICDAMAGE, min, max, 48)
elseif spell == "Mimic Wall" then
local p = getThingPosWithDebug(cid)
local dirr = getCreatureLookDir(cid)
if dirr == 0 or dirr == 2 then
item = 11439
else
item = 11440
end
local wall = {
[0] = {{x = p.x, y = p.y-1, z = p.z}, {x = p.x+1, y = p.y-1, z = p.z}, {x = p.x-1, y = p.y-1, z = p.z}},
[2] = {{x = p.x, y = p.y+1, z = p.z}, {x = p.x+1, y = p.y+1, z = p.z}, {x = p.x-1, y = p.y+1, z = p.z}},
[1] = {{x = p.x+1, y = p.y, z = p.z}, {x = p.x+1, y = p.y+1, z = p.z}, {x = p.x+1, y = p.y-1, z = p.z}},
[3] = {{x = p.x-1, y = p.y, z = p.z}, {x = p.x-1, y = p.y+1, z = p.z}, {x = p.x-1, y = p.y-1, z = p.z}},
}
function removeAllActionIDs(pos, onlyOne)
if onlyOne then
local thing1 = {x=pos.x,y=pos.y,z=pos.z,stackpos=0}
local tile1 = getTileThingWithProtect(thing1).uid
doSetItemActionId(tile1, 0)
end
n = 0
for i = 1, #pos do
n = n + 1
thing = {x=pos[n].x,y=pos[n].y,z=pos[n].z,stackpos=0}
local tile = getTileThingWithProtect(thing).uid
doSetItemActionId(tile, 0)
end
end
for i = 1, 3 do
if wall[dirr] then
local t = wall[dirr]
if hasTile(t[i]) and canWalkOnPos2(t[i], true, true, true, true, false) then --alterado v1.6
doCreateItem(item, 1, t[i])
--
local Tile = getTileThingWithProtect({x=t[i].x,y=t[i].y,z=t[i].z,stackpos=0})
doSetItemActionId(Tile.uid, 88072)
addEvent(removeAllActionIDs, 15000, t[i], true)
--
addEvent(doRemoveItemFromPos, 15000, t[i], item, 1)
end
end
end
local pos = getPosfromArea(cid, wall_1)
local pos2 = getPosfromArea(cid, wall_2)
if hasTile({x=p.x,y=p.y,z=p.z,stackpos=0}) then
tile0 = getTileThingWithProtect({x=p.x,y=p.y,z=p.z,stackpos=0}).uid
end
doSetItemActionId(tile0, 88070)
addEvent(removeAllActionIDs, 15000, p, true)
n = 0
while n < #pos do
if not isCreature(cid) then return true end
n = n+1
local tile1 = getTileThingWithProtect({x=pos[n].x,y=pos[n].y,z=pos[n].z,stackpos=0}).uid
---
local tile2 = getTileThingWithProtect({x=pos2[n].x,y=pos2[n].y,z=pos2[n].z,stackpos=0}).uid
doSetItemActionId(tile1, 88071)
doSetItemActionId(tile2, 88070)
end
addEvent(removeAllActionIDs, 15000, pos)
addEvent(removeAllActionIDs, 15000, pos2)
elseif spell == "Shredder Team" or spell == "Double Team" then --alterado v1.8 \/
local team = {
["Scyther"] = "ScytherTeam",
["Shiny Scyther"] = "Shiny ScytherTeam",
["Scizor"] = "ScizorTeam",
["Xatu"] = "XatuTeam",
["Yanma"] = "YanmaTeam",
}
local function RemoveTeam(cid)
if isCreature(cid) then
doSendMagicEffect(getThingPosWithDebug(cid), 211)
doRemoveCreature(cid)
end
end
local function sendEff(cid, master, t)
if isCreature(cid) and isCreature(master) and t > 0 and #getCreatureSummons(master) >= 2 then
doSendMagicEffect(getThingPosWithDebug(cid), 2, master)
addEvent(sendEff, 1000, cid, master, t-1) --alterado v1.9
end
end
if getPlayerStorageValue(cid, 637500) >= 1 then
return true
end
local master = getCreatureMaster(cid)
local item = getPlayerSlotItem(master, 8)
local life, maxLife = getCreatureHealth(cid), getCreatureMaxHealth(cid)
local name = getItemAttribute(item.uid, "poke")
local pos = getThingPosWithDebug(cid)
local time = 21
doItemSetAttribute(item.uid, "hp", (life/maxLife))
local num = getCreatureName(cid) == "Scizor" and 4 or 3
local pk = {}
doTeleportThing(cid, {x=4, y=3, z=10}, false)
if team[name] then
pk[1] = cid
for b = 2, num do
pk[b] = doSummonCreature(team[name], pos)
doConvinceCreature(master, pk[b])
end
for a = 1, num do
addEvent(doTeleportThing, math.random(0, 5), pk[a], getClosestFreeTile(pk[a], pos), false)
addEvent(doAdjustWithDelay, 5, master, pk[a], true, true, true)
doSendMagicEffect(getThingPosWithDebug(pk[a]), 211)
end
sendEff(cid, master, time) --alterado v1.9
setPlayerStorageValue(master, 637501, 1)
addEvent(setPlayerStorageValue, time * 1000, master, 637501, -2)
-----
setPlayerStorageValue(pk[2], 637500, 1)
addEvent(RemoveTeam, time * 1000, pk[2])
-----
setPlayerStorageValue(pk[3], 637500, 1)
addEvent(RemoveTeam, time * 1000, pk[3])
----
if getCreatureName(cid) == "Scizor" then
setPlayerStorageValue(pk[4], 637500, 1)
addEvent(RemoveTeam, time * 1000, pk[4])
end
end
elseif spell == "Team Slice" or spell == "Team Claw" then
local master = getCreatureMaster(cid)
if #getCreatureSummons(master) < 2 or not isCreature(target) then return true end
local summons = getCreatureSummons(master)
local posis = {[1] = pos1, [2] = pos2, [3] = pos3, [4] = pos4}
if getCreatureName(cid) == "Scyther" then
eff = 27
elseif getCreatureName(cid) == "Shiny Scyther" then
eff = 29
else
eff = 42 --alterado v1.5
end
if #getCreatureSummons(master) >= 2 and isCreature(target) then
if isCreature(cid) then
addEvent(doDanoWithProtect, 500, cid, BUGDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 0) --alterado v1.6
for i = 1, #summons do
posis[i] = getThingPosWithDebug(summons[i])
doDisapear(summons[i])
stopNow(summons[i], 670)
addEvent(doSendMagicEffect, 300, posis[i], 211)
addEvent(doSendDistanceShoot, 350, posis[i], getThingPosWithDebug(target), eff)
addEvent(doSendDistanceShoot, 450, getThingPosWithDebug(target), posis[i], eff)
addEvent(doSendDistanceShoot, 600, posis[i], getThingPosWithDebug(target), eff)
addEvent(doSendDistanceShoot, 650, getThingPosWithDebug(target), posis[i], eff)
addEvent(doAppear, 670, summons[i])
end
end
end
elseif spell == "Blizzard" then
local master = isSummon(cid) and getCreatureMaster(cid) or cid
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 43
ret.check = 0
ret.first = true
ret.cond = "Slow"
local function doFall(cid)
for rocks = 1, 42 do
addEvent(fall, rocks*35, cid, master, ICEDAMAGE, 28, 52)
end
end
for up = 1, 10 do
addEvent(upEffect, up*75, cid, 28)
end --alterado v1.4
addEvent(doFall, 450, cid)
addEvent(doMoveInArea2, 1400, cid, 0, BigArea2, ICEDAMAGE, min, max, spell, ret)
elseif spell == "Great Love" then
local master = getCreatureMaster(cid) or 0
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 147
ret.check = 0
ret.spell = spell
ret.cond = "Stun"
for rocks = 1, 62 do
addEvent(fall, rocks*35, cid, master, NORMALDAMAGE, -1, 147)
end
addEvent(doMoveInArea2, 500, cid, 0, BigArea2, NORMALDAMAGE, min, max, spell, ret)
elseif spell == "Fire Punch" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
doSendMagicEffect(getThingPosWithDebug(target), 112)
doDanoWithProtectWithDelay(cid, target, FIREDAMAGE, min, max, 35)
elseif spell == "Guillotine" then
doDanoWithProtect(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 146)
elseif spell == "Hyper Beam" then
local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
if a == 0 then
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg1n, -min, -max, 152)
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg2n, -min, -max, 158)
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg3n, -min, -max, 156)
elseif a == 2 then
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg1s, -min, -max, 151)
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg2s, -min, -max, 158)
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg3s, -min, -max, 155)
elseif a == 1 then
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg1e, -min, -max, 149)
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg2e, -min, -max, 157)
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg3e, -min, -max, 153)
elseif a == 3 then
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg1w, -min, -max, 150)
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg2w, -min, -max, 157)
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), wg3w, -min, -max, 154)
end
elseif spell == "Thrash" then
--cid, effDist, effDano, areaEff, areaDano, element, min, max
doMoveInAreaMulti(cid, 10, 111, bullet, bulletDano, NORMALDAMAGE, min, max)
elseif spell == "Splash" or tonumber(spell) == 7 then
doAreaCombatHealth(cid, WATERDAMAGE, getThingPosWithDebug(cid), splash, -min, -max, 255)
doSendMagicEffect(getThingPosWithDebug(cid), 53)
elseif spell == "Dragon Breath" then
doMoveInArea2(cid, 143, db1, DRAGONDAMAGE, min, max, spell)
elseif spell == "Muddy Water" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 34
ret.check = 0
ret.spell = spell
ret.cond = "Miss"
doMoveInArea2(cid, 116, muddy, WATERDAMAGE, min, max, spell, ret)
elseif spell == "Venom Motion" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 34
ret.check = 0
ret.spell = spell
ret.cond = "Miss"
doMoveInArea2(cid, 114, muddy, POISONDAMAGE, min, max, spell, ret)
elseif spell == "Thunder Fang" then
doSendMagicEffect(getThingPosWithDebug(target), 146)
doDanoWithProtectWithDelay(cid, target, ELECTRICDAMAGE, min, max, 48)
elseif spell == "Zap Cannon" then
local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
if a == 0 then
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1n, 0, 0, 177)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2n, 0, 0, 177)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3n, 0, 0, 177)
--------
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1n, -min, -max, 94)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2n, -min, -max, 93)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3n, -min, -max, 95)
elseif a == 2 then
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1s, 0, 0, 177)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2s, 0, 0, 177)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3s, 0, 0, 177)
--------
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1s, -min, -max, 91)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2s, -min, -max, 93)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3s, -min, -max, 92)
elseif a == 1 then
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1e, 0, 0, 177)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2e, 0, 0, 177)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3e, 0, 0, 177)
---------
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1e, -min, -max, 86)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2e, -min, -max, 88)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3e, -min, -max, 87)
elseif a == 3 then
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1w, 0, 0, 177)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2w, 0, 0, 177)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3w, 0, 0, 177)
--------
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1w, -min, -max, 89)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2w, -min, -max, 88)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3w, -min, -max, 90)
end
elseif spell == "Charge Beam" then
local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
if a == 0 then
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1n, -min, -max, 94)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2n, -min, -max, 93)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3n, -min, -max, 95)
elseif a == 2 then
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1s, -min, -max, 91)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2s, -min, -max, 93)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3s, -min, -max, 92)
elseif a == 1 then
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1e, -min, -max, 86)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2e, -min, -max, 88)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3e, -min, -max, 87)
elseif a == 3 then
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg1w, -min, -max, 89)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2w, -min, -max, 88)
doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3w, -min, -max, 90)
end
elseif spell == "Sacred Fire" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 3)
doDanoWithProtectWithDelay(cid, target, SACREDDAMAGE, min, max, 143, sacred) --alterado v1.6
elseif spell == "Blaze Kick" then
doMoveInArea2(cid, 6, blaze, FIREDAMAGE, min, max, spell)
addEvent(doMoveInArea2, 200, cid, 6, kick, FIREDAMAGE, min, max, spell)
elseif spell == "Cross Chop" then
doMoveInArea2(cid, 118, blaze, FIGHTINGDAMAGE, min, max, spell)
addEvent(doMoveInArea2, 200, cid, 118, kick, FIGHTINGDAMAGE, min, max, spell)
elseif spell == "Overheat" then
doMoveInArea2(cid, 5, reto5, FIREDAMAGE, min, max, spell)
elseif spell == "Ancient Power" then
local p = getThingPosWithDebug(cid)
local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
function sendAtk(cid, area, eff)
if isCreature(cid) then
if not isSightClear(p, area, false) then return true end
doAreaCombatHealth(cid, ROCKDAMAGE, area, 0, 0, 0, eff)
doAreaCombatHealth(cid, ROCKDAMAGE, area, whirl3, -min, -max, 137)
end
end
for a = 0, 4 do
local t = {
[0] = {18, {x=p.x, y=p.y-(a+1), z=p.z}}, --alterado v1.4
[1] = {18, {x=p.x+(a+1), y=p.y, z=p.z}},
[2] = {18, {x=p.x, y=p.y+(a+1), z=p.z}},
[3] = {18, {x=p.x-(a+1), y=p.y, z=p.z}}
}
addEvent(sendAtk, 300*a, cid, t[d][2], t[d][1])
end
elseif spell == "Twister" then
doMoveInAreaMulti(cid, 28, 41, bullet, bulletDano, DRAGONDAMAGE, min, max)
elseif spell == "Multi-Kick" then
doMoveInAreaMulti(cid, 39, 113, multi, multiDano, FIGHTINGDAMAGE, min, max)
elseif spell == "Multi-Punch" then
doMoveInAreaMulti(cid, 39, 112, multi, multiDano, FIGHTINGDAMAGE, min, max)
elseif spell == "Squisky Licking" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.check = 0
ret.eff = 0
ret.spell = spell
ret.cond = "Stun"
local areas = {SL1, SL2, SL3, SL4}
for i = 0, 3 do
addEvent(doMoveInArea2, i*200, cid, 145, areas[i+1], NORMALDAMAGE, min, max, spell, ret)
end
elseif spell == "Lick" then
local ret = {}
ret.id = target
ret.cd = 9
ret.check = getPlayerStorageValue(target, conds["Stun"])
ret.eff = 0
ret.spell = spell
ret.cond = "Stun"
doSendMagicEffect(getThingPosWithDebug(target), 145) --alterado v1.4!
addEvent(doMoveDano2, 100, cid, target, NORMALDAMAGE, 0, 0, ret, spell)
elseif spell == "Bonemerang" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 7)
doDanoWithProtectWithDelay(cid, target, GROUNDDAMAGE, min, max, 227)
addEvent(doSendDistanceShoot, 200, getThingPosWithDebug(target), getThingPosWithDebug(cid), 7)
elseif spell == "Bone Club" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 7)
doDanoWithProtectWithDelay(cid, target, GROUNDDAMAGE, min, max, 118)
elseif spell == "Bone Slash" then
local function sendStickEff(cid, dir)
if not isCreature(cid) then return true end
doAreaCombatHealth(cid, GROUNDDAMAGE, getPosByDir(getThingPosWithDebug(cid), dir), 0, -min, -max, 227)
end
local function doStick(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,
[9] = SOUTHWEST,
}
for a = 1, 9 do
addEvent(sendStickEff, a * 140, cid, t[a])
end
end
doStick(cid, false, cid)
--alterado v1.4
elseif spell == "Furious Legs" or spell == "Ultimate Champion" or spell == "Fighter Spirit" then
local ret = {}
ret.id = cid
ret.cd = 15
ret.eff = 13
ret.check = 0
ret.buff = spell
ret.first = true
doCondition2(ret)
elseif spell == "Sludge Rain" then
local master = isSummon(cid) and getCreatureMaster(cid) or cid
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 34
ret.check = 0
ret.spell = spell
ret.cond = "Miss"
local function doFall(cid)
for rocks = 1, 42 do
addEvent(fall, rocks*35, cid, master, POISONDAMAGE, 6, 116)
end
end
for up = 1, 10 do
addEvent(upEffect, up*75, cid, 6)
end
addEvent(doFall, 450, cid)
addEvent(doMoveInArea2, 1400, cid, 0, BigArea2, POISONDAMAGE, min, max, spell, ret)
elseif spell == "Shadow Ball" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 18)
local function doDamageWithDelay(cid, target)
if not isCreature(cid) or not isCreature(target) then return true end
if isSleeping(cid) then return false end
if getPlayerStorageValue(cid, conds["Fear"]) >= 1 then return true end
doAreaCombatHealth(cid, ghostDmg, getThingPosWithDebug(target), 0, -min, -max, 255)
local pos = getThingPosWithDebug(target)
pos.x = pos.x + 1
doSendMagicEffect(pos, 140)
end
addEvent(doDamageWithDelay, 100, cid, target)
elseif spell == "Shadow Punch" then
local pos = getThingPosWithDebug(target)
doSendMagicEffect(pos, 112)
local function doPunch(cid, target)
if not isCreature(cid) or not isCreature(target) then return true end
doAreaCombatHealth(cid, ghostDmg, getThingPosWithDebug(target), 0, -min, -max, 255)
pos.x = pos.x + 1
doSendMagicEffect(pos, 140)
end
addEvent(doPunch, 200, cid, target)
elseif spell == "Shadow Storm" then
local master = isSummon(cid) and getCreatureMaster(cid) or cid
local function doFall(cid)
for rocks = 1, 42 do --62
addEvent(fall, rocks*35, cid, master, ghostDmg, 18, 140)
end
end
for up = 1, 10 do
addEvent(upEffect, up*75, cid, 18)
end
addEvent(doFall, 450, cid)
addEvent(doMoveInArea2, 1400, cid, 2, BigArea2, ghostDmg, min, max, spell)
elseif spell == "Invisible" then
doDisapear(cid)
doSendMagicEffect(getThingPosWithDebug(cid), 134)
if isMonster(cid) then
local pos = getThingPosWithDebug(cid) --alterei!
doTeleportThing(cid, {x=4, y=3, z=10}, false)
doTeleportThing(cid, pos, false)
end
addEvent(doAppear, 4000, cid)
elseif spell == "Nightmare" then
if not isSleeping(target) then
doSendMagicEffect(getThingPosWithDebug(target), 3)
doSendAnimatedText(getThingPosWithDebug(target), "FAIL", 155)
return true
end
doDanoWithProtectWithDelay(cid, target, ghostDmg, -min, -max, 138)
elseif spell == "Dream Eater" then
if not isSleeping(target) then
doSendMagicEffect(getThingPosWithDebug(target), 3)
doSendAnimatedText(getThingPosWithDebug(target), "FAIL", 155)
return true
end
--alterado v1.6
setPlayerStorageValue(cid, 95487, 1)
doSendMagicEffect(getThingPosWithDebug(cid), 132)
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
doDanoWithProtectWithDelay(cid, target, psyDmg, -min, -max, 138)
elseif spell == "Dark Eye" or spell == "Miracle Eye" then
doSendMagicEffect(getThingPosWithDebug(cid), 47)
setPlayerStorageValue(cid, 999457, 1)
elseif spell == "Elemental Hands" then
if getCreatureOutfit(cid).lookType == 1301 then
print("Error occurred with move 'Elemental Hands', outfit of hitmonchan is wrong")
doPlayerSendTextMessage(getCreatureMaster(cid), MESSAGE_STATUS_CONSOLE_BLUE, "A error are ocurred... A msg is sent to gamemasters!")
return true
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(getThingPosWithDebug(cid), hitmonchans[name][0].eff)
doSetCreatureOutfit(cid, {lookType = hitmonchans[name][0].out}, -1)
else
doItemSetAttribute(getPlayerSlotItem(e, 8).uid, "hands", hands+1)
doSendMagicEffect(getThingPosWithDebug(cid), hitmonchans[name][hands+1].eff)
doSetCreatureOutfit(cid, {lookType = hitmonchans[name][hands+1].out}, -1)
end
elseif spell == "Crabhammer" then
doDanoWithProtect(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 225)
elseif spell == "Ancient Fury" then
local ret = {}
ret.id = cid
ret.cd = 15
ret.eff = 0
ret.check = 0
ret.buff = spell
ret.first = true
doCondition2(ret)
elseif spell == "Divine Punishment" then
local roardirections = {
[NORTH] = {SOUTH},
[SOUTH] = {NORTH},
[WEST] = {EAST},
[EAST] = {WEST}}
local function divineBack(cid)
if not isCreature(cid) then return true end
local uid = checkAreaUid(getCreaturePosition(cid), check, 1, 1)
for _,pid in pairs(uid) do
dirrr = getCreatureDirectionToTarget(pid, cid)
delay = getNextStepDelay(pid, 0)
if isSummon(cid) and (isMonster(pid) or (isSummon(pid) and canAttackOther(cid, pid) == "Can") or (isPlayer(pid) and canAttackOther(cid, pid) == "Can")) and pid ~= cid then
setPlayerStorageValue(pid, 654878, 1)
doChangeSpeed(pid, -getCreatureSpeed(pid))
doChangeSpeed(pid, 100)
doPushCreature(pid, roardirections[dirrr][1], 1, 0)
doChangeSpeed(pid, -getCreatureSpeed(pid))
addEvent(setPlayerStorageValue, 6450, pid, 654878, -1)
addEvent(doRegainSpeed, 6450, pid)
elseif isMonster(cid) and (isSummon(pid) or (isPlayer(pid) and #getCreatureSummons(pid) <= 0)) and pid ~= cid then
setPlayerStorageValue(pid, 654878, 1)
doChangeSpeed(pid, -getCreatureSpeed(pid))
doChangeSpeed(pid, 100)
doPushCreature(pid, roardirections[dirrr][1], 1, 0)
doChangeSpeed(pid, -getCreatureSpeed(pid))
addEvent(doRegainSpeed, 6450, pid)
addEvent(setPlayerStorageValue, 6450, pid, 654878, -1)
end
end
end
local function doDivine(cid, min, max, spell, rounds, area)
if not isCreature(cid) then return true end
local ret = {}
ret.id = 0
ret.check = 0
ret.cd = rounds
ret.cond = "Confusion"
for i = 1, 9 do
addEvent(doMoveInArea2, i*500, cid, 137, area[i], psyDmg, min, max, spell, ret)
end
end
local rounds = math.random(9, 12)
local area = {punish1, punish2, punish3, punish1, punish2, punish3, punish1, punish2, punish3}
local posi = getThingPosWithDebug(cid)
posi.x = posi.x+1
posi.y = posi.y+1
setPlayerStorageValue(cid, 2365487, 1)
addEvent(setPlayerStorageValue, 6450, cid, 2365487, -1) --alterado v1.4
doDisapear(cid)
doChangeSpeed(cid, -getCreatureSpeed(cid))
doSendMagicEffect(posi, 247)
addEvent(doAppear, 6450, cid)
addEvent(doRegainSpeed, 6450, cid)
local uid = checkAreaUid(getCreaturePosition(cid), check, 1, 1)
for _,pid in pairs(uid) do
if isSummon(cid) and (isMonster(pid) or (isSummon(pid) and canAttackOther(cid, pid) == "Can") or (isPlayer(pid) and canAttackOther(cid, pid) == "Can")) and pid ~= cid then
doChangeSpeed(pid, -getCreatureSpeed(pid))
elseif isMonster(cid) and (isSummon(pid) or (isPlayer(pid) and #getCreatureSummons(pid) <= 0)) and pid ~= cid then
doChangeSpeed(pid, -getCreatureSpeed(pid))
end
end
addEvent(divineBack, 2100, cid)
addEvent(doDivine, 2200, cid, min, max, spell, rounds, area)
elseif isInArray({"Future Sight", "Camouflage", "Acid Armor", "Iron Defense", "Minimize"}, spell) then
local ret = {}
ret.id = cid
ret.cd = 10
ret.eff = 0
ret.check = 0
ret.buff = spell
ret.first = true
doCondition2(ret)
elseif spell == "Shadowave" then
doMoveInArea2(cid, 222, db1, DARKDAMAGE, min, max, spell)
elseif spell == "Confuse Ray" then
local rounds = math.random(4, 7)
rounds = rounds + math.floor(getPokemonLevel(cid) / 35)
local ret = {}
ret.id = target
ret.cd = rounds
ret.check = getPlayerStorageValue(target, conds["Confusion"])
ret.cond = "Confusion"
posi = getThingPosWithDebug(target)
posi.y = posi.y+1
---
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
addEvent(doSendMagicEffect, 100, posi, 222)
addEvent(doMoveDano2, 100, cid, target, GHOSTDAMAGE, -min, -max, ret, spell)
elseif spell == "Leaf Blade" then
local a = getThingPosWithDebug(target)
posi = {x = a.x+1, y = a.y+1, z = a.z}
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
addEvent(doSendMagicEffect, 200, posi, 240)
doDanoWithProtectWithDelay(cid, target, GRASSDAMAGE, -min, -max, 0, LeafBlade)
elseif spell == "Eruption" or spell == "Elecball" then
pos = getThingPosWithDebug(cid)
pos.x = pos.x+1
pos.y = pos.y+1
atk = {
["Eruption"] = {241, FIREDAMAGE},
["Elecball"] = {171, ELECTRICDAMAGE}
}
stopNow(cid, 1000)
doSendMagicEffect(pos, atk[spell][1])
doMoveInArea2(cid, 0, bombWee1, atk[spell][2], min, max, spell)
elseif spell == "Meteor Smash" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 20)
doDanoWithProtectWithDelay(cid, target, NORMALDAMAGE, -min, -max, 242)
elseif spell == "Draco Meteor" then
local effD = 5
local eff = 248
local master = isSummon(cid) and getCreatureMaster(cid) or cid
local function doFall(cid)
for rocks = 5, 42 do
addEvent(fall, rocks*35, cid, master, DRAGONDAMAGE, effD, eff)
end
end
for up = 1, 10 do
addEvent(upEffect, up*75, cid, effD)
end
addEvent(doFall, 450, cid)
addEvent(doDanoWithProtect, 1400, cid, DRAGONDAMAGE, getThingPosWithDebug(cid), waterarea, -min, -max, 0)
elseif spell == "Dragon Pulse" then
local p = getThingPosWithDebug(cid)
local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
function sendAtk(cid, area)
if isCreature(cid) then
if not isSightClear(p, area, false) then return true end
doAreaCombatHealth(cid, DRAGONDAMAGE, area, pulse2, -min, -max, 255)
end
end
for a = 0, 3 do
local t = {
[0] = {249, {x=p.x, y=p.y-(a+1), z=p.z}},
[1] = {249, {x=p.x+(a+1), y=p.y, z=p.z}},
[2] = {249, {x=p.x, y=p.y+(a+1), z=p.z}},
[3] = {249, {x=p.x-(a+1), y=p.y, z=p.z}}
}
addEvent(sendAtk, 300*a, cid, t[d][2])
addEvent(doDanoWithProtect, 400*a, cid, DRAGONDAMAGE, t[d][2], pulse2, 0, 0, 177)
addEvent(doDanoWithProtect, 400*a, cid, DRAGONDAMAGE, t[d][2], pulse1, 0, 0, t[d][1])
end
elseif spell == "Psy Ball" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 3)
doDanoWithProtectWithDelay(cid, target, psyDmg, min, max, 250)
elseif spell == "SmokeScreen" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 34
ret.check = 0
ret.spell = spell
ret.cond = "Miss"
local function smoke(cid)
if not isCreature(cid) then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doMoveInArea2(cid, 34, confusion, NORMALDAMAGE, 0, 0, spell, ret)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 1000, cid, 3644587, -1)
for i = 0, 2 do
addEvent(smoke, i*500, cid)
end
elseif spell == "Faint Attack" or spell == "Sucker Punch" then --alterado v1.5
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
doDanoWithProtectWithDelay(cid, target, DARKDAMAGE, min, max, 237)
elseif spell == "Assurance" then
local p = getThingPosWithDebug(cid)
local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
function sendAtk(cid, area1, area2, eff)
if isCreature(cid) then
if not isSightClear(p, area1, false) then return true end
if not isSightClear(p, area2, false) then return true end
doAreaCombatHealth(cid, DARKDAMAGE, area1, 0, 0, 0, eff)
doAreaCombatHealth(cid, DARKDAMAGE, area2, whirl3, -min, -max, 0)
end
end
for a = 0, 3 do
local t = {
[0] = {230, {x=p.x+1, y=p.y-(a+1), z=p.z}, {x=p.x, y=p.y-(a+1), z=p.z}},
[1] = {226, {x=p.x+(a+2), y=p.y+1, z=p.z}, {x=p.x+(a+1), y=p.y, z=p.z}},
[2] = {235, {x=p.x+1, y=p.y+(a+1), z=p.z}, {x=p.x, y=p.y+(a+1), z=p.z}},
[3] = {231, {x=p.x-(a+1), y=p.y+1, z=p.z}, {x=p.x-(a+1), y=p.y, z=p.z}}
}
addEvent(sendAtk, 300*a, cid, t[d][2], t[d][3], t[d][1])
end
elseif spell == "Scary Face" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.check = 0
ret.eff = 0
ret.spell = spell
ret.cond = "Stun"
local p = getThingPosWithDebug(cid)
doSendMagicEffect({x=p.x+1, y=p.y+1, z=p.z}, 228)
doMoveInArea2(cid, 0, confusion, NORMALDAMAGE, 0, 0, spell, ret)
elseif spell == "Surf" then
local pos = getThingPosWithDebug(cid)
doMoveInArea2(cid, 246, doSurf1, WATERDAMAGE, 0, 0, spell)
addEvent(doDanoWithProtect, math.random(100, 400), cid, WATERDAMAGE, pos, doSurf2, -min, -max, 0)
elseif spell == "Sunny Day" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.check = 0
ret.eff = 39
ret.cond = "Silence"
----
local p = getThingPosWithDebug(cid)
doSendMagicEffect({x=p.x+1, y=p.y, z=p.z}, 181)
---
if isSummon(cid) then
doCureBallStatus(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "all")
end
doCureStatus(cid, "all")
setPlayerStorageValue(cid, 253, 1) --focus
doMoveInArea2(cid, 0, confusion, NORMALDAMAGE, 0, 0, spell, ret)
elseif isInArray({"Pursuit", "ExtremeSpeed", "U-Turn", "Shell Attack"}, spell) then
local atk = {
["Pursuit"] = {17, DARKDAMAGE},
["ExtremeSpeed"] = {50, NORMALDAMAGE, 51},
["U-Turn"] = {19, BUGDAMAGE},
["Shell Attack"] = {45, BUGDAMAGE} --alterado v1.5
}
local pos = getThingPosWithDebug(cid)
local p = getThingPosWithDebug(target)
local newPos = getClosestFreeTile(target, p)
if pokeHaveReflect(cid) then
eff = getCreatureName(target) == "Shiny Arcanine" and atk[spell][3] or atk[spell][1] --alterado v1.6
else
eff = getCreatureName(cid) == "Shiny Arcanine" and atk[spell][3] or atk[spell][1]
end
local damage = atk[spell][2]
-----------
doDisapear(cid)
doChangeSpeed(cid, -getCreatureSpeed(cid))
-----------
addEvent(doSendMagicEffect, 300, pos, 211)
addEvent(doSendDistanceShoot, 400, pos, p, eff)
addEvent(doSendDistanceShoot, 400, newPos, p, eff)
addEvent(doDanoWithProtect, 400, cid, damage, p, 0, -min, -max, 0)
addEvent(doSendDistanceShoot, 800, p, pos, eff)
addEvent(doSendMagicEffect, 850, pos, 211)
addEvent(doRegainSpeed, 1000, cid)
addEvent(doAppear, 1000, cid)
elseif spell == "Egg Rain" then
local effD = 12
local eff = 5
local master = isSummon(cid) and getCreatureMaster(cid) or cid
------------
local function doFall(cid)
for rocks = 1, 62 do
addEvent(fall, rocks*35, cid, master, ROCKDAMAGE, effD, eff)
end
end
for up = 1, 10 do
addEvent(upEffect, up*75, cid, effD)
end
addEvent(doFall, 450, cid)
addEvent(doDanoWithProtect, 1400, cid, NORMALDAMAGE, getThingPosWithDebug(cid), waterarea, -min, -max, 0)
elseif spell == "Air Cutter" then
local p = getThingPosWithDebug(cid)
local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
function sendAtk(cid, area)
if isCreature(cid) then
if not isSightClear(p, area, false) then return true end
doAreaCombatHealth(cid, FLYINGDAMAGE, area, whirl3, -min, -max, 255)
end
end
for a = 0, 5 do
local t = {
[0] = {128, {x=p.x, y=p.y-(a+1), z=p.z}, {x=p.x+1, y=p.y-(a+1), z=p.z}},
[1] = {129, {x=p.x+(a+1), y=p.y, z=p.z}, {x=p.x+(a+2), y=p.y+1, z=p.z}},
[2] = {131, {x=p.x, y=p.y+(a+1), z=p.z}, {x=p.x+1, y=p.y+(a+2), z=p.z}},
[3] = {130, {x=p.x-(a+1), y=p.y, z=p.z}, {x=p.x-(a+1), y=p.y+1, z=p.z}}
}
addEvent(doSendMagicEffect, 300*a, t[d][3], t[d][1])
addEvent(sendAtk, 300*a, cid, t[d][2])
end
elseif spell == "Venom Gale" then
local area = {gale1, gale2, gale3, gale4, gale3, gale2, gale1}
for i = 0, 6 do
addEvent(doMoveInArea2, i*400, cid, 138, area[i+1], POISONDAMAGE, min, max, spell)
end
elseif spell == "Crunch" then
doMoveInArea2(cid, 146, Crunch1, DARKDAMAGE, min, max, spell)
addEvent(doMoveInArea2, 300, cid, 146, Crunch2, DARKDAMAGE, min, max, spell)
elseif spell == "Ice Fang" then
doTargetCombatHealth(cid, target, ICEDAMAGE, 0, 0, 146)
addEvent(doDanoWithProtect, 250, cid, ICEDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 17)
elseif spell == "Psyshock" then
local p = getThingPosWithDebug(cid)
local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
function sendAtk(cid, area, eff)
if isCreature(cid) then
if not isSightClear(p, area, false) then return true end
doAreaCombatHealth(cid, psyDmg, area, 0, 0, 0, eff) --alterado v1.4
doAreaCombatHealth(cid, psyDmg, area, whirl3, -min, -max, 255) --alterado v1.4
end
end
for a = 0, 4 do
local t = {
[0] = {250, {x=p.x, y=p.y-(a+1), z=p.z}}, --alterado v1.4
[1] = {250, {x=p.x+(a+1), y=p.y, z=p.z}},
[2] = {250, {x=p.x, y=p.y+(a+1), z=p.z}},
[3] = {250, {x=p.x-(a+1), y=p.y, z=p.z}}
}
addEvent(sendAtk, 370*a, cid, t[d][2], t[d][1])
end
elseif spell == "Hurricane" then
local function hurricane(cid)
if not isCreature(cid) then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doMoveInArea2(cid, 42, bombWee1, FLYINGDAMAGE, min, max, spell)
end
doSetCreatureOutfit(cid, {lookType = 1398}, 10000)
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 17*600, cid, 3644587, -1)
for i = 1, 17 do
addEvent(hurricane, i*600, cid) --alterado v1.4
end
elseif spell == "Aromateraphy" or spell == "Emergency Call" then
eff = spell == "Aromateraphy" and 14 or 13
doAreaCombatHealth(cid, GRASSDAMAGE, getThingPosWithDebug(cid), bombWee3, 0, 0, eff)
if isSummon(cid) then
doCureBallStatus(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "all")
end
doCureStatus(cid, "all")
local uid = checkAreaUid(getThingPosWithDebug(cid), confusion, 1, 1)
for _,pid in pairs(uid) do
if isCreature(pid) then
if ehMonstro(cid) and ehMonstro(pid) and pid ~= cid then
doCureStatus(pid, "all")
elseif isSummon(cid) and ((isSummon(pid) and canAttackOther(cid, pid) == "Cant") or (isPlayer(pid) and canAttackOther(cid, pid) == "Cant")) and pid ~= cid then
if isSummon(pid) then
doCureBallStatus(getPlayerSlotItem(getCreatureMaster(pid), 8).uid, "all")
end
doCureStatus(pid, "all")
end
end
end
elseif spell == "Synthesis" or spell == "Roost" then
local min = (getCreatureMaxHealth(cid) * 45) / 100
local max = (getCreatureMaxHealth(cid) * 60) / 100
local function doHealArea(cid, min, max)
local amount = math.random(min, max)
if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then
amount = -(getCreatureHealth(cid)-getCreatureMaxHealth(cid))
end
if getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then
doCreatureAddHealth(cid, amount)
doSendAnimatedText(getThingPosWithDebug(cid), "+"..amount.."", 65)
end
end
doSendMagicEffect(getThingPosWithDebug(cid), 39)
doHealArea(cid, min, max)
elseif spell == "Cotton Spore" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 0
ret.check = 0
ret.spell = spell
ret.cond = "Stun"
doMoveInArea2(cid, 85, confusion, GRASSDAMAGE, 0, 0, spell, ret)
elseif spell == "Peck" then
sendDistanceShootWithProtect(cid, getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
doDanoWithProtectWithDelay(cid, target, FLYINGDAMAGE, min, max, 3)
elseif spell == "Rolling Kick" or spell == "Night Daze" then
local pos = getThingPosWithDebug(cid)
local eff = spell == "Night Daze" and 222 or 113
local dmg = spell == "Night Daze" and DARKDAMAGE or FIGHTINGDAMAGE
local out = getCreatureName(cid) == "Hitmontop" and 1193 or 1451
local function doSendBubble(cid, pos)
if not isCreature(cid) then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), pos, 39)
doSendMagicEffect(pos, eff)
end
--alterado!!
for a = 1, 20 do
local r1 = math.random(-4, 4)
local r2 = r1 == 0 and choose(-3, -2, -1, 2, 3) or math.random(-3, 3)
--
local lugar = {x = pos.x + r1, y = pos.y + r2, z = pos.z}
addEvent(doSendBubble, a * 25, cid, lugar)
end
if isInArray({"Hitmontop", "Shiny Hitmontop", "Capoeira Hitmontop"}, getCreatureName(cid)) then
doSetCreatureOutfit(cid, {lookType = out}, 400)
end
addEvent(doDanoWithProtect, 150, cid, dmg, pos, waterarea, -min, -max, 0)
elseif spell == "Safeguard" then
doSendMagicEffect(getThingPosWithDebug(cid), 133)
if isSummon(cid) then
doCureBallStatus(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "all")
end
doCureStatus(cid, "all")
elseif spell == "Air Slash" then
local p = getThingPosWithDebug(cid)
local t = {
{{128, {x = p.x+1, y = p.y-1, z = p.z}}, {16, {x = p.x+1, y = p.y-1, z = p.z}}},
{{129, {x = p.x+2, y = p.y+1, z = p.z}}, {221, {x = p.x+3, y = p.y+1, z = p.z}}},
{{131, {x = p.x+1, y = p.y+2, z = p.z}}, {223, {x = p.x+1, y = p.y+3, z = p.z}}},
{{130, {x = p.x-1, y = p.y+1, z = p.z}}, {243, {x = p.x-1, y = p.y+1, z = p.z}}},
}
for i = 1, 4 do
doSendMagicEffect(t[i][2][2], t[i][2][1])
end
doDanoWithProtect(cid, FLYINGDAMAGE, getThingPosWithDebug(cid), airSlash, -min, -max, 0)
for i = 1, 4 do
addEvent(doSendMagicEffect, 400, t[i][1][2], t[i][1][1])
end
addEvent(doDanoWithProtect, 400, cid, FLYINGDAMAGE, getThingPosWithDebug(cid), bombWee2, -min, -max, 0)
elseif spell == "Feather Dance" then
local function doPulse(cid, eff)
if not isCreature(cid) then return true end
if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end
if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 9)
doDanoWithProtectWithDelay(cid, target, FLYINGDAMAGE, -min, -max, eff)
end
setPlayerStorageValue(cid, 3644587, 1)
addEvent(setPlayerStorageValue, 350, cid, 3644587, -1)
addEvent(doPulse, 0, cid, 137)
addEvent(doPulse, 100, cid, 137)
elseif spell == "Tailwind" then
local ret = {}
ret.id = cid
ret.cd = 10
ret.eff = 137
ret.check = 0
ret.buff = spell
ret.first = true
doCondition2(ret)
elseif spell == "Tackle" then
doDanoWithProtect(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 111)
elseif spell == "Giga Drain" then
local life = getCreatureHealth(target)
doDanoWithProtect(cid, GRASSDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 14)
local newlife = life - getCreatureHealth(target)
doSendMagicEffect(getThingPosWithDebug(cid), 14)
if newlife >= 1 then
doCreatureAddHealth(cid, newlife)
doSendAnimatedText(getThingPosWithDebug(cid), "+"..newlife.."", 32)
end
elseif spell == "Bug Fighter" then
local ret = {}
ret.id = cid
ret.cd = 10
ret.eff = 0
ret.check = 0
ret.buff = spell
ret.first = true
doCondition2(ret)
elseif spell == "Metal Claw" then
doDanoWithProtect(cid, STEELDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 160)
elseif spell == "Power Gem" then
local p = getThingPosWithDebug(cid)
local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
function sendAtk(cid, area)
if isCreature(cid) then
if not isSightClear(p, area, false) then return true end
doAreaCombatHealth(cid, ROCKDAMAGE, area, pulse2, -min, -max, 255)
end
end
for a = 0, 3 do
local t = {
[0] = {29, {x=p.x, y=p.y-(a+1), z=p.z}},
[1] = {29, {x=p.x+(a+1), y=p.y, z=p.z}},
[2] = {29, {x=p.x, y=p.y+(a+1), z=p.z}},
[3] = {29, {x=p.x-(a+1), y=p.y, z=p.z}}
}
addEvent(sendAtk, 400*a, cid, t[d][2])
addEvent(doAreaCombatHealth, 400*a, cid, ROCKDAMAGE, t[d][2], pulse1, 0, 0, t[d][1])
addEvent(doAreaCombatHealth, 400*a, cid, ROCKDAMAGE, t[d][2], pulse1, 0, 0, 103)
end
elseif spell == "Octazooka" then
local ret = {}
ret.id = 0
ret.cd = 9
ret.check = 0
ret.eff = 34
ret.cond = "Silence"
doMoveInAreaMulti(cid, 6, 116, multi, multiDano, WATERDAMAGE, min, max)
doMoveInArea2(cid, 0, multiDano, WATERDAMAGE, 0, 0, spell, ret)
elseif spell == "Take Down" then
doMoveInArea2(cid, 111, reto5, NORMALDAMAGE, min, max, spell)
elseif spell == "Yawn" then
local ret = {}
ret.id = target
ret.cd = math.random(6, 9)
ret.check = getPlayerStorageValue(target, conds["Sleep"])
ret.first = true
ret.cond = "Sleep"
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 11)
addEvent(doMoveDano2, 1500, cid, target, NORMALDAMAGE, 0, 0, ret, spell)
elseif spell == "Tongue Hook" then
sendDistanceShootWithProtect(cid, getThingPosWithDebug(cid), getThingPosWithDebug(target), 38)
addEvent(doTeleportThing, 200, target, getClosestFreeTile(cid, getThingPosWithDebug(cid)), true)
addEvent(sendDistanceShootWithProtect, 200, cid, getThingPosWithDebug(target), getThingPosWithDebug(cid), 38)
elseif spell == "Tongue Grap" then
local function distEff(cid, target)
if not isCreature(cid) or not isCreature(target) or not isSilence(target) then return true end --alterado v1.6
sendDistanceShootWithProtect(cid, getThingPosWithDebug(target), getThingPosWithDebug(cid), 38)
end
local ret = {}
ret.id = target
ret.cd = 10
ret.check = getPlayerStorageValue(target, conds["Silence"])
ret.eff = 185
ret.cond = "Silence"
sendDistanceShootWithProtect(cid, getThingPosWithDebug(cid), getThingPosWithDebug(target), 38)
addEvent(doMoveDano2, 100, cid, target, NORMALDAMAGE, 0, 0, ret, spell)
for i = 1, 10 do
addEvent(distEff, i*930, cid, target)
end
elseif spell == "Struggle Bug" then
local function sendFireEff(cid, dir)
if not isCreature(cid) then return true end
doDanoWithProtect(cid, BUGDAMAGE, getPosByDir(getThingPosWithDebug(cid), dir), 0, -min, -max, 105)
end
local function doWheel(cid)
if not isCreature(cid) then return true end
local t = {
[1] = SOUTH,
[2] = SOUTHEAST,
[3] = EAST,
[4] = NORTHEAST,
[5] = NORTH, --alterado v1.5
[6] = NORTHWEST,
[7] = WEST,
[8] = SOUTHWEST,
}
for a = 1, 8 do
addEvent(sendFireEff, a * 200, cid, t[a])
end
end
doWheel(cid, false, cid)
elseif spell == "Low Kick" then
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
doDanoWithProtectWithDelay(cid, target, FIGHTINGDAMAGE, min, max, 113)
elseif spell == "Present" then
local function sendHeal(cid)
if isCreature(cid) and isCreature(target) then
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(target), crusher, min, max, 5)
doSendAnimatedText(getThingPosWithDebug(target), "HEALTH!", 65)
end
end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 31)
if math.random(1, 100) >= 10 then
doDanoWithProtectWithDelay(cid, target, NORMALDAMAGE, min, max, 5, crusher)
else
addEvent(sendHeal, 100, cid)
end
elseif spell == "Inferno" or spell == "Fissure" then
local pos = getThingPosWithDebug(cid)
atk = {
["Inferno"] = {101, FIREDAMAGE},
["Fissure"] = {102, GROUNDDAMAGE}
}
doMoveInArea2(cid, atk[spell][1], inferno1, atk[spell][2], 0, 0, spell)
addEvent(doDanoWithProtect, math.random(100, 400), cid, atk[spell][2], pos, inferno2, -min, -max, 0)
elseif spell == "Wrap" then
local ret = {}
ret.id = target
ret.cd = 10
ret.check = getPlayerStorageValue(target, conds["Silence"])
ret.eff = 104
ret.cond = "Silence"
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
addEvent(doMoveDano2, 100, cid, target, NORMALDAMAGE, 0, 0, ret, spell)
elseif spell == "Rock n'Roll" then
local pos = getThingPosWithDebug(cid)
local areas = {rock1, rock2, rock3, rock4, rock5, rock4, rock3, rock2, rock1}
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 1
ret.check = 0
ret.spell = spell
ret.cond = "Miss"
for i = 0, 8 do
addEvent(doMoveInArea2, i*400, cid, 1, areas[i+1], NORMALDAMAGE, min, max, spell, ret)
addEvent(doMoveInArea2, i*410, cid, 1, areas[i+1], NORMALDAMAGE, 0, 0, spell)
end
elseif spell == "Power Wave" then
local pos = getThingPosWithDebug(cid)
local areas = {rock1, rock2, rock3, rock4, rock5}
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 103
ret.check = 0
ret.first = true
ret.cond = "Paralyze"
local function sendAtk(cid)
if isCreature(cid) then
doRemoveCondition(cid, CONDITION_OUTFIT)
setPlayerStorageValue(cid, 9658783, -1)
for i = 0, 4 do
addEvent(doMoveInArea2, i*400, cid, 103, areas[i+1], psyDmg, min, max, spell, ret)
addEvent(doMoveInArea2, i*410, cid, 103, areas[i+1], psyDmg, 0, 0, spell)
end
end
end
doSetCreatureOutfit(cid, {lookType = 1001}, -1)
setPlayerStorageValue(cid, 9658783, 1)
addEvent(sendAtk, 2000, cid)
elseif spell == "Ground Crusher" then
local pos = getThingPosWithDebug(cid)
local areas = {rock1, rock2, rock3, rock4, rock5}
local ret = {}
ret.id = 0
ret.cd = 12
ret.eff = 0
ret.check = 0
ret.spell = spell
ret.cond = "Stun"
local function endMove(cid)
if isCreature(cid) then
doRemoveCondition(cid, CONDITION_OUTFIT)
end
end
doSetCreatureOutfit(cid, {lookType = 1449}, -1)
stopNow(cid, 16*360)
addEvent(endMove, 16*360, cid)
----
for i = 0, 4 do
addEvent(doMoveInArea2, i*350, cid, 100, areas[i+1], GROUNDDAMAGE, min, max, spell, ret)
addEvent(doMoveInArea2, i*360, cid, 100, areas[i+1], GROUNDDAMAGE, 0, 0, spell, ret)
end
for i = 4, 8 do
local a = i-3
addEvent(doMoveInArea2, i*350, cid, 100, areas[a], GROUNDDAMAGE, min, max, spell, ret)
addEvent(doMoveInArea2, i*360, cid, 100, areas[a], GROUNDDAMAGE, 0, 0, spell, ret)
end
for i = 8, 12 do
local a = i-7
addEvent(doMoveInArea2, i*350, cid, 100, areas[a], GROUNDDAMAGE, min, max, spell, ret)
addEvent(doMoveInArea2, i*360, cid, 100, areas[a], GROUNDDAMAGE, 0, 0, spell, ret)
end
for i = 12, 16 do
local a = i-11
addEvent(doMoveInArea2, i*350, cid, 100, areas[a], GROUNDDAMAGE, min, max, spell, ret)
addEvent(doMoveInArea2, i*360, cid, 100, areas[a], GROUNDDAMAGE, 0, 0, spell, ret)
end
for i = 16, 20 do
local a = i-15
addEvent(doMoveInArea2, i*350, cid, 100, areas[a], GROUNDDAMAGE, min, max, spell, ret)
addEvent(doMoveInArea2, i*360, cid, 100, areas[a], GROUNDDAMAGE, 0, 0, spell, ret)
end
elseif spell == "Last Resort" then
local pos = getThingPosWithDebug(cid)
local areas = {rock5, rock4, rock3, rock2, rock1, rock5, rock4, rock3, rock2, rock1}
for i = 0, 9 do
addEvent(doMoveInArea2, i*400, cid, 3, areas[i+1], NORMALDAMAGE, min, max, spell)
addEvent(doMoveInArea2, i*410, cid, 3, areas[i+1], NORMALDAMAGE, 0, 0, spell)
end
elseif spell == "Psy Impact" then
local master = getCreatureMaster(cid) or 0
local ret = {}
ret.id = 0
ret.cd = 9
ret.eff = 0
ret.check = 0
ret.spell = spell
ret.cond = "Miss"
for rocks = 1, 42 do
addEvent(fall, rocks*35, cid, master, psyDmg, -1, 98)
end
addEvent(doMoveInArea2, 500, cid, 0, BigArea2, psyDmg, min, max, spell, ret)
elseif spell == "Two Face Shock" then
local atk = {
[1] = {179, ICEDAMAGE},
[2] = {127, GROUNDDAMAGE}
}
local rand = math.random(1, 2)
doAreaCombatHealth(cid, atk[rand][2], getThingPosWithDebug(cid), splash, -min, -max, 255)
local sps = getThingPosWithDebug(cid)
sps.x = sps.x+1
sps.y = sps.y+1
doSendMagicEffect(sps, atk[rand][1])
elseif spell == "Aerial Ace" then
local eff = {16, 221, 223, 243}
for rocks = 1, 32 do
addEvent(fall, rocks*22, cid, master, FLYINGDAMAGE, -1, eff[math.random(1, 4)])
end
addEvent(doMoveInArea2, 500, cid, 0, BigArea2, FLYINGDAMAGE, min, max, spell)
elseif spell == "Echoed Voice" then
local p = getThingPosWithDebug(cid)
local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)
function sendAtk(cid, area)
if isCreature(cid) then
if not isSightClear(p, area, false) then return true end
doAreaCombatHealth(cid, NORMALDAMAGE, area, pulse2, -min, -max, 255)
end
end
for a = 0, 5 do
local t = {
[0] = {39, {x=p.x, y=p.y-(a+1), z=p.z}},
[1] = {39, {x=p.x+(a+1), y=p.y, z=p.z}},
[2] = {39, {x=p.x, y=p.y+(a+1), z=p.z}},
[3] = {39, {x=p.x-(a+1), y=p.y, z=p.z}}
}
addEvent(sendAtk, 400*a, cid, t[d][2])
addEvent(doAreaCombatHealth, 400*a, cid, ROCKDAMAGE, t[d][2], pulse1, 0, 0, t[d][1])
end
elseif spell == "Electro Field" or spell == "Petal Tornado" then
local p = getThingPos(cid)
local pos1 = {
[1] = {{x = p.x, y = p.y+4, z = p.z}, {x = p.x+1, y = p.y+4, z = p.z}, {x = p.x+2, y = p.y+3, z = p.z}, {x = p.x+3, y = p.y+2, z = p.z}, {x = p.x+4, y = p.y+1, z = p.z}, {x = p.x+4, y = p.y, z = p.z}},
[2] = {{x = p.x, y = p.y+3, z = p.z}, {x = p.x+1, y = p.y+3, z = p.z}, {x = p.x+2, y = p.y+2, z = p.z}, {x = p.x+3, y = p.y+1, z = p.z}, {x = p.x+3, y = p.y, z = p.z}},
[3] = {{x = p.x, y = p.y+2, z = p.z}, {x = p.x+1, y = p.y+2, z = p.z}, {x = p.x+2, y = p.y+1, z = p.z}, {x = p.x+2, y = p.y, z = p.z}},
[4] = {{x = p.x, y = p.y+1, z = p.z}, {x = p.x+1, y = p.y+1, z = p.z}, {x = p.x+1, y = p.y, z = p.z}},
}
local pos2 = {
[1] = {{x = p.x, y = p.y-4, z = p.z}, {x = p.x-1, y = p.y-4, z = p.z}, {x = p.x-2, y = p.y-3, z = p.z}, {x = p.x-3, y = p.y-2, z = p.z}, {x = p.x-4, y = p.y-1, z = p.z}, {x = p.x-4, y = p.y, z = p.z}},
[2] = {{x = p.x, y = p.y-3, z = p.z}, {x = p.x-1, y = p.y-3, z = p.z}, {x = p.x-2, y = p.y-2, z = p.z}, {x = p.x-3, y = p.y-1, z = p.z}, {x = p.x-3, y = p.y, z = p.z}},
[3] = {{x = p.x, y = p.y-2, z = p.z}, {x = p.x-1, y = p.y-2, z = p.z}, {x = p.x-2, y = p.y-1, z = p.z}, {x = p.x-2, y = p.y, z = p.z}},
[4] = {{x = p.x, y = p.y-1, z = p.z}, {x = p.x-1, y = p.y-1, z = p.z}, {x = p.x-1, y = p.y, z = p.z}},
}
local pos3 = {
[1] = {{x = p.x+4, y = p.y, z = p.z}, {x = p.x+4, y = p.y-1, z = p.z}, {x = p.x+3, y = p.y-2, z = p.z}, {x = p.x+2, y = p.y-3, z = p.z}, {x = p.x+1, y = p.y-4, z = p.z}, {x = p.x, y = p.y-4, z = p.z}},
[2] = {{x = p.x+3, y = p.y, z = p.z}, {x = p.x+3, y = p.y-1, z = p.z}, {x = p.x+2, y = p.y-2, z = p.z}, {x = p.x+1, y = p.y-3, z = p.z}, {x = p.x, y = p.y-3, z = p.z}},
[3] = {{x = p.x+2, y = p.y, z = p.z}, {x = p.x+2, y = p.y-1, z = p.z}, {x = p.x+1, y = p.y-2, z = p.z}, {x = p.x, y = p.y-2, z = p.z}},
[4] = {{x = p.x+1, y = p.y, z = p.z}, {x = p.x+1, y = p.y-1, z = p.z}, {x = p.x, y = p.y-1, z = p.z}},
}
local pos4 = {
[1] = {{x = p.x-4, y = p.y, z = p.z}, {x = p.x-4, y = p.y+1, z = p.z}, {x = p.x-3, y = p.y+2, z = p.z}, {x = p.x-2, y = p.y+3, z = p.z}, {x = p.x-1, y = p.y+4, z = p.z}, {x = p.x, y = p.y+4, z = p.z}},
[2] = {{x = p.x-3, y = p.y, z = p.z}, {x = p.x-3, y = p.y+1, z = p.z}, {x = p.x-2, y = p.y+2, z = p.z}, {x = p.x-1, y = p.y+3, z = p.z}, {x = p.x, y = p.y+3, z = p.z}},
[3] = {{x = p.x-2, y = p.y, z = p.z}, {x = p.x-2, y = p.y+1, z = p.z}, {x = p.x-1, y = p.y+2, z = p.z}, {x = p.x, y = p.y+2, z = p.z}},
[4] = {{x = p.x-1, y = p.y, z = p.z}, {x = p.x-1, y = p.y+1, z = p.z}, {x = p.x, y = p.y+1, z = p.z}},
}
local atk = {
["Electro Field"] = {41, 207, ELECTRICDAMAGE},
["Petal Tornado"] = {14, 54, GRASSDAMAGE},
}
local ret = {}
ret.id = 0
ret.cd = 12
ret.eff = 48
ret.check = 0
ret.spell = spell
ret.cond = "Stun"
local function sendDist(cid, posi1, posi2, eff, delay)
if posi1 and posi2 and isCreature(cid) then
addEvent(sendDistanceShootWithProtect, delay, cid, posi1, posi2, eff) --alterado v1.6
end
end
local function sendDano(cid, pos, eff, delay, min, max)
if pos and isCreature(cid) then
addEvent(doDanoWithProtect, delay, cid, atk[spell][3], pos, 0, -min, -max, eff) --alterado v1.6
end
end
local function doTornado(cid)
if isCreature(cid) then
for j = 1, 4 do
for i = 1, 6 do --41/207 -- 14/54
addEvent(sendDist, 350, cid, pos1[j][i], pos1[j][i+1], atk[spell][1], i*330)
addEvent(sendDano, 350, cid, pos1[j][i], atk[spell][2], i*300, min, max)
addEvent(sendDano, 350, cid, pos1[j][i], atk[spell][2], i*310, 0, 0)
---
addEvent(sendDist, 350, cid, pos2[j][i], pos2[j][i+1], atk[spell][1], i*330)
addEvent(sendDano, 350, cid, pos2[j][i], atk[spell][2], i*300, min, max)
addEvent(sendDano, 350, cid, pos2[j][i], atk[spell][2], i*310, 0, 0)
----
addEvent(sendDist, 800, cid, pos3[j][i], pos3[j][i+1], atk[spell][1], i*330)
addEvent(sendDano, 800, cid, pos3[j][i], atk[spell][2], i*300, min, max)
addEvent(sendDano, 800, cid, pos3[j][i], atk[spell][2], i*310, 0, 0)
---
addEvent(sendDist, 800, cid, pos4[j][i], pos4[j][i+1], atk[spell][1], i*330)
addEvent(sendDano, 800, cid, pos4[j][i], atk[spell][2], i*300, min, max)
addEvent(sendDano, 800, cid, pos4[j][i], atk[spell][2], i*310, 0, 0)
end
end
end
end
if spell == "Electro Field" then
addEvent(doMoveInArea2, 1000, cid, 0, electro, ELECTRICDAMAGE, 0, 0, spell, ret)
end
for b = 0, 2 do
addEvent(doTornado, b*1500, cid)
end
elseif spell == "Seed Bomb" then --alterado v1.6
local master = isSummon(cid) and getCreatureMaster(cid) or cid
local function doFall(cid)
for rocks = 1, 42 do --62
addEvent(fall, rocks*35, cid, master, SEED_BOMBDAMAGE, 1, 54)
end
end
for up = 1, 10 do
addEvent(upEffect, up*75, cid, 1)
end
addEvent(doFall, 450, cid)
addEvent(doMoveInArea2, 1400, cid, 2, BigArea2, SEED_BOMBDAMAGE, min, max, spell)
--/////////////////////// PASSIVAS /////////////////////////--
elseif spell == "Counter Helix" then
-- [nome] = {out = outfit girando, efeitos}
local OutFit = {
["Scyther"] = {out = 496, cima = 128, direita = 129, esquerda = 130, baixo = 131}, --scyther
["Scizor"] = {out = 918, cima = 236, direita = 232, esquerda = 224, baixo = 233}, --Scizor
["Shiny Scyther"] = {out = 849, cima = 128, direita = 129, esquerda = 130, baixo = 131}, --Shiny Scyther
["Hitmontop"] = {out = 1193, cima = 251, direita = 253, esquerda = 254, baixo = 252}, --Hitmontop
["Furious Scizor"] = {out = 918, cima = 236, direita = 232, esquerda = 224, baixo = 233}, --Scizor
["Capoeira Hitmontop"] = {out = 1193, cima = 251, direita = 253, esquerda = 254, baixo = 252}, --Hitmontop
["Shiny Hitmontop"] = {out = 1451, cima = 251, direita = 253, esquerda = 254, baixo = 252}, --Shiny Hitmontop
["Pineco"] = {out = 1194, cima = 251, direita = 253, esquerda = 254, baixo = 252}, --pineco
["Forretress"] = {out = 1192, cima = 251, direita = 253, esquerda = 254, baixo = 252}, --Forretress
}
if getPlayerStorageValue(cid, 32623) == 1 then --proteçao pra n usar a passiva 2x seguidas...
return true
end
local nome1 = OutFit[getCreatureName(cid)] and getCreatureName(cid) or getCreatureName(target)
local outfitt = OutFit[nome1] or OutFit[getCreatureName(target)] --ver isso!
local function damage(cid, min, max)
if isCreature(cid) then
if isInArray({"Scyther", "Shiny Scyther", "Pineco"}, nome1) then --alterado v1.6
doAreaCombatHealth(cid, BUGDAMAGE, getThingPosWithDebug(cid), scyther5, -min, -max, CONST_ME_NONE)
elseif isInArray({"Hitmontop", "Shiny Hitmontop", "Capoeira Hitmontop"}, nome1) then
doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPosWithDebug(cid), scyther5, -min, -max, CONST_ME_NONE)
else
doAreaCombatHealth(cid, STEELDAMAGE, getThingPosWithDebug(cid), scyther5, -min, -max, CONST_ME_NONE)
end
doAreaCombatHealth(cid, null, getThingPos(cid), scythe1, 0, 0, outfitt.cima) --cima
doAreaCombatHealth(cid, null, getThingPos(cid), scythe2, 0, 0, outfitt.baixo) --baixo
doAreaCombatHealth(cid, null, getThingPos(cid), scythe3, 0, 0, outfitt.direita) --direita
doAreaCombatHealth(cid, null, getThingPos(cid), scythe4, 0, 0, outfitt.esquerda) --esquerda
end
end
local function sendEff(cid)
if isCreature(cid) then
doAreaCombatHealth(cid, null, getThingPos(cid), scythe1, 0, 0, outfitt.cima) --cima
doAreaCombatHealth(cid, null, getThingPos(cid), scythe2, 0, 0, outfitt.baixo) --baixo
doAreaCombatHealth(cid, null, getThingPos(cid), scythe3, 0, 0, outfitt.direita) --direita --alterado v1.6
doAreaCombatHealth(cid, null, getThingPos(cid), scythe4, 0, 0, outfitt.esquerda) --esquerda
end
end
local function doChangeO(cid)
if not isCreature(cid) then return true end
setPlayerStorageValue(cid, 32623, 0)
if isSleeping(cid) and getMonsterInfo(getCreatureName(cid)).lookCorpse ~= 0 then
doSetCreatureOutfit(cid, {lookType = 0, lookTypeEx = getMonsterInfo(getCreatureName(cid)).lookCorpse}, -1)
else
doRemoveCondition(cid, CONDITION_OUTFIT)
end
end
local delay = 200 -- não mexe
local master = isSummon(cid) and getCreatureMaster(cid) or cid --alterado v1.6
local summons = getCreatureSummons(master)
if (isPlayer(master) and #summons >= 2) or (ehMonstro(master) and #summons >= 1) then
for j = 1, #summons do
setPlayerStorageValue(summons[j], 32623, 1)
doSetCreatureOutfit(summons[j], {lookType = outfitt.out}, -1)
for i = 1, 2 do --alterado v1.6
addEvent(sendEff, delay*i, summons[j])
end
addEvent(doChangeO, 2 * 300 + 10, summons[j])
end
for i = 1, 2 do
addEvent(damage, delay*i, (isPlayer(master) and summons[1] or master), min, max)
end
else
setPlayerStorageValue(cid, 32623, 1)
doSetCreatureOutfit(cid, {lookType = outfitt.out}, -1)
for i = 1, 2 do --alterado v1.6
addEvent(damage, delay*i, cid, min, max)
end
addEvent(doChangeO, 2 * 300 + 10, cid)
end
elseif spell == "Lava-Electricity" then
--["Nome"] = {effeito, damage}
local eff = {
["Magmar"] = {5, FIREDAMAGE, 1461},
["Magby"] = {5, FIREDAMAGE},
["Lava Magmar"] = {5, FIREDAMAGE, 1461},
["Volcanic Magmar"] = {5, FIREDAMAGE, 1461}, --alterado v1.5
["Electabuzz"] = {207, ELECTRICDAMAGE, 1462},
["Magnet Electabuzz"] = {207, ELECTRICDAMAGE, 1462},
["Shiny Electabuzz"] = {207, ELECTRICDAMAGE, 1460},
["Raibolt Shiny Electabuzz"] = {207, ELECTRICDAMAGE, 1460},
["Raibolt Electabuzz"] = {207, ELECTRICDAMAGE, 1460},
["Elekid"] = {207, ELECTRICDAMAGE},
}
if getPlayerStorageValue(cid, 32623) == 1 then --proteçao pra n usar a passiva 2x seguidas...
return true
end
local tabela = eff[getCreatureName(cid)] or eff[getCreatureName(getMasterTarget(cid))]
local canDoStun = false
if math.random(1, 100) <= 30 then --alterado v1.6
canDoStun = true
end
local function sendFireEff(cid, dir, eff, damage)
if not isCreature(cid) then return true end
doAreaCombatHealth(cid, damage, getPosByDir(getThingPos(cid), dir), 0, -min, -max, eff)
local pid = getThingFromPosWithProtect(getPosByDir(getThingPos(cid), dir)) --alterado v1.6
if isCreature(pid) and not isNpc(pid) and tabela[2] == ELECTRICDAMAGE and canDoStun then
local ret = {}
ret.id = pid
ret.cd = 9
ret.eff = 48
ret.check = getPlayerStorageValue(pid, conds["Stun"])
ret.spell = "Electricity" --alterado v1.6
ret.cond = "Stun"
doMoveDano2(cid, pid, ELECTRICDAMAGE, 0, 0, ret, "Electricity")
end
end
local function doSpinFire(cid)
if not isCreature(cid) then return true end
local t = {
[1] = SOUTH,
[2] = SOUTHEAST,
[3] = EAST,
[4] = NORTHEAST,
[5] = NORTH,
[6] = NORTHWEST,
[7] = WEST,
[8] = SOUTHWEST,
}
for a = 1, 8 do
addEvent(sendFireEff, a * 140, cid, t[a], tabela[1], tabela[2])
end
addEvent(setPlayerStorageValue, 8*140, cid, 32623, 0) --proteçao
end
local out = tabela[3]
if out then
doSetCreatureOutfit(cid, {lookType = out}, 8*140)
end
setPlayerStorageValue(cid, 32623, 1) --proteçao
doSpinFire(cid)
elseif spell == "Mega Drain" then
local uid = checkAreaUid(getThingPos(cid), check, 1, 1)
local pid = 0
repeat
local r = math.random(#uid)
if uid[r] ~= cid and canAttackOther(cid, uid[r]) then
pid = uid[r]
else
pid = uid[r]
end
until pid ~= 0
if isCreature(pid) then
local life = getCreatureHealth(pid)
doTargetCombatHealth(cid, pid, GRASSDAMAGE, -min, -max, 14)
local newlife = life - getCreatureHealth(pid)
doSendMagicEffect(getThingPos(cid), 14)
if newlife >= 1 then
doCreatureAddHealth(cid, newlife)
doSendAnimatedText(getThingPos(cid), "+"..newlife.."", 32)
end
end
elseif spell == "Melody" then
local ret = {}
ret.id = 0
ret.cd = math.random(6, 8)
ret.check = 0
ret.first = true --alterado v1.6
ret.cond = "Sleep"
doMoveInArea2(cid, 33, selfArea1, NORMALDAMAGE, 0, 0, "Melody", ret)
elseif spell == "Spores Reaction" then
local random = math.random(1, 3)
if random == 1 then
local ret = {}
ret.id = 0
ret.cd = math.random(2, 3)
ret.check = 0 --alterado v1.6
ret.first = true
ret.cond = "Sleep"
doMoveInArea2(cid, 27, selfArea1, NORMALDAMAGE, 0, 0, "Spores Reaction", ret)
elseif random == 2 then
local ret = {}
ret.id = 0
ret.cd = 6
ret.eff = 0
ret.check = 0
ret.spell = spell
ret.cond = "Stun"
doMoveInArea2(cid, 85, confusion, NORMALDAMAGE, 0, 0, "Spores Reaction", ret)
else
local ret = {}
ret.id = 0
ret.cd = math.random(6, 10)
ret.check = 0
local lvl = isSummon(cid) and getMasterLevel(cid) or getPokemonLevel(cid) --alterado v1.6
ret.damage = math.floor((getPokemonLevel(cid)+lvl)/2)
ret.cond = "Poison"
doMoveInArea2(cid, 84, confusion, NORMALDAMAGE, 0, 0, "Spores Reaction", ret)
end
elseif spell == "Stunning Confusion" then
if getPlayerStorageValue(cid, 32623) == 1 then --proteçao pra n usar a spell 2x seguidas...
return true
end
local function damage(cid)
if isCreature(cid) then
doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPosWithDebug(cid), bombWee3, -min, -max, 136)
end
end
setPlayerStorageValue(cid, 32623, 1) --proteçao
for i = 1, 7 do
addEvent(damage, i*500, cid)
end
addEvent(setPlayerStorageValue, 3500, cid, 32623, 0) --proteçao
elseif spell == "Amnesia" then
if getPlayerStorageValue(cid, 253) >= 1 then return true end
doCreatureSay(cid, "????", 20)
doSendMagicEffect(getThingPosWithDebug(cid), 132)
setPlayerStorageValue(cid, 253, 1)
elseif spell == "Dragon Fury" then
if getPlayerStorageValue(cid, 32623) == 1 then
return true
end
setPlayerStorageValue(cid, 32623, 1)
if isInArray({"Persian", "Raticate", "Shiny Raticate"}, getCreatureName(cid)) then --alterado v1.6
doRaiseStatus(cid, 2, 0, 0, 10)
else --alterado v1.5
doRaiseStatus(cid, 2, 2, 0, 10)
end
for t = 1, 7 do --alterado v1.5
addEvent(sendMoveEffect, t*1500, cid, 12)
end
addEvent(setPlayerStorageValue, 10000, cid, 32623, 0) --alterado v1.5
elseif spell == "Electric Charge" then
if getPlayerStorageValue(cid, 253) >= 1 then
return true
end
setPlayerStorageValue(cid, 253, 1)
doSendMagicEffect(getThingPosWithDebug(cid), 207)
doSendAnimatedText(getThingPosWithDebug(cid), "FOCUS", 144)
elseif spell == "Groundshock" then
doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), scyther5, -min, -max, 255)
local sps = getThingPosWithDebug(cid)
sps.x = sps.x+1
sps.y = sps.y+1
doSendMagicEffect(sps, 127)
elseif spell == "Mirror Coat" then
if getPlayerStorageValue(cid, 21099) <= 0 then
setPlayerStorageValue(cid, 21099, 1)
doSetCreatureOutfit(cid, {lookType = 1447}, -1)
end
elseif spell == "Zen Mind" then
function doCure(cid)
if not isCreature(cid) then return true end
if isSummon(cid) then
doCureBallStatus(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "all")
end
doCureStatus(cid, "all")
end
addEvent(doCure, 1000, cid)
doSetCreatureOutfit(cid, {lookType = 1001}, 2000)
elseif spell == "Demon Kicker" then
--[outfit] = outfit chutando,
local hitmonlees = {
["Taekwondo Hitmonlee"] = 652, --hitmonlee
["Hitmonlee"] = 652, --hitmonlee
["Shiny Hitmonlee"] = 878, --shiny hitmonlee
["Gardestriker Shiny Hitmonlee"] = 878, --shiny hitmonlee
}
local nome = getCreatureName(cid)
--alterado v1.6 --alterado v1.7
if (not hitmonlees[nome] and isCreature(target)) or (isCreature(target) and math.random(1, 100) <= passivesChances["Demon Kicker"][nome]) then
if getDistanceBetween(getThingPos(cid), getThingPos(target)) > 1 then
return true
end
if getPlayerStorageValue(cid, 32623) == 1 then --proteçao pra n usar a passiva 2x seguidas...
return true
end
if not isSummon(cid) then --alterado v1.7
doCreatureSay(cid, string.upper(spell).."!", TALKTYPE_MONSTER)
end
local function doChangeHitmon(cid)
if not isCreature(cid) then return true end
setPlayerStorageValue(cid, 32623, 0) --proteçao
if isSleeping(cid) and getMonsterInfo(getCreatureName(cid)).lookCorpse ~= 0 then
doSetCreatureOutfit(cid, {lookType = 0, lookTypeEx = getMonsterInfo(getCreatureName(cid)).lookCorpse}, -1)
else
doRemoveCondition(cid, CONDITION_OUTFIT)
end
end
setPlayerStorageValue(cid, 32623, 1) --proteçao
local look = hitmonlees[nome] or getPlayerStorageValue(cid, 21104) --alterado v1.6
doCreatureSetLookDir(cid, getCreatureDirectionToTarget(cid, target))
doSetCreatureOutfit(cid, {lookType = look}, -1) --alterado v1.6
doTargetCombatHealth(cid, target, FIGHTINGDAMAGE, -min, -max, 255)
addEvent(doChangeHitmon, 700, cid)
end
elseif spell == "Demon Puncher" then
local name = getCreatureName(cid)
--alterado v1.7
if (not hitmonchans[name] and isCreature(target)) or (isCreature(target) and math.random(1, 100) <= passivesChances["Demon Puncher"][name]) then
if getDistanceBetween(getThingPosWithDebug(cid), getThingPosWithDebug(target)) > 1 then
return true
end
if not isSummon(cid) then --alterado v1.7
doCreatureSay(cid, string.upper(spell).."!", TALKTYPE_MONSTER)
end
if ehMonstro(cid) or not hitmonchans[name] then
hands = 0
else
hands = getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "hands")
end
if not hitmonchans[name] then
tabela = hitmonchans[name][hands]
end
doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)
doTargetCombatHealth(cid, target, tabela.type, -min, -max, 255)
local alvo = getThingPosWithDebug(target)
alvo.x = alvo.x + 1 ---alterado v1.7
if hands == 4 then
doSendMagicEffect(alvo, tabela.eff) --alterado v1.7
else
doSendMagicEffect(getThingPosWithDebug(target), tabela.eff)
end
if hands == 3 then
local ret = {}
ret.id = target
ret.cd = 9 --alterado v1.6
ret.eff = 43
ret.check = getPlayerStorageValue(target, conds["Slow"])
ret.first = true
ret.cond = "Slow"
doMoveDano2(cid, target, FIGHTINGDAMAGE, 0, 0, ret, spell)
end
end
end
return true
end
