tem certeza que seu ditto system eh o do tiu gab? pq eu fiz isso aki e funfou de boas

 

qlqr coisa tente esse evolution que eu uso no meu server.

 

local special = specialevo --alterado v1.9 \/ peguem ele todo!

 

local types = {

[leaf] = {"Bulbasaur", "Ivysaur", "Oddish", "Gloom", "Bellsprout", "Weepinbell", "Exeggcute", "Chikorita", "Bayleef", "Hoppip", "Skiploom", "Sunkern"},

[water] = {"Squirtle", "Wartortle", "Horsea", "Goldeen", "Magikarp", "Psyduck", "Poliwag", "Poliwhirl", "Tentacool", "Krabby", "Staryu", "Omanyte", "Eevee", "Totodile", "Croconow", "Chinchou", "Marill", "Wooper", "Slowpoke", "Remoraid", "Seadra"},

[venom] = {"Zubat", "Ekans", "Nidoran male", "Nidoran female", "Nidorino", "Nidorina", "Gloom", "Venonat", "Tentacool", "Grimer", "Koffing", "Spinarak", "Golbat"},

[thunder] = {"Magnemite", "Pikachu", "Voltorb", "Eevee", "Chinchou", "Pichu", "Mareep", "Flaaffy", "Elekid"},

[rock] = {"Geodude", "Graveler", "Rhyhorn", "Kabuto", "Slugma", "Pupitar"},

[punch] = {"Machop", "Machoke", "Mankey", "Poliwhirl", "Tyrogue"},

[fire] = {"Charmander", "Charmeleon", "Vulpix", "Growlithe", "Ponyta", "Eevee", "Cyndaquil", "Quilava", "Slugma", "Houndour", "Magby"},

[coccon] = {"Caterpie", "Metapod", "Weedle", "Kakuna", "Paras", "Venonat", "Scyther", "Ledyba", "Spinarak", "Pineco"},

[crystal] = {"Dratini", "Dragonair", "Magikarp", "Omanyte", "Kabuto", "Seadra"},

[dark] = {"Gastly", "Haunter", "Eevee", "Houndour", "Pupitar"},

[earth] = {"Cubone", "Sandshrew", "Nidorino", "Nidorina", "Diglett", "Onix", "Rhyhorn", "Wooper", "Swinub", "Phanpy", "Larvitar"},

[enigma] = {"Abra", "Kadabra", "Psyduck", "Slowpoke", "Drowzee", "Eevee", "Natu", "Smoochum"},

[heart] = {"Rattata", "Pidgey", "Pidgeotto", "Spearow", "Clefairy", "Jigglypuff", "Meowth", "Doduo", "Porygon", "Chansey", "Sentret", "Hoothoot", "Cleffa", "Igglybuff", "Togepi", "Snubull", "Teddiursa"},

[ice] = {"Seel", "Shellder", "Smoochum", "Swinub"},

[metal] = {"Onix", "Scyther"},

[feather] = {"Scyther", "Pidgey", "Pidgeotto", "Spearow", "Doduo", "Hoothoot", "Dragonair"},

[ancient] = {"Sunkern", "Gloom", "Slowpoke", "Poliwhirl", "Seadra", "Porygon"},

[sfire] = {"Shiny Charmander", "Shiny Charmeleon", "Shiny Vulpix", "Shiny Growlithe", "Shiny Ponyta", "Shiny Eevee"},

[swater] = {"Shiny Squirtle", "Shiny Wartortle", "Shiny Horsea", "Shiny Goldeen", "Shiny Magikarp", "Shiny Psyduck", "Shiny Poliwag", "Shiny Poliwhirl", "Shiny Tentacool", "Shiny Krabby", "Shiny Staryu", "Shiny Omanyte", "Shiny Eevee"},

[sleaf] = {"Shiny Bulbasaur", "Shiny Ivysaur", "Shiny Oddish", "Shiny Gloom", "Shiny Bellsprout", "Shiny Weepinbell", "Shiny Exeggcute"},

[sheart] = {"Shiny Rattata", "Shiny Pidgey", "Shiny Pidgeotto", "Shiny Spearow", "Shiny Clefairy", "Shiny Jigglypuff", "Shiny Meowth", "Shinydoduo", "Shiny Porygon", "Shiny Chansey"},

[senigma] = {"Shiny Abra", "Shiny Kadabra", "Shiny Psyduck", "Shiny Slowpoke", "Shiny Drowzee", "Shiny Eevee"},

[srock] = {"Shiny Geodude", "Shiny Graveler", "Shiny Rhyhorn", "Shiny Kabuto"},

[svenom] = {"Shiny Zubat", "Shiny Ekans", "Shiny Nidoran male", "Shiny Nidoran female", "Shiny Nidorino", "Shiny Nidorina", "Shiny Gloom", "Shiny Venonat", "Shiny Tentacool", "Shiny Grimer", "Shiny Koffing"},

[sice] = {"Shiny Seel", "Shiny Shellder"},

[sthunder] = {"Shiny Magnemite", "Shiny Pikachu", "Shiny Voltorb", "Shiny Eevee"},

[scrystal] = {"Shiny Dratini", "Shiny Dragonair", "Shiny Magikarp", "Shiny Omanyte", "Shiny Kabuto"},

[scoccon] = {"Shiny Caterpie", "Shiny Metapod", "Shiny Weedle", "Shiny Kakuna", "Shiny Paras", "Shiny Venonat", "Shiny Scyther"},

[sdarkness] = {"Shiny Gastly", "Shiny Haunter", "Shiny Eevee"},

[spunch] = {"Shiny Machop", "Shiny Machoke", "Shiny Mankey", "Shiny Poliwhirl"},

[searth] = {"Shiny Cubone", "Shiny Sandshrew", "Shiny Nidorino", "Shiny Nidorina", "Shiny Diglett", "Shiny Onix", "Shiny Rhyhorn"}

 

}

 

local specEvos = {--alterado v1.9 \/

["Eevee"] = {

[thunder] = "Jolteon",

[water] = "Vaporeon",

[fire] = "Flareon",

[enigma] = "Espeon",

[dark] = "Umbreon",

},

}

 

function onUse(cid, item, frompos, item2, topos)

 

local pokeball = getPlayerSlotItem(cid, 8)

 

if not isMonster(item2.uid) or not isSummon(item2.uid) then

return true

end

if #getCreatureSummons(cid) > 1 then

return true--alterado v1.9

end

 

if getCreatureCondition(item2.uid, CONDITION_INVISIBLE) then return true end

 

local pevo = poevo[getCreatureName(item2.uid)]

 

if not isInArray(specialevo, getCreatureName(item2.uid)) then

if not pevo then

doPlayerSendCancel(cid, "This pokemon can't evolve.")

return true

end

if not isPlayer(getCreatureMaster(item2.uid)) or getCreatureMaster(item2.uid) ~= cid then

doPlayerSendCancel(cid, "You can only use stones on pokemons you own.")

return true

end

if pevo.stoneid ~= item.itemid and pevo.stoneid2 ~= item.itemid then 

doPlayerSendCancel(cid, "This isn't the needed stone to evolve this pokemon.")

return true

end

end

 

local minlevel = 0

 

if getPokemonName(item2.uid) == "Eevee" then

local eevee = specEvos["Eevee"][item.itemid]

if not eevee then

doPlayerSendCancel(cid, "This isn't the required stone to evolve this pokemon.")

return true

end

 

minlevel = pokes[eevee].level

 

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

 

doRemoveItem(item.uid, 1)

doEvolvePokemon(cid, item2, eevee, 0, 0)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

return true

end

 

if isInArray(specialevo, getPokemonName(item2.uid)) then

if getPokemonName(item2.uid) == "Poliwhirl" then

local evolution = 0

local theevo = ""

 

if item.itemid == water then

if getPlayerItemCount(cid, king) >= 1 then

  evolution = king

theevo = "Politoed"

elseif getPlayerItemCount(cid, punch) >= 1 then

evolution = punch

theevo = "Poliwrath"

  else

 doPlayerSendCancel(cid, "You need a water stone and a punch stone (Poliwrath) or a King's Rock (Politoed) to evolve this pokemon.")

  return true

  end

  

  minlevel = pokes[theevo].level

  

if getPlayerLevel(cid) < minlevel then

 doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

  end

if getPlayerItemCount(cid, punch) >= 1 and getPlayerItemCount(cid, king) >= 1 then

 doPlayerSendCancel(cid, "Please, use your Punch Stone to evolve this pokemon to a Poliwrath, or a King's Rock to a Politoed.")

return true

  end

 doEvolvePokemon(cid, item2, theevo, evolution, water)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

 

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

 

elseif item.itemid == punch then

  minlevel = pokes["Poliwrath"].level

  

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

  end

if getPlayerItemCount(cid, water) <= 0 then

doPlayerSendCancel(cid, "You need at least one Punch Stone and one Water Stone to evolve this pokemon.")

return true

  end

 

local theevo = "Poliwrath"

 doEvolvePokemon(cid, item2, theevo, water, punch)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

 

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

 

elseif item.itemid == king then

  minlevel = pokes["Politoed"].level

 

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

  end

if getPlayerItemCount(cid, water) <= 0 then

doPlayerSendCancel(cid, "You need at least one Punch Stone and one King's Rock to evolve this pokemon.")

return true

  end

local theevo = "Politoed"

 doEvolvePokemon(cid, item2, theevo, water, king)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

 

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

end

 

elseif getPokemonName(item2.uid) == "Gloom" then

local theevo = ""

local evolution = 0

if item.itemid == leaf then

if getPlayerItemCount(cid, leaf) >= 1 then

  theevo = "Vileplume"

evolution = leaf

elseif getPlayerItemCount(cid, venom) >= 1 then

theevo = "Bellossom"

evolution = venom

else

doPlayerSendCancel(cid, "You need at least one Leaf Stone, and a Venom Stone (Bellossom) or a 1 Leaf Stone (Vileplume) to evolve this pokemon.")

return true

end

 

minlevel = pokes[theevo].level

 

if getPlayerLevel(cid) < minlevel then

 doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPlayerItemCount(cid, venom) >= 1 and getPlayerItemCount(cid, sun) >= 1 then

 doPlayerSendCancel(cid, "Please, use your Leaf Stone to evolve this pokemon to a Vileplume, or a Venom Stone to a Bellossom.")

return true

end

 

doEvolvePokemon(cid, item2, theevo, evolution, leaf)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

 

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

 

elseif item.itemid == leaf then

minlevel = pokes["Vileplume"].level

 

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPlayerItemCount(cid, leaf) <= 0 then

doPlayerSendCancel(cid, "You need at least 2 Leaf Stones to evolve this pokemon.")

return true

end

doEvolvePokemon(cid, item2, "Vileplume", leaf, leaf)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

 

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

 

elseif item.itemid == sun then

minlevel = pokes["Bellossom"].level

 

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPlayerItemCount(cid, leaf) <= 0 then

doPlayerSendCancel(cid, "You need at least one Leaf Stone and one Sun Stone to evolve this pokemon.")

return true

end

doEvolvePokemon(cid, item2, "Bellossom", sun, leaf)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

 

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

end

 

elseif getPokemonName(item2.uid) == "Slowpoke" then

if item.itemid == enigma then

minlevel = pokes["Slowbro"].level

 

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

doEvolvePokemon(cid, item2, "Slowbro", enigma, 0)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

 

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

 

elseif item.itemid == king then

minlevel = pokes["Slowking"].level

 

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

doEvolvePokemon(cid, item2, "Slowking", king, 0)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

 

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

 end

 

elseif getPokemonName(item2.uid) == "Tyrogue" then

 local evolution = ""

 

 evolution = choose("Hitmonlee", "Hitmonchan", "Hitmontop")

minlevel = pokes[evolution].level

 

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

doEvolvePokemon(cid, item2, evolution, punch, 0)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

 

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

end

return true

end

 

local count = poevo[getPokemonName(item2.uid)].count

local stnid = poevo[getPokemonName(item2.uid)].stoneid

local stnid2 = poevo[getPokemonName(item2.uid)].stoneid2

local evo = poevo[getPokemonName(item2.uid)].evolution

 

if stnid2 > 1 and (getPlayerItemCount(cid, stnid2) < count or getPlayerItemCount(cid, stnid) < count) then

doPlayerSendCancel(cid, "You need at least one "..getItemNameById(stnid).." and one "..getItemNameById(stnid2).." to evolve this pokemon!")

return true

end

 

if getPlayerItemCount(cid, stnid) < count then

local str = ""

if count >= 2 then

str = "s"

end

returndoPlayerSendCancel(cid, "You need at least "..count.." "..getItemNameById(stnid)..""..str.." to evolve this pokemon!")

end

 

minlevel = pokes[evo].level

 

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "Você não possui level necessario para evoluir esse pokemon ("..minlevel..").")

return true

end

 

local ball = getPlayerSlotItem(cid, 8).uid

if getItemAttribute(getPlayerSlotItem(cid, 8).uid, "ehshinyditto") == 1 then

doPlayerSendCancel(cid, "evoluir ditto serio mesmo?")

return true

end

if getItemAttribute(getPlayerSlotItem(cid, 8).uid, "ehditto") == 1 then

doPlayerSendCancel(cid, "evoluir ditto serio mesmo?")

return true

end

 

if count >= 2 then

stnid2 = stnid

end

 

doEvolvePokemon(cid, item2, evo, stnid, stnid2)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

 

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

 

return TRUE

end

 

ele apaga o boost de um poke qnd evolui, (exe: rattata +1 se tu evoluir pra raticate fica raticate +0) e com o ditto system do tiu gab ditto nem shiny ditto (baseado no system dele) não evoluem

Tive que altera uma coisinha nesse script, agora ta funcionando certinho. vlw...

Segue ae o script para quem precisar:

 

local special = specialevo                  --alterado v1.9 \/ peguem ele todo!

 

local types = {

[leaf] = {"Bulbasaur", "Ivysaur", "Oddish", "Gloom", "Bellsprout", "Weepinbell", "Exeggcute", "Chikorita", "Bayleef", "Hoppip", "Skiploom", "Sunkern"},

[water] = {"Squirtle", "Wartortle", "Horsea", "Goldeen", "Magikarp", "Psyduck", "Poliwag", "Poliwhirl", "Tentacool", "Krabby", "Staryu", "Omanyte", "Eevee", "Totodile", "Croconow", "Chinchou", "Marill", "Wooper", "Slowpoke", "Remoraid", "Seadra"},

[venom] = {"Zubat", "Ekans", "Nidoran male", "Nidoran female", "Nidorino", "Nidorina", "Gloom", "Venonat", "Tentacool", "Grimer", "Koffing", "Spinarak", "Golbat"},

[thunder] = {"Magnemite", "Pikachu", "Voltorb", "Eevee", "Chinchou", "Pichu", "Mareep", "Flaaffy", "Elekid"},

[rock] = {"Geodude", "Graveler", "Rhyhorn", "Kabuto", "Slugma", "Pupitar"},

[punch] = {"Machop", "Machoke", "Mankey", "Poliwhirl", "Tyrogue"},

[fire] = {"Charmander", "Charmeleon", "Vulpix", "Growlithe", "Ponyta", "Eevee", "Cyndaquil", "Quilava", "Slugma", "Houndour", "Magby"},

[coccon] = {"Caterpie", "Metapod", "Weedle", "Kakuna", "Paras", "Venonat", "Scyther", "Ledyba", "Spinarak", "Pineco"},

[crystal] = {"Dratini", "Dragonair", "Magikarp", "Omanyte", "Kabuto", "Seadra"},

[dark] = {"Gastly", "Haunter", "Eevee", "Houndour", "Pupitar"},

[earth] = {"Cubone", "Sandshrew", "Nidorino", "Nidorina", "Diglett", "Onix", "Rhyhorn", "Wooper", "Swinub", "Phanpy", "Larvitar"},

[enigma] = {"Abra", "Kadabra", "Psyduck", "Slowpoke", "Drowzee", "Eevee", "Natu", "Smoochum"},

[heart] = {"Rattata", "Pidgey", "Pidgeotto", "Spearow", "Clefairy", "Jigglypuff", "Meowth", "Doduo", "Porygon", "Chansey", "Sentret", "Hoothoot", "Cleffa", "Igglybuff", "Togepi", "Snubull", "Teddiursa"},

[ice] = {"Seel", "Shellder", "Smoochum", "Swinub"},

[king] = {"Slowpoke", "Poliwhirl"},

[metal] = {"Onix", "Scyther"},

[dragon] = {"Seadra"},

[upgrade] = {"Porygon"},

[sun] = {"Sunkern", "Gloom"},

[sfire] = {"Shiny Charmander", "Shiny Charmeleon", "Shiny Vulpix", "Shiny Growlithe", "Shiny Ponyta", "Shiny Eevee"},

[swater] = {"Shiny Squirtle", "Shiny Wartortle", "Shiny Horsea", "Shiny Goldeen", "Shiny Magikarp", "Shiny Psyduck", "Shiny Poliwag", "Shiny Poliwhirl", "Shiny Tentacool", "Shiny Krabby", "Shiny Staryu", "Shiny Omanyte", "Shiny Eevee"},

[sleaf] = {"Shiny Bulbasaur", "Shiny Ivysaur", "Shiny Oddish", "Shiny Gloom", "Shiny Bellsprout", "Shiny Weepinbell", "Shiny Exeggcute"},

[sheart] = {"Shiny Rattata", "Shiny Pidgey", "Shiny Pidgeotto", "Shiny Spearow", "Shiny Clefairy", "Shiny Jigglypuff", "Shiny Meowth", "Shiny Doduo", "Shiny Porygon", "Shiny Chansey"},

[senigma] = {"Shiny Abra", "Shiny Kadabra", "Shiny Psyduck", "Shiny Slowpoke", "Shiny Drowzee", "Shiny Eevee"},

[srock] = {"Shiny Geodude", "Shiny Graveler", "Shiny Rhyhorn", "Shiny Kabuto"},

[svenom] = {"Shiny Zubat", "Shiny Ekans", "Shiny Nidoran male", "Shiny Nidoran female", "Shiny Nidorino", "Shiny Nidorina", "Shiny Gloom", "Shiny Venonat", "Shiny Tentacool", "Shiny Grimer", "Shiny Koffing"},

[sice] = {"Shiny Seel", "Shiny Shellder"},

[sthunder] = {"Shiny Magnemite", "Shiny Pikachu", "Shiny Voltorb", "Shiny Eevee"},

[scrystal] = {"Shiny Dratini", "Shiny Dragonair", "Shiny Magikarp", "Shiny Omanyte", "Shiny Kabuto"},

[scoccon] = {"Shiny Caterpie", "Shiny Metapod", "Shiny Weedle", "Shiny Kakuna", "Shiny Paras", "Shiny Venonat", "Shiny Scyther"},

[sdarkness] = {"Shiny Gastly", "Shiny Haunter", "Shiny Eevee"},

[spunch] = {"Shiny Machop", "Shiny Machoke", "Shiny Mankey", "Shiny Poliwhirl"},

[searth] = {"Shiny Cubone", "Shiny Sandshrew", "Shiny Nidorino", "Shiny Nidorina", "Shiny Diglett", "Shiny Onix", "Shiny Rhyhorn"}

 

}

 

local specEvos = {   --alterado v1.9 \/

["Eevee"] = {

               [thunder] = "Jolteon",

               [water] = "Vaporeon",

               [fire] = "Flareon",

               [enigma] = "Espeon",

               [dark] = "Umbreon",

            },

}

 

function onUse(cid, item, frompos, item2, topos)

 

local pokeball = getPlayerSlotItem(cid, 8)

 

if not isMonster(item2.uid) or not isSummon(item2.uid) then

   return true

end

if #getCreatureSummons(cid) > 1 then

   return true                           --alterado v1.9

end

 

if getCreatureCondition(item2.uid, CONDITION_INVISIBLE) then return true end

 

local pevo = poevo[getCreatureName(item2.uid)]

 

if not isInArray(specialevo, getCreatureName(item2.uid)) then

   if not pevo then

      doPlayerSendCancel(cid, "This pokemon can't evolve.")

      return true

   end

   if not isPlayer(getCreatureMaster(item2.uid)) or getCreatureMaster(item2.uid) ~= cid then

      doPlayerSendCancel(cid, "You can only use stones on pokemons you own.")

      return true

   end

   if pevo.stoneid ~= item.itemid and pevo.stoneid2 ~= item.itemid then 

      doPlayerSendCancel(cid, "This isn't the needed stone to evolve this pokemon.")

      return true

   end

end

 

local minlevel = 0

 

if getPokemonName(item2.uid) == "Eevee" then

   local eevee = specEvos["Eevee"][item.itemid]

   if not eevee then

      doPlayerSendCancel(cid, "This isn't the required stone to evolve this pokemon.")

      return true

   end   

 

   minlevel = pokes[eevee].level

 

   if getPlayerLevel(cid) < minlevel then

      doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

      return true

   end

 

   doRemoveItem(item.uid, 1)

   doEvolvePokemon(cid, item2, eevee, 0, 0)

   return true

end

 

if isInArray(specialevo, getPokemonName(item2.uid)) then

   if getPokemonName(item2.uid) == "Poliwhirl" then

      local evolution = 0

      local theevo = ""

      

      if item.itemid == water then

         if getPlayerItemCount(cid, king) >= 1 then

            evolution = king

theevo = "Politoed"

         elseif getPlayerItemCount(cid, punch) >= 1 then

evolution = punch

theevo = "Poliwrath"

         else

            doPlayerSendCancel(cid, "You need a water stone and a punch stone (Poliwrath) or a King's Rock (Politoed) to evolve this pokemon.")

            return true

         end

         

         minlevel = pokes[theevo].level

         

         if getPlayerLevel(cid) < minlevel then

            doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

         end

         if getPlayerItemCount(cid, punch) >= 1 and getPlayerItemCount(cid, king) >= 1 then

            doPlayerSendCancel(cid, "Please, use your Punch Stone to evolve this pokemon to a Poliwrath, or a King's Rock to a Politoed.")

return true

         end

         doEvolvePokemon(cid, item2, theevo, evolution, water)

 

 elseif item.itemid == punch then

         minlevel = pokes["Poliwrath"].level

         

         if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

         end

         if getPlayerItemCount(cid, water) <= 0 then

doPlayerSendCancel(cid, "You need at least one Punch Stone and one Water Stone to evolve this pokemon.")

return true

         end

 

         local theevo = "Poliwrath"

         doEvolvePokemon(cid, item2, theevo, water, punch)

 

 elseif item.itemid == king then

         minlevel = pokes["Politoed"].level

 

         if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

         end

         if getPlayerItemCount(cid, water) <= 0 then

doPlayerSendCancel(cid, "You need at least one Punch Stone and one King's Rock to evolve this pokemon.")

return true

         end

         local theevo = "Politoed"

         doEvolvePokemon(cid, item2, theevo, water, king)

      end

 

elseif getPokemonName(item2.uid) == "Gloom" then

       local theevo = ""

  local evolution = 0

       if item.itemid == leaf then

          if getPlayerItemCount(cid, venom) >= 1 then

        theevo = "Vileplume"

evolution = venom

     elseif getPlayerItemCount(cid, sun) >= 1 then

             theevo = "Bellossom"

evolution = sun

          else

             doPlayerSendCancel(cid, "You need at least one Leaf Stone, and a Sun Stone (Bellossom) or a Venom Stone (Vileplume) to evolve this pokemon.")

return true

     end

     

     minlevel = pokes[theevo].level

     

     if getPlayerLevel(cid) < minlevel then

        doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

     end

          if getPlayerItemCount(cid, venom) >= 1 and getPlayerItemCount(cid, sun) >= 1 then

        doPlayerSendCancel(cid, "Please, use your Venom Stone to evolve this pokemon to a Vileplume, or a Sun Stone to a Bellossom.")

return true

     end

          

          doEvolvePokemon(cid, item2, theevo, evolution, leaf)

 

  elseif item.itemid == venom then

          minlevel = pokes["Vileplume"].level

 

          if getPlayerLevel(cid) < minlevel then

             doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

          end

          if getPlayerItemCount(cid, leaf) <= 0 then

doPlayerSendCancel(cid, "You need at least one Leaf Stone and one Venom Stone to evolve this pokemon.")

return true

          end

          doEvolvePokemon(cid, item2, "Vileplume", venom, leaf)

          

       elseif item.itemid == sun then

          minlevel = pokes["Bellossom"].level

 

          if getPlayerLevel(cid) < minlevel then

             doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

             return true

          end

          if getPlayerItemCount(cid, leaf) <= 0 then

doPlayerSendCancel(cid, "You need at least one Leaf Stone and one Sun Stone to evolve this pokemon.")

return true

          end

          doEvolvePokemon(cid, item2, "Bellossom", sun, leaf)

       end

       

elseif getPokemonName(item2.uid) == "Slowpoke" then

       if item.itemid == enigma then

          minlevel = pokes["Slowbro"].level

 

          if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

          end

          doEvolvePokemon(cid, item2, "Slowbro", enigma, 0)

 

elseif item.itemid == king then

          minlevel = pokes["Slowking"].level

 

          if getPlayerLevel(cid) < minlevel then

             doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

          end

          doEvolvePokemon(cid, item2, "Slowking", king, 0)

        end

 

elseif getPokemonName(item2.uid) == "Tyrogue" then

        local evolution = ""

 

        evolution = choose("Hitmonlee", "Hitmonchan", "Hitmontop")

minlevel = pokes[evolution].level

 

if getPlayerLevel(cid) < minlevel then

  doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

  return true

end

        doEvolvePokemon(cid, item2, evolution, punch, 0)

end

return true

end

 

local count = poevo[getPokemonName(item2.uid)].count

local stnid = poevo[getPokemonName(item2.uid)].stoneid

local stnid2 = poevo[getPokemonName(item2.uid)].stoneid2

local evo = poevo[getPokemonName(item2.uid)].evolution

 

if stnid2 > 1 and (getPlayerItemCount(cid, stnid2) < count or getPlayerItemCount(cid, stnid) < count) then

   doPlayerSendCancel(cid, "You need at least one "..getItemNameById(stnid).." and one "..getItemNameById(stnid2).." to evolve this pokemon!")

   return true

end

 

if getPlayerItemCount(cid, stnid) < count then

   local str = ""

   if count >= 2 then

      str = "s"

   end

return doPlayerSendCancel(cid, "You need at least "..count.." "..getItemNameById(stnid)..""..str.." to evolve this pokemon!")

end

 

minlevel = pokes[evo].level

 

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "Você não possui level necessario para evoluir esse pokemon ("..minlevel..").")

return true

end

 

local ball = getPlayerSlotItem(cid, 8).uid

if getItemAttribute(getPlayerSlotItem(cid, 8).uid, "ehshinyditto") == 1 then

doPlayerSendCancel(cid, "evoluir ditto serio mesmo?")

return true

end

if getItemAttribute(getPlayerSlotItem(cid, 8).uid, "ehditto") == 1 then

doPlayerSendCancel(cid, "evoluir ditto serio mesmo?")

return true

end

 

if count >= 2 then

stnid2 = stnid

end

 

doEvolvePokemon(cid, item2, evo, stnid, stnid2)

local ball = getPlayerSlotItem(cid, 8).uid

doItemEraseAttribute(ball, "boost")

doItemSetAttribute(ball, "morta", "no")

 

doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)

 

return TRUE

end

Editado Junho 5, 2015 9 anos por olaia (veja o histórico de edições)