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

local types = {
[leaf] = {"Weepinbell", "Exeggcute"},
[water] = {"Poliwag", "Shellder", "Staryu"},
[venom] = {},
[thunder] = {"Pikachu"},
[rock] = {"Nidorina", "Nidorino", "Clefairy", "Jigglypuff"},
[punch] = {},
[fire] = {"Vulpix", "Growlithe"},
[coccon] = {},
[crystal] = {},
[dark] = {},
[earth] = {},
[enigma] = {},
[heart] = {},
[ice] = {},
[metal] = {},
[ancient] = {},
[sfire] = {},
[swater] = {},
[sleaf] = {},
[sheart] = {},
[senigma] = {},
[srock] = {},
[svenom] = {},
[sice] = {},
[sthunder] = {},
[scrystal] = {},
[scoccon] = {},
[sdarkness] = {},
[spunch] = {},
[searth] = {},
[dragon] = {},
[upgrade] = {},
[sun] = {}

}

local specEvos = { --alterado v1.9 \/
["Eevee"] = {
[thunder] = "Jolteon",
[water] = "Vaporeon",
[fire] = "Flareon",
[enigma] = "Espeon",
[dark] = "Umbreon",
[ice] = "Glaceon",
[leaf] = "Leafeon",
[heart] = "Sylveon",
},
}

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 isInArray({"ditto", "shiny ditto"}, getItemAttribute(pokeball.uid, "poke"):lower()) then
doSendMsg(cid, "Ditto năo tem evoluçăo.")
return true
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
local pb = getPlayerSlotItem(cid, 8)
local levelon = getItemAttribute(pb.uid, "level")
if levelon < 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")

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
local pb = getPlayerSlotItem(cid, 8)
local levelon = getItemAttribute(pb.uid, "level")
if levelon < 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")
doTransformItem(ball, pokeballs[theevo:lower()].use)

elseif item.itemid == punch then
minlevel = pokes["Poliwrath"].level
local pb = getPlayerSlotItem(cid, 8)
local levelon = getItemAttribute(pb.uid, "level")
if levelon < 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")
doItemSetAttribute(ball, "Icone", "yes")
doTransformItem(ball, pokeballs[theevo:lower()].use)

elseif item.itemid == king then
minlevel = pokes["Politoed"].level
local pb = getPlayerSlotItem(cid, 8)
local levelon = getItemAttribute(pb.uid, "level")
if levelon < 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")

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, sun) >= 1 then
theevo = "Bellossom"
evolution = sun
else
doPlayerSendCancel(cid, "You need at least one Leaf Stone, and a Sun Stone (Bellossom) or a 2 Leaf Stone (Vileplume) to evolve this pokemon.")
return true
end

minlevel = pokes[theevo].level
local pb = getPlayerSlotItem(cid, 8)
local levelon = getItemAttribute(pb.uid, "level")

if levelon < 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 Sun Stone to a Bellossom.")
return true
end

doEvolvePokemon(cid, item2, theevo, evolution, leaf)
local ball = getPlayerSlotItem(cid, 8).uid
doItemEraseAttribute(ball, "boost")


elseif item.itemid == leaf then
minlevel = pokes["Vileplume"].level
local pb = getPlayerSlotItem(cid, 8)
local levelon = getItemAttribute(pb.uid, "level")
if levelon < 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")


elseif item.itemid == sun then
minlevel = pokes["Bellossom"].level
local pb = getPlayerSlotItem(cid, 8)
local levelon = getItemAttribute(pb.uid, "level")
if levelon < 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")

end

elseif getPokemonName(item2.uid) == "Slowpoke" then
if item.itemid == enigma then
minlevel = pokes["Slowbro"].level
local pb = getPlayerSlotItem(cid, 8)
local levelon = getItemAttribute(pb.uid, "level")
if levelon < 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")

elseif item.itemid == king then
minlevel = pokes["Slowking"].level
local pb = getPlayerSlotItem(cid, 8)
local levelon = getItemAttribute(pb.uid, "level")
if levelon < 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")
end

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

evolution = choose("Hitmonlee", "Hitmonchan", "Hitmontop")
minlevel = pokes[evolution].level
local pb = getPlayerSlotItem(cid, 8)
local levelon = getItemAttribute(pb.uid, "level")

if levelon < 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")
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 not pokes[evo] then
doSendMsg(cid, "Este pokemon nao existe.")
print(">>>>>>EVO BUG: " .. evo)
return true
end

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

local poke = getCreatureSummons(cid)[1]
local pb = getPlayerSlotItem(cid, 8)
local levelon = getItemAttribute(pb.uid, "level")

if levelon < minlevel then
doPlayerSendCancel(cid, "Pokemon does not have the necessary level ("..minlevel..").")
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")

return TRUE
end