Level dos pokemon são um sistema completo no caso você teria que colocar o aqui no post

 

data/lib/Somefuncitions.lua

data/lib/level sistem.lua

data/creaturescripte/exp2.0.lua

 

@off Anna entra em contato cmg add skype: lord sorte preciso falar ctg.

Mande os arquivos que o kttallan falou.

 

@Off kttallan irei adiciona mais agora não posso entrar estou escaneando o meu PC por completo (--

Editado Setembro 19, 2014 10 anos por AnnaFeeh (veja o histórico de edições)

Os Scripts são muito grandes então vou postar de um em um '-'

 

exp.lua

 

 

local combats = {                         --alterado v2.6 \/

[PSYCHICDAMAGE] = {cor = COLOR_PSYCHIC},

[GRASSDAMAGE] = {cor = COLOR_GRASS},

[POISONEDDAMAGE] = {cor = COLOR_GRASS},

[FIREDAMAGE] = {cor = COLOR_FIRE2},                         

[bURNEDDAMAGE] = {cor = COLOR_BURN},

[WATERDAMAGE] = {cor = COLOR_WATER},

[iCEDAMAGE] = {cor = COLOR_ICE},

[NORMALDAMAGE] = {cor = COLOR_NORMAL},

[FLYDAMAGE] = {cor = COLOR_FLYING},           

[GHOSTDAMAGE] = {cor = COLOR_GHOST},

[GROUNDDAMAGE] = {cor = COLOR_GROUND},

[ELECTRICDAMAGE] = {cor = COLOR_ELECTRIC},

[ROCKDAMAGE] = {cor = COLOR_ROCK},

[bUGDAMAGE] = {cor = COLOR_BUG},

[FIGHTDAMAGE] = {cor = COLOR_FIGHTING},

[DRAGONDAMAGE] = {cor = COLOR_DRAGON},

[POISONDAMAGE] = {cor = COLOR_POISON},

[DARKDAMAGE] = {cor = COLOR_DARK},               

[sTEELDAMAGE] = {cor = COLOR_STEEL},

[MIRACLEDAMAGE] = {cor = COLOR_PSYCHIC},  

[DARK_EYEDAMAGE] = {cor = COLOR_GHOST},

[sEED_BOMBDAMAGE] = {cor = COLOR_GRASS},

[sACREDDAMAGE] = {cor = COLOR_FIRE2}, 

[MUDBOMBDAMAGE] = {cor = COLOR_GROUND}, --alterado v2.9

}

 

local function sendPlayerDmgMsg(cid, text)

if not isCreature(cid) then return true end

doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, text)

end

 

local spcevo = {

["Poliwhirl"] = {"Poliwrath", "Politoed"},

["Gloom"] = {"Bellossom", "Vileplume"},

["Tyrogue"] = {"Hitmonchan", "Hitmontop", "Hitmonlee"}}

 

local function doEvolveWild(cid)

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

local name = getCreatureName(cid)

local evolution = "none"

if spcevo[name] then

evolution = spcevo[name][math.random(1, #spcevo[name])]

elseif poevo[name] then

evolution = poevo[name].evolution

end

local a = getPokemonStatus(name)

if not a or evolution == "none" then return true end

local pk = {}

local players = getSpectators(getThingPos(cid), 7, 7)

if players then

for pp = 1, #players do

local this = players[pp]

if isCreature(this) and isPlayer(this) and (getCreatureTarget(this) == cid or getDamageMapPercent(this, cid) > 0) then

doSendMagicEffect(getThingPos(this), 173)

local expstring = cid.."expEx"

pk[this] = getItemAttribute(getPlayerSlotItem(this, 8).uid, expstring)

doItemSetAttribute(getPlayerSlotItem(this, 8).uid, expstring, 0)

end

end

end

local level = getPokemonLevel(cid)

local pos = getThingPos(cid)

local gender = getCreatureSkull(cid)

local lifepercentage = 1 - ((getCreatureHealth(cid) * 1.3) / getCreatureMaxHealth(cid))

local lookdir = getCreatureLookDir(cid)

local status = {}

status.offense = getOffense(cid) + a.off * 8

status.defense = getDefense(cid) + a.def * 8

status.agi = getSpeed(cid) + a.agi * 8

status.spatk = getSpecialAttack(cid) + a.spatk * 8

status.vit = getVitality(cid) + a.vit * 4

doRemoveCreature(cid)

local evo = doCreateMonster(evolution, pos)

setWildPokemonLevel(evo, level, status)

doCreatureSetLookDir(evo, lookdir)

doCreatureSetSkullType(evo, gender)

doCreatureAddHealth(evo, -getCreatureMaxHealth(evo) * lifepercentage)

doSendMagicEffect(getThingPos(evo), 18)

for attacker, experience in pairs (pk) do

doWildAttackPlayer(evo, attacker)

local expstring = evo.."expEx"

local exp = experience or 0

doItemSetAttribute(getPlayerSlotItem(attacker, 8).uid, expstring, exp)

end

sendFinishEvolutionEffect(evo, true)

addEvent(sendFinishEvolutionEffect, 550, evo, true)

addEvent(sendFinishEvolutionEffect, 1050, evo)

end

 

local races = {

[4] = {cor = COLOR_FIRE2},

[6] = {cor = COLOR_WATER},

[7] = {cor = COLOR_NORMAL},

[8] = {cor = COLOR_FIRE2},

[9] = {cor = COLOR_FIGHTING},

[10] = {cor = COLOR_FLYING},

[11] = {cor = COLOR_GRASS},

[12] = {cor = COLOR_POISON},

[13] = {cor = COLOR_ELECTRIC},

[14] = {cor = COLOR_GROUND},

[15] = {cor = COLOR_PSYCHIC},

[16] = {cor = COLOR_ROCK},

[17] = {cor = COLOR_ICE},

[18] = {cor = COLOR_BUG},

[19] = {cor = COLOR_DRAGON},

[20] = {cor = COLOR_GHOST},

[21] = {cor = COLOR_STEEL},

[22] = {cor = COLOR_DARK},

[1] = {cor = 180},

[2] = {cor = 180},

[3] = {cor = 180},

[5] = {cor = 180},

}

 

   

local damages = {GROUNDDAMAGE, ELECTRICDAMAGE, ROCKDAMAGE, FLYDAMAGE, BUGDAMAGE, FIGHTINGDAMAGE, DRAGONDAMAGE, POISONDAMAGE, DARKDAMAGE, STEELDAMAGE}

local fixdmgs = {PSYCHICDAMAGE, COMBAT_PHYSICALDAMAGE, GRASSDAMAGE, FIREDAMAGE, WATERDAMAGE, ICEDAMAGE, NORMALDAMAGE, GHOSTDAMAGE}

local ignored = {POISONEDDAMAGE, BURNEDDAMAGE}                --alterado v2.6

local cannotkill = {BURNEDDAMAGE, POISONEDDAMAGE} 

 

function onStatsChange(cid, attacker, type, combat, value)

 

if combat == FLYSYSTEMDAMAGE then return false end

if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TV

 

local damageCombat = combat

 

if not isCreature(attacker) then  --alterado v2.5 cid == attacker

if not isInArray(fixdamages, combat) and combats[combat] then

doSendAnimatedText(getThingPos(cid), value, combats[combat].cor)

end

return true

end

 

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

--alterado v2.6  retirado os combats sleep_powder e poison_powder daki!

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

if isMonster(cid) then

local valor = value

   if not pokes[getCreatureName(cid)] and damageCombat == COMBAT_PHYSICALDAMAGE then

      valor = getOffense(attacker) * playerDamageReduction

      doCreatureAddHealth(cid, -math.abs(valor), 3, races[7].cor)                       --alterado v2.6 dano nos npcs

      return false

   elseif not pokes[getCreatureName(cid)] and damageCombat ~= COMBAT_PHYSICALDAMAGE then

      doCreatureAddHealth(cid, -math.abs(valor), 3, combats[damageCombat].cor)

      return false

   end

end

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

 

if isPlayer(attacker) then

 

local valor = value

if valor > getCreatureHealth(cid) then

valor = getCreatureHealth(cid)

end

 

if combat == COMBAT_PHYSICALDAMAGE then

return false

end

 

if combat == PHYSICALDAMAGE then

doSendMagicEffect(getThingPos(cid), 3)

doSendAnimatedText(getThingPos(cid), valor, races[getMonsterInfo(getCreatureName(cid)).race].cor)

end

 

if combats[damageCombat] and not isInArray(fixdmgs, damageCombat) then

doSendAnimatedText(getThingPos(cid), valor, combats[damageCombat].cor)

end

 

if #getCreatureSummons(attacker) >= 1 and not isInArray({POISONEDDAMAGE, BURNEDDAMAGE}, combat) then

doPlayerSendTextMessage(attacker, MESSAGE_STATUS_DEFAULT, "Your "..getPokeName(getCreatureSummons(attacker)[1]).." dealt "..valor.." damage to "..getSomeoneDescription(cid)..".")

end

 

return true

end

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

if isPlayer(cid) and #getCreatureSummons(cid) >= 1 and type == STATSCHANGE_HEALTHLOSS then

return false                                                                           

end

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

if isPlayer(cid) and #getCreatureSummons(cid) <= 0 and type == STATSCHANGE_HEALTHLOSS then

 

if isSummon(attacker) or isPlayer(attacker) then

   if canAttackOther(cid, attacker) == "Cant" then return false end

end

 

local valor = 0

if combat == COMBAT_PHYSICALDAMAGE then

valor = getOffense(attacker)

else

valor = getSpecialAttack(attacker)

end

 

valor = valor * playerDamageReduction

valor = valor * math.random(83, 117) / 100

 

if valor >= getCreatureHealth(cid) then

valor = getCreatureHealth(cid)

end

 

valor = math.floor(valor)

 

    if valor >= getCreatureHealth(cid) then

       if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then

          setPlayerStorageValue(cid, 6598754, -1)

          setPlayerStorageValue(cid, 6598755, -1)

          doRemoveCondition(cid, CONDITION_OUTFIT)             --alterado v2.7

          doTeleportThing(cid, posBackPVP, false)

          doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

          return false

       end

       if getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 then

          doRemoveCondition(cid, CONDITION_OUTFIT)

          setPlayerStorageValue(cid, 17000, 0)

          setPlayerStorageValue(cid, 17001, 0)

          setPlayerStorageValue(cid, 63215, -1) 

          doChangeSpeed(cid, PlayerSpeed)

          local item = getPlayerSlotItem(cid, 8)

          local btype = getPokeballType(item.itemid)

          if #getCreatureSummons(cid) <= 0 then

      if isInArray(pokeballs[btype].all, item.itemid) then

      doTransformItem(item.uid, pokeballs[btype].off)

      doItemSetAttribute(item.uid, "hp", 0)

             end

          end

      end

      if getPlayerStorageValue(cid, 22545) == 1 then

         if getGlobalStorageValue(22550) == 1 then

            doPlayerSendTextMessage(cid, 20, "You are the last survivor of the golden arena! Take your reward!")

            doPlayerAddItem(cid, 2152, getPlayerStorageValue(cid, 22551)*2)  

            setPlayerStorageValue(cid, 22545, -1)

            doTeleportThing(cid, getClosestFreeTile(cid, getClosestFreeTile(cid, posBackGolden)), false)  

            doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))

            setPlayerRecordWaves(cid)     

            endGoldenArena()

            return false           

         else

             setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)

             setPlayerStorageValue(cid, 22545, -1)

             doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)    

             doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))

             setPlayerRecordWaves(cid)     

             return false

         end 

      end

      

      local corpse = doCreateItem(3058, 1, getThingPos(cid))

      doDecayItem(corpse)

      doItemSetAttribute(corpse, "pName", getCreatureName(cid))          --alterado v2.7 coloca corpse quando o player morre!

      doItemSetAttribute(corpse, "attacker", getCreatureName(attacker))

      doItemSetAttribute(corpse, "article", getPlayerSex(cid) == 0 and "She" or "He") 

      

      if getPlayerStorageValue(cid, 98796) >= 1 then

        setPlayerStorageValue(cid, 98796, -1) 

        setPlayerStorageValue(cid, 98797, -1)                      --alterado v2.8

        doTeleportThing(cid, SafariOut, false)

        doSendMagicEffect(getThingPos(cid), 21)

        doPlayerSendTextMessage(cid, 27, "You die in the saffari...")

        return false

      end

      if getPlayerStorageValue(cid, Agatha.stoIni) >= 1 and getPlayerStorageValue(cid, Agatha.stoIni) <= 10 then

          setPlayerStorageValue(cid, Agatha.stoIni, -1)

          setPlayerStorageValue(cid, Agatha.stoRec, -1)

          setPlayerStorageValue(cid, Agatha.stoPer, -1)

          setPlayerStorageValue(cid, Agatha.stoEni, -1)        --alterado v2.9  agatha quest

          setPlayerStorageValue(cid, Agatha.stoRes, -1)

      end 

   end

doCreatureAddHealth(cid, -valor, 3, 180)

if not isPlayer(cid) and valor > 0 then

  addEvent(sendPlayerDmgMsg, 5, cid, "You lost "..valor.." hitpoints due to an attack from "..getSomeoneDescription(attacker)..".")

end

return false

end

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

if type == STATSCHANGE_HEALTHGAIN then

if cid == attacker then

return true

end

if isSummon(cid) and isSummon(attacker) and canAttackOther(cid, attacker) == "Cant" then

return false

end

return true

end

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

if isMonster(attacker) and getPlayerStorageValue(attacker, 201) ~= -1 then

if isPlayer(cid) then

return false

end

if getPlayerStorageValue(getCreatureMaster(cid), ginasios[getPlayerStorageValue(attacker, 201)].storage) ~= 1 then

return false

end

end

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

if isMonster(cid) and getPlayerStorageValue(cid, 201) ~= -1 then

if getPlayerStorageValue(getCreatureMaster(attacker), ginasios[getPlayerStorageValue(cid, 201)].storage) ~= 1 then

return false

end

end

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

if ehMonstro(cid) and ehMonstro(attacker) and not isSummon(cid) and not isSummon(attacker) then 

return false                                          --alterado v2.9 /\

end

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

--------------------REFLECT-----------------------

if getPlayerStorageValue(cid, 21099) >= 1 and combat ~= COMBAT_PHYSICALDAMAGE then

   if not isInArray({"Team Claw", "Team Slice"}, getPlayerStorageValue(attacker, 21102)) then

      doSendMagicEffect(getThingPosWithDebug(cid), 135)

      doSendAnimatedText(getThingPosWithDebug(cid), "REFLECT", COLOR_GRASS)

      addEvent(docastspell, 100, cid, getPlayerStorageValue(attacker, 21102))

      if getCreatureName(cid) == "Wobbuffet" then

         doRemoveCondition(cid, CONDITION_OUTFIT)    

      end

      setPlayerStorageValue(cid, 21099, -1)                    --alterado v2.6

      setPlayerStorageValue(cid, 21100, 1)

      setPlayerStorageValue(cid, 21101, attacker)

      setPlayerStorageValue(cid, 21103, getTableMove(attacker, getPlayerStorageValue(attacker, 21102)).f)

      setPlayerStorageValue(cid, 21104, getCreatureOutfit(attacker).lookType)

      return false

   end

end

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

 

local multiplier = 1    

 

   if isCreature(cid) then

      poketype1 = pokes[getCreatureName(cid)].type        --alterado v2.6

      poketype2 = pokes[getCreatureName(cid)].type2

   end

   if not poketype1 or not poketype2 then return false end  --alterado v2.6

 

if getCreatureCondition(cid, CONDITION_INVISIBLE) then

return false

end

 

if damageCombat ~= COMBAT_PHYSICALDAMAGE and not isInArray(ignored, damageCombat) then

if isInArray(effectiveness[damageCombat].super, poketype1) then

multiplier = multiplier + 0.5

end

if isInArray(effectiveness[damageCombat].super, poketype2) then

multiplier = multiplier + 0.5

end

if isInArray(effectiveness[damageCombat].weak, poketype1) then

multiplier = multiplier - 0.25          --alterado v2.3  efetividade q nem na pxg...

end

if isInArray(effectiveness[damageCombat].weak, poketype2) then

multiplier = multiplier - 0.25

end

if isInArray(effectiveness[damageCombat].non, poketype1) or isInArray(effectiveness[damageCombat].non, poketype2) then

if isInArray(specialabilities["foresight"], getCreatureName(attacker)) then   --alterado v2.5

           multiplier = 0.5           --alterado v2.6      

        end

end

elseif combat == COMBAT_PHYSICALDAMAGE then

if isGhostPokemon(cid) then     --alterado v2.3

                            

       if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then  --alterado v2.5

          doSendMagicEffect(getThingPos(cid), 3)     

     return false

       end

    end

    

local cd = getPlayerStorageValue(attacker, conds["Miss"])

        local cd2 = getPlayerStorageValue(attacker, conds["Confusion"])      --alterado v2.5

        local cd3 = getPlayerStorageValue(attacker, conds["Stun"])            

        if cd >= 0 or cd2 >= 0 or cd3 >= 0 then

           if math.random(1, 100) > 50 then  --50% chance de da miss no atk fisico

     doSendMagicEffect(getThingPos(cid), 211)

     doSendAnimatedText(getThingPos(attacker), "MISS", 215)

     return false

           end

        end

end

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

local valor = value

 

if multiplier == 1.5 and poketype2 == "no type" then

        multiplier = 2                                         --alterado v2.6

    elseif multiplier == 1.5 and poketype2 ~= "no type" then

    multiplier = 1.75       

elseif multiplier == 1.25 then    --edited effetivines = pxg

multiplier = 1    

end

 

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

if isSummon(cid) and isSummon(attacker) then

        if getCreatureMaster(cid) == getCreatureMaster(attacker) then

           return false

        end

if canAttackOther(cid, attacker) == "Cant" then

           return false

        end

end

 

local randomRange = math.random(83, 117) / 100

local block = 1

 

    if not isPlayer(cid) then

 

    if combat == COMBAT_PHYSICALDAMAGE then

--[[local value = getOffense(attacker) > 1000 and 3 or 2

       block = 1 - (getDefense(cid) / (getOffense(attacker) + getDefense(cid))) --alterado v1.9 testem essa nova formula plzzz '--'

   valor = (getOffense(attacker)/value) * block

  

   if valor <= 0 then

     valor = math.random(5, 10) --alterado v1.9

       end]]

       

       block = 1 - (getDefense(cid) / (getOffense(attacker) + getDefense(cid)))

if getPokemonGender(attacker) == SEX_MALE then

block = block + 0.2

end

if getPokemonGender(cid) == SEX_FEMALE then

block = block - 0.2

end

       valor = getOffense(attacker) * block

      

       if getOffenseInRage(attacker) >= 1500 then   --alterado v2.8

          valor = valor * 0.3

       end

 

        if isInArray(specialabilities["counter"], getCreatureName(cid)) then

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

        doCreatureAddHealth(attacker, -valor, 3, 180)    --alterado v2.5

        valor = 0

        doSendAnimatedText(getThingPosWithDebug(cid), "COUNTER", 215)

          end

        end

else

block = 1 - (getDefense(cid) / (getSpecialAttack(attacker) + getDefense(cid)))

        valor = valor * block * generalSpecialAttackReduction

if isSummon(cid) then

valor = valor * summonSpecialDamageReduction - getPokemonLevel(cid) / 2

end  

end

end

 

valor = valor * multiplier

valor = valor * randomRange

 

if isSummon(attacker) then

valor = valor * getHappinessRate(attacker)

else

valor = valor * summonReduction

end

 

valor = math.floor(valor)

 

if combat == BURNEDDAMAGE then

valor = value * getResistance(cid, FIREDAMAGE)

elseif combat == POISONEDDAMAGE then

valor = value * getResistance(cid, POISONDAMAGE)

end

 

if math.random(1, 100) == 4 and not isInArray(ignorecritical, combat) then

doSendAnimatedText(getThingPos(attacker), "CRITICAL", 215)

valor = valor * 2

end

 

    -------------------------Edited CLAN SYSTEM-----------------------------------

    if isSummon(attacker) and getPlayerStorageValue(getCreatureMaster(attacker), 86228) >= 1 then

       valor = valor*getClanPorcent(getCreatureMaster(attacker), combat, "atk")

    elseif isSummon(cid) and getPlayerStorageValue(getCreatureMaster(cid), 86228) >= 1 then    --alterado v2.3

       valor = valor - (valor*getClanPorcent(getCreatureMaster(cid), combat, "def", pokes[getCreatureName(cid)].type, pokes[getCreatureName(cid)].type2))

    end

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

    

    ---------------------- Edited Proteção --------------------------------

    if valor <= 10 then

       valor = math.random(15, 25)

    end

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

    ---------------------- FEAR / ROAR ------------------------------------

    if getPlayerStorageValue(attacker, conds["Fear"]) >= 1 then         --alterado v2.5!!

    return true

    end

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

if damageCombat ~= COMBAT_PHYSICALDAMAGE and not isInArray(ignored, damageCombat) then

   if isInArray(effectiveness[damageCombat].non, poketype1) or isInArray(effectiveness[damageCombat].non, poketype2) then

      if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) and getPlayerStorageValue(attacker, 999457) <= 0 then

         valor = valor * 0                      --alterado v2.5

      end

   end

end

 

if damageCombat == GROUNDDAMAGE then

   if isInArray(specialabilities["levitate"], getCreatureName(cid)) then

      valor = 0                      --alterado v2.5

   end

end

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

local p = getThingPos(cid)                     --poke na pos backup

if p.x == 1 and p.y == 1 and p.z == 10 then

return false                                     --alterado v2.2

end

 

if getPlayerStorageValue(cid, 9658783) == 1 then

return false      --alterado v2.4 -- skill camuflage/future sight/acid armor e afins

end

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

 

--------------- FIGHT MODE -----------------------

if useOTClient then

if isSummon(cid) then                                  --alterado v2.7 soh funciona com o OTClient q eu disponibilizei...

   local master = getCreatureMaster(cid)

   if getPlayerStorageValue(master, 248759) == 1 then

      valor = valor * 1.1

   elseif getPlayerStorageValue(master, 248759) == 3 then

      valor = valor * 0.9

   end

end

if isSummon(attacker) then

   local master = getCreatureMaster(attacker)

   if getPlayerStorageValue(master, 248759) == 1 then

      valor = valor * 1.1

   elseif getPlayerStorageValue(master, 248759) == 3 then

      valor = valor * 0.9

   end

end 

end   

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

    

if valor >= getCreatureHealth(cid) then

if isInArray(cannotKill, combat) and isPlayer(cid) then

valor = getCreatureHealth(cid) - 1

else

valor = getCreatureHealth(cid)

end

end

valor = math.floor(valor)  --alterado v2.5

 

------------------ SKILLs Q CURAM O ATTACKER ---------------------------------

local function doHeal(cid, amount)

if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then

   amount = math.abs(getCreatureHealth(cid)-getCreatureMaxHealth(cid))

end

if getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then           --alterado v2.6

   doCreatureAddHealth(cid, amount)

   doSendAnimatedText(getThingPosWithDebug(cid), "+"..amount.."", 65) 

end

end

          

if damageCombat == PSYCHICDAMAGE or damageCombat == MIRACLEDAMAGE then

   if getPlayerStorageValue(attacker, 95487) >= 1 then

      doHeal(attacker, valor)

      setPlayerStorageValue(attacker, 95487, -1)                  --alterado v2.6

   end

elseif damageCombat == SEED_BOMBDAMAGE then

   doHeal(attacker, valor)

end

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

----------SACRED FIRE-----------------------

if combat == SACREDDAMAGE and not ehNPC(cid) then    --alterado v2.6

   local ret = {}

   ret.id = cid

   ret.cd = 9

   ret.check = getPlayerStorageValue(cid, conds["Silence"])

   ret.eff = 39

   ret.cond = "Silence"

 

   doCondition2(ret)

elseif combat == MUDBOMBDAMAGE and not ehNPC(cid) then

   local ret = {}                                        --alterado v2.8

   ret.id = cid

   ret.cd = 9

   ret.eff = 34

   ret.check = getPlayerStorageValue(cid, conds["Miss"])

   ret.spell = "Mud Bomb"       --alterado v2.9

   ret.cond = "Miss"

   

   doCondition2(ret)

end

--------------Passiva Lifesteal Clobat------------

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Crobat" then                    --alterado v2.4

      doCreatureAddHealth(attacker, math.floor(valor))

      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)

   end

end

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

   valor = math.abs(valor)    --alterado v2.9

   

if isSummon(attacker) and not isSummon(cid) and not isPlayer(cid) then

      local expstring = cid.."expEx"

      if getItemAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, expstring) == null then

doItemSetAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, expstring, 0)

end

 

local exp = valor / getCreatureMaxHealth(cid)

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8).uid

 

doItemSetAttribute(ball, expstring, getItemAttribute(ball, expstring) + exp)

if getItemAttribute(ball, expstring) > 1 then

doItemSetAttribute(ball, expstring, 1)

end

end

 

if isSummon(attacker) then

if combat == COMBAT_PHYSICALDAMAGE then

doTargetCombatHealth(getCreatureMaster(attacker), cid, PHYSICALDAMAGE, -valor, -valor, 255)

   addEvent(doDoubleHit, 1000, attacker, cid, valor, races)      --alterado v2.6    agility

        else

doTargetCombatHealth(getCreatureMaster(attacker), cid, damageCombat, -valor, -valor, 255)

end

else

if combat ~= COMBAT_PHYSICALDAMAGE then

doCreatureAddHealth(cid, -math.abs(valor), 3, combats[damageCombat].cor)

else

doCreatureAddHealth(cid, -math.abs(valor), 3, races[getMonsterInfo(getCreatureName(cid)).race].cor)

   addEvent(doDoubleHit, 1000, attacker, cid, valor, races)   --alterado v2.6   agility

        end

 

if isSummon(cid) then

addEvent(sendPlayerDmgMsg, 5, getCreatureMaster(cid), "Your "..getCreatureName(cid).." lost "..valor.." hitpoints due to an attack from "..getSomeoneDescription(attacker)..".")

end

 

end

 

if damageCombat == FIREDAMAGE and not isBurning(cid) then

  local ret = {}

  ret.id = cid

  ret.cd = math.random(5, 12)                             --alterado v2.5

  ret.check = getPlayerStorageValue(cid, conds["Burn"])

  ret.damage = isSummon(attacker) and getMasterLevel(attacker)+getPokemonBoost(attacker) or getPokemonLevel(attacker)

  ret.cond = "Burn"

  

  doCondition2(ret)

    elseif damageCombat == POISONDAMAGE and not isPoisoned(cid) then

       local ret = {}

  ret.id = cid

  ret.cd = math.random(6, 15)                              --alterado v2.5

  ret.check = getPlayerStorageValue(cid, conds["Poison"])

  local lvl = isSummon(attacker) and getMasterLevel(attacker) or getPokemonLevel(attacker)

       ret.damage = math.floor((getPokemonLevel(attacker)+lvl)/2)

  ret.cond = "Poison"

  

  doCondition2(ret)

    end

------------------------------------POTIONS-------------------------------------------

if isSummon(cid) and type == STATSCHANGE_HEALTHLOSS then

   if getPlayerStorageValue(cid, 173) >= 1 then

      if damageCombat ~= BURNEDDAMAGE and damageCombat ~= POISONEDDAMAGE then

         setPlayerStorageValue(cid, 173, -1)  --alterado v2.6

         doSendAnimatedText(getThingPos(cid), "Lost Heal", 144)

      end

   end

end

----------------------------------------PASSIVAS------------------------------------- --alterado v2.7 \/ 

-------------------------------------------Counter Helix------------------------------------

if passivesChances["Helix"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Helix"][getCreatureName(cid)] then

   docastspell(cid, "Counter Helix")

end

-------------------------------------------Lava Counter/Electricity----------------------------

if passivesChances["Fire_Thunder"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Fire_Thunder"][getCreatureName(cid)] then

   docastspell(cid, "Lava-Electricity")

end

---------------------------------------Stunning Confusion-----------------------------------------

if passivesChances["Stunning"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Stunning"][getCreatureName(cid)] then  

   docastspell(cid, "Stunning Confusion")

end

-----------------------------------------Groundshock-----------------------------------

if passivesChances["Groundshock"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Groundshock"][getCreatureName(cid)] then

   docastspell(cid, "Groundshock")

end

--------------------------------------Electric Charge---------------------------------------------

if passivesChances["Electric Charge"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Electric Charge"][getCreatureName(cid)] then

   docastspell(cid, "Electric Charge", 0, 0)

end

-------------------------------------Melody------------------------------------

if passivesChances["Melody"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Melody"][getCreatureName(cid)] then 

   docastspell(cid, "Melody")

end

------------------------------------- Dragon Fury / Fury ---------------------------------------

if passivesChances["Dragon Fury"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Dragon Fury"][getCreatureName(cid)] then

   docastspell(cid, "Dragon Fury", 0, 0)

end

------------------------------------- Mega Drain ---------------------------------------

if passivesChances["Mega Drain"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Mega Drain"][getCreatureName(cid)] then

   docastspell(cid, "Mega Drain")

end

------------------------------------- Spores Reaction ---------------------------------------

if passivesChances["Spores Reaction"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Spores Reaction"][getCreatureName(cid)] then

   docastspell(cid, "Spores Reaction")

end

------------------------------------ Amnesia ----------------------------------------   

if passivesChances["Amnesia"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Amnesia"][getCreatureName(cid)] then 

   docastspell(cid, "Amnesia", 0, 0)

end

----------------------------------- Zen Mind -----------------------------------------

if passivesChances["Zen Mind"][getCreatureName(cid)] and isWithCondition(cid) and math.random(1, 100) <= passivesChances["Zen Mind"][getCreatureName(cid)] then

   docastspell(cid, "Zen Mind", 0, 0)

end

---------------------------------- Mirror Coat ---------------------------------------

if passivesChances["Mirror Coat"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Mirror Coat"][getCreatureName(cid)] then   

   docastspell(cid, "Mirror Coat", 0, 0)

end

--------------------------------- Illusion -----------------------------------------

return false

end

 

level system.lua

 

 

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)                --alterado v2.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

   path = "data/monster/pokes/geracao 4/"..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 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, 8)

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

                                                                  --alterado v2.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 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 = 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 > 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).."")

else

doCreatureSetNick(cid, ""..wildshow..""..getCreatureName(cid).." ["..getWildPokemonLevel(cid).."]")

end

end

end

 

function getOffenseInRage(cid)  --alterado v2.8

if not isCreature(cid) then return 0 end

 

if getPlayerStorageValue(cid, 547888) >= 1 then

return tonumber(getPlayerStorageValue(cid, 1001)) / 2

end 

 

return tonumber(getPlayerStorageValue(cid, 1001))

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), 8)

if getItemAttribute(item.uid, "nick") then                          --alterado v2.7

  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 getPokeballBoost(ball)

    if not isPokeball(ball.itemid) then return 0 end  --alterado v2.8

return getItemAttribute(ball.uid, "boost") or 0

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)

return pokes[name] and pokes[name].level or 0  --alterado v2.9

end

 

function getPokemonLevel(cid)

if not isCreature(cid) then return 0 end

return getPlayerStorageValue(cid, 1000)

end

 

function getPokemonGender(cid)

return getCreatureSkullType(cid)

end

 

function setPokemonGender(cid, gender)

if isCreature(cid) and gender then        --alterado v2.8

   doCreatureSetSkullType(cid, gender)

   return true

end

return false

end

 

e some functions.lua

 

 

function addPokeToPlayer(cid, pokemon, level, extStr, gender, boost, ball, unique)             --alterado v2.9 \/ peguem ele todo...

local genders = {

["male"] = 4,

["female"] = 3,

[1] = 4,

[0] = 3,

[4] = 4,

[3] = 3,

}

if not isCreature(cid) then return false end

 

local pokemon = doCorrectString(pokemon)

if not pokes[pokemon] then return false end

 

   local GENDER = (gender and genders[gender]) and genders[gender] or getRandomGenderByName(pokemon)

   local btype = (ball and pokeballs[ball]) and ball or isShinyName(pokemon) and "shinynormal" or "normal"

   local happy = 250

   local level = tonumber(level) and tonumber(level) or pokes[pokemon].level

   local extra = tonumber(extStr) and tonumber(extStr) or 1

   local mypoke = pokes[pokemon]

 

   if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then 

      item = doCreateItemEx(11826)

   else

      item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, 11826, 1)   

   end

   if not item then return false end

   

   local off = mypoke.offense * level * extra

   local def = mypoke.defense * level * extra

   local sp = mypoke.specialattack * level * extra

   local vit = mypoke.vitality * level * extra

   local agi = mypoke.agility * level * extra

   local leveltable = getPokemonExperienceTable(pokemon)

 

   doItemSetAttribute(item, "poke", pokemon)

   doItemSetAttribute(item, "hp", 1)

   

   doItemSetAttribute(item, "level", level)

   doItemSetAttribute(item, "exp", leveltable[level])

   doItemSetAttribute(item, "nextlevelexp", leveltable[level+1] - leveltable[level])

   doItemSetAttribute(item, "offense", off)   

   doItemSetAttribute(item, "defense", def)

   doItemSetAttribute(item, "speed", agi)

   doItemSetAttribute(item, "vitality", vit)

   doItemSetAttribute(item, "specialattack", sp)

   

   doItemSetAttribute(item, "happy", happy)

   doItemSetAttribute(item, "gender", GENDER)

   doSetItemAttribute(item, "hands", 0)

   doItemSetAttribute(item, "description", "Contains a "..pokemon..".")

   doItemSetAttribute(item, "fakedesc", "Contains a "..pokemon..".") 

   if boost and tonumber(boost) and tonumber(boost) > 0 and tonumber(boost) <= 50 then     

      local off = mypoke.offense * boost_rate * tonumber(boost)

      local def = mypoke.defense * boost_rate * tonumber(boost)

      local agi = mypoke.agility * tonumber(boost)

      local spatk = mypoke.specialattack * boost_rate * tonumber(boost)

      local vit = mypoke.vitality * boost_rate * tonumber(boost)

 

      doItemSetAttribute(item, "boost", tonumber(boost))

      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)

   end

   if unique then

      doItemSetAttribute(item, "unique", getCreatureName(cid))

   end

                                                                             

   if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then

      doPlayerSendMailByName(getCreatureName(cid), item, 1)

      sendMsgToPlayer(cid, 27, "You are already holding six pokemons, so your new pokemon was sent to your depot.")

   end

   if (isShinyName(pokemon) or (boost and tonumber(boost) and tonumber(boost) >= 10)) and pokeballs["shiny"..btype] then

      doTransformItem(item, pokeballs["shiny"..btype].on)

   else

      doTransformItem(item, pokeballs[btype].on)

   end

return true

end 

 

function unLock(ball)                                                            

if not ball or ball <= 0 then return false end

if getItemAttribute(ball, "lock") and getItemAttribute(ball, "lock") > 0 then

   local vipTime = getItemAttribute(ball, "lock")

   local timeNow = os.time()

   local days = math.ceil((vipTime - timeNow)/(24 * 60 * 60))

   if days <= 0 then

      doItemEraseAttribute(ball, "lock")

      doItemEraseAttribute(ball, "unique")

      return true

   end

end

return false

end

 

function getGuildMembersOnline(GuildId)

local players = {}

for _, pid in pairs(getPlayersOnline()) do

    if getPlayerGuildId(pid) == tonumber(GuildId) then

       table.insert(players, pid)

    end

end                                                   --by Vodkart

return #players > 0 and players or false

end

 

function getGuildMembers(GuildId)

local players,query = {},db.getResult("SELECT `name` FROM `players` WHERE `rank_id` IN (SELECT `id` FROM `guild_ranks` WHERE `guild_id` = " .. GuildId .. ");")

if (query:getID() ~= -1) then  

   repeat

         table.insert(players,query:getDataString("name"))

   until not query:next()                           --by Vodkart

   query:free()

end

return #players > 0 and players or false

end 

--/////////////////////////////////////////////////////////////////////////////////---

function sendMsgToPlayer(cid, tpw, msg)      

if not isCreature(cid) or not tpw or not msg then return true end

doPlayerSendTextMessage(cid, tpw, msg)

end

 

function getPlayerDesc(cid, thing, TV)

if (not isCreature(cid) or not isCreature(thing)) and not TV then return "" end

 

local pos = getThingPos(thing)

local ocup = youAre[getPlayerGroupId(thing)]

local rank = (getPlayerStorageValue(thing, 86228) <= 0) and "a Pokemon Trainer" or lookClans[getPlayerStorageValue(thing, 86228)][getPlayerStorageValue(thing, 862281)]

local name = thing == cid and "yourself" or getCreatureName(thing)     

local art = thing == cid and "You are" or (getPlayerSex(thing) == 0 and "She is" or "He is")

   

local str = {}

table.insert(str, "You see "..name..". "..art.." ")

if youAre[getPlayerGroupId(thing)] then

   table.insert(str, (ocup).." and "..rank.." from ".. getTownName(getPlayerTown(thing))..".")       

else

   table.insert(str, (rank).." from ".. getTownName(getPlayerTown(thing))..".")

end

if getPlayerGuildId(thing) > 0 then

   table.insert(str, " "..art.." "..getPlayerGuildRank(thing).." from the "..getPlayerGuildName(thing)..".")

end

if TV then

   table.insert(str, " "..art.." watching TV.")

end

table.insert(str, ((isPlayer(cid) and youAre[getPlayerGroupId(cid)]) and "\nPosition: [X: "..pos.x.."][Y: "..pos.y.."][Z: "..pos.z.."]" or "")) 

 

return table.concat(str) 

end

-------------------------------------------------------------------------------------------------   /\/\

function getLivePokeballs(cid, container, duel) --alterado v2.8

    if not isCreature(cid) then return {} end     

if not isContainer(container) then return {} end

local items = {}

---

local ballSlot = getPlayerSlotItem(cid, 8)

    if ballSlot.uid ~= 0 then

       for a, b in pairs (pokeballs) do

           if ballSlot.itemid == b.on or ballSlot.itemid == b.use then

              if duel and getPlayerLevel(cid) >= (pokes[getItemAttribute(ballSlot.uid, "poke")].level + getPokeballBoost(ballSlot)) then

                 table.insert(items, ballSlot.uid)                                                                      --alterado v2.8

              elseif not duel then

                 table.insert(items, ballSlot.uid)

              end

           end

       end

    end

    ---     

if isContainer(container) and getContainerSize(container) > 0 then      

for slot=0, (getContainerSize(container)-1) do

local item = getContainerItem(container, slot)

if isContainer(item.uid) then

local itemsbag = getPokeballsInContainer(item.uid)

for i=0, #itemsbag do

if not isInArray(items, itemsbag) then

                           table.insert(items, itemsbag)

                        end

end

elseif isPokeball(item.itemid) then

   for a, b in pairs (pokeballs) do

                        if item.itemid == b.on then

                           if duel and getPlayerLevel(cid) >= (pokes[getItemAttribute(item.uid, "poke")].level + getPokeballBoost(item)) then    

         table.insert(items, item.uid)                                            --alterado v2.8

                           elseif not duel then

                              table.insert(items, item.uid)

                           end

                   end

                    end

end

end

end

return items

end

 

function addItemInFreeBag(container, item, num)

if not isContainer(container) then return false end                                             

if not item then return false end

if not num then num = 1 end                                            --alterado v2.6.1

if getContainerSize(container) < getContainerCap(container) then

   return doAddContainerItem(container, item, num)

else

   for slot = 0, (getContainerSize(container)-1) do

       local container2 = getContainerItem(container, slot)

       if isContainer(container2.uid) and getContainerSize(container2.uid) < getContainerCap(container2.uid) then

          return doAddContainerItem(container2.uid, item, num)

       end

   end

end

return false

end

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

function pokeHaveReflect(cid)

if not isCreature(cid) then return false end

local table = getTableMove(cid, "Reflect")

if table and table.name then     --alterado v1.6

   return true 

end

return false

end

 

function nextHorario(cid)

    horarioAtual = os.date("%X")

    horario = string.explode(horarioAtual, ":")

    

    for i = 1, #horas do

        horarioComparacao = horas

        horarioComp = string.explode(horarioComparacao, ":")

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

        if tonumber(horarioComp[1]) > tonumber(horario[1]) then

           return horarioComparacao                                 --alterado v2.3

        elseif tonumber(horarioComp[1]) == tonumber(horario[1]) and tonumber(horario[2]) < tonumber(horarioComp[2]) then

           return horarioComparacao

        end

    end 

    return horas[1]                                  --alterado v2.3

end                                                               

 

function getTimeDiff(timeDiff)

local dateFormat = {

{'hour', timeDiff / 60 / 60}, --6%

{'min', timeDiff / 60 % 60},

}

local out = {}                                   --alterado v2.3

for k, t in ipairs(dateFormat) do

    local v = math.floor(t[2])

    if(v > -1) then

         table.insert(out, (k < #dateFormat and '' or ' and ') .. v .. '' .. (v <= 1 and t[1] or t[1].."s"))

    end

end

if tonumber(dateFormat[1][2]) == 0 and tonumber(dateFormat[2][2]) == 0 then

   return "seconds"

end

return table.concat(out)

end

 

function showTimeDiff(timeComp)

local b = string.explode(os.date("%X"), ":")

local c = string.explode(timeComp, ":")

    ---

    local d, m, y = os.date("%d"), os.date("%m"), os.date("%Y")

    local hAtual, mAtual = tonumber(b[1]), tonumber(b[2])

    local hComp, mComp = tonumber(c[1]), tonumber(c[2])

    ---

    local t = os.time{year= y, month= m, day= d, hour= hAtual, min= mAtual}

    local t1 = os.time{year= y, month= m, day= d, hour= hComp, min= mComp}

    ---                                                                         --alterado v2.3

    comparacao = t1-t

    if hComp < hAtual then

       v = os.time{year= y, month= m, day= d, hour= 24, min= 0}

       v2 = os.time{year= y, month= m, day= d, hour= 0, min= 0}

       comparacao = (v-t)+(t1-v2)

    end

return getTimeDiff(comparacao)

end

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

function cleanCMcds(item)

if item ~= 0 then

   for c = 1, 15 do              --alterado v2.5

      local str = "cm_move"..c

      setCD(item, str, 0)

   end

end

end

 

function ehNPC(cid)   --alterado v2.9

return isCreature(cid) and not isPlayer(cid) and not isSummon(cid) and not isMonster(cid)

end

 

function ehMonstro(cid)   --alterado v2.9

return cid and cid >= AUTOID_MONSTERS and cid < AUTOID_NPCS

end

 

function doAppear(cid)    --Faz um poke q tava invisivel voltar a ser visivel...

if not isCreature(cid) then return true end

doRemoveCondition(cid, CONDITION_INVISIBLE)

    doRemoveCondition(cid, CONDITION_OUTFIT)

doCreatureSetHideHealth(cid, false)

if getCreatureName(cid) == "Ditto" and pokes[getPlayerStorageValue(cid, 1010)] and getPlayerStorageValue(cid, 1010) ~= "Ditto" then

       if isSummon(cid) then

          local item = getPlayerSlotItem(getCreatureMaster(cid), 8)

          doSetCreatureOutfit(cid, {lookType = getItemAttribute(item.uid, "transOutfit")}, -1)   --alterado v2.6.1

       end

    end 

end

 

function doDisapear(cid)   --Faz um pokemon ficar invisivel

if not isCreature(cid) then return true end

doCreatureAddCondition(cid, permanentinvisible)

doCreatureSetHideHealth(cid, true)

doSetCreatureOutfit(cid, {lookType = 2}, -1)

end

 

function hasTile(pos)    --Verifica se tem TILE na pos

pos.stackpos = 0

if getTileThingByPos(pos).itemid >= 1 then

   return true

end

return false

end

 

function getThingFromPosWithProtect(pos)  --Pega uma creatura numa posiçao com proteçoes

if hasTile(pos) then

pos.stackpos = 253

   pid = getThingfromPos(pos).uid

else

   pid = getThingfromPos({x=1,y=1,z=10,stackpos=253}).uid

end

return pid

end

 

function getTileThingWithProtect(pos)    --Pega um TILE com proteçoes

if hasTile(pos) then

pos.stackpos = 0

   pid = getTileThingByPos(pos)

else

   pid = getTileThingByPos({x=1,y=1,z=10,stackpos=0})

end

return pid

end

 

function canAttackOther(cid, pid)         --Function q verifica se um poke/player pode atacar outro poke/player

 

if not isCreature(cid) or not isCreature(pid) then return "Cant" end

 

local master1 = isSummon(cid) and getCreatureMaster(cid) or cid

local master2 = isSummon(pid) and getCreatureMaster(pid) or pid

 

   --alterado v2.6.1 Party system agora eh simplismente party system kk

   

   ----              --alterado v2.6 duel system

   if getPlayerStorageValue(master1, 6598754) >= 5 and getPlayerStorageValue(master2, 6598754) >= 5 then

      if getPlayerStorageValue(master1, 6598754) ~= getPlayerStorageValue(master2, 6598754) then

         if isDuelingAgainst(master1, master2) then   --alterado v2.8

            if isSummon(cid) and isPlayer(pid) then

               return "Cant"

            else

               return "Can"

            end

         end

      end

   end

   ---- 

   if getPlayerStorageValue(master1, 6598754) >= 1 and getPlayerStorageValue(master2, 6598755) >= 1 then

      return "Can" 

   end

   if getPlayerStorageValue(master1, 6598755) >= 1 and getPlayerStorageValue(master2, 6598754) >= 1 then  ---estar em times diferentes

      return "Can"

   end

   ----

   if ehMonstro(cid) or ehMonstro(pid) then

      return "Can"

   end

 

return "Cant"

end

   

      

function stopNow(cid, time)    --function q faz o poke/player ficar imovel por um tempo

if not isCreature(cid) or not tonumber(time) or isSleeping(cid) then return true end

 

local function podeMover(cid)                         --alterado v2.9 \/

if isCreature(cid) then mayNotMove(cid, false) end

end

 

mayNotMove(cid, true)

addEvent(podeMover, time, cid)

end

 

 

function doReduceStatus(cid, off, def, agi)   --reduz os status

if not isCreature(cid) then return true end

setPlayerStorageValue(cid, 547888, -1)  --alterado v2.8

local A = getOffense(cid)

local B = getDefense(cid)

local C = getSpeed(cid)

 

if off > 0 then

   setPlayerStorageValue(cid, 1001, A - off)

end

if def > 0 then

   setPlayerStorageValue(cid, 1002, B - def)

end

if agi > 0 then

   setPlayerStorageValue(cid, 1003, C - agi)

   if getCreatureSpeed(cid) ~= 0 then

      doRegainSpeed(cid)

   end                                              --alterado v2.5  functions arrumadas...

end

end

 

function doRaiseStatus(cid, off, def, agi, time)  

if not isCreature(cid) then return true end

setPlayerStorageValue(cid, 547888, 1)  --alterado v2.8

local A = getOffense(cid)

local B = getDefense(cid)

local C = getSpeed(cid)

 

if off > 0 then

   setPlayerStorageValue(cid, 1001, A * off)

end

if def > 0 then

   setPlayerStorageValue(cid, 1002, B * def)

end

if agi > 0 then

   setPlayerStorageValue(cid, 1003, C + agi)

   if getCreatureSpeed(cid) ~= 0 then

      doRegainSpeed(cid)

   end

end

 

local D = getOffense(cid)

local E = getDefense(cid)

local F = getSpeed(cid)

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

local G = D - A

local H = E - B

local I = F - C

 

addEvent(doReduceStatus, time*1000, cid, G, H, I)

end

 

 

function BackTeam(cid)          

  if isCreature(cid) then

     local summon = getCreatureSummons(cid)   --alterado v2.6

     for i = 2, #summon do

         doSendMagicEffect(getThingPos(summon), 211)

         doRemoveCreature(summon)

     end

     setPlayerStorageValue(cid, 637501, -1)

  end  

end

    

function choose(...) -- by mock

    local arg = {...}

    return arg[math.random(1,#arg)]

end

 

function AddPremium(cid, days)

local function removerPlayer(cid)

if isCreature(cid) then

   doRemoveCreature(cid)

end

end

 

db.executeQuery("UPDATE `accounts` SET `premdays` = '"..days.."' WHERE `accounts`.`id` = ".. getPlayerAccountId(cid) ..";")

doPlayerSendTextMessage(cid,25,"Você será kickado em 5 segundos.")    

addEvent(removerPlayer, 5*1000, cid)     

return TRUE

end

 

function isShiny(cid) 

return isCreature(cid) and string.find(getCreatureName(cid), "Shiny")  --alterado v2.9

end

 

function isShinyName(name)        

return tostring(name) and string.find(doCorrectString(name), "Shiny") --alterado v2.9

end

 

function doConvertTypeToStone(type, string)

local t = {

["fly"] = {heart, "heart"},

["flying"] = {heart, "heart"},

["normal"] = {heart, "heart"},

["fire"] = {fire, "fire"},

["grass"] = {leaf, "leaf"},

["leaf"] = {leaf, "leaf"},

["water"] = {water, "water"},

["poison"] = {venom, "venom"},

["venom"] = {venom, "venom"},

["electric"] = {thunder, "thunder"},

["thunder"] = {thunder, "thunder"},

["rock"] = {rock, "rock"},

["fight"] = {punch, "punch"},

["fighting"] = {punch, "punch"},

["bug"] = {coccon, "coccon"},

["dragon"] = {crystal, "crystal"},

["dark"] = {dark, "dark"},

["ghost"] = {dark, "dark"},

["ground"] = {earth, "earth"},

["earth"] = {earth, "earth"},

["psychic"] = {enigma, "enigma"},

["steel"] = {metal, "metal"},

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

["ice"] = {ice, "ice"},

["boost"] = {boostStone, "boost"},  --alterado v2.9

}

 

if string then

return t[type][2]

else

return t[type][1]

end

end

 

function doConvertStoneIdToString(stoneID)

local t = {

[11453] = "Heart Stone",

[11441] = "Leaf Stone",

[11442] = "Water Stone",

[11443] = "Venom Stone",

[11444] = "Thunder Stone",

[11445] = "Rock Stone",

[11446] = "Punch Stone", 

[11447] = "Fire Stone",               --alterado v2.6

[11448] = "Cocoon Stone", 

[11449] = "Crystal Stone",

[11450] = "Darkess Stone", 

[11451] = "Earth Stone",

[11452] = "Enigma Stone",

[11454] = "Ice Stone", 

[12244] = "King's Rock",

[12232] = "Metal Stone",

[12242] = "Sun Stone",

[12415] = "Shiny Stone",

[12401] = "Shiny Fire Stone",

[12402] = "Shiny Water Stone",

[12403] = "Shiny Leaf Stone",

[12404] = "Shiny Heart Stone",

[12405] = "Shiny Enigma Stone",

[12406] = "Shiny Rock Stone",

[12407] = "Shiny Venom Stone", 

[12408] = "Shiny Ice Stone",

[12409] = "Shiny Thunder Stone",

[12410] = "Shiny Crystal Stone",

[12411] = "Shiny Cocoon Stone",

[12412] = "Shiny Darkness Stone",

[12413] = "Shiny Punch Stone",

[12414] = "Shiny Earth Stone",

[boostStone] = "Boost Stone",  --alterado v2.9

}

if t[stoneID] then

return t[stoneID]

else

return ""

end

end

 

function isStone(id)

if id >= leaf and id <= ice then

return true

end

if id == boostStone then  --alterado v2.9

return true

end

if id == 12232 or id == 12242 or id == 12244 or id == 12245 then

return true                                  --alterado v2.7 com as stones shinys tb soh pra garantir..

end

if (id >= sfire and id <= searth) or id == 12417 or id == 12419 then

return true 

end

return false

end

 

function isWater(id)

return tonumber(id) and id >= 4820 and id <= 4825 --alterado v2.9

end

 

function getTopCorpse(position)

local pos = position

 

for n = 1, 255 do

 

pos.stackpos = n

local item = getTileThingByPos(pos)

 

if item.itemid >= 2 and (string.find(getItemNameById(item.itemid), "fainted ") or string.find(getItemNameById(item.itemid), "defeated ")) then

return getTileThingByPos(pos)

end

end

return null

end

 

bpslot = CONST_SLOT_BACKPACK

 

function hasPokemon(cid)

if not isCreature(cid) then return false end

if getCreatureMana(cid) <= 0 then return false end

if #getCreatureSummons(cid) >= 1 then return true end

local item = getPlayerSlotItem(cid, CONST_SLOT_FEET)

local bp = getPlayerSlotItem(cid, bpslot)

for a, b in pairs (pokeballs) do

        if item.itemid == b.on or item.itemid == b.use then

        return true                              --alterado v2.4

        end

        if #getItemsInContainerById(bp.uid, b.on) >= 1 then

        return true

        end

end

return false

end

 

function isNpcSummon(cid)

return isNpc(getCreatureMaster(cid))

end

 

function getPokemonHappinessDescription(cid)

if not isCreature(cid) then return true end

local str = ""

if getPokemonGender(cid) == SEX_MALE then

str = "He"

elseif getPokemonGender(cid) == SEX_FEMALE then

str = "She"

else

str = "It"

end

local h = getPlayerStorageValue(cid, 1008)

if h >= tonumber(getConfigValue('PokemonStageVeryHappy')) then

str = str.." is very happy with you!"

elseif h >= tonumber(getConfigValue('PokemonStageHappy')) then

str = str.." is happy."

elseif h >= tonumber(getConfigValue('PokemonStageOK')) then

str = str.." is unhappy."

elseif h >= tonumber(getConfigValue('PokemonStageSad')) then

str = str.." is sad."

elseif h >= tonumber(getConfigValue('PokemonStageMad')) then

str = str.." is mad."

else

str = str.." is very mad at you!"

end

return str

end

 

function doSetItemAttribute(item, key, value)

doItemSetAttribute(item, key, value)

end

 

function deTransform(cid, check)

if not isCreature(cid) then return true end

 

local m = getCreatureMaster(cid)

local p = getPlayerSlotItem(m, 8)

 

if getItemAttribute(p.uid, "transTurn") ~= check then return true end

 

setPlayerStorageValue(cid, 1010, "Ditto")

doRemoveCondition(cid, CONDITION_OUTFIT)

doSendMagicEffect(getThingPos(cid), 184)

doCreatureSay(cid, "DITTO!", TALKTYPE_MONSTER)

doItemSetAttribute(p.uid, "transBegin", 0)

doItemSetAttribute(p.uid, "transLeft", 0)

doItemEraseAttribute(p.uid, "transName")

doItemEraseAttribute(p.uid, "boffense")

doItemEraseAttribute(p.uid, "bdefense")

doItemEraseAttribute(p.uid, "bsattack")

doItemEraseAttribute(p.uid, "bagility")

end

 

function isTransformed(cid)

return isCreature(cid) and not isInArray({-1, "Ditto", "Shiny Ditto"}, getPlayerStorageValue(cid, 1010))  --alterado v2.9

end

 

function doSendFlareEffect(pos)

local random = {28, 29, 79}

doSendMagicEffect(pos, random[math.random(1, 3)])

end

 

function isDay()

local a = getWorldTime()

if a >= 360 and a < 1080 then

return true

end

return false

end

 

function doPlayerSendTextWindow(cid, p1, p2)

if not isCreature(cid) then return true end

local item = 460

local text = ""

if type(p1) == "string" then

doShowTextDialog(cid, item, p1)

else

doShowTextDialog(cid, p1, p2)

end

end

 

function getClockString(tw)

local a = getWorldTime()

local b = a / 60

local hours = math.floor(b)

local minut = a - (60 * hours)

 

if not tw then

if hours < 10 then

hours = "0"..hours..""

end

if minut < 10 then

minut = "0"..minut..""

end

return hours..":"..minut

else

local sm = "a.m"

if hours >= 12 then

hours = hours - 12

sm = "p.m"

end

if hours < 10 then

hours = "0"..hours..""

end

if minut < 10 then

minut = "0"..minut..""

end

return hours..":"..minut.." "..sm

end

end

 

function doCorrectPokemonName(poke)

return doCorrectString(poke)

end

 

function doCorrectString(str)

local name = str:explode(" ")  --alterado v2.9

local final = {}

for _, s in ipairs(name) do

    table.insert(final, s:sub(1, 1):upper()..s:sub(2, #s):lower())

end

return table.concat(final, (name[2] and " " or ""))

end 

 

function getHappinessRate(cid)

if not isCreature(cid) then return 1 end

local a = getPlayerStorageValue(cid, 1008)

if a == -1 then return 1 end

if a >= getConfigValue('PokemonStageVeryHappy') then

return happinessRate[5].rate

elseif a >= getConfigValue('PokemonStageHappy') then

return happinessRate[4].rate

elseif a >= getConfigValue('PokemonStageOK') then

return happinessRate[3].rate

elseif a >= getConfigValue('PokemonStageSad') then

return happinessRate[2].rate

else

return happinessRate[1].rate

end

return 1

end

 

function doBodyPush(cid, target, go, pos)

if not isCreature(cid) or not isCreature(target) then

doRegainSpeed(cid)

doRegainSpeed(target)

return true

end

if go then

local a = getThingPos(cid)

doChangeSpeed(cid, -getCreatureSpeed(cid))

if not isPlayer(target) then

doChangeSpeed(target, -getCreatureSpeed(target))

end

doChangeSpeed(cid, 800)

doTeleportThing(cid, getThingPos(target))

doChangeSpeed(cid, -800)

addEvent(doBodyPush, 350, cid, target, false, a)

else

doChangeSpeed(cid, 800)

doTeleportThing(cid, pos)

doRegainSpeed(cid)

doRegainSpeed(target)

end

end

 

function doReturnPokemon(cid, pokemon, pokeball, effect, hideeffects, blockevo)

 

    --////////////////////////////////////////////////////////////////////////////////////////--

checkDuel(cid)                                                                      --alterado v2.6 duel system

    --////////////////////////////////////////////////////////////////////////////////////////--

    if getPlayerStorageValue(cid, 52480) >= 1 and getPlayerStorageValue(cid, 52484) ~= 10 then

       return sendMsgToPlayer(cid, 27, "You can't do that while the duel don't begins!")        --alterado v2.8

    end

    --////////////////////////////////////////////////////////////////////////////////////////--

    

    if #getCreatureSummons(cid) > 1 and getPlayerStorageValue(cid, 212124) <= 0 then     --alterado v2.6

       if getPlayerStorageValue(cid, 637501) == -2 or getPlayerStorageValue(cid, 637501) >= 1 then  

          BackTeam(cid)       

       end

    end

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

local edit = true

 

if not pokeball then

pokeball = getPlayerSlotItem(cid, 8)

end

 

if blockevo then

edit = false

doPlayerSendCancel(cid, "Your pokemon couldn't evolve due to server mistakes, please wait until we fix the problem.")

end

 

local happy = getPlayerStorageValue(pokemon, 1008)

local hunger = getPlayerStorageValue(pokemon, 1009)

local pokelife = (getCreatureHealth(pokemon) / getCreatureMaxHealth(pokemon))

 

if edit then

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

doItemSetAttribute(pokeball.uid, "hunger", hunger)

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

end

 

if getCreatureName(pokemon) == "Ditto" then

if isTransformed(pokemon) then

local left = getItemAttribute(pokeball.uid, "transLeft") - (os.clock() - getItemAttribute(pokeball.uid, "transBegin"))

doItemSetAttribute(pokeball.uid, "transLeft", left)

end

end

 

if hideeffects then

doRemoveCreature(pokemon)

return true

end

 

local pokename = getPokeName(pokemon)

 

local mbk = gobackmsgs[math.random(1, #gobackmsgs)].back:gsub("doka", pokename)

 

if getCreatureCondition(cid, CONDITION_INFIGHT) then

if isCreature(getCreatureTarget(cid)) then

doItemSetAttribute(pokeball.uid, "happy", happy - 5)

else

doItemSetAttribute(pokeball.uid, "happy", happy - 2)

end

end

 

doTransformItem(pokeball.uid, pokeball.itemid-1)

doCreatureSay(cid, mbk, TALKTYPE_SAY)

 

doSendMagicEffect(getCreaturePosition(pokemon), effect)

 

doRemoveCreature(pokemon)

 

    unLock(pokeball.uid) --alterado v2.8

    

    if useOTClient then

       doPlayerSendCancel(cid, '12//,hide')  --alterado v2.7

    end

    

if useKpdoDlls then

doUpdateMoves(cid)

end

 

end

 

local EFFECTS = {

--[OutfitID] = {Effect}

["Magmar"] = 35,    --magmar            --alterado v2.5

["Jynx"] = 17,    --jynx

["Shiny Jynx"] = 17,    --shiny jynx

}

 

function doGoPokemon(cid, item)

 

if getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 then

return true

end

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

local ballName = getItemAttribute(item.uid, "poke")

 

   btype = getPokeballType(item.itemid)                   

 

local effect = pokeballs[btype].effect

if not effect then

effect = 21

end

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

if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then

doPlayerSendCancel(cid, "You must put your pokeball in the correct place!")

return TRUE

end

 

local thishp = getItemAttribute(item.uid, "hp")

 

if thishp <= 0 then

if isInArray(pokeballs[btype].all, item.itemid) then

doTransformItem(item.uid, pokeballs[btype].off)

doItemSetAttribute(item.uid, "hp", 0)

doPlayerSendCancel(cid, "This pokemon is fainted.")

   return true

end

end

    

local pokemon = getItemAttribute(item.uid, "poke")

 

if not pokes[pokemon] then

return true

end

 

----------------------- Sistema de nao poder carregar mais que 3 pokes lvl baixo e + q 1 poke de lvl medio/alto ---------------------------------

if not isInArray({5, 6}, getPlayerGroupId(cid)) then

   local balls = getPokeballsInContainer(getPlayerSlotItem(cid, 3).uid)      --alterado v2.9 \/

   local low = {}

   local lowPokes = {"Rattata", "Caterpie", "Weedle", "Oddish", "Pidgey", "Paras", "Poliwag", "Bellsprout", "Magikarp", "Hoppip", "Sunkern"}

   if #balls >= 1 then

      for _, uid in ipairs(balls) do

          local nome = getItemAttribute(uid, "poke")

          if not isInArray(lowPokes, pokemon) and nome == pokemon then

             return doPlayerSendTextMessage(cid, 27, "Sorry, but you can't carry two pokemons equals!")

          else

             if nome == pokemon then

                table.insert(low, nome)

             end

          end

      end

   end

if #low >= 3 then

   return doPlayerSendTextMessage(cid, 27, "Sorry, but you can't carry more than three pokemons equals of low level!")

end   

end

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

 

local x = pokes[pokemon]

local boosts = getItemAttribute(item.uid, "boost") or 0

 

if getPlayerLevel(cid) + pokemonMaxLevelAbovePlayer < getItemAttribute(item.uid, "level") then

doPlayerSendCancel(cid, "Your pokemon's level is much higher than yours, you can't use him.")

return true

end

 

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

shinysClan = {

["Shiny Fearow"] = {4, "Wingeon"},

["Shiny Flareon"] = {1, "Volcanic"},

["Shiny Vaporeon"] = {2, "Seavel"}, 

["Shiny Jolteon"] = {9, "Raibolt"},

["Shiny Hypno"] = {7, "Psycraft"},          

["Shiny Golem"] = {3, "Orebound"},

["Shiny Vileplume"] = {8, "Naturia"},

["Shiny Nidoking"] = {5, "Malefic"},

["Shiny Hitmontop"] = {6, "Gardestrike"},   --alterado v2.4

}

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

 

doSummonMonster(cid, pokemon)

 

local pk = getCreatureSummons(cid)[1]

if not isCreature(pk) then return true end

 

------------------------passiva hitmonchan------------------------------

if isSummon(pk) then

       --local e = getCreatureMaster(cid)

       local nameHIT = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")

       local hands = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "hands")

       if nameHIT == "Shiny Hitmonchan" or nameHIT == "Hitmonchan" then

          if getItemAttribute(getPlayerSlotItem(cid, 8).uid, "hands") then

             doSetCreatureOutfit(pk, {lookType = hitmonchans[nameHIT][hands].out}, -1)

          else

              doPlayerSendTextMessage(cid, 27, "Contact a GameMaster! Error in passive system! Attribute \"hands\" missing")  

          end

       end

    end

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

    ---------movement magmar, jynx-------------

    if EFFECTS[getCreatureName(pk)] then   --alterado v2.5  

       markPosEff(pk, getThingPos(pk))

       sendMovementEffect(pk, EFFECTS[getCreatureName(pk)], getThingPos(pk))  --alterado v2.5

    end

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

 

if getCreatureName(pk) == "Ditto" then

 

local left = getItemAttribute(item.uid, "transLeft")

local name = getItemAttribute(item.uid, "transName")

 

if left and left > 0 then

setPlayerStorageValue(pk, 1010, name)

doSetCreatureOutfit(pk, {lookType = getItemAttribute(item.uid, "transOutfit")}, -1)

addEvent(deTransform, left * 1000, pk, getItemAttribute(item.uid, "transTurn"))

doItemSetAttribute(item.uid, "transBegin", os.clock())

else

setPlayerStorageValue(pk, 1010, "Ditto")

end

end

 

if isGhostPokemon(pk) then doTeleportThing(pk, getPosByDir(getThingPos(cid), math.random(0, 7)), false) end

 

doCreatureSetLookDir(pk, 2)

 

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

doAddPokemonInOwnList(cid, pokemon)

 

doTransformItem(item.uid, item.itemid+1)

 

local pokename = getPokeName(pk) --alterado v2.7

 

local mgo = gobackmsgs[math.random(1, #gobackmsgs)].go:gsub("doka", pokename)

doCreatureSay(cid, mgo, TALKTYPE_SAY)

 

doSendMagicEffect(getCreaturePosition(pk), effect)

 

    unLock(item.uid) --alterado v2.8

    

if useKpdoDlls then

doUpdateMoves(cid)

end

end

 

function doRegainSpeed(cid)              --alterado v2.9 \/

if not isCreature(cid) then return true end

 

   local speed = PlayerSpeed

   if isMonster(cid) then

      speed = getCreatureBaseSpeed(cid) + getSpeed(cid) * speedRate 

   elseif isPlayer(cid) and isInArray({4, 5, 6}, getPlayerGroupId(cid)) then

      speed = 200*getPlayerGroupId(cid) 

   end

   if speed > 1500 then speed = 1500 end

   

   doChangeSpeed(cid, -getCreatureSpeed(cid))

   if getCreatureCondition(cid, CONDITION_PARALYZE) == true then

      doRemoveCondition(cid, CONDITION_PARALYZE)

      addEvent(doAddCondition, 10, cid, paralizeArea2)             

   end

    

doChangeSpeed(cid, speed)

return speed

end

 

function isPosEqualPos(pos1, pos2, checkstackpos)

if pos1.x ~= pos2.x or pos1.y ~= pos2.y and pos1.z ~= pos2.z then

return false

end

if checkstackpos and pos1.stackpos and pos2.stackpos and pos1.stackpos ~= pos2.stackpos then

return false

end

return true

end

 

function getRandomGenderByName(name)

local rate = newpokedex[name]

if not rate then return 0 end

rate = rate.gender

if rate == 0 then

gender = 3

elseif rate == 1000 then

gender = 4

elseif rate == -1 then

gender = 0

elseif math.random(1, 1000) <= rate then

gender = 4

else

gender = 3

end

return gender

end

 

function getRecorderPlayer(pos, cid)

local ret = 0

if cid and isPosEqual(getThingPos(cid), pos) then   --alterado v2.9

return cid

end

local s = {}

s.x = pos.x

s.y = pos.y

s.z = pos.z

for a = 0, 255 do

s.stackpos = a

local b = getTileThingByPos(s).uid

if b > 1 and isPlayer(b) and getCreatureOutfit(b).lookType ~= 814 then

ret = b

end

end

return ret

end

 

function getRecorderCreature(pos, cid)

local ret = 0

if cid and isPosEqual(getThingPos(cid), pos) then   --alterado v2.9

return cid

end

local s = {}

s.x = pos.x

s.y = pos.y

s.z = pos.z                                       --alterado v2.6

for a = 0, 255 do

s.stackpos = a

local b = getTileThingByPos(s).uid

if b > 1 and isCreature(b) and getCreatureOutfit(b).lookType ~= 814 then

ret = b

end

end

return ret

end

 

function doCreatureSetOutfit(cid, outfit, time)

doSetCreatureOutfit(cid, outfit, time)

end

 

function doMagicalFlower(cid, away)

if not isCreature(cid) then return true end

for x = -3, 3 do

for y = -3, 3 do

local a = getThingPos(cid)

a.x = a.x + x

a.y = a.y + y

if away then

doSendDistanceShoot(a, getThingPos(cid), 21)

else

doSendDistanceShoot(getThingPos(cid), a, 21)

end

end

end

end

 

function isItemPokeball(item)         --alterado v2.9 \/

if not item then return false end

for a, b in pairs (pokeballs) do

if isInArray(b.all, item) then return true end

end

return false

end

 

function isPokeball(item)

return isItemPokeball(item)

end                                    --/\

 

function getPokeballType(id)

for a, b in pairs (pokeballs) do

if isInArray(b.all, id) then

return a

end

end

return "none"

end

 

randomdiagonaldir = {

[NORTHEAST] = {NORTH, EAST},

[sOUTHEAST] = {SOUTH, EAST},

[NORTHWEST] = {NORTH, WEST},

[sOUTHWEST] = {SOUTH, WEST}}

 

function doFaceOpposite(cid)

local a = getCreatureLookDir(cid)

local d = {

[NORTH] = SOUTH,

[sOUTH] = NORTH,

[EAST] = WEST,

[WEST] = EAST,

[NORTHEAST] = SOUTHWEST,

[NORTHWEST] = SOUTHEAST,

[sOUTHEAST] = NORTHWEST,

[sOUTHWEST] = NORTHEAST}

doCreatureSetLookDir(cid, d[a])

end

 

function doFaceRandom(cid)

local a = getCreatureLookDir(cid)

local d = {

[NORTH] = {SOUTH, WEST, EAST},

[sOUTH] = {NORTH, WEST, EAST},

[WEST] = {SOUTH, NORTH, EAST},

[EAST] = {SOUTH, WEST, NORTH}}

doChangeSpeed(cid, 1)

doCreatureSetLookDir(cid, d[a][math.random(1, 3)])

doChangeSpeed(cid, -1)

end

 

function getFaceOpposite(dir)

local d = {

[NORTH] = SOUTH,

[sOUTH] = NORTH,

[EAST] = WEST,

[WEST] = EAST,

[NORTHEAST] = SOUTHWEST,

[NORTHWEST] = SOUTHEAST,

[sOUTHEAST] = NORTHWEST,

[sOUTHWEST] = NORTHEAST}

return d[dir]

end

 

function getResistance(cid, combat)

if isPlayer(cid) then return false end

local poketype1 = pokes[getCreatureName(cid)].type

local poketype2 = pokes[getCreatureName(cid)].type2

local multiplier = 1

if effectiveness[combat].super and isInArray(effectiveness[combat].super, poketype1) then

multiplier = multiplier * 2

end

if poketype2 and effectiveness[combat].super and isInArray(effectiveness[combat].super, poketype2) then

multiplier = multiplier * 2

end

if effectiveness[combat].weak and isInArray(effectiveness[combat].weak, poketype1) then

multiplier = multiplier * 0.5

end

if poketype2 and effectiveness[combat].weak and isInArray(effectiveness[combat].weak, poketype2) then

multiplier = multiplier * 0.5

end

if effectiveness[combat].non and isInArray(effectiveness[combat].non, poketype1) then

multiplier = multiplier * 0

end

if poketype2 and effectiveness[combat].non and isInArray(effectiveness[combat].non, poketype2) then

multiplier = multiplier * 0

end

 

if multiplier == 0.25 then

multiplier = 0.5

elseif multiplier == 4 then

multiplier = 2

end

 

return multiplier

end

 

function getCreatureDirectionToTarget(cid, target, ranged)

if not isCreature(cid) then return true end

if not isCreature(target) then return getCreatureLookDir(cid) end

local dirs = {

[NORTHEAST] = {NORTH, EAST},

[sOUTHEAST] = {SOUTH, EAST},

[NORTHWEST] = {NORTH, WEST},

[sOUTHWEST] = {SOUTH, WEST}}

local x = getDirectionTo(getThingPos(cid), getThingPos(target), false)

if x <= 3 then return x

else

local xdistance = math.abs(getThingPos(cid).x - getThingPos(target).x)

local ydistance = math.abs(getThingPos(cid).y - getThingPos(target).y)

if xdistance > ydistance then

return dirs[x][2]

elseif ydistance > xdistance then

return dirs[x][1]

elseif isInArray(dirs[x], getCreatureLookDir(cid)) then

return getCreatureLookDir(cid)

else

return dirs[x][math.random(1, 2)]

end

end

end

 

function getSomeoneDescription(cid)

if isPlayer(cid) then return getPlayerNameDescription(cid) end

return getMonsterInfo(getCreatureName(cid)).description

end

 

 

function isGhostPokemon(cid)

if not isCreature(cid) then return false end                             --alterado v2.7

if isInArray({"Gengar", "Haunter", "Gastly", "Misdreavus", "Shiny Gengar", "Shiny Abra"}, getCreatureName(cid)) then

return true

end

return false

end

 

function updateGhostWalk(cid)

if not isCreature(cid) then return false end

local pos = getThingPos(cid)

pos.x = pos.x + 1

pos.y = pos.y + 1

local ret = getThingPos(cid)

doTeleportThing(cid, pos, false)

doTeleportThing(cid, ret, false)

return true

end

 

function doRemoveElementFromTable(t, e)

local ret = {}

for a = 1, #t do

if t[a] ~= e then

table.insert(ret, t[a])

end

end

return ret

end

 

function doFaceCreature(sid, pos)

if not isCreature(sid) then return true end

if getThingPos(sid).x == pos.x and getThingPos(sid).y == pos.y then return true end

local ret = 0

 

local ld = getCreatureLookDir(sid)

local dir = getDirectionTo(getThingPos(sid), pos)

local al = {

[NORTHEAST] = {NORTH, EAST},

[NORTHWEST] = {NORTH, WEST},

[sOUTHEAST] = {SOUTH, EAST},

[sOUTHWEST] = {SOUTH, WEST}}

 

if dir >= 4 and isInArray(al[dir], ld) then return true end

 

doChangeSpeed(sid, 1)

if dir == 4 then

ret = math.random(2, 3)

elseif dir == 5 then

ret = math.random(1, 2)

elseif dir == 6 then

local dirs = {0, 3}

ret = dirs[math.random(1, 2)]

elseif dir == 7 then

ret = math.random(0, 1)

else

ret = getDirectionTo(getThingPos(sid), pos)

end

doCreatureSetLookDir(sid, ret)

doChangeSpeed(sid, -1)

return true

end

 

function doCreatureAddCondition(cid, condition)

if not isCreature(cid) then return true end

doAddCondition(cid, condition)

end

 

function doCreatureRemoveCondition(cid, condition)

if not isCreature(cid) then return true end

doRemoveCondition(cid, condition)

end

 

function setCD(item, tipo, tempo)

 

if not tempo or not tonumber(tempo) then

doItemEraseAttribute(item, tipo)

return true

end

 

doItemSetAttribute(item, tipo, "cd:"..(tempo + os.time()).."")

return tempo + os.time()

end

 

function getCD(item, tipo, limite)

 

if not getItemAttribute(item, tipo) then

return 0

end

 

local string = getItemAttribute(item, tipo):gsub("cd:", "")

local number = tonumber(string) - os.time()

 

if number <= 0 then

return 0

end

 

if limite and limite < number then

return 0

end

 

return number

end

 

function doSendMoveEffect(cid, target, effect)

if not isCreature(cid) or not isCreature(target) then return true end

doSendDistanceShoot(getThingPos(cid), getThingPos(target), effect)

return true

end

 

function doSetItemActionId(uid, actionid)

doItemSetAttribute(uid, "aid", actionid)

return true

end

 

function threeNumbers(number)

if number <= 9 then

return "00"..number..""

elseif number <= 99 then

return "0"..number..""

end

return ""..number..""

end

 

function isBr(cid)

if getPlayerStorageValue(cid, 105505) ~= -1 then

return true

end

return false

end

 

function isBeingUsed(ball)            

if not ball then return false end

for a, b in pairs (pokeballs) do           --alterado v2.9

    if b.use == ball then return true end

end

return false

end

 

function doRemoveTile(pos)-- Script by mock

pos.stackpos = 0

local sqm = getTileThingByPos(pos)

doRemoveItem(sqm.uid,1)

end

 

function doCreateTile(id,pos) -- By mock

doAreaCombatHealth(0,0,pos,0,0,0,CONST_ME_NONE)

doCreateItem(id,1,pos)

end

 

function hasSqm(pos)

local f = getTileThingByPos(pos)

if f.itemid ~= 0 and f.itemid ~= 1 then

return true

end

return false

end

 

function getPosDirs(p, dir) -- By MatheusMkalo

return dir == 1 and {x=p.x-1, y=p.y, z=p.z} or dir == 2 and {x=p.x-1, y=p.y+1, z=p.z} or dir == 3 and {x=p.x, y=p.y+1, z=p.z} or dir == 4 and {x=p.x+1, y=p.y+1, z=p.z} or dir == 5 and {x=p.x+1, y=p.y, z=p.z} or dir == 6 and {x=p.x+1, y=p.y-1, z=p.z} or dir == 7 and {x=p.x, y=p.y-1, z=p.z} or dir == 8 and {x=p.x-1, y=p.y-1, z=p.z}

end

 

function canWalkOnPos(pos, creature, pz, water, sqm, proj)

if not pos then return false end

if not pos.x then return false end

if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid <= 1 and sqm then return false end

if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 919 then return false end

if isInArray({4820, 4821, 4822, 4823, 4824, 4825}, getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid) and water then return false end

if getTopCreature(pos).uid > 0 and creature then return false end

if getTileInfo(pos).protection and pz then return false end

    local n = not proj and 3 or 2                                    --alterado v2.6

    for i = 0, 255 do

        pos.stackpos = i                           

        local tile = getTileThingByPos(pos)        

        if tile.itemid ~= 0 and i ~= 253 and not isCreature(tile.uid) then     --edited

            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then

                return false

            end

        end

    end   

return true

end

 

function canWalkOnPos2(pos, creature, pz, water, sqm, proj)     --alterado v2.6

if not pos then return false end

if not pos.x then return false end

if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid <= 1 and sqm then return false end

if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 919 then return false end

if isInArray({4820, 4821, 4822, 4823, 4824, 4825}, getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid) and water then return false end

if getTopCreature(pos).uid > 0 and creature then return false end

if getTileInfo(pos).protection and pz then return false end

    --[[local n = not proj and 3 or 2

    for i = 0, 255 do

        pos.stackpos = i                           --edited pra retirar um bug.. ;x

        local tile = getTileThingByPos(pos)        

        if tile.itemid ~= 0 and i ~= 253 and not isCreature(tile.uid) then     --edited

            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then

                return false

            end

        end

    end ]]  

return true

end

 

function getFreeTile(pos, cid)

if canWalkOnPos(pos, true, false, true, true, false) then

return pos

end

local positions = {}

for a = 0, 7 do

if canWalkOnPos(getPosByDir(pos, a), true, false, true, true, false) then

table.insert(positions, pos)

end

end

if #positions >= 1 then

if isCreature(cid) then

local range = 1000

local ret = getThingPos(cid)

for b = 1, #positions do

if getDistanceBetween(getThingPos(cid), positions) < range then

ret = positions

range = getDistanceBetween(getThingPos(cid), positions)

end

end

return ret

else

return positions[math.random(#positions)]

end

end

return getThingPos(cid)

end

 

function isWalkable(pos, creature, proj, pz, water)-- by Nord

    if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end

    if isWater(getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid) and water then return false end

    if getTopCreature(pos).uid > 0 and creature then return false end

    if getTileInfo(pos).protection and pz then return false, true end

    local n = not proj and 3 or 2

    for i = 0, 255 do

        pos.stackpos = i

        local tile = getTileThingByPos(pos)

        if tile.itemid ~= 0 and not isCreature(tile.uid) then

            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then

                return false

            end

        end

    end

    return true

end

 

 

function isPlayerSummon(cid, uid)

return getCreatureMaster(uid) == cid  --alterado v2.9

end

 

function isSummon(sid)

return isCreature(sid) and getCreatureMaster(sid) ~= sid and isPlayer(getCreatureMaster(sid))   --alterado v2.9

end 

 

function hasSpaceInContainer(container)                --alterado v2.6

if not isContainer(container) then return false end

if getContainerSize(container) < getContainerCap(container) then return true end

 

for slot = 0, (getContainerSize(container)-1) do

    local item = getContainerItem(container, slot)

    if isContainer(item.uid) then

       if hasSpaceInContainer(item.uid) then

          return true

       end

    end

end

return false

end

 

function getItemsInContainerById(container, itemid) -- Function By Kydrai

local items = {}

if isContainer(container) and getContainerSize(container) > 0 then

for slot=0, (getContainerSize(container)-1) do

local item = getContainerItem(container, slot)

if isContainer(item.uid) then

local itemsbag = getItemsInContainerById(item.uid, itemid)

for i=0, #itemsbag do

table.insert(items, itemsbag)

end

else

if itemid == item.itemid then

table.insert(items, item.uid)

end

end

end

end

return items

end

 

function getPokeballsInContainer(container) -- Function By Kydrai

if not isContainer(container) then return {} end

local items = {}

if isContainer(container) and getContainerSize(container) > 0 then

for slot=0, (getContainerSize(container)-1) do

local item = getContainerItem(container, slot)

if isContainer(item.uid) then

local itemsbag = getPokeballsInContainer(item.uid)

for i=0, #itemsbag do

table.insert(items, itemsbag)

end

elseif isPokeball(item.itemid) then

table.insert(items, item.uid)

end

end

end

return items

end

 

function getItensUniquesInContainer(container)    --alterado v2.6

if not isContainer(container) then return {} end

local items = {}

if isContainer(container) and getContainerSize(container) > 0 then

   for slot=0, (getContainerSize(container)-1) do

       local item = getContainerItem(container, slot)

       if isContainer(item.uid) then

          local itemsbag = getItensUniquesInContainer(item.uid)

          for i=0, #itemsbag do

         table.insert(items, itemsbag)

          end

       elseif getItemAttribute(item.uid, "unique") then

          table.insert(items, item)

       end

   end

end

return items

end

 

Em 15/09/2014 ás 17:05, Wend disse:

troca o pokeexp por esse;

 

 

Conteúdo Oculto

 

amigo ajudo muito Rep+