viduonto

Eu conheço aquele balção e.e

Preciso muito de sua ajuda, quando eu uso a habilidade da esse erro '-' [25/04/2016 05:09:35] [Error - TalkAction Interface] [25/04/2016 05:09:35] data/talkactions/scripts/move1.lua:onSay [25/04/2016 05:09:35] Description: [25/04/2016 05:09:35] data/lib/pokemon moves.lua:122: attempt to index local 'table' (a nil value) [25/04/2016 05:09:35] stack traceback: [25/04/2016 05:09:35] data/lib/pokemon moves.lua:122: in function 'docastspell' [25/04/2016 05:09:35] data/talkactions/scripts/move1.lua:195: in function <data/talkactions/scripts/move1.lua:21> Meu pokemon moves: const_distance_delay = 56RollOuts = {["Voltorb"] = {lookType = 638},["Electrode"] = {lookType = 637},["Sandshrew"] = {lookType = 635},["Sandslash"] = {lookType = 636},["Phanpy"] = {lookType = 1005},["Donphan"] = {lookType = 1456},["Miltank"] = {lookType = 1006}, --alterado v2.6 peguem o script todo!!["Golem"] = {lookType = 639},["Shiny Electrode"] = {lookType = 1387},["Shiny Golem"] = {lookType = 1403},["Shiny Voltorb"] = {lookType = 1388}}--//////////////////////////////////////////////////////////////////////////////////////////////////////////--local function getSubName(cid, target)if not isCreature(cid) then return "" endif getCreatureName(cid) == "Ditto" and pokes[getPlayerStorageValue(cid, 1010)] and getPlayerStorageValue(cid, 1010) ~= "Ditto" then return getPlayerStorageValue(cid, 1010)elseif pokeHaveReflect(cid) and isCreature(target) then return getCreatureName(target)else --alterado v2.6.1 return getCreatureName(cid)endendlocal function getThingName(cid)if not isCreature(cid) then return "" end --alterado v2.6return getCreatureName(cid)endfunction getTableMove(cid, move) --alterado v2.6local 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)endif not isCreature(cid) or name == "" or not move then return backup endlocal 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 = ""} endfor j = 1, 15 do if z[j] and z[j].name == move then return z[j] endendreturn movesinfo[move]endfunction getMasterTarget(cid)if isCreature(cid) and getPlayerStorageValue(cid, 21101) ~= -1 then return getPlayerStorageValue(cid, 21101) --alterado v2.6end if isSummon(cid) then return getCreatureTarget(getCreatureMaster(cid)) else return getCreatureTarget(cid) endend--////////////////////////////////////////////////////////////////////////////////////////////////////////-- function docastspell(cid, spell, mina, maxa)local target = 0local getDistDelay = 0if not isCreature(cid) or getCreatureHealth(cid) <= 0 then return false end --alterado v2.6if isSleeping(cid) and getPlayerStorageValue(cid, 21100) <= -1 then return true end --alterado v2.6if isCreature(getMasterTarget(cid)) then target = getMasterTarget(cid) getDistDelay = getDistanceBetween(getThingPosWithDebug(cid), getThingPosWithDebug(target)) * const_distance_delayendif isMonster(cid) and not isSummon(cid) then if getCreatureCondition(cid, CONDITION_EXHAUST) then return true end doCreatureAddCondition(cid, wildexhaust)endlocal mydir = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)local min = 0local max = 0 local movetype = getSpecialAttack(cid) local table = getTableMove(cid, spell) --alterado v2.6 --alterado v2.7 \/\/if ehMonstro(cid) and isCreature(getMasterTarget(cid)) and isInArray(specialabilities["evasion"], getCreatureName(getMasterTarget(cid))) then local target = getMasterTarget(cid) if math.random(1, 100) <= passivesChances["Evasion"][getCreatureName(target)] then if isCreature(getMasterTarget(target)) then 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 end return false end--- FEAR / ROAR / SILENCE ---if (isWithFear(cid) or isSilence(cid)) and getPlayerStorageValue(cid, 21100) <= -1 thenreturn true --alterado v2.6!!end---------------------------- if mina and maxa thenmin = math.abs(mina)max = math.abs(maxa)elseif not isPlayer(cid) then if table ~= "" then --alterado v2.6 if table.t == "fighting" then --alterado v2.6 movetype = getOffense(cid) * 0.95 + getSpecialAttack(cid) * 0.45 elseif table.t == "normal" then --alterado v2.6 movetype = movetype * 0.6 + getOffense(cid) * 0.6 end --alterado v2.6 min = 5 + getPokemonLevel(cid) + ((table and table.f or 0) / 100 * movetype * specialoffenseRate) max = min + getPokemonLevel(cid) * levelFactor if spell == "Selfdestruct" then min = getCreatureHealth(cid) --alterado v2.6 max = getCreatureHealth(cid) end if not isSummon(cid) and not isInArray({"Demon Puncher", "Demon Kicker"}, spell) then --alterado v2.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 v2.6 min = min * 2 max = max * 2 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 v2.5local cd3 = getPlayerStorageValue(cid, conds["Stun"]) if cd >= 0 or cd2 >= 0 or cd3 >= 0 then --alterado v2.7 if not isInArray({"Aromateraphy", "Emergency Call", "Magical Leaf", "Sunny Day", "Safeguard", "Rain Dance"}, spell) and getPlayerStorageValue(cid, 21100) <= -1 then if math.random(1, 100) > 30 then --alterado v2.6 doSendAnimatedText(getThingPosWithDebug(cid), "MISS", 215) return false end endend---------------GHOST DAMAGE-----------------------ghostDmg = GHOSTDAMAGEpsyDmg = PSYCHICDAMAGEif getPlayerStorageValue(cid, 999457) >= 1 and table ~= "" and table.f ~= 0 then --alterado v2.6 psyDmg = MIRACLEDAMAGE ghostDmg = DARK_EYEDAMAGE addEvent(setPlayerStorageValue, 50, cid, 999457, -1)end--------------------REFLECT----------------------setPlayerStorageValue(cid, 21100, -1) --alterado v2.6if not isInArray({"Mud Bomb", "Psybeam", "Sand Attack", "Flamethrower"}, spell) then setPlayerStorageValue(cid, 21101, -1)endsetPlayerStorageValue(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 == "Razor Leaf" or spell == "Magical Leaf" then local eff = spell == "Razor Leaf" and 8 or 21local function throw(cid, target)if not isCreature(cid) or not isCreature(target) then return false end doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), eff) doDanoInTargetWithDelay(cid, target, GRASSDAMAGE, min, max, 245) --alterado v2.7endaddEvent(throw, 0, cid, target)addEvent(throw, 100, cid, target) --alterado v2.7 elseif spell == "Vine Whip" thenlocal 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 == "Antonish" then doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 53) 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) enddoChangeSpeed(cid, -getCreatureSpeed(cid))setPlayerStorageValue(cid, 3644587, 1) --alterado v2.6 n sei pq mas tava dando debug o.OdoSendMagicEffect(getThingPosWithDebug(cid), 132)addEvent(useSolarBeam, 650, cid)elseif spell == "Sleep Powder" thenlocal ret = {}ret.id = 0ret.cd = math.random(6, 9)ret.check = 0ret.first = true --alterado v2.6ret.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 == "Power Snow" then local ret = {} ret.id = 0 ret.cd = 9 ret.eff = 0 ret.check = 0 ret.spell = spell ret.cond = "Slow" doMoveInArea2(cid, 52, confusion, ICEDAMAGE, min, max, spell) elseif spell == "Bullet Seed" then --cid, effDist, effDano, areaEff, areaDano, element, min, maxdoMoveInAreaMulti(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) endelseif spell == "Grass Knot" 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, 9) 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) doDanoInTargetWithDelay(cid, target, FIREDAMAGE, min, max, 15) --alterado v2.7elseif spell == "Waterball" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 56) doDanoInTargetWithDelay(cid, target, WATERDAMAGE, min, max, 15) --alterado v2.7elseif 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 == "Close Combat" 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 = 195 elseif a == 1 then flamepos.x = flamepos.x+3 flamepos.y = flamepos.y+1 effect = 196 elseif a == 2 then flamepos.x = flamepos.x+1 flamepos.y = flamepos.y+3 effect = 204 elseif a == 3 then flamepos.x = flamepos.x-1 flamepos.y = flamepos.y+1 effect = 203 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) doDanoInTargetWithDelay(cid, target, FIREDAMAGE, min, max, 15) --alterado v2.7 elseif spell == "Fire Blast" thenlocal 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)endendfor a = 0, 4 dolocal 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])endelseif spell == "Brine" thenlocal 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, 206)endendfor a = 0, 4 dolocal t = {[0] = {0, {x=p.x, y=p.y-(a+1), z=p.z}}, --alterado v1.4[1] = {0, {x=p.x+(a+1), y=p.y, z=p.z}},[2] = {0, {x=p.x, y=p.y+(a+1), z=p.z}},[3] = {0, {x=p.x-(a+1), y=p.y, z=p.z}}} addEvent(sendAtk, 300*a, cid, t[d][2], t[d][1])endelseif spell == "Grass Tornado" thenlocal 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, 164)endendfor a = 0, 3 dolocal t = {[0] = {164, {x=p.x, y=p.y-(a+1), z=p.z}},[1] = {164, {x=p.x+(a+1), y=p.y, z=p.z}},[2] = {164, {x=p.x, y=p.y+(a+1), z=p.z}},[3] = {164, {x=p.x-(a+1), y=p.y, z=p.z}}} addEvent(sendAtk, 300*a, cid, t[d][2])addEvent(doDanoWithProtect, 400*a, cid, GRASSDAMAGE, t[d][2], pulse2, 0, 0, 164)addEvent(doDanoWithProtect, 400*a, cid, GRASSDAMAGE, t[d][2], pulse1, 0, 0, t[d][1])endelseif spell == "Dragon Rush" thenlocal 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, 164)endendfor a = 0, 3 dolocal t = {[0] = {219, {x=p.x, y=p.y-(a+1), z=p.z}},[1] = {219, {x=p.x+(a+1), y=p.y, z=p.z}},[2] = {219, {x=p.x, y=p.y+(a+1), z=p.z}},[3] = {219, {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, 164)addEvent(doDanoWithProtect, 400*a, cid, DRAGONDAMAGE, t[d][2], pulse1, 0, 0, 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" thenlocal effectpos = getThingPosWithDebug(cid)local effect = 255local 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 == "Imprision" thenlocal eff = {136, 137, 137, 136}local area = {flames1, flames2, flames3, flames4}addEvent(doMoveInArea2, 2*450, cid, 2, flames0, PSYCHICDAMAGE, min, max, spell)for i = 0, 3 do addEvent(doMoveInArea2, i*450, cid, eff[i+1], area[i+1], PSYCHICDAMAGE, min, max, spell)endelseif spell == "Magma Storm" thenlocal 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)endelseif spell == "Bubbles" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 2) doDanoInTargetWithDelay(cid, target, WATERDAMAGE, min, max, 25) --alterado v2.7 elseif spell == "Clamp" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 2) doDanoInTargetWithDelay(cid, target, WATERDAMAGE, min, max, 53) --alterado v2.7 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 == "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, 155, bullet, bulletDano, WATERDAMAGE, min, max) elseif spell == "Rage Fusion" then --cid, effDist, effDano, areaEff, areaDano, element, min, max doMoveInAreaMulti(cid, 24, 136, bullet, bulletDano, PSYCHICDAMAGE, min, max) elseif spell == "Dark Lost" then --cid, effDist, effDano, areaEff, areaDano, element, min, max doMoveInAreaMulti(cid, 44, 140, bullet, bulletDano, GHOSTDAMAGE, min, max) elseif spell == "Skull Bash" thenlocal ret = {}ret.id = 0ret.cd = 9 --alterado v2.6ret.eff = 118ret.check = 0ret.first = trueret.cond = "Paralyze" doMoveInArea2(cid, 118, reto5, NORMALDAMAGE, min, max, spell, ret) elseif spell == "poder agua" thenlocal 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 == "Whirlpool" thenlocal 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, 155) 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, 150, cid, target, BUGDAMAGE, 0, 0, ret, spell)elseif spell == "Bug Bite" then doSendMagicEffect(getThingPosWithDebug(target), 244) doDanoInTargetWithDelay(cid, target, BUGDAMAGE, min, max, 8) --alterado v2.7elseif 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, 150, cid, target, NORMALDAMAGE, 0, 0, ret, spell)elseif spell == "Whirlwind" thenarea = {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" thenlocal a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)local t = {[0] = 58, --alterado v2.6[1] = 234,[2] = 58,[3] = 209,}doMoveInArea2(cid, t[a], reto4, psyDmg, min, max, spell) --alterado v1.4elseif spell == "Icefall" thenlocal eff = {43, 52, 43, 52}local area = {flames1, flames2, flames3, flames4}addEvent(doMoveInArea2, 2*450, cid, 2, flames0, ICEDAMAGE, min, max, spell)for i = 0, 3 do addEvent(doMoveInArea2, i*450, cid, eff[i+1], area[i+1], FIREDAMAGE, min, max, spell)endelseif spell == "Sand Attack" thenlocal a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)local t = {[0] = 120,[1] = 121,[2] = 122,[3] = 119,}local ret = {}ret.id = 0ret.cd = 9ret.eff = 34ret.check = 0ret.spell = spellret.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 == "Uproar" then local rounds = math.random(4, 7) --rever area... rounds = rounds + math.floor(getPokemonLevel(cid) / 35) if spell == "Confusion" then dano = normalDmg --alterado v1.4 end local ret = {} ret.id = 0 ret.check = 0 ret.cd = rounds ret.cond = "Confusion" doMoveInArea2(cid, 39, selfArea1, dano, min, max, spell, ret) elseif spell == "Horn Attack" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 15) doDanoInTargetWithDelay(cid, target, NORMALDAMAGE, min, max, 3) --alterado v2.7elseif spell == "Poison Sting" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 15) doDanoInTargetWithDelay(cid, target, POISONDAMAGE, min, max, 8) --alterado v2.7 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 getSubName(cid, target) == "Scizor" then --alterado v2.6.1 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 getSubName(cid, target) == "Scizor" then --alterado v2.6.1 effect = 232 else effect = 129 end elseif a == 2 then effectpos.x = effectpos.x + 1 effectpos.y = effectpos.y + 2 if getSubName(cid, target) == "Scizor" then --alterado v2.6.1 effect = 233 else effect = 131 end elseif a == 3 then effectpos.x = effectpos.x - 1 effectpos.y = effectpos.y + 1 if getSubName(cid, target) == "Scizor" then --alterado v2.6.1 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) doDanoInTargetWithDelay(cid, target, POISONDAMAGE, min, max, 114) --alterado v2.7 elseif spell == "Sting Gun" then local function doGun(cid, target) if not isCreature(cid) or not isCreature(target) then return true end --alterado v2.7 doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 13) doDanoInTargetWithDelay(cid, target, POISONDAMAGE, min, max, 8) --alterado v2.7 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) doDanoInTargetWithDelay(cid, target, POISONDAMAGE, min, max, 20) --alterado v2.7 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 == "Poison 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, 264) elseif spell == "Thunder Shock" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 40) doDanoInTargetWithDelay(cid, target, ELECTRICDAMAGE, min, max, 207) --alterado v2.7elseif spell == "Thunder Bolt" then --alterado v2.7 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(doDanoInTarget, ry * 11, cid, target, ELECTRICDAMAGE, min, max, 48) --alterado v2.7 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" thenlocal ret = {}ret.id = 0ret.cd = 9ret.check = 0ret.eff = 207ret.spell = spellret.cond = "Stun"doMoveInArea2(cid, 207, tw1, ELECTRICDAMAGE, min, max, spell, ret)elseif spell == "Heat Wave" thenlocal ret = {}ret.id = 0ret.cd = 9ret.check = 0ret.eff = 101ret.spell = spellret.cond = "Confusion"doMoveInArea2(cid, 101, tw1, FIREDAMAGE, min, max, spell, ret)elseif spell == "Thunder" thenlocal ret = {}ret.id = 0ret.cd = 9ret.check = 0ret.eff = 48ret.spell = spellret.cond = "Stun"doMoveInArea2(cid, 48, thunderr, ELECTRICDAMAGE, min, max, spell, ret)elseif spell == "Mega Kick" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39) doDanoInTargetWithDelay(cid, target, FIGHTINGDAMAGE, min, max, 113) --alterado v2.7elseif spell == "Fake Out" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 26) doDanoInTargetWithDelay(cid, target, FIGHTINGDAMAGE, min, max, 244) --alterado v2.7 elseif spell == "Thunder Punch" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39) doSendMagicEffect(getThingPosWithDebug(target), 112) doDanoInTargetWithDelay(cid, target, ELECTRICDAMAGE, min, max, 207) --alterado v2.7elseif spell == "Psy Storm" then local master = isSummon(cid) and getCreatureMaster(cid) or cidlocal function doFall(cid)for rocks = 1, 42 do addEvent(fall, rocks*35, cid, master, PSYCHICDAMAGE, 24, 136)endendfor up = 1, 10 do addEvent(upEffect, up*75, cid, 41)endaddEvent(doFall, 450, cid)local ret = {}ret.id = 0ret.cd = 9ret.check = 0ret.eff = 134ret.spell = spellret.cond = "Stun"addEvent(doMoveInArea2, 1400, cid, 0, BigArea2, PSYCHICDAMAGE, min, max, spell, ret) elseif spell == "Electric Storm" then local master = isSummon(cid) and getCreatureMaster(cid) or cidlocal function doFall(cid)for rocks = 1, 42 do addEvent(fall, rocks*35, cid, master, ELECTRICDAMAGE, 41, 48)endendfor up = 1, 10 do addEvent(upEffect, up*75, cid, 41)endaddEvent(doFall, 450, cid)local ret = {}ret.id = 0ret.cd = 9ret.check = 0ret.eff = 48ret.spell = spellret.cond = "Stun"addEvent(doMoveInArea2, 1400, cid, 0, BigArea2, ELECTRICDAMAGE, min, max, spell, ret)elseif spell == "Mud Shot" or spell == "Mud Slap" thenlocal contudion = spell == "Mud Shot" and "Miss" or "Stun" local ret = {}ret.id = targetret.cd = 9ret.eff = 34ret.check = getPlayerStorageValue(target, conds[contudion])ret.spell = spellret.cond = contudion doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 6) addEvent(doMoveDano2, 100, cid, target, GROUNDDAMAGE, -min, -max, ret, spell) elseif spell == "Rollout" then--alterado v2.6 tabela agora esta no começo do script 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[getSubName(cid, target)] then doSetCreatureOutfit(cid, RollOuts[getSubName(cid, target)], -1) --alterado v2.6.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[getSubName(cid, target)] then doSetCreatureOutfit(cid, RollOuts[getSubName(cid, target)], -1) --alterado v2.6.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" thenlocal 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) endendfor a = 0, 5 dolocal 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" thenlocal eff = getSubName(cid, target) == "Shiny Onix" and 179 or 127 --alterado v2.6.1 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" thenlocal eff = getSubName(cid, target) == "Shiny Onix" and 175 or 118 --alterado v2.6.1 local function doQuake(cid)if not isCreature(cid) then return false endif isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false endif isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end doMoveInArea2(cid, eff, confusion, GROUNDDAMAGE, min, max, spell)endtimes = {0, 500, 1000, 1500, 2300}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 == "Mega Evolution" then local effect = 188 --Efeito de mega evolução. if isSummon(cid) then local pid = getCreatureMaster(cid) if isPlayer(pid) then local ball = getPlayerSlotItem(pid, 8).uid if ball > 0 then local attr = getItemAttribute(ball, "megaStone") if attr and megaEvolutions[attr] then local oldPosition, oldLookdir = getThingPos(cid), getCreatureLookDir(cid) doItemSetAttribute(ball, "poke", megaEvolutions[attr][2]) doSendMagicEffect(getThingPos(cid), effect) doRemoveCreature(cid) doSummonMonster(pid, megaEvolutions[attr][2]) local newPoke = getCreatureSummons(pid)[1] doTeleportThing(newPoke, oldPosition, false) doCreatureSetLookDir(newPoke, oldLookdir) adjustStatus(newPoke, ball, true, false) if useKpdoDlls then addEvent(doUpdateMoves, 5, pid) end end end end end elseif spell == "Toxic Spikes" then local function doToxic(cid, target) if not isCreature(cid) or not isCreature(target) then return true end --alterado v2.7 doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 15) doDanoInTargetWithDelay(cid, target, POISONDAMAGE, min, max, 114) --alterado v2.7 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 --alterado v2.7 doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 25) doDanoInTargetWithDelay(cid, target, NORMALDAMAGE, min, max, 3) --alterado v2.7 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, 150, cid, target, NORMALDAMAGE, 0, 0, ret, spell) elseif spell == "Sing" thenlocal ret = {}ret.id = 0ret.cd = math.random(6, 10)ret.check = 0ret.first = trueret.cond = "Sleep" --alterado v2.6 doMoveInArea2(cid, 34, selfArea1, NORMALDAMAGE, 0, 0, spell, ret) elseif spell == "Poison Powerful" thenlocal ret = {}ret.id = 0ret.cd = math.random(6, 10)ret.check = 0ret.first = trueret.cond = "Poison" --alterado v2.6 doMoveInArea2(cid, 153, selfArea1, POISONDAMAGE, min, max, spell) elseif spell == "Multislap" then doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(cid), splash, -min, -max, 3) elseif spell == "Metronome" thenlocal spells = {"Shadow Storm", "Electric Storm", "Magma Storm", "Blizzard", "Leaf Storm", "Falling Rocks", "Whirlpool"} 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) endelseif spell == "Sonic Dance" thenlocal rounds = math.random(4, 7) --rever area... rounds = rounds + math.floor(getPokemonLevel(cid) / 35) local ret = {} ret.id = 0 ret.check = 0 ret.cd = rounds ret.cond = "Confusion" doMoveInAreaMulti(cid, 33, 1, bullet, bulletDano, NORMALDAMAGE, min, max) doMoveInArea2(cid, 0, multiDano, NORMALDAMAGE, 0, 0, spell, ret) 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" thenlocal 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 == "Rock Climb" then doDanoWithProtect(cid, psyDmg, getThingPosWithDebug(cid), selfArea2, min, max, 157) doDanoWithProtect(cid, psyDmg, getThingPosWithDebug(cid), selfArea2, min, max, 102) elseif spell == "Frenzy Plant" then doDanoWithProtect(cid, psyDmg, getThingPosWithDebug(cid), selfArea2, min, max, 45) elseif spell == "Flare Blitz" then doDanoWithProtect(cid, psyDmg, getThingPosWithDebug(cid), selfArea2, min, max, 35) elseif spell == "Sky Attack" then doDanoWithProtect(cid, psyDmg, getThingPosWithDebug(cid), selfArea2, min, max, 42) elseif spell == "Pay Day" then --alterado v2.7 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(doDanoInTarget, ry * 11, cid, target, NORMALDAMAGE, min, max, 28) --alterado v2.7 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" thendoMoveInArea2(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) doDanoInTargetWithDelay(cid, target, FIGHTINGDAMAGE, -min, -max, 113) --alterado v2.7elseif spell == "Vital Throw" thenlocal p = getThingPosWithDebug(cid)local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)function sendAtk(cid, area, area2, eff) --alterado v2.6if 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 v2.6 endendfor a = 0, 4 dolocal t = {[0] = {64, {x=p.x+1, y=p.y-(a+1), z=p.z}, {x=p.x, y=p.y-(a+1), z=p.z}}, --alterado v2.6[1] = {64, {x=p.x+(a+2), y=p.y+1, z=p.z}, {x=p.x+(a+1), y=p.y, z=p.z}},[2] = {64, {x=p.x+1, y=p.y+(a+2), z=p.z}, {x=p.x, y=p.y+(a+1), z=p.z}},[3] = {64, {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 v2.6end elseif spell == "Ground Chop" thenlocal p = getThingPosWithDebug(cid)local d = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)function sendAtk(cid, area, area2, eff) --alterado v2.6if 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 v2.6 endendfor a = 0, 4 dolocal 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 v2.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 v2.6end elseif spell == "Mega Punch" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39) doDanoInTargetWithDelay(cid, target, FIGHTINGDAMAGE, -min, -max, 112) --alterado v2.7 elseif spell == "Pound" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39) doDanoInTargetWithDelay(cid, target, FIGHTINGDAMAGE, -min, -max, 256) --alterado v2.7 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" thendoSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 24)local ret = {}ret.id = targetret.cd = math.random(6, 9)ret.check = getPlayerStorageValue(target, conds["Sleep"])ret.first = true --alterado v2.6ret.cond = "Sleep" 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 = targetret.cd = 9ret.eff = 43ret.check = getPlayerStorageValue(target, conds["Slow"])ret.first = trueret.cond = "Slow" doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 28) doSendMagicEffect(getThingPosWithDebug(target), 112) doDanoWithProtectWithDelay(cid, target, ICEDAMAGE, min, max, 43) addEvent(doMoveDano2, 200, cid, target, ICEDAMAGE, 0, 0, ret, spell) elseif spell == "Ice Beam" thenlocal a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)local p = getThingPosWithDebug(cid)local t = {[0] = {192, {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] = {193, {x=p.x-1, y=p.y+1, z=p.z}},}local ret = {}ret.id = 0ret.cd = 9ret.eff = 43ret.check = 0ret.first = trueret.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" thendamage = skill == "Dark Pulse" and DARKDAMAGE or psyDmglocal function doPulse(cid, eff)if not isCreature(cid) then return true end doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 3) doDanoInTargetWithDelay(cid, target, damage, min, max, eff) --alterado v2.7end 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) endelseif spell == "Blast Burn" then local rounds = math.random(4, 7) rounds = rounds + math.floor(getPokemonLevel(cid) / 35) local eff = {35, 15, 101, 35, 101} 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) endelseif spell == "Iceee" then local rounds = math.random(4, 7) rounds = rounds + math.floor(getPokemonLevel(cid) / 35) local eff = {6, 7, 6, 7, 6, 7, 6} local area = {iceee1, iceee2, iceee3, iceee4, iceee5, iceee6, iceee7} local ret = {} ret.id = 0 ret.check = 0 ret.cd = rounds ret.cond = "Slow" setPlayerStorageValue(cid, 3644587, 1) addEvent(setPlayerStorageValue, 6*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" thenlocal effD = getSubName(cid, target) == "Shiny Onix" and 0 or 11local eff = getSubName(cid, target) == "Shiny Onix" and 176 or 44 --alterado v2.6.1 doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), effD) doDanoInTargetWithDelay(cid, target, ROCKDAMAGE, min, max, eff) --alterado v2.7 elseif spell == "Rock Slide" or spell == "Stone Edge" thenatk = {["Rock Slide"] = {11, 44, 0, 176},["Stone Edge"] = {11, 239}} local effD = getSubName(cid, target) == "Shiny Onix" and atk[spell][3] or atk[spell][1]local eff = getSubName(cid, target) == "Shiny Onix" and atk[spell][4] or atk[spell][2] --alterado v2.6.1 --alterado v2.7 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(doDanoInTarget, ry * 11, cid, target, ROCKDAMAGE, min, max, eff) --alterado v2.7 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" thenlocal effD = getSubName(cid, target) == "Shiny Onix" and 0 or 11local eff = getSubName(cid, target) == "Shiny Onix" and 176 or 44 --alterado v2.6.1local 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)endendfor up = 1, 10 do addEvent(upEffect, up*75, cid, effD)endaddEvent(doFall, 450, cid)addEvent(doDanoWithProtect, 1400, cid, ROCKDAMAGE, getThingPosWithDebug(cid), waterarea, -min, -max, 0) elseif spell == "Crusher Stomp" then local pL = getThingPosWithDebug(cid)pL.x = pL.x+5pL.y = pL.y+1 -----------------local pO = getThingPosWithDebug(cid)pO.x = pO.x-3pO.y = pO.y+1 ------------------local pN = getThingPosWithDebug(cid)pN.x = pN.x+1pN.y = pN.y+5 -----------------local pS = getThingPosWithDebug(cid)pS.x = pS.x+1pS.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 = 0ret.cd = 9ret.check = 0ret.eff = 34ret.spell = spellret.cond = "Stun"for i = 1, 4 do doSendMagicEffect(po[i], 127) doAreaCombatHealth(cid, GROUNDDAMAGE, po2[i], crusher, -min, -max, 255)enddoMoveInArea2(cid, 118, stomp, GROUNDDAMAGE, min, max, spell, ret) elseif spell == "Water Pulse" then doMoveInArea2(cid, 205, reto5, WATERDAMAGE, min, max, spell) elseif spell == "Sonicboom" thenlocal function doBoom(cid)if not isCreature(cid) then return true end doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 33) doDanoInTargetWithDelay(cid, target, NORMALDAMAGE, min, max, 3) --alterado v2.7end addEvent(doBoom, 0, cid) addEvent(doBoom, 250, cid) elseif spell == "Stickmerang" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 34) doDanoInTargetWithDelay(cid, target, FLYINGDAMAGE, min, max, 212) --alterado v2.7elseif 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) doDanoInTargetWithDelay(cid, target, FLYINGDAMAGE, min, max, 111) --alterado v2.7elseif spell == "Tri-Attack" then --alterado v2.7 setPlayerStorageValue(cid, 3644587, 1) addEvent(setPlayerStorageValue, 600, cid, 3644587, -1) doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 42) for i = 0, 2 do addEvent(doDanoInTargetWithDelay, i*300, cid, target, NORMALDAMAGE, min, max, 238) --alterado v2.7 end elseif spell == "Fury Attack" then --alterado v2.7 setPlayerStorageValue(cid, 3644587, 1) addEvent(setPlayerStorageValue, 600, cid, 3644587, -1) for i = 0, 2 do addEvent(doDanoInTargetWithDelay, i*300, cid, target, NORMALDAMAGE, min, max, 110) --alterado v2.7 end elseif spell == "Mega Evolution" then local effect = xxx --Efeito de mega evolução. if isSummon(cid) then local pid = getCreatureMaster(cid) if isPlayer(pid) then local ball = getPlayerSlotItem(pid, 8).uid if ball > 0 then local attr = getItemAttribute(ball, "megaStone") if attr and megaEvolutions[attr] then local oldPosition, oldLookdir = getThingPos(cid), getCreatureLookDir(cid) doItemSetAttribute(ball, "poke", megaEvolutions[attr][2]) doSendMagicEffect(getThingPos(cid), effect) doRemoveCreature(cid) doSummonMonster(pid, megaEvolutions[attr][2]) local newPoke = getCreatureSummons(pid)[1] doTeleportThing(newPoke, oldPosition, false) doCreatureSetLookDir(newPoke, oldLookdir) adjustStatus(newPoke, ball, true, false) if useKpdoDlls then addEvent(doUpdateMoves, 5, pid) end end end end end elseif spell == "Ice Shards" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 28) doDanoInTargetWithDelay(cid, target, ICEDAMAGE, min, max, 43) --alterado v2.7 elseif spell == "Icy Wind" then local ret = {}ret.id = 0ret.cd = 9ret.eff = 43ret.check = 0ret.first = trueret.cond = "Slow" doMoveInArea2(cid, 17, tw1, ICEDAMAGE, min, max, spell, ret) elseif spell == "Aurora Beam" thenlocal 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 v2.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 v2.6}local ret = {}ret.id = 0ret.cd = 9ret.eff = 43ret.check = 0ret.first = trueret.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 --alterado v2.7 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(doDanoInTargetWithDelay, ry * 11, cid, target, POISONDAMAGE, min, max, 116) --alterado v2.7 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) endelseif spell == "Mud Bomb" thenlocal ret = {}ret.id = 0ret.cd = 9ret.eff = 34ret.check = 0ret.spell = spellret.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 v2.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" thendamage = spell == "Megahorn" and BUGDAMAGE or ROCKDAMAGEeff = spell == "Megahorn" and 8 or 44 effD = spell == "Rock Blast" and 11 or 25 --cid, effDist, effDano, areaEff, areaDano, element, min, maxdoMoveInAreaMulti(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 v2.6 doCreatureSetLookDir(cid, 2) local effect = 0 local pos = getThingPosWithDebug(cid) pos.x = pos.x + 1 pos.y = pos.y + 1 local effect = getSubName(cid, target) == "Tangela" and 213 or 229 --alterado v2.6.1 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 == "Poison Powder" thenlocal ret = {}ret.id = 0ret.cd = math.random(6, 15) --alterado v2.6ret.check = 0local lvl = isSummon(cid) and getMasterLevel(cid) or getPokemonLevel(cid)ret.damage = math.floor((getPokemonLevel(cid)+lvl)/2)ret.cond = "Poison" doMoveInArea2(cid, 177, epicenter, GROUNDDAMAGE, min, max, spell) elseif spell == "Bubblebeam" thenlocal function sendBubbles(cid)if not isCreature(cid) or not isCreature(target) then return true end doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 2) doDanoInTargetWithDelay(cid, target, WATERDAMAGE, min, max, 25) --alterado v2.7endsendBubbles(cid)addEvent(sendBubbles, 250, cid) elseif spell == "Swift" thenlocal function sendSwift(cid, target)if not isCreature(cid) or not isCreature(target) then return true end doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 32) doDanoInTargetWithDelay(cid, target, NORMALDAMAGE, min, max, 3) --alterado v2.7endaddEvent(sendSwift, 100, cid, target)addEvent(sendSwift, 200, cid, target) elseif spell == "Spark" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 32) doDanoInTargetWithDelay(cid, target, ELECTRICDAMAGE, min, max, 48) --alterado v2.7 elseif spell == "Mimic Wall" thenlocal p = getThingPosWithDebug(cid)local dirr = getCreatureLookDir(cid)if dirr == 0 or dirr == 2 then item = 11439else item = 11440endlocal 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 = 0for 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)endend for i = 1, 3 do if wall[dirr] then local t = wall[dirr] if hasTile(t[i]) and canWalkOnPos(t[i], true, true, true, true, false) then 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 endend 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}).uidenddoSetItemActionId(tile0, 88070)addEvent(removeAllActionIDs, 15000, p, true)n = 0while 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)endaddEvent(removeAllActionIDs, 15000, pos)addEvent(removeAllActionIDs, 15000, pos2) elseif spell == "Shredder Team" thenlocal team = {["Scyther"] = "ScytherTeam",["Shiny Scyther"] = "Shiny ScytherTeam",["Scizor"] = "ScizorTeam",}local function RemoveTeam(cid)if isCreature(cid) then doSendMagicEffect(getThingPosWithDebug(cid), 211) doRemoveCreature(cid)endendif getPlayerStorageValue(cid, 637500) >= 1 thenreturn trueendlocal 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 = 21local pokelife = (getCreatureHealth(cid) / getCreatureMaxHealth(cid))doItemSetAttribute(item.uid, "hp", pokelife)local random = math.random(5, 10)doDisapear(cid)doTeleportThing(cid, {x=4, y=3, z=10}, false)addEvent(doTeleportThing, random, cid, pos, false)addEvent(doAppear, random, cid)if team[name] thenlocal num = getSubName(cid, target) == "Scizor" and 4 or 3 --alterado v2.6.1 for b = 2, num do doSummonMonster(master, team[name]) end pk1 = getCreatureSummons(master)[1] pk2 = getCreatureSummons(master)[2] pk3 = getCreatureSummons(master)[3] if getSubName(cid, target) == "Scizor" then --alterado v2.6.1 pk4 = getCreatureSummons(master)[4] end for a = 1, num do local pk = {[1] = pk1, [2] = pk2, [3] = pk3, [4] = pk4} doTeleportThing(pk[a], getClosestFreeTile(pk[a], pos), false) adjustStatus(pk[a], item.uid, true, true, true) doSendMagicEffect(getThingPosWithDebug(pk[a]), 211) end setPlayerStorageValue(pk2, 637500, 1) setPlayerStorageValue(pk3, 637500, 1) if getSubName(cid, target) == "Scizor" then --alterado v2.6.1 setPlayerStorageValue(pk4, 637500, 1) end setPlayerStorageValue(master, 637501, 1) addEvent(setPlayerStorageValue, time * 1000, master, 637501, -2)--alterado v2.6 addEvent(RemoveTeam, time * 1000, pk2) addEvent(RemoveTeam, time * 1000, pk3) if getSubName(cid, target) == "Scizor" then --alterado v2.6.1 addEvent(RemoveTeam, time * 1000, pk4) endendelseif spell == "Team Slice" or spell == "Team Claw" then --alterado v2.4local master = getCreatureMaster(cid)if #getCreatureSummons(master) < 2 or not isCreature(target) then return true endlocal summons = getCreatureSummons(master)local posis = {[1] = pos1, [2] = pos2, [3] = pos3, [4] = pos4}if getSubName(cid, target) == "Scyther" then --alterado v2.6.1 eff = 27elseif getSubName(cid, target) == "Shiny Scyther" then --alterado v2.6.1 eff = 29else eff = 42 --alterado v2.5end if #getCreatureSummons(master) >= 2 and isCreature(target) then if isCreature(cid) then addEvent(doDanoInTarget, 500, cid, target, BUGDAMAGE, -min, -max, 0) --alterado v2.7 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" thenlocal master = isSummon(cid) and getCreatureMaster(cid) or cidlocal ret = {}ret.id = 0ret.cd = 9ret.eff = 43ret.check = 0ret.first = trueret.cond = "Slow"local function doFall(cid)for rocks = 1, 42 do addEvent(fall, rocks*35, cid, master, ICEDAMAGE, 28, 248)endendfor up = 1, 10 do addEvent(upEffect, up*75, cid, 28)end --alterado v1.4addEvent(doFall, 450, cid)addEvent(doMoveInArea2, 1400, cid, 0, BigArea2, ICEDAMAGE, min, max, spell, ret)elseif spell == "Great Love" thenlocal master = getCreatureMaster(cid) or 0local ret = {}ret.id = 0ret.cd = 9ret.eff = 147ret.check = 0ret.spell = spellret.cond = "Stun" for rocks = 1, 62 do addEvent(fall, rocks*35, cid, master, NORMALDAMAGE, -1, 147)endaddEvent(doMoveInArea2, 500, cid, 0, BigArea2, NORMALDAMAGE, min, max, spell, ret) elseif spell == "Sandstorm" thenlocal master = getCreatureMaster(cid) or 0local ret = {}ret.id = 0ret.cd = 9ret.eff = 239ret.check = 0ret.spell = spellret.cond = "Stun" for rocks = 1, 62 do addEvent(fall, rocks*35, cid, master, NORMALDAMAGE, -1, 239)endaddEvent(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) doDanoInTargetWithDelay(cid, target, FIREDAMAGE, min, max, 35) --alterado v2.7 elseif spell == "Guillotine" thendoDanoWithProtect(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 146)elseif spell == "Hyper Beam" then --alterado v2.7 \/local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)local p = getThingPosWithDebug(cid)local t = {[0] = {149, {x=p.x+1, y=p.y-1, z=p.z}},[1] = {150, {x=p.x+6, y=p.y+1, z=p.z}}, [2] = {149, {x=p.x+1, y=p.y+6, z=p.z}},[3] = {150, {x=p.x-1, y=p.y+1, z=p.z}}, }doMoveInArea2(cid, 0, triplo6, NORMALDAMAGE, min, max, spell)doSendMagicEffect(t[a][2], t[a][1]) elseif spell == "Water Gun" then --alterado v2.7 \/local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)local p = getThingPosWithDebug(cid)local t = {[0] = {72, {x=p.x+1, y=p.y-1, z=p.z}},[1] = {69, {x=p.x+6, y=p.y+1, z=p.z}}, [2] = {71, {x=p.x+1, y=p.y+6, z=p.z}},[3] = {70, {x=p.x-1, y=p.y+1, z=p.z}}, }doMoveInArea2(cid, 0, triplo6, WATERDAMAGE, min, max, spell)doSendMagicEffect(t[a][2], t[a][1]) elseif spell == "Hydro Cannon" then --alterado v2.7 \/local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)local p = getThingPosWithDebug(cid)local t = {[0] = {76, {x=p.x+1, y=p.y-1, z=p.z}},[1] = {73, {x=p.x+6, y=p.y+1, z=p.z}}, [2] = {74, {x=p.x+1, y=p.y+6, z=p.z}},[3] = {75, {x=p.x-1, y=p.y+1, z=p.z}}, }doMoveInArea2(cid, 0, triplo6, WATERDAMAGE, min, max, spell)doSendMagicEffect(t[a][2], t[a][1]) elseif spell == "Hydropump" then --alterado v2.7 \/local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)local p = getThingPosWithDebug(cid)local t = {[0] = {67, {x=p.x+1, y=p.y-1, z=p.z}},[1] = {64, {x=p.x+6, y=p.y+1, z=p.z}}, [2] = {65, {x=p.x+1, y=p.y+6, z=p.z}},[3] = {66, {x=p.x-1, y=p.y+1, z=p.z}}, }doMoveInArea2(cid, 0, triplo6, WATERDAMAGE, min, max, spell)doSendMagicEffect(t[a][2], t[a][1]) elseif spell == "Thrash" then --cid, effDist, effDano, areaEff, areaDano, element, min, maxdoMoveInAreaMulti(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" thenlocal ret = {}ret.id = 0ret.cd = 9ret.eff = 34ret.check = 0ret.spell = spellret.cond = "Miss" doMoveInArea2(cid, 116, muddy, WATERDAMAGE, min, max, spell, ret) elseif spell == "Venom Motion" thenlocal ret = {}ret.id = 0ret.cd = 9ret.eff = 34ret.check = 0ret.spell = spellret.cond = "Miss" doMoveInArea2(cid, 114, muddy, POISONDAMAGE, min, max, spell, ret) elseif spell == "Thunder Fang" then doSendMagicEffect(getThingPosWithDebug(target), 146) doDanoInTargetWithDelay(cid, target, ELECTRICDAMAGE, min, max, 48) --alterado v2.7 elseif spell == "Ancient Power" then local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid) if a == 0 then doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg1n, 0, 0, 157) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg2n, 0, 0, 157) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg3n, 0, 0, 157) -------- doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg1n, -min, -max, 94) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg2n, -min, -max, 93) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg3n, -min, -max, 95) elseif a == 2 then doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg1s, 0, 0, 157) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg2s, 0, 0, 157) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg3s, 0, 0, 157) -------- doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg1s, -min, -max, 91) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg2s, -min, -max, 93) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg3s, -min, -max, 92) elseif a == 1 then doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg1e, 0, 0, 157) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg2e, 0, 0, 157) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg3e, 0, 0, 157) --------- doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg1e, -min, -max, 86) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg2e, -min, -max, 88) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg3e, -min, -max, 87) elseif a == 3 then doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg1w, 0, 0, 157) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg2w, 0, 0, 157) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg3w, 0, 0, 157) -------- doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg1w, -min, -max, 89) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg2w, -min, -max, 88) doAreaCombatHealth(cid, ROCKDAMAGE, getThingPosWithDebug(cid), wg3w, -min, -max, 90) end 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, 207) doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2n, 0, 0, 207) doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3n, 0, 0, 207) -------- 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, 207) doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2s, 0, 0, 207) doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3s, 0, 0, 207) -------- 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, 207) doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2e, 0, 0, 207) doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3e, 0, 0, 207) --------- 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, 207) doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg2w, 0, 0, 207) doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPosWithDebug(cid), wg3w, 0, 0, 207) -------- 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 v2.6 elseif spell == "Blaze Kick" thendoMoveInArea2(cid, 6, blaze, FIREDAMAGE, min, max, spell) addEvent(doMoveInArea2, 200, cid, 6, kick, FIREDAMAGE, min, max, spell) elseif spell == "Cross Chop" thendoMoveInArea2(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 == "Twister" thendoMoveInAreaMulti(cid, 23, 165, bullet, bulletDano, DRAGONDAMAGE, min, max)elseif spell == "Multi-Kick" thendoMoveInAreaMulti(cid, 39, 113, multi, multiDano, FIGHTINGDAMAGE, min, max)elseif spell == "Multi-Punch" thendoMoveInAreaMulti(cid, 39, 112, multi, multiDano, FIGHTINGDAMAGE, min, max) elseif spell == "Squisky Licking" then local ret = {}ret.id = 0ret.cd = 9ret.check = 0ret.eff = 0ret.spell = spellret.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)endelseif spell == "Lick" thenlocal ret = {}ret.id = targetret.cd = 9ret.check = getPlayerStorageValue(target, conds["Stun"])ret.eff = 0ret.spell = spellret.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) doDanoInTargetWithDelay(cid, target, GROUNDDAMAGE, min, max, 227) --alterado v2.7 addEvent(doSendDistanceShoot, 250, getThingPosWithDebug(target), getThingPosWithDebug(cid), 7)elseif spell == "Bone Club" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 7) doDanoInTargetWithDelay(cid, target, GROUNDDAMAGE, min, max, 118) --alterado v2.7 elseif spell == "Bone Slash" thenlocal 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.4elseif 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" thenlocal master = isSummon(cid) and getCreatureMaster(cid) or cidlocal ret = {}ret.id = 0ret.cd = 9ret.eff = 34ret.check = 0ret.spell = spellret.cond = "Miss"local function doFall(cid)for rocks = 1, 42 do addEvent(fall, rocks*35, cid, master, POISONDAMAGE, 6, 116)endendfor 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 == "Mach Punch" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 26) 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, 64) 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" thenlocal master = isSummon(cid) and getCreatureMaster(cid) or cidlocal function doFall(cid)for rocks = 1, 42 do --62 addEvent(fall, rocks*35, cid, master, ghostDmg, 18, 140)endendfor up = 1, 10 do addEvent(upEffect, up*75, cid, 18)endaddEvent(doFall, 450, cid)addEvent(doMoveInArea2, 1400, cid, 2, BigArea2, ghostDmg, min, max, spell)elseif spell == "Invisible" thendoDisapear(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)endaddEvent(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 v2.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" thendoSendMagicEffect(getThingPosWithDebug(cid), 47)setPlayerStorageValue(cid, 999457, 1) elseif spell == "Elemental Hands" thenif getCreatureOutfit(cid).lookType == 1301 thenprint("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 trueend --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" thendoDanoWithProtect(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" thenlocal roardirections = { [NORTH] = {SOUTH},[sOUTH] = {NORTH},[WEST] = {EAST},[EAST] = {WEST}}local function divineBack(cid)if not isCreature(cid) then return true endlocal 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 endlocal function doDivine(cid, min, max, spell, rounds, area)if not isCreature(cid) then return true endlocal ret = {}ret.id = 0ret.check = 0ret.cd = roundsret.cond = "Confusion" for i = 1, 9 do addEvent(doMoveInArea2, i*500, cid, 137, area[i], psyDmg, min, max, spell, ret)endend 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 spell == "Zapdos" thenlocal roardirections = { [NORTH] = {SOUTH},[sOUTH] = {NORTH},[WEST] = {EAST},[EAST] = {WEST}}local function divineBack(cid)if not isCreature(cid) then return true endlocal 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 endlocal function doDivine(cid, min, max, spell, rounds, area)if not isCreature(cid) then return true endlocal ret = {}ret.id = 0ret.check = 0ret.cd = roundsret.cond = "Confusion" for i = 1, 9 do addEvent(doMoveInArea2, i*500, cid, 260, area[i], psyDmg, min, max, spell, ret)endend 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, 260) 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", "Plusle Charge", "Minun Charge"}, 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" thendoMoveInArea2(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) doDanoWithProtectWithDelay(cid, target, GHOSTDAMAGE, -min, -max, 0) addEvent(doMoveDano2, 200, cid, target, GHOSTDAMAGE, 0, 0, ret, spell)elseif spell == "Leaf Blade" thenlocal 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" thenpos = 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" thendoSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 20)doDanoInTargetWithDelay(cid, target, NORMALDAMAGE, -min, -max, 242) --alterado v2.7elseif spell == "Draco Meteor" thenlocal effD = 5local eff = 248local master = isSummon(cid) and getCreatureMaster(cid) or cidlocal function doFall(cid)for rocks = 5, 42 do addEvent(fall, rocks*35, cid, master, DRAGONDAMAGE, effD, eff)endendfor up = 1, 10 do addEvent(upEffect, up*75, cid, effD)endaddEvent(doFall, 450, cid)addEvent(doDanoWithProtect, 1400, cid, DRAGONDAMAGE, getThingPosWithDebug(cid), waterarea, -min, -max, 0)elseif spell == "Dragon Pulse" thenlocal 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)endendfor a = 0, 3 dolocal 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])endelseif spell == "Psy Ball" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 3) doDanoInTargetWithDelay(cid, target, psyDmg, min, max, 250) --alterado v2.7elseif spell == "SmokeScreen" thenlocal ret = {}ret.id = 0ret.cd = 9ret.eff = 34ret.check = 0ret.spell = spellret.cond = "Miss"local function smoke(cid)if not isCreature(cid) then return true endif isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false endif isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end doMoveInArea2(cid, 34, confusion, NORMALDAMAGE, 0, 0, spell, ret)endsetPlayerStorageValue(cid, 3644587, 1)addEvent(setPlayerStorageValue, 1000, cid, 3644587, -1) for i = 0, 2 do addEvent(smoke, i*500, cid) endelseif spell == "Fire Spin" thenlocal ret = {}ret.id = 0ret.cd = 9ret.eff = 15ret.check = 0ret.spell = spelllocal function smoke(cid)if not isCreature(cid) then return true endif isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false endif isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end doMoveInArea2(cid, 35, confusion, FIREDAMAGE, min, max, spell)endsetPlayerStorageValue(cid, 3644587, 1)addEvent(setPlayerStorageValue, 1000, cid, 3644587, -1) for i = 0, 2 do addEvent(smoke, i*500, cid) endelseif spell == "Faint Attack" or spell == "Sucker Punch" then --alterado v2.5 doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39) doDanoInTargetWithDelay(cid, target, DARKDAMAGE, min, max, 237) --alterado v2.7elseif spell == "Assurance" thenlocal 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)endendfor a = 0, 3 dolocal 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])endelseif spell == "Scary Face" thenlocal ret = {}ret.id = 0ret.cd = 9ret.check = 0ret.eff = 0ret.spell = spellret.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" thenlocal 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" thenlocal ret = {}ret.id = 0ret.cd = 9ret.check = 0ret.eff = 39ret.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")enddoCureStatus(cid, "all")setPlayerStorageValue(cid, 253, 1) --focusdoMoveInArea2(cid, 0, confusion, NORMALDAMAGE, 0, 0, spell, ret)elseif isInArray({"Pursuit", "ExtremeSpeed", "Aqua Jet", "U-Turn", "Quick Attack", "Shell Attack"}, spell) thenlocal atk = {["Pursuit"] = {17, DARKDAMAGE},["ExtremeSpeed"] = {50, NORMALDAMAGE, 51},["U-Turn"] = {19, BUGDAMAGE},["Shell Attack"] = {45, BUGDAMAGE}, --alterado v2.5["Quick Attack"] = {54, NORMALDAMAGE},["Aqua Jet"] = {55, WATERDAMAGE}}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 v2.6else eff = getCreatureName(cid) == "Shiny Arcanine" and atk[spell][3] or atk[spell][1]endlocal 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(doDanoInTarget, 400, cid, target, damage, -min, -max, 0) --alterado v2.7addEvent(doSendDistanceShoot, 800, p, pos, eff)addEvent(doSendMagicEffect, 850, pos, 211)addEvent(doRegainSpeed, 1000, cid)addEvent(doAppear, 1000, cid)elseif spell == "Egg Rain" thenlocal effD = 12local eff = 5local 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)endendfor up = 1, 10 do addEvent(upEffect, up*75, cid, effD)endaddEvent(doFall, 450, cid)addEvent(doDanoWithProtect, 1400, cid, NORMALDAMAGE, getThingPosWithDebug(cid), waterarea, -min, -max, 0)elseif spell == "Air Cutter" thenlocal 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)endendfor a = 0, 5 dolocal 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])endelseif spell == "Venom Gale" thenlocal 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" thendoMoveInArea2(cid, 146, Crunch1, DARKDAMAGE, min, max, spell)addEvent(doMoveInArea2, 300, cid, 146, Crunch2, DARKDAMAGE, min, max, spell)elseif spell == "Ice Fang" thendoTargetCombatHealth(cid, target, ICEDAMAGE, 0, 0, 146)addEvent(doDanoWithProtect, 250, cid, ICEDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 17)elseif spell == "Psyshock" thenlocal 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.4endendfor a = 0, 4 dolocal 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])endelseif spell == "Hurricane" thenlocal 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) enddoSetCreatureOutfit(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.4endelseif spell == "Erupcao" thenlocal function erupcao(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, 5, bombWee1, FIREGDAMAGE, min, max, spell) enddoSetCreatureOutfit(cid, {lookType = 1587}, 10000)setPlayerStorageValue(cid, 3644587, 1)addEvent(setPlayerStorageValue, 17*600, cid, 3644587, -1) for i = 1, 17 do addEvent(erupcao, i*600, cid) --alterado v1.4endelseif spell == "Aromateraphy" or spell == "Emergency Call" theneff = spell == "Aromateraphy" and 14 or 13doAreaCombatHealth(cid, GRASSDAMAGE, getThingPosWithDebug(cid), bombWee3, 0, 0, eff)if isSummon(cid) then doCureBallStatus(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "all")enddoCureStatus(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 endendelseif 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" thensendDistanceShootWithProtect(cid, getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)doDanoInTargetWithDelay(cid, target, FLYINGDAMAGE, min, max, 3) --alterado v2.7elseif spell == "Rolling Kick" or spell == "Night Daze" thenlocal pos = getThingPosWithDebug(cid)local eff = spell == "Night Daze" and 222 or 113local dmg = spell == "Night Daze" and DARKDAMAGE or FIGHTINGDAMAGElocal out = getSubName(cid, target) == "Hitmontop" and 1193 or 1451 --alterado v2.6.1 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"}, getSubName(cid, target)) then --alterado v2.6.1 doSetCreatureOutfit(cid, {lookType = out}, 400) end addEvent(doDanoWithProtect, 150, cid, dmg, pos, waterarea, -min, -max, 0) elseif spell == "Safeguard" thendoSendMagicEffect(getThingPosWithDebug(cid), 133)if isSummon(cid) then doCureBallStatus(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "all")enddoCureStatus(cid, "all") elseif spell == "Air Slash" thenlocal 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])enddoDanoWithProtect(cid, FLYINGDAMAGE, getThingPosWithDebug(cid), airSlash, -min, -max, 0) for i = 1, 4 do addEvent(doSendMagicEffect, 400, t[i][1][2], t[i][1][1])endaddEvent(doDanoWithProtect, 400, cid, FLYINGDAMAGE, getThingPosWithDebug(cid), bombWee2, -min, -max, 0)elseif spell == "Feather Dance" then --alterado v2.7 \/local function doPulse(cid, eff)if not isCreature(cid) or not isCreature(target) then return true end doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 9) doDanoInTargetWithDelay(cid, target, FLYINGDAMAGE, -min, -max, eff) end 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 == "Double Team" then local function RemoveTeam(cid, master) if isCreature(cid) then local p = getThingPosWithDebug(cid) doSendMagicEffect(p, 211) doRemoveCreature(cid) end end if getPlayerStorageValue(cid, 637500) >= 1 then return true end local s = { ["Xatu"] = "XatuTeam", ["Yanma"] = "YanmaTeam", ["Yanmega"] = "YanmegaTeam", ["Taillow"] = "TaillowTeam", ["Swellow"] = "SwellowTeam", ["Ralts"] = "RaltsTeam", ["Kirlia"] = "KirliaTeam", ["Gardevoir"] = "GardevoirTeam", ["Ninjask"] = "NinjaskTeam", ["Volbeat"] = "VolbeatTeam", ["Absol"] = "AbsolTeam", ["Snorunt"] = "SnoruntTeam", ["Glalie"] = "GlalieTeam", ["Delcatty"] = "DelcattyTeam", ["Gallade"] = "GalladeTeam", } local master = getCreatureMaster(cid) local item = getPlayerSlotItem(master, 8) local pos = getThingPosWithDebug(cid) local time = 20 local pokelife = (getCreatureHealth(cid) / getCreatureMaxHealth(cid)) local random = math.random(5, 10) local dir = getCreatureLookDir(cid) --------- doItemSetAttribute(item.uid, "hp", pokelife) --------- doDisapear(cid) doTeleportThing(cid, {x=4, y=3, z=10}, false) doAppear(cid) --------- doSummonMonster(master, s[getSubName(cid, target)]) --alterado v2.6.1 local pk = getCreatureSummons(master)[2] adjustStatus(pk, item.uid, true, true, true) --------- doTeleportThing(pk, getClosestFreeTile(pk, pos), false) doTeleportThing(cid, getClosestFreeTile(cid, pos), false) doCreatureSetLookDir(pk, dir) doCreatureSetLookDir(cid, dir) doSendMagicEffect(getThingPosWithDebug(pk), 211) doSendMagicEffect(getThingPosWithDebug(cid), 211) if getPlayerStorageValue(cid, 9658783) >= 1 then --gambiarra doSetCreatureOutfit(cid, {lookType = 1446}, -1) end -------- setPlayerStorageValue(pk, 637500, 1) setPlayerStorageValue(master, 637501, 1) addEvent(RemoveTeam, time*1000, pk, master) addEvent(setPlayerStorageValue, time*1000, master, 637501, -2) --alterado v2.6elseif spell == "Tackle" then doDanoWithProtect(cid, NORMALDAMAGE, getThingPosWithDebug(target), 0, -min, -max, 111)elseif spell == "Giga Drain" thenlocal 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" thenlocal 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)endendfor a = 0, 3 dolocal 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" thenlocal ret = {}ret.id = 0ret.cd = 9ret.check = 0ret.eff = 34ret.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" thenlocal ret = {}ret.id = targetret.cd = math.random(6, 9)ret.check = getPlayerStorageValue(target, conds["Sleep"])ret.first = trueret.cond = "Sleep" doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 11) addEvent(doMoveDano2, 1500, cid, target, NORMALDAMAGE, 0, 0, ret, spell)elseif spell == "Tongue Hook" thensendDistanceShootWithProtect(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" thenlocal function distEff(cid, target)if not isCreature(cid) or not isCreature(target) or not isSilence(target) then return true end --alterado v2.6 sendDistanceShootWithProtect(cid, getThingPosWithDebug(target), getThingPosWithDebug(cid), 38)endlocal ret = {}ret.id = targetret.cd = 10ret.check = getPlayerStorageValue(target, conds["Silence"])ret.eff = 185ret.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 v2.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) doDanoInTargetWithDelay(cid, target, FIGHTINGDAMAGE, min, max, 113) --alterado v2.7 elseif spell == "Present" thenlocal function sendHeal(cid)if isCreature(cid) and isCreature(target) then doAreaCombatHealth(cid, NORMALDAMAGE, getThingPosWithDebug(target), crusher, min, max, 5) doSendAnimatedText(getThingPosWithDebug(target), "HEALTH!", 65)endend 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" thenlocal ret = {}ret.id = targetret.cd = 10ret.check = getPlayerStorageValue(target, conds["Silence"])ret.eff = 104ret.cond = "Silence"doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 39)addEvent(doMoveDano2, 150, cid, target, NORMALDAMAGE, 0, 0, ret, spell)elseif spell == "Rock n'Roll" thenlocal pos = getThingPosWithDebug(cid)local areas = {rock1, rock2, rock3, rock4, rock5, rock4, rock3, rock2, rock1}local ret = {}ret.id = 0ret.cd = 9ret.eff = 1ret.check = 0ret.spell = spellret.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)endelseif spell == "Power Wave" then local pos = getThingPosWithDebug(cid)local areas = {rock1, rock2, rock3, rock4, rock5}local ret = {}ret.id = 0ret.cd = 9ret.eff = 103ret.check = 0ret.first = trueret.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)endendenddoSetCreatureOutfit(cid, {lookType = 1001}, -1)setPlayerStorageValue(cid, 9658783, 1)addEvent(sendAtk, 2000, cid) elseif spell == "Ralts Psychic" then local pos = getThingPosWithDebug(cid)local areas = {rock1, rock2, rock3, rock4, rock5}local ret = {}ret.id = 0ret.cd = 9ret.eff = 103ret.check = 0ret.first = trueret.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)endendenddoSetCreatureOutfit(cid, {lookType = 1651}, -1)setPlayerStorageValue(cid, 9658783, 1)addEvent(sendAtk, 2000, cid) elseif spell == "Kirlia Psychic" then local pos = getThingPosWithDebug(cid)local areas = {rock1, rock2, rock3, rock4, rock5}local ret = {}ret.id = 0ret.cd = 9ret.eff = 103ret.check = 0ret.first = trueret.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)endendenddoSetCreatureOutfit(cid, {lookType = 1652}, -1)setPlayerStorageValue(cid, 9658783, 1)addEvent(sendAtk, 2000, cid) elseif spell == "Gardevoir Psychic" then local pos = getThingPosWithDebug(cid)local areas = {rock1, rock2, rock3, rock4, rock5}local ret = {}ret.id = 0ret.cd = 9ret.eff = 103ret.check = 0ret.first = trueret.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)endendenddoSetCreatureOutfit(cid, {lookType = 1650}, -1)setPlayerStorageValue(cid, 9658783, 1)addEvent(sendAtk, 2000, cid) elseif spell == "Ground Crusher" thenlocal 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) endenddoSetCreatureOutfit(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)endfor 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)endfor 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)endfor 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)endfor 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)endelseif spell == "Last Resort" thenlocal 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)endelseif spell == "Psy Impact" thenlocal master = getCreatureMaster(cid) or 0local ret = {}ret.id = 0ret.cd = 9ret.eff = 0ret.check = 0ret.spell = spellret.cond = "Miss" for rocks = 1, 42 do addEvent(fall, rocks*35, cid, master, psyDmg, -1, 98)endaddEvent(doMoveInArea2, 500, cid, 0, BigArea2, psyDmg, min, max, spell, ret) elseif spell == "Two Face Shock" thenlocal 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" thenlocal eff = {16, 221, 223, 243}for rocks = 1, 32 do addEvent(fall, rocks*22, cid, master, FLYINGDAMAGE, -1, eff[math.random(1, 4)])endaddEvent(doMoveInArea2, 500, cid, 0, BigArea2, FLYINGDAMAGE, min, max, spell) elseif spell == "Echoed Voice" thenlocal 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)endendfor a = 0, 5 dolocal 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" or spell == "Redemuinho" or spell == "Dragon Dance" thenlocal 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},["Redemuinho"] = {57, 206, WATERDAMAGE},["Dragon Dance"] = {5, 249, DRAGONDAMAGE},}local ret = {} ret.id = 0ret.cd = 12ret.eff = 48ret.check = 0ret.spell = spellret.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 v2.6endend 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 v2.6endendlocal function doTornado(cid)if isCreature(cid) thenfor 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) endendendendif spell == "Electro Field" then addEvent(doMoveInArea2, 1000, cid, 0, electro, ELECTRICDAMAGE, 0, 0, spell, ret)endfor b = 0, 2 do addEvent(doTornado, b*1500, cid)endelseif spell == "Seed Bomb" then --alterado v2.6local master = isSummon(cid) and getCreatureMaster(cid) or cidlocal function doFall(cid)for rocks = 1, 42 do --62 addEvent(fall, rocks*35, cid, master, SEED_BOMBDAMAGE, 1, 54)endendfor up = 1, 10 do addEvent(upEffect, up*75, cid, 1)endaddEvent(doFall, 450, cid)addEvent(doMoveInArea2, 1400, cid, 2, BigArea2, SEED_BOMBDAMAGE, min, max, spell)elseif spell == "Reverse Earthshock" then ---alterado v2.7 \/\/local p = getThingPosWithDebug(cid)p.x = p.x+1p.y = p.y+1sendEffWithProtect(cid, p, 151) --send efflocal function doDano(cid)local pos = getThingPosWithDebug(cid) local function doSendBubble(cid, pos) if not isCreature(cid) then return true end doSendDistanceShoot(getThingPosWithDebug(cid), pos, 39) doSendMagicEffect(pos, 239) 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 addEvent(doDanoWithProtect, 150, cid, ROCKDAMAGE, pos, waterarea, -min, -max, 0)endaddEvent(doDano, 1250, cid)elseif spell == "Outrage" then ---alterado v2.7 \/\/local p = getThingPosWithDebug(cid)p.x = p.x+1p.y = p.y+1sendEffWithProtect(cid, p, 241) --send efflocal function doDano(cid)local pos = getThingPosWithDebug(cid) local function doSendBubble(cid, pos) if not isCreature(cid) then return true end doSendDistanceShoot(getThingPosWithDebug(cid), pos, 5) doSendMagicEffect(pos, 248) 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 addEvent(doDanoWithProtect, 150, cid, DRAGONDAMAGE, pos, waterarea, -min, -max, 0)endaddEvent(doDano, 1250, cid)elseif spell == "Fury Swipes" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 23) doDanoInTargetWithDelay(cid, target, NORMALDAMAGE, min, max, 152) elseif spell == "Lava Plume" then --alterado v2.8 \/\/\/doMoveInArea2(cid, 5, cross, FIREDAMAGE, -min, -max, spell)doMoveInArea2(cid, 19, cross, FIREDAMAGE, 0, 0, spell)elseif spell == "Outrage" then ---alterado v2.7 \/\/local p = getThingPosWithDebug(cid)p.x = p.x+1p.y = p.y+1sendEffWithProtect(cid, p, 241) --send efflocal function doDano(cid)local pos = getThingPosWithDebug(cid) local function doSendBubble(cid, pos) if not isCreature(cid) then return true end doSendDistanceShoot(getThingPosWithDebug(cid), pos, 5) doSendMagicEffect(pos, 248) 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 addEvent(doDanoWithProtect, 150, cid, DRAGONDAMAGE, pos, waterarea, -min, -max, 0)endaddEvent(doDano, 1250, cid) elseif spell == "Poison Jab" then doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 15) doDanoInTargetWithDelay(cid, target, POISONDAMAGE, min, max, 153) elseif spell == "Cross Poison" thendoMoveInArea2(cid, 153, cross, POISONDAMAGE, -min, -max, spell)elseif spell == "Hydro Dance" then local eff = {155, 154, 53, 155, 53} local area = {psy1, psy2, psy3, psy4, psy5} --n sei se eh essa a area xD 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], WATERDAMAGE, min, max, spell) end elseif spell == "Waterfall" thenlocal function sendStickEff(cid, dir) if not isCreature(cid) then return true end doAreaCombatHealth(cid, WATERDAMAGE, getPosByDir(getThingPosWithDebug(cid), dir), 0, -min, -max, 155) 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 * 200, cid, t[a]) end end stopNow(cid, 1800) doStick(cid, false, cid) elseif spell == "Gyro Ball" thenlocal ret = {}ret.id = 0ret.cd = 9ret.check = 0ret.eff = 0ret.spell = spellret.cond = "Stun"stopNow(cid, 2000)doMoveInArea2(cid, 156, reto5, STEELDAMAGE, min, max, spell, ret) elseif spell == "Rock Tomb" thenlocal ret = {}ret.id = targetret.cd = 9ret.eff = 0ret.check = getPlayerStorageValue(target, conds["Slow"])ret.first = trueret.cond = "Slow" 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, pos, 39) addEvent(doMoveDano2, ry * 11, cid, target, ROCKDAMAGE, min, max, ret, spell) addEvent(sendEffWithProtect, ry*11, cid, pos, 157) 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, 39) addEvent(doRockFall, rd * 49, cid, topos, target) end addEvent(doRockUp, 155, cid, target) elseif spell == "Sand Tomb" thenlocal ret = {}ret.id = 0ret.cd = 9ret.eff = 34ret.check = 0ret.spell = spellret.cond = "Miss"doMoveInAreaMulti(cid, 22, 158, bullet, bulletDano, GROUNDDAMAGE, min, max, ret)elseif spell == "Rain Dance" thenlocal master = isSummon(cid) and getCreatureMaster(cid) or cid------------local ret = {}ret.id = 0ret.cd = 9ret.check = 0ret.eff = 1ret.cond = "Silence"---local function doFall(cid)for rocks = 1, 42 do --62 addEvent(fall, rocks*35, cid, master, WATERDAMAGE, 52, 1)endend---local function doRain(cid)if isSummon(cid) then doCureBallStatus(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "all")end --cura statusdoCureStatus(cid, "all")---setPlayerStorageValue(cid, 253, 1) --focusdoSendMagicEffect(getThingPosWithDebug(cid), 132)---doMoveInArea2(cid, 0, confusion, WATERDAMAGE, 0, 0, spell, ret)end---addEvent(doFall, 200, cid)addEvent(doRain, 1000, cid)elseif spell == "Night Slash" thenlocal p = getThingPosWithDebug(cid)local t = {{251, {x = p.x+1, y = p.y-1, z = p.z}},{253, {x = p.x+2, y = p.y+1, z = p.z}},{252, {x = p.x+1, y = p.y+2, z = p.z}},{254, {x = p.x-1, y = p.y+1, z = p.z}},}doAreaCombatHealth(cid, DARKDAMAGE, p, scyther5, -min, -max, 165)for a = 0, 1 do for i = 1, 4 do addEvent(doSendMagicEffect, a*200, t[i][2], t[i][1]) endendaddEvent(doAreaCombatHealth, 200, cid, DARKDAMAGE, p, scyther5, -min, -max, 165)elseif spell == "Wild Charge" thenlocal ret = {} ret.id = 0ret.cd = 9ret.eff = 48ret.check = 0ret.spell = spellret.cond = "Stun"local pos = getThingPosWithDebug(cid)local areas = {rock5, rock4, rock3, rock2, rock1, rock5, rock4, rock3, rock2, rock1, rock5, rock4, rock3, rock2, rock1}for i = 0, 14 do addEvent(doMoveInArea2, i*320, cid, 207, areas[i+1], ELECTRICDAMAGE, min, max, spell, ret) addEvent(doMoveInArea2, i*330, cid, 207, areas[i+1], ELECTRICDAMAGE, 0, 0, spell)endelseif spell == "Jump Kick" then doMoveInAreaMulti(cid, 42, 113, bullet, bulletDano, FIGHTINGDAMAGE, min, max)--/////////////////////// 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["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["Squirtle"] = {out = 1195, 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 = getSubName(cid, target) --alterado v2.6.1 local outfitt = OutFit[nome1] --alterado v2.6.1 local function damage(cid, min, max) if isCreature(cid) then if isInArray({"Scyther", "Shiny Scyther", "Pineco"}, nome1) then --alterado v2.6 damage = BUGDAMAGE elseif isInArray({"Hitmontop", "Shiny Hitmontop"}, nome1) then damage = FIGHTINGDAMAGE --alterado v2.6.1 else damage = STEELDAMAGE end doAreaCombatHealth(cid, damage, getThingPosWithDebug(cid), scyther5, -min, -max, CONST_ME_NONE) --alterado v2.6.1 --- 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 v2.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 v2.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 v2.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 v2.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}, --alterado v1.5["Electabuzz"] = {207, ELECTRICDAMAGE, 1462},["Shiny 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[getSubName(cid, target)] --alterado v2.6.1 local canDoStun = false if math.random(1, 100) <= 30 then --alterado v2.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 v2.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 v2.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) for _,pid in pairs(uid) do if isCreature(cid) and isCreature(pid) and pid ~= cid then if isPlayer(pid) and #getCreatureSummons(pid) >= 1 then return false end local life = getCreatureHealth(pid) doAreaCombatHealth(cid, GRASSDAMAGE, getThingPos(pid), 0, -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 end elseif spell == "Melody" thenlocal ret = {}ret.id = 0ret.cd = math.random(6, 8)ret.check = 0ret.first = true --alterado v2.6ret.cond = "Sleep" doMoveInArea2(cid, 33, selfArea1, NORMALDAMAGE, 0, 0, "Melody", ret)elseif spell == "Spores Reaction" thenlocal random = math.random(1, 3) if random == 1 then local ret = {} ret.id = 0 ret.cd = math.random(2, 3) ret.check = 0 --alterado v2.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 v2.6 ret.damage = math.floor((getPokemonLevel(cid)+lvl)/2) ret.cond = "Poison" doMoveInArea2(cid, 84, confusion, NORMALDAMAGE, 0, 0, "Spores Reaction", ret) endelseif 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"}, getSubName(cid, target)) then --alterado v2.6.1 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 = {["Hitmonlee"] = 652, --hitmonlee["Shiny Hitmonlee"] = 878, --shiny hitmonlee} local nome = getCreatureName(cid) --alterado v2.7if (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 v2.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 v2.6 doCreatureSetLookDir(cid, getCreatureDirectionToTarget(cid, target)) doSetCreatureOutfit(cid, {lookType = look}, -1) --alterado v2.6 doTargetCombatHealth(cid, target, FIGHTINGDAMAGE, -min, -max, 255) addEvent(doChangeHitmon, 700, cid) endelseif spell == "Demon Puncher" then local name = getCreatureName(cid) --alterado v2.7if (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 v2.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[getCreatureName(target)][hands] else 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 v2.7 if hands == 4 then doSendMagicEffect(alvo, tabela.eff) --alterado v2.7 else doSendMagicEffect(getThingPosWithDebug(target), tabela.eff) end if hands == 3 then local ret = {} ret.id = target ret.cd = 9 --alterado v2.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 endendreturn true end

Parabêns Otimo trabalho merece meu rep+