Ir para conteúdo
TK News
  • Cadastre-se

Derivado poke evolui somente no lvl do treinadpr

DarkRed

Por ,
em Suporte Tibia OTServer

 Share Seguidores 1

Posts Recomendados

DarkRed

DarkRed 9

Postado
Postado

Pessoal da uma forcinha de novo queria sabe como faco para coloca o pokemon para evoluir somente no lvl certo.. pode me ajuda nesse, exemplo otpokemon.

 

 charmande evolui para charizard no lvl 80 do player antes disso se você evolui não pode usá-lo sera alguém pode me ajuda com isso.

Link para o post
Compartilhar em outros sites
gabrielzika

gabrielzika 137

Postado
Postado

vai em data/actions/scrtips

 

e me manda seu evolution.lua

MEU SERVER:

http://otpokemonxy.net/

 

 

Nosso → Grupo Oficial OtPokemon XY 24 Horas

 

Nosso → Site Oficial OtPokemon XY 24 Horas

 

Nossa → Pagina Oficial OtPokemon XY 24 Horas

 

Link para o post
Compartilhar em outros sites
DarkRed

DarkRed 9

Postado
  • Autor
Postado (editado)

local special = specialevo
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", "Shiny Rattata"},
[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"}
}
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 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 pevo.level ~= 1 and not allEvolutionsCanBeInduzedByStone then
            doPlayerSendCancel(cid, "This pokemon doesn't evolve using stones.")
        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 = ""
        if item.itemid == thunder then
            eevee = "Jolteon"
        elseif item.itemid == water then
            eevee = "Vaporeon"
        elseif item.itemid == fire then
            eevee = "Flareon"
        elseif item.itemid == enigma and allEvolutionsCanBeInduzedByStone then
            eevee = "Espeon"
        elseif item.itemid == dark and allEvolutionsCanBeInduzedByStone then
            eevee = "Umbreon"
        else
            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 getPokemonName(item2.uid) == "Shiny Eevee" then
        local eevee = ""
        if item.itemid == sthunder then
            eevee = "Shiny Jolteon"
        elseif item.itemid == swater then
            eevee = "Shiny Vaporeon"
        elseif item.itemid == sfire then
            eevee = "Shiny Flareon"
        else
            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 = ""
        local nlevel = 15
        if item.itemid == water then
            if getPlayerItemCount(cid, king) >= 1 then
                evolution = king
                theevo = "Politoed"
            elseif getPlayerItemCount(cid, punch) >= 1 and allEvolutionsCanBeInduzedByStone then
                evolution = punch
                theevo = "Poliwrath"
            else
                if allEvolutionsCanBeInduzedByStone then
                    if getPlayerItemCount(cid, king) <= 0 and getPlayerItemCount(cid, punch) <= 0 then
                        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
                else
                    if getPlayerItemCount(cid, king) <= 0 then
                        doPlayerSendCancel(cid, "You need a Water Stone and a King's Rock to evolve this pokemon to a Politoed.")
                    return true
                    end
                end
            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 theevo == "Poliwrath" then
                doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (36).")
            return true
            end
            if getPlayerItemCount(cid, punch) >= 1 and getPlayerItemCount(cid, king) >= 1 and allEvolutionsCanBeInduzedByStone 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
            if evolution == 0 then
                if allEvolutionsCanBeInduzedByStone then
                    doPlayerSendCancel(cid, "You need at least one Water Stone, and a Punch Stone (Poliwrath) or a King's Rock (Politoed) to evolve this pokemon.")
                else
                    doPlayerSendCancel(cid, "You need at least one Water Stone and a King's Rock to evolve this pokemon.")
                end
            return true
            end
            if evolution ~= 0 then
            doEvolvePokemon(cid, item2, theevo, evolution, water)
            return true
            end
        elseif item.itemid == punch then
            minlevel = pokes["Poliwrath"].level
            if not allEvolutionsCanBeInduzedByStone then
                doPlayerSendCancel(cid, "This is not the required stone to evolve this pokemon.")
            return true
            end
            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) == "Shiny Poliwhirl" then
        local evolution = 0
        local theevo = ""
        local nlevel = 45
        if item.itemid == swater then
            if getPlayerItemCount(cid, punch) >= 1 and allEvolutionsCanBeInduzedByStone then
                evolution = spunch
                theevo = "Shiny Poliwrath"
            else
                if allEvolutionsCanBeInduzedByStone then
                    if getPlayerItemCount(cid, punch) <= 0 then
                        doPlayerSendCancel(cid, "You need a shining water stone and a shining punch stone Shiny Poliwrath to evolve this pokemon.")
                    return true
                    end
                else
                    
                end
            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 theevo == "Shiny Poliwrath" then
                doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (36).")
            return true
            end
            if getPlayerItemCount(cid, spunch) >= 1 and allEvolutionsCanBeInduzedByStone then
                doPlayerSendCancel(cid, "Please, use your shining Punch Stone to evolve this pokemon to a Poliwrath.")
            return true
            end
            if evolution == 0 then
                if allEvolutionsCanBeInduzedByStone then
                    doPlayerSendCancel(cid, "You need at least one shining Water Stone and a shining Punch Stone ,Shiny Poliwrath to evolve this pokemon.")
                else
                    doPlayerSendCancel(cid, "You need at least one shining Water Stone evolve this pokemon.")
                end
            return true
            end
            if evolution ~= 0 then
            doEvolvePokemon(cid, item2, theevo, evolution, swater)
            return true
            end
        elseif item.itemid == spunch then
            minlevel = pokes["Shiny Poliwrath"].level
            if not allEvolutionsCanBeInduzedByStone then
                doPlayerSendCancel(cid, "This is not the required shining stone to evolve this pokemon.")
            return true
            end
            if getPlayerLevel(cid) < minlevel then
            doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")
            return true
            end
            if getPlayerItemCount(cid, swater) <= 0 then
            doPlayerSendCancel(cid, "You need at least one shining Punch Stone and one shining Water Stone to evolve this pokemon.")
            return true
            end
            local theevo = "Shiny Poliwrath"
            doEvolvePokemon(cid, item2, theevo, swater, spunch)
        
        end
    elseif getPokemonName(item2.uid) == "Gloom" then
    if item.itemid == leaf then
        local theevo = ""
        local evolution = 0
            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
            if getPlayerItemCount(cid, venom) <= 0 and getPlayerItemCount(cid, sun) <= 0 then
            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
            if getPlayerItemCount(cid, venom) >= 1 then
            theevo = "Vileplume"
            evolution = venom
            elseif getPlayerItemCount(cid, sun) >= 1 then
            theevo = "Bellossom"
            evolution = sun
            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
            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) == "Shiny Gloom" then
    if item.itemid == sleaf then
        local theevo = ""
        local evolution = 0
            if getPlayerItemCount(cid, svenom) >= 1 then
            doPlayerSendCancel(cid, "Please, use your shining Venom Stone to evolve this pokemon to a Shiny Vileplume.")
            return true
            end
            if getPlayerItemCount(cid, svenom) <= 0 then
            doPlayerSendCancel(cid, "You need at least one shining Leaf Stone or a shining Venom Stone (Shiny Vileplume) to evolve this pokemon.")
            return true
            end
            if getPlayerItemCount(cid, svenom) >= 1 then
            theevo = "Shiny Vileplume"
            evolution = svenom
            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
            doEvolvePokemon(cid, item2, theevo, evolution, sleaf)
        elseif item.itemid == svenom then
            minlevel = pokes["Shiny 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, sleaf) <= 0 then
            doPlayerSendCancel(cid, "You need at least one Leaf Stone and one shining Venom Stone to evolve this pokemon.")
            return true
            end
            doEvolvePokemon(cid, item2, "Shiny Vileplume", svenom, sleaf)
        end
    elseif getPokemonName(item2.uid) == "Slowpoke" then
        if item.itemid == enigma then
            if not allEvolutionsCanBeInduzedByStone then
                doPlayerSendCancel(cid, "This is not the required stone to evolve this pokemon.")
            return true
            end
            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) == "Shiny Slowpoke" then
        if item.itemid == senigma then
            if not allEvolutionsCanBeInduzedByStone then
                doPlayerSendCancel(cid, "This is not the required stone to evolve this pokemon.")
            return true
            end
            minlevel = pokes["Shiny 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, "Shiny Slowbro", senigma, 0)
        end
    elseif getPokemonName(item2.uid) == "Tyrogue" then
        if not allEvolutionsCanBeInduzedByStone then
            doPlayerSendCancel(cid, "This pokemon doesn't evolve using stones.")
        return true
        end
        local evolution = ""
        if getOffense(item2.uid) == getDefense(item2.uid) then
            evolution = "Hitmontop"
        elseif getOffense(item2.uid) > getDefense(item2.uid) then
            evolution = "Hitmonlee"
        else
            evolution = "Hitmonchan"
        end
        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
local nlevel = poevo[getPokemonName(item2.uid)].level
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
local nlevel = poevo[getPokemonName(item2.uid)].level
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 and evolutionByStoneRequireLevel then
doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")
return true
end
if count >= 2 then
stnid2 = stnid
end
doEvolvePokemon(cid, item2, evo, stnid, stnid2)
return TRUE
end

Editado por DarkRed
troquei porque adicionei mega evolucao (veja o histórico de edições)
Link para o post
Compartilhar em outros sites
gabrielzika

gabrielzika 137

Postado
Postado 
local special = specialevo
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", "Shiny Rattata"},
[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"}
}
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 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 pevo.level ~= 1 and not allEvolutionsCanBeInduzedByStone then
            doPlayerSendCancel(cid, "This pokemon doesn't evolve using stones.")
        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 = ""
        if item.itemid == thunder then
            eevee = "Jolteon"
        elseif item.itemid == water then
            eevee = "Vaporeon"
        elseif item.itemid == fire then
            eevee = "Flareon"
        elseif item.itemid == enigma and allEvolutionsCanBeInduzedByStone then
            eevee = "Espeon"
        elseif item.itemid == dark and allEvolutionsCanBeInduzedByStone then
            eevee = "Umbreon"
        else
            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 getPokemonName(item2.uid) == "Shiny Eevee" then
        local eevee = ""
        if item.itemid == sthunder then
            eevee = "Shiny Jolteon"
        elseif item.itemid == swater then
            eevee = "Shiny Vaporeon"
        elseif item.itemid == sfire then
            eevee = "Shiny Flareon"
        else
            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 = ""
        local nlevel = 15
        if item.itemid == water then
            if getPlayerItemCount(cid, king) >= 1 then
                evolution = king
                theevo = "Politoed"
            elseif getPlayerItemCount(cid, punch) >= 1 and allEvolutionsCanBeInduzedByStone then
                evolution = punch
                theevo = "Poliwrath"
            else
                if allEvolutionsCanBeInduzedByStone then
                    if getPlayerItemCount(cid, king) <= 0 and getPlayerItemCount(cid, punch) <= 0 then
                        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
                else
                    if getPlayerItemCount(cid, king) <= 0 then
                        doPlayerSendCancel(cid, "You need a Water Stone and a King's Rock to evolve this pokemon to a Politoed.")
                    return true
                    end
                end
            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 theevo == "Poliwrath" then
                doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (36).")
            return true
            end
            if getPlayerItemCount(cid, punch) >= 1 and getPlayerItemCount(cid, king) >= 1 and allEvolutionsCanBeInduzedByStone 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
            if evolution == 0 then
                if allEvolutionsCanBeInduzedByStone then
                    doPlayerSendCancel(cid, "You need at least one Water Stone, and a Punch Stone (Poliwrath) or a King's Rock (Politoed) to evolve this pokemon.")
                else
                    doPlayerSendCancel(cid, "You need at least one Water Stone and a King's Rock to evolve this pokemon.")
                end
            return true
            end
            if evolution ~= 0 then
            doEvolvePokemon(cid, item2, theevo, evolution, water)
            return true
            end
        elseif item.itemid == punch then
            minlevel = pokes["Poliwrath"].level
            if not allEvolutionsCanBeInduzedByStone then
                doPlayerSendCancel(cid, "This is not the required stone to evolve this pokemon.")
            return true
            end
            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) == "Shiny Poliwhirl" then
        local evolution = 0
        local theevo = ""
        local nlevel = 45
        if item.itemid == swater then
            if getPlayerItemCount(cid, punch) >= 1 and allEvolutionsCanBeInduzedByStone then
                evolution = spunch
                theevo = "Shiny Poliwrath"
            else
                if allEvolutionsCanBeInduzedByStone then
                    if getPlayerItemCount(cid, punch) <= 0 then
                        doPlayerSendCancel(cid, "You need a shining water stone and a shining punch stone Shiny Poliwrath to evolve this pokemon.")
                    return true
                    end
                else
                    
                end
            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 theevo == "Shiny Poliwrath" then
                doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (36).")
            return true
            end
            if getPlayerItemCount(cid, spunch) >= 1 and allEvolutionsCanBeInduzedByStone then
                doPlayerSendCancel(cid, "Please, use your shining Punch Stone to evolve this pokemon to a Poliwrath.")
            return true
            end
            if evolution == 0 then
                if allEvolutionsCanBeInduzedByStone then
                    doPlayerSendCancel(cid, "You need at least one shining Water Stone and a shining Punch Stone ,Shiny Poliwrath to evolve this pokemon.")
                else
                    doPlayerSendCancel(cid, "You need at least one shining Water Stone evolve this pokemon.")
                end
            return true
            end
            if evolution ~= 0 then
            doEvolvePokemon(cid, item2, theevo, evolution, swater)
            return true
            end
        elseif item.itemid == spunch then
            minlevel = pokes["Shiny Poliwrath"].level
            if not allEvolutionsCanBeInduzedByStone then
                doPlayerSendCancel(cid, "This is not the required shining stone to evolve this pokemon.")
            return true
            end
            if getPlayerLevel(cid) < minlevel then
            doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")
            return true
            end
            if getPlayerItemCount(cid, swater) <= 0 then
            doPlayerSendCancel(cid, "You need at least one shining Punch Stone and one shining Water Stone to evolve this pokemon.")
            return true
            end
            local theevo = "Shiny Poliwrath"
            doEvolvePokemon(cid, item2, theevo, swater, spunch)
        
        end
    elseif getPokemonName(item2.uid) == "Gloom" then
    if item.itemid == leaf then
        local theevo = ""
        local evolution = 0
            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
            if getPlayerItemCount(cid, venom) <= 0 and getPlayerItemCount(cid, sun) <= 0 then
            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
            if getPlayerItemCount(cid, venom) >= 1 then
            theevo = "Vileplume"
            evolution = venom
            elseif getPlayerItemCount(cid, sun) >= 1 then
            theevo = "Bellossom"
            evolution = sun
            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
            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) == "Shiny Gloom" then
    if item.itemid == sleaf then
        local theevo = ""
        local evolution = 0
            if getPlayerItemCount(cid, svenom) >= 1 then
            doPlayerSendCancel(cid, "Please, use your shining Venom Stone to evolve this pokemon to a Shiny Vileplume.")
            return true
            end
            if getPlayerItemCount(cid, svenom) <= 0 then
            doPlayerSendCancel(cid, "You need at least one shining Leaf Stone or a shining Venom Stone (Shiny Vileplume) to evolve this pokemon.")
            return true
            end
            if getPlayerItemCount(cid, svenom) >= 1 then
            theevo = "Shiny Vileplume"
            evolution = svenom
            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
            doEvolvePokemon(cid, item2, theevo, evolution, sleaf)
        elseif item.itemid == svenom then
            minlevel = pokes["Shiny 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, sleaf) <= 0 then
            doPlayerSendCancel(cid, "You need at least one Leaf Stone and one shining Venom Stone to evolve this pokemon.")
            return true
            end
            doEvolvePokemon(cid, item2, "Shiny Vileplume", svenom, sleaf)
        end
    elseif getPokemonName(item2.uid) == "Slowpoke" then
        if item.itemid == enigma then
            if not allEvolutionsCanBeInduzedByStone then
                doPlayerSendCancel(cid, "This is not the required stone to evolve this pokemon.")
            return true
            end
            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) == "Shiny Slowpoke" then
        if item.itemid == senigma then
            if not allEvolutionsCanBeInduzedByStone then
                doPlayerSendCancel(cid, "This is not the required stone to evolve this pokemon.")
            return true
            end
            minlevel = pokes["Shiny 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, "Shiny Slowbro", senigma, 0)
        end
    elseif getPokemonName(item2.uid) == "Tyrogue" then
        if not allEvolutionsCanBeInduzedByStone then
            doPlayerSendCancel(cid, "This pokemon doesn't evolve using stones.")
        return true
        end
        local evolution = ""
        if getOffense(item2.uid) == getDefense(item2.uid) then
            evolution = "Hitmontop"
        elseif getOffense(item2.uid) > getDefense(item2.uid) then
            evolution = "Hitmonlee"
        else
            evolution = "Hitmonchan"
        end
        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
local nlevel = poevo[getPokemonName(item2.uid)].level
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
local nlevel = poevo[getPokemonName(item2.uid)].level
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 and evolutionByStoneRequireLevel then
doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")
return true
end
if count >= 2 then
stnid2 = stnid
end
doEvolvePokemon(cid, item2, evo, stnid, stnid2)
return TRUE
end

 

MEU SERVER:

http://otpokemonxy.net/

 

 

Nosso → Grupo Oficial OtPokemon XY 24 Horas

 

Nosso → Site Oficial OtPokemon XY 24 Horas

 

Nossa → Pagina Oficial OtPokemon XY 24 Horas

 

Link para o post
Compartilhar em outros sites
DarkRed

DarkRed 9

Postado
  • Autor
Postado (editado)

 

Em 21/11/2017 em 08:15, gabrielzika disse:

vai em data/actions/scrtips

 

e me manda seu evolution.lua

nao resolveu sera q tenho q troca o lvl para usa o pokemon

IMG_20171122_090719683.jpg

Editado por DarkRed (veja o histórico de edições)
Link para o post
Compartilhar em outros sites

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 1
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

  • Conteúdo Similar

    • LeoTK
      [Mapping - Nto NS : New Map] #Att 11/08/2022
      Por LeoTK
      Salve galera neste tópico irei postar algumas prints do mapa do servidor para quem queira acompanhar e quem sabe até utilizar de inspiração para mapear o seu NTO.
       
      #Att 11/08/2022

       
       
       
       
      Konoha (Em Desenvolvimento)
       
       
       
       
    • DiigooMix
      (Resolvido)Sprite Hitto Dragon Ball
      Por DiigooMix
      Como o título já diz, será que alguém possui sprite do hitto e se possível as transformações dele?
    • OmegaZero
      (Resolvido)DOUBLE HIT NA ARMA
      Por OmegaZero
      Olá gostaria que alguém me ajudasse com uma "scripting" não sei se é pela mesma, seria o seguinte uma determinada arma teria a chance de dar double hit e não sei oque fazer alguem poderia ajudar?

      OBS:não sei se é o local correto se não for mova, desculpe
    • Madarasenju
      (Resolvido)[PEDIDO] Npc(de enfeite que não faz nada, só anda)
      Por Madarasenju
      Olá galera do Tibia King, queria por uns npc's no meu server que não tem função de trade nem nada do tipo, queria que eles só andassem como enfeite, Rep+ Pra quem me ajudar... grato desde já.
    • SilenceRoot
      (Resolvido)Magia de teleporte
      Por SilenceRoot
      A magia é assim o você usa a a magia e ela ficará ativado por 10 segundos, até que o inimigo lance a primeira magia ou todos de uma vez, quando ele lançar a primeira magia, ele não lhe acertará ou seja esquivando dela, e logo em seguida será teletransportado aleatoriamente ao redor do inimigo que usou.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito