Ir para conteúdo

Magias Pokemon (M1,m2...)


wr1000

Posts Recomendados

Olá a todos do Xtibia que sempre me ajudam aqui vai mais um pedido de ajuda =)

 

Eu tenho algumas magias de m1,m2 etc que não estão fazendo o que deveriam fazer por exemplo, a magia Healarea do Chansey que no meu server é no m5 não heala todos como deveria fazer só heala a si mesmo. Meu Sleep Powder que está no m8 não faz o pokemon dormir só tira um hitzinho e mais nada. E por último o Poison Powder no m10 que tbm só tira um hitzinho não fica com aquele efeito de poison perdendo hp aos poucos. Não sei se é facil ou dificil arrumar isso ou conseguir um script melhor mas peço a ajuda de vcs assim mesmo. Obrigado desde já a quem me ajudar.

 

Não sei se vai ajudar mas vou colocar os (m1, m2 etc) referente as magias que citei acima pra derrepente vcs possam identificar o que está errado.

 

Healarea

 

local thunderwavecondition = createConditionObject(CONDITION_PARALYZE)

setConditionParam(thunderwavecondition, CONDITION_PARAM_TICKS, 9000)

setConditionFormula(thunderwavecondition, -0.75, -0.75, -0.75, -0.75)

 

------SLEEP POWNDER

local sleepcondition = createConditionObject(CONDITION_PARALYZE)

setConditionParam(sleepcondition, CONDITION_PARAM_TICKS, 10000) -- 5 segundos

setConditionParam(sleepcondition, CONDITION_PARAM_SPEED, -5000) -- paralizado

setConditionFormula(sleepcondition, -0.9, 0, -0.9, 0)

 

 

 

 

local confusion = createCombatArea{

{0, 1, 1, 1, 0},

{1, 1, 1, 1, 1},

{1, 1, 2, 1, 1},

{1, 1, 1, 1, 1},

{0, 1, 1, 1, 0}

}

 

local waba = createCombatArea{

{0, 1, 1, 1, 0},

{1, 1, 1, 1, 1},

{1, 1, 3, 1, 1},

{1, 1, 1, 1, 1},

{0, 1, 1, 1, 0}

}

 

local scyther = {lookType = 15}

 

local swaven = createCombatArea{

{0, 0, 0, 0, 0},

{0, 0, 0, 0, 0},

{0, 0, 3, 0, 0},

{0, 0, 1, 0, 0},

{0, 0, 1, 0, 0}

}

 

local swaves = createCombatArea{

{0, 0, 0, 0, 0},

{0, 0, 0, 0, 0},

{0, 1, 2, 0, 0},

{0, 1, 0, 0, 0},

{0, 1, 0, 0, 0}

}

 

local swavee = createCombatArea{

{0, 0, 0, 0, 0},

{0, 0, 0, 0, 0},

{0, 0, 2, 0, 0},

{1, 1, 1, 0, 0},

{0, 0, 0, 0, 0}

}

 

local swavew = createCombatArea{

{0, 0, 0, 0, 0},

{0, 0, 0, 0, 0},

{0, 0, 3, 1, 1},

{0, 0, 0, 0, 0},

{0, 0, 0, 0, 0}

}

 

local charge = createCombatArea{

{1, 1, 1},

{1, 2, 1},

{1, 1, 1},

}

 

local tsn = createCombatArea{

{0, 0, 0, 2, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 1, 1, 1, 1, 1, 0},

}

local tss = createCombatArea{

{0, 1, 1, 1, 1, 1, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 2, 0, 0, 0},

}

local tse = createCombatArea{

{0, 0, 1, 0, 0, 0, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 1, 1, 1, 1, 2},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 1, 0, 0, 0, 0},

}

local tsw = createCombatArea{

{0, 0, 0, 0, 0, 0, 1},

{0, 0, 0, 0, 1, 1, 1},

{0, 0, 2, 1, 1, 1, 1},

{0, 0, 0, 0, 1, 1, 1},

{0, 0, 0, 0, 0, 0, 1},

}

 

local iwn = createCombatArea{

{0, 0, 0, 2, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 1, 0, 1, 0, 1, 0},

}

local iws = createCombatArea{

{0, 1, 0, 1, 0, 1, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 2, 0, 0, 0},

}

local iwe = createCombatArea{

{0, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 1, 0, 0},

{0, 0, 1, 1, 1, 1, 2},

{0, 0, 0, 1, 1, 0, 0},

{0, 0, 1, 0, 0, 0, 0},

}

local iww = createCombatArea{

{0, 0, 0, 0, 0, 0, 1},

{0, 0, 0, 0, 1, 1, 0},

{0, 0, 2, 1, 1, 1, 1},

{0, 0, 0, 0, 1, 1, 0},

{0, 0, 0, 0, 0, 0, 1},

}

 

local bomb = createCombatArea{

{1, 1, 1},

{1, 3, 1},

{1, 1, 1},

}

 

local thunder = createCombatArea{

{1, 0, 0, 1, 0, 0, 1},

{0, 1, 0, 1, 0, 1, 0},

{0, 0, 1, 1, 1, 0, 0},

{1, 1, 1, 2, 1, 1, 1},

{0, 0, 1, 1, 1, 0, 0},

{0, 1, 0, 1, 0, 1, 0},

{1, 0, 0, 1, 0, 0, 1},

}

 

local gl1 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0},

{0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0},

{0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0},

{0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0},

{0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local gl2 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0},

{0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 2, 1, 0, 1, 0, 0},

{0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0},

{0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

 

local destruct1 = createCombatArea{

{0, 0, 1, 0, 0},

{0, 1, 1, 1, 0},

{1, 1, 3, 1, 1},

{0, 1, 1, 1, 0},

{0, 0, 1, 0, 0}

}

 

local destruct2 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0},

{0, 0, 1, 0, 0, 3, 0, 0, 1, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

 

local destruct3 = createCombatArea{

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0},

{0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0},

{0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0},

{1, 1, 0, 0, 0, 3, 0, 0, 0, 1, 1},

{0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0},

{0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0},

{0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}

}

 

local stomp = createCombatArea{

{1, 0, 1, 0, 1},

{0, 1, 1, 1, 0},

{1, 1, 2, 1, 1},

{0, 1, 1, 1, 0},

{1, 0, 1, 0, 1}

}

 

local toxicn = createCombatArea{

{0, 2, 0},

{0, 1, 0},

{0, 1, 0},

{0, 1, 0},

{0, 1, 0},

}

 

local toxics = createCombatArea{

{0, 1, 0},

{0, 1, 0},

{0, 1, 0},

{0, 1, 0},

{0, 2, 0},

}

 

local toxice = createCombatArea{

{0, 1, 1, 1, 1, 2},

}

 

local toxicw = createCombatArea{

{2, 1, 1, 1, 1, 0},

}

 

local sand1 = createCombatArea{

{0, 0, 0},

{0, 3, 0},

{0, 0, 0},

}

 

local whirl3 = createCombatArea{

{0, 0, 0},

{1, 3, 1},

{0, 0, 0},

}

 

local whirl5 = createCombatArea{

{0, 0, 0, 0, 0},

{1, 1, 3, 1, 1},

{0, 0, 0, 0, 0},

}

 

local whirl32 = createCombatArea{

{0, 0, 0},

{1, 3, 1},

{0, 0, 0},

}

 

local whirl52 = createCombatArea{

{0, 0, 0, 0, 0},

{1, 1, 3, 1, 1},

{0, 0, 0, 0, 0},

}

 

local flamen = createCombatArea{

{0, 0, 2, 0, 0},

{0, 1, 1, 1, 0},

{0, 1, 1, 1, 0},

{0, 1, 1, 1, 0},

{0, 0, 0, 0, 0}

}

local flames = createCombatArea{

{0, 0, 0, 0, 0},

{0, 1, 1, 1, 0},

{0, 1, 1, 1, 0},

{0, 1, 1, 1, 0},

{0, 0, 2, 0, 0}

}

local flamew = createCombatArea{

{0, 0, 0, 0, 0},

{0, 1, 1, 1, 0},

{2, 1, 1, 1, 0},

{0, 1, 1, 1, 0},

{0, 0, 0, 0, 0}

}

local flamee = createCombatArea{

{0, 0, 0, 0, 0},

{0, 1, 1, 1, 0},

{0, 1, 1, 1, 2},

{0, 1, 1, 1, 0},

{0, 0, 0, 0, 0}

}

 

local wg1n = createCombatArea{

{0, 0, 0},

{0, 2, 0},

{0, 1, 0},

}

local wg2n = createCombatArea{

{0, 2, 0},

{0, 0, 0},

{0, 1, 0},

{0, 1, 0},

{0, 1, 0},

}

local wg3n = createCombatArea{

{0, 2, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 1, 0},

}

local wg1s = createCombatArea{

{0, 1, 0},

{0, 2, 0},

{0, 0, 0},

}

local wg2s = createCombatArea{

{0, 1, 0},

{0, 1, 0},

{0, 1, 0},

{0, 0, 0},

{0, 2, 0},

}

local wg3s = createCombatArea{

{0, 1, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 2, 0},

}

local wg1e = createCombatArea{

{0, 0, 0},

{1, 2, 0},

{0, 0, 0},

}

local wg2e = createCombatArea{

{1, 1, 1, 0, 2},

}

local wg3e = createCombatArea{

{1, 0, 0, 0, 0, 2},

}

local wg1w = createCombatArea{

{0, 0, 0},

{0, 2, 1},

{0, 0, 0},

}

local wg2w = createCombatArea{

{2, 0, 1, 1, 1},

}

local wg3w = createCombatArea{

{2, 0, 0, 0, 0, 1},

}

 

-- WATER GUN END

 

--WING ATTACK

local wingn = createCombatArea{

{0, 0, 0},

{1, 2, 0},

{0, 0, 0},

}

local wings = createCombatArea{

{1, 0, 0},

{0, 2, 0},

{0, 0, 0},

}

local winge = createCombatArea{

{1, 0, 0},

{0, 2, 0},

{0, 0, 0},

}

local wingw = createCombatArea{

{0, 2, 3},

{0, 2, 2},

{0, 0, 0},

}

local wingds = createCombatArea{

{1, 1, 1},

{0, 2, 0},

{0, 0, 0},

}

local wingdn = createCombatArea{

{0, 0, 0},

{0, 2, 0},

{1, 1, 1},

}

local wingde = createCombatArea{

{1, 0, 0},

{1, 2, 0},

{1, 0, 0},

}

local wingdw = createCombatArea{

{0, 0, 1},

{0, 2, 1},

{0, 0, 1},

}

 

local pokeis = {'Bulbasaur', 'Ivysaur', 'Venusaur', 'Charmander', 'Charmeleon', 'Charizard', 'Squirtle',

'Wartortle', 'Blastoise', 'Butterfree', 'Beedrill', 'Pidgeotto', 'Pidgeot', 'Spearow', 'Fearow', 'Ekans',

'Arbok', 'Pikachu', 'Raichu', 'Nidoranfe', 'Nidorina', 'Nidoqueen', 'Nidoranma', 'Nidorino', 'Nidoking',

'Clefairy', 'Clefable', 'Vulpix', 'Ninetales', 'Jigglypuff', 'Wigglytuff', 'Zubat', 'Golbat', 'Bellsprout',

'Weepinbell', 'Victreebel', 'Paras', 'Parasect', 'Venonat', 'Venomoth', 'Diglett', 'Dugtrio', 'Persian',

'Golduck', 'Mankey', 'Primeape', 'Growlithe', 'Arcanine', 'Poliwag', 'Poliwhirl', 'Poliwrath', 'Kadabra',

'Alakazam', 'Oddish', 'Gloom', 'Vileplume', 'Machop', 'Machoke', 'Machamp', 'Tentacool', 'Tentacruel',

'Ponyta', 'Rapidash', 'Slowpoke', 'Slowbro', 'Farfetchd', 'Seel', 'Dewgong', 'Shellder', 'Cloyster', 'Gastly',

'Haunter', 'Gengar', 'Onix', 'Drowzee', 'Hypno', 'Krabby', 'Kingler', 'Exeggcute', 'Exeggutor', 'Cubone', 'Marowak',

'Hitmonchan', 'Lickitung', 'Koffing', 'Weezing', 'Rhyhorn', 'Rhydon', 'Chansey', 'Tangela', 'Kangaskhan',

'Horsea', 'Seadra', 'Grimer', 'Muk', 'Doduo', 'Dodrio', 'Magnemite', 'Magneton', 'Voltorb', 'Electrode',

'Geodude', 'Graveler', 'Golem', 'Sandshrew', 'Sandslash', 'Goldeen', 'Seaking', 'Staryu', 'Starmie', 'MrMime',

'Scyther', 'Jynx', 'Electabuzz', 'Magmar', 'Pinsir', 'Tauros', 'Gyarados', 'Lapras', 'Ditto', 'Eevee',

'Vaporeon', 'Jolteon', 'Flareon', 'Porygon', 'Omanyte', 'Omastar', 'Kabuto', 'Kabutops', 'Aerodactyl',

'Snorlax', 'Articuno', 'Zapdos', 'Moltres', 'Dragonair', 'Dragonite', 'Elder Charizard', 'Crystal Onix',

'Ditto', 'Mew', 'Mewtwo'}

local c = {

[25] = {x = {

pok = bulbasaur,

spell = "Leech Seed",

minLv = 22,

ex = 1000005,

base1 = 25,

base2 = 35,

dista = 3,

bonus = 2.5,

type = "grass",

cd = 25

}

},

[24] = {x = {

pok = ivysaur,

spell = "Leech Seed",

minLv = 40,

ex = 2000005,

base1 = 60,

base2 = 75,

dista = 3,

bonus = 3.2,

type = "grass",

cd = 30

}

},

[22] = {x = {

pok = venusaur,

spell = "Leech Seed",

minLv = 85,

ex = 3000005,

base1 = 100,

base2 = 130,

dista = 3,

bonus = 5,

type = "grass",

cd = 30

}

},

[29] = {x = {

pok = charmander,

spell = "Fire Fang",

minLv = 24,

ex = 4000005,

base1 = 40,

base2 = 67,

dista = 1,

bonus = 3.5,

type = "fire",

cd = 24

}

},

[23] = {x = {

pok = charmeleon,

spell = "Fire Fang",

minLv = 40,

ex = 5000005,

base1 = 70,

base2 = 95,

dista = 1,

bonus = 4,

type = "fire",

cd = 22

}

},

[67] = {x = {

pok = charizard,

spell = "Fire Fang",

minLv = 85,

ex = 5000005,

base1 = 178,

base2 = 256,

dista = 1,

bonus = 6,

type = "fire",

cd = 20

}

},

[2] = {x = {

pok = squirtle,

spell = "Aqua Tail",

minLv = 22,

ex = 1090005,

base1 = 58,

base2 = 80,

dista = 1,

bonus = 2,

type = "water",

cd = 14

}

},

[6] = {x = {

pok = wartortle,

spell = "Aqua Tail",

minLv = 40,

ex = 1100005,

base1 = 100,

base2 = 157,

dista = 1,

bonus = 3.5,

type = "water",

cd = 14

}

},

[55] = {x = {

pok = blastoise,

spell = "Aqua Tail",

minLv = 85,

ex = 1100005,

base1 = 190,

base2 = 225,

dista = 1,

bonus = 5,

type = "water",

cd = 18

}

},

 

[40] = {x = {

pok = butterfree,

spell = "Psybeam",

minLv = 36,

ex = 1300005,

base1 = 120,

base2 = 157,

dista = 4,

target = "no",

bonus = 12.8,

type = "psychic",

cd = 25

}

},

 

[45] = {x = {

pok = beedrill,

spell = "Rage",

minLv = 25,

ex = 1500005,

base1 = 140,

base2 = 160,

dista = 5,

target = "no",

bonus = 3.3,

type = "dragon",

cd = 35

}

},

[5] = {x = {

pok = pidgeotto,

spell = "Wing Attack",

minLv = 20,

ex = 1700005,

base1 = 220,

base2 = 250,

dista = 1,

bonus = 7,

target = "no",

type = "flying",

cd = 35

}

},

[80] = {x = {

pok = pidgeot,

spell = "Wing Attack",

minLv = 65,

ex = 1800005,

base1 = 220,

base2 = 250,

dista = 1,

bonus = 9,

target = "no",

type = "flying",

cd = 35

}

},

 

 

[27] = {x = {

pok = spearow,

spell = "Rage",

minLv = 10,

ex = 2500005,

base1 = 40,

base2 = 60,

dista = 5,

bonus = 2.5,

type = "flying",

cd = 9

}

},

[17] = {x = {

pok = fearow,

spell = "Whirlwind",

minLv = 50,

ex = 2600005,

base1 = 120,

base2 = 170,

dista = 5,

target = "no",

bonus = 3.5,

type = "flying",

cd = 20

}

},

[7] = {x = {

pok = ekans,

spell = "Fear",

minLv = 23,

ex = 2600005,

base1 = 0,

base2 = 0,

dista = 3,

bonus = 2.5,

target = "no",

type = "ghost",

cd = 18

}

},

[39] = {x = {

pok = arbok,

spell = "Acid",

minLv = 3,

ex = 2700005,

base1 = 140,

base2 = 176,

dista = 4,

bonus = 4,

type = "poison",

cd = 15

}

},

[59] = {x = {

pok = pikachu,

spell = "Iron Tail",

minLv = 26,

ex = 2800005,

base1 = 110,

base2 = 120,

dista = 1,

bonus = 3,

type = "normal",

cd = 17

}

},

[50] = {x = {

pok = raichu,

spell = "Thunder Punch",

minLv = 50,

ex = 2900005,

base1 = 140,

base2 = 186,

dista = 1,

bonus = 4.9,

type = "electric",

cd = 19

}

},

[70] = {x = {

pok = nidoranfe,

spell = "Poison Fang",

minLv = 15,

ex = 3000005,

base1 = 40,

base2 = 80,

dista = 1,

bonus = 2,

type = "poison",

cd = 10

}

},

[71] = {x = {

pok = nidorina,

spell = "Poison Fang",

minLv = 30,

ex = 3000005,

base1 = 100,

base2 = 130,

dista = 1,

bonus = 3,

type = "poison",

cd = 9

}

},

[79] = {x = {

pok = nidoqueen,

spell = "Poison Fang",

minLv = 65,

ex = 3100005,

base1 = 140,

base2 = 170,

dista = 1,

bonus = 4.5,

type = "poison",

cd = 10

}

},

[66] = {x = {

pok = nidoranma,

spell = "Poison Fang",

minLv = 15,

ex = 3200005,

base1 = 50,

base2 = 80,

dista = 1,

bonus = 3,

type = "poison",

cd = 15

}

},

[78] = {x = {

pok = nidorino,

spell = "Poison Fang",

minLv = 30,

ex = 3300005,

base1 = 99,

base2 = 116,

dista = 1,

bonus = 4,

type = "poison",

cd = 12

}

},

[35] = {x = {

pok = nidoking,

spell = "Poison Fang",

minLv = 65,

ex = 3400005,

base1 = 170,

base2 = 200,

dista = 1,

bonus = 5,

type = "poison",

cd = 9

}

},

[73] = {x = {

pok = clefairy,

spell = "Multi-Slap",

minLv = 22,

ex = 3500005,

base1 = 30,

base2 = 65,

dista = 5,

bonus = 2,

target = "no",

type = "normal",

cd = 20

}

},

[68] = {x = {

pok = clefable,

spell = "Great Love",

minLv = 52,

ex = 3600005,

base1 = 140,

base2 = 190,

dista = 5,

target = "no",

bonus = 3,

type = "normal",

cd = 50

}

},

[62] = {x = {

pok = vulpix,

spell = "Flame Wheel",

minLv = 25,

ex = 3700005,

base1 = 80,

base2 = 100,

dista = 3,

bonus = 3,

target = "no",

type = "fire",

cd = 22

}

},

[114] = {x = {

pok = Ninetales,

spell = "Flame Wheel",

minLv = 70,

ex = 3800005,

base1 = 136,

base2 = 165,

dista = 1,

bonus = 4,

type = "fire",

cd = 18

}

},

[63] = {x = {

pok = Jigglypuff,

spell = "Hyper Voice",

minLv = 30,

ex = 3900005,

base1 = 80,

base2 = 110,

dista = 5,

bonus = 4,

target = "no",

type = "Normal",

cd = 23

}

},

[64] = {x = {

pok = Wigglytuff,

spell = "Selfheal",

minLv = 50,

ex = 4000005,

base1 = 220,

base2 = 255,

dista = 1,

target = "no",

bonus = 10,

type = "normal",

cd = 75

}

},

[44] = {x = {

pok = zubat,

spell = "Toxic",

minLv = 15,

ex = 4100005,

base1 = 70,

base2 = 120,

dista = 3,

bonus = 2.7,

target = "no",

type = "poison",

cd = 14

}

},

[122] = {x = {

pok = golbat,

spell = "Toxic",

minLv = 35,

ex = 4200005,

base1 = 100,

base2 = 140,

dista = 3,

bonus = 3.5,

target = "no",

type = "poison",

cd = 13

}

},

[250] = {x = {

pok = bellsprout,

spell = "Slash",

minLv = 5,

ex = 6900005,

base1 = 30,

base2 = 50,

dista = 1,

bonus = 2.5,

type = "normal",

cd = 10

}

},

[37] = {x = {

pok = weepinbell,

spell = "Slash",

minLv = 25,

ex = 7000005,

base1 = 80,

base2 = 120,

dista = 1,

bonus = 3.5,

type = "normal",

cd = 11

}

},

[240] = {x = {

pok = victreebel,

spell = "Slash",

minLv = 50,

ex = 7100005,

base1 = 110,

base2 = 170,

dista = 1,

bonus = 5,

type = "normal",

cd = 9

}

},

[81] = {x = {

pok = paras,

spell = "Poison Powder",

minLv = 8,

ex = 4600005,

base1 = 56,

base2 = 66,

dista = 5,

target = "no",

bonus = 2,

type = "poison",

cd = 28

}

},

[95] = {x = {

pok = parasect,

spell = "Poison Bomb",

minLv = 50,

ex = 4700005,

base1 = 110,

base2 = 140,

dista = 3,

bonus = 3,

type = "poison",

cd = 17

}

},

[52] = {x = {

pok = venonat,

spell = "Poison Fang",

minLv = 20,

ex = 4800005,

base1 = 50,

base2 = 90,

dista = 1,

bonus = 3,

type = "poison",

cd = 20

}

},

[49] = {x = {

pok = venomoth,

spell = "Psychic",

minLv = 50,

ex = 4900005,

base1 = 110,

base2 = 125,

dista = 5,

target = "no",

bonus = 4,

type = "psychic",

cd = 43

}

},

[82] = {x = {

pok = diglett,

spell = "Earthshock",

minLv = 15,

ex = 5000005,

base1 = 60,

base2 = 100,

dista = 3,

bonus = 2.9,

target = "no",

type = "ground",

cd = 30

}

},

[83] = {x = {

pok = dugtrio,

spell = "Earthshock",

minLv = 35,

ex = 5100005,

base1 = 110,

base2 = 132,

dista = 3,

bonus = 4.9,

target = "no",

type = "ground",

cd = 43

}

},

 

[3] = {x = {

pok = persian,

spell = "Fury Cutter",

minLv = 38,

ex = 5300005,

base1 = 110,

base2 = 119,

dista = 1,

bonus = 4,

target = "no",

type = "bug",

cd = 15

}

},

 

[99] = {x = {

pok = golduck,

spell = "Confusion",

minLv = 55,

ex = 5500005,

base1 = 110,

base2 = 140,

dista = 5,

bonus = 4,

target = "no",

type = "psychic",

cd = 35

}

},

[106] = {x = {

pok = mankey,

spell = "Rage",

minLv = 22,

ex = 5600005,

base1 = 40,

base2 = 55,

dista = 3,

bonus = 3,

target = "no",

type = "dragon",

cd = 20

}

},

[103] = {x = {

pok = primeape,

spell = "Mega Punch",

minLv = 56,

ex = 5700005,

base1 = 110,

base2 = 160,

dista = 1,

bonus = 4,

type = "fighting",

cd = 12

}

},

[109] = {x = {

pok = growlithe,

spell = "Flamethrower",

minLv = 25,

ex = 5800005,

base1 = 60,

base2 = 80,

bonus = 3,

target = "no",

type = "fire",

cd = 12

}

},

[88] = {x = {

pok = arcanine,

spell = "Flamethrower",

minLv = 80,

ex = 5900005,

base1 = 120,

base2 = 170,

bonus = 4.5,

target = "no",

type = "fire",

cd = 11

}

},

[111] = {x = {

pok = poliwag,

spell = "Hypnosis",

minLv = 12,

ex = 6000005,

base1 = 0,

base2 = 0,

dista = 4,

bonus = 3,

type = "psychic",

cd = 10

}

},

[212] = {x = {

pok = poliwhirl,

spell = "Mega Punch",

minLv = 30,

ex = 6100005,

base1 = 80,

base2 = 110,

dista = 1,

bonus = 4,

type = "fighting",

cd = 12

}

},

[104] = {x = {

pok = poliwrath,

spell = "Dizzy Punch",

minLv = 69,

ex = 6200005,

base1 = 170,

base2 = 190,

dista = 1,

bonus = 4.5,

type = "fighting",

cd = 17

}

},

 

[219] = {x = {

pok = kadabra,

spell = "Psychic",

minLv = 47,

ex = 6400005,

base1 = 120,

base2 = 145,

dista = 5,

target = "no",

bonus = 4,

type = "psychic",

cd = 30

}

},

[218] = {x = {

pok = alakazam,

spell = "Psychic",

minLv = 80,

ex = 6500005,

base1 = 170,

base2 = 210,

dista = 5,

target = "no",

bonus = 5,

type = "psychic",

cd = 30

}

},

[56] = {x = {

pok = oddish,

spell = "Stun Spore",

minLv = 10,

ex = 4300005,

base1 = 0,

base2 = 0,

dista = 5,

target = "no",

bonus = 0,

type = "grass",

cd = 10

}

},

[74] = {x = {

pok = gloom,

spell = "Poison Gas",

minLv = 32,

ex = 4400005,

base1 = 30,

base2 = 60,

dista = 5,

bonus = 3.5,

target = "no",

type = "poison",

cd = 20

}

},

[86] = {x = {

pok = vileplume,

spell = "Poison Gas",

minLv = 50,

ex = 4500005,

base1 = 70,

base2 = 100,

dista = 5,

bonus = 4.5,

target = "no",

type = "poison",

cd = 13

}

},

[118] = {x = {

pok = machop,

spell = "Strafe",

minLv = 30,

ex = 6600005,

base1 = 50,

base2 = 70,

dista = 5,

Target = "No",

bonus = 2.7,

type = "speed",

cd = 25

}

},

[113] = {x = {

pok = machoke,

spell = "Gorund Chop",

minLv = 45,

ex = 6700005,

base1 = 80,

base2 = 110,

dista = 1,

bonus = 3.7,

type = "fighting",

cd = 30

}

},

[121] = {x = {

pok = machamp,

spell = "Ground Chop",

minLv = 70,

ex = 6800005,

base1 = 150,

base2 = 180,

dista = 1,

bonus = 5,

target = "no",

type = "fighting",

cd = 27

}

},

[96] = {x = {

pok = tentacool,

spell = "Mud Shot",

minLv = 19,

ex = 7200005,

base1 = 20,

base2 = 35,

dista = 4,

bonus = 2.5,

type = "ground",

cd = 15

}

},

[108] = {x = {

pok = tentacruel,

spell = "Acid",

minLv = 75,

ex = 7300005,

base1 = 125,

base2 = 130,

dista = 3,

bonus = 3.5,

type = "poison",

cd = 15

}

},

[16] = {x = {

pok = ponyta,

spell = "Stomp",

minLv = 28,

ex = 7700005,

base1 = 60,

base2 = 110,

dista = 5,

bonus = 4,

target = "no",

type = "ground",

cd = 10

}

},

[220] = {x = {

pok = rapidash,

spell = "Horn Attack",

minLv = 55,

ex = 7800005,

base1 = 100,

base2 = 160,

dista = 1,

bonus = 4.5,

type = "normal",

cd = 10

}

},

[75] = {x = {

pok = slowpoke,

spell = "Water Gun",

minLv = 20,

ex = 7900005,

base1 = 50,

base2 = 80,

dista = 4,

target = "no",

bonus = 2.5,

type = "water",

cd = 7

}

},

[41] = {x = {

pok = slowbro,

spell = "Water Gun",

minLv = 45,

ex = 8000005,

base1 = 70,

base2 = 120,

dista = 4,

bonus = 3.9,

target = "no",

type = "water",

cd = 7

}

},

[57] = {x = {

pok = farfetchd,

spell = "Stickslash",

minLv = 42,

ex = 8300005,

base1 = 50,

base2 = 100,

dista = 1,

bonus = 3.5,

type = "flying",

cd = 10

}

},

[101] = {x = {

pok = seel,

spell = "Icy Wind",

minLv = 28,

ex = 8600005,

base1 = 60,

base2 = 100,

dista = 5,

bonus = 2.5,

target = "no",

type = "ice",

cd = 14

}

},

[110] = {x = {

pok = dewgong,

spell = "Icy Wind",

minLv = 65,

ex = 8700005,

base1 = 100,

base2 = 145,

dista = 5,

bonus = 5.5,

target = "no",

type = "ice",

cd = 25

}

},

[54] = {x = {

pok = shellder,

spell = "Ice Beam",

minLv = 22,

ex = 9000005,

base1 = 40,

base2 = 80,

dista = 4,

bonus = 5,

target = "no",

type = "ice",

cd = 14

}

},

[72] = {x = {

pok = cloyster,

spell = "Ice Beam",

minLv = 60,

ex = 9100005,

base1 = 100,

base2 = 136,

dista = 4,

bonus = 10,

target = "no",

type = "ice",

cd = 14

}

},

[48] = {x = {

pok = gastly,

spell = "Hypnosis",

minLv = 28,

ex = 9200005,

base1 = 0,

base2 = 0,

dista = 3,

bonus = 2.9,

type = "psychic",

cd = 5

}

},

 

[244] = {x = {

pok = gengar,

spell = "Shadow Storm",

minLv = 86,

ex = 9400005,

base1 = 270,

base2 = 350,

dista = 5,

target = "no",

bonus = 4.5,

type = "ghost",

cd = 40

}

},

[248] = {x = {

pok = onix,

spell = "Earthshock",

minLv = 50,

ex = 9500005,

base1 = 100,

base2 = 133,

dista = 1,

bonus = 4,

target = "no",

type = "ground",

cd = 25

}

},

[94] = {x = {

pok = drowzee,

spell = "Fear",

minLv = 32,

ex = 9600005,

base1 = 0,

base2 = 0,

dista = 4,

bonus = 0,

type = "normal",

cd = 35

}

},

[119] = {x = {

pok = hypno,

spell = "Psychic",

minLv = 58,

ex = 9700005,

base1 = 121,

base2 = 133,

target = "no",

dista = 5,

bonus = 4.8,

type = "psychic",

cd = 20

}

},

[112] = {x = {

pok = krabby,

spell = "Harden",

minLv = 13,

ex = 9800004,

lpl = 32,

life = 850,

base1 = 0,

target = "no",

base2 = 0,

dista = 100,

bonus = 0,

type = "normal",

cd = 17

}

},

[245] = {x = {

pok = kingler,

spell = "Fury Cutter",

minLv = 45,

ex = 9900005,

base1 = 70,

base2 = 96,

dista = 1,

bonus = 3,

target = "no",

type = "bug",

cd = 19

}

},

 

[46] = {x = {

pok = exeggutor,

spell = "Psybeam",

minLv = 55,

ex = 1030005,

base1 = 120,

base2 = 157,

dista = 4,

target = "no",

bonus = 13,

type = "psychic",

cd = 25

}

},

[124] = {x = {

pok = cubone,

spell = "Rage",

minLv = 32,

ex = 1040005,

base1 = 60,

base2 = 80,

dista = 4,

bonus = 1.7,

type = "dragon",

cd = 19

}

},

[197] = {x = {

pok = marowak,

spell = "Mud Shot",

minLv = 55,

ex = 1050005,

base1 = 10,

base2 = 30,

dista = 3,

bonus = 4.5,

type = "ground",

cd = 12

}

},

 

[38] = {x = {

pok = hitmonchan,

spell = "Thunder Punch",

minLv = 60,

ex = 1070005,

base1 = 113,

base2 = 128,

dista = 1,

bonus = 4.5,

type = "electric",

cd = 15

}

},

[11] = {x = {

pok = lickitung,

spell = "Iron Tail",

minLv = 55,

ex = 1080005,

base1 = 100,

base2 = 140,

dista = 1,

bonus = 3.5,

type = "normal",

cd = 25

}

},

[228] = {x = {

pok = koffing,

spell = "Poison Bomb",

minLv = 20,

ex = 1090005,

base1 = 50,

base2 = 70,

dista = 4,

bonus = 2,

type = "poison",

cd = 20

}

},

[231] = {x = {

pok = weezing,

spell = "Poison Bomb",

minLv = 40,

ex = 1100005,

base1 = 90,

base2 = 100,

dista = 4,

bonus = 3.5,

type = "poison",

cd = 13

}

},

[77] = {x = {

pok = rhyhorn,

spell = "Shockwave",

minLv = 37,

ex = 1110005,

base1 = 50,

base2 = 75,

dista = 5,

bonus = 1.9,

target = "no",

type = "ground",

cd = 26

}

},

[200] = {x = {

pok = rhydon,

spell = "Horn Drill",

minLv = 75,

ex = 1120005,

base1 = 110,

base2 = 135,

dista = 1,

bonus = 4.5,

type = "normal",

cd = 15

}

},

[28] = {x = {

pok = ditto,

spell = "Transform",

minLv = 40,

ex = 140001,

base1 = 0,

base2 = 0,

dista = 7,

bonus = 0,

type = "normal",

cd = 15

}

},

[4] = {x = {

pok = chansey,

spell = "Healarea",

minLv = 60,

ex = 1130005,

base1 = 270,

base2 = 340,

dista = 5,

target = "no",

bonus = 4,

type = "normal",

cd = 50

}

},

[18] = {x = {

pok = tangela,

spell = "Poison Powder",

minLv = 50,

ex = 1140005,

base1 = 30,

base2 = 60,

dista = 5,

target = "no",

bonus = 3.5,

type = "poison",

cd = 15

}

},

[198] = {x = {

pok = kangaskhan,

spell = "Shockwave",

minLv = 80,

ex = 1150005,

base1 = 136,

base2 = 149,

dista = 5,

target = "no",

bonus = 4,

type = "ground",

cd = 25

}

},

[33] = {x = {

pok = horsea,

spell = "Waterball",

minLv = 10,

ex = 1160005,

base1 = 30,

base2 = 70,

dista = 4,

bonus = 2.7,

type = "water",

cd = 10

}

},

[276] = {x = {

pok = seadra,

spell = "Bubblebeam",

minLv = 45,

ex = 1170005,

base1 = 150,

base2 = 225,

dista = 4,

bonus = 7,

target = "no",

type = "water",

cd = 13

}

},

[214] = {x = {

pok = grimer,

spell = "Poison Bomb",

minLv = 22,

ex = 8800005,

base1 = 70,

base2 = 80,

dista = 4,

bonus = 2.5,

type = "poison",

cd = 15

}

},

[47] = {x = {

pok = muk,

spell = "Poison Bomb",

minLv = 40,

ex = 8900005,

base1 = 115,

base2 = 126,

dista = 4,

bonus = 3.5,

type = "poison",

cd = 14

}

},

[26] = {x = {

pok = doduo,

spell = "Strafe",

minLv = 20,

ex = 8400005,

base1 = 80,

base2 = 90,

Target = "no",

dista = 5,

bonus = 2.5,

type = "normal",

cd = 20

}

},

[120] = {x = {

pok = dodrio,

spell = "Rage",

minLv = 50,

ex = 8500005,

base1 = 90,

base2 = 110,

dista = 3,

bonus = 3.5,

type = "normal",

cd = 21

}

},

[217] = {x = {

pok = magnemite,

spell = "Sonicboom",

minLv = 20,

ex = 8100005,

base1 = 60,

base2 = 79,

dista = 3,

bonus = 3,

type = "normal",

cd = 15

}

},

[223] = {x = {

pok = magneton,

spell = "Thunder",

minLv = 48,

ex = 8200005,

base1 = 112,

base2 = 123,

dista = 7,

bonus = 3.5,

target = "no",

type = "electric",

cd = 25

}

},

[123] = {x = {

pok = voltorb,

spell = "Selfdestruct",

minLv = 20,

ex = 1000005,

base1 = 350,

base2 = 600,

dista = 5,

target = "no",

bonus = 10,

type = "normal",

cd = 3

}

},

[287] = {x = {

pok = voltorbroll,

spell = "Selfdestruct",

minLv = 20,

ex = 1000005,

base1 = 350,

base2 = 600,

dista = 5,

target = "no",

bonus = 10,

type = "normal",

cd = 3

}

},

[125] = {x = {

pok = electrode,

spell = "Discharge",

minLv = 40,

ex = 1010005,

base1 = 220,

base2 = 250,

dista = 5,

target = "no",

bonus = 4,

type = "electric",

cd = 19

}

},

[286] = {x = {

pok = electroderoll,

spell = "Discharge",

minLv = 40,

ex = 1010005,

base1 = 160,

base2 = 170,

dista = 5,

target = "no",

bonus = 2,

type = "electric",

cd = 19

}

},

[196] = {x = {

pok = geodude,

spell = "Harden",

minLv = 20,

ex = 7400005,

lpl = 32,

life = 700,

base1 = 0,

base2 = 0,

dista = 100,

target = "no",

bonus = 0,

type = "normal",

cd = 20

}

},

[247] = {x = {

pok = graveler,

spell = "Falling Rocks",

minLv = 50,

ex = 7500003,

base1 = 115,

base2 = 126,

dista = 5,

target = "no",

bonus = 3.5,

type = "rock",

cd = 20

}

},

[116] = {x = {

pok = golem,

spell = "Falling Rocks",

minLv = 75,

ex = 7600005,

base1 = 200,

base2 = 300,

dista = 5,

target = "no",

bonus = 6,

type = "rock",

cd = 45

}

},

[288] = {x = {

pok = golemroll,

spell = "Falling Rocks",

minLv = 75,

ex = 7600005,

base1 = 200,

base2 = 300,

dista = 5,

target = "no",

bonus = 6,

type = "rock",

cd = 45

}

},

[288] = {x = {

pok = golemroll,

spell = "Falling Rocks",

minLv = 75,

ex = 7600005,

base1 = 200,

base2 = 300,

dista = 5,

target = "no",

bonus = 6,

type = "rock",

cd = 45

}

},

[43] = {x = {

pok = sandshrew,

spell = "Shockwave",

minLv = 30,

ex = 2700005,

base1 = 95,

base2 = 110,

dista = 3,

target = "no",

bonus = 1,

type = "ground",

cd = 30

}

},

[115] = {x = {

pok = sandslash,

spell = "Eartshock",

minLv = 55,

ex = 2800005,

base1 = 150,

base2 = 180,

dista = 3,

target = "no",

bonus = 1.6,

type = "ground",

cd = 25

}

},

[274] = {x = {

pok = goldeen,

spell = "Aqua Tail",

minLv = 12,

ex = 1190005,

base1 = 40,

base2 = 60,

dista = 1,

bonus = 2.5,

type = "water",

cd = 12

}

},

[272] = {x = {

pok = seaking,

spell = "Aqua Tail",

minLv = 35,

ex = 1190005,

base1 = 110,

base2 = 130,

dista = 1,

bonus = 3.5,

type = "water",

cd = 11

}

},

[42] = {x = {

pok = staryu,

spell = "Waterball",

minLv = 22,

ex = 1200005,

base1 = 50,

base2 = 70,

dista = 4,

bonus = 2.3,

type = "water",

cd = 11

}

},

[282] = {x = {

pok = starmie,

spell = "Waterball",

minLv = 35,

ex = 1210005,

base1 = 95,

base2 = 120,

dista = 4,

bonus = 2.9,

type = "water",

cd = 10

}

},

[246] = {x = {

pok = MrMime,

spell = "Reflect",

minLv = 60,

ex = 1220005,

base1 = 180,

base2 = 220,

dista = 5,

bonus = 3,

target = "no",

type = "psychic",

cd = 20

}

},

[15] = {x = {

pok = scyther,

spell = "Shredder Team",

minLv = 95,

ex = 1230005,

base1 = 190,

base2 = 290,

dista = 4,

bonus = 3.5,

target = "no",

type = "bug",

cd = 180

}

},

[15] = {x = {

pok = scytherteam,

spell = "Shredder Team",

minLv = 95,

ex = 1230005,

base1 = 190,

base2 = 290,

dista = 4,

bonus = 3.5,

target = "no",

type = "bug",

cd = 180

}

},

[282] = {x = {

pok = jynx,

spell = "Icy Wind",

minLv = 75,

ex = 1240005,

base1 = 145,

base2 = 165,

dista = 5,

target = "no",

bonus = 6.2,

type = "ice",

cd = 25

}

},

[281] = {x = {

pok = electabuzz,

spell = "Thunder Wave",

minLv = 80,

ex = 1250005,

base1 = 110,

base2 = 140,

dista = 5,

bonus = 5,

target = "no",

type = "electric",

cd = 12

}

},

[76] = {x = {

pok = magmar,

spell = "Fireball",

minLv = 80,

ex = 1260005,

base1 = 120,

base2 = 180,

dista = 4,

bonus = 3.5,

type = "fire",

cd = 12

}

},

[53] = {x = {

pok = pinsir,

spell = "Fury Cutter",

minLv = 53,

ex = 1270005,

base1 = 110,

base2 = 130,

dista = 1,

bonus = 3.5,

target = "no",

type = "bug",

cd = 17

}

},

[93] = {x = {

pok = tauros,

spell = "Stomp",

minLv = 51,

ex = 1280005,

base1 = 150,

base2 = 213,

dista = 1,

bonus = 5,

target = "no",

type = "normal",

cd = 25

}

},

[117] = {x = {

pok = gyarados,

spell = "Hydro Cannon",

minLv = 85,

ex = 1300005,

base1 = 270,

base2 = 340,

dista = 5,

target = "no",

bonus = 3.5,

type = "water",

cd = 23

}

},

[193] = {x = {

pok = lapras,

spell = "Waterball",

minLv = 80,

ex = 1310005,

base1 = 123,

base2 = 145,

dista = 4,

bonus = 4,

type = "water",

cd = 12

}

},

[28] = {x = {

pok = ditto,

spell = "",

minLv = 40,

ex = 1320005,

base1 = 125,

base2 = 130,

dista = 5,

bonus = 3,

target = "no",

type = "normal",

cd = 20

}

},

[202] = {x = {

pok = eevee,

spell = "Iron Tail",

minLv = 28,

ex = 1330005,

base1 = 55,

base2 = 75,

dista = 1,

bonus = 2.5,

type = "normal",

cd = 15

}

},

[215] = {x = {

pok = vaporeon,

spell = "Water Pulse",

minLv = 55,

ex = 1340005,

base1 = 109,

base2 = 120,

dista = 3,

bonus = 2.9,

target = "no",

type = "water",

cd = 20

}

},

[195] = {x = {

pok = jolteon,

spell = "Thunder Wave",

minLv = 55,

ex = 1350005,

base1 = 110,

base2 = 140,

dista = 5,

target = "no",

bonus = 2.9,

type = "electric",

cd = 13

}

},

[14] = {x = {

pok = flareon,

spell = "Blaze Kick",

minLv = 55,

ex = 1360005,

base1 = 110,

base2 = 140,

dista = 5,

bonus = 2.9,

type = "fire",

cd = 20

}

},

[97] = {x = {

pok = porygon,

spell = "Zap Cannon",

minLv = 44,

ex = 1370005,

base1 = 230,

base2 = 270,

dista = 4,

bonus = 3.5,

target = "no",

type = "electric",

cd = 30

}

},

[92] = {x = {

pok = omanyte,

spell = "Mud Shot",

minLv = 26,

ex = 1380003,

base1 = 75,

base2 = 85,

dista = 3,

bonus = 2.5,

type = "ground",

cd = 12

}

},

[192] = {x = {

pok = omastar,

spell = "Bubble Blast",

minLv = 85,

ex = 1390005,

base1 = 190,

base2 = 230,

dista = 4,

bonus = 5,

type = "water",

cd = 34

}

},

[98] = {x = {

pok = kabuto,

spell = "Harden",

minLv = 30,

lpl = 32,

life = 1300,

ex = 1400005,

base1 = 0,

base2 = 0,

dista = 100,

target = "no",

bonus = 0,

type = "normal",

cd = 15

}

},

[13] = {x = {

pok = kabutops,

spell = "Mud Shot",

minLv = 80,

ex = 1410005,

base1 = 30,

base2 = 100,

dista = 3,

bonus = 6,

type = "ground",

cd = 13

}

},

[10] = {x = {

pok = aerodactyl,

spell = "Rock Throw",

minLv = 100,

ex = 1420005,

base1 = 150,

base2 = 185,

dista = 3,

bonus = 6.5,

type = "rock",

cd = 12

}

},

[51] = {x = {

pok = snorlax,

spell = "Headbutt",

minLv = 85,

ex = 1430005,

base1 = 220,

base2 = 250,

dista = 1,

bonus = 6.5,

type = "normal",

cd = 14

}

},

[283] = {x = {

pok = articuno,

spell = "Twister",

minLv = 100,

ex = 1440005,

base1 = 460,

base2 = 580,

dista = 5,

Target = "no",

bonus = 8.5,

type = "ice",

cd = 25

}

},

[199] = {x = {

pok = Zapdos,

spell = "Thunder Bolt",

minLv = 100,

ex = 1450005,

base1 = 390,

base2 = 406,

dista = 5,

bonus = 8.5,

type = "electric",

cd = 11

}

},

[265] = {x = {

pok = moltres,

spell = "Fireball",

minLv = 100,

ex = 1460005,

base1 = 390,

base2 = 410,

dista = 4,

bonus = 8.5,

type = "fire",

cd = 10

}

},

 

[61] = {x = {

pok = dragonair,

spell = "Twister",

minLv = 61,

ex = 1480005,

base1 = 172,

base2 = 200,

dista = 5,

bonus = 4.5,

type = "dragon",

cd = 23

}

},

[210] = {x = {

pok = dragonite,

spell = "Fire Punch",

minLv = 100,

ex = 1490005,

base1 = 278,

base2 = 300,

dista = 1,

bonus = 6.5,

type = "fire",

cd = 20

}

},

[294] = {x = {

pok = eldercharizard,

spell = "Fire Fang",

minLv = 100,

ex = 1530005,

base1 = 390,

base2 = 410,

dista = 1,

bonus = 6.8,

type = "fire",

cd = 17

}

},

[292] = {x = {

pok = crystalOnix,

spell = "Earthshock",

minLv = 100,

ex = 1520005,

base1 = 370,

base2 = 400,

dista = 1,

bonus = 6.5,

target = "no",

type = "ground",

cd = 25

}

},

[34] = {x = {

pok = Mewtwo,

spell = "Psycho Shift",

minLv = 100,

ex = 1500005,

base1 = 335,

base2 = 345,

dista = 10,

bonus = 10,

type = "psychic",

cd = 24

}

},

[9] = {x = {

pok = Mew,

spell = "Psycho Shift",

minLv = 100,

ex = 1510005,

base1 = 335,

base2 = 345,

dista = 10,

bonus = 10,

type = "psychic",

cd = 24

}

},

 

 

}

 

function onSay(cid)

if #getCreatureSummons(cid) == 0 then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need a pokemon to use moves.")

return 0

end

 

if getTilePzInfo(getPlayerPosition(cid)) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Can't use Moves on protect zone.")

return true

end

 

pokemon = c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType]

if not isInArray(pokeis, getCreatureName(getCreatureSummons(cid)[1])) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn\'t recognize this move.")

return 0

end

if getPlayerLevel(cid) < c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.minLv then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don\'t have enough level to use this move.")

return 0

end

if exhaustion.get(cid, pokemon.x.ex) then

seconds = math.floor(((exhaustion.get(cid, pokemon.x.ex)) + 1))

doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Sorry, you have to wait "..seconds.." seconds to cast "..pokemon.x.spell..".")

return 0

end

if getPlayerStorageValue(getCreatureSummons(cid)[1], 3) >= 1 then

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "MISS", 215)

setPlayerStorageValue(getCreatureSummons(cid)[1], 3, -1)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return true

end

if getPlayerStorageValue(getCreatureSummons(cid)[1], 5) >= 1 then

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

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "SELF HIT", 180)

local levels = getPlayerLevel(cid)

doTargetCombatHealth(cid, getCreatureSummons(cid)[1], COMBAT_PHYSICALDAMAGE, -(math.random((levels*3),(levels*5))), -((math.random((levels*3),(levels*5))+10)), 3)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

return true

end

end

if pokemon.x.target ~= "no" then

if not isMonster(getCreatureTarget(cid)) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don\'t have any targets.")

return 0

end

 

if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid))) > pokemon.x.dista then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Get closer to the target to use this move.")

return 0

end

if not isSightClear(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), false) then

return 0

end

end

if pokemon.x.type == "flying" then

elementa = FLYDAMAGE

elseif pokemon.x.type == "ground" then

elementa = GROUNDDAMAGE

elseif pokemon.x.type == "electric" then

elementa = ELECTRICDAMAGE

elseif pokemon.x.type == "ghost" then

elementa = GHOSTDAMAGE

elseif pokemon.x.type == "normal" then

elementa = NORMALDAMAGE

elseif pokemon.x.type == "fighting" then

elementa = FIGHTINGDAMAGE

elseif pokemon.x.type == "poison" then

elementa = POISONDAMAGE

elseif pokemon.x.type == "rock" then

elementa = ROCKDAMAGE

elseif pokemon.x.type == "bug" then

elementa = BUGDAMAGE

elseif pokemon.x.type == "fire" then

elementa = FIREDAMAGE

elseif pokemon.x.type == "water" then

elementa = WATERDAMAGE

elseif pokemon.x.type == "grass" then

elementa = GRASSDAMAGE

elseif pokemon.x.type == "psychic" then

elementa = PSYCHICDAMAGE

elseif pokemon.x.type == "ice" then

elementa = ICEDAMAGE

elseif pokemon.x.type == "dragon" then

elementa = DRAGONDAMAGE

end

 

local element = elementa

local num1 = (pokemon.x.base1)

local num2 = (pokemon.x.base2)

local num3 = (pokemon.x.bonus)

setPlayerStorageValue(getCreatureSummons(cid)[1], 1000, ((num1)+(getPlayerLevel(cid)*(num3))))

if pokemon.x.spell == "Wing Attack" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wingn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 128)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), winge, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 129)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingde, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wings, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 131)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingds, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wingw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 130)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

end

return 0

elseif pokemon.x.spell == "Hyper Voice" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tsn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 19)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tse, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 19)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tss, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 19)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tsw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 19)

end

return 0

elseif pokemon.x.spell == "Poisonous Wing" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wingn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 128)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 114)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), winge, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 129)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingde, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 114)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wings, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 131)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingds, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 114)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wingw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 130)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 114)

end

elseif pokemon.x.spell == "Poison Bomb" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 14)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), bomb, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 114)

return 0

elseif pokemon.x.spell == "Multi-Slap" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), charge, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 148)

return 0

elseif pokemon.x.spell == "Mud Bomb" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 38)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), bomb, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 116)

doAreaCombatHealth(getCreatureSummons(cid)[1], null, getThingPos(getCreatureTarget(cid)), bomb, 0, 0, 34)

return 0

elseif pokemon.x.spell == "Sonicboom" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 33)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 1)

return 0

elseif pokemon.x.spell == "Mega Punch" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 112)

return 0

elseif pokemon.x.spell == "Selfdestruct" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

addEvent(doCreatureAddHealth, 250, getCreatureSummons(cid)[1], -getCreatureHealth(getCreatureSummons(cid)[1]))

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), destruct1, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 5)

addEvent(doAreaCombatHealth, 150, getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), destruct2, -(((num1)+(getPlayerLevel(cid)*(num3)))*0.7), -(((num2)+(getPlayerLevel(cid)*(num3)))*0.8), 5)

addEvent(doAreaCombatHealth, 250, getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), destruct3, -(((num1)+(getPlayerLevel(cid)*(num3)))*0.4), -(((num2)+(getPlayerLevel(cid)*(num3)))*0.5), 5)

setPlayerStorageValue(getCreatureSummons(cid)[1], 33, 1)

return 0

elseif pokemon.x.spell == "Whirlwind" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function gust(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, params.ar, params.br, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 42)

else

end

end

local posicao = getThingPos(getCreatureSummons(cid)[1])

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

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

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

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

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

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

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

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

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

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

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

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

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

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

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

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

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

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

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

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

end

return 0

elseif pokemon.x.spell == "Drill Peck" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 110)

local hitalvo = getCreatureTarget(cid)

local function hit(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

if isCreature(getCreatureTarget(params.cid)) then

if getCreatureTarget(params.cid) == params.hitalvo then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], FLYDAMAGE, getThingPos(getCreatureTarget(params.cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 110)

end

end

end

end

addEvent(hit, 480, {cid = cid, hitalvo = hitalvo})

addEvent(hit, 880, {cid = cid, hitalvo = hitalvo})

return 0

-----------------------------------------------------ADICIONADAS-------------------------------------------------------------------

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

elseif pokemon.x.spell == "Rage" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 110)

local hitalvo = getCreatureTarget(cid)

local function hit(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

if isCreature(getCreatureTarget(params.cid)) then

if getCreatureTarget(params.cid) == params.hitalvo then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], FLYDAMAGE, getThingPos(getCreatureTarget(params.cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 110)

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), CONST_ME_MAGIC_RED)

end

end

end

end

addEvent(hit, 1000, {cid = cid, hitalvo = hitalvo})

addEvent(hit, 2000, {cid = cid, hitalvo = hitalvo})

addEvent(hit, 3000, {cid = cid, hitalvo = hitalvo})

addEvent(hit, 4000, {cid = cid, hitalvo = hitalvo})

addEvent(hit, 5000, {cid = cid, hitalvo = hitalvo})

addEvent(hit, 6000, {cid = cid, hitalvo = hitalvo})

return 0

elseif pokemon.x.spell == "Psycho Shift" then

local pos = getThingPos(getCreatureTarget(cid))

local pos2 = getThingPos(getCreatureTarget(cid))

pos.x = pos.x + math.random(-4,4)

pos.y = pos.y + math.random(-4,4)

if hasSqm(pos) and isSightClear(getThingPos(getCreatureSummons(cid)[1]), pos, false) then

if getTileThingByPos(pos) and getTileThingByPos(pos).itemid >= 1 and not isInArray({919, 460, 4820, 4821, 4822, 4823, 4824, 4825}, getTileThingByPos(pos).itemid) and isWalkable(pos) then

pos = getClosestFreeTile(getCreatureTarget(cid), pos)

doSendDistanceShoot(pos2, pos, 39)

doTeleportThing(getCreatureTarget(cid), pos, false)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 134)

doSendMagicEffect(pos2, 12)

else

local newpos = getClosestFreeTile(getCreatureTarget(cid), pos)

doSendDistanceShoot(pos2, newpos, 39)

doTeleportThing(getCreatureTarget(cid), newpos, false)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 134)

doSendMagicEffect(pos2, 12)

end

else

doSendDistanceShoot(pos2, getThingPos(getCreatureTarget(cid)), 39)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 134)

doSendMagicEffect(pos2, 12)

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

--exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Hypnosis" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

setPlayerStorageValue(getCreatureTarget(cid), 3, 1)

local alvo = getCreatureTarget(cid)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 24)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 136)

local function string(params)

if isCreature(params.alvo) then

if getPlayerStorageValue(params.alvo, 3) >= 1 then

doSendMagicEffect(getThingPos(params.alvo), 136)

end

end

end

local function normalstr(params)

if isCreature(params.alvo) then

if getPlayerStorageValue(params.alvo, 3) >= 1 then

setPlayerStorageValue(params.alvo, 3, -1)

end

end

end

addEvent(string, 250, {alvo = alvo})

addEvent(string, 500, {alvo = alvo})

addEvent(string, 750, {alvo = alvo})

addEvent(string, 1000, {alvo = alvo})

addEvent(string, 1250, {alvo = alvo})

addEvent(string, 1500, {alvo = alvo})

addEvent(string, 1750, {alvo = alvo})

addEvent(string, 2000, {alvo = alvo})

addEvent(string, 2250, {alvo = alvo})

addEvent(string, 2500, {alvo = alvo})

addEvent(string, 2750, {alvo = alvo})

addEvent(string, 3000, {alvo = alvo})

addEvent(normalstr, 3050, {alvo = alvo})

return 0

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

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

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

elseif pokemon.x.spell == "Flame Wheel" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), charge, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 6)

return 0

elseif pokemon.x.spell == "Poison Powder" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatCondition(getCreatureSummons(cid)[1], getThingPos(getCreatureSummons(cid)[1]), confusion, condition2, 255)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 27)

return 0

elseif pokemon.x.spell == "Horn Attack" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 15)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 9)

return 0

elseif pokemon.x.spell == "Stun Spore" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatCondition(getCreatureSummons(cid)[1], getThingPos(getCreatureSummons(cid)[1]), confusion, thunderwavecondition, 255)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 85)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatCondition(getCreatureSummons(cid)[1], getThingPos(getCreatureSummons(cid)[1]), confusion, thunderwavecondition, 255)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 85)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatCondition(getCreatureSummons(cid)[1], getThingPos(getCreatureSummons(cid)[1]), confusion, thunderwavecondition, 255)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 85)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatCondition(getCreatureSummons(cid)[1], getThingPos(getCreatureSummons(cid)[1]), confusion, thunderwavecondition, 255)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 85)

end

return 0

elseif pokemon.x.spell == "Icy Wind" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), iwn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 41)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), iwe, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 41)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), iws, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 41)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), iww, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 41)

end

return 0

elseif pokemon.x.spell == "Poison Fang" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num1)+(getPlayerLevel(cid)*(num3))), 138)

return 0

elseif pokemon.x.spell == "Fear" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local t = getCreatureTarget(cid)

setPlayerStorageValue(t, 5, 1)

local function confused(params)

if isCreature(params.t) then

local spdc = getCreatureSpeed(params.t)

if getCreatureLookDir(params.t) == 0 then

confs = math.random(1,3)

elseif getCreatureLookDir(params.t) == 1 then

confurandom = math.random(1,99)

if confurandom <= 33 then

confs = 0

elseif confurandom >= 67 then

confs = 2

else

confs = 3

end

elseif getCreatureLookDir(params.t) == 2 then

confurandom = math.random(1,99)

if confurandom <= 33 then

confs = 3

elseif confurandom >= 67 then

confs = 0

else

confs = 1

end

elseif getCreatureLookDir(params.t) == 3 then

confs = math.random(0,2)

end

doPushCreature(params.t, confs, 1, 0)

doSendMagicEffect(getThingPos(params.t), 214)

end

end

local function nonc(params)

if isCreature(params.t) then

doChangeSpeed(params.t, -getCreatureSpeed(params.t))

doChangeSpeed(params.t, getCreatureBaseSpeed(params.t))

setPlayerStorageValue(params.t, 5, -1)

end

end

doChangeSpeed(t, -( getCreatureSpeed(t)/3))

doSendMagicEffect(getThingPos(t), 214)

for i = 1, math.random(6,7) do

addEvent(confused, 1000*i, {cid = cid, t = t})

end

addEvent(nonc, 7100, {cid - cid, t = t})

return 0

 

elseif pokemon.x.spell == "Aqua Tail" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 68)

return 0

elseif pokemon.x.spell == "Hydro Cannon" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function gust(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], null, params.ar, sand1, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.eee)

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, params.ar, whirl3, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 68)

doAreaCombatHealth(getCreatureSummons(params.cid)[1], null, params.arr, whirl3, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 68)

else

end

end

local posicao = getThingPos(getCreatureSummons(cid)[1])

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

addEvent(gust, 0, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-1, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-1, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-2, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-4, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-3, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-5, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-4, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-6, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-5, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

addEvent(gust, 0, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+1, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+1, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+2, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+4, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+3, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+5, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+4, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+6, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+5, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

addEvent(gust, 0, {cid = cid, eee = 67, ar = {x=posicao.x+1, y=posicao.y, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 67, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+1, y=posicao.y, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 67, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+2, y=posicao.y, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 67, ar = {x=posicao.x+4, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 67, ar = {x=posicao.x+5, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+4, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 67, ar = {x=posicao.x+6, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+5, y=posicao.y, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

addEvent(gust, 0, {cid = cid, eee = 65, ar = {x=posicao.x-1, y=posicao.y, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 65, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-1, y=posicao.y, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 65, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-2, y=posicao.y, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 65, ar = {x=posicao.x-4, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 65, ar = {x=posicao.x-5, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-4, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 65, ar = {x=posicao.x-6, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-5, y=posicao.y, z=posicao.z}})

end

return 0

elseif pokemon.x.spell == "Ice Beam" then

alvo = getCreatureName(getCreatureTarget(cid))

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 99)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 105)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 103)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 98)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 105)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 102)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 96)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 104)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 100)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 97)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 104)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 101)

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Zap Cannon" then

alvo = getCreatureName(getCreatureTarget(cid))

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 94)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 93)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 95)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 91)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 93)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 92)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 86)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 88)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 87)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 89)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 88)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 90)

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Slash" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 142)

return 0

elseif pokemon.x.spell == "Shockwave" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function sandattack(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], null, params.ar, 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.ef)

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, params.ar, params.wave, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

else

end

end

local posicao = getThingPos(getCreatureSummons(cid)[1])

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x+1, y=posicao.y-1, z=posicao.z}, ef = 126, wave = swaven})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+1, y=posicao.y-2, z=posicao.z}, ef = 126, wave = swaven})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+1, y=posicao.y-3, z=posicao.z}, ef = 126, wave = swaven})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x+1, y=posicao.y-4, z=posicao.z}, ef = 126, wave = swaven})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x+1, y=posicao.y-5, z=posicao.z}, ef = 126, wave = swaven})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x+1, y=posicao.y+2, z=posicao.z}, ef = 125, wave = swaves})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+1, y=posicao.y+3, z=posicao.z}, ef = 125, wave = swaves})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+1, y=posicao.y+4, z=posicao.z}, ef = 125, wave = swaves})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x+1, y=posicao.y+5, z=posicao.z}, ef = 125, wave = swaves})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x+1, y=posicao.y+6, z=posicao.z}, ef = 125, wave = swaves})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x+2, y=posicao.y+1, z=posicao.z}, ef = 124, wave = swavee})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+3, y=posicao.y+1, z=posicao.z}, ef = 124, wave = swavee})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+4, y=posicao.y+1, z=posicao.z}, ef = 124, wave = swavee})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x+5, y=posicao.y+1, z=posicao.z}, ef = 124, wave = swavee})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x+6, y=posicao.y+1, z=posicao.z}, ef = 124, wave = swavee})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x-1, y=posicao.y+1, z=posicao.z}, ef = 123, wave = swavew})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x-2, y=posicao.y+1, z=posicao.z}, ef = 123, wave = swavew})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x-3, y=posicao.y+1, z=posicao.z}, ef = 123, wave = swavew})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x-4, y=posicao.y+1, z=posicao.z}, ef = 123, wave = swavew})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x-5, y=posicao.y+1, z=posicao.z}, ef = 123, wave = swavew})

end

return 0

elseif pokemon.x.spell == "Healarea" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), healarea, ((num1)+(getPlayerLevel(cid)*(num3))), ((num2)+(getPlayerLevel(cid)*(num3))), 12)

doCreatureAddHealth(getCreatureSummons(cid)[1], ((num2)+((getPlayerLevel(cid))*(num3))))

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "+"..((num2)+((getPlayerLevel(cid))*(num3))).."", 12)

return 0

elseif pokemon.x.spell == "Dizzy Punch" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 3)

local t = getCreatureTarget(cid)

setPlayerStorageValue(t, 5, 1)

local function confused(params)

if isCreature(params.t) then

local spdc = getCreatureSpeed(params.t)

if getCreatureLookDir(params.t) == 0 then

confs = math.random(1,3)

elseif getCreatureLookDir(params.t) == 1 then

confurandom = math.random(1,99)

if confurandom <= 33 then

confs = 0

elseif confurandom >= 67 then

confs = 2

else

confs = 3

end

elseif getCreatureLookDir(params.t) == 2 then

confurandom = math.random(1,99)

if confurandom <= 33 then

confs = 3

elseif confurandom >= 67 then

confs = 0

else

confs = 1

end

elseif getCreatureLookDir(params.t) == 3 then

confs = math.random(0,2)

end

doPushCreature(params.t, confs, 1, 0)

doSendMagicEffect(getThingPos(params.t), 31)

end

end

local function nonc(params)

if isCreature(params.t) then

doChangeSpeed(params.t, -getCreatureSpeed(params.t))

doChangeSpeed(params.t, getCreatureBaseSpeed(params.t))

setPlayerStorageValue(params.t, 5, -1)

end

end

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 26)

doChangeSpeed(t, -( getCreatureSpeed(t)/3))

doSendMagicEffect(getThingPos(t), 31)

for i = 1, math.random(6,7) do

addEvent(confused, 1000*i, {cid = cid, t = t})

end

addEvent(nonc, 7100, {cid - cid, t = t})

return 0

elseif pokemon.x.spell == "Psychic" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 133)

return 0

elseif pokemon.x.spell == "Thunder" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), thunder, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 48)

return 0

elseif pokemon.x.spell == "Poison Fang" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num1)+(getPlayerLevel(cid)*(num3))), 138)

return 0

elseif pokemon.x.spell == "Poison Bomb" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

addEvent(doAreaCombatHealth, 100, getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), bomb, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 114)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 14)

return 0

elseif pokemon.x.spell == "Shredder Team" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureName(getCreatureSummons(cid)[1]) == "Scyther" then

doSetCreatureOutfit(getCreatureSummons(cid)[1], scyther, 8300)

doChangeSpeed(getCreatureSummons(cid)[1], 145)

end

setPlayerStorageValue(getCreatureSummons(cid)[1], 4, 1)

local function team(params)

if isCreature(params.cid) then

if isCreature(getCreatureSummons(params.cid)[1]) then

if getCreatureCondition(getCreatureSummons(params.cid)[1], CONDITION_OUTFIT) == true then

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "+"..((num2)+((getPlayerLevel(cid))*(num3))).."", 15)

end

end

end

end

for r = 1, 8 do

addEvent(team, 1000*r, {cid = cid})

end

local function stopteam(params)

if isCreature(params.cid) then

if isCreature(getCreatureSummons(params.cid)[1]) then

doChangeSpeed(getCreatureSummons(params.cid)[1], -145)

if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 4) >= 1 then

setPlayerStorageValue(getCreatureSummons(params.cid)[1], 4, 0)

end

end

end

end

addEvent(stopteam, 8300, {cid = cid})

return 0

elseif pokemon.x.spell == "Poison Powder" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 84)

return 0

elseif pokemon.x.spell == "Selfheal" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 132)

doCreatureAddHealth(getCreatureSummons(cid)[1], ((num2)+((getPlayerLevel(cid))*(num3))))

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "+"..((num2)+((getPlayerLevel(cid))*(num3))).."", 132)

return 0

elseif pokemon.x.spell == "Rock Throw" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 11)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 3)

return 0

elseif pokemon.x.spell == "Bubble Blast" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function throw(params)

if isMonster(getCreatureTarget(params.cid)) then

doSendDistanceShoot(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(getCreatureTarget(params.cid)), 2)

else

end

end

local function damage(params)

if isMonster(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 68)

else

end

end

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

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

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

addEvent(damage, 400, {cid = cid})

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

addEvent(damage, 800, {cid = cid})

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

addEvent(damage, 1200, {cid = cid})

return 0

elseif pokemon.x.spell == "Headbutt" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 3)

return 0

elseif pokemon.x.spell == "Thunder Punch" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function damage(params)

if isMonster(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 48)

else

end

end

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

return 0

elseif pokemon.x.spell == "Reflect" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 135)

setPlayerStorageValue(getCreatureSummons(cid)[1], 34, 1)

return 0

elseif pokemon.x.spell == "Fury Cutter" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function attaque(params)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wingn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 128)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), winge, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 129)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingde, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wings, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 131)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingds, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wingw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 130)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

end

end

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

addEvent(attaque, 500, {cid = cid})

return 0

elseif pokemon.x.spell == "Confusion" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 136)

return 0

elseif pokemon.x.spell == "Acid" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 14)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 20)

return 0

elseif pokemon.x.spell == "Fire Fang" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendMagicEffect(getThingPos(getCreatureTarget(cid)), 146)

local function damage(params)

if isCreature(params.cid) then

if isCreature(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 5)

end

end

end

addEvent(damage, 200, {cid = cid})

return 0

elseif pokemon.x.spell == "Stomp" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), stomp, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 118)

return 0

elseif pokemon.x.spell == "Thunder Punch" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function damage(params)

if isMonster(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 48)

else

end

end

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

return 0

elseif pokemon.x.spell == "Bubblebeam" then

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 25)

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Water Pulse" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function gust(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, params.ar, sand1, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 68)

else

end

end

local posicao = getThingPos(getCreatureSummons(cid)[1])

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x, y=posicao.y-4, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x, y=posicao.y+4, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x+4, y=posicao.y, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x-4, y=posicao.y, z=posicao.z}})

end

return 0

elseif pokemon.x.spell == "Mud Shot" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

setPlayerStorageValue(getCreatureTarget(cid), 3, 1)

local mudalvo = getCreatureTarget(cid)

local function ver(params)

if isCreature(params.mudalvo) then

if getPlayerStorageValue(params.mudalvo, 3) >= 1 then

setPlayerStorageValue(params.mudalvo, 3, -1)

end

end

end

local function muds(params)

if isCreature(params.alvo) then

if getPlayerStorageValue(params.alvo, 3) >= 1 then

doSendMagicEffect(getThingPos(params.alvo), 34)

end

end

end

addEvent(muds, 500, {alvo = mudalvo})

addEvent(muds, 1000, {alvo = mudalvo})

addEvent(muds, 1500, {alvo = mudalvo})

addEvent(muds, 2000, {alvo = mudalvo})

addEvent(muds, 2500, {alvo = mudalvo})

addEvent(muds, 3000, {alvo = mudalvo})

addEvent(muds, 3500, {alvo = mudalvo})

addEvent(muds, 4000, {alvo = mudalvo})

addEvent(ver, 4100, {mudalvo = mudalvo})

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 1)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 34)

return 0

elseif pokemon.x.spell == "Poison Gas" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function gas(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 114)

end

end

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

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

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

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

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

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

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

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

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

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

return 0

elseif pokemon.x.spell == "Horn Drill" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function throw(params)

if isMonster(getCreatureTarget(params.cid)) then

doSendDistanceShoot(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(getCreatureTarget(params.cid)), 25)

else

end

end

local function damage(params)

if isMonster(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 9)

else

end

end

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

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

return 0

elseif pokemon.x.spell == "Iron Tail" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function damage(params)

if isMonster(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 160)

else

end

end

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

return 0

elseif pokemon.x.spell == "Thunder Bolt" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local posalvo = getThingPos(getCreatureTarget(cid))

local boltalvo = getCreatureTarget(cid)

posalvo.x = posalvo.x-2

posalvo.y = posalvo.y-6

doSendDistanceShoot(posalvo, getThingPos(getCreatureTarget(cid)), 41)

local function bolt(params)

if isCreature(params.cid) then

if isCreature(getCreatureTarget(cid)) then

if getCreatureTarget(params.cid) == params.boltalvo then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 48)

end

end

end

end

addEvent(bolt, 200, {cid = cid, boltalvo = boltalvo})

return 0

elseif pokemon.x.spell == "Waterball" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function throw(params)

if isMonster(getCreatureTarget(params.cid)) then

doSendDistanceShoot(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(getCreatureTarget(params.cid)), 2)

else

end

end

local function damage(params)

if isMonster(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), waba, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 68)

else

end

end

addEvent(damage, 100, {cid = cid})

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

return 0

elseif pokemon.x.spell == "Fire Punch" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function throw(params)

if isMonster(getCreatureTarget(params.cid)) then

doSendDistanceShoot(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(getCreatureTarget(params.cid)), 3)

else

end

end

local function damage(params)

if isMonster(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 15)

else

end

end

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

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

return 0

elseif pokemon.x.spell == "Falling Rocks" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function fall(params)

if isCreature(params.cid) then

if isCreature(getCreatureSummons(params.cid)[1]) then

local pos = getThingPos(getCreatureSummons(cid)[1])

pos.x = pos.x + math.random(-4,4)

pos.y = pos.y + math.random(-4,4)

local frompos = getThingPos(getCreatureSummons(cid)[1])

frompos.x = pos.x - 7

frompos.y = pos.y - 6

doSendDistanceShoot(frompos, pos, 11)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, pos, 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 44)

end

end

end

for rocks = 1, 72 do

addEvent(fall, rocks*35, {cid = cid})

end

return 0

elseif pokemon.x.spell == "Thunder Wave" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

 

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tsn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 48)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

 

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tse, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 48)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

 

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tss, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 48)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

 

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tsw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 48)

end

return 0

elseif pokemon.x.spell == "Leech Seed" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 5)

local alvo = getCreatureTarget(cid)

local leecher = getCreatureSummons(cid)[1]

local function suck(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

if isCreature(params.alvo) then

if getCreatureSummons(cid)[1] == leecher then

doSendMagicEffect(getThingPos(getCreatureSummons(params.cid)[1]), 14)

local life = getCreatureHealth(alvo)

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(params.alvo), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 45)

local newlife = life - getCreatureHealth(alvo)

if newlife >= 1 then

doCreatureAddHealth(getCreatureSummons(params.cid)[1], newlife)

doSendAnimatedText(getThingPos(getCreatureSummons(params.cid)[1]), "+"..newlife.."", 35)

end

end

end

end

end

addEvent(suck, 2000, {cid = cid, alvo = alvo})

addEvent(suck, 4000, {cid = cid, alvo = alvo})

addEvent(suck, 6000, {cid = cid, alvo = alvo})

addEvent(suck, 8000, {cid = cid, alvo = alvo})

addEvent(suck, 10000, {cid = cid, alvo = alvo})

return 0

elseif pokemon.x.spell == "Twister" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 36)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 42)

return 0

elseif pokemon.x.spell == "Water Gun" then

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 74)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 75)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 76)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 77)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 75)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 78)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 69)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 70)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 71)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 72)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 70)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 73)

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Fireball" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function throw(params)

if isMonster(getCreatureTarget(params.cid)) then

doSendDistanceShoot(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(getCreatureTarget(params.cid)), 3)

else

end

end

local function damage(params)

if isMonster(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), waba, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 15)

else

end

end

addEvent(damage, 100, {cid = cid})

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

return 0

elseif pokemon.x.spell == "Rock Tomb" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

rock1 = {x=getThingPos(getCreatureSummons(cid)[1]).x+1, y=getThingPos(getCreatureSummons(cid)[1]).y-1, z=getThingPos(getCreatureSummons(cid)[1]).z}

rock2 = {x=getThingPos(getCreatureSummons(cid)[1]).x+0, y=getThingPos(getCreatureSummons(cid)[1]).y-1, z=getThingPos(getCreatureSummons(cid)[1]).z}

rock3 = {x=getThingPos(getCreatureSummons(cid)[1]).x-1, y=getThingPos(getCreatureSummons(cid)[1]).y-1, z=getThingPos(getCreatureSummons(cid)[1]).z}

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tombn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 118)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

rock1 = {x=getThingPos(getCreatureSummons(cid)[1]).x+1, y=getThingPos(getCreatureSummons(cid)[1]).y+1, z=getThingPos(getCreatureSummons(cid)[1]).z}

rock2 = {x=getThingPos(getCreatureSummons(cid)[1]).x+0, y=getThingPos(getCreatureSummons(cid)[1]).y+1, z=getThingPos(getCreatureSummons(cid)[1]).z}

rock3 = {x=getThingPos(getCreatureSummons(cid)[1]).x-1, y=getThingPos(getCreatureSummons(cid)[1]).y+1, z=getThingPos(getCreatureSummons(cid)[1]).z}

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tombs, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 118)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

rock1 = {x=getThingPos(getCreatureSummons(cid)[1]).x-1, y=getThingPos(getCreatureSummons(cid)[1]).y+1, z=getThingPos(getCreatureSummons(cid)[1]).z}

rock2 = {x=getThingPos(getCreatureSummons(cid)[1]).x-1, y=getThingPos(getCreatureSummons(cid)[1]).y+0, z=getThingPos(getCreatureSummons(cid)[1]).z}

rock3 = {x=getThingPos(getCreatureSummons(cid)[1]).x-1, y=getThingPos(getCreatureSummons(cid)[1]).y-1, z=getThingPos(getCreatureSummons(cid)[1]).z}

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tombw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 118)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

rock1 = {x=getThingPos(getCreatureSummons(cid)[1]).x+1, y=getThingPos(getCreatureSummons(cid)[1]).y+1, z=getThingPos(getCreatureSummons(cid)[1]).z}

rock2 = {x=getThingPos(getCreatureSummons(cid)[1]).x+1, y=getThingPos(getCreatureSummons(cid)[1]).y+0, z=getThingPos(getCreatureSummons(cid)[1]).z}

rock3 = {x=getThingPos(getCreatureSummons(cid)[1]).x+1, y=getThingPos(getCreatureSummons(cid)[1]).y-1, z=getThingPos(getCreatureSummons(cid)[1]).z}

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tombe, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 118)

end

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), rock1, 11)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), rock2, 11)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), rock3, 11)

return 0

elseif pokemon.x.spell == "Ground Chop" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function gust(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, params.ar, sand1, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 111)

else

end

end

local posicao = getThingPos(getCreatureSummons(cid)[1])

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x, y=posicao.y-4, z=posicao.z}})

addEvent(gust, 2000, {cid = cid, ar = {x=posicao.x, y=posicao.y-4, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x, y=posicao.y+4, z=posicao.z}})

addEvent(gust, 2000, {cid = cid, ar = {x=posicao.x, y=posicao.y+5, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x+4, y=posicao.y, z=posicao.z}})

addEvent(gust, 2000, {cid = cid, ar = {x=posicao.x+5, y=posicao.y, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x-4, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x-5, y=posicao.y, z=posicao.z}})

end

return 0

elseif pokemon.x.spell == "Psybeam" then

alvo = getCreatureName(getCreatureTarget(cid))

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 109)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 108)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 109)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 108)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 109)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 108)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 106)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 107)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 106)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 107)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 106)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 107)

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Earthshock" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], GROUNDDAMAGE, getThingPos(getCreatureSummons(cid)[1]), charge, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

local sps = getThingPos(getCreatureSummons(cid)[1])

sps.x = sps.x+1

sps.y = sps.y+1

doSendMagicEffect(sps, 127)

return 0

elseif pokemon.x.spell == "Discharge" then

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

setPlayerStorageValue(getCreatureSummons(cid)[1], 15, 0)

local chac = getCreatureSummons(cid)[1]

local function discharge(params)

if isCreature(params.cid) then

if isCreature(getCreatureSummons(params.cid)[1]) then

if getCreatureSummons(params.cid)[1] == chac then

if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 15) >= 1 then

return true

end

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

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(params.cid)[1]), charge, -(((num1)+(getPlayerLevel(cid)*(num3)))*(params.charges)), -(((num2)+(getPlayerLevel(cid)*(num3)))*(params.charges)), 48)

setPlayerStorageValue(getCreatureSummons(params.cid)[1], 15, 1)

else

if params.charges == 5 then

doSendAnimatedText(getThingPos(getCreatureSummons(params.cid)[1]), "FAIL", 215)

else

doSendAnimatedText(getThingPos(getCreatureSummons(params.cid)[1]), "CHARGING", 210)

doSendMagicEffect(getThingPos(getCreatureSummons(params.cid)[1]), 48)

end

end

end

end

end

end

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 48)

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "CHARGING", 210)

for charges = 1, 5 do

addEvent(discharge, charges*1000, {cid = cid, charges = charges})

end

return 0

elseif pokemon.x.spell == "Mega Punch" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 112)

return 0

elseif pokemon.x.spell == "Flamethrower" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

local flamepos = getThingPos(getCreatureSummons(cid)[1])

flamepos.x = flamepos.x+1

flamepos.y = flamepos.y-1

doSendMagicEffect(flamepos, 55)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), flamen, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

local flamepos = getThingPos(getCreatureSummons(cid)[1])

flamepos.x = flamepos.x+3

flamepos.y = flamepos.y+1

doSendMagicEffect(flamepos, 58)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), flamee, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

local flamepos = getThingPos(getCreatureSummons(cid)[1])

flamepos.x = flamepos.x+1

flamepos.y = flamepos.y+3

doSendMagicEffect(flamepos, 56)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), flames, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

local flamepos = getThingPos(getCreatureSummons(cid)[1])

flamepos.x = flamepos.x-1

flamepos.y = flamepos.y+1

doSendMagicEffect(flamepos, 57)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), flamew, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

end

return 0

elseif pokemon.x.spell == "Toxic" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

area = toxicn

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

area = toxice

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

area = toxics

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

area = toxicw

end

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), area, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 114)

return 0

elseif pokemon.x.spell == "Harden" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local hardname = getCreatureName(getCreatureSummons(cid)[1])

setPlayerStorageValue(getCreatureSummons(cid)[1], 4, 1)

local oldpos = getThingPos(getCreatureSummons(cid)[1])

local function efect(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 4) >= 1 then

doSendMagicEffect(getThingPos(getCreatureSummons(params.cid)[1]), 144)

end

end

end

local function chard(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 4) >= 1 then

setPlayerStorageValue(getCreatureSummons(params.cid)[1], 4, -1)

end

end

end

 

addEvent(efect, 100, {cid = cid, hardname = hardname})

addEvent(efect, 1600, {cid = cid, hardname = hardname})

addEvent(efect, 3100, {cid = cid, hardname = hardname})

addEvent(efect, 4600, {cid = cid, hardname = hardname})

addEvent(efect, 6100, {cid = cid, hardname = hardname})

addEvent(efect, 7600, {cid = cid, hardname = hardname})

addEvent(efect, 9100, {cid = cid, hardname = hardname})

addEvent(efect, 10600, {cid = cid, hardname = hardname})

addEvent(chard, 11000, {cid = cid})

return 0

elseif pokemon.x.spell == "Gunk Shot" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local alvinho = getCreatureTarget(cid)

local function rocksup(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

if isCreature(getCreatureTarget(params.cid)) then

if getCreatureTarget(params.cid) ~= params.alvinho then

return true

end

jus = getThingPos(getCreatureSummons(params.cid)[1])

jusa = getThingPos(getCreatureTarget(params.cid))

if jusa.x > jus.x then

xx = 0

elseif jusa.x < jus.x then

xx = -1

else

xx = 0

end

local newpos = {x = getThingPos(getCreatureSummons(params.cid)[1]).x+(xx), y = jusa.y - 3, z = getThingPos(getCreatureSummons(params.cid)[1]).z}

doSendDistanceShoot(getThingPos(getCreatureSummons(params.cid)[1]), newpos, 6)

end

end

end

 

local function rocksdown(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

if isCreature(getCreatureTarget(params.cid)) then

if getCreatureTarget(params.cid) ~= params.alvinho then

return true

end

jus = getThingPos(getCreatureSummons(params.cid)[1])

jusa = getThingPos(getCreatureTarget(params.cid))

if jusa.x > jus.x then

xx = 0

elseif jusa.x < jus.x then

xx = -1

else

xx = 0

end

local newpos = {x = getThingPos(getCreatureSummons(params.cid)[1]).x+(xx), y = jusa.y - 3, z = getThingPos(getCreatureSummons(params.cid)[1]).z}

doSendDistanceShoot(newpos, getThingPos(getCreatureTarget(params.cid)), 6)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), bomb, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 116)

end

end

end

addEvent(rocksup, 0, {cid = cid, alvinho = alvinho})

addEvent(rocksdown, 300, {cid = cid, alvinho = alvinho})

return 0

elseif pokemon.x.spell == "Fire Fang" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendMagicEffect(getThingPos(getCreatureTarget(cid)), 146)

local function damage(params)

if isCreature(params.cid) then

if isCreature(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 5)

end

end

end

addEvent(damage, 200, {cid = cid})

return 0

elseif pokemon.x.spell == "Shadow Storm" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function fall(params)

if isCreature(params.cid) then

if isCreature(getCreatureSummons(params.cid)[1]) then

local pos = getThingPos(getCreatureSummons(cid)[1])

pos.x = pos.x + math.random(-4,4)

pos.y = pos.y + math.random(-4,4)

local frompos = getThingPos(getCreatureSummons(cid)[1])

frompos.x = pos.x - 7

frompos.y = pos.y - 6

doSendDistanceShoot(frompos, pos, 18)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, pos, 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 140)

end

end

end

for rocks = 1, 72 do

addEvent(fall, rocks*35, {cid = cid})

end

return 0

elseif pokemon.x.spell == "Great Love" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function storm(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], params.el, posit, params.ar, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.ef)

else

end

end

addEvent(storm, 0, {cid = cid, el = element, ar = gl1, ef = 147})

addEvent(storm, 500, {cid = cid, el = element, ar = gl2, ef = 147})

return 0

elseif pokemon.x.spell == "Mega Prick" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 25)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 3)

return 0

elseif pokemon.x.spell == "Transform" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSetCreatureOutfit(getCreatureSummons(cid)[1], getCreatureOutfit(getCreatureTarget(cid)), 13000)

return 0

end

return 0

end

 

 

Sleep Powder

 

local thunderwavecondition = createConditionObject(CONDITION_PARALYZE)

setConditionParam(thunderwavecondition, CONDITION_PARAM_TICKS, 9000)

setConditionFormula(thunderwavecondition, -0.75, -0.75, -0.75, -0.75)

 

local waba = createCombatArea{

{0, 1, 1, 1, 0},

{1, 1, 1, 1, 1},

{1, 1, 3, 1, 1},

{1, 1, 1, 1, 1},

{0, 1, 1, 1, 0},

}

 

 

local snorlax = {lookType = 258}

 

local skullb = createCombatArea{

{0, 1, 1, 1, 0},

{1, 1, 1, 1, 1},

{1, 1, 2, 1, 1},

{1, 1, 1, 1, 1},

{0, 1, 1, 1, 0}

}

 

local ap1 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 2, 1, 0, 0, 0, 0}

}

 

local ap2 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0}

}

local ap3 = createCombatArea{

{0, 0, 0, 0, 1, 2, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local ap4 = createCombatArea{

{0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local ap5 = createCombatArea{

{0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local ap6 = createCombatArea{

{0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local ap7 = createCombatArea{

{0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local ap8 = createCombatArea{

{0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

 

local twn = createCombatArea{

{0, 0, 0, 2, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 1, 0, 1, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0},

}

local tws = createCombatArea{

{0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 1, 0, 1, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 2, 0, 0, 0},

}

local tww = createCombatArea{

{0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 0},

{2, 1, 0, 1, 0, 1, 0},

{0, 0, 0, 0, 1, 0, 0},

{0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0},

}

local twe = createCombatArea{

{0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0},

{0, 0, 1, 0, 0, 0, 0},

{0, 1, 0, 1, 0, 1, 2},

{0, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0},

}

 

local thunder = createCombatArea{

{1, 0, 0, 1, 0, 0, 1},

{0, 1, 0, 1, 0, 1, 0},

{0, 0, 1, 1, 1, 0, 0},

{1, 1, 1, 2, 1, 1, 1},

{0, 0, 1, 1, 1, 0, 0},

{0, 1, 0, 1, 0, 1, 0},

{1, 0, 0, 1, 0, 0, 1},

}

 

local destruct1 = createCombatArea{

{0, 0, 1, 0, 0},

{0, 1, 1, 1, 0},

{1, 1, 3, 1, 1},

{0, 1, 1, 1, 0},

{0, 0, 1, 0, 0}

}

 

local destruct2 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0},

{0, 0, 1, 0, 0, 3, 0, 0, 1, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

 

local destruct3 = createCombatArea{

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0},

{0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0},

{0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0},

{1, 1, 0, 0, 0, 3, 0, 0, 0, 1, 1},

{0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0},

{0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0},

{0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}

}

 

 

local confusion = createCombatArea{

{0, 1, 1, 1, 0},

{1, 1, 1, 1, 1},

{1, 1, 2, 1, 1},

{1, 1, 1, 1, 1},

{0, 1, 1, 1, 0},

}

 

local stomp = createCombatArea{

{1, 0, 1, 0, 1},

{0, 1, 1, 1, 0},

{1, 1, 2, 1, 1},

{0, 1, 1, 1, 0},

{1, 0, 1, 0, 1}

}

 

-- WATER GUN

local bomb = createCombatArea{

{0, 1, 0},

{1, 3, 1},

{0, 1, 0},

}

 

local wg1n = createCombatArea{

{0, 0, 0},

{0, 2, 0},

{0, 1, 0},

}

local wg2n = createCombatArea{

{0, 2, 0},

{0, 0, 0},

{0, 1, 0},

{0, 1, 0},

{0, 1, 0},

}

local wg3n = createCombatArea{

{0, 2, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 1, 0},

}

 

local wg1s = createCombatArea{

{0, 1, 0},

{0, 2, 0},

{0, 0, 0},

}

local wg2s = createCombatArea{

{0, 1, 0},

{0, 1, 0},

{0, 1, 0},

{0, 0, 0},

{0, 2, 0},

}

local wg3s = createCombatArea{

{0, 1, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 2, 0},

}

 

local wg1e = createCombatArea{

{0, 0, 0},

{1, 2, 0},

{0, 0, 0},

}

local wg2e = createCombatArea{

{1, 1, 1, 0, 2},

}

local wg3e = createCombatArea{

{1, 0, 0, 0, 0, 2},

}

 

local wg1w = createCombatArea{

{0, 0, 0},

{0, 2, 1},

{0, 0, 0},

}

local wg2w = createCombatArea{

{2, 0, 1, 1, 1},

}

local wg3w = createCombatArea{

{2, 0, 0, 0, 0, 1},

}

-- WATER GUN END

 

local pump1 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0},

{0, 0, 1, 0, 1, 3, 1, 0, 1, 0, 0},

{0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

}

local pump2 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0},

{0, 0, 0, 1, 0, 3, 0, 1, 0, 0, 0},

{0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

}

 

local tor1 = createCombatArea{

{0, 1, 0},

{1, 2, 1},

{0, 1, 0},

}

local tor2 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 2, 0, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local tor3 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0},

{0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

 

local earthquake = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0},

{0, 0, 1, 1, 1, 1, 2, 1, 1, 1, 1, 0, 0},

{0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

 

local sand1 = createCombatArea{

{0, 0, 0},

{0, 3, 0},

{0, 0, 0},

}

 

local whirl3 = createCombatArea{

{0, 0, 0},

{1, 3, 1},

{0, 0, 0},

}

 

local whirl5 = createCombatArea{

{0, 0, 0, 0, 0},

{1, 1, 3, 1, 1},

{0, 0, 0, 0, 0},

}

 

local whirl32 = createCombatArea{

{0, 0, 0},

{1, 3, 1},

{0, 0, 0},

}

 

local whirl52 = createCombatArea{

{0, 0, 0, 0, 0},

{1, 1, 3, 1, 1},

{0, 0, 0, 0, 0},

}

 

--WING ATTACK

local wingn = createCombatArea{

{0, 0, 0},

{1, 2, 0},

{0, 0, 0},

}

local wings = createCombatArea{

{1, 0, 0},

{0, 2, 0},

{0, 0, 0},

}

local winge = createCombatArea{

{1, 0, 0},

{0, 2, 0},

{0, 0, 0},

}

local wingw = createCombatArea{

{0, 2, 3},

{0, 2, 2},

{0, 0, 0},

}

local wingds = createCombatArea{

{1, 1, 1},

{0, 2, 0},

{0, 0, 0},

}

local wingdn = createCombatArea{

{0, 0, 0},

{0, 2, 0},

{1, 1, 1},

}

local wingde = createCombatArea{

{1, 0, 0},

{1, 2, 0},

{1, 0, 0},

}

local wingdw = createCombatArea{

{0, 0, 1},

{0, 2, 1},

{0, 0, 1},

}

 

local tsn = createCombatArea{

{0, 0, 0, 2, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 1, 1, 1, 1, 1, 0},

}

local tss = createCombatArea{

{0, 1, 1, 1, 1, 1, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 2, 0, 0, 0},

}

local tse = createCombatArea{

{0, 0, 1, 0, 0, 0, 0},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 1, 1, 1, 1, 2},

{0, 0, 1, 1, 1, 0, 0},

{0, 0, 1, 0, 0, 0, 0},

}

local tsw = createCombatArea{

{0, 0, 0, 0, 0, 0, 1},

{0, 0, 0, 0, 1, 1, 1},

{0, 0, 2, 1, 1, 1, 1},

{0, 0, 0, 0, 1, 1, 1},

{0, 0, 0, 0, 0, 0, 1},

}

 

local pokeis = {'Bulbasaur', 'Ivysaur', 'Venusaur', 'Charmeleon', 'Charizard', 'Wartortle', 'Blastoise',

'Butterfree', 'Fearow', 'Arbok', 'Raichu', 'Nidoqueen', 'Nidoking', 'Clefable', 'Ninetales', 'Wigglytuff',

'Vileplume', 'Parasect', 'Venonat', 'Venomoth', 'Dugtrio', 'Golduck', 'Primeape', 'Arcanine', 'Poliwrath',

'Kadabra', 'Alakazam', 'Machamp', 'Victreebel', 'Tentacruel', 'Slowbro', 'Dewgong', 'Cloyster', 'Haunter',

'Gengar', 'Onix', 'Hypno', 'Exeggutor', 'Marowak', 'Hitmonchan', 'Lickitung', 'Weezing', 'Rhydon',

'Kangaskhan', 'Seadra', 'Golem', 'Sandslash', 'Starmie', 'Jinx', 'Pinsir', 'Gyarados', 'Lapras', 'Ditto',

'Vaporeon', 'Jolteon', 'Flareon', 'Porygon', 'Omastar', 'Aerodactyl', 'Snorlax', 'Zapdos', 'Dragonite',

'Elder Charizard', 'Crystal Onix', 'Jynx', 'Electrode'}

local c = {

[25] = {x = {

pok = bulbasaur,

spell = "Stun Spore",

minLv = 28,

ex = 1000008,

base1 = 0,

base2 = 0,

dista = 5,

target = "no",

bonus = 0,

type = "grass",

cd = 25

}

},

[24] = {x = {

pok = ivysaur,

spell = "Sleep Powder",

minLv = 44,

ex = 2000008,

base1 = 0,

base2 = 0,

dista = 5,

target = "no",

bonus = 0,

type = "grass",

cd = 30

}

},

[22] = {x = {

pok = venusaur,

spell = "Sleep Powder",

minLv = 85,

ex = 3000008,

base1 = 0,

base2 = 0,

dista = 5,

target = "no",

bonus = 0,

type = "grass",

cd = 30

}

},

 

[23] = {x = {

pok = charmeleon,

spell = "Rage",

minLv = 40,

ex = 5000008,

base1 = 100,

base2 = 110,

dista = 3,

target = "no",

bonus = 4,

type = "dragon",

cd = 22

}

},

[67] = {x = {

pok = charizard,

spell = "Wing Attack",

minLv = 90,

ex = 5000008,

base1 = 150,

base2 = 200,

dista = 1,

bonus = 6,

target = "no",

type = "flying",

cd = 20

}

},

 

[6] = {x = {

pok = wartortle,

spell = "Harden",

minLv = 40,

ex = 1100008,

lpl = 93,

life = 2800,

base1 = 0,

base2 = 0,

dista = 1,

target = "no",

bonus = 0,

type = "normal",

cd = 14

}

},

[55] = {x = {

pok = blastoise,

spell = "Skull Bash",

minLv = 90,

ex = 1100008,

base1 = 190,

base2 = 225,

dista = 5,

target = "no",

bonus = 10,

type = "normal",

cd = 18

}

},

 

[40] = {x = {

pok = butterfree,

spell = "Stun Spore",

minLv = 30,

ex = 1300008,

base1 = 0,

base2 = 0,

dista = 5,

target = "no",

bonus = 0,

type = "grass",

cd = 25

}

},

 

 

[17] = {x = {

pok = fearow,

spell = "Rage",

minLv = 55,

ex = 2600005,

base1 = 120,

base2 = 130,

dista = 4,

target = "no",

bonus = 3.5,

type = "dragon",

cd = 20

}

},

 

[39] = {x = {

pok = arbok,

spell = "Rage",

minLv = 40,

ex = 2700008,

base1 = 140,

base2 = 176,

dista = 5,

target = "no",

bonus = 4,

type = "dragon",

cd = 15

}

},

 

[50] = {x = {

pok = raichu,

spell = "Electric Storm",

minLv = 65,

ex = 2900008,

base1 = 100,

base2 = 200,

dista = 5,

target = "no",

bonus = 5,

type = "electric",

cd = 19

}

},

 

 

[79] = {x = {

pok = nidoqueen,

spell = "Stomp",

minLv = 69,

ex = 3100008,

base1 = 110,

base2 = 170,

dista = 1,

bonus = 4.5,

target = "no",

type = "ground",

cd = 10

}

},

[35] = {x = {

pok = nidoking,

spell = "Stomp",

minLv = 69,

ex = 3400008,

base1 = 170,

base2 = 200,

dista = 1,

bonus = 5,

target = "no",

type = "ground",

cd = 9

}

},

 

[68] = {x = {

pok = clefable,

spell = "Focus",

minLv = 52,

ex = 3600008,

base1 = 0,

base2 = 0,

dista = 5,

Target = "no",

bonus = 3,

type = "normal",

cd = 50

}

},

 

[114] = {x = {

pok = Ninetales,

spell = "Magma Storm",

minLv = 85,

ex = 3800008,

base1 = 240,

base2 = 390,

dista = 5,

target = "no",

bonus = 4,

type = "fire",

cd = 18

}

},

[64] = {x = {

pok = Wigglytuff,

spell = "Melody",

minLv = 50,

ex = 4000008,

base1 = 200,

base2 = 300,

dista = 5,

target = "no",

bonus = 8.5,

type = "Normal",

cd = 60

}

},

[86] = {x = {

pok = vileplume,

spell = "Sleep Powder",

minLv = 50,

ex = 4500008,

base1 = 0,

base2 = 0,

dista = 4,

target = "no",

bonus = 0,

type = "grass",

cd = 46

}

},

[95] = {x = {

pok = parasect,

spell = "Sleep Powder",

minLv = 50,

ex = 4700008,

base1 = 20,

base2 = 40,

dista = 4,

target = "no",

bonus = 3,

target = "no",

type = "grass",

cd = 17

}

},

[52] = {x = {

pok = venonat,

spell = "Stun Spore",

minLv = 20,

ex = 4800008,

base1 = 0,

base2 = 0,

dista = 1,

bonus = 0,

target = "no",

type = "grass",

cd = 20

}

},

[49] = {x = {

pok = venomoth,

spell = "Poison Powder",

minLv = 50,

ex = 4900008,

base1 = 50,

base2 = 80,

dista = 5,

target = "no",

bonus = 4,

type = "poison",

cd = 43

}

},

[83] = {x = {

pok = dugtrio,

spell = "Rage",

minLv = 45,

ex = 5100008,

base1 = 110,

base2 = 132,

dista = 3,

bonus = 4.9,

type = "dragon",

cd = 43

}

},

[99] = {x = {

pok = golduck,

spell = "Mega Kick",

minLv = 55,

ex = 5500008,

base1 = 110,

base2 = 140,

dista = 1,

bonus = 4,

type = "fighting",

cd = 35

}

},

[103] = {x = {

pok = primeape,

spell = "Fear",

minLv = 60,

ex = 5700008,

base1 = 110,

base2 = 160,

dista = 3,

target = "no",

bonus = 4,

type = "ghost",

cd = 12

}

},

[88] = {x = {

pok = arcanine,

spell = "Fire Blast",

minLv = 82,

ex = 5900008,

base1 = 120,

base2 = 210,

dista = 5,

target = "no",

bonus = 8,

type = "fire",

cd = 19

}

},

[104] = {x = {

pok = poliwrath,

spell = "Ice Beam",

minLv = 73,

ex = 6200008,

base1 = 100,

base2 = 187,

dista = 5,

target = "no",

bonus = 10,

type = "ice",

cd = 17

}

},

 

[219] = {x = {

pok = kadabra,

spell = "Reflect",

minLv = 60,

ex = 6400008,

base1 = 190,

base2 = 225,

dista = 5,

target = "no",

bonus = 4,

type = "psychic",

cd = 30

}

},

[218] = {x = {

pok = alakazam,

spell = "Hypnosis",

minLv = 80,

ex = 6500008,

base1 = 0,

base2 = 0,

dista = 3,

bonus = 5,

type = "psychic",

cd = 30

}

},

[121] = {x = {

pok = machamp,

spell = "Strafe",

minLv = 70,

ex = 6800008,

base1 = 120,

base2 = 180,

dista = 4,

target = "no",

bonus = 5,

type = "normal",

cd = 27

}

},

 

[240] = {x = {

pok = victreebel,

spell = "Sleep Powder",

minLv = 55,

ex = 7100008,

base1 = 0,

base2 = 0,

dista = 1,

bonus = 0,

type = "grass",

cd = 20

}

},

[108] = {x = {

pok = tentacruel,

spell = "Psywave",

minLv = 80,

ex = 7300008,

base1 = 125,

base2 = 150,

dista = 5,

target = "no",

bonus = 3.5,

type = "psychic",

cd = 15

}

},

[41] = {x = {

pok = slowbro,

spell = "Psychic",

minLv = 55,

ex = 8000008,

base1 = 70,

base2 = 120,

dista = 5,

target = "no",

bonus = 4,

type = "psychic",

cd = 7

}

},

[110] = {x = {

pok = dewgong,

spell = "Rest",

minLv = 71,

ex = 8700008,

base1 = 560,

base2 = 1180,

dista = 5,

target = "no",

bonus = 4.1,

type = "normal",

cd = 122

}

},

[72] = {x = {

pok = cloyster,

spell = "Harden",

minLv = 62,

ex = 9100008,

lpl = 155,

life = 5000,

base1 = 0,

base2 = 0,

dista = 5,

bonus = 0,

target = "no",

type = "normal",

cd = 8

}

},

 

[65] = {x = {

pok = haunter,

spell = "Fear",

minLv = 45,

ex = 9300008,

base1 = 0,

base2 = 0,

dista = 3,

Target = "no",

bonus = 3.5,

type = "ghost",

cd = 16

}

},

[244] = {x = {

pok = gengar,

spell = "Hypnosis",

minLv = 80,

ex = 9400008,

base1 = 0,

base2 = 0,

dista = 3,

bonus = 4.5,

type = "ghost",

cd = 40

}

},

[248] = {x = {

pok = onix,

spell = "Harden",

minLv = 50,

ex = 9500008,

lpl = 150,

life = 5300,

base1 = 0,

base2 = 0,

dista = 4,

target = "no",

bonus = 0,

type = "normal",

cd = 25

}

},

 

 

[119] = {x = {

pok = hypno,

spell = "Focus",

minLv = 70,

ex = 9700008,

base1 = 0,

base2 = 0,

Target = "no",

dista = 5,

bonus = 4.8,

type = "normal",

cd = 20

}

},

 

 

 

[46] = {x = {

pok = exeggutor,

spell = "Poison Powder",

minLv = 55,

ex = 1030008,

base1 = 30,

base2 = 50,

dista = 5,

target = "no",

bonus = 4,

type = "poison",

cd = 32

}

},

 

[197] = {x = {

pok = marowak,

spell = "Rage",

minLv = 65,

ex = 1050008,

base1 = 100,

base2 = 130,

dista = 3,

bonus = 4.5,

type = "dragon",

cd = 12

}

},

 

[38] = {x = {

pok = hitmonchan,

spell = "Fist Machine",

minLv = 60,

ex = 1070008,

base1 = 196,

base2 = 219,

target = "no",

bonus = 7,

type = "fighting",

cd = 35

}

},

[11] = {x = {

pok = lickitung,

spell = "Strafe",

minLv = 55,

ex = 1080008,

base1 = 100,

base2 = 140,

dista = 1,

bonus = 3.5,

type = "normal",

cd = 25

}

},

[231] = {x = {

pok = weezing,

spell = "Selfdestruct",

minLv = 50,

ex = 1100008,

base1 = 350,

base2 = 580,

dista = 5,

target = "no",

bonus = 3.5,

type = "normal",

cd = 13

}

},

[200] = {x = {

pok = rhydon,

spell = "Mega Horn",

minLv = 82,

ex = 1120008,

base1 = 110,

base2 = 300,

dista = 3,

bonus = 9,

type = "rock",

cd = 15

}

},

[198] = {x = {

pok = kangaskhan,

spell = "Rage",

minLv = 80,

ex = 1150008,

base1 = 136,

base2 = 149,

dista = 1,

target = "no",

bonus = 4,

type = "dragon",

cd = 25

}

},

 

[276] = {x = {

pok = seadra,

spell = "Hydro Cannon",

minLv = 55,

ex = 1170008,

base1 = 190,

base2 = 245,

dista = 1,

bonus = 13,

target = "no",

type = "water",

cd = 30

}

},

[116] = {x = {

pok = golem,

spell = "Selfdestruct",

minLv = 75,

ex = 7600008,

base1 = 480,

base2 = 790,

dista = 5,

target = "no",

bonus = 6,

type = "normal",

cd = 100

}

},

[288] = {x = {

pok = golemroll,

spell = "Selfdestruct",

minLv = 75,

ex = 7600008,

base1 = 480,

base2 = 790,

dista = 5,

target = "no",

bonus = 6,

type = "normal",

cd = 100

}

},

[115] = {x = {

pok = sandslash,

spell = "Earthquake",

minLv = 70,

ex = 2800008,

base1 = 150,

base2 = 180,

dista = 3,

target = "no",

bonus = 1.6,

type = "ground",

cd = 45

}

},

[249] = {x = {

pok = starmie,

spell = "Restore",

minLv = 35,

ex = 1210008,

base1 = 180,

base2 = 240,

dista = 5,

target = "no",

bonus = 2.9,

type = "psychic",

cd = 10

}

},

[282] = {x = {

pok = jynx,

spell = "Blizzard",

minLv = 81,

ex = 1240008,

base1 = 115,

base2 = 150,

dista = 5,

target = "no",

bonus = 10,

type = "ice",

cd = 30

}

},

[53] = {x = {

pok = pinsir,

spell = "Rage",

minLv = 60,

ex = 1270008,

base1 = 110,

base2 = 130,

dista = 1,

bonus = 3.5,

type = "dragon",

cd = 17

}

},

[117] = {x = {

pok = gyarados,

spell = "Hydropump",

minLv = 93,

ex = 1300005,

base1 = 160,

base2 = 320,

dista = 5,

target = "no",

bonus = 3.5,

type = "water",

cd = 23

}

},

[193] = {x = {

pok = lapras,

spell = "Hydropump",

minLv = 90,

ex = 1310008,

base1 = 123,

base2 = 287,

dista = 5,

target = "no",

bonus = 4,

type = "water",

cd = 12

}

},

[28] = {x = {

pok = ditto,

spell = "",

minLv = 40,

ex = 1320008,

base1 = 125,

base2 = 130,

dista = 5,

bonus = 3,

target = "no",

type = "normal",

cd = 20

}

},

[215] = {x = {

pok = vaporeon,

spell = "Hydro Cannon",

minLv = 65,

ex = 1340008,

base1 = 109,

base2 = 189,

dista = 1,

bonus = 3,

target = "no",

type = "water",

cd = 20

}

},

[195] = {x = {

pok = jolteon,

spell = "Thunder",

minLv = 65,

ex = 1350008,

base1 = 110,

base2 = 189,

dista = 5,

target = "no",

bonus = 3,

type = "electric",

cd = 13

}

},

[14] = {x = {

pok = flareon,

spell = "Fire Blast",

minLv = 65,

ex = 1360008,

base1 = 110,

base2 = 189,

dista = 1,

target = "no",

bonus = 3,

type = "fire",

cd = 20

}

},

[97] = {x = {

pok = porygon,

spell = "Restore",

minLv = 40,

ex = 1370008,

base1 = 165,

base2 = 215,

dista = 5,

bonus = 3.5,

target = "no",

type = "psychic",

cd = 30

}

},

 

[192] = {x = {

pok = omastar,

spell = "Ancient Power",

minLv = 95,

ex = 1390008,

base1 = 240,

base2 = 380,

dista = 5,

target = "no",

bonus = 5,

type = "rock",

cd = 34

}

},

[10] = {x = {

pok = aerodactyl,

spell = "Wing Attack",

minLv = 100,

ex = 1420008,

base1 = 150,

base2 = 345,

dista = 1,

bonus = 6.5,

target = "no",

type = "flying",

cd = 12

}

},

[51] = {x = {

pok = snorlax,

spell = "Rest",

minLv = 85,

ex = 1430008,

base1 = 1500,

base2 = 2000,

dista = 5,

target = "no",

bonus = 6,

type = "normal",

cd = 64

}

},

[258] = {x = {

pok = snorlaxrest,

spell = "Rest",

minLv = 85,

ex = 1430008,

base1 = 1500,

base2 = 2000,

dista = 5,

target = "no",

bonus = 6,

type = "normal",

cd = 64

}

},

 

[199] = {x = {

pok = Zapdos,

spell = "Tornado",

minLv = 100,

ex = 1450008,

base1 = 390,

base2 = 678,

dista = 5,

target = "no",

bonus = 9,

type = "flying",

cd = 11

}

},

 

 

 

[210] = {x = {

pok = dragonite,

spell = "Twister",

minLv = 104,

ex = 1490008,

base1 = 278,

base2 = 300,

dista = 1,

bonus = 6.5,

target = "no",

type = "dragon",

cd = 20

}

},

[294] = {x = {

pok = eldercharizard,

spell = "Wing Attack",

minLv = 100,

ex = 1500008,

base1 = 390,

base2 = 410,

dista = 1,

bonus = 6.8,

target = "no",

type = "flying",

cd = 17

}

},

[292] = {x = {

pok = crystalOnix,

spell = "Harden",

minLv = 100,

ex = 1510008,

lpl = 155,

life = 5000,

base1 = 0,

base2 = 0,

dista = 1,

bonus = 0,

type = "normal",

cd = 25

}

},

[125] = {x = {

pok = electrode,

spell = "Charge Beam",

minLv = 40,

ex = 1010008,

base1 = 100,

base2 = 187,

dista = 5,

target = "no",

bonus = 10,

type = "electric",

cd = 19

}

},

[286] = {x = {

pok = electroderoll,

spell = "Charge Beam",

minLv = 40,

ex = 1010008,

base1 = 100,

base2 = 187,

dista = 5,

target = "no",

bonus = 10,

type = "electric",

cd = 19

}

},

}

 

function onSay(cid)

if #getCreatureSummons(cid) == 0 then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need a pokemon to use moves.")

return 0

end

if getTilePzInfo(getPlayerPosition(cid)) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Can't use Moves on protect zone.")

return true

end

if not isInArray(pokeis, getCreatureName(getCreatureSummons(cid)[1])) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn\'t recognize this move.")

return 0

end

pokemon = c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType]

if getPlayerLevel(cid) < c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.minLv then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don\'t have enough level to use this move.")

return 0

end

if exhaustion.get(cid, pokemon.x.ex) then

seconds = math.floor(((exhaustion.get(cid, pokemon.x.ex)) + 1))

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have to wait "..seconds.." seconds to use this move again.")

return 0

end

if getPlayerStorageValue(getCreatureSummons(cid)[1], 3) >= 1 then

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "MISS", 215)

setPlayerStorageValue(getCreatureSummons(cid)[1], 3, -1)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return true

end

if getPlayerStorageValue(getCreatureSummons(cid)[1], 5) >= 1 then

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

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "SELF HIT", 180)

local levels = getPlayerLevel(cid)

doTargetCombatHealth(cid, getCreatureSummons(cid)[1], COMBAT_PHYSICALDAMAGE, -(math.random((levels*3),(levels*5))), -((math.random((levels*3),(levels*5))+10)), 3)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

return true

end

end

if pokemon.x.target ~= "no" then

if not isMonster(getCreatureTarget(cid)) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don\'t have any targets.")

return 0

end

 

if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid))) > pokemon.x.dista then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Get closer to the target to use this move.")

return 0

end

 

if not isSightClear(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), false) then

return 0

end

end

if pokemon.x.type == "flying" then

elementa = FLYDAMAGE

elseif pokemon.x.type == "ground" then

elementa = GROUNDDAMAGE

elseif pokemon.x.type == "electric" then

elementa = ELECTRICDAMAGE

elseif pokemon.x.type == "ghost" then

elementa = GHOSTDAMAGE

elseif pokemon.x.type == "normal" then

elementa = NORMALDAMAGE

elseif pokemon.x.type == "fighting" then

elementa = FIGHTINGDAMAGE

elseif pokemon.x.type == "poison" then

elementa = POISONDAMAGE

elseif pokemon.x.type == "rock" then

elementa = ROCKDAMAGE

elseif pokemon.x.type == "bug" then

elementa = BUGDAMAGE

elseif pokemon.x.type == "fire" then

elementa = FIREDAMAGE

elseif pokemon.x.type == "water" then

elementa = WATERDAMAGE

elseif pokemon.x.type == "grass" then

elementa = GRASSDAMAGE

elseif pokemon.x.type == "psychic" then

elementa = PSYCHICDAMAGE

elseif pokemon.x.type == "ice" then

elementa = ICEDAMAGE

elseif pokemon.x.type == "dragon" then

elementa = DRAGONDAMAGE

end

 

local element = elementa

local num1 = (pokemon.x.base1)

local num2 = (pokemon.x.base2)

local num3 = (pokemon.x.bonus)

setPlayerStorageValue(getCreatureSummons(cid)[1], 1000, ((num1)+(getPlayerLevel(cid)*(num3))))

if pokemon.x.spell == "Water Gun" then

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 74)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 75)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 76)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 77)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 75)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 78)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 69)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 70)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 71)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 72)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 70)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 73)

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Gust" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function gust(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, params.ar, sand1, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 42)

else

end

end

local posicao = getThingPos(getCreatureSummons(cid)[1])

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x, y=posicao.y-4, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x, y=posicao.y+4, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x+4, y=posicao.y, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

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

addEvent(gust, 500, {cid = cid, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}})

addEvent(gust, 1000, {cid = cid, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, ar = {x=posicao.x-4, y=posicao.y, z=posicao.z}})

end

return 0

---------------------ADICIONADAS---------------------------------------------------------------------------

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

elseif pokemon.x.spell == "Hypnosis" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

setPlayerStorageValue(getCreatureTarget(cid), 3, 1)

local alvo = getCreatureTarget(cid)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 24)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 136)

local function string(params)

if isCreature(params.alvo) then

if getPlayerStorageValue(params.alvo, 3) >= 1 then

doSendMagicEffect(getThingPos(params.alvo), 136)

end

end

end

local function normalstr(params)

if isCreature(params.alvo) then

if getPlayerStorageValue(params.alvo, 3) >= 1 then

setPlayerStorageValue(params.alvo, 3, -1)

end

end

end

addEvent(string, 250, {alvo = alvo})

addEvent(string, 500, {alvo = alvo})

addEvent(string, 750, {alvo = alvo})

addEvent(string, 1000, {alvo = alvo})

addEvent(string, 1250, {alvo = alvo})

addEvent(string, 1500, {alvo = alvo})

addEvent(string, 1750, {alvo = alvo})

addEvent(string, 2000, {alvo = alvo})

addEvent(string, 2250, {alvo = alvo})

addEvent(string, 2500, {alvo = alvo})

addEvent(string, 2750, {alvo = alvo})

addEvent(string, 3000, {alvo = alvo})

addEvent(normalstr, 3050, {alvo = alvo})

return 0

---------------------ADICIONADAS---------------------------------------------------------------------------

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

elseif pokemon.x.spell == "Rage" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 110)

local hitalvo = getCreatureTarget(cid)

local function hit(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

if isCreature(getCreatureTarget(params.cid)) then

if getCreatureTarget(params.cid) == params.hitalvo then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], FLYDAMAGE, getThingPos(getCreatureTarget(params.cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 110)

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), CONST_ME_MAGIC_RED)

end

end

end

end

addEvent(hit, 1000, {cid = cid, hitalvo = hitalvo})

addEvent(hit, 2000, {cid = cid, hitalvo = hitalvo})

addEvent(hit, 3000, {cid = cid, hitalvo = hitalvo})

addEvent(hit, 4000, {cid = cid, hitalvo = hitalvo})

addEvent(hit, 5000, {cid = cid, hitalvo = hitalvo})

addEvent(hit, 6000, {cid = cid, hitalvo = hitalvo})

return 0

 

elseif pokemon.x.spell == "Charge Beam" then

alvo = getCreatureName(getCreatureTarget(cid))

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 94)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 93)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 95)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 91)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 93)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 92)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 86)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 88)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 87)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 89)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 88)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 90)

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Melody" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function storm(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], params.el, posit, params.ar, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.ef)

doAreaCombatCondition(getCreatureSummons(cid)[1], getThingPos(getCreatureSummons(cid)[1]), earthquake, thunderwavecondition, 255)

else

end

end

addEvent(storm, 0, {cid = cid, el = element, ar = earthquake, ef = 19})

addEvent(storm, 1000, {cid = cid, el = element, ar = earthquake, ef = 19})

addEvent(storm, 2000, {cid = cid, el = element, ar = earthquake, ef = 19})

addEvent(storm, 3000, {cid = cid, el = element, ar = earthquake, ef = 19})

addEvent(storm, 4000, {cid = cid, el = element, ar = earthquake, ef = 19})

addEvent(storm, 5000, {cid = cid, el = element, ar = earthquake, ef = 19})

return 0

 

elseif pokemon.x.spell == "Fist Machine" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

local flamepos = getThingPos(getCreatureSummons(cid)[1])

flamepos.x = flamepos.x+0

flamepos.y = flamepos.y-1

doSendMagicEffect(flamepos, 217)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

local flamepos = getThingPos(getCreatureSummons(cid)[1])

flamepos.x = flamepos.x+2

flamepos.y = flamepos.y+0

doSendMagicEffect(flamepos, 215)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingde, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

local flamepos = getThingPos(getCreatureSummons(cid)[1])

flamepos.x = flamepos.x-0

flamepos.y = flamepos.y+2

doSendMagicEffect(flamepos, 218)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingds, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

local flamepos = getThingPos(getCreatureSummons(cid)[1])

flamepos.x = flamepos.x-1

flamepos.y = flamepos.y+0

doSendMagicEffect(flamepos, 216)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

end

return 0

elseif pokemon.x.spell == "Mega Horn" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function throw(params)

if isMonster(getCreatureTarget(params.cid)) then

doSendDistanceShoot(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(getCreatureTarget(params.cid)), 25)

else

end

end

local function damage(params)

if isMonster(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 15)

else

end

end

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

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

return 0

elseif pokemon.x.spell == "Skull Bash" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), skullb, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 208)

return 0

elseif pokemon.x.spell == "Whirlwind" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function gust(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, params.ar, params.br, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 42)

else

end

end

local posicao = getThingPos(getCreatureSummons(cid)[1])

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

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

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

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

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

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

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

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

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

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

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

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

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

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

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

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

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

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

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

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

end

return 0

elseif pokemon.x.spell == "Sleep Powder" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 27)

doAreaCombatCondition(getCreatureSummons(cid)[1], getThingPos(getCreatureSummons(cid)[1]), confusion, thunderwavecondition, 255)

return 0

elseif pokemon.x.spell == "Twister" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), twn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 42)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), twe, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 42)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tws, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 42)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tww, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 42)

end

return 0

elseif pokemon.x.spell == "Stun Spore" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatCondition(getCreatureSummons(cid)[1], getThingPos(getCreatureSummons(cid)[1]), confusion, thunderwavecondition, 255)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 85)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatCondition(getCreatureSummons(cid)[1], getThingPos(getCreatureSummons(cid)[1]), confusion, thunderwavecondition, 255)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 85)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatCondition(getCreatureSummons(cid)[1], getThingPos(getCreatureSummons(cid)[1]), confusion, thunderwavecondition, 255)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 85)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatCondition(getCreatureSummons(cid)[1], getThingPos(getCreatureSummons(cid)[1]), confusion, thunderwavecondition, 255)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 85)

end

return 0

elseif pokemon.x.spell == "Hyper Fang" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num1)+(getPlayerLevel(cid)*(num3))), 159)

return 0

elseif pokemon.x.spell == "Tornado" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function tornado(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], params.el, posit, params.ar, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.ef)

else

end

end

addEvent(tornado, 0, {cid = cid, ef = 42, ar = tor1, el = element})

addEvent(tornado, 500, {cid = cid, ef = 42, ar = tor2, el = element})

addEvent(tornado, 1000, {cid = cid, ef = 42, ar = tor3, el = element})

addEvent(tornado, 500, {cid = cid, ef = CONST_ME_POFF, ar = tor1, el = null})

addEvent(tornado, 1200, {cid = cid, ef = CONST_ME_POFF, ar = tor2, el = null})

addEvent(tornado, 1900, {cid = cid, ef = CONST_ME_POFF, ar = tor2, el = null})

addEvent(tornado, 1900, {cid = cid, ef = CONST_ME_POFF, ar = tor3, el = null})

return 0

elseif pokemon.x.spell == "Hydropump" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function tornado(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], params.el, posit, params.ar, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.ef)

else

end

end

addEvent(tornado, 0, {cid = cid, ef = 53, ar = pump1, el = element})

addEvent(tornado, 500, {cid = cid, ef = 53, ar = pump2, el = element})

return 0

elseif pokemon.x.spell == "Rest" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureName(getCreatureSummons(cid)[1]) == "Snorlax" then

doSetCreatureOutfit(getCreatureSummons(cid)[1], snorlax, 5000)

doChangeSpeed(getCreatureSummons(cid)[1], 145)

end

setPlayerStorageValue(getCreatureSummons(cid)[1], 4, 1)

local function rest(params)

if isCreature(params.cid) then

if isCreature(getCreatureSummons(params.cid)[1]) then

if getCreatureCondition(getCreatureSummons(params.cid)[1], CONDITION_OUTFIT) == true then

doCreatureAddHealth(getCreatureSummons(cid)[1], ((num2)+((getPlayerLevel(cid))*(num3))))

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "+"..((num2)+((getPlayerLevel(cid))*(num3))).."", 32)

end

end

end

end

for r = 1, 4 do

addEvent(rest, 1000*r, {cid = cid})

end

local function stoprest(params)

if isCreature(params.cid) then

if isCreature(getCreatureSummons(params.cid)[1]) then

doChangeSpeed(getCreatureSummons(params.cid)[1], -145)

if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 4) >= 1 then

setPlayerStorageValue(getCreatureSummons(params.cid)[1], 4, 0)

end

end

end

end

addEvent(stoprest, 4300, {cid = cid})

return 0

elseif pokemon.x.spell == "Poison Powder" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 84)

return 0

elseif pokemon.x.spell == "Psychic" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), confusion, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 133)

return 0

elseif pokemon.x.spell == "Water Gun" then

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 74)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 75)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 76)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 77)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 75)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 78)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 69)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 70)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 71)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 72)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 70)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 73)

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Reflect" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 135)

setPlayerStorageValue(getCreatureSummons(cid)[1], 34, 1)

return 0

elseif pokemon.x.spell == "Fire Blast" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function gust(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], null, params.ar, sand1, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.eee)

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, params.ar, whirl3, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 35)

doAreaCombatHealth(getCreatureSummons(params.cid)[1], null, params.arr, whirl3, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 35)

else

end

end

local posicao = getThingPos(getCreatureSummons(cid)[1])

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

addEvent(gust, 0, {cid = cid, eee = 60, ar = {x=posicao.x, y=posicao.y-1, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 60, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-1, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 60, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-2, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 60, ar = {x=posicao.x, y=posicao.y-4, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-3, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 60, ar = {x=posicao.x, y=posicao.y-5, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-4, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 60, ar = {x=posicao.x, y=posicao.y-6, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-5, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

addEvent(gust, 0, {cid = cid, eee = 62, ar = {x=posicao.x, y=posicao.y+1, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 62, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+1, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 62, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+2, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 62, ar = {x=posicao.x, y=posicao.y+4, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+3, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 62, ar = {x=posicao.x, y=posicao.y+5, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+4, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 62, ar = {x=posicao.x, y=posicao.y+6, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+5, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

addEvent(gust, 0, {cid = cid, eee = 61, ar = {x=posicao.x+1, y=posicao.y, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 61, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+1, y=posicao.y, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 61, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+2, y=posicao.y, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 61, ar = {x=posicao.x+4, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 61, ar = {x=posicao.x+5, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+4, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 61, ar = {x=posicao.x+6, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+5, y=posicao.y, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

addEvent(gust, 0, {cid = cid, eee = 63, ar = {x=posicao.x-1, y=posicao.y, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 63, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-1, y=posicao.y, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 63, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-2, y=posicao.y, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 63, ar = {x=posicao.x-4, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 63, ar = {x=posicao.x-5, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-4, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 63, ar = {x=posicao.x-6, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-5, y=posicao.y, z=posicao.z}})

end

return 0

elseif pokemon.x.spell == "Ice Beam" then

alvo = getCreatureName(getCreatureTarget(cid))

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 99)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 105)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 103)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 98)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 105)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 102)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 96)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 104)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 100)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 97)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 104)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 101)

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Selfdestruct" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

addEvent(doCreatureAddHealth, 250, getCreatureSummons(cid)[1], -getCreatureHealth(getCreatureSummons(cid)[1]))

doAreaCombatHealth(getCreatureSummons(cid)[1], NORMALDAMAGE, getThingPos(getCreatureSummons(cid)[1]), destruct1, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 5)

addEvent(doAreaCombatHealth, 150, getCreatureSummons(cid)[1], NORMALDAMAGE, getThingPos(getCreatureSummons(cid)[1]), destruct2, -(((num1)+(getPlayerLevel(cid)*(num3)))*0.7), -(((num2)+(getPlayerLevel(cid)*(num3)))*0.8), 5)

addEvent(doAreaCombatHealth, 250, getCreatureSummons(cid)[1], NORMALDAMAGE, getThingPos(getCreatureSummons(cid)[1]), destruct3, -(((num1)+(getPlayerLevel(cid)*(num3)))*0.4), -(((num2)+(getPlayerLevel(cid)*(num3)))*0.5), 5)

setPlayerStorageValue(getCreatureSummons(cid)[1], 33, 1)

return 0

elseif pokemon.x.spell == "Psycho Shift" then

targetpos = getThingPos(getCreatureTarget(cid))

targetposss = getThingPos(getCreatureTarget(cid))

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

targetpos.x = targetpos.x+2

else

targetpos.x = targetpos.x-2

end

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

targetpos.y = targetpos.y-2

else

targetpos.y = targetpos.y+2

end

tile = getTileItemByType(targetpos, ground).itemid

if getThingPos(cid).z > 7 then

if isWalkable(targetpos, cid, 0, 0) then

doTeleportThing(getCreatureTarget(cid), targetpos)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, targetpos, 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 134)

doSendMagicEffect(targetpos, 12)

else

doAreaCombatHealth(getCreatureSummons(cid)[1], element, targetposss, 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 134)

doSendMagicEffect(targetposss, 12)

end

else

if not isInArray(imp, tile) then

if not isInArray(imp, getTileThingByPos(targetpos).itemid) then

doTeleportThing(getCreatureTarget(cid), targetpos)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, targetpos, 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 134)

doSendMagicEffect(targetpos, 12)

else

doAreaCombatHealth(getCreatureSummons(cid)[1], element, targetposss, 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 134)

doSendMagicEffect(targetposss, 12)

end

else

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 134)

doSendMagicEffect(targetposss, 12)

end

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Restore" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 14)

doCreatureAddHealth(getCreatureSummons(cid)[1], ((num2)+((getPlayerLevel(cid))*(num3))))

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "+"..((num2)+((getPlayerLevel(cid))*(num3))).."", 35)

return 0

elseif pokemon.x.spell == "Psywave" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tsn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 133)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tse, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 133)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tss, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 133)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tsw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 133)

end

return 0

elseif pokemon.x.spell == "Poison Bomb" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

addEvent(doAreaCombatHealth, 100, getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), bomb, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 114)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 14)

return 0

elseif pokemon.x.spell == "Psywave" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tsn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 133)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tse, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 133)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tss, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 133)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), tsw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 133)

end

return 0

elseif pokemon.x.spell == "Blizzard" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function fall(params)

if isCreature(params.cid) then

if isCreature(getCreatureSummons(params.cid)[1]) then

local pos = getThingPos(getCreatureSummons(cid)[1])

pos.x = pos.x + math.random(-4,4)

pos.y = pos.y + math.random(-4,4)

local frompos = getThingPos(getCreatureSummons(cid)[1])

frompos.x = pos.x - 7

frompos.y = pos.y - 6

doSendDistanceShoot(frompos, pos, 35)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, pos, 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 52)

end

end

end

 

for rocks = 1, 72 do

addEvent(fall, rocks*35, {cid = cid})

end

 

return 0

 

elseif pokemon.x.spell == "Ancient Power" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function sandattack(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], null, params.ar, 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.ef)

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, params.ar, params.wave, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

else

end

end

local posicao = getThingPos(getCreatureSummons(cid)[1])

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x+1, y=posicao.y-1, z=posicao.z}, ef = 137, wave = ap1})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+1, y=posicao.y-2, z=posicao.z}, ef = 137, wave = ap1})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+1, y=posicao.y-3, z=posicao.z}, ef = 137, wave = ap1})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x+1, y=posicao.y-4, z=posicao.z}, ef = 137, wave = ap1})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x+1, y=posicao.y-5, z=posicao.z}, ef = 137, wave = ap1})

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

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x-1, y=posicao.y-2, z=posicao.z}, ef = 137, wave = ap1})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x-1, y=posicao.y-3, z=posicao.z}, ef = 137, wave = ap1})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x-1, y=posicao.y-4, z=posicao.z}, ef = 137, wave = ap1})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x-1, y=posicao.y-5, z=posicao.z}, ef = 137, wave = ap1})

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x+0, y=posicao.y-1, z=posicao.z}, ef = 18, wave = ap2})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+0, y=posicao.y-2, z=posicao.z}, ef = 18, wave = ap2})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+0, y=posicao.y-3, z=posicao.z}, ef = 18, wave = ap2})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x+0, y=posicao.y-4, z=posicao.z}, ef = 18, wave = ap2})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x+0, y=posicao.y-5, z=posicao.z}, ef = 18, wave = ap2})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

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

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+1, y=posicao.y+2, z=posicao.z}, ef = 137, wave = ap3})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+1, y=posicao.y+3, z=posicao.z}, ef = 137, wave = ap3})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x+1, y=posicao.y+4, z=posicao.z}, ef = 137, wave = ap3})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x+1, y=posicao.y+5, z=posicao.z}, ef = 137, wave = ap3})

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x-1, y=posicao.y+1, z=posicao.z}, ef = 137, wave = ap3})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x-1, y=posicao.y+2, z=posicao.z}, ef = 137, wave = ap3})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x-1, y=posicao.y+3, z=posicao.z}, ef = 137, wave = ap3})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x-1, y=posicao.y+4, z=posicao.z}, ef = 137, wave = ap3})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x-1, y=posicao.y+5, z=posicao.z}, ef = 137, wave = ap3})

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

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+0, y=posicao.y+2, z=posicao.z}, ef = 18, wave = ap4})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+0, y=posicao.y+3, z=posicao.z}, ef = 18, wave = ap4})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x+0, y=posicao.y+4, z=posicao.z}, ef = 18, wave = ap4})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x+0, y=posicao.y+5, z=posicao.z}, ef = 18, wave = ap4})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x+2, y=posicao.y+1, z=posicao.z}, ef = 137, wave = ap5})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+3, y=posicao.y+1, z=posicao.z}, ef = 137, wave = ap5})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+4, y=posicao.y+1, z=posicao.z}, ef = 137, wave = ap5})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x+5, y=posicao.y+1, z=posicao.z}, ef = 137, wave = ap5})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x+6, y=posicao.y+1, z=posicao.z}, ef = 137, wave = ap5})

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x+2, y=posicao.y-1, z=posicao.z}, ef = 137, wave = ap5})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+3, y=posicao.y-1, z=posicao.z}, ef = 137, wave = ap5})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+4, y=posicao.y-1, z=posicao.z}, ef = 137, wave = ap5})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x+5, y=posicao.y-1, z=posicao.z}, ef = 137, wave = ap5})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x+6, y=posicao.y-1, z=posicao.z}, ef = 137, wave = ap5})

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x+2, y=posicao.y-0, z=posicao.z}, ef = 18, wave = ap6})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x+3, y=posicao.y-0, z=posicao.z}, ef = 18, wave = ap6})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x+4, y=posicao.y-0, z=posicao.z}, ef = 18, wave = ap6})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x+5, y=posicao.y-0, z=posicao.z}, ef = 18, wave = ap6})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x+6, y=posicao.y-0, z=posicao.z}, ef = 18, wave = ap6})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

addEvent(sandattack, 0, {cid = cid, ar = {x=posicao.x-1, y=posicao.y+1, z=posicao.z}, ef = 137, wave = ap7})

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x-2, y=posicao.y+1, z=posicao.z}, ef = 137, wave = ap7})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x-3, y=posicao.y+1, z=posicao.z}, ef = 137, wave = ap7})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x-4, y=posicao.y+1, z=posicao.z}, ef = 137, wave = ap7})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x-5, y=posicao.y+1, z=posicao.z}, ef = 137, wave = ap7})

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

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x-2, y=posicao.y-1, z=posicao.z}, ef = 137, wave = ap7})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x-3, y=posicao.y-1, z=posicao.z}, ef = 137, wave = ap7})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x-4, y=posicao.y-1, z=posicao.z}, ef = 137, wave = ap7})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x-5, y=posicao.y-1, z=posicao.z}, ef = 137, wave = ap7})

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

addEvent(sandattack, 400, {cid = cid, ar = {x=posicao.x-2, y=posicao.y-0, z=posicao.z}, ef = 18, wave = ap8})

addEvent(sandattack, 800, {cid = cid, ar = {x=posicao.x-3, y=posicao.y-0, z=posicao.z}, ef = 18, wave = ap8})

addEvent(sandattack, 1200, {cid = cid, ar = {x=posicao.x-4, y=posicao.y-0, z=posicao.z}, ef = 18, wave = ap8})

addEvent(sandattack, 1600, {cid = cid, ar = {x=posicao.x-5, y=posicao.y-0, z=posicao.z}, ef = 18, wave = ap8})

end

return 0

elseif pokemon.x.spell == "Magma Storm" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function fall(params)

if isCreature(params.cid) then

if isCreature(getCreatureSummons(params.cid)[1]) then

local pos = getThingPos(getCreatureSummons(cid)[1])

pos.x = pos.x + math.random(-4,4)

pos.y = pos.y + math.random(-4,4)

local frompos = getThingPos(getCreatureSummons(cid)[1])

frompos.x = pos.x - 7

frompos.y = pos.y - 6

doSendDistanceShoot(frompos, pos, 6)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, pos, 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 15)

end

end

end

 

for rocks = 1, 72 do

addEvent(fall, rocks*35, {cid = cid})

end

 

return 0

elseif pokemon.x.spell == "Hydro Cannon" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function gust(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], null, params.ar, sand1, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.eee)

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, params.ar, whirl3, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 68)

doAreaCombatHealth(getCreatureSummons(params.cid)[1], null, params.arr, whirl3, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 68)

else

end

end

local posicao = getThingPos(getCreatureSummons(cid)[1])

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

addEvent(gust, 0, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-1, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-2, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-1, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-3, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-2, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-4, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-3, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-5, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-4, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 66, ar = {x=posicao.x, y=posicao.y-6, z=posicao.z}, arr = {x=posicao.x, y=posicao.y-5, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

addEvent(gust, 0, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+1, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+2, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+1, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+3, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+2, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+4, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+3, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+5, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+4, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 64, ar = {x=posicao.x, y=posicao.y+6, z=posicao.z}, arr = {x=posicao.x, y=posicao.y+5, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

addEvent(gust, 0, {cid = cid, eee = 67, ar = {x=posicao.x+1, y=posicao.y, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 67, ar = {x=posicao.x+2, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+1, y=posicao.y, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 67, ar = {x=posicao.x+3, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+2, y=posicao.y, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 67, ar = {x=posicao.x+4, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 67, ar = {x=posicao.x+5, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+4, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 67, ar = {x=posicao.x+6, y=posicao.y, z=posicao.z}, arr = {x=posicao.x+5, y=posicao.y, z=posicao.z}})

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

addEvent(gust, 0, {cid = cid, eee = 65, ar = {x=posicao.x-1, y=posicao.y, z=posicao.z}, arr = posicao})

addEvent(gust, 300, {cid = cid, eee = 65, ar = {x=posicao.x-2, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-1, y=posicao.y, z=posicao.z}})

addEvent(gust, 600, {cid = cid, eee = 65, ar = {x=posicao.x-3, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-2, y=posicao.y, z=posicao.z}})

addEvent(gust, 900, {cid = cid, eee = 65, ar = {x=posicao.x-4, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-3, y=posicao.y, z=posicao.z}})

addEvent(gust, 1200, {cid = cid, eee = 65, ar = {x=posicao.x-5, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-4, y=posicao.y, z=posicao.z}})

addEvent(gust, 1500, {cid = cid, eee = 65, ar = {x=posicao.x-6, y=posicao.y, z=posicao.z}, arr = {x=posicao.x-5, y=posicao.y, z=posicao.z}})

end

return 0

elseif pokemon.x.spell == "Waterball" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function throw(params)

if isMonster(getCreatureTarget(params.cid)) then

doSendDistanceShoot(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(getCreatureTarget(params.cid)), 2)

else

end

end

local function damage(params)

if isMonster(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), waba, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 68)

else

end

end

addEvent(damage, 100, {cid = cid})

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

return 0

elseif pokemon.x.spell == "Earthquake" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function storm(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], params.el, posit, params.ar, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.ef)

else

end

end

addEvent(storm, 0, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 1000, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 1500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 2000, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 2500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 3000, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 3500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 4000, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 4500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 5000, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 5500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 6000, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 6500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 7000, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 7500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 8000, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 8500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 9000, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 9500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 10000, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 10500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 11000, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 11500, {cid = cid, el = element, ar = earthquake, ef = 118})

addEvent(storm, 12000, {cid = cid, el = element, ar = earthquake, ef = 118})

return 0

elseif pokemon.x.spell == "Wing Attack" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wingn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 128)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), winge, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 129)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingde, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wings, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 131)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingds, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wingw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 130)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

end

return 0

elseif pokemon.x.spell == "Mega Kick" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 113)

return 0

elseif pokemon.x.spell == "Harden" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local hardname = getCreatureName(getCreatureSummons(cid)[1])

setPlayerStorageValue(getCreatureSummons(cid)[1], 4, 1)

local oldpos = getThingPos(getCreatureSummons(cid)[1])

local function efect(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 4) >= 1 then

doSendMagicEffect(getThingPos(getCreatureSummons(params.cid)[1]), 144)

end

end

end

local function chard(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

if getPlayerStorageValue(getCreatureSummons(params.cid)[1], 4) >= 1 then

setPlayerStorageValue(getCreatureSummons(params.cid)[1], 4, -1)

end

end

end

addEvent(efect, 100, {cid = cid, hardname = hardname})

addEvent(efect, 1600, {cid = cid, hardname = hardname})

addEvent(efect, 3100, {cid = cid, hardname = hardname})

addEvent(efect, 4600, {cid = cid, hardname = hardname})

addEvent(efect, 6100, {cid = cid, hardname = hardname})

addEvent(efect, 7600, {cid = cid, hardname = hardname})

addEvent(efect, 9100, {cid = cid, hardname = hardname})

addEvent(efect, 10600, {cid = cid, hardname = hardname})

addEvent(chard, 11000, {cid = cid})

return 0

elseif pokemon.x.spell == "Electric Storm" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function fall(params)

if isCreature(params.cid) then

if isCreature(getCreatureSummons(params.cid)[1]) then

local pos = getThingPos(getCreatureSummons(cid)[1])

pos.x = pos.x + math.random(-4,4)

pos.y = pos.y + math.random(-4,4)

local frompos = getThingPos(getCreatureSummons(cid)[1])

frompos.x = pos.x - 7

frompos.y = pos.y - 6

doSendDistanceShoot(frompos, pos, 41)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, pos, 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 48)

end

end

end

for rocks = 1, 72 do

addEvent(fall, rocks*35, {cid = cid})

end

return 0

elseif pokemon.x.spell == "Stomp" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), stomp, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 118)

return 0

elseif pokemon.x.spell == "Mind Blast" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

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

random = 133

else

if math.random(1,2) == 2 then

random = 134

else

random = 136

end

end

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num1)+(getPlayerLevel(cid)*(num3))), random)

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

random = 133

else

if math.random(1,2) == 2 then

random = 134

else

random = 136

end

end

local function go(params)

if isCreature(getCreatureSummons(params.cid)[1]) then

if isCreature(getCreatureTarget(cid)) then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), psy2, -((num1)+(getPlayerLevel(cid)*(num3))), -((num1)+(getPlayerLevel(cid)*(num3))), random)

end

end

end

addEvent(go, 150, {cid = cid})

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

random = 133

else

if math.random(1,2) == 2 then

random = 134

else

random = 136

end

end

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), psy1, -((num1)+(getPlayerLevel(cid)*(num3))), -((num1)+(getPlayerLevel(cid)*(num3))), random)

return 0

elseif pokemon.x.spell == "Toxic Needle" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 15)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 8)

return 0

elseif pokemon.x.spell == "Thunderbolt" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local posalvo = getThingPos(getCreatureTarget(cid))

local boltalvo = getCreatureTarget(cid)

posalvo.x = posalvo.x-2

posalvo.y = posalvo.y-6

doSendDistanceShoot(posalvo, getThingPos(getCreatureTarget(cid)), 41)

local function bolt(params)

if isCreature(params.cid) then

if isCreature(getCreatureTarget(cid)) then

if getCreatureTarget(params.cid) == params.boltalvo then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 48)

end

end

end

end

addEvent(bolt, 200, {cid = cid, boltalvo = boltalvo})

return 0

elseif pokemon.x.spell == "Thunder" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), thunder, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 48)

return 0

elseif pokemon.x.spell == "Super Sonic" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local t = getCreatureTarget(cid)

setPlayerStorageValue(t, 5, 1)

local function confused(params)

if isCreature(params.t) then

local spdc = getCreatureSpeed(params.t)

if getCreatureLookDir(params.t) == 0 then

confs = math.random(1,3)

elseif getCreatureLookDir(params.t) == 1 then

confurandom = math.random(1,99)

if confurandom <= 33 then

confs = 0

elseif confurandom >= 67 then

confs = 2

else

confs = 3

end

elseif getCreatureLookDir(params.t) == 2 then

confurandom = math.random(1,99)

if confurandom <= 33 then

confs = 3

elseif confurandom >= 67 then

confs = 0

else

confs = 1

end

elseif getCreatureLookDir(params.t) == 3 then

confs = math.random(0,2)

end

doPushCreature(params.t, confs, 1, 0)

doSendMagicEffect(getThingPos(params.t), 31)

end

end

local function nonc(params)

if isCreature(params.t) then

doChangeSpeed(params.t, -getCreatureSpeed(params.t))

doChangeSpeed(params.t, getCreatureBaseSpeed(params.t))

setPlayerStorageValue(params.t, 5, -1)

end

end

doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), 32)

 

doChangeSpeed(t, -( getCreatureSpeed(t)/3))

doSendMagicEffect(getThingPos(t), 31)

for i = 1, math.random(6,7) do

addEvent(confused, 1000*i, {cid = cid, t = t})

end

addEvent(nonc, 7100, {cid - cid, t = t})

return 0

end

return 0

end

 

 

Poison Powder

 

local ps1 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},

{0, 0, 0, 1, 1, 2, 1, 1, 0, 0, 0},

{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local ws1 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0},

{0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0},

{0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0},

{0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0},

{0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local ws2 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0},

{0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 2, 1, 0, 1, 0, 0},

{0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0},

{0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local ws3 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0},

{0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0},

{0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0},

{0, 1, 0, 1, 0, 2, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0},

{0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0},

{0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local ws4 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0},

{0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0},

{0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0},

{0, 0, 1, 0, 0, 2, 0, 1, 0, 1, 0},

{0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0},

{0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0},

{0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local tor1 = createCombatArea{

{0, 1, 0},

{1, 2, 1},

{0, 1, 0},

}

local tor2 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 2, 0, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local tor3 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0},

{0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0},

{0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

 

local ps2 = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},

{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},

{0, 0, 1, 1, 1, 2, 1, 1, 1, 0, 0},

{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},

{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

}

local wingn = createCombatArea{

{0, 0, 0},

{1, 2, 0},

{0, 0, 0},

}

local wings = createCombatArea{

{1, 0, 0},

{0, 2, 0},

{0, 0, 0},

}

local winge = createCombatArea{

{1, 0, 0},

{0, 2, 0},

{0, 0, 0},

}

local wingw = createCombatArea{

{0, 2, 3},

{0, 2, 2},

{0, 0, 0},

}

local wingds = createCombatArea{

{1, 1, 1},

{0, 2, 0},

{0, 0, 0},

}

local wingdn = createCombatArea{

{0, 0, 0},

{0, 2, 0},

{1, 1, 1},

}

local wingde = createCombatArea{

{1, 0, 0},

{1, 2, 0},

{1, 0, 0},

}

local wingdw = createCombatArea{

{0, 0, 1},

{0, 2, 1},

{0, 0, 1},

}

-- WING ATTACK END

 

local grassarea = createCombatArea{

{0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0},

{0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0},

{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

{1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1},

{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

{0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0},

{0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0}

}

-- WATER GUN

local wg1n = createCombatArea{

{0, 0, 0},

{0, 2, 0},

{0, 1, 0},

}

local wg2n = createCombatArea{

{0, 2, 0},

{0, 0, 0},

{0, 1, 0},

{0, 1, 0},

{0, 1, 0},

}

local wg3n = createCombatArea{

{0, 2, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 1, 0},

}

 

local wg1s = createCombatArea{

{0, 1, 0},

{0, 2, 0},

{0, 0, 0},

}

local wg2s = createCombatArea{

{0, 1, 0},

{0, 1, 0},

{0, 1, 0},

{0, 0, 0},

{0, 2, 0},

}

local wg3s = createCombatArea{

{0, 1, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 0, 0},

{0, 2, 0},

}

 

local wg1e = createCombatArea{

{0, 0, 0},

{1, 2, 0},

{0, 0, 0},

}

local wg2e = createCombatArea{

{1, 1, 1, 0, 2},

}

local wg3e = createCombatArea{

{1, 0, 0, 0, 0, 2},

}

 

local wg1w = createCombatArea{

{0, 0, 0},

{0, 2, 1},

{0, 0, 0},

}

local wg2w = createCombatArea{

{2, 0, 1, 1, 1},

}

local wg3w = createCombatArea{

{2, 0, 0, 0, 0, 1},

}

-- WATER GUN END

 

local pokeis = {'Golem', 'Alakazam', 'Mew', 'Mewtwo', 'Venusaur', 'Arcanine', 'Aerodactyl', 'Alakazan',

'Parasect', 'Venomoth'}

local c = {

[22] = {x = {

pok = venusaur,

spell = "Leaf Storm",

minLv = 85,

ex = 3000010,

base1 = 400,

base2 = 500,

dista = 5,

target = "no",

bonus = 6.5,

type = "grass",

cd = 55

}

},

[95] = {x = {

pok = Parasect,

spell = "X-Scissor",

minLv = 90,

ex = 4700010,

base1 = 245,

base2 = 253,

dista = 3,

target = "no",

bonus = 3,

type = "bug",

cd = 45

}

},

[49] = {x = {

pok = venomoth,

spell = "Tornado",

minLv = 50,

ex = 4900005,

base1 = 280,

base2 = 300,

dista = 5,

target = "no",

bonus = 9,

type = "flying",

cd = 60

}

},

[218] = {x = {

pok = alakazan,

spell = "Restore",

minLv = 1,

ex = 6500002,

base1 = 135,

base2 = 145,

dista = 5,

bonus = 15,

type = "psychic",

target = "no",

cd = 26

}

},

[10] = {x = {

pok = aerodactyl,

spell = "Hyper Beam",

minLv = 105,

ex = 1420010,

base1 = 285,

base2 = 450,

dista = 5,

bonus = 14,

target = "no",

type = "normal",

cd = 25

}

},

[34] = {x = {

pok = Mewtwo,

spell = "Psychicmewtwo",

minLv = 112,

ex = 1500010,

base1 = 135,

base2 = 145,

dista = 5,

bonus = 15,

type = "psychic",

target = "no",

cd = 26

}

},

[9] = {x = {

pok = Mew,

spell = "Psychicmew",

minLv = 112,

ex = 1510010,

base1 = 135,

base2 = 145,

dista = 5,

bonus = 15,

type = "psychic",

target = "no",

cd = 26

}

},

[88] = {x = {

pok = arcanine,

spell = "Wardog",

minLv = 84,

ex = 5900010,

base1 = 130,

base2 = 200,

dista = 3,

target = "no",

bonus = 8,

type = "normal",

cd = 30

}

},

 

}

 

function onSay(cid)

if #getCreatureSummons(cid) == 0 then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need a pokemon to moves.")

return 0

end

pokemon = c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType]

if not isInArray(pokeis, getCreatureName(getCreatureSummons(cid)[1])) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn\'t recognize this move.")

return 0

end

if getPlayerLevel(cid) < c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.minLv then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don\'t have enough level to this move.")

return 0

end

if exhaustion.get(cid, pokemon.x.ex) then

seconds = math.floor(((exhaustion.get(cid, pokemon.x.ex)) + 1))

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have to wait "..seconds.." seconds to this move again.")

return 0

end

if getPlayerStorageValue(getCreatureSummons(cid)[1], 3) >= 1 then

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "MISS", 215)

setPlayerStorageValue(getCreatureSummons(cid)[1], 3, -1)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return true

end

if getPlayerStorageValue(getCreatureSummons(cid)[1], 5) >= 1 then

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

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "SELF HIT", 180)

local levels = getPlayerLevel(cid)

doTargetCombatHealth(cid, getCreatureSummons(cid)[1], COMBAT_PHYSICALDAMAGE, -(math.random((levels*3),(levels*5))), -((math.random((levels*3),(levels*5))+10)), 3)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

return true

end

end

if pokemon.x.target ~= "no" then

if not isMonster(getCreatureTarget(cid)) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don\'t have any targets.")

return 0

end

 

if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid))) > pokemon.x.dista then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Get closer to the target to this move.")

return 0

end

 

if not isSightClear(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), false) then

return 0

end

end

if pokemon.x.type == "flying" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 1)

elementa = FLYDAMAGE

elseif pokemon.x.type == "ground" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 2)

elementa = GROUNDDAMAGE

elseif pokemon.x.type == "electric" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 3)

elementa = ELECTRICDAMAGE

elseif pokemon.x.type == "ghost" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 4)

elementa = GHOSTDAMAGE

elseif pokemon.x.type == "normal" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 5)

elementa = NORMALDAMAGE

elseif pokemon.x.type == "fighting" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 6)

elementa = FIGHTINGDAMAGE

elseif pokemon.x.type == "poison" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 7)

elementa = POISONDAMAGE

elseif pokemon.x.type == "rock" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 8)

elementa = ROCKDAMAGE

elseif pokemon.x.type == "bug" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 9)

elementa = BUGDAMAGE

elseif pokemon.x.type == "fire" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 10)

elementa = FIREDAMAGE

elseif pokemon.x.type == "water" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 11)

elementa = WATERDAMAGE

elseif pokemon.x.type == "grass" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 12)

elementa = GRASSDAMAGE

elseif pokemon.x.type == "psychic" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 13)

elementa = PSYCHICDAMAGE

elseif pokemon.x.type == "ice" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 14)

elementa = ICEDAMAGE

elseif pokemon.x.type == "dragon" then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1700, 15)

elementa = DRAGONDAMAGE

end

local element = elementa

local num1 = (pokemon.x.base1)

local num2 = (pokemon.x.base2)

local num3 = (pokemon.x.bonus)

setPlayerStorageValue(getCreatureSummons(cid)[1], 1000, ((num1)+(getPlayerLevel(cid)*(num3))))

if pokemon.x.spell == "Windstorm" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function storm(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], params.el, posit, params.ar, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.ef)

else

end

end

addEvent(storm, 0, {cid = cid, el = element, ar = ws1, ef = 42})

addEvent(storm, 500, {cid = cid, el = element, ar = ws2, ef = 42})

addEvent(storm, 1000, {cid = cid, el = element, ar = ws3, ef = 42})

addEvent(storm, 1500, {cid = cid, el = element, ar = ws4, ef = 42})

addEvent(storm, 700, {cid = cid, el = null, ar = ws4, ef = CONST_ME_POFF})

addEvent(storm, 1200, {cid = cid, el = null, ar = ws1, ef = CONST_ME_POFF})

addEvent(storm, 1800, {cid = cid, el = null, ar = ws3, ef = CONST_ME_POFF})

return 0

elseif pokemon.x.spell == "Selfdestruct" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function death(params)

if isCreature(params.cid) then

doCreatureAddHealth(getCreatureSummons(params.cid)[1], -getCreatureHealth(getCreatureSummons(cid)[1]))

end

end

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

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), destruct1, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 5)

addEvent(doAreaCombatHealth, 150, getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), destruct2, -(((num1)+(getPlayerLevel(cid)*(num3)))*0.7), -(((num2)+(getPlayerLevel(cid)*(num3)))*0.8), 5)

addEvent(doAreaCombatHealth, 250, getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), destruct3, -(((num1)+(getPlayerLevel(cid)*(num3)))*0.4), -(((num2)+(getPlayerLevel(cid)*(num3)))*0.5), 5)

setPlayerStorageValue(getCreatureSummons(cid)[1], 33, 1)

return 0

elseif pokemon.x.spell == "Future Sight" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 132)

local seusummon = getCreatureSummons(cid)[1]

local function normal(params)

if isCreature(params.cid) then

if isCreature(getCreatureSummons(params.cid)) then

if getPlayerStorageValue(getCreatureSummons(cid)[1], 35) >= 1 and getCreatureSummons(cid)[1] == seusummon then

setPlayerStorageValue(getCreatureSummons(cid)[1], 35, 0)

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 3)

end

end

end

end

setPlayerStorageValue(getCreatureSummons(cid)[1], 35, 1)

addEvent(normal, 8000, {cid = cid})

return 0

 

-------------------------------------------------------------ADICIONADAS-----------------------------------------------------------------------

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

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

elseif pokemon.x.spell == "Restore" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 14)

doCreatureAddHealth(getCreatureSummons(cid)[1], ((num2)+((getPlayerLevel(cid))*(num3))))

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "+"..((num2)+((getPlayerLevel(cid))*(num3))).."", 35)

return 0

elseif pokemon.x.spell == "Wardog" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function damage(params)

if isMonster(getCreatureTarget(params.cid)) then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 146)

else

end

end

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

addEvent(damage, 400, {cid = cid})

addEvent(damage, 800, {cid = cid})

addEvent(damage, 1200, {cid = cid})

addEvent(damage, 1500, {cid = cid})

return 0

 

elseif pokemon.x.spell == "Leaf Storm" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

addEvent(doAreaCombatHealth, 0, getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), grassarea, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

local function shoot(params)

lugar = getThingPos(getCreatureSummons(params.cid)[1])

for x= -7,7 do

for y= -6,6 do

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

doSendDistanceShoot(getThingPos(getCreatureSummons(params.cid)[1]), topos, 8)

end

end

end

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

return 0

elseif pokemon.x.spell == "Restore" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 14)

doCreatureAddHealth(getCreatureSummons(cid)[1], ((num2)+((getPlayerLevel(cid))*(num3))))

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "+"..((num2)+((getPlayerLevel(cid))*(num3))).."", 35)

return 0

elseif pokemon.x.spell == "Psychicmew" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function storm(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], params.el, posit, params.ar, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.ef)

else

end

end

addEvent(storm, 0, {cid = cid, el = element, ar = ps1, ef = 133})

addEvent(storm, 500, {cid = cid, el = element, ar = ps2, ef = 133})

addEvent(storm, 700, {cid = cid, el = null, ar = ps2, ef = CONST_ME_POFF})

addEvent(storm, 1000, {cid = cid, el = element, ar = ps1, ef = 133})

addEvent(storm, 1200, {cid = cid, el = element, ar = ps1, ef = CONST_ME_POFF})

return 0

 

elseif pokemon.x.spell == "Psychicmewtwo" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function storm(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], params.el, posit, params.ar, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.ef)

else

end

end

addEvent(storm, 0, {cid = cid, el = element, ar = ps1, ef = 136})

addEvent(storm, 500, {cid = cid, el = element, ar = ps2, ef = 136})

addEvent(storm, 700, {cid = cid, el = null, ar = ps1, ef = CONST_ME_POFF})

addEvent(storm, 1000, {cid = cid, el = element, ar = ps1, ef = 136})

addEvent(storm, 1200, {cid = cid, el = element, ar = ps2, ef = 136})

addEvent(storm, 1500, {cid = cid, el = null, ar = ps2, ef = CONST_ME_POFF})

addEvent(storm, 0, {cid = cid, el = null, ar = self, ef = 208})

addEvent(storm, 300, {cid = cid, el = null, ar = self, ef = 208})

addEvent(storm, 600, {cid = cid, el = null, ar = self, ef = 208})

addEvent(storm, 900, {cid = cid, el = null, ar = self, ef = 208})

addEvent(storm, 1200, {cid = cid, el = null, ar = self, ef = 208})

addEvent(storm, 1500, {cid = cid, el = null, ar = self, ef = 208})

 

return 0

 

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

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

-------------------------------------------------------------ADICIONADAS-----------------------------------------------------------------------

elseif pokemon.x.spell == "Tornado" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

posit = getThingPos(getCreatureSummons(cid)[1])

local function tornado(params)

if #getCreatureSummons(params.cid) >= 1 then

doAreaCombatHealth(getCreatureSummons(params.cid)[1], params.el, posit, params.ar, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), params.ef)

else

end

end

addEvent(tornado, 0, {cid = cid, ef = 42, ar = tor1, el = element})

addEvent(tornado, 500, {cid = cid, ef = 42, ar = tor2, el = element})

addEvent(tornado, 1000, {cid = cid, ef = 42, ar = tor3, el = element})

addEvent(tornado, 500, {cid = cid, ef = CONST_ME_POFF, ar = tor1, el = null})

addEvent(tornado, 1200, {cid = cid, ef = CONST_ME_POFF, ar = tor2, el = null})

addEvent(tornado, 1900, {cid = cid, ef = CONST_ME_POFF, ar = tor2, el = null})

addEvent(tornado, 1900, {cid = cid, ef = CONST_ME_POFF, ar = tor3, el = null})

return 0

elseif pokemon.x.spell == "X-Scissor" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

local function attaque(params)

 

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wingn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 128)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdn, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

 

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), winge, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 129)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingde, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

 

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wings, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 131)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingds, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

 

doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_PDAMAGE, getThingPos(getCreatureSummons(cid)[1]), wingw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 130)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wingdw, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_NONE)

end

 

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

addEvent(attaque, 500, {cid = cid})

return 0

elseif pokemon.x.spell == "Hyper Beam" then

if getCreatureLookDir(getCreatureSummons(cid)[1]) == 0 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 152)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 158)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3n, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 156)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 2 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 151)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 158)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3s, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 155)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 1 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 149)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 157)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3e, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 153)

elseif getCreatureLookDir(getCreatureSummons(cid)[1]) == 3 then

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg1w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 150)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg2w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 157)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), wg3w, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 154)

end

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

return 0

elseif pokemon.x.spell == "Leaf Blade" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), 0, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 54)

return 0

elseif pokemon.x.spell == "Earthshock" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

doAreaCombatHealth(getCreatureSummons(cid)[1], GROUNDDAMAGE, getThingPos(getCreatureSummons(cid)[1]), eshock, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

local sps = getThingPos(getCreatureSummons(cid)[1])

sps.x = sps.x+1

sps.y = sps.y+1

doSendMagicEffect(sps, 127)

return 0

elseif pokemon.x.spell == "Gastro Acid" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

target = getCreatureTarget(cid)

pos1 = getThingPos(target)

posa = getThingPos(target)

pos2 = getThingPos(target)

pos3 = getThingPos(target)

posb = getThingPos(target)

pos1.x = pos1.x-2

pos2.x = pos2.x+2

pos1.y = pos1.y-4

pos2.y = pos2.y-4

pos3.y = pos3.y-4

posa.x = posa.x-1

posb.x = posb.x+1

doSendDistanceShoot(pos1, posa, 14)

doSendDistanceShoot(pos3, getThingPos(target), 14)

doSendDistanceShoot(pos2, posb, 14)

doAreaCombatHealth(getCreatureSummons(cid)[1], element, getThingPos(getCreatureTarget(cid)), acid, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 143)

return 0

elseif pokemon.x.spell == "Water Oath" then

doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER)

doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY)

exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd)

addEvent(doAreaCombatHealth, 0, getCreatureSummons(cid)[1], element, getThingPos(getCreatureSummons(cid)[1]), oatharea, -((num1)+(getPlayerLevel(cid)*(num3))), -((num2)+(getPlayerLevel(cid)*(num3))), 255)

local function shoot(params)

lugar = getThingPos(getCreatureSummons(params.cid)[1])

for x= -3,3 do

for y= -3,3 do

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

doSendDistanceShoot(getThingPos(getCreatureSummons(params.cid)[1]), topos, 2)

end

end

end

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

return 0

end

return 0

end

 

 

 

..

Link para o comentário
Compartilhar em outros sites

Tiagohells

 

mandei mensagem pra vc me add lá estou esperando anciosamente =)

pra reslover isso.

 

desde ja agradeço.

 

ainda aguardando se + alguém quizer ajudar.

 

.

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...