suporte scripts ajudem a tirar o lvl dos pokemons

[wevertonvrb 25]

gente eu tou com uma base de pokemon, tou mechendo nela a uns 2 meses
ela é open source  e ja tou um pouco adiantado porem os pokemons tem lvl
eu quero que eles não tenha lvl ou seja o lvl deles sera igual o pxg, cyan e mts outros 
então eu vou postar 4 level system o primeiro com lvl o segundo sem
os 2 primeiros são do mesmo servidor (não o meu)
porem um tem lvl e outro não depois 
o terceiro também não tem lvl e o quarto tem, o quarto é o que eu quero tirar o lvl o resto vai servir de exemplo caso precisem

 

PRIMEIRO ---com lvl--- mesmo servidor do segundo
level system.lua

Spoiler

function getPokemonStatus(name, multiplier)
    local a = pokes[name]
    local m = 1
    if not a then return false end
    if not a.offense then return false end
    if multiplier then m = multiplier end
local ret = {}
    ret.off = a.offense * m
    ret.offense = ret.off

    ret.def = a.defense * m
    ret.defense = ret.def

    ret.agi = a.agility * m
    ret.agility = ret.agi

    ret.spatk = a.specialattack * m
    ret.specialattack = ret.spatk

    ret.vit = a.vitality * m
    ret.vitality = ret.vit
return ret
end

function getPokemonXMLOutfit(name)
local johto = false
for i = 209, 308 do       --alterado v2.6
  if oldpokedex[1] and oldpokedex[1] == name then
     johto = true
  end
end
    if isShinyName(name) then
       a = "data/monster/pokes/Shiny/"..name..".xml"
    elseif johto then
       a = "data/monster/pokes/geracao 2/"..name..".xml"    --edited pra melhorar a pasta monster
    else
       a = "data/monster/pokes/geracao 1/"..name..".xml"
    end 
    local b = io.open(a, "a+")
    local c = b:read("*all")
    b:close()
    local d, e = c:find('look type="(.-)"')
    c = string.sub(c, d + 11, e - 1)
return tonumber©
end

function doEvolutionOutfit(cid, oldout, outfit)
    if not isCreature(cid) then return true end
        if getCreatureOutfit(cid).lookType == oldout then
            doSetCreatureOutfit(cid, {lookType = outfit}, -1)
        else
            doSetCreatureOutfit(cid, {lookType = oldout}, -1)
        end
end

function doStartEvolution(cid, evolution, seconds)
    if not isCreature(cid) then return true end
    local a = getPlayerStorageValue(cid, 1007)
    local b = getCreatureHealth(cid) / getCreatureMaxHealth(cid)
    local d = getThingPos(cid)
    local e = getCreatureMaster(cid)
    if getHappinessRate(cid) < 1 then return true end
    local f = getCreatureOutfit(cid).lookType
    local g = getItemAttribute(getPlayerSlotItem(e, 8).uid, "nick") or getCreatureName(cid)
    local h = getPokemonXMLOutfit(evolution)
    doItemSetAttribute(getPlayerSlotItem(e, 8).uid, "hp", b)
    doCreatureSay(e, "What? My "..g.." is evolving!", TALKTYPE_SAY)
    doSummonMonster(e, "Evolution")
    doReturnPokemon(e, cid, getPlayerSlotItem(e, 8), 0, true)
    local evo = getCreatureSummons(e)[1]
    doEvolutionOutfit(evo, h, f)
    doCreatureSetHideHealth(evo, true)
    doCreatureSetLookDir(evo, 2)
    setPlayerStorageValue(evo, 1007, g)
    doTeleportThing(evo, d, false)
    addEvent(sendSSJEffect, 250, evo)
    doSendAnimatedText(getThingPos(evo), "EVOLUTION", COLOR_GRASS)
    doSendEvolutionEffect(evo, getThingPos(evo), evolution, 20, false, false, f, h)
end

function doSendEvolutionEffect(cid, pos, evolution, turn, ssj, evolve, f, h)
    if not isCreature(cid) then
        doSendAnimatedText(pos, "CANCEL", 215)
    return true end
    if evolve then
        doEvolvePokemon(getCreatureMaster(cid), {uid = cid}, evolution, 0, 0)
    return true
    end
    doSendMagicEffect(pos, 18)
        if ssj then
            sendSSJEffect(evo)
        end
    doEvolutionOutfit(cid, f, h)
    addEvent(doSendEvolutionEffect, math.pow(1900, turn/20), cid, getThingPos(cid), evolution, turn - 1, turn == 19, turn == 2, f, h)
end

function sendSSJEffect(cid)
    if not isCreature(cid) then return true end
    local pos1 = getThingPos(cid)
    local pos2 = getThingPos(cid)
    pos2.x = pos2.x + math.random(-1, 1)
    pos2.y = pos2.y - math.random(1, 2)
    doSendDistanceShoot(pos1, pos2, 37)
    addEvent(sendSSJEffect, 45, cid)
end

function sendFinishEvolutionEffect(cid, alternate)
    if not isCreature(cid) then return true end
    local pos1 = getThingPos(cid)

    if alternate then
        local pos = {
        [1] = {-2, 0},
        [2] = {-1, -1},
        [3] = {0, -2},
        [4] = {1, -1},
        [5] = {2, 0},
        [6] = {1, 1},
        [7] = {0, 2},
        [8] = {-1, 1}}
        for a = 1, 8 do
            local pos2 = getThingPos(cid)
            pos2.x = pos2.x + pos[a][1]
            pos2.y = pos2.y + pos[a][2]
            local pos = getThingPos(cid)
            doSendDistanceShoot(pos2, pos, 37)
            addEvent(doSendDistanceShoot, 300, pos, pos2, 37)
        end
    else
        for a = 0, 3 do
            doSendDistanceShoot(pos1, getPosByDir(pos1, a), 37)
        end
        for a = 4, 7 do
            addEvent(doSendDistanceShoot, 600, pos1, getPosByDir(pos1, a), 37)
        end
    end
end

function doEvolvePokemon(cid, item2, theevo, stone1, stone2)

    if not isCreature(cid) then return true end

    if not pokes[theevo] or not pokes[theevo].offense then
    doReturnPokemon(cid, item2.uid, getPlayerSlotItem(cid, 8), pokeballs[getPokeballType(getPlayerSlotItem(cid, 8).itemid)].effect, false, true)
    return true
    end

    local owner = getCreatureMaster(item2.uid)
    local pokeball = getPlayerSlotItem(cid,
    local description = "Contains a "..theevo.."."
    local pct = getCreatureHealth(item2.uid) / getCreatureMaxHealth(item2.uid)

        doItemSetAttribute(pokeball.uid, "hp", pct)

        doItemSetAttribute(pokeball.uid, "poke", theevo)
        doItemSetAttribute(pokeball.uid, "description", "Contains a "..theevo..".")

        doPlayerSendTextMessage(cid, 27, "Congratulations! Your "..getPokeName(item2.uid).." evolved into a "..theevo.."!")        

        doSendMagicEffect(getThingPos(item2.uid), 18)
        doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos[theevo])
        doSendMagicEffect(getThingPos(cid), 173)

        local oldpos = getThingPos(item2.uid)
        local oldlod = getCreatureLookDir(item2.uid)
        local oldlvl = getPokemonLevel(item2.uid)
        doRemoveCreature(item2.uid)

        doSummonMonster(cid, theevo)
        local pk = getCreatureSummons(cid)[1]

        doTeleportThing(pk, oldpos, false)
        doCreatureSetLookDir(pk, oldlod)

        sendFinishEvolutionEffect(pk, true)
        addEvent(sendFinishEvolutionEffect, 550, pk, true)
        addEvent(sendFinishEvolutionEffect, 1050, pk)
        
        doPlayerRemoveItem(cid, stone1, 1)
        doPlayerRemoveItem(cid, stone2, 1)

        doAddPokemonInOwnList(cid, theevo)

        local status = getPokemonStatus(getCreatureName(pk))

        local off = status.off * 7.5
        local def = status.def * 7.5
        local agi = status.agi * 7.5
        local spatk = status.spatk * 7.5
        local vit = status.vit * 7

        doItemSetAttribute(pokeball.uid, "offense", getItemAttribute(pokeball.uid, "offense") + off)
        doItemSetAttribute(pokeball.uid, "defense", getItemAttribute(pokeball.uid, "defense") + def)
        doItemSetAttribute(pokeball.uid, "speed", getItemAttribute(pokeball.uid, "speed") + agi)
        doItemSetAttribute(pokeball.uid, "specialattack", getItemAttribute(pokeball.uid, "specialattack") + spatk)
        doItemSetAttribute(pokeball.uid, "vitality", getItemAttribute(pokeball.uid, "vitality") + vit)

        doPlayerSendTextMessage(cid, 27, "Evolution bonus: • Offense: +"..doMathDecimal(off).."  • Defense: +"..doMathDecimal(def).."  • Spc. Atk: +"..doMathDecimal(spatk).."  • Agility: +"..doMathDecimal(agi).."  • Vitality: +"..doMathDecimal(vit).."")

        local happy = getItemAttribute(pokeball.uid, "happy")

        doItemSetAttribute(pokeball.uid, "happy", happy + happyGainedOnEvolution)

        if happy + happyGainedOnEvolution > 255 then
            doItemSetAttribute(pokeball.uid, "happy", 255)
        end

        adjustStatus(pk, pokeball.uid, true, false)

        if useKpdoDlls then
            doUpdateMoves(cid)
        end
end

function givePokemonExp(cid, item, expe, pct, rarecandy)

    if expe <= 0 or not isCreature(cid) then return true end

    local leveltable = getPokemonExperienceTable(getPokeballName(item.uid, true))

        if getItemAttribute(item.uid, "exp") + expe > leveltable[100] then
            givePokemonExp(cid, item, leveltable[100] - getItemAttribute(item.uid, "exp"))
        return true
        end

    doItemSetAttribute(item.uid, "exp", getItemAttribute(item.uid, "exp") + expe)
    doItemSetAttribute(item.uid, "happy", getItemAttribute(item.uid, "happy") + 1)
    doItemSetAttribute(item.uid, "nextlevelexp", getItemAttribute(item.uid, "nextlevelexp") - expe)

    if pct then
        doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item.uid).." has received "..expe.." experience points ("..pct.."%).")
    else
        if getItemAttribute(item.uid, "nextlevelexp") > 0 then
            doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item.uid).." ["..getItemAttribute(item.uid, "level").."] has received "..expe.." experience points ("..getItemAttribute(item.uid, "nextlevelexp").." to next level).")
        else
            doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item.uid).." ["..getItemAttribute(item.uid, "level").."] has received "..expe.." experience points and has leveled up!")
        end
    end

    if isBeingUsed(item.itemid) then
    doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), expe, 215)
    end

    if getItemAttribute(item.uid, "nextlevelexp") <= 0 then
        local summon = getCreatureSummons(cid)[1]
    
        if not isCreature(summon) then return true end

        doSendFlareEffect(getThingPos(summon))
        doSendAnimatedText(getThingPos(summon), "Level up!", 215)

        adjustPokemonLevel(item.uid, cid, item.itemid)
        doCreatureAddHealth(summon, getCreatureMaxHealth(summon))
    end
end

function givePokemonExpInBp(cid, item, expe, ballid, pct, hidemessage)

    if expe <= 0 or not isCreature(cid) then return true end

    local leveltable = getPokemonExperienceTable(getPokeballName(item, true))

    if getItemAttribute(item, "exp") + expe > leveltable[100] then
        givePokemonExpInBp(cid, item, leveltable[100] - getItemAttribute(item, "exp"), ballid)
    return true
    end

    doItemSetAttribute(item, "exp", getItemAttribute(item, "exp") + expe)
    doItemSetAttribute(item, "happy", getItemAttribute(item, "happy") + 1)
    doItemSetAttribute(item, "nextlevelexp", getItemAttribute(item, "nextlevelexp") - expe)

    if not hidemessage then
        if pct then
            doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item).." has received "..expe.." experience points ("..pct.."%).")
        else
            if getItemAttribute(item, "nextlevelexp") > 0 then
                doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item).." ["..getItemAttribute(item, "level").."] has received "..expe.." experience points inside his pokeball ("..getItemAttribute(item, "nextlevelexp").." to next level).")
            else
                doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item).." ["..getItemAttribute(item, "level").."] has received "..expe.." experience points and has leveled up inside his pokeball.")
                adjustPokemonLevel(item, cid, ballid)
            end
        end
    end
end

function doMathDecimal(number, casas)

    if math.floor(number) == number then return number end

    local c = casas and casas + 1 or 3

    for a = 0, 10 do
        if math.floor(number) < math.pow(10, a) then
            local str = string.sub(""..number.."", 1, a + c)
            return tonumber(str)    
        end
    end

return number
end

function adjustPokemonLevel(item, cid, id, rarecandy)

    if not isCreature(cid) then return true end

    local exp = getItemAttribute(item, "exp")
    local level = getItemAttribute(item, "level")
    local leveltable = getPokemonExperienceTable(getPokeballName(item, true))
    local newlevel = 1

    for x = 1, 100 do
        if exp >= leveltable[x] and exp < leveltable[x+1] then
            newlevel = x
        end
    end

    if newlevel <= 1 then return true end

    local levelsup = (newlevel - level)
    local pokemon = getItemAttribute(item, "poke")
    local happy = getItemAttribute(item, "happy")
    local rate = happy / 100
    local newhappiness = happy

    if happy >= 250 then
        newhappiness = 255
    elseif happy >= 230 then
        newhappiness = happy + 4
    elseif happy >= 210 then
        newhappiness = happy + 6
    elseif happy >= 180 then
        newhappiness = happy + 8
    elseif happy >= 140 then
        newhappiness = happy + 10
    elseif happy >= 110 then
        newhappiness = happy + 12
    else
        newhappiness = happy + 15
    end

    local status = getPokemonStatus(pokemon)

    local off = status.off * rate * levelsup
    local def = status.def * rate * levelsup
    local agi = status.agi * rate * levelsup
    local spatk = status.spatk * rate * levelsup
    local vit = status.vit * rate * levelsup

    doItemSetAttribute(item, "level", newlevel)

    if not rarecandy then
        doItemSetAttribute(item, "happy", newhappiness)
    end

    local nextexp = leveltable[newlevel + 1] - exp
    doItemSetAttribute(item, "nextlevelexp", nextexp)

    doItemSetAttribute(item, "offense", getItemAttribute(item, "offense") + off)
    doItemSetAttribute(item, "defense", getItemAttribute(item, "defense") + def)
    doItemSetAttribute(item, "speed", getItemAttribute(item, "speed") + agi)
    doItemSetAttribute(item, "specialattack", getItemAttribute(item, "specialattack") + spatk)
    doItemSetAttribute(item, "vitality", getItemAttribute(item, "vitality") + vit)

    if newlevel > getPlayerLevel(cid) + pokemonMaxLevelAbovePlayer then
        addEvent(doPlayerSendTextMessage, 30, cid, 18, "Warning: Your "..getPokeballName(item).."'s ["..newlevel.."] level is much higher than yours, so you will not be able to call him to battles.")
    end

    if isCreature(cid) and id >= 1 and isBeingUsed(id) then
        adjustStatus(getCreatureSummons(cid)[1], item, false, true)
        doPlayerSendTextMessage(cid, 27, "• Level: "..newlevel.." (+"..levelsup..")  • Offense: +"..doMathDecimal(off).."  • Defense: +"..doMathDecimal(def).."  • Spc. Atk: +"..doMathDecimal(spatk).."  • Agility: +"..doMathDecimal(agi).."  • Vitality: +"..doMathDecimal(vit).."")

        if happy < minHappyToEvolve then return true end

        if pokemonsCanEvolveByLevel then

            local summon = getCreatureSummons(cid)[1]

            local reqlevel = poevo[getCreatureName(summon)] and poevo[getCreatureName(summon)].level or -1
            local level = getItemAttribute(item, "level")
            local evolution = "none"
            local name = getCreatureName(summon)

            if name == "Tyrogue" and level >= 20 then
                if getOffense(summon) == getDefense(summon) then
                    evolution = "Hitmontop"
                elseif getOffense(summon) > getDefense(summon) then
                    evolution = "Hitmonlee"
                else
                    evolution = "Hitmonchan"
                end
            elseif name == "Eevee" then
                if happy >= maxHappyToEvolve then
                    if isDay() then
                        evolution = "Espeon"
                    else
                        evolution = "Umbreon"
                    end
                end
            elseif name == "Slowpoke" and level >= 28 then
                evolution = "Slowbro"
            elseif name == "Poliwhirl" and level >= 36 then
                evolution = "Poliwrath"
            elseif reqlevel > 4 and level >= reqlevel then
                evolution = poevo[getCreatureName(summon)].evolution
            elseif reqlevel == 2 and happy >= maxHappyToEvolve then
                evolution = poevo[getCreatureName(summon)] and poevo[getCreatureName(summon)].evolution or "none"
            end

            if evolution ~= "none" then
                doStartEvolution(summon, evolution, 4)
            end
        end
    end
end

function doAdjustWithDelay(cid, pk, health, vit, status)
if isCreature(cid) then                                   --alterado v2.5
   if not isCreature(cid) then return true end
   adjustStatus(pk, getPlayerSlotItem(cid, 8).uid, health, vir, status)
end
end

function adjustStatus(pk, item, health, vite, conditions)

    if not isCreature(pk) then return true end

    local bonusoffense = getItemAttribute(item, boffense) or 0
    local bonusdefense = getItemAttribute(item, bdefense) or 0
    local bonusagility = getItemAttribute(item, bagility) or 0
    local bonussattack = getItemAttribute(item, bsattack) or 0

    setPlayerStorageValue(pk, 1000, getItemAttribute(item, "level"))
    setPlayerStorageValue(pk, 1001, getItemAttribute(item, "offense") + bonusoffense)
    setPlayerStorageValue(pk, 1002, getItemAttribute(item, "defense") + bonusdefense)
    setPlayerStorageValue(pk, 1003, getItemAttribute(item, "speed") + bonusagility)
    setPlayerStorageValue(pk, 1005, getItemAttribute(item, "specialattack") + bonussattack)

    local gender = getItemAttribute(item, "gender") and getItemAttribute(item, "gender") or 0
    doCreatureSetSkullType(pk, gender)

    if vite == true then
        local pct = getCreatureHealth(pk) / getCreatureMaxHealth(pk)
        local vit = getItemAttribute(item, "vitality") - getPlayerStorageValue(pk, 1004)
        setCreatureMaxHealth(pk, getCreatureMaxHealth(pk) + ( vit * HPperVIT ))
        doCreatureAddHealth(pk, pct * vit * HPperVIT)
    end

    setPlayerStorageValue(pk, 1004, getItemAttribute(item, "vitality"))

    doRegainSpeed(pk)

    local nick = getItemAttribute(item, "poke")
    
    if string.find(tostring(nick), "Shiny") then
       nick = tostring(nick):match("Shiny (.*)")
    end

    if getItemAttribute(item, "nick") then
        nick = getItemAttribute(item, "nick")
    end

    setPlayerStorageValue(pk, 1007, nick)

    local boostlevel = getItemAttribute(item, "boost") or 0
    local boostshow = hideBoost and "]" or " + "..boostlevel.."]"
    local lvlstr = ""

    if showBoostSeparated then
        boostshow = hideBoost and "]" or "] [+"..boostlevel.."]"
    end

    if hideSummonsLevel then
        if not hideBoost then
            nick = nick.." [+"..boostlevel.."]"
        end
    else
        nick = nick.." ["..getItemAttribute(item, "level")..""..boostshow..""
    end

    doCreatureSetNick(pk, nick)

    if not getItemAttribute(item, "happy") then
        doItemSetAttribute(item, "happy", 120)
    end

    if not getItemAttribute(item, "hunger") then
        doItemSetAttribute(item, "hunger", 5)
    end

    local happy = getItemAttribute(item, "happy")
        if happy < 0 then
            happy = 1
        end
    setPlayerStorageValue(pk, 1008, happy)

    local hunger = getItemAttribute(item, "hunger")
    setPlayerStorageValue(pk, 1009, hunger)

    if health == true then
        local mh = getCreatureMaxHealth(pk) + HPperVIT * getVitality(pk)
        local rd = 1 - (tonumber(getItemAttribute(item, "hp")))
        setCreatureMaxHealth(pk, mh)
        doCreatureAddHealth(pk, getCreatureMaxHealth(pk))
        doCreatureAddHealth(pk, -(getCreatureMaxHealth(pk) * rd))
    end

    if isSummon(pk) and conditions then                        --alterado v2.5 daki pra baixo!!
        local burn = getItemAttribute(item, "burn")   
        if burn and burn >= 0 then
           local ret = {id = pk, cd = burn, check = false, damage = getItemAttribute(item, "burndmg"), cond = "Burn"}
           addEvent(doCondition2, 3500, ret)
        end

        local poison = getItemAttribute(item, "poison")
        if poison and poison >= 0 then
           local ret = {id = pk, cd = poison, check = false, damage = getItemAttribute(item, "poisondmg"), cond = "Poison"}
           addEvent(doCondition2, 1500, ret)
        end

        local confuse = getItemAttribute(item, "confuse")
        if confuse and confuse >= 0 then
           local ret = {id = pk, cd = confuse, check = false, cond = "Confusion"}
           addEvent(doCondition2, 1200, ret)                                                --alterado v2.5
        end

        local sleep = getItemAttribute(item, "sleep")
        if sleep and sleep >= 0 then
           local ret = {id = pk, cd = sleep, check = false, first = true, cond = "Sleep"}
           doCondition2(ret)
        end
        
        local miss = getItemAttribute(item, "miss")     
        if miss and miss >= 0 then      
          local ret = {id = pk, cd = miss, eff = getItemAttribute(item, "missEff"), check = false, spell = getItemAttribute(item, "missSpell"), cond = "Miss"}
          doCondition2(ret)
        end
        
        local fear = getItemAttribute(item, "fear")
        if fear and fear >= 0 then
           local ret = {id = pk, cd = fear, check = false, skill = getItemAttribute(item, "fearSkill"), cond = "Fear"}
           doCondition2(ret)
        end
        
        local silence = getItemAttribute(item, "silence")
        if silence and silence >= 0 then      
           local ret = {id = pk, cd = silence, eff = getItemAttribute(item, "silenceEff"), check = false, cond = "Silence"}
           doCondition2(ret)
        end                                     
        
        local stun = getItemAttribute(item, "stun")
        if stun and stun >= 0 then
           local ret = {id = pk, cd = stun, eff = getItemAttribute(item, "stunEff"), check = false, spell = getItemAttribute(item, "stunSpell"), cond = "Stun"}
           doCondition2(ret)
        end 
                                                       
        local paralyze = getItemAttribute(item, "paralyze")
        if paralyze and paralyze >= 0 then
           local ret = {id = pk, cd = paralyze, eff = getItemAttribute(item, "paralyzeEff"), check = false, first = true, cond = "Paralyze"}
           doCondition2(ret)
        end  
                                                     
        local slow = getItemAttribute(item, "slow")
        if slow and slow >= 0 then
           local ret = {id = pk, cd = slow, eff = getItemAttribute(item, "slowEff"), check = false, first = true, cond = "Slow"}
           doCondition2(ret)
        end                                              
        
        local leech = getItemAttribute(item, "leech")
        if leech and leech >= 0 then
           local ret = {id = pk, cd = leech, attacker = 0, check = false, damage = getItemAttribute(item, "leechdmg"), cond = "Leech"}
           doCondition2(ret)
        end                               
        
        for i = 1, 3 do
            local buff = getItemAttribute(item, "Buff"..i)
            if buff and buff >= 0 then
               local ret = {id = pk, cd = buff, eff = getItemAttribute(item, "Buff"..i.."eff"), check = false, 
               buff = getItemAttribute(item, "Buff"..i.."skill"), first = true, attr = "Buff"..i}
               doCondition2(ret)
            end
        end
               
    end
    
    if getItemAttribute(item, "boost") and getItemAttribute(item, "boost") == 50 and getItemAttribute(item, "aura") then
       sendAuraEffect(pk, auraSyst[getItemAttribute(item, "aura")])        --edited aura system
    end
    
    if getPlayerStorageValue(getCreatureMaster(pk), 6598754) >= 1 then
        setPlayerStorageValue(pk, 6598754, 1)                               --edited pvp system
    elseif getPlayerStorageValue(getCreatureMaster(pk), 6598755) >= 1 then
        setPlayerStorageValue(pk, 6598755, 1)
    end

return true
end

function setWildPokemonLevel(cid, optionalLevel, optionalStatus, optionalNick, optionalExtraExp)

    if not isCreature(cid) then return true end
    if not pokes[getCreatureName(cid)] then return true end  --alterado v2.6

    local levelRange = 0
    local off = 0
    local def = 0
    local agi = 0
    local spatk = 0
    local vit = 0
    local this = getCreatureName(cid)
    local ee = 1

    if optionalExtraExp then
        ee = optionalExtraExp
    end

    if optionalLevel and tonumber(optionalLevel) >= 1 then
            if optionalLevel <= 100 then
                levelRange = optionalLevel
            else
                levelRange = 100
            end
    elseif getCreatureOutfit(cid).lookHead and getCreatureOutfit(cid).lookBody and getCreatureOutfit(cid).lookHead <= getCreatureOutfit(cid).lookBody then
        levelRange = math.random(getCreatureOutfit(cid).lookHead, getCreatureOutfit(cid).lookBody)
    else
        levelRange = math.random(20, 30)
    end

    local status = getPokemonStatus(this)
        if status then
            off = status.off
            def = status.def
            agi = status.agi
            vit = status.vit
            spatk = status.spatk
        end

    setPlayerStorageValue(cid, 1000, levelRange)

    if optionalStatus and optionalStatus.off then
        setPlayerStorageValue(cid, 1001, optionalStatus.offense)
        setPlayerStorageValue(cid, 1002, optionalStatus.defense)
        setPlayerStorageValue(cid, 1003, optionalStatus.agility)
        setPlayerStorageValue(cid, 1004, optionalStatus.vitality)
        setPlayerStorageValue(cid, 1005, optionalStatus.specialattack)
        setPlayerStorageValue(cid, 1011, optionalStatus.offense)
        setPlayerStorageValue(cid, 1012, optionalStatus.defense)
        setPlayerStorageValue(cid, 1013, optionalStatus.agility)
        setPlayerStorageValue(cid, 1014, optionalStatus.vitality)
        setPlayerStorageValue(cid, 1015, optionalStatus.specialattack)
    else
        setPlayerStorageValue(cid, 1001, 5 + math.random(off * levelRange * 0.9, off * levelRange * 1.8))
        setPlayerStorageValue(cid, 1002, 5 + math.random(def * levelRange * 0.9, def * levelRange * 1.8))
        setPlayerStorageValue(cid, 1003, math.random(agi * levelRange * 0.9, agi * levelRange * 1.8))
        setPlayerStorageValue(cid, 1004, math.random(vit * levelRange * 0.9, vit * levelRange * 1.8))
        setPlayerStorageValue(cid, 1005, 5 + math.random(spatk * levelRange * 0.9, spatk * levelRange * 1.8))
        setPlayerStorageValue(cid, 1011, getPlayerStorageValue(cid, 1001))
        setPlayerStorageValue(cid, 1012, getPlayerStorageValue(cid, 1002))
        setPlayerStorageValue(cid, 1013, getPlayerStorageValue(cid, 1003))
        setPlayerStorageValue(cid, 1014, getPlayerStorageValue(cid, 1004))
        setPlayerStorageValue(cid, 1015, getPlayerStorageValue(cid, 1005))
    end

    doRegainSpeed(cid)

    setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + getPlayerStorageValue(cid, 1004) * HPperVIT * vitReductionForWild)
    doCreatureAddHealth(cid, getCreatureMaxHealth(cid))
    
    if pokes[getCreatureName(cid)].exp then
        --getMonsterInfo(getCreatureName(cid)).experience
        local exp = (50 + pokes[getCreatureName(cid)].exp) * baseExpRate + pokes[getCreatureName(cid)].vitality * levelRange * pokemonExpPerLevelRate
        setPlayerStorageValue(cid, 1006, exp * generalExpRate * ee)
        if getPlayerStorageValue(cid, 22546) == 1 then
          setPlayerStorageValue(cid, 1006, 750)
          doSetCreatureDropLoot(cid, false)         --edited golden arena
       end  
    end

    local wildshow = wildBeforeNames and "Wild " or ""
    if optionalNick then
        if hideWildsLevel then
            doCreatureSetNick(cid, optionalNick)
        else
            doCreatureSetNick(cid, optionalNick.." ["..getWildPokemonLevel(cid).."]")
        end
    else
        if hideWildsLevel then
            doCreatureSetNick(cid, ""..wildshow..""..getCreatureName(cid).."")
        else
            doCreatureSetNick(cid, ""..wildshow..""..getCreatureName(cid).." ["..getWildPokemonLevel(cid).."]")
        end
    end
end

function getOffense(cid)
    if not isCreature(cid) then return 0 end

    --[[if getPlayerStorageValue(cid, 3894) >= 1 then
        return tonumber(getPlayerStorageValue(cid, 1001)) / 2
    end ]]

return tonumber(getPlayerStorageValue(cid, 1001))
end

function getDefense(cid)
    if not isCreature(cid) then return 0 end

--[[    if getPlayerStorageValue(cid, 3894) >= 1 then
        return tonumber(getPlayerStorageValue(cid, 1002)) / 2
    end  ]]

return tonumber(getPlayerStorageValue(cid, 1002))
end

function getSpeed(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1003))
end

function getVitality(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1004))
end

function getSpecialAttack(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1005))
end

function getHappiness(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1008))
end

function getSpecialDefense(cid)
    if not isCreature(cid) then return 0 end
return getSpecialAttack(cid) * 0.85 + getDefense(cid) * 0.2
end

function getWildPokemonExp(cid)
return getPlayerStorageValue(cid, 1006)
end

function getWildPokemonLevel(cid)
return getPlayerStorageValue(cid, 1000)
end

function getLevel(cid)
    if isSummon(cid) then
    return getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "level")
    end
return getPlayerStorageValue(cid, 1000)
end

function getPokeName(cid)
    if not isSummon(cid) then return getCreatureName(cid) end
    if getCreatureName(cid) == "Evolution" then return getPlayerStorageValue(cid, 1007) end
local item = getPlayerSlotItem(getCreatureMaster(cid),
    if getItemAttribute(item.uid, "nick") then
    return getItemAttribute(item.uid, "nick")
    end
return getCreatureName(cid)
end

function getPokeballName(item, truename)
if not truename and getItemAttribute(item, "nick") then
return getItemAttribute(item, "nick")
end
return getItemAttribute(item, "poke")
end

function getPokemonName(cid)
return getCreatureName(cid)
end

function getMasterLevel(poke)
    if not isSummon(poke) then return 0 end
return getPlayerLevel(getCreatureMaster(poke)) --alterado v2.5
end

function getPokemonBoost(poke)
    if not isSummon(poke) then return 0 end       --alterado v2.5
return getItemAttribute(getPlayerSlotItem(getCreatureMaster(poke), 8).uid, "boost") or 0
end

function getPokemonLevelByName(name)
if tostring(name) then                       --alterado v2.5
   return pokes[name].level
end
return 0
end

function getPokemonLevel(cid)
    if not isCreature(cid) then return 0 end
return getPlayerStorageValue(cid, 1000)
end

function getPokemonGender(cid)
return getCreatureSkullType(cid)
end

SEGUNDO ---sem lvl--- mesmo servidor do primeiro---
LVL SYSTEM.LUA

Spoiler

function adjustWildPoke(cid, optionalLevel)
if isMonster(cid) and pokes[getCreatureName(cid)] then

    local level = 0
    local b = getCreatureOutfit(cid).lookBody
    local lvl = getPokemonLevel(cid)
                                                 --alterado v1.4
    if optionalLevel then
       level = optionalLevel
    elseif b > lvl then
       level = b
    else
       level = lvl
    end
    
    setPlayerStorageValue(cid, 1001, pokes[getCreatureName(cid)].offense * level)
    setPlayerStorageValue(cid, 1002, pokes[getCreatureName(cid)].defense)
    setPlayerStorageValue(cid, 1003, pokes[getCreatureName(cid)].agility)                                  
    setPlayerStorageValue(cid, 1004, pokes[getCreatureName(cid)].vitality * level)
    setPlayerStorageValue(cid, 1005, pokes[getCreatureName(cid)].specialattack * level)
    
    doRegainSpeed(cid)         --alterado!
    setCreatureMaxHealth(cid, (getVitality(cid) * HPperVITwild)) 
    doCreatureAddHealth(cid,  getCreatureMaxHealth(cid))
   
    if pokes[getCreatureName(cid)].exp then
       local exp = pokes[getCreatureName(cid)].exp * baseExpRate + pokes[getCreatureName(cid)].vitality * pokemonExpPerLevelRate
       setPlayerStorageValue(cid, 1006, (exp * generalExpRate/2)*10)
       if getPlayerStorageValue(cid, 22546) == 1 then
          setPlayerStorageValue(cid, 1006, 750)
          doSetCreatureDropLoot(cid, false)      
       end   
    end
end
end       

function getPokemonXMLOutfit(name)
local johto = false
for i = 209, 308 do       --alterado v1.6
  if oldpokedex[1] and oldpokedex[1] == name then
     johto = true
  end
end
    if isShinyName(name) then
       a = "data/monster/pokes/Shiny/"..name..".xml"
    elseif johto then
       a = "data/monster/pokes/geracao 2/"..name..".xml"    --edited pra melhorar a pasta monster
    else
       a = "data/monster/pokes/geracao 1/"..name..".xml"
    end 
    local b = io.open(a, "a+")
    local c = b:read("*all")
    b:close()
    local d, e = c:find('look type="(.-)"')
    c = string.sub(c, d + 11, e - 1)
return tonumber©
end

function doEvolutionOutfit(cid, oldout, outfit)
    if not isCreature(cid) then return true end
        if getCreatureOutfit(cid).lookType == oldout then
            doSetCreatureOutfit(cid, {lookType = outfit}, -1)
        else
            doSetCreatureOutfit(cid, {lookType = oldout}, -1)
        end
end

function doSendEvolutionEffect(cid, pos, evolution, turn, ssj, evolve, f, h)
    if not isCreature(cid) then
        doSendAnimatedText(pos, "CANCEL", 215)
    return true end
    if evolve then
        doEvolvePokemon(getCreatureMaster(cid), {uid = cid}, evolution, 0, 0)
    return true
    end
    doSendMagicEffect(pos, 18)
        if ssj then
            sendSSJEffect(evo)
        end
    doEvolutionOutfit(cid, f, h)
    addEvent(doSendEvolutionEffect, math.pow(1900, turn/20), cid, getThingPos(cid), evolution, turn - 1, turn == 19, turn == 2, f, h)
end

function sendSSJEffect(cid)
    if not isCreature(cid) then return true end
    local pos1 = getThingPos(cid)
    local pos2 = getThingPos(cid)
    pos2.x = pos2.x + math.random(-1, 1)
    pos2.y = pos2.y - math.random(1, 2)
    doSendDistanceShoot(pos1, pos2, 37)
    addEvent(sendSSJEffect, 45, cid)
end

function sendFinishEvolutionEffect(cid, alternate)
    if not isCreature(cid) then return true end
    local pos1 = getThingPos(cid)

    if alternate then
        local pos = {
        [1] = {-2, 0},
        [2] = {-1, -1},
        [3] = {0, -2},
        [4] = {1, -1},
        [5] = {2, 0},
        [6] = {1, 1},
        [7] = {0, 2},
        [8] = {-1, 1}}
        for a = 1, 8 do
            local pos2 = getThingPos(cid)
            pos2.x = pos2.x + pos[a][1]
            pos2.y = pos2.y + pos[a][2]
            local pos = getThingPos(cid)
            doSendDistanceShoot(pos2, pos, 37)
            addEvent(doSendDistanceShoot, 300, pos, pos2, 37)
        end
    else
        for a = 0, 3 do
            doSendDistanceShoot(pos1, getPosByDir(pos1, a), 37)
        end
        for a = 4, 7 do
            addEvent(doSendDistanceShoot, 600, pos1, getPosByDir(pos1, a), 37)
        end
    end
end

function doEvolvePokemon(cid, item2, theevo, stone1, stone2)

    if not isCreature(cid) then return true end

    if not pokes[theevo] or not pokes[theevo].offense then
    doReturnPokemon(cid, item2.uid, getPlayerSlotItem(cid, 8), pokeballs[getPokeballType(getPlayerSlotItem(cid, 8).itemid)].effect, false, true)
    return true
    end

    local owner = getCreatureMaster(item2.uid)
    local pokeball = getPlayerSlotItem(cid,
    local description = "Contains a "..theevo.."."
    local pct = getCreatureHealth(item2.uid) / getCreatureMaxHealth(item2.uid)

        doItemSetAttribute(pokeball.uid, "hp", pct)

        doItemSetAttribute(pokeball.uid, "poke", theevo)
        doItemSetAttribute(pokeball.uid, "description", "Contains a "..theevo..".")

        doPlayerSendTextMessage(cid, 27, "Congratulations! Your "..getPokeName(item2.uid).." evolved into a "..theevo.."!")        

        doSendMagicEffect(getThingPos(item2.uid), 18)
        doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos[theevo])
        doSendMagicEffect(getThingPos(cid), 173)

        local oldpos = getThingPos(item2.uid)
        local oldlod = getCreatureLookDir(item2.uid)
        doRemoveCreature(item2.uid)

        doSummonMonster(cid, theevo)
        local pk = getCreatureSummons(cid)[1]

        doTeleportThing(pk, oldpos, false)
        doCreatureSetLookDir(pk, oldlod)

        sendFinishEvolutionEffect(pk, true)
        addEvent(sendFinishEvolutionEffect, 550, pk, true)
        addEvent(sendFinishEvolutionEffect, 1050, pk)
        
        doPlayerRemoveItem(cid, stone1, 1)
        doPlayerRemoveItem(cid, stone2, 1)

        doAddPokemonInOwnList(cid, theevo)

        local happy = getItemAttribute(pokeball.uid, "happy")

        doItemSetAttribute(pokeball.uid, "happy", happy + happyGainedOnEvolution)

        if happy + happyGainedOnEvolution > 255 then
            doItemSetAttribute(pokeball.uid, "happy", 255)
        end

        adjustStatus(pk, pokeball.uid, true, false)

        if useKpdoDlls then
            doUpdateMoves(cid)
        end
end

function doMathDecimal(number, casas)

    if math.floor(number) == number then return number end

    local c = casas and casas + 1 or 3

    for a = 0, 10 do
        if math.floor(number) < math.pow(10, a) then
            local str = string.sub(""..number.."", 1, a + c)
            return tonumber(str)    
        end
    end

return number
end

function doAdjustWithDelay(cid, pk, health, vit, status)
if isCreature(cid) then                                   --alterado v1.5
   if not isCreature(cid) then return true end
   adjustStatus(pk, getPlayerSlotItem(cid, 8).uid, health, vir, status)
end
end

function adjustStatus(pk, item, health, vite, conditions)

    if not isCreature(pk) then return true end

    local gender = getItemAttribute(item, "gender") and getItemAttribute(item, "gender") or 0
    addEvent(doCreatureSetSkullType, 10, pk, gender)

    setPlayerStorageValue(pk, 1001, pokes[getCreatureName(pk)].offense * (getMasterLevel(pk) + getPokemonBoost(pk)))
    setPlayerStorageValue(pk, 1002, pokes[getCreatureName(pk)].defense)    --alterado v1.5           
    setPlayerStorageValue(pk, 1003, pokes[getCreatureName(pk)].agility)
    setPlayerStorageValue(pk, 1004, pokes[getCreatureName(pk)].vitality * (getMasterLevel(pk) + getPokemonBoost(pk)))
    setPlayerStorageValue(pk, 1005, pokes[getCreatureName(pk)].specialattack * (getMasterLevel(pk) + getPokemonBoost(pk)))
    
    if vite == true then
        local pct = getCreatureHealth(pk) / getCreatureMaxHealth(pk)
        local vit = getVitality(pk)
        setCreatureMaxHealth(pk, ( vit * HPperVITsummon ))
        doCreatureAddHealth(pk, pct * vit * HPperVITsummon)
    end
                                                                      
    doRegainSpeed(pk)  

    local nick = getItemAttribute(item, "poke")

    if isGhostPokemon(pk) then
       setPlayerStorageValue(pk, 8981, 1)
       updateGhostWalk(pk)
    end
        
    if string.find(tostring(nick), "Shiny") then
       nick = tostring(nick):match("Shiny (.*)")
    end

    if getItemAttribute(item, "nick") then
        nick = getItemAttribute(item, "nick")
    end

    setPlayerStorageValue(pk, 1007, nick)

    doCreatureSetNick(pk, nick)

    if not getItemAttribute(item, "happy") then
        doItemSetAttribute(item, "happy", 120)
    end

    if not getItemAttribute(item, "hunger") then
        doItemSetAttribute(item, "hunger", 5)
    end

    local happy = getItemAttribute(item, "happy")
        if happy < 0 then
            happy = 1
        end
    setPlayerStorageValue(pk, 1008, happy)

    local hunger = getItemAttribute(item, "hunger")
    setPlayerStorageValue(pk, 1009, hunger)

    if health == true then
        local mh = HPperVITsummon * getVitality(pk)
        local rd = 1 - (tonumber(getItemAttribute(item, "hp")))
        setCreatureMaxHealth(pk, mh)                                  --rever isso aki!!
        doCreatureAddHealth(pk, getCreatureMaxHealth(pk))
        doCreatureAddHealth(pk, -(getCreatureMaxHealth(pk) * rd))
    end

    if isSummon(pk) and conditions then
        local burn = getItemAttribute(item, "burn")   
        if burn and burn >= 0 then
           local ret = {id = pk, cd = burn, check = false, damage = getItemAttribute(item, "burndmg"), cond = "Burn"}
           addEvent(doCondition2, 3500, ret)
        end

        local poison = getItemAttribute(item, "poison")
        if poison and poison >= 0 then
           local ret = {id = pk, cd = poison, check = false, damage = getItemAttribute(item, "poisondmg"), cond = "Poison"}
           addEvent(doCondition2, 1500, ret)
        end

        local confuse = getItemAttribute(item, "confuse")
        if confuse and confuse >= 0 then
           local ret = {id = pk, cd = confuse, check = false, cond = "Confusion"}
           addEvent(doCondition2, 1200, ret)                                                --alterado v1.5
        end

        local sleep = getItemAttribute(item, "sleep")
        if sleep and sleep >= 0 then
           local ret = {id = pk, cd = sleep, check = false, first = true, cond = "Sleep"}
           doCondition2(ret)
        end
        
        local miss = getItemAttribute(item, "miss")     
        if miss and miss >= 0 then      
          local ret = {id = pk, cd = miss, eff = getItemAttribute(item, "missEff"), check = false, spell = getItemAttribute(item, "missSpell"), cond = "Miss"}
          doCondition2(ret)
        end
        
        local fear = getItemAttribute(item, "fear")
        if fear and fear >= 0 then
           local ret = {id = pk, cd = fear, check = false, skill = getItemAttribute(item, "fearSkill"), cond = "Fear"}
           doCondition2(ret)
        end
        
        local silence = getItemAttribute(item, "silence")
        if silence and silence >= 0 then      
           local ret = {id = pk, cd = silence, eff = getItemAttribute(item, "silenceEff"), check = false, cond = "Silence"}
           doCondition2(ret)
        end                                     
        
        local stun = getItemAttribute(item, "stun")
        if stun and stun >= 0 then
           local ret = {id = pk, cd = stun, eff = getItemAttribute(item, "stunEff"), check = false, spell = getItemAttribute(item, "stunSpell"), cond = "Stun"}
           doCondition2(ret)
        end 
                                                       
        local paralyze = getItemAttribute(item, "paralyze")
        if paralyze and paralyze >= 0 then
           local ret = {id = pk, cd = paralyze, eff = getItemAttribute(item, "paralyzeEff"), check = false, first = true, cond = "Paralyze"}
           doCondition2(ret)
        end  
                                                     
        local slow = getItemAttribute(item, "slow")
        if slow and slow >= 0 then
           local ret = {id = pk, cd = slow, eff = getItemAttribute(item, "slowEff"), check = false, first = true, cond = "Slow"}
           doCondition2(ret)
        end                                              
        
        local leech = getItemAttribute(item, "leech")
        if leech and leech >= 0 then
           local ret = {id = pk, cd = leech, attacker = 0, check = false, damage = getItemAttribute(item, "leechdmg"), cond = "Leech"}
           doCondition2(ret)
        end                               
        
        for i = 1, 3 do
            local buff = getItemAttribute(item, "Buff"..i)
            if buff and buff >= 0 then
               local ret = {id = pk, cd = buff, eff = getItemAttribute(item, "Buff"..i.."eff"), check = false, 
               buff = getItemAttribute(item, "Buff"..i.."skill"), first = true, attr = "Buff"..i}
               doCondition2(ret)
            end
        end
               
    end
    
    if getItemAttribute(item, "boost") and getItemAttribute(item, "boost") == 50 and getItemAttribute(item, "aura") then
       sendAuraEffect(pk, auraSyst[getItemAttribute(item, "aura")])        --edited aura system
    end
    
    if getPlayerStorageValue(getCreatureMaster(pk), 6598754) >= 1 then
        setPlayerStorageValue(pk, 6598754, 1)                               --edited pvp system
    elseif getPlayerStorageValue(getCreatureMaster(pk), 6598755) >= 1 then
        setPlayerStorageValue(pk, 6598755, 1)
    end

return true
end

function getOffense(cid)
    if not isCreature(cid) then return 0 end

    --[[if getPlayerStorageValue(cid, 3894) >= 1 then
        return tonumber(getPlayerStorageValue(cid, 1001)) / 2
    end  ]]

return tonumber(getPlayerStorageValue(cid, 1001))
end

function getDefense(cid)
    if not isCreature(cid) then return 0 end

    --[[if getPlayerStorageValue(cid, 3894) >= 1 then
        return tonumber(getPlayerStorageValue(cid, 1002)) / 2
    end ]]

return tonumber(getPlayerStorageValue(cid, 1002))
end

function getSpeed(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1003))
end

function getVitality(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1004))
end

function getSpecialAttack(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1005))
end

function getHappiness(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1008))
end

function getSpecialDefense(cid)
    if not isCreature(cid) then return 0 end
return getSpecialAttack(cid) * 0.85 + getDefense(cid) * 0.2      
end

function getPokemonLevel(cid)
if not isCreature(cid) then return 0 end              

return pokes[getCreatureName(cid)].level
end

function getPokemonLevelByName(name)
if tostring(name) then                       --alterado v1.5
   return pokes[name].level
end
return 0
end

function getMasterLevel(poke)
    if not isSummon(poke) then return 0 end
return getPlayerLevel(getCreatureMaster(poke))
end

function getPokemonBoost(poke)
    if not isSummon(poke) then return 0 end
return getItemAttribute(getPlayerSlotItem(getCreatureMaster(poke), 8).uid, "boost") or 0
end

function getPokeName(cid)
    if not isSummon(cid) then return getCreatureName(cid) end
    if getCreatureName(cid) == "Evolution" then return getPlayerStorageValue(cid, 1007) end
local item = getPlayerSlotItem(getCreatureMaster(cid),
    if getItemAttribute(item.uid, "nick") then
    return getItemAttribute(item.uid, "nick")
    end
return getCreatureName(cid)
end

function getPokeballName(item, truename)
if not truename and getItemAttribute(item, "nick") then
return getItemAttribute(item, "nick")
end
return getItemAttribute(item, "poke")
end

function getPokemonName(cid)
return getCreatureName(cid)
end

function getPokemonGender(cid)
return getCreatureSkullType(cid)
end

function getWildPokemonExp(cid)
return getPlayerStorageValue(cid, 1006)
end

TERCEITO ---- sem lvl -----
level system.lua
 

Spoiler

function adjustWildPoke(cid, optionalLevel)
if isMonster(cid) and pokes[getCreatureName(cid)] then

    local level = (optionalLevel and optionalLevel >= 1) and optionalLevel or getPokemonLevel(cid)  --alterado v1.8
    
               local level = 0
    local b = getCreatureOutfit(cid).lookBody
    local shiny = 100
    local lvl = getPokemonLevel(cid)
    local monstrinho = getCreatureName(cid)
                                                 --alterado v1.4
                                                 
    if optionalLevel then
       level = optionalLevel
    elseif b > lvl then
       level = b
    elseif string.find(monstrinho, "Shiny") then
      level = lvl * 01.0
    else
       level = lvl
    end
    
    setPlayerStorageValue(cid, 1000, level) --alterado v1.8
    setPlayerStorageValue(cid, 1001, pokes[getCreatureName(cid)].offense * level)
    setPlayerStorageValue(cid, 1002, pokes[getCreatureName(cid)].defense)
    setPlayerStorageValue(cid, 1003, pokes[getCreatureName(cid)].agility)                                  
    setPlayerStorageValue(cid, 1004, pokes[getCreatureName(cid)].vitality * level)
    setPlayerStorageValue(cid, 1005, pokes[getCreatureName(cid)].specialattack * level)
    
    doRegainSpeed(cid)         --alterado!
    setCreatureMaxHealth(cid, (getVitality(cid) * HPperVITwild)) 
    doCreatureAddHealth(cid,  getCreatureMaxHealth(cid))
   
    if pokes[getCreatureName(cid)].exp then
       local exp = pokes[getCreatureName(cid)].exp * baseExpRate + pokes[getCreatureName(cid)].vitality * pokemonExpPerLevelRate
       setPlayerStorageValue(cid, 1006, (exp * generalExpRate/2)*10)
       if getPlayerStorageValue(cid, 22546) == 1 then
          setPlayerStorageValue(cid, 1006, 750)
          doSetCreatureDropLoot(cid, false)      
       end   
    end
end
end       

function getPokemonXMLOutfit(name)                --alterado v1.9 \/
local path = "data/monster/pokes/Shiny/"..name..".xml"
local tpw = io.type(io.open(path))

if not tpw then
   path = "data/monster/pokes/geracao 2/"..name..".xml"
   tpw = io.type(io.open(path))
end
if not tpw then
   path = "data/monster/pokes/geracao 1/"..name..".xml"
   tpw = io.type(io.open(path))
end
if not tpw then
   path = "data/monster/pokes/"..name..".xml"
   tpw = io.type(io.open(path))
end   
if not tpw then
   return print("[getPokemonXMLOutfit] Poke with name: "..name.." ins't in any paste on monster/pokes/") and 2
end
   local arq = io.open(path, "a+")
   local txt = arq:read("*all")
   arq:close()
   local a, b = txt:find('look type="(.-)"')
   txt = string.sub(txt, a + 11, b - 1)
return tonumber(txt)
end 

function doEvolutionOutfit(cid, oldout, outfit)
    if not isCreature(cid) then return true end
        if getCreatureOutfit(cid).lookType == oldout then
            doSetCreatureOutfit(cid, {lookType = outfit}, -1)
        else
            doSetCreatureOutfit(cid, {lookType = oldout}, -1)
        end
end

function doSendEvolutionEffect(cid, pos, evolution, turn, ssj, evolve, f, h)
    if not isCreature(cid) then
        doSendAnimatedText(pos, "CANCEL", 215)
        return true 
    end
    if evolve then
        doEvolvePokemon(getCreatureMaster(cid), {uid = cid}, evolution, 0, 0)
    return true
    end
    doSendMagicEffect(pos, 18)
        if ssj then
            sendSSJEffect(evo)
        end
    doEvolutionOutfit(cid, f, h)
    addEvent(doSendEvolutionEffect, math.pow(1900, turn/20), cid, getThingPos(cid), evolution, turn - 1, turn == 19, turn == 2, f, h)
end

function sendSSJEffect(cid)
    if not isCreature(cid) then return true end
    local pos1 = getThingPos(cid)
    local pos2 = getThingPos(cid)
    pos2.x = pos2.x + math.random(-1, 1)
    pos2.y = pos2.y - math.random(1, 2)
    doSendDistanceShoot(pos1, pos2, 37)
    addEvent(sendSSJEffect, 45, cid)
end

function sendFinishEvolutionEffect(cid, alternate)
    if not isCreature(cid) then return true end
    local pos1 = getThingPos(cid)

    if alternate then
        local pos = {
        [1] = {-2, 0},
        [2] = {-1, -1},
        [3] = {0, -2},
        [4] = {1, -1},
        [5] = {2, 0},
        [6] = {1, 1},
        [7] = {0, 2},
        [8] = {-1, 1}}
        for a = 1, 8 do
            local pos2 = getThingPos(cid)
            pos2.x = pos2.x + pos[a][1]
            pos2.y = pos2.y + pos[a][2]
            local pos = getThingPos(cid)
            doSendDistanceShoot(pos2, pos, 37)
            addEvent(doSendDistanceShoot, 300, pos, pos2, 37)
        end
    else
        for a = 0, 3 do
            doSendDistanceShoot(pos1, getPosByDir(pos1, a), 37)
        end
        for a = 4, 7 do
            addEvent(doSendDistanceShoot, 600, pos1, getPosByDir(pos1, a), 37)
        end
    end
end

function doEvolvePokemon(cid, item2, theevo, stone1, stone2)

    if not isCreature(cid) then return true end

    if not pokes[theevo] or not pokes[theevo].offense then
    doReturnPokemon(cid, item2.uid, getPlayerSlotItem(cid, 8), pokeballs[getPokeballType(getPlayerSlotItem(cid, 8).itemid)].effect, false, true)
    return true
    end

    local owner = getCreatureMaster(item2.uid)
    local pokeball = getPlayerSlotItem(cid,
    local description = "Contains a "..theevo.."."
    local pct = getCreatureHealth(item2.uid) / getCreatureMaxHealth(item2.uid)

        doItemSetAttribute(pokeball.uid, "hp", pct)

        doItemSetAttribute(pokeball.uid, "poke", theevo)
        doItemSetAttribute(pokeball.uid, "description", "Contains a "..theevo..".")

        doPlayerSendTextMessage(cid, 27, "Congratulations! Your "..getPokeName(item2.uid).." evolved into a "..theevo.."!")        

        doSendMagicEffect(getThingPos(item2.uid), 18)
        doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos[theevo])
        doSendMagicEffect(getThingPos(cid), 173)

        local oldpos = getThingPos(item2.uid)
        local oldlod = getCreatureLookDir(item2.uid)
        doRemoveCreature(item2.uid)

        doSummonMonster(cid, theevo)
        local pk = getCreatureSummons(cid)[1]

        doTeleportThing(pk, oldpos, false)
        doCreatureSetLookDir(pk, oldlod)

        sendFinishEvolutionEffect(pk, true)
        addEvent(sendFinishEvolutionEffect, 550, pk, true)
        addEvent(sendFinishEvolutionEffect, 1050, pk)
        
        doPlayerRemoveItem(cid, stone1, 1)
        doPlayerRemoveItem(cid, stone2, 1)

        doAddPokemonInOwnList(cid, theevo)

        local happy = getItemAttribute(pokeball.uid, "happy")

        doItemSetAttribute(pokeball.uid, "happy", happy + happyGainedOnEvolution)

        if happy + happyGainedOnEvolution > 255 then
            doItemSetAttribute(pokeball.uid, "happy", 255)
        end

        adjustStatus(pk, pokeball.uid, true, false)

        if useKpdoDlls then
            doUpdateMoves(cid)
        end
end

function doMathDecimal(number, casas)

    if math.floor(number) == number then return number end

    local c = casas and casas + 1 or 3

    for a = 0, 10 do
        if math.floor(number) < math.pow(10, a) then
            local str = string.sub(""..number.."", 1, a + c)
            return tonumber(str)    
        end
    end

return number
end

function doAdjustWithDelay(cid, pk, health, vit, status)
if isCreature(cid) then                                   
   adjustStatus(pk, getPlayerSlotItem(cid, 8).uid, health, vir, status)
end
end

function adjustStatus(pk, item, health, vite, conditions)

    if not isCreature(pk) then return true end

    local gender = getItemAttribute(item, "gender") and getItemAttribute(item, "gender") or 0
    addEvent(doCreatureSetSkullType, 10, pk, gender)

-- Defense -- 
local bonusdef = {}
local Tiers = {
[1] = {bonus = DefBonus1},
[2] = {bonus = DefBonus2},
[3] = {bonus = DefBonus3},
[4] = {bonus = DefBonus4},
[5] = {bonus = DefBonus5},
[6] = {bonus = DefBonus6},
[7] = {bonus = DefBonus7},
}
local Tier = getItemAttribute(item, "heldx")

if Tier and Tier > 0 and Tier < 8 then
bonusdef = Tiers[Tier].bonus
else
bonusdef = 1
end
-- Defense --
-- Boost -- 
local bonusboost = {}
local Tiers2 = {
[36] = {bonus = BoostBonus1},
[37] = {bonus = BoostBonus2},
[38] = {bonus = BoostBonus3},
[39] = {bonus = BoostBonus4},
[40] = {bonus = BoostBonus5},
[41] = {bonus = BoostBonus6},
[42] = {bonus = BoostBonus7},
}
if Tier and Tier > 35 and Tier < 43 then
bonusboost = Tiers2[Tier].bonus
else
bonusboost = 0
end
-- Boost -- 
    if (getItemAttribute(item, "ehditto") == 1) then
setPlayerStorageValue(pk, 1001, (pokes[getCreatureName(pk)].offense * (getMasterLevel(pk) + getPokemonBoost(pk))) * 0.99)
setPlayerStorageValue(pk, 1002, (pokes[getCreatureName(pk)].defense) * 0.99)
setPlayerStorageValue(pk, 1003, pokes[getCreatureName(pk)].agility)
setPlayerStorageValue(pk, 1004, (pokes[getCreatureName(pk)].vitality * (getMasterLevel(pk) + getPokemonBoost(pk))) * 0.99)
setPlayerStorageValue(pk, 1005, (pokes[getCreatureName(pk)].specialattack * (getMasterLevel(pk) + getPokemonBoost(pk))) * 0.99)
else
setPlayerStorageValue(pk, 1001, pokes[getCreatureName(pk)].offense * (getMasterLevel(pk) + getPokemonBoost(pk)))
setPlayerStorageValue(pk, 1002, pokes[getCreatureName(pk)].defense)
setPlayerStorageValue(pk, 1003, pokes[getCreatureName(pk)].agility)
setPlayerStorageValue(pk, 1004, pokes[getCreatureName(pk)].vitality * (getMasterLevel(pk) + getPokemonBoost(pk)))
setPlayerStorageValue(pk, 1005, pokes[getCreatureName(pk)].specialattack * (getMasterLevel(pk) + getPokemonBoost(pk)))
end
    
    if vite == true then
        local pct = getCreatureHealth(pk) / getCreatureMaxHealth(pk)
        local vit = getVitality(pk)
        setCreatureMaxHealth(pk, ( vit * HPperVITsummon ))
        doCreatureAddHealth(pk, pct * vit * HPperVITsummon)
    end
                                                                      
    doRegainSpeed(pk)  

    local nick = getItemAttribute(item, "poke")

    if isGhostPokemon(pk) then
       setPlayerStorageValue(pk, 8981, 1)
       updateGhostWalk(pk)
    end
        
    if string.find(tostring(nick), "Shiny") then
       nick = tostring(nick):match("Shiny (.*)")
    end
    
    if string.find(tostring(nick), "Brooders") then
       nick = tostring(nick):match("Brooders (.*)")
    end
    
    if string.find(tostring(nick), "Fire") then
       nick = tostring(nick):match("Fire (.*)")
    end
    
    if string.find(tostring(nick), "Water") then
       nick = tostring(nick):match("Water (.*)")
    end

    if string.find(tostring(nick), "Ice") then
       nick = tostring(nick):match("Ice (.*)")
    end
    
    if string.find(tostring(nick), "Sua") then
       nick = tostring(nick):match("Sua (.*)")
    end
    
    if string.find(tostring(nick), "Seu") then
       nick = tostring(nick):match("Seu (.*)")
    end
    
    if string.find(tostring(nick), "Fire") then
       nick = tostring(nick):match("Fire (.*)")
    end
    
    if string.find(tostring(nick), "Flying") then
       nick = tostring(nick):match("Flying (.*)")
    end
    
    if string.find(tostring(nick), "Ghost") then
       nick = tostring(nick):match("Ghost (.*)")
    end
    
    if string.find(tostring(nick), "Grass") then
       nick = tostring(nick):match("Grass (.*)")
    end

    if string.find(tostring(nick), "Male") then
       nick = tostring(nick):match("Male (.*)")
    end
    
    if string.find(tostring(nick), "Female") then
       nick = tostring(nick):match("Female (.*)")
    end    
    
    if getItemAttribute(item, "nick") then
        nick = getItemAttribute(item, "nick")
    end

    setPlayerStorageValue(pk, 1007, nick)

    doCreatureSetNick(pk, nick)

    if not getItemAttribute(item, "happy") then
        doItemSetAttribute(item, "happy", 120)
    end

    if not getItemAttribute(item, "hunger") then
        doItemSetAttribute(item, "hunger", 5)
    end

    local happy = getItemAttribute(item, "happy")
        if happy < 0 then
            happy = 1
        end
    setPlayerStorageValue(pk, 1008, happy)

    local hunger = getItemAttribute(item, "hunger")
    setPlayerStorageValue(pk, 1009, hunger)

    if health == true then
        local mh = HPperVITsummon * getVitality(pk)
        local rd = 1 - (tonumber(getItemAttribute(item, "hp")))
        setCreatureMaxHealth(pk, mh)                                  
        doCreatureAddHealth(pk, getCreatureMaxHealth(pk))
        doCreatureAddHealth(pk, -(getCreatureMaxHealth(pk) * rd))
    end

    if isSummon(pk) and conditions then
        local burn = getItemAttribute(item, "burn")   
        if burn and burn >= 0 then
           local ret = {id = pk, cd = burn, check = false, damage = getItemAttribute(item, "burndmg"), cond = "Burn"}
           addEvent(doCondition2, 3500, ret)
        end

        local poison = getItemAttribute(item, "poison")
        if poison and poison >= 0 then
           local ret = {id = pk, cd = poison, check = false, damage = getItemAttribute(item, "poisondmg"), cond = "Poison"}
           addEvent(doCondition2, 1500, ret)
        end

        local confuse = getItemAttribute(item, "confuse")
        if confuse and confuse >= 0 then
           local ret = {id = pk, cd = confuse, check = false, cond = "Confusion"}
           addEvent(doCondition2, 1200, ret)                                                
        end

        local sleep = getItemAttribute(item, "sleep")
        if sleep and sleep >= 0 then
           local ret = {id = pk, cd = sleep, check = false, first = true, cond = "Sleep"}
           doCondition2(ret)
        end
        
        local miss = getItemAttribute(item, "miss")     
        if miss and miss >= 0 then      
          local ret = {id = pk, cd = miss, eff = getItemAttribute(item, "missEff"), check = false, spell = getItemAttribute(item, "missSpell"), cond = "Miss"}
          doCondition2(ret)
        end
        
        local fear = getItemAttribute(item, "fear")
        if fear and fear >= 0 then
           local ret = {id = pk, cd = fear, check = false, skill = getItemAttribute(item, "fearSkill"), cond = "Fear"}
           doCondition2(ret)
        end
        
        local silence = getItemAttribute(item, "silence")
        if silence and silence >= 0 then      
           local ret = {id = pk, cd = silence, eff = getItemAttribute(item, "silenceEff"), check = false, cond = "Silence"}
           doCondition2(ret)
        end                                     
        
        local stun = getItemAttribute(item, "stun")
        if stun and stun >= 0 then
           local ret = {id = pk, cd = stun, eff = getItemAttribute(item, "stunEff"), check = false, spell = getItemAttribute(item, "stunSpell"), cond = "Stun"}
           doCondition2(ret)
        end 
                                                       
        local paralyze = getItemAttribute(item, "paralyze")
        if paralyze and paralyze >= 0 then
           local ret = {id = pk, cd = paralyze, eff = getItemAttribute(item, "paralyzeEff"), check = false, first = true, cond = "Paralyze"}
           doCondition2(ret)
        end  
                                                     
        local slow = getItemAttribute(item, "slow")
        if slow and slow >= 0 then
           local ret = {id = pk, cd = slow, eff = getItemAttribute(item, "slowEff"), check = false, first = true, cond = "Slow"}
           doCondition2(ret)
        end                                              
        
        local leech = getItemAttribute(item, "leech")
        if leech and leech >= 0 then
           local ret = {id = pk, cd = leech, attacker = 0, check = false, damage = getItemAttribute(item, "leechdmg"), cond = "Leech"}
           doCondition2(ret)
        end                               
        
        for i = 1, 3 do
            local buff = getItemAttribute(item, "Buff"..i)
            if buff and buff >= 0 then
               local ret = {id = pk, cd = buff, eff = getItemAttribute(item, "Buff"..i.."eff"), check = false, 
               buff = getItemAttribute(item, "Buff"..i.."skill"), first = true, attr = "Buff"..i}
               doCondition2(ret)
            end
        end
               
    end
                                                                          --alterado v1.9
    if getItemAttribute(item, "boost") and getItemAttribute(item, "boost") >= 50 and getItemAttribute(item, "aura") then
       sendAuraEffect(pk, auraSyst[getItemAttribute(item, "aura")])        
    end
    
    if getPlayerStorageValue(getCreatureMaster(pk), 6598754) >= 1 then
        setPlayerStorageValue(pk, 6598754, 1)                               
    elseif getPlayerStorageValue(getCreatureMaster(pk), 6598755) >= 1 then
        setPlayerStorageValue(pk, 6598755, 1)
    end

return true
end

function getOffense(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1001))
end

function getDefense(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1002))
end

function getSpeed(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1003))
end

function getVitality(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1004))
end

function getSpecialAttack(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1005))
end

function getHappiness(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1008))
end

function getSpecialDefense(cid)
    if not isCreature(cid) then return 0 end
return getSpecialAttack(cid) * 0.85 + getDefense(cid) * 0.2      
end

function getPokemonLevel(cid, dex)
if not isCreature(cid) or not pokes[getCreatureName(cid)] then return 0 end 
    if not dex then                      --alterado v1.9
       if ehMonstro(cid) and getPlayerStorageValue(cid, 1000) > 0 then  
          return getPlayerStorageValue(cid, 1000)
       elseif ehMonstro(cid) then 
          return pokes[getCreatureName(cid)].wildLvl             
       end
    end   
return pokes[getCreatureName(cid)].level
end

function getPokemonLevelByName(name)
return pokes[name] and pokes[name].level or 0  --alterado v1.9
end

function getMasterLevel(poke)
    if not isSummon(poke) then return 0 end
return getPlayerLevel(getCreatureMaster(poke))
end

function getPokemonBoost(poke)
    if not isSummon(poke) then return 0 end
return getItemAttribute(getPlayerSlotItem(getCreatureMaster(poke), 8).uid, "boost") or 0
end

function getPokeballBoost(ball)
    if not isPokeball(ball.itemid) then return 0 end  --alterado v1.8
return getItemAttribute(ball.uid, "boost") or 0
end

function getPokeName(cid)
    if not isSummon(cid) then return getCreatureName(cid) end
    if getCreatureName(cid) == "Evolution" then return getPlayerStorageValue(cid, 1007) end
    
local item = getPlayerSlotItem(getCreatureMaster(cid),
    if getItemAttribute(item.uid, "nick") then
       return getItemAttribute(item.uid, "nick")
    end
    if string.find(tostring(getCreatureName(cid)), "Shiny") then
      local newName = tostring(getCreatureName(cid)):match("Shiny (.*)")
      return newName
    end
return getCreatureName(cid)
end

function getPokeballName(item, truename)
if not truename and getItemAttribute(item, "nick") then
return getItemAttribute(item, "nick")
end
return getItemAttribute(item, "poke")
end

function getPokemonName(cid)
return getCreatureName(cid)
end

function getPokemonGender(cid) --alterado v1.9
return getCreatureSkullType(cid)
end

function setPokemonGender(cid, gender)
if isCreature(cid) and gender then        --alterado v1.8
   doCreatureSetSkullType(cid, gender)
   return true
end
return false
end

function getWildPokemonExp(cid)
return getPlayerStorageValue(cid, 1006)
end

QUARTO --- com lvl eu quero tirar o lvl deste---
level system.lua
 

Spoiler

function getPokemonBaseStatus(name, multiplier)
    local a = pokes[name]
    local m = 1
    if not a then return false end
    if not a.offense then return false end
    if multiplier then m = multiplier end
local ret = {}
    ret.off = a.offense * m
    ret.offense = ret.off

    ret.def = a.defense * m
    ret.defense = ret.def

    ret.agi = a.agility * m
    ret.agility = ret.agi

    ret.spatk = a.specialattack * m
    ret.specialattack = ret.spatk

    ret.vit = a.vitality * m
    ret.vitality = ret.vit
return ret
end

function getPokemonStatus(name, multiplier)
    local a = pokes[name]
    local m = 1
    if not a then return false end
    if not a.offense then return false end
    if multiplier then m = multiplier end
local ret = {}
    ret.off = a.offense * m
    ret.offense = ret.off

    ret.def = a.defense * m
    ret.defense = ret.def

    ret.agi = a.agility * m
    ret.agility = ret.agi

    ret.spatk = a.specialattack * m
    ret.specialattack = ret.spatk

    ret.vit = a.vitality * m
    ret.vitality = ret.vit
return ret
end

function getPokeballStatus(owner,pokeball)
    local a = getItemAttribute(owner,pokeball.uid,"poke")
    if not a then return false end
    local ret = {}
    ret.off = getItemAttribute(owner,pokeball.uid,"offense")
    ret.offense = getItemAttribute(owner,pokeball.uid,"offense")

    ret.def = getItemAttribute(owner,pokeball.uid,"defense")
    ret.defense = getItemAttribute(owner,pokeball.uid,"defense")

    ret.agi = getItemAttribute(owner,pokeball.uid,"speed")
    ret.agility = getItemAttribute(owner,pokeball.uid,"speed")

    ret.spatk = getItemAttribute(owner,pokeball.uid,"specialattack")
    ret.specialattack = getItemAttribute(owner,pokeball.uid,"specialattack")

    ret.vit = getItemAttribute(owner,pokeball.uid,"vitality")
    ret.vitality = getItemAttribute(owner,pokeball.uid,"vitality")
return ret
end

function getPokemonXMLOutfit(name)
local johto = false
for i = 209, 308 do       --alterado v2.6
  if oldpokedex[1] and oldpokedex[1] == name then
     johto = true
  end
end
    if isShinyName(name) then
       a = "data/monster/pokes/Shiny/"..name..".xml"
    elseif johto then
       a = "data/monster/pokes/geracao 2/"..name..".xml"    --edited pra melhorar a pasta monster
    else
       a = "data/monster/pokes/geracao 1/"..name..".xml"
    end 
    local b = io.open(a, "a+")
    local c = b:read("*all")
    b:close()
    local d, e = c:find('look type="(.-)"')
    c = string.sub(c, d + 11, e - 1)
return tonumber©
end

function doEvolutionOutfit(cid, oldout, outfit)
    if not isCreature(cid) then return true end
        if getCreatureOutfit(cid).lookType == oldout then
            doSetCreatureOutfit(cid, {lookType = outfit}, -1)
        else
            doSetCreatureOutfit(cid, {lookType = oldout}, -1)
        end
end

function doStartEvolution(cid, evolution, seconds)
    if not isCreature(cid) then return true end
    local a = getPlayerStorageValue(cid, 1007)
    local b = getCreatureHealth(cid) / getCreatureMaxHealth(cid)
    local d = getThingPos(cid)
    local e = getCreatureMaster(cid)
    if getHappinessRate(cid) < 1 then return true end
    local f = getCreatureOutfit(cid).lookType
    local g = getItemAttribute(getPlayerSlotItem(e, 8).uid, "nick") or getCreatureName(cid)
    local h = getPokemonXMLOutfit(evolution)
    doItemSetAttribute(getPlayerSlotItem(e, 8).uid, "hp", b)
    doCreatureSay(e, "What? My "..g.." is evolving!", TALKTYPE_SAY)
    doSummonMonster(e, "Evolution")
    doReturnPokemon(e, cid, getPlayerSlotItem(e, 8), 0, true)
    local evo = getCreatureSummons(e)[1]
    doEvolutionOutfit(evo, h, f)
    doCreatureSetHideHealth(evo, true)
    doCreatureSetLookDir(evo, 2)
    setPlayerStorageValue(evo, 1007, g)
    doTeleportThing(evo, d, false)
    addEvent(sendSSJEffect, 250, evo)
    doSendAnimatedText(getThingPos(evo), "EVOLUTION", COLOR_GRASS)
    doSendEvolutionEffect(evo, getThingPos(evo), evolution, 20, false, false, f, h)
end

function doSendEvolutionEffect(cid, pos, evolution, turn, ssj, evolve, f, h)
    if not isCreature(cid) then
        doSendAnimatedText(pos, "CANCEL", 215)
    return true end
    if evolve then
        doEvolvePokemon(getCreatureMaster(cid), {uid = cid}, evolution, 0, 0)
    return true
    end
    doSendMagicEffect(pos, 18)
        if ssj then
            sendSSJEffect(evo)
        end
    doEvolutionOutfit(cid, f, h)
    addEvent(doSendEvolutionEffect, math.pow(1900, turn/20), cid, getThingPos(cid), evolution, turn - 1, turn == 19, turn == 2, f, h)
end

function sendSSJEffect(cid)
    if not isCreature(cid) then return true end
    local pos1 = getThingPos(cid)
    local pos2 = getThingPos(cid)
    pos2.x = pos2.x + math.random(-1, 1)
    pos2.y = pos2.y - math.random(1, 2)
    doSendDistanceShoot(pos1, pos2, 37)
    addEvent(sendSSJEffect, 45, cid)
end

function sendFinishEvolutionEffect(cid, alternate)
    if not isCreature(cid) then return true end
    local pos1 = getThingPos(cid)

    if alternate then
        local pos = {
        [1] = {-2, 0},
        [2] = {-1, -1},
        [3] = {0, -2},
        [4] = {1, -1},
        [5] = {2, 0},
        [6] = {1, 1},
        [7] = {0, 2},
        [8] = {-1, 1}}
        for a = 1, 8 do
            local pos2 = getThingPos(cid)
            pos2.x = pos2.x + pos[a][1]
            pos2.y = pos2.y + pos[a][2]
            local pos = getThingPos(cid)
            doSendDistanceShoot(pos2, pos, 37)
            addEvent(doSendDistanceShoot, 300, pos, pos2, 37)
        end
    else
        for a = 0, 3 do
            doSendDistanceShoot(pos1, getPosByDir(pos1, a), 37)
        end
        for a = 4, 7 do
            addEvent(doSendDistanceShoot, 600, pos1, getPosByDir(pos1, a), 37)
        end
    end
end

function doEvolvePokemon(cid, item2, theevo, stone1, stone2)

    if not isCreature(cid) then return true end

    if not pokes[theevo] or not pokes[theevo].offense then
    doReturnPokemon(cid, item2.uid, getPlayerSlotItem(cid, 8), pokeballs[getPokeballType(getPlayerSlotItem(cid, 8).itemid)].effect, false, true)
    return true
    end

    local owner = getCreatureMaster(item2.uid)
    local pokeball = getPlayerSlotItem(cid,
    local description = "Contains a "..theevo.."."
    local pct = getCreatureHealth(item2.uid) / getCreatureMaxHealth(item2.uid)

        doItemSetAttribute(pokeball.uid, "hp", pct)

        doItemSetAttribute(pokeball.uid, "poke", theevo)
        doItemSetAttribute(pokeball.uid, "description", "Contains a "..theevo..".")

        doPlayerSendTextMessage(cid, 27, "Congratulations! Your "..getPokeName(item2.uid).." evolved into a "..theevo.."!")        

        doSendMagicEffect(getThingPos(item2.uid), 18)
        doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos[theevo])
        doSendMagicEffect(getThingPos(cid), 173)

        local oldpos = getThingPos(item2.uid)
        local oldlod = getCreatureLookDir(item2.uid)
        local oldlvl = getPokemonLevel(item2.uid)
        doRemoveCreature(item2.uid)

        doSummonMonster(cid, theevo)
        local pk = getCreatureSummons(cid)[1]

        doTeleportThing(pk, oldpos, false)
        doCreatureSetLookDir(pk, oldlod)

        sendFinishEvolutionEffect(pk, true)
        addEvent(sendFinishEvolutionEffect, 550, pk, true)
        addEvent(sendFinishEvolutionEffect, 1050, pk)
        
        doPlayerRemoveItem(cid, stone1, 1)
        doPlayerRemoveItem(cid, stone2, 1)

        doAddPokemonInOwnList(cid, theevo)
        local happy = getItemAttribute(pokeball.uid, "happy")

        doItemSetAttribute(pokeball.uid, "happy", happy + happyGainedOnEvolution)

        if happy + happyGainedOnEvolution > 255 then
            doItemSetAttribute(pokeball.uid, "happy", 255)
        end

        adjustStatus(pk, pokeball.uid, true, false)

        if useKpdoDlls then
            doUpdateMoves(cid)
        end
end

function givePokemonExp(cid, item, expe, pct, rarecandy)

    if expe <= 0 or not isCreature(cid) then return true end

    local leveltable = getPokemonExperienceTable(getPokeballName(item.uid, true))

        if getItemAttribute(item.uid, "exp") + expe > leveltable[100] then
            givePokemonExp(cid, item, leveltable[100] - getItemAttribute(item.uid, "exp"))
        return true
        end

    doItemSetAttribute(item.uid, "exp", getItemAttribute(item.uid, "exp") + expe)
    doItemSetAttribute(item.uid, "happy", getItemAttribute(item.uid, "happy") + 1)
    doItemSetAttribute(item.uid, "nextlevelexp", getItemAttribute(item.uid, "nextlevelexp") - expe)

    if pct then
        doPlayerSendTextMessage(cid, 19, "Seu "..getPokeballName(item.uid).." recebeu ("..expe..") pontos de experiencia ("..pct.."%).")
    else
        if getItemAttribute(item.uid, "nextlevelexp") > 0 then
            doPlayerSendTextMessage(cid, 19, "Seu Pokemon "..getPokeballName(item.uid).." ["..getItemAttribute(item.uid, "level").."] recebeu ("..expe..") de experiencia. Faltam ("..getItemAttribute(item.uid, "nextlevelexp")..") de experiencia para o próximo level.")
        else
            doPlayerSendTextMessage(cid, 19, "[LEVEL UP] Parabens, seu Pokemon "..getPokeballName(item.uid).." ["..getItemAttribute(item.uid, "level").."] recebeu ("..expe..") de experiencia e avançou de level!")
        end
    end

    if isBeingUsed(item.itemid) then
    doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), expe, 215)
    end

    if getItemAttribute(item.uid, "nextlevelexp") <= 0 then
        local summon = getCreatureSummons(cid)[1]
    
        if not isCreature(summon) then return true end

        doSendFlareEffect(getThingPos(summon))
        setPlayerStorageValue(summon,5050,getPlayerStorageValue(summon,5050)+1)    ------ STORAGE QUE GANHA AO UPAR DE LVL POKE
        doSendAnimatedText(getThingPos(summon), "Level UP!", 215)

        adjustPokemonLevel(item.uid, cid, item.itemid)
        doCreatureAddHealth(summon, getCreatureMaxHealth(summon))
    end
end

function givePokemonExpInBp(cid, item, expe, ballid, pct, hidemessage)

    if expe <= 0 or not isCreature(cid) then return true end

    local leveltable = getPokemonExperienceTable(getPokeballName(item, true))

    if getItemAttribute(item, "exp") + expe > leveltable[100] then
        givePokemonExpInBp(cid, item, leveltable[100] - getItemAttribute(item, "exp"), ballid)
    return true
    end

    doItemSetAttribute(item, "exp", getItemAttribute(item, "exp") + expe)
    doItemSetAttribute(item, "happy", getItemAttribute(item, "happy") + 1)
    doItemSetAttribute(item, "nextlevelexp", getItemAttribute(item, "nextlevelexp") - expe)

    if not hidemessage then
        if pct then
            doPlayerSendTextMessage(cid, 19, "Seu "..getPokeballName(item).." Recebeu ("..expe..") experience points ("..pct.."%).")            
        else
            if getItemAttribute(item, "nextlevelexp") > 0 then
                doPlayerSendTextMessage(cid, 19, "Seu "..getPokeballName(item).." ["..getItemAttribute(item, "level").."] recebeu ("..expe..") de experiencia dentro de sua pokeball. Faltam ("..getItemAttribute(item, "nextlevelexp")..") de experiencia para o próximo level.")
            else
                doPlayerSendTextMessage(cid, 19, "Seu "..getPokeballName(item).." ["..getItemAttribute(item, "level").."] recebeu ("..expe..") de experiencia, e avançou de level dentro de sua Pokeball!.")
                adjustPokemonLevel(item, cid, ballid)
            end
        end
    end
end

function doMathDecimal(number, casas)

    if math.floor(number) == number then return number end

    local c = casas and casas + 1 or 3

    for a = 0, 10 do
        if math.floor(number) < math.pow(10, a) then
            local str = string.sub(""..number.."", 1, a + c)
            return tonumber(str)    
        end
    end

return number
end

function adjustPokemonLevel(item, cid, id, rarecandy)

    if not isCreature(cid) then return true end

    local exp = getItemAttribute(item, "exp")
    local level = getItemAttribute(item, "level")
    local bonus_level = getItemAttribute(item, "b_level") or 0

     
    local leveltable = getPokemonExperienceTable(getPokeballName(item, true))
    local newlevel = 1

    for x = 1, 100 do
        if exp >= leveltable[x] and exp < leveltable[x+1] then
            newlevel = x
        end
    end

    if newlevel <= 1 then return true end

    local levelsup = (newlevel - level) 
 
    local pokemon = getItemAttribute(item, "poke")
    local happy = getItemAttribute(item, "happy")
    local rate = happy / happy
    local newhappiness = happy

    if happy >= 250 then
        newhappiness = 255
    elseif happy >= 230 then
        newhappiness = happy + 4
    elseif happy >= 210 then
        newhappiness = happy + 6
    elseif happy >= 180 then
        newhappiness = happy + 8
    elseif happy >= 140 then
        newhappiness = happy + 10
    elseif happy >= 110 then
        newhappiness = happy + 12
    else
        newhappiness = happy + 15
    end

    local status = getPokemonStatus(pokemon)
    

    local off = status.off * rate * levelsup
    local def = status.def * rate * levelsup
    local agi = status.agi * rate * levelsup
    local spatk = status.spatk * rate * levelsup
    local vit = status.vit * rate * levelsup

    doItemSetAttribute(item, "level", newlevel)
    doItemSetAttribute(item, "b_level", bonus_level + 1)
    

    if not rarecandy then
        doItemSetAttribute(item, "happy", newhappiness)
    end

    local nextexp = leveltable[newlevel + 1] - exp
    doItemSetAttribute(item, "nextlevelexp", nextexp)
    

    doItemSetAttribute(item, "offense", getItemAttribute(item, "offense") + off)
    doItemSetAttribute(item, "defense", getItemAttribute(item, "defense") + def)
    doItemSetAttribute(item, "speed", getItemAttribute(item, "speed") + agi)
    doItemSetAttribute(item, "specialattack", getItemAttribute(item, "specialattack") + spatk)
    doItemSetAttribute(item, "vitality", getItemAttribute(item, "vitality") + vit)

    if newlevel > getPlayerLevel(cid) + pokemonMaxLevelAbovePlayer then
        addEvent(doPlayerSendTextMessage, 30, cid, 18, "Warning: Your "..getPokeballName(item).."'s ["..newlevel.."] level is much higher than yours, so you will not be able to call him to battles.")
    end

    if isCreature(cid) and id >= 1 and isBeingUsed(id) then
        adjustStatus(getCreatureSummons(cid)[1], item, false, true)
        doPlayerSendTextMessage(cid, 27, "Level: "..newlevel.." (+"..levelsup..") - Offense: +"..doMathDecimal(off).." - Defense: +"..doMathDecimal(def).." - Spc. Atk: +"..doMathDecimal(spatk).." - Agility: +"..doMathDecimal(agi).." - Vitality: +"..doMathDecimal(vit)..".")

        if happy < minHappyToEvolve then return true end

        if pokemonsCanEvolveByLevel then

            local summon = getCreatureSummons(cid)[1]

            local reqlevel = poevo[getCreatureName(summon)] and poevo[getCreatureName(summon)].level or -1
            local level = getItemAttribute(item, "level")
            local evolution = "none"
            local name = getCreatureName(summon)

            if name == "Tyrogue" and level >= 20 then
                if getOffense(summon) == getDefense(summon) then
                    evolution = "Hitmontop"
                elseif getOffense(summon) > getDefense(summon) then
                    evolution = "Hitmonlee"
                else
                    evolution = "Hitmonchan"
                end
            elseif name == "Eevee" then
                if happy >= maxHappyToEvolve then
                    if isDay() then
                        evolution = "Espeon"
                    else
                        evolution = "Umbreon"
                    end
                end
            elseif name == "Slowpoke" and level >= 28 then
                evolution = "Slowbro"
            elseif name == "Poliwhirl" and level >= 36 then
                evolution = "Poliwrath"
            elseif reqlevel > 4 and level >= reqlevel then
                evolution = poevo[getCreatureName(summon)].evolution
            elseif reqlevel == 2 and happy >= maxHappyToEvolve then
                evolution = poevo[getCreatureName(summon)] and poevo[getCreatureName(summon)].evolution or "none"
            end

            if evolution ~= "none" then
                doStartEvolution(summon, evolution, 4)
            end
        end
    end
end

function doAdjustWithDelay(cid, pk, health, vit, status)
if isCreature(cid) then                                   --alterado v2.5
   if not isCreature(cid) then return true end
   adjustStatus(pk, getPlayerSlotItem(cid, 8).uid, health, vir, status)
end
end

function adjustStatus(pk, item, health, vite, conditions)

    if not isCreature(pk) then return true end

    local bonusoffense = getItemAttribute(item, boffense) or 0
    local bonusdefense = getItemAttribute(item, bdefense) or 0
    local bonusagility = getItemAttribute(item, bagility) or 0
    local bonussattack = getItemAttribute(item, bsattack) or 0

if (getItemAttribute(item, "ehditto") == 1) then
    setPlayerStorageValue(pk, 1000, getItemAttribute(item, "level"))
    setPlayerStorageValue(pk, 1001, getItemAttribute(item, "offense") + bonusoffense * 0.75)
    setPlayerStorageValue(pk, 1002, getItemAttribute(item, "defense") + bonusdefense * 0.75)
    setPlayerStorageValue(pk, 1003, getItemAttribute(item, "speed") + bonusagility * 0.75)
    setPlayerStorageValue(pk, 1005, getItemAttribute(item, "specialattack") + bonussattack * 0.75)
elseif (getItemAttribute(item, "ehshinyditto") == 1) then
    setPlayerStorageValue(pk, 1000, getItemAttribute(item, "level"))
    setPlayerStorageValue(pk, 1001, getItemAttribute(item, "offense") + bonusoffense * 0.50)
    setPlayerStorageValue(pk, 1002, getItemAttribute(item, "defense") + bonusdefense * 0.50)
    setPlayerStorageValue(pk, 1003, getItemAttribute(item, "speed") + bonusagility * 0.50)
    setPlayerStorageValue(pk, 1005, getItemAttribute(item, "specialattack") + bonussattack * 0.50)
else
    setPlayerStorageValue(pk, 1000, getItemAttribute(item, "level"))
    setPlayerStorageValue(pk, 1001, getItemAttribute(item, "offense") + bonusoffense)
    setPlayerStorageValue(pk, 1002, getItemAttribute(item, "defense") + bonusdefense)
    setPlayerStorageValue(pk, 1003, getItemAttribute(item, "speed") + bonusagility)
    setPlayerStorageValue(pk, 1005, getItemAttribute(item, "specialattack") + bonussattack)
end
-- setPlayerStorageValue(pk, 1000, pokes[getCreatureName(pk)].level)
-- setPlayerStorageValue(pk, 1001, pokes[getCreatureName(pk)].offense * (getMasterLevel(pk) + getPokemonBoost(pk)))
-- setPlayerStorageValue(pk, 1002, pokes[getCreatureName(pk)].defense)
-- setPlayerStorageValue(pk, 1003, pokes[getCreatureName(pk)].agility)
-- setPlayerStorageValue(pk, 1004, pokes[getCreatureName(pk)].vitality * (getMasterLevel(pk) + getPokemonBoost(pk)))
-- setPlayerStorageValue(pk, 1005, pokes[getCreatureName(pk)].specialattack * (getMasterLevel(pk) + getPokemonBoost(pk)))
-- end

    local gender = getItemAttribute(item, "gender") and getItemAttribute(item, "gender") or 0
    doCreatureSetSkullType(pk, gender)

    if vite == true then
        local pct = getCreatureHealth(pk) / getCreatureMaxHealth(pk)
        local vit = getItemAttribute(item, "vitality") - getPlayerStorageValue(pk, 1004)
        setCreatureMaxHealth(pk, getCreatureMaxHealth(pk) + ( vit * HPperVIT ))
        doCreatureAddHealth(pk, pct * vit * HPperVIT)
    end

    setPlayerStorageValue(pk, 1004, getItemAttribute(item, "vitality")) -- retirar caso n funfar

    doRegainSpeed(pk)

    local nick = getItemAttribute(item, "poke")
    
    if string.find(tostring(nick), "Shiny") then
       nick = tostring(nick):match("Shiny (.*)")
    end

    if string.find(tostring(nick), "Mega ") then
       nick = tostring(nick):match("Mega (.*)")
    end

    if getItemAttribute(item, "nick") then
        nick = getItemAttribute(item, "nick")
    end

    if isGhostPokemon(pk) then
       setPlayerStorageValue(pk, 8981, 1)
       updateGhostWalk(pk)
    end

    setPlayerStorageValue(pk, 1007, nick)

    local boostlevel = getItemAttribute(item, "boost") or 0
    local boostshow = hideBoost and "]" or " + "..boostlevel.."]"
    local lvlstr = ""

    if showBoostSeparated then
        boostshow = hideBoost and "]" or "] [+"..boostlevel.."]"
    end

    if hideSummonsLevel then
        if not hideBoost then
            nick = nick.." [+"..boostlevel.."]"
    else
        nick = nick.." ["..getItemAttribute(item, "level")..""..boostshow..""
        end
    end

    doCreatureSetNick(pk, nick)

    if not getItemAttribute(item, "happy") then
        doItemSetAttribute(item, "happy", 120)
    end

    if not getItemAttribute(item, "hunger") then
        doItemSetAttribute(item, "hunger", 5)
    end

    local happy = getItemAttribute(item, "happy")
        if happy < 0 then
            happy = 1
        end
    setPlayerStorageValue(pk, 1008, happy)

    local hunger = getItemAttribute(item, "hunger")
    setPlayerStorageValue(pk, 1009, hunger)

    if health == true then
        local mh = getCreatureMaxHealth(pk) + HPperVIT * getVitality(pk)
        local rd = 1 - (tonumber(getItemAttribute(item, "hp")))
        setCreatureMaxHealth(pk, mh)
        doCreatureAddHealth(pk, getCreatureMaxHealth(pk))
        doCreatureAddHealth(pk, -(getCreatureMaxHealth(pk) * rd))
    end

    if isSummon(pk) and conditions then                        --alterado v2.5 daki pra baixo!!
        local burn = getItemAttribute(item, "burn")   
        if burn and burn >= 0 then
           local ret = {id = pk, cd = burn, check = false, damage = getItemAttribute(item, "burndmg"), cond = "Burn"}
           addEvent(doCondition2, 3500, ret)
        end

        local poison = getItemAttribute(item, "poison")
        if poison and poison >= 0 then
           local ret = {id = pk, cd = poison, check = false, damage = getItemAttribute(item, "poisondmg"), cond = "Poison"}
           addEvent(doCondition2, 1500, ret)
        end

        local confuse = getItemAttribute(item, "confuse")
        if confuse and confuse >= 0 then
           local ret = {id = pk, cd = confuse, check = false, cond = "Confusion"}
           addEvent(doCondition2, 1200, ret)                                                --alterado v2.5
        end

        local sleep = getItemAttribute(item, "sleep")
        if sleep and sleep >= 0 then
           local ret = {id = pk, cd = sleep, check = false, first = true, cond = "Sleep"}
           doCondition2(ret)
        end
        
        local miss = getItemAttribute(item, "miss")     
        if miss and miss >= 0 then      
          local ret = {id = pk, cd = miss, eff = getItemAttribute(item, "missEff"), check = false, spell = getItemAttribute(item, "missSpell"), cond = "Miss"}
          doCondition2(ret)
        end
        
        local fear = getItemAttribute(item, "fear")
        if fear and fear >= 0 then
           local ret = {id = pk, cd = fear, check = false, skill = getItemAttribute(item, "fearSkill"), cond = "Fear"}
           doCondition2(ret)
        end
        
        local silence = getItemAttribute(item, "silence")
        if silence and silence >= 0 then      
           local ret = {id = pk, cd = silence, eff = getItemAttribute(item, "silenceEff"), check = false, cond = "Silence"}
           doCondition2(ret)
        end                                     
        
        local stun = getItemAttribute(item, "stun")
        if stun and stun >= 0 then
           local ret = {id = pk, cd = stun, eff = getItemAttribute(item, "stunEff"), check = false, spell = getItemAttribute(item, "stunSpell"), cond = "Stun"}
           doCondition2(ret)
        end 
                                                       
        local paralyze = getItemAttribute(item, "paralyze")
        if paralyze and paralyze >= 0 then
           local ret = {id = pk, cd = paralyze, eff = getItemAttribute(item, "paralyzeEff"), check = false, first = true, cond = "Paralyze"}
           doCondition2(ret)
        end  
                                                     
        local slow = getItemAttribute(item, "slow")
        if slow and slow >= 0 then
           local ret = {id = pk, cd = slow, eff = getItemAttribute(item, "slowEff"), check = false, first = true, cond = "Slow"}
           doCondition2(ret)
        end                                              
        
        local leech = getItemAttribute(item, "leech")
        if leech and leech >= 0 then
           local ret = {id = pk, cd = leech, attacker = 0, check = false, damage = getItemAttribute(item, "leechdmg"), cond = "Leech"}
           doCondition2(ret)
        end                               
        
        for i = 1, 3 do
            local buff = getItemAttribute(item, "Buff"..i)
            if buff and buff >= 0 then
               local ret = {id = pk, cd = buff, eff = getItemAttribute(item, "Buff"..i.."eff"), check = false, 
               buff = getItemAttribute(item, "Buff"..i.."skill"), first = true, attr = "Buff"..i}
               doCondition2(ret)
            end
        end
               
    end
    
    if getItemAttribute(item, "boost") and getItemAttribute(item, "boost") == 50 and getItemAttribute(item, "aura") then
       sendAuraEffect(pk, auraSyst[getItemAttribute(item, "aura")])        --edited aura system
    end
    
    if getPlayerStorageValue(getCreatureMaster(pk), 6598754) >= 1 then
        setPlayerStorageValue(pk, 6598754, 1)                               --edited pvp system
    elseif getPlayerStorageValue(getCreatureMaster(pk), 6598755) >= 1 then
        setPlayerStorageValue(pk, 6598755, 1)
    end

return true
end

function setWildPokemonLevel(cid, optionalLevel, optionalStatus, optionalNick, optionalExtraExp)

    if not isCreature(cid) then return true end
    if not pokes[getCreatureName(cid)] then return true end  --alterado v2.6

    local levelRange = 0
    local off = 0
    local def = 0
    local agi = 0
    local spatk = 0
    local vit = 0
    local this = getCreatureName(cid)
    local ee = 1

    if optionalExtraExp then
        ee = optionalExtraExp
    end

    if optionalLevel and tonumber(optionalLevel) >= 1 then                --alterado v2.8\/
        levelRange = optionalLevel
    else
        levelRange = math.random(pokes[this].wildLvlMin, pokes[this].wildLvlMax) 
    end      

    local status = getPokemonBaseStatus(this)
        if status then
            off = status.off
            def = status.def
            agi = status.agi
            vit = status.vit
            spatk = status.spatk
        end

    setPlayerStorageValue(cid, 1000, (levelRange > 100 and 100 or levelRange)) --alterado v2.8

    if optionalStatus and optionalStatus.off then
        setPlayerStorageValue(cid, 1001, optionalStatus.offense)
        setPlayerStorageValue(cid, 1002, optionalStatus.defense)
        setPlayerStorageValue(cid, 1003, optionalStatus.agility)
        setPlayerStorageValue(cid, 1004, optionalStatus.vitality)
        setPlayerStorageValue(cid, 1005, optionalStatus.specialattack)
        setPlayerStorageValue(cid, 1011, optionalStatus.offense)
        setPlayerStorageValue(cid, 1012, optionalStatus.defense)
        setPlayerStorageValue(cid, 1013, optionalStatus.agility)
        setPlayerStorageValue(cid, 1014, optionalStatus.vitality)
        setPlayerStorageValue(cid, 1015, optionalStatus.specialattack)
    else
        setPlayerStorageValue(cid, 1001, 5 + math.random(off * levelRange * 0.9, off * levelRange * 1.8))
        setPlayerStorageValue(cid, 1002, 5 + math.random(def * levelRange * 0.9, def * levelRange * 1.8))
        setPlayerStorageValue(cid, 1003, math.random(agi * levelRange * 0.9, agi * levelRange * 1.8))
        setPlayerStorageValue(cid, 1004, math.random(vit * levelRange * 0.9, vit * levelRange * 1.8))
        setPlayerStorageValue(cid, 1005, 5 + math.random(spatk * levelRange * 0.9, spatk * levelRange * 1.8))
        setPlayerStorageValue(cid, 1011, getPlayerStorageValue(cid, 1001))
        setPlayerStorageValue(cid, 1012, getPlayerStorageValue(cid, 1002))
        setPlayerStorageValue(cid, 1013, getPlayerStorageValue(cid, 1003))
        setPlayerStorageValue(cid, 1014, getPlayerStorageValue(cid, 1004))
        setPlayerStorageValue(cid, 1015, getPlayerStorageValue(cid, 1005))
    end

    doRegainSpeed(cid)

    setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + getPlayerStorageValue(cid, 1004) * HPperVIT * vitReductionForWild)
    doCreatureAddHealth(cid, getCreatureMaxHealth(cid))
    
    if pokes[getCreatureName(cid)].exp then
        --getMonsterInfo(getCreatureName(cid)).experience
        local exp = (50 + pokes[getCreatureName(cid)].exp) * baseExpRate + pokes[getCreatureName(cid)].vitality * levelRange * pokemonExpPerLevelRate
        setPlayerStorageValue(cid, 1006, exp * generalExpRate * ee)
        if getPlayerStorageValue(cid, 22546) == 1 then
          setPlayerStorageValue(cid, 1006, 750)
          doSetCreatureDropLoot(cid, false)         --edited golden arena
       end  
    end

    local wildshow = wildBeforeNames and "Wild " or ""
    if optionalNick then
        if hideWildsLevel then
            doCreatureSetNick(cid, optionalNick)
        else
            doCreatureSetNick(cid, optionalNick.." ["..getWildPokemonLevel(cid).."]")
        end
    else
        if hideWildsLevel then
            doCreatureSetNick(cid, ""..wildshow..""..getCreatureName(cid).."")
        end
    end
end

function getOffense(cid)
    if not isCreature(cid) then return 0 end

    --[[if getPlayerStorageValue(cid, 3894) >= 1 then
        return tonumber(getPlayerStorageValue(cid, 1001)) / 2
    end ]]

return tonumber(getPlayerStorageValue(cid, 1001))
end

function getDefense(cid)
    if not isCreature(cid) then return 0 end

--[[    if getPlayerStorageValue(cid, 3894) >= 1 then
        return tonumber(getPlayerStorageValue(cid, 1002)) / 2
    end  ]]

return tonumber(getPlayerStorageValue(cid, 1002))
end

function getSpeed(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1003))
end

function getVitality(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1004))
end

function getSpecialAttack(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1005))
end

function getHappiness(cid)
    if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1008))
end

function getSpecialDefense(cid)
    if not isCreature(cid) then return 0 end
return getSpecialAttack(cid) * 0.85 + getDefense(cid) * 0.2
end

function getWildPokemonExp(cid)
return getPlayerStorageValue(cid, 1006)
end

function getWildPokemonLevel(cid)
return getPlayerStorageValue(cid, 1000)
end

function getLevel(cid)
    if isSummon(cid) then
    return getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "level")
    end
return getPlayerStorageValue(cid, 1000)
end

function getPokeName(cid)
    if not isSummon(cid) then return getCreatureName(cid) end
    if getCreatureName(cid) == "Evolution" then return getPlayerStorageValue(cid, 1007) end
    
local item = getPlayerSlotItem(getCreatureMaster(cid),
    if getItemAttribute(item.uid, "nick") then
       return getItemAttribute(item.uid, "nick")
    end
    if string.find(tostring(getCreatureName(cid)), "Shiny") then
      local newName = tostring(getCreatureName(cid)):match("Shiny (.*)")
      return newName
    end
return getCreatureName(cid)
end

function getPokeballName(item, truename)
if not truename and getItemAttribute(item, "nick") then
return getItemAttribute(item, "nick")
end
return getItemAttribute(item, "poke")
end

function getPokemonName(cid)
return getCreatureName(cid)
end

function getMasterLevel(poke)
    if not isSummon(poke) then return 0 end
return getPlayerLevel(getCreatureMaster(poke)) --alterado v2.5
end

function getPokemonBoost(poke)
    if not isSummon(poke) then return 0 end       --alterado v2.5
return getItemAttribute(getPlayerSlotItem(getCreatureMaster(poke), 8).uid, "boost") or 0
end

function getPokemonLevelByName(name)
if tostring(name) then                       --alterado v2.5
   return pokes[name].level
end
return 0
end

function getPokemonLevel(cid)
    if not isCreature(cid) then return 0 end
return getPlayerStorageValue(cid, 1000)
end

function getPokemonGender(cid)
return getCreatureSkullType(cid)
end

se precisar do level table me avise

Editado Outubro 4, 2016 por wevertonvrb

[wevertonvrb 25]

up

[wevertonvrb 25]

up