Jump to content
×
×
  • Create New...
  • 0

tfs 0.3.4 [pedido] x-return (modificaçao)


Question

irei explicar oque ele faz agora: retorna um % do dano recebido pro os POKEMONS DE OUTRO PLAYER EM DUEL, o dano devolvido é ridiculo e no duel quem usar + skills perde + rapido basicamente...

 

qual deberia ser a funçao dele? igual a PxG

Spoiler

Tier 1: Retorna todo dano recebido em 5%.
Tier 2: Retorna todo dano recebido em 6%.
Tier 3: Retorna todo dano recebido em 8%.
Tier 4: Retorna todo dano recebido em 10%.
Tier 5: Retorna todo dano recebido em 12%.
Tier 6: Retorna todo dano recebido em 14%.
Tier 7: Retorna todo dano recebido em 18%.
Explicação: O que está acima é o que aparece no look do item, mas ele tem duas funções implícitas. A primeira é que a porcentagem do look refere-se a dano recebido de pokémon de player. A segunda é que multiplicando a porcentagem do seu held por 5, você chegará a porcentagem de dano devolvido em pokémon selvagem.
Exemplo: O Held Tier 7 retorna 18% do dano recebido de pokémon de player e 90% do dano recebido de pokémon selvagem.

 

ele deberia retornar pelo menos o tier 7 90% do dano pra POKEMON SELVAGEMS e 18% de dano pro o pokemon de outro player em duel

mas no momento esta ao revez, ele retorna 90% do dano pro o pokemon de player e 18% de dano pro o pokemon SELVAGEM

entao queria q ele retornase o dano maior pro os pokemons selvagems enquanto pro player em duel for pouco

Exp2.0

 

Spoiler

      if isInArray(specialabilities["counter"], getCreatureName(cid)) then
          if math.random(1, 100) <= 10 then
             doCreatureAddHealth(attacker, -valor, 3, 180)    
             valor = 0
             doSendAnimatedText(getThingPosWithDebug(cid), "COUNTER", 215)
          end
       end   
-- Return --        
if isSummon(cid) and isPlayer(getCreatureMaster(cid)) then
local returnbonus = {}
local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):
local Tiers = {
[15] = {bonus = DmgReturn1},
[16] = {bonus = DmgReturn2},
[17] = {bonus = DmgReturn3},
[18] = {bonus = DmgReturn4},
[19] = {bonus = DmgReturn5},
[20] = {bonus = DmgReturn6},
[21] = {bonus = DmgReturn7},
}
local Tier = getItemAttribute(ball.uid, "heldx")
if Tier and Tier > 14 and Tier < 22 then
returnbonus = math.floor((valor * Tiers[Tier].bonus))
elseif not isInArray(Tiers, Tier) then
returnbonus = 0
end
doCreatureAddHealth(attacker, -returnbonus)
end
-- Return --
else
-- Return --        
if isSummon(cid) and isPlayer(getCreatureMaster(cid)) then
local returnbonus = {}
local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):
local Tiers = {
[15] = {bonus = DmgReturn1},
[16] = {bonus = DmgReturn2},
[17] = {bonus = DmgReturn3},
[18] = {bonus = DmgReturn4},
[19] = {bonus = DmgReturn5},
[20] = {bonus = DmgReturn6},
[21] = {bonus = DmgReturn7},
}
local Tier = getItemAttribute(ball.uid, "heldx")
if Tier and Tier > 14 and Tier < 22 then
returnbonus = math.floor((valor * Tiers[Tier].bonus))
elseif not isInArray(Tiers, Tier) then
returnbonus = 0
end
doCreatureAddHealth(attacker, -returnbonus)
end
-- Return --

 

Lib

Spoiler

DmgReturn1 = 0.02
DmgReturn2 = 0.025
DmgReturn3 = 0.030
DmgReturn4 = 0.035
DmgReturn5 = 0.040
DmgReturn6 = 0.055
DmgReturn7 = 0.060

esse dano em lib eu tentei abaixar... pq o original era assim

DmgReturn1 = 0.04DmgReturn2 = 0.05DmgReturn3 = 0.06DmgReturn4 = 0.07DmgReturn5 = 0.08DmgReturn6 = 0.09DmgReturn7 = 0.10

quem tiver como ajudar agradesço desde ja

Edited by Josegvb
Link to post
Share on other sites

Recommended Posts

  • 1

troca isso:

doSendAnimatedText(getThingPos(attacker), -returnbonus, 77)doCreatureAddHealth(attacker, -returnbonus)

por isso:

if returnbonus > 0 then   doSendAnimatedText(getThingPos(attacker), -returnbonus, 77)   doCreatureAddHealth(attacker, -returnbonus)end

 

Link to post
Share on other sites
  • 1

Isso está acontecendo porque a função xReturn está sendo chamada depois da verificação de imunidade do monstro, que, se verdadeira, interrompe a execução do código. Por consequência, xReturn não é chamado nesta condição. Eu não li o código inteiro para ver se a seguinte mudança de eventos pode prejudicar em algum cálculo. Qualquer coisa, basta um backup e veremos o que pode ser feito.

Transfira:

if valor >= getCreatureHealth(cid) then    if isInArray(cannotKill, combat) and isPlayer(cid) then        valor = getCreatureHealth(cid) - 1    else        valor = getCreatureHealth(cid)     endendvalor = math.floor(valor)             --alterado v1.6

Para abaixo de:

if p.x == 1 and p.y == 1 and p.z == 10 then    return false                                    end

Transfira:

-- Return --        xReturn(cid, attacker, valor)-- Return --

Para abaixo da primeira modificação.

O resultado final deve ser:

if p.x == 1 and p.y == 1 and p.z == 10 then    return false                                    endif valor >= getCreatureHealth(cid) then    if isInArray(cannotKill, combat) and isPlayer(cid) then        valor = getCreatureHealth(cid) - 1    else        valor = getCreatureHealth(cid)     endendvalor = math.floor(valor)  -- Return --        xReturn(cid, attacker, math.abs(valor))-- Return --    if getPlayerStorageValue(cid, 9658783) == 1 then    return false     --imuneend

Assim, a função xReturn será chamada antes da interrupção do código pela verificação de invulnerabilidade.

Link to post
Share on other sites
  • 0

algu assim?

lib/

Spoiler
DmgReturn1 = 0.05DmgReturn2 = 0.06DmgReturn3 = 0.08DmgReturn4 = 0.1DmgReturn5 = 0.12DmgReturn6 = 0.14DmgReturn7 = 0.18

 

exp2.0

Spoiler
-- Return --   local Tiers = {[15] = {bonus = DmgReturn1},[16] = {bonus = DmgReturn2},[17] = {bonus = DmgReturn3},[18] = {bonus = DmgReturn4},[19] = {bonus = DmgReturn5},[20] = {bonus = DmgReturn6},[21] = {bonus = DmgReturn7},}if isSummon(cid) then   local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)   local Tier = getItemAttribute(ball.uid, "heldx")         Tier = tonumber(Tier)   local returnbonus = 0   if isSummon(attacker) then      if Tier and Tiers[Tier] then         returnbonus = math.floor(valor * Tiers[Tier].bonus)      end      elseif isMonster(attacker) and not isSummon(attacker) then      if Tier and Tiers[Tier] then         returnbonus = math.floor(valor * (Tiers[Tier].bonus * 5))      end     end   doCreatureAddHealth(attacker, -returnbonus)end-- Return --

 

 

Edited by nogenem45
Link to post
Share on other sites
  • 0
8 minutos atrás, nogenem45 disse:

algu assim?

lib/

  Mostrar conteúdo oculto
DmgReturn1 = 0.05DmgReturn2 = 0.06DmgReturn3 = 0.08DmgReturn4 = 0.1DmgReturn5 = 0.12DmgReturn6 = 0.14DmgReturn7 = 0.18

 

exp2.0

  Mostrar conteúdo oculto
-- Return --   local Tiers = {[15] = {bonus = DmgReturn1},[16] = {bonus = DmgReturn2},[17] = {bonus = DmgReturn3},[18] = {bonus = DmgReturn4},[19] = {bonus = DmgReturn5},[20] = {bonus = DmgReturn6},[21] = {bonus = DmgReturn7},}if isSummon(cid) then   local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)   local Tier = getItemAttribute(ball.uid, "heldx")         Tier = tonumber(Tier)   local returnbonus = 0   if isSummon(attacker) then      if Tier and Tiers[Tier] then         returnbonus = math.floor(valor * Tiers[Tier].bonus)      end      elseif isMonster(attacker) and not isSummon(attacker) then      if Tier and Tiers[Tier] then         returnbonus = math.floor(valor * (Tiers[Tier].bonus * 5))      end     end   doCreatureAddHealth(attacker, -returnbonus)end-- Return --

 

 

duvida: se teria como colosar pra ele mostrar o dano q é devolvido pelo return? pq agr n to conseguindo olhar vem, e se tiver como, num cor especial tipo laranja sei la

Edited by Josegvb
Link to post
Share on other sites
  • 0
28 minutos atrás, nogenem45 disse:

lib

 

nem sei se for pelo return mas acho q é um "end" q ta falando agr em duel td pokemon esta dando hs em outro, mesmo sem o return

meu exp2.0 sem sua ediçao:

Spoiler

local combats = {                         --alterado v1.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},

[FAIRYDAMAGE] = {cor = COLOR_PSYCHIC},

}

--alterado v1.5  tabelas agora estao em lib/configuration.lua

local function sendPlayerDmgMsg(cid, text)

    if not isCreature(cid) then return true end

    doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, text)

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},

[23] = {cor = COLOR_PSYCHIC},

[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, FAIRYDAMAGE}

local ignored = {POISONEDDAMAGE, BURNEDDAMAGE}                --alterado v1.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

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

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

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

    end

return true

end

local damageCombat = combat

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

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

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

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(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 v1.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, cid, 20, "Seu "..getPokeName(getCreatureSummons(attacker)[1]).." causou "..valor.." de dano no "..getSomeoneDescription(cid)..".")

    end

return true

end

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

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

--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) >= 1 then

--doSendAnimatedText(getThingPosWithDebug(attacker), "Hmpfg!", 215)

--doMonsterSetTarget(attacker, getCreatureSummons(cid)[1])

--end

return false

end

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

--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) <= 0 then

--doSendAnimatedText(getThingPosWithDebug(attacker), "Grrr!", 215)

--doMonsterSetTarget(attacker, cid)

--end

--return true

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

          doTeleportThing(cid, {x = 1001, y = 1026, z = 14}, false)

          doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

          return false --alterado v1.8                

      elseif getPlayerStorageValue(cid, 577869) >= 1 then

      setPlayerStorageValue(cid, 577869, 0)

      doTeleportThing(cid, {x = 1009, y = 1084, z = 14}, false)

      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

      return false

      elseif getPlayerStorageValue(cid, 20000) >= 1 then

      setPlayerStorageValue(cid, 20000, 0)

      setPlayerStorageValue(cid,30,0)      

             doTeleportThing(cid, {x = 1172, y = 1366, z = 7}, false)

             doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

       doPlayerSendTextMessage(cid, 20, "Voc・morreu no Saffari por Favor volte mais tarde!")

       return false

       elseif getPlayerStorageValue(cid, 20001) >= 1 then

      setPlayerStorageValue(cid,20001,0) 

             doTeleportThing(cid, {x = 1371, y = 1240, z = 7}, false)

      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

      doRemoveCondition(cid, CONDITION_OUTFIT)

       doPlayerSendTextMessage(cid, 20, "You are died in demon room, please come back!")

      return false

      end       

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

      if getPlayerStorageValue(cid, 18) >= 1 then

      setPlayerStorageValue(cid,18,0) 

      doRemoveCondition(cid, CONDITION_OUTFIT)

      end

     ------------Saffari----------------------------------

       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

      ------------Edited Golden Arena------------------

      if getPlayerStorageValue(cid, 22545) == 1 then

         if getGlobalStorageValue(22550) == 1 then

            doPlayerSendTextMessage(cid, 20, "Voc・foi o 伃timo sobrevivente da Golden Arena! Tome sua recompensa!")

            doPlayerAddItem(cid, 2160, getPlayerStorageValue(cid, 22551)*30/4) 

            doPlayerAddExperience(cid, 1000, getPlayerStorageValue(cid, 22551)*30) 

            setPlayerStorageValue(cid, 22545, -1)

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

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

            --setPlayerRecordWaves(cid)     

            endGoldenArena()

            return false --alterado v1.8           

         else

             setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)

             setPlayerStorageValue(cid, 22545, -1)

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

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

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

             --setPlayerRecordWaves(cid)     

             return true

         end 

     end

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

     if getPlayerSex(cid) == 1 then

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

     doDecayItem(corpse)

     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". He was killed by a ".. getCreatureName(attacker) .."")

     elseif getPlayerSex(cid) == 0 then     

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

     doDecayItem(corpse)

     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". She was killed by a ".. getCreatureName(attacker) .."")

    end

    end

    doCreatureAddHealth(cid, -valor, 3, 180)

    if not isPlayer(cid) then

    addEvent(sendPlayerDmgMsg, 5, cid, "Voc・perdeu "..valor.." em pontos de vida por um attack de "..getSomeoneDescription(attacker)..".")

    end

return false

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) then 

return false                                          --edited monstro nao atacar monstro

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 v1.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 v1.6

      poketype2 = pokes[getCreatureName(cid)].type2

   end

   if not poketype1 or not poketype2 then return false end  --alterado v1.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    --Edited effetivenes = pxg... ;p

        multiplier = multiplier - 0.25

    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 v1.5

         multiplier = 0.5                 

      end                         --alterado v1.6

    end

    -- X-Attack --

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

    local TierArray = {8, 9, 10, 11, 12, 13, 14}

    local Tiers = {

[8] = {bonus = AtkBonus1},

[9] = {bonus = AtkBonus2},

[10] = {bonus = AtkBonus3},

[11] = {bonus = AtkBonus4},

[12] = {bonus = AtkBonus5},

[13] = {bonus = AtkBonus6},

[14] = {bonus = AtkBonus7},

}

 local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local Tier = getItemAttribute(ball.uid, "heldx")

    local bonusatk = {}

    if isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then

    bonusatk = Tiers[Tier].bonus

    else

    bonusatk = 1

    end

        multiplier = multiplier * bonusatk

    end

    -- X-Attack --

elseif combat == COMBAT_PHYSICALDAMAGE then

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

       if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then  --passiva Foresight!!

          doSendMagicEffect(getThingPos(cid), 3)     

          return false

       end

    end

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

        local cd2 = getPlayerStorageValue(attacker, conds["Confusion"]) 

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

        legendarios = { "Blue Tower 1", "Blue Tower 2", "Blue Tower 3", "Red Tower 1", "Red Tower 2", "Red Tower 3", "Entei", "Moltres2", "Zapdos2", "Articuno2", "Celebi2"}

        if cd >= 0 or cd2 >= 0 or cd3 >= 0 and not isInArray(legendarios, getCreatureName(attacker))then

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

              doSendMagicEffect(getThingPos(cid), 211)

              doSendAnimatedText(getThingPos(attacker), "MISS", 215)         --alterado v1.5

              return false

           end

        end

end

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

local valor = value

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

        multiplier = 2                                         --alterado v1.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

    valor = valor * multiplier

    if isSummon(attacker) then

        valor = valor * getHappinessRate(attacker)

    else

        valor = valor * summonReduction

    end

    valor = math.floor(valor)

    

    if combat == COMBAT_PHYSICALDAMAGE then

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

       valor = getOffense(attacker) * block

       

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

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

             doCreatureAddHealth(attacker, -valor, 3, 180)    

             valor = 0

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

          end

       end   

-- Return --        

if isSummon(cid) and isPlayer(getCreatureMaster(cid)) then

local returnbonus = {}

local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

local Tiers = {

[15] = {bonus = DmgReturn1},

[16] = {bonus = DmgReturn2},

[17] = {bonus = DmgReturn3},

[18] = {bonus = DmgReturn4},

[19] = {bonus = DmgReturn5},

[20] = {bonus = DmgReturn6},

[21] = {bonus = DmgReturn7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 14 and Tier < 22 then

returnbonus = math.floor((valor * Tiers[Tier].bonus))

elseif not isInArray(Tiers, Tier) then

returnbonus = 0

end

doCreatureAddHealth(attacker, -returnbonus)

end

-- Return --

else

-- Return --        

if isSummon(cid) and isPlayer(getCreatureMaster(cid)) then

local returnbonus = {}

local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

local Tiers = {

[15] = {bonus = DmgReturn1},

[16] = {bonus = DmgReturn2},

[17] = {bonus = DmgReturn3},

[18] = {bonus = DmgReturn4},

[19] = {bonus = DmgReturn5},

[20] = {bonus = DmgReturn6},

[21] = {bonus = DmgReturn7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 14 and Tier < 22 then

returnbonus = math.floor((valor * Tiers[Tier].bonus))

elseif not isInArray(Tiers, Tier) then

returnbonus = 0

end

doCreatureAddHealth(attacker, -returnbonus)

end

-- Return --

 

-- Critical -- 

if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local Tiers = {

[50] = {chance = Critical1},

[51] = {chance = Critical2},

[52] = {chance = Critical3},

[53] = {chance = Critical4},

[54] = {chance = Critical5},

[55] = {chance = Critical6},

[56] = {chance = Critical7},

}

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 84 and Tier < 92 then

if math.random(1,100) <= Tiers[Tier].chance then

valor = valor * 2

doSendAnimatedText(getThingPos(cid), "STK "..(valor * 0.25), 115)

end

end

end

-- Critical --

-- Return --

valor = valor / getDefense(cid)

end

    

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

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

       valor = valor*getClanPorcent(getCreatureMaster(attacker), combat, "atk")                           --alterado v1.3

    elseif isSummon(cid) and getPlayerStorageValue(getCreatureMaster(cid), 86228) >= 1 then

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

    end

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

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

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

    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)) then     --alterado v1.6

         valor = valor * 0                      --alterado v1.5

      end

   end

end

if damageCombat == GROUNDDAMAGE then

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

      valor = 0                      --alterado v1.5

   end

end

if getCreatureName(cid) == ironBody.name and getPlayerStorageValue(cid, 2818) < os.time() and math.random(1, 100) <= ironBody.chance then

    doSetCreatureOutfit(cid, {lookType = ironBody.outfit}, ironBody.duration * 1000)

    setPlayerStorageValue(cid, 9658783, 1)

    setPlayerStorageValue(cid, 2818, os.time() + ironBody.cooldown)

    addEvent(function()

        if isCreature(cid) then

            doRemoveCondition(cid, CONDITION_OUTFIT)

            setPlayerStorageValue(cid, 9658783, -1)

        end

    end, ironBody.duration * 1000)

end

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

local p = getThingPos(cid)                     

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

return false                                    

end

if getPlayerStorageValue(cid, 9658783) == 1 then

return false     --imune

end

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

local config = {

    sturdy = {                    --Pok駑ons que possuem a habilidade Sturdy. Configura鈬o: ["nome_do_pokemon"] = lookType,

        ["Aggron"] = 2279,

        ["Mega Aggron"] = 2299,

        ["Shiny Mega Aggron"] = 2299,        

        ["Shiny Aggron"] = 2280,

        ["Sudowoodo"] = 2282,

        ["Shiny Sudowoodo"] = 2282

    },

    cd = 0,                      --Cooldown da habilidade.

    duration = 8,                 --Dura鈬o, em segundos, do Sturdy.

    storage = 8402,

}

 

if getPlayerStorageValue(cid, config.storage) > -1 then

    return false

end

local hp = getCreatureHealth(cid) - valor

if not isPlayer(cid) and hp <= 1 and config.sturdy[getCreatureName(cid)] then

    local b = true

    if isSummon(cid) then

        local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

        if ball and getCD(ball.uid, "sturdy") > 0 then

            b = false

        end

    end

    if b then

        if hp < 1 then

            doCreatureAddHealth(cid, hp < 0 and (hp * -1) + 1 or 1)

        end

        setPlayerStorageValue(cid, config.storage, 1)

        if isSummon(cid) then

            local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

            if ball then

                setCD(ball.uid, "sturdy", config.duration + config.cd) 

            end

        end

        doSetCreatureOutfit(cid, {lookType = config.sturdy[getCreatureName(cid)]}, config.duration * 1000)

        addEvent(function()

            if isCreature(cid) and getPlayerStorageValue(cid, config.storage) > -1 then

                setPlayerStorageValue(cid, config.storage, -1)

                doCreatureAddHealth(cid, -getCreatureHealth(cid))

            end

        end, config.duration * 1000)

    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 v1.6

    

------------------ 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 v1.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 v1.6

   end

elseif damageCombat == SEED_BOMBDAMAGE then

   doHeal(attacker, valor)

end

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

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

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

   local ret = {}

   ret.id = cid

   ret.cd = 9

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

   ret.eff = 39

   ret.cond = "Silence"

   doCondition2(ret)

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

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

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Golbat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Zubat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

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

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Shiny Golbat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Shiny Zubat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

    if isSummon(cid) and valor >= getCreatureHealth(cid) then

    onPokeHealthChange(getCreatureMaster(cid), true)

     elseif isSummon(cid) then

    onPokeHealthChange(getCreatureMaster(cid))

    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 v1.6

        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 v1.6

        end

        if isSummon(cid) and valor ~= 0 then

            --addEvent(sendPlayerDmgMsg, 5, getCreatureMaster(cid), "Seu "..getCreatureName(cid).." perdeu "..valor.." de vida pelo attack do "..getSomeoneDescription(attacker)..".")

        end

    end

    

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

    -- Helfire --

    local hellfire = {}

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local TierArray = {22, 23, 24, 25, 26, 27, 28}

local Tiers = {

[22] = {bonus = HellBonus1},

[23] = {bonus = HellBonus2},

[24] = {bonus = HellBonus3},

[25] = {bonus = HellBonus4},

[26] = {bonus = HellBonus5},

[27] = {bonus = HellBonus6},

[28] = {bonus = HellBonus7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 21 and Tier < 29 then

hellfire = Tiers[Tier].bonus

else

hellfire = 1

    end

    end

    -- Hellfire --

       local ret = {}

       ret.id = cid

       ret.cd = math.random(5, 12)

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

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

       ret.cond = "Burn"

       

       doCondition2(ret)

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

    -- Poison --

    local xpoison = {}

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local TierArray = {29, 30, 31, 32, 33, 34, 35}

local Tiers = {

[29] = {bonus = PoisonBonus1},

[30] = {bonus = PoisonBonus2},

[31] = {bonus = PoisonBonus3},

[32] = {bonus = PoisonBonus4},

[33] = {bonus = PoisonBonus5},

[34] = {bonus = PoisonBonus6},

[35] = {bonus = PoisonBonus7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 28 and Tier < 36 then

xpoison = Tiers[Tier].bonus

elseif not isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then

xpoison = 1

end

    end

    -- Poison --

       local ret = {}

       ret.id = cid

       ret.cd = math.random(6, 15)

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

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

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

       ret.cond = "Poison"

       

       doCondition2(ret)

    end

--[[---------------CD BAR-----------------------

if isSummon(cid) then

   doCreatureExecuteTalkAction(getCreatureMaster(cid), "/pokeread")

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 v1.6

         doSendAnimatedText(getThingPos(cid), "LOST HEAL", 144)

      end

   end

end

----------------------------------------PASSIVAS------------------------------------- --alterado v1.6 \/ todas as passivas agora estao em lib/pokemon moves.lua

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

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

   docastspell(cid, "Counter Helix")

end

-------------------------------------------Lava-Counter----------------------------

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

   docastspell(cid, "Lava-Counter")

end

-------------------------------------------Shock-Counter----------------------------

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

   docastspell(cid, "Shock-Counter")

end

-------------------------------------------Bone Spin----------------------------

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

   docastspell(cid, "Bone-Spin")

end

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

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

   docastspell(cid, "Stunning Confusion")

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, 80) <= passivesChances["Mirror Coat"][getCreatureName(cid)] then   

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

end

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

return false

end

 

meu exp2.0 com sua ediçao:

Spoiler

local combats = {                         --alterado v1.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},

[FAIRYDAMAGE] = {cor = COLOR_PSYCHIC},

}

--alterado v1.5  tabelas agora estao em lib/configuration.lua

local function sendPlayerDmgMsg(cid, text)

    if not isCreature(cid) then return true end

    doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, text)

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},

[23] = {cor = COLOR_PSYCHIC},

[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, FAIRYDAMAGE}

local ignored = {POISONEDDAMAGE, BURNEDDAMAGE}                --alterado v1.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

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

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

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

    end

return true

end

local damageCombat = combat

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

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

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

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(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 v1.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, cid, 20, "Seu "..getPokeName(getCreatureSummons(attacker)[1]).." causou "..valor.." de dano no "..getSomeoneDescription(cid)..".")

    end

return true

end

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

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

--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) >= 1 then

--doSendAnimatedText(getThingPosWithDebug(attacker), "Hmpfg!", 215)

--doMonsterSetTarget(attacker, getCreatureSummons(cid)[1])

--end

return false

end

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

--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) <= 0 then

--doSendAnimatedText(getThingPosWithDebug(attacker), "Grrr!", 215)

--doMonsterSetTarget(attacker, cid)

--end

--return true

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

          doTeleportThing(cid, {x = 1001, y = 1026, z = 14}, false)

          doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

          return false --alterado v1.8                

      elseif getPlayerStorageValue(cid, 577869) >= 1 then

      setPlayerStorageValue(cid, 577869, 0)

      doTeleportThing(cid, {x = 1009, y = 1084, z = 14}, false)

      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

      return false

      elseif getPlayerStorageValue(cid, 20000) >= 1 then

      setPlayerStorageValue(cid, 20000, 0)

      setPlayerStorageValue(cid,30,0)      

             doTeleportThing(cid, {x = 1172, y = 1366, z = 7}, false)

             doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

       doPlayerSendTextMessage(cid, 20, "Voc・morreu no Saffari por Favor volte mais tarde!")

       return false

       elseif getPlayerStorageValue(cid, 20001) >= 1 then

      setPlayerStorageValue(cid,20001,0) 

             doTeleportThing(cid, {x = 1371, y = 1240, z = 7}, false)

      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

      doRemoveCondition(cid, CONDITION_OUTFIT)

       doPlayerSendTextMessage(cid, 20, "You are died in demon room, please come back!")

      return false

      end       

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

      if getPlayerStorageValue(cid, 18) >= 1 then

      setPlayerStorageValue(cid,18,0) 

      doRemoveCondition(cid, CONDITION_OUTFIT)

      end

     ------------Saffari----------------------------------

       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

      ------------Edited Golden Arena------------------

      if getPlayerStorageValue(cid, 22545) == 1 then

         if getGlobalStorageValue(22550) == 1 then

            doPlayerSendTextMessage(cid, 20, "Voc・foi o 伃timo sobrevivente da Golden Arena! Tome sua recompensa!")

            doPlayerAddItem(cid, 2160, getPlayerStorageValue(cid, 22551)*30/4) 

            doPlayerAddExperience(cid, 1000, getPlayerStorageValue(cid, 22551)*30) 

            setPlayerStorageValue(cid, 22545, -1)

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

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

            --setPlayerRecordWaves(cid)     

            endGoldenArena()

            return false --alterado v1.8           

         else

             setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)

             setPlayerStorageValue(cid, 22545, -1)

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

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

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

             --setPlayerRecordWaves(cid)     

             return true

         end 

     end

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

     if getPlayerSex(cid) == 1 then

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

     doDecayItem(corpse)

     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". He was killed by a ".. getCreatureName(attacker) .."")

     elseif getPlayerSex(cid) == 0 then     

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

     doDecayItem(corpse)

     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". She was killed by a ".. getCreatureName(attacker) .."")

    end

    end

    doCreatureAddHealth(cid, -valor, 3, 180)

    if not isPlayer(cid) then

    addEvent(sendPlayerDmgMsg, 5, cid, "Voc・perdeu "..valor.." em pontos de vida por um attack de "..getSomeoneDescription(attacker)..".")

    end

return false

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) then 

return false                                          --edited monstro nao atacar monstro

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 v1.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 v1.6

      poketype2 = pokes[getCreatureName(cid)].type2

   end

   if not poketype1 or not poketype2 then return false end  --alterado v1.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    --Edited effetivenes = pxg... ;p

        multiplier = multiplier - 0.25

    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 v1.5

         multiplier = 0.5                 

      end                         --alterado v1.6

    end

    -- X-Attack --

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

    local TierArray = {8, 9, 10, 11, 12, 13, 14}

    local Tiers = {

[8] = {bonus = AtkBonus1},

[9] = {bonus = AtkBonus2},

[10] = {bonus = AtkBonus3},

[11] = {bonus = AtkBonus4},

[12] = {bonus = AtkBonus5},

[13] = {bonus = AtkBonus6},

[14] = {bonus = AtkBonus7},

}

 local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local Tier = getItemAttribute(ball.uid, "heldx")

    local bonusatk = {}

    if isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then

    bonusatk = Tiers[Tier].bonus

    else

    bonusatk = 1

    end

        multiplier = multiplier * bonusatk

    end

    -- X-Attack --

elseif combat == COMBAT_PHYSICALDAMAGE then

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

       if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then  --passiva Foresight!!

          doSendMagicEffect(getThingPos(cid), 3)     

          return false

       end

    end

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

        local cd2 = getPlayerStorageValue(attacker, conds["Confusion"]) 

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

        legendarios = { "Blue Tower 1", "Blue Tower 2", "Blue Tower 3", "Red Tower 1", "Red Tower 2", "Red Tower 3", "Entei", "Moltres2", "Zapdos2", "Articuno2", "Celebi2"}

        if cd >= 0 or cd2 >= 0 or cd3 >= 0 and not isInArray(legendarios, getCreatureName(attacker))then

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

              doSendMagicEffect(getThingPos(cid), 211)

              doSendAnimatedText(getThingPos(attacker), "MISS", 215)         --alterado v1.5

              return false

           end

        end

end

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

local valor = value

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

        multiplier = 2                                         --alterado v1.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

    valor = valor * multiplier

    if isSummon(attacker) then

        valor = valor * getHappinessRate(attacker)

    else

        valor = valor * summonReduction

    end

    valor = math.floor(valor)

    

    if combat == COMBAT_PHYSICALDAMAGE then

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

       valor = getOffense(attacker) * block

       

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

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

             doCreatureAddHealth(attacker, -valor, 3, 180)    

             valor = 0

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

          end

       end   

      

-- Return --   

local Tiers = {

[15] = {bonus = DmgReturn1},

[16] = {bonus = DmgReturn2},

[17] = {bonus = DmgReturn3},

[18] = {bonus = DmgReturn4},

[19] = {bonus = DmgReturn5},

[20] = {bonus = DmgReturn6},

[21] = {bonus = DmgReturn7},

}

if isSummon(cid) then

   local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

   local Tier = getItemAttribute(ball.uid, "heldx")

         Tier = tonumber(Tier)

   local returnbonus = 0

   if isSummon(attacker) then

      if Tier and Tiers[Tier] then

         returnbonus = math.floor(valor * Tiers[Tier].bonus)

      end   

   elseif isMonster(attacker) and not isSummon(attacker) then

      if Tier and Tiers[Tier] then

         returnbonus = math.floor(valor * (Tiers[Tier].bonus * 5))

      end  

   end

   doCreatureAddHealth(attacker, -returnbonus)

end

-- Return --

-- Critical -- 

if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local Tiers = {

[50] = {chance = Critical1},

[51] = {chance = Critical2},

[52] = {chance = Critical3},

[53] = {chance = Critical4},

[54] = {chance = Critical5},

[55] = {chance = Critical6},

[56] = {chance = Critical7},

}

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 84 and Tier < 92 then

if math.random(1,100) <= Tiers[Tier].chance then

valor = valor * 2

doSendAnimatedText(getThingPos(cid), "STK "..(valor * 0.25), 115)

end

end

end

-- Critical --

-- Return --

valor = valor / getDefense(cid)

end

    

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

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

       valor = valor*getClanPorcent(getCreatureMaster(attacker), combat, "atk")                           --alterado v1.3

    elseif isSummon(cid) and getPlayerStorageValue(getCreatureMaster(cid), 86228) >= 1 then

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

    end

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

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

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

    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)) then     --alterado v1.6

         valor = valor * 0                      --alterado v1.5

      end

   end

end

if damageCombat == GROUNDDAMAGE then

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

      valor = 0                      --alterado v1.5

   end

end

if getCreatureName(cid) == ironBody.name and getPlayerStorageValue(cid, 2818) < os.time() and math.random(1, 100) <= ironBody.chance then

    doSetCreatureOutfit(cid, {lookType = ironBody.outfit}, ironBody.duration * 1000)

    setPlayerStorageValue(cid, 9658783, 1)

    setPlayerStorageValue(cid, 2818, os.time() + ironBody.cooldown)

    addEvent(function()

        if isCreature(cid) then

            doRemoveCondition(cid, CONDITION_OUTFIT)

            setPlayerStorageValue(cid, 9658783, -1)

        end

    end, ironBody.duration * 1000)

end

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

local p = getThingPos(cid)                     

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

return false                                    

end

if getPlayerStorageValue(cid, 9658783) == 1 then

return false     --imune

end

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

local config = {

    sturdy = {                    --Pok駑ons que possuem a habilidade Sturdy. Configura鈬o: ["nome_do_pokemon"] = lookType,

        ["Aggron"] = 2279,

        ["Mega Aggron"] = 2299,

        ["Shiny Mega Aggron"] = 2299,        

        ["Shiny Aggron"] = 2280,

        ["Sudowoodo"] = 2282,

        ["Shiny Sudowoodo"] = 2282

    },

    cd = 0,                      --Cooldown da habilidade.

    duration = 8,                 --Dura鈬o, em segundos, do Sturdy.

    storage = 8402,

}

 

if getPlayerStorageValue(cid, config.storage) > -1 then

    return false

end

local hp = getCreatureHealth(cid) - valor

if not isPlayer(cid) and hp <= 1 and config.sturdy[getCreatureName(cid)] then

    local b = true

    if isSummon(cid) then

        local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

        if ball and getCD(ball.uid, "sturdy") > 0 then

            b = false

        end

    end

    if b then

        if hp < 1 then

            doCreatureAddHealth(cid, hp < 0 and (hp * -1) + 1 or 1)

        end

        setPlayerStorageValue(cid, config.storage, 1)

        if isSummon(cid) then

            local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

            if ball then

                setCD(ball.uid, "sturdy", config.duration + config.cd) 

            end

        end

        doSetCreatureOutfit(cid, {lookType = config.sturdy[getCreatureName(cid)]}, config.duration * 1000)

        addEvent(function()

            if isCreature(cid) and getPlayerStorageValue(cid, config.storage) > -1 then

                setPlayerStorageValue(cid, config.storage, -1)

                doCreatureAddHealth(cid, -getCreatureHealth(cid))

            end

        end, config.duration * 1000)

    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 v1.6

    

------------------ 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 v1.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 v1.6

   end

elseif damageCombat == SEED_BOMBDAMAGE then

   doHeal(attacker, valor)

end

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

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

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

   local ret = {}

   ret.id = cid

   ret.cd = 9

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

   ret.eff = 39

   ret.cond = "Silence"

   doCondition2(ret)

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

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

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Golbat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Zubat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

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

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Shiny Golbat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Shiny Zubat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

    if isSummon(cid) and valor >= getCreatureHealth(cid) then

    onPokeHealthChange(getCreatureMaster(cid), true)

     elseif isSummon(cid) then

    onPokeHealthChange(getCreatureMaster(cid))

    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 v1.6

        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 v1.6

        end

        if isSummon(cid) and valor ~= 0 then

            --addEvent(sendPlayerDmgMsg, 5, getCreatureMaster(cid), "Seu "..getCreatureName(cid).." perdeu "..valor.." de vida pelo attack do "..getSomeoneDescription(attacker)..".")

        end

    end

    

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

    -- Helfire --

    local hellfire = {}

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local TierArray = {22, 23, 24, 25, 26, 27, 28}

local Tiers = {

[22] = {bonus = HellBonus1},

[23] = {bonus = HellBonus2},

[24] = {bonus = HellBonus3},

[25] = {bonus = HellBonus4},

[26] = {bonus = HellBonus5},

[27] = {bonus = HellBonus6},

[28] = {bonus = HellBonus7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 21 and Tier < 29 then

hellfire = Tiers[Tier].bonus

else

hellfire = 1

    end

    end

    -- Hellfire --

       local ret = {}

       ret.id = cid

       ret.cd = math.random(5, 12)

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

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

       ret.cond = "Burn"

       

       doCondition2(ret)

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

    -- Poison --

    local xpoison = {}

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local TierArray = {29, 30, 31, 32, 33, 34, 35}

local Tiers = {

[29] = {bonus = PoisonBonus1},

[30] = {bonus = PoisonBonus2},

[31] = {bonus = PoisonBonus3},

[32] = {bonus = PoisonBonus4},

[33] = {bonus = PoisonBonus5},

[34] = {bonus = PoisonBonus6},

[35] = {bonus = PoisonBonus7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 28 and Tier < 36 then

xpoison = Tiers[Tier].bonus

elseif not isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then

xpoison = 1

end

    end

    -- Poison --

       local ret = {}

       ret.id = cid

       ret.cd = math.random(6, 15)

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

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

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

       ret.cond = "Poison"

       

       doCondition2(ret)

    end

--[[---------------CD BAR-----------------------

if isSummon(cid) then

   doCreatureExecuteTalkAction(getCreatureMaster(cid), "/pokeread")

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 v1.6

         doSendAnimatedText(getThingPos(cid), "LOST HEAL", 144)

      end

   end

end

----------------------------------------PASSIVAS------------------------------------- --alterado v1.6 \/ todas as passivas agora estao em lib/pokemon moves.lua

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

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

   docastspell(cid, "Counter Helix")

end

-------------------------------------------Lava-Counter----------------------------

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

   docastspell(cid, "Lava-Counter")

end

-------------------------------------------Shock-Counter----------------------------

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

   docastspell(cid, "Shock-Counter")

end

-------------------------------------------Bone Spin----------------------------

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

   docastspell(cid, "Bone-Spin")

end

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

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

   docastspell(cid, "Stunning Confusion")

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, 80) <= passivesChances["Mirror Coat"][getCreatureName(cid)] then   

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

end

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

return false

end

edit: o dano é geral ate nos bixos salvagems, qualquer bixo esta dando hs em outro

Edited by Josegvb
Link to post
Share on other sites
  • 0

consegui arrumar o bug de td pokemon estiver dando hs em outro apenas colocando um ELSE

porem o return q vc postou esta devolvendo APENAS dano MEELE alias corporal, corpo ao corpo ele nao esta retornando o dano q recebe em skills, e se tiver como colocar pra sair o dano retornado como eu disse ia ajudar pra ver qt dano q ele retorna.

Link to post
Share on other sites
  • 0

se o x-return antes tava retornando todo tpw de dado e se tu boto oq eu passei no ms lugar então n era pra da problema o.O provavelmente tu colocou no lugar mas boto algun(s) 'end' a + ou tiro algu(s)...

oq eu passei ali era soh pra ser trocado pelo que tava entre o 1* comentário do x-return e o ultimo... 

 

seria bom tu passar o teu exp2.0 antes de fazer a modificação soh para ver se eh esse ms o problema...

 

sobre a msg, da pra por isso:

doSendAnimatedText(getThingPos(attacker),-returnbonus, 77)

emcima disso:

doCreatureAddHealth(attacker, -returnbonus)
Link to post
Share on other sites
  • 0
51 minutos atrás, nogenem45 disse:

se o x-return antes tava retornando todo tpw de dado e se tu boto oq eu passei no ms lugar então n era pra da problema o.O provavelmente tu colocou no lugar mas boto algun(s) 'end' a + ou tiro algu(s)...

oq eu passei ali era soh pra ser trocado pelo que tava entre o 1* comentário do x-return e o ultimo... 

 

seria bom tu passar o teu exp2.0 antes de fazer a modificação soh para ver se eh esse ms o problema...

 

sobre a msg, da pra por isso:

doSendAnimatedText(getThingPos(attacker),-returnbonus, 77)

emcima disso:

doCreatureAddHealth(attacker, -returnbonus)

 

script esta perfeito, funfando como deberia com a excepçao q ele nao ta retornado o dano recebedo pelo skillshots, peço pra dar uma olhada pfv

script com a modifiaçao: Lembrando que o else embaixo de -- return -- eu coloquei pois fikei comprando ambos e isso foi a unica coisa diferente deles q eu achei e sem esse else tava dando bug q td bixo tava dando hs em outro

-- Return --

else

Spoiler

local combats = {                         --alterado v1.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},

[FAIRYDAMAGE] = {cor = COLOR_PSYCHIC},

}

--alterado v1.5  tabelas agora estao em lib/configuration.lua

local function sendPlayerDmgMsg(cid, text)

    if not isCreature(cid) then return true end

    doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, text)

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},

[23] = {cor = COLOR_PSYCHIC},

[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, FAIRYDAMAGE}

local ignored = {POISONEDDAMAGE, BURNEDDAMAGE}                --alterado v1.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

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

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

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

    end

return true

end

local damageCombat = combat

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

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

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

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(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 v1.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, cid, 20, "Seu "..getPokeName(getCreatureSummons(attacker)[1]).." causou "..valor.." de dano no "..getSomeoneDescription(cid)..".")

    end

return true

end

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

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

--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) >= 1 then

--doSendAnimatedText(getThingPosWithDebug(attacker), "Hmpfg!", 215)

--doMonsterSetTarget(attacker, getCreatureSummons(cid)[1])

--end

return false

end

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

--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) <= 0 then

--doSendAnimatedText(getThingPosWithDebug(attacker), "Grrr!", 215)

--doMonsterSetTarget(attacker, cid)

--end

--return true

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

          doTeleportThing(cid, {x = 1001, y = 1026, z = 14}, false)

          doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

          return false --alterado v1.8                

      elseif getPlayerStorageValue(cid, 577869) >= 1 then

      setPlayerStorageValue(cid, 577869, 0)

      doTeleportThing(cid, {x = 1009, y = 1084, z = 14}, false)

      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

      return false

      elseif getPlayerStorageValue(cid, 20000) >= 1 then

      setPlayerStorageValue(cid, 20000, 0)

      setPlayerStorageValue(cid,30,0)      

             doTeleportThing(cid, {x = 1172, y = 1366, z = 7}, false)

             doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

       doPlayerSendTextMessage(cid, 20, "Voc・morreu no Saffari por Favor volte mais tarde!")

       return false

       elseif getPlayerStorageValue(cid, 20001) >= 1 then

      setPlayerStorageValue(cid,20001,0) 

             doTeleportThing(cid, {x = 1371, y = 1240, z = 7}, false)

      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

      doRemoveCondition(cid, CONDITION_OUTFIT)

       doPlayerSendTextMessage(cid, 20, "You are died in demon room, please come back!")

      return false

      end       

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

      if getPlayerStorageValue(cid, 18) >= 1 then

      setPlayerStorageValue(cid,18,0) 

      doRemoveCondition(cid, CONDITION_OUTFIT)

      end

     ------------Saffari----------------------------------

       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

      ------------Edited Golden Arena------------------

      if getPlayerStorageValue(cid, 22545) == 1 then

         if getGlobalStorageValue(22550) == 1 then

            doPlayerSendTextMessage(cid, 20, "Voc・foi o 伃timo sobrevivente da Golden Arena! Tome sua recompensa!")

            doPlayerAddItem(cid, 2160, getPlayerStorageValue(cid, 22551)*30/4) 

            doPlayerAddExperience(cid, 1000, getPlayerStorageValue(cid, 22551)*30) 

            setPlayerStorageValue(cid, 22545, -1)

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

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

            --setPlayerRecordWaves(cid)     

            endGoldenArena()

            return false --alterado v1.8           

         else

             setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)

             setPlayerStorageValue(cid, 22545, -1)

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

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

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

             --setPlayerRecordWaves(cid)     

             return true

         end 

     end

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

     if getPlayerSex(cid) == 1 then

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

     doDecayItem(corpse)

     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". He was killed by a ".. getCreatureName(attacker) .."")

     elseif getPlayerSex(cid) == 0 then     

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

     doDecayItem(corpse)

     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". She was killed by a ".. getCreatureName(attacker) .."")

    end

    end

    doCreatureAddHealth(cid, -valor, 3, 180)

    if not isPlayer(cid) then

    addEvent(sendPlayerDmgMsg, 5, cid, "Voc・perdeu "..valor.." em pontos de vida por um attack de "..getSomeoneDescription(attacker)..".")

    end

return false

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) then 

return false                                          --edited monstro nao atacar monstro

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 v1.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 v1.6

      poketype2 = pokes[getCreatureName(cid)].type2

   end

   if not poketype1 or not poketype2 then return false end  --alterado v1.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    --Edited effetivenes = pxg... ;p

        multiplier = multiplier - 0.25

    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 v1.5

         multiplier = 0.5                 

      end                         --alterado v1.6

    end

    -- X-Attack --

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

    local TierArray = {8, 9, 10, 11, 12, 13, 14}

    local Tiers = {

[8] = {bonus = AtkBonus1},

[9] = {bonus = AtkBonus2},

[10] = {bonus = AtkBonus3},

[11] = {bonus = AtkBonus4},

[12] = {bonus = AtkBonus5},

[13] = {bonus = AtkBonus6},

[14] = {bonus = AtkBonus7},

}

 local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local Tier = getItemAttribute(ball.uid, "heldx")

    local bonusatk = {}

    if isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then

    bonusatk = Tiers[Tier].bonus

    else

    bonusatk = 1

    end

        multiplier = multiplier * bonusatk

    end

    -- X-Attack --

elseif combat == COMBAT_PHYSICALDAMAGE then

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

       if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then  --passiva Foresight!!

          doSendMagicEffect(getThingPos(cid), 3)     

          return false

       end

    end

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

        local cd2 = getPlayerStorageValue(attacker, conds["Confusion"]) 

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

        legendarios = { "Blue Tower 1", "Blue Tower 2", "Blue Tower 3", "Red Tower 1", "Red Tower 2", "Red Tower 3", "Entei", "Moltres2", "Zapdos2", "Articuno2", "Celebi2"}

        if cd >= 0 or cd2 >= 0 or cd3 >= 0 and not isInArray(legendarios, getCreatureName(attacker))then

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

              doSendMagicEffect(getThingPos(cid), 211)

              doSendAnimatedText(getThingPos(attacker), "MISS", 215)         --alterado v1.5

              return false

           end

        end

end

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

local valor = value

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

        multiplier = 2                                         --alterado v1.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

    valor = valor * multiplier

    if isSummon(attacker) then

        valor = valor * getHappinessRate(attacker)

    else

        valor = valor * summonReduction

    end

    valor = math.floor(valor)

    

    if combat == COMBAT_PHYSICALDAMAGE then

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

       valor = getOffense(attacker) * block

       

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

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

             doCreatureAddHealth(attacker, -valor, 3, 180)    

             valor = 0

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

          end

       end   

      

-- Return --   

local Tiers = {

[15] = {bonus = DmgReturn1},

[16] = {bonus = DmgReturn2},

[17] = {bonus = DmgReturn3},

[18] = {bonus = DmgReturn4},

[19] = {bonus = DmgReturn5},

[20] = {bonus = DmgReturn6},

[21] = {bonus = DmgReturn7},

}

if isSummon(cid) then

   local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

   local Tier = getItemAttribute(ball.uid, "heldx")

         Tier = tonumber(Tier)

   local returnbonus = 0

   if isSummon(attacker) then

      if Tier and Tiers[Tier] then

         returnbonus = math.floor(valor * Tiers[Tier].bonus)

      end   

   elseif isMonster(attacker) and not isSummon(attacker) then

      if Tier and Tiers[Tier] then

         returnbonus = math.floor(valor * (Tiers[Tier].bonus * 5))

      end  

   end

   doSendAnimatedText(getThingPos(attacker),-returnbonus, 77)

   doCreatureAddHealth(attacker, -returnbonus)

end

-- Return --

else

 

-- Critical -- 

if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local Tiers = {

[50] = {chance = Critical1},

[51] = {chance = Critical2},

[52] = {chance = Critical3},

[53] = {chance = Critical4},

[54] = {chance = Critical5},

[55] = {chance = Critical6},

[56] = {chance = Critical7},

}

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 84 and Tier < 92 then

if math.random(1,100) <= Tiers[Tier].chance then

valor = valor * 2

doSendAnimatedText(getThingPos(cid), "STK "..(valor * 0.25), 115)

end

end

end

-- Critical --

-- Return --

valor = valor / getDefense(cid)

end

    

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

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

       valor = valor*getClanPorcent(getCreatureMaster(attacker), combat, "atk")                           --alterado v1.3

    elseif isSummon(cid) and getPlayerStorageValue(getCreatureMaster(cid), 86228) >= 1 then

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

    end

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

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

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

    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)) then     --alterado v1.6

         valor = valor * 0                      --alterado v1.5

      end

   end

end

if damageCombat == GROUNDDAMAGE then

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

      valor = 0                      --alterado v1.5

   end

end

if getCreatureName(cid) == ironBody.name and getPlayerStorageValue(cid, 2818) < os.time() and math.random(1, 100) <= ironBody.chance then

    doSetCreatureOutfit(cid, {lookType = ironBody.outfit}, ironBody.duration * 1000)

    setPlayerStorageValue(cid, 9658783, 1)

    setPlayerStorageValue(cid, 2818, os.time() + ironBody.cooldown)

    addEvent(function()

        if isCreature(cid) then

            doRemoveCondition(cid, CONDITION_OUTFIT)

            setPlayerStorageValue(cid, 9658783, -1)

        end

    end, ironBody.duration * 1000)

end

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

local p = getThingPos(cid)                     

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

return false                                    

end

if getPlayerStorageValue(cid, 9658783) == 1 then

return false     --imune

end

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

local config = {

    sturdy = {                    --Pok駑ons que possuem a habilidade Sturdy. Configura鈬o: ["nome_do_pokemon"] = lookType,

        ["Aggron"] = 2279,

        ["Mega Aggron"] = 2299,

        ["Shiny Mega Aggron"] = 2299,        

        ["Shiny Aggron"] = 2280,

        ["Sudowoodo"] = 2282,

        ["Shiny Sudowoodo"] = 2282

    },

    cd = 0,                      --Cooldown da habilidade.

    duration = 8,                 --Dura鈬o, em segundos, do Sturdy.

    storage = 8402,

}

 

if getPlayerStorageValue(cid, config.storage) > -1 then

    return false

end

local hp = getCreatureHealth(cid) - valor

if not isPlayer(cid) and hp <= 1 and config.sturdy[getCreatureName(cid)] then

    local b = true

    if isSummon(cid) then

        local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

        if ball and getCD(ball.uid, "sturdy") > 0 then

            b = false

        end

    end

    if b then

        if hp < 1 then

            doCreatureAddHealth(cid, hp < 0 and (hp * -1) + 1 or 1)

        end

        setPlayerStorageValue(cid, config.storage, 1)

        if isSummon(cid) then

            local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

            if ball then

                setCD(ball.uid, "sturdy", config.duration + config.cd) 

            end

        end

        doSetCreatureOutfit(cid, {lookType = config.sturdy[getCreatureName(cid)]}, config.duration * 1000)

        addEvent(function()

            if isCreature(cid) and getPlayerStorageValue(cid, config.storage) > -1 then

                setPlayerStorageValue(cid, config.storage, -1)

                doCreatureAddHealth(cid, -getCreatureHealth(cid))

            end

        end, config.duration * 1000)

    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 v1.6

    

------------------ 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 v1.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 v1.6

   end

elseif damageCombat == SEED_BOMBDAMAGE then

   doHeal(attacker, valor)

end

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

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

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

   local ret = {}

   ret.id = cid

   ret.cd = 9

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

   ret.eff = 39

   ret.cond = "Silence"

   doCondition2(ret)

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

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

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Golbat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Zubat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

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

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Shiny Golbat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Shiny Zubat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

    if isSummon(cid) and valor >= getCreatureHealth(cid) then

    onPokeHealthChange(getCreatureMaster(cid), true)

     elseif isSummon(cid) then

    onPokeHealthChange(getCreatureMaster(cid))

    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 v1.6

        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 v1.6

        end

        if isSummon(cid) and valor ~= 0 then

            --addEvent(sendPlayerDmgMsg, 5, getCreatureMaster(cid), "Seu "..getCreatureName(cid).." perdeu "..valor.." de vida pelo attack do "..getSomeoneDescription(attacker)..".")

        end

    end

    

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

    -- Helfire --

    local hellfire = {}

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local TierArray = {22, 23, 24, 25, 26, 27, 28}

local Tiers = {

[22] = {bonus = HellBonus1},

[23] = {bonus = HellBonus2},

[24] = {bonus = HellBonus3},

[25] = {bonus = HellBonus4},

[26] = {bonus = HellBonus5},

[27] = {bonus = HellBonus6},

[28] = {bonus = HellBonus7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 21 and Tier < 29 then

hellfire = Tiers[Tier].bonus

else

hellfire = 1

    end

    end

    -- Hellfire --

       local ret = {}

       ret.id = cid

       ret.cd = math.random(5, 12)

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

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

       ret.cond = "Burn"

       

       doCondition2(ret)

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

    -- Poison --

    local xpoison = {}

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local TierArray = {29, 30, 31, 32, 33, 34, 35}

local Tiers = {

[29] = {bonus = PoisonBonus1},

[30] = {bonus = PoisonBonus2},

[31] = {bonus = PoisonBonus3},

[32] = {bonus = PoisonBonus4},

[33] = {bonus = PoisonBonus5},

[34] = {bonus = PoisonBonus6},

[35] = {bonus = PoisonBonus7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 28 and Tier < 36 then

xpoison = Tiers[Tier].bonus

elseif not isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then

xpoison = 1

end

    end

    -- Poison --

       local ret = {}

       ret.id = cid

       ret.cd = math.random(6, 15)

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

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

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

       ret.cond = "Poison"

       

       doCondition2(ret)

    end

--[[---------------CD BAR-----------------------

if isSummon(cid) then

   doCreatureExecuteTalkAction(getCreatureMaster(cid), "/pokeread")

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 v1.6

         doSendAnimatedText(getThingPos(cid), "LOST HEAL", 144)

      end

   end

end

----------------------------------------PASSIVAS------------------------------------- --alterado v1.6 \/ todas as passivas agora estao em lib/pokemon moves.lua

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

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

   docastspell(cid, "Counter Helix")

end

-------------------------------------------Lava-Counter----------------------------

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

   docastspell(cid, "Lava-Counter")

end

-------------------------------------------Shock-Counter----------------------------

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

   docastspell(cid, "Shock-Counter")

end

-------------------------------------------Bone Spin----------------------------

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

   docastspell(cid, "Bone-Spin")

end

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

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

   docastspell(cid, "Stunning Confusion")

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, 80) <= passivesChances["Mirror Coat"][getCreatureName(cid)] then   

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

end

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

return false

end

e sem modificaçao:

Spoiler

local combats = {                         --alterado v1.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},

[FAIRYDAMAGE] = {cor = COLOR_PSYCHIC},

}

--alterado v1.5  tabelas agora estao em lib/configuration.lua

local function sendPlayerDmgMsg(cid, text)

    if not isCreature(cid) then return true end

    doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, text)

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},

[23] = {cor = COLOR_PSYCHIC},

[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, FAIRYDAMAGE}

local ignored = {POISONEDDAMAGE, BURNEDDAMAGE}                --alterado v1.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

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

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

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

    end

return true

end

local damageCombat = combat

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

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

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

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(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 v1.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, cid, 20, "Seu "..getPokeName(getCreatureSummons(attacker)[1]).." causou "..valor.." de dano no "..getSomeoneDescription(cid)..".")

    end

return true

end

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

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

--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) >= 1 then

--doSendAnimatedText(getThingPosWithDebug(attacker), "Hmpfg!", 215)

--doMonsterSetTarget(attacker, getCreatureSummons(cid)[1])

--end

return false

end

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

--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) <= 0 then

--doSendAnimatedText(getThingPosWithDebug(attacker), "Grrr!", 215)

--doMonsterSetTarget(attacker, cid)

--end

--return true

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

          doTeleportThing(cid, {x = 1001, y = 1026, z = 14}, false)

          doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

          return false --alterado v1.8                

      elseif getPlayerStorageValue(cid, 577869) >= 1 then

      setPlayerStorageValue(cid, 577869, 0)

      doTeleportThing(cid, {x = 1009, y = 1084, z = 14}, false)

      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

      return false

      elseif getPlayerStorageValue(cid, 20000) >= 1 then

      setPlayerStorageValue(cid, 20000, 0)

      setPlayerStorageValue(cid,30,0)      

             doTeleportThing(cid, {x = 1172, y = 1366, z = 7}, false)

             doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

       doPlayerSendTextMessage(cid, 20, "Voc・morreu no Saffari por Favor volte mais tarde!")

       return false

       elseif getPlayerStorageValue(cid, 20001) >= 1 then

      setPlayerStorageValue(cid,20001,0) 

             doTeleportThing(cid, {x = 1371, y = 1240, z = 7}, false)

      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

      doRemoveCondition(cid, CONDITION_OUTFIT)

       doPlayerSendTextMessage(cid, 20, "You are died in demon room, please come back!")

      return false

      end       

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

      if getPlayerStorageValue(cid, 18) >= 1 then

      setPlayerStorageValue(cid,18,0) 

      doRemoveCondition(cid, CONDITION_OUTFIT)

      end

     ------------Saffari----------------------------------

       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

      ------------Edited Golden Arena------------------

      if getPlayerStorageValue(cid, 22545) == 1 then

         if getGlobalStorageValue(22550) == 1 then

            doPlayerSendTextMessage(cid, 20, "Voc・foi o 伃timo sobrevivente da Golden Arena! Tome sua recompensa!")

            doPlayerAddItem(cid, 2160, getPlayerStorageValue(cid, 22551)*30/4) 

            doPlayerAddExperience(cid, 1000, getPlayerStorageValue(cid, 22551)*30) 

            setPlayerStorageValue(cid, 22545, -1)

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

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

            --setPlayerRecordWaves(cid)     

            endGoldenArena()

            return false --alterado v1.8           

         else

             setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)

             setPlayerStorageValue(cid, 22545, -1)

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

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

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

             --setPlayerRecordWaves(cid)     

             return true

         end 

     end

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

     if getPlayerSex(cid) == 1 then

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

     doDecayItem(corpse)

     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". He was killed by a ".. getCreatureName(attacker) .."")

     elseif getPlayerSex(cid) == 0 then     

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

     doDecayItem(corpse)

     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". She was killed by a ".. getCreatureName(attacker) .."")

    end

    end

    doCreatureAddHealth(cid, -valor, 3, 180)

    if not isPlayer(cid) then

    addEvent(sendPlayerDmgMsg, 5, cid, "Voc・perdeu "..valor.." em pontos de vida por um attack de "..getSomeoneDescription(attacker)..".")

    end

return false

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) then 

return false                                          --edited monstro nao atacar monstro

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 v1.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 v1.6

      poketype2 = pokes[getCreatureName(cid)].type2

   end

   if not poketype1 or not poketype2 then return false end  --alterado v1.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    --Edited effetivenes = pxg... ;p

        multiplier = multiplier - 0.25

    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 v1.5

         multiplier = 0.5                 

      end                         --alterado v1.6

    end

    -- X-Attack --

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

    local TierArray = {8, 9, 10, 11, 12, 13, 14}

    local Tiers = {

[8] = {bonus = AtkBonus1},

[9] = {bonus = AtkBonus2},

[10] = {bonus = AtkBonus3},

[11] = {bonus = AtkBonus4},

[12] = {bonus = AtkBonus5},

[13] = {bonus = AtkBonus6},

[14] = {bonus = AtkBonus7},

}

 local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local Tier = getItemAttribute(ball.uid, "heldx")

    local bonusatk = {}

    if isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then

    bonusatk = Tiers[Tier].bonus

    else

    bonusatk = 1

    end

        multiplier = multiplier * bonusatk

    end

    -- X-Attack --

elseif combat == COMBAT_PHYSICALDAMAGE then

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

       if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then  --passiva Foresight!!

          doSendMagicEffect(getThingPos(cid), 3)     

          return false

       end

    end

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

        local cd2 = getPlayerStorageValue(attacker, conds["Confusion"]) 

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

        legendarios = { "Blue Tower 1", "Blue Tower 2", "Blue Tower 3", "Red Tower 1", "Red Tower 2", "Red Tower 3", "Entei", "Moltres2", "Zapdos2", "Articuno2", "Celebi2"}

        if cd >= 0 or cd2 >= 0 or cd3 >= 0 and not isInArray(legendarios, getCreatureName(attacker))then

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

              doSendMagicEffect(getThingPos(cid), 211)

              doSendAnimatedText(getThingPos(attacker), "MISS", 215)         --alterado v1.5

              return false

           end

        end

end

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

local valor = value

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

        multiplier = 2                                         --alterado v1.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

    valor = valor * multiplier

    if isSummon(attacker) then

        valor = valor * getHappinessRate(attacker)

    else

        valor = valor * summonReduction

    end

    valor = math.floor(valor)

    

    if combat == COMBAT_PHYSICALDAMAGE then

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

       valor = getOffense(attacker) * block

       

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

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

             doCreatureAddHealth(attacker, -valor, 3, 180)    

             valor = 0

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

          end

       end   

-- Return --        

if isSummon(cid) and isPlayer(getCreatureMaster(cid)) then

local returnbonus = {}

local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

local Tiers = {

[15] = {bonus = DmgReturn1},

[16] = {bonus = DmgReturn2},

[17] = {bonus = DmgReturn3},

[18] = {bonus = DmgReturn4},

[19] = {bonus = DmgReturn5},

[20] = {bonus = DmgReturn6},

[21] = {bonus = DmgReturn7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 14 and Tier < 22 then

returnbonus = math.floor((valor * Tiers[Tier].bonus))

elseif not isInArray(Tiers, Tier) then

returnbonus = 0

end

doCreatureAddHealth(attacker, -returnbonus)

end

-- Return --

else

-- Return --        

if isSummon(cid) and isPlayer(getCreatureMaster(cid)) then

local returnbonus = {}

local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

local Tiers = {

[15] = {bonus = DmgReturn1},

[16] = {bonus = DmgReturn2},

[17] = {bonus = DmgReturn3},

[18] = {bonus = DmgReturn4},

[19] = {bonus = DmgReturn5},

[20] = {bonus = DmgReturn6},

[21] = {bonus = DmgReturn7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 14 and Tier < 22 then

returnbonus = math.floor((valor * Tiers[Tier].bonus))

elseif not isInArray(Tiers, Tier) then

returnbonus = 0

end

doCreatureAddHealth(attacker, -returnbonus)

end

-- Return --

 

-- Critical -- 

if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local Tiers = {

[50] = {chance = Critical1},

[51] = {chance = Critical2},

[52] = {chance = Critical3},

[53] = {chance = Critical4},

[54] = {chance = Critical5},

[55] = {chance = Critical6},

[56] = {chance = Critical7},

}

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 84 and Tier < 92 then

if math.random(1,100) <= Tiers[Tier].chance then

valor = valor * 2

doSendAnimatedText(getThingPos(cid), "STK "..(valor * 0.25), 115)

end

end

end

-- Critical --

-- Return --

valor = valor / getDefense(cid)

end

    

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

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

       valor = valor*getClanPorcent(getCreatureMaster(attacker), combat, "atk")                           --alterado v1.3

    elseif isSummon(cid) and getPlayerStorageValue(getCreatureMaster(cid), 86228) >= 1 then

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

    end

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

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

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

    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)) then     --alterado v1.6

         valor = valor * 0                      --alterado v1.5

      end

   end

end

if damageCombat == GROUNDDAMAGE then

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

      valor = 0                      --alterado v1.5

   end

end

if getCreatureName(cid) == ironBody.name and getPlayerStorageValue(cid, 2818) < os.time() and math.random(1, 100) <= ironBody.chance then

    doSetCreatureOutfit(cid, {lookType = ironBody.outfit}, ironBody.duration * 1000)

    setPlayerStorageValue(cid, 9658783, 1)

    setPlayerStorageValue(cid, 2818, os.time() + ironBody.cooldown)

    addEvent(function()

        if isCreature(cid) then

            doRemoveCondition(cid, CONDITION_OUTFIT)

            setPlayerStorageValue(cid, 9658783, -1)

        end

    end, ironBody.duration * 1000)

end

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

local p = getThingPos(cid)                     

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

return false                                    

end

if getPlayerStorageValue(cid, 9658783) == 1 then

return false     --imune

end

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

local config = {

    sturdy = {                    --Pok駑ons que possuem a habilidade Sturdy. Configura鈬o: ["nome_do_pokemon"] = lookType,

        ["Aggron"] = 2279,

        ["Mega Aggron"] = 2299,

        ["Shiny Mega Aggron"] = 2299,        

        ["Shiny Aggron"] = 2280,

        ["Sudowoodo"] = 2282,

        ["Shiny Sudowoodo"] = 2282

    },

    cd = 0,                      --Cooldown da habilidade.

    duration = 8,                 --Dura鈬o, em segundos, do Sturdy.

    storage = 8402,

}

 

if getPlayerStorageValue(cid, config.storage) > -1 then

    return false

end

local hp = getCreatureHealth(cid) - valor

if not isPlayer(cid) and hp <= 1 and config.sturdy[getCreatureName(cid)] then

    local b = true

    if isSummon(cid) then

        local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

        if ball and getCD(ball.uid, "sturdy") > 0 then

            b = false

        end

    end

    if b then

        if hp < 1 then

            doCreatureAddHealth(cid, hp < 0 and (hp * -1) + 1 or 1)

        end

        setPlayerStorageValue(cid, config.storage, 1)

        if isSummon(cid) then

            local ball = getPlayerSlotItem(getCreatureMaster(cid), 8):

            if ball then

                setCD(ball.uid, "sturdy", config.duration + config.cd) 

            end

        end

        doSetCreatureOutfit(cid, {lookType = config.sturdy[getCreatureName(cid)]}, config.duration * 1000)

        addEvent(function()

            if isCreature(cid) and getPlayerStorageValue(cid, config.storage) > -1 then

                setPlayerStorageValue(cid, config.storage, -1)

                doCreatureAddHealth(cid, -getCreatureHealth(cid))

            end

        end, config.duration * 1000)

    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 v1.6

    

------------------ 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 v1.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 v1.6

   end

elseif damageCombat == SEED_BOMBDAMAGE then

   doHeal(attacker, valor)

end

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

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

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

   local ret = {}

   ret.id = cid

   ret.cd = 9

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

   ret.eff = 39

   ret.cond = "Silence"

   doCondition2(ret)

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

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

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Golbat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Zubat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

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

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Shiny Golbat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

if combat == COMBAT_PHYSICALDAMAGE then

   if getCreatureName(attacker) == "Shiny Zubat" then                    --alterado v1.4

      doCreatureAddHealth(attacker, math.floor(valor))

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

   end

end

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

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

    if isSummon(cid) and valor >= getCreatureHealth(cid) then

    onPokeHealthChange(getCreatureMaster(cid), true)

     elseif isSummon(cid) then

    onPokeHealthChange(getCreatureMaster(cid))

    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 v1.6

        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 v1.6

        end

        if isSummon(cid) and valor ~= 0 then

            --addEvent(sendPlayerDmgMsg, 5, getCreatureMaster(cid), "Seu "..getCreatureName(cid).." perdeu "..valor.." de vida pelo attack do "..getSomeoneDescription(attacker)..".")

        end

    end

    

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

    -- Helfire --

    local hellfire = {}

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local TierArray = {22, 23, 24, 25, 26, 27, 28}

local Tiers = {

[22] = {bonus = HellBonus1},

[23] = {bonus = HellBonus2},

[24] = {bonus = HellBonus3},

[25] = {bonus = HellBonus4},

[26] = {bonus = HellBonus5},

[27] = {bonus = HellBonus6},

[28] = {bonus = HellBonus7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 21 and Tier < 29 then

hellfire = Tiers[Tier].bonus

else

hellfire = 1

    end

    end

    -- Hellfire --

       local ret = {}

       ret.id = cid

       ret.cd = math.random(5, 12)

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

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

       ret.cond = "Burn"

       

       doCondition2(ret)

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

    -- Poison --

    local xpoison = {}

    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then

local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8):

local TierArray = {29, 30, 31, 32, 33, 34, 35}

local Tiers = {

[29] = {bonus = PoisonBonus1},

[30] = {bonus = PoisonBonus2},

[31] = {bonus = PoisonBonus3},

[32] = {bonus = PoisonBonus4},

[33] = {bonus = PoisonBonus5},

[34] = {bonus = PoisonBonus6},

[35] = {bonus = PoisonBonus7},

}

local Tier = getItemAttribute(ball.uid, "heldx")

if Tier and Tier > 28 and Tier < 36 then

xpoison = Tiers[Tier].bonus

elseif not isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then

xpoison = 1

end

    end

    -- Poison --

       local ret = {}

       ret.id = cid

       ret.cd = math.random(6, 15)

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

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

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

       ret.cond = "Poison"

       

       doCondition2(ret)

    end

--[[---------------CD BAR-----------------------

if isSummon(cid) then

   doCreatureExecuteTalkAction(getCreatureMaster(cid), "/pokeread")

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 v1.6

         doSendAnimatedText(getThingPos(cid), "LOST HEAL", 144)

      end

   end

end

----------------------------------------PASSIVAS------------------------------------- --alterado v1.6 \/ todas as passivas agora estao em lib/pokemon moves.lua

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

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

   docastspell(cid, "Counter Helix")

end

-------------------------------------------Lava-Counter----------------------------

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

   docastspell(cid, "Lava-Counter")

end

-------------------------------------------Shock-Counter----------------------------

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

   docastspell(cid, "Shock-Counter")

end

-------------------------------------------Bone Spin----------------------------

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

   docastspell(cid, "Bone-Spin")

end

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

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

   docastspell(cid, "Stunning Confusion")

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, 80) <= passivesChances["Mirror Coat"][getCreatureName(cid)] then   

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

end

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

return false

end

ja tentei ver aonde tava o erro com os ends e tals mas nao deu certo

 

Edited by Josegvb
Link to post
Share on other sites
  • 0

Ja mencionei alguma vez q eu ODEIO esse exp.lua? kk' 

 

Ve se assim vai...

Spoiler
local combats = {                         --alterado v1.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},[FAIRYDAMAGE] = {cor = COLOR_PSYCHIC},}--alterado v1.5  tabelas agora estao em lib/configuration.lualocal function sendPlayerDmgMsg(cid, text)    if not isCreature(cid) then return true end    doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, text)endlocal 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},[23] = {cor = COLOR_PSYCHIC},[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, FAIRYDAMAGE}local ignored = {POISONEDDAMAGE, BURNEDDAMAGE}                --alterado v1.6local cannotkill = {BURNEDDAMAGE, POISONEDDAMAGE}-- Return ---local xreturn_tiers = {   [15] = {bonus = DmgReturn1},   [16] = {bonus = DmgReturn2},   [17] = {bonus = DmgReturn3},   [18] = {bonus = DmgReturn4},   [19] = {bonus = DmgReturn5},   [20] = {bonus = DmgReturn6},   [21] = {bonus = DmgReturn7},}local function xReturn(cid, attacker, value)   if isSummon(cid) then      local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)      local Tier = getItemAttribute(ball.uid, "heldx")            Tier = tonumber(Tier)      local returnbonus = 0      if isSummon(attacker) then         if Tier and xreturn_tiers[Tier] then            returnbonus = math.floor(value * xreturn_tiers[Tier].bonus)         end         elseif isMonster(attacker) then         if Tier and xreturn_tiers[Tier] then            returnbonus = math.floor(value * (xreturn_tiers[Tier].bonus * 5))         end        end      doSendAnimatedText(getThingPos(attacker), -returnbonus, 77)      doCreatureAddHealth(attacker, -returnbonus)   endend-- Return ---function onStatsChange(cid, attacker, type, combat, value)if combat == FLYSYSTEMDAMAGE then return false endif isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TVif not isCreature(attacker) then  --alterado v1.5 cid == attacker    if not isInArray(fixdamages, combat) and combats[combat] then        doSendAnimatedText(getThingPos(cid), value, combats[combat].cor)    endreturn trueendlocal damageCombat = combat----------------------------------------------------alterado v1.6  retirado os combats sleep_powder e poison_powder daki!--------------------------------------------------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    endreturn trueend--------------------------------------------------if isMonster(cid) thenlocal 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 v1.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   endend--------------------------------------------------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, cid, 20, "Seu "..getPokeName(getCreatureSummons(attacker)[1]).." causou "..valor.." de dano no "..getSomeoneDescription(cid)..".")    endreturn trueend--------------------------------------------------if isPlayer(cid) and #getCreatureSummons(cid) >= 1 and type == STATSCHANGE_HEALTHLOSS then--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) >= 1 then--doSendAnimatedText(getThingPosWithDebug(attacker), "Hmpfg!", 215)--doMonsterSetTarget(attacker, getCreatureSummons(cid)[1])--endreturn falseend--if isPlayer(cid) and #getCreatureSummons(cid) >= 1 and type == STATSCHANGE_HEALTHLOSS then--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) <= 0 then--doSendAnimatedText(getThingPosWithDebug(attacker), "Grrr!", 215)--doMonsterSetTarget(attacker, cid)--end--return true--end--------------------------------------------------if isPlayer(cid) and #getCreatureSummons(cid) <= 0 and type == STATSCHANGE_HEALTHLOSS thenif isSummon(attacker) or isPlayer(attacker) then   if canAttackOther(cid, attacker) == "Cant" then return false endend    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)          doTeleportThing(cid, {x = 1001, y = 1026, z = 14}, false)          doCreatureAddHealth(cid, getCreatureMaxHealth(cid))          return false --alterado v1.8                      elseif getPlayerStorageValue(cid, 577869) >= 1 then      setPlayerStorageValue(cid, 577869, 0)      doTeleportThing(cid, {x = 1009, y = 1084, z = 14}, false)      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))      return false      elseif getPlayerStorageValue(cid, 20000) >= 1 then      setPlayerStorageValue(cid, 20000, 0)      setPlayerStorageValue(cid,30,0)                   doTeleportThing(cid, {x = 1172, y = 1366, z = 7}, false)             doCreatureAddHealth(cid, getCreatureMaxHealth(cid))       doPlayerSendTextMessage(cid, 20, "Voc·morreu no Saffari por Favor volte mais tarde!")       return false       elseif getPlayerStorageValue(cid, 20001) >= 1 then      setPlayerStorageValue(cid,20001,0)              doTeleportThing(cid, {x = 1371, y = 1240, z = 7}, false)      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))      doRemoveCondition(cid, CONDITION_OUTFIT)       doPlayerSendTextMessage(cid, 20, "You are died in demon room, please come back!")      return false      end                 -------------------------------------------     ---      if getPlayerStorageValue(cid, 18) >= 1 then      setPlayerStorageValue(cid,18,0)       doRemoveCondition(cid, CONDITION_OUTFIT)      end     ------------Saffari----------------------------------       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      ------------Edited Golden Arena------------------      if getPlayerStorageValue(cid, 22545) == 1 then         if getGlobalStorageValue(22550) == 1 then            doPlayerSendTextMessage(cid, 20, "Voc·foi o ?timo sobrevivente da Golden Arena! Tome sua recompensa!")            doPlayerAddItem(cid, 2160, getPlayerStorageValue(cid, 22551)*30/4)             doPlayerAddExperience(cid, 1000, getPlayerStorageValue(cid, 22551)*30)             setPlayerStorageValue(cid, 22545, -1)            doTeleportThing(cid, getClosestFreeTile(cid, getClosestFreeTile(cid, posBackGolden)), false)              doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))            --setPlayerRecordWaves(cid)                 endGoldenArena()            return false --alterado v1.8                    else             setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)             setPlayerStorageValue(cid, 22545, -1)             doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)              doPlayerAddItem(cid, 2152, getPlayerStorageValue(cid, 22551)*5)                doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))             --setPlayerRecordWaves(cid)                  return true         end      end    ----------------------------------     if getPlayerSex(cid) == 1 then     local corpse = doCreateItem(3058, 1, getThingPos(cid))     doDecayItem(corpse)     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". He was killed by a ".. getCreatureName(attacker) .."")     elseif getPlayerSex(cid) == 0 then          local corpse = doCreateItem(3065, 1, getThingPos(cid))     doDecayItem(corpse)     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". She was killed by a ".. getCreatureName(attacker) .."")    end    end    doCreatureAddHealth(cid, -valor, 3, 180)    if not isPlayer(cid) then    addEvent(sendPlayerDmgMsg, 5, cid, "Voc·perdeu "..valor.." em pontos de vida por um attack de "..getSomeoneDescription(attacker)..".")    endreturn falseend----------------------------------------------------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) then return false                                          --edited monstro nao atacar monstroend----------------------------------------------------------------------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 v1.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   endend-------------------------------------------------local multiplier = 1   if isCreature(cid) then      poketype1 = pokes[getCreatureName(cid)].type        --alterado v1.6      poketype2 = pokes[getCreatureName(cid)].type2   end   if not poketype1 or not poketype2 then return false end  --alterado v1.6        if getCreatureCondition(cid, CONDITION_INVISIBLE) then    return false    endif 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    --Edited effetivenes = pxg... ;p        multiplier = multiplier - 0.25    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 v1.5         multiplier = 0.5                       end                         --alterado v1.6    end    -- X-Attack --    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then    local TierArray = {8, 9, 10, 11, 12, 13, 14}    local Tiers = {[8] = {bonus = AtkBonus1},[9] = {bonus = AtkBonus2},[10] = {bonus = AtkBonus3},[11] = {bonus = AtkBonus4},[12] = {bonus = AtkBonus5},[13] = {bonus = AtkBonus6},[14] = {bonus = AtkBonus7},} local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)local Tier = getItemAttribute(ball.uid, "heldx")    local bonusatk = {}    if isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then    bonusatk = Tiers[Tier].bonus    else    bonusatk = 1    end        multiplier = multiplier * bonusatk    end    -- X-Attack --elseif combat == COMBAT_PHYSICALDAMAGE then    if isGhostPokemon(cid) then               --alterado v1.3       if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then  --passiva Foresight!!          doSendMagicEffect(getThingPos(cid), 3)               return false       end    endlocal cd = getPlayerStorageValue(attacker, conds["Miss"])        local cd2 = getPlayerStorageValue(attacker, conds["Confusion"])         local cd3 = getPlayerStorageValue(attacker, conds["Stun"])         legendarios = { "Blue Tower 1", "Blue Tower 2", "Blue Tower 3", "Red Tower 1", "Red Tower 2", "Red Tower 3", "Entei", "Moltres2", "Zapdos2", "Articuno2", "Celebi2"}        if cd >= 0 or cd2 >= 0 or cd3 >= 0 and not isInArray(legendarios, getCreatureName(attacker))then           if math.random(1, 100) > 50 then  --Edited miss system  -- 50% chance de da miss no atk fisico              doSendMagicEffect(getThingPos(cid), 211)              doSendAnimatedText(getThingPos(attacker), "MISS", 215)         --alterado v1.5              return false           end        endend--------------------------------------------------local valor = value    if multiplier == 1.5 and poketype2 == "no type" then        multiplier = 2                                         --alterado v1.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    valor = valor * multiplier    if isSummon(attacker) then        valor = valor * getHappinessRate(attacker)    else        valor = valor * summonReduction    end    valor = math.floor(valor)        if combat == COMBAT_PHYSICALDAMAGE then       block = 1 - (getDefense(cid) / (getOffense(attacker) + getDefense(cid)))       valor = getOffense(attacker) * block              if isInArray(specialabilities["counter"], getCreatureName(cid)) then          if math.random(1, 100) <= 10 then             doCreatureAddHealth(attacker, -valor, 3, 180)                 valor = 0             doSendAnimatedText(getThingPosWithDebug(cid), "COUNTER", 215)          end       end          -- Return --               xReturn(cid, attacker, valor)       -- Return --      else           -- Return --            xReturn(cid, attacker, valor)       -- Return --       -- Critical --        if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then          local Tiers = {             [50] = {chance = Critical1},             [51] = {chance = Critical2},             [52] = {chance = Critical3},             [53] = {chance = Critical4},             [54] = {chance = Critical5},             [55] = {chance = Critical6},             [56] = {chance = Critical7},          }          local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)          local Tier = getItemAttribute(ball.uid, "heldx")          if Tier and Tier > 84 and Tier < 92 then             if math.random(1,100) <= Tiers[Tier].chance then                valor = valor * 2                doSendAnimatedText(getThingPos(cid), "STK "..(valor * 0.25), 115)             end          end       end       -- Critical --       valor = valor / getDefense(cid)   end        -------------------------Edited CLAN SYSTEM-----------------------------------    if isSummon(attacker) and getPlayerStorageValue(getCreatureMaster(attacker), 86228) >= 1 then       valor = valor*getClanPorcent(getCreatureMaster(attacker), combat, "atk")                           --alterado v1.3    elseif isSummon(cid) and getPlayerStorageValue(getCreatureMaster(cid), 86228) >= 1 then       valor = valor - (valor*getClanPorcent(getCreatureMaster(cid), combat, "def", pokes[getCreatureName(cid)].type, pokes[getCreatureName(cid)].type2))    end    -----------------------------------------------------------------------    ---------------------- FEAR / ROAR ------------------------------------    if getPlayerStorageValue(attacker, conds["Fear"]) >= 1 then         --alterado!!    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)) then     --alterado v1.6         valor = valor * 0                      --alterado v1.5      end   endendif damageCombat == GROUNDDAMAGE then   if isInArray(specialabilities["levitate"], getCreatureName(cid)) then      valor = 0                      --alterado v1.5   endendif getCreatureName(cid) == ironBody.name and getPlayerStorageValue(cid, 2818) < os.time() and math.random(1, 100) <= ironBody.chance then    doSetCreatureOutfit(cid, {lookType = ironBody.outfit}, ironBody.duration * 1000)    setPlayerStorageValue(cid, 9658783, 1)    setPlayerStorageValue(cid, 2818, os.time() + ironBody.cooldown)    addEvent(function()        if isCreature(cid) then            doRemoveCondition(cid, CONDITION_OUTFIT)            setPlayerStorageValue(cid, 9658783, -1)        end    end, ironBody.duration * 1000)end-----------------------------------------------------------------------------local p = getThingPos(cid)                     if p.x == 1 and p.y == 1 and p.z == 10 thenreturn false                                    endif getPlayerStorageValue(cid, 9658783) == 1 thenreturn false     --imuneend-----------------------------------------------------------------------------local config = {    sturdy = {                    --Pok?ons que possuem a habilidade Sturdy. Configura?o: ["nome_do_pokemon"] = lookType,        ["Aggron"] = 2279,        ["Mega Aggron"] = 2299,        ["Shiny Mega Aggron"] = 2299,                ["Shiny Aggron"] = 2280,        ["Sudowoodo"] = 2282,        ["Shiny Sudowoodo"] = 2282    },    cd = 0,                      --Cooldown da habilidade.    duration = 8,                 --Dura?o, em segundos, do Sturdy.    storage = 8402,} if getPlayerStorageValue(cid, config.storage) > -1 then    return falseendlocal hp = getCreatureHealth(cid) - valorif not isPlayer(cid) and hp <= 1 and config.sturdy[getCreatureName(cid)] then    local b = true    if isSummon(cid) then        local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)        if ball and getCD(ball.uid, "sturdy") > 0 then            b = false        end    end    if b then        if hp < 1 then            doCreatureAddHealth(cid, hp < 0 and (hp * -1) + 1 or 1)        end        setPlayerStorageValue(cid, config.storage, 1)        if isSummon(cid) then            local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)            if ball then                setCD(ball.uid, "sturdy", config.duration + config.cd)             end        end        doSetCreatureOutfit(cid, {lookType = config.sturdy[getCreatureName(cid)]}, config.duration * 1000)        addEvent(function()            if isCreature(cid) and getPlayerStorageValue(cid, config.storage) > -1 then                setPlayerStorageValue(cid, config.storage, -1)                doCreatureAddHealth(cid, -getCreatureHealth(cid))            end        end, config.duration * 1000)    endendif valor >= getCreatureHealth(cid) then    if isInArray(cannotKill, combat) and isPlayer(cid) then        valor = getCreatureHealth(cid) - 1    else        valor = getCreatureHealth(cid)     endend    valor = math.floor(valor)             --alterado v1.6    ------------------ SKILLs Q CURAM O ATTACKER ---------------------------------local function doHeal(cid, amount)if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then   amount = math.abs(getCreatureHealth(cid)-getCreatureMaxHealth(cid))endif getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then           --alterado v1.6   doCreatureAddHealth(cid, amount)   doSendAnimatedText(getThingPosWithDebug(cid), "+"..amount.."", 65) endend          if damageCombat == PSYCHICDAMAGE or damageCombat == MIRACLEDAMAGE then   if getPlayerStorageValue(attacker, 95487) >= 1 then      doHeal(attacker, valor)      setPlayerStorageValue(attacker, 95487, -1)                  --alterado v1.6   endelseif damageCombat == SEED_BOMBDAMAGE then   doHeal(attacker, valor)end------------------------------------------------------SACRED FIRE-----------------------if combat == SACREDDAMAGE and not ehNPC(cid) then    --alterado v1.6   local ret = {}   ret.id = cid   ret.cd = 9   ret.check = getPlayerStorageValue(cid, conds["Silence"])   ret.eff = 39   ret.cond = "Silence"   doCondition2(ret)end-----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Crobat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Golbat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Zubat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Shiny Crobat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Shiny Golbat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Shiny Zubat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend--------------------------------------------    valor = math.abs(valor)    --alterado v1.9    if isSummon(cid) and valor >= getCreatureHealth(cid) then    onPokeHealthChange(getCreatureMaster(cid), true)     elseif isSummon(cid) then    onPokeHealthChange(getCreatureMaster(cid))    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 v1.6        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 v1.6        end        if isSummon(cid) and valor ~= 0 then            --addEvent(sendPlayerDmgMsg, 5, getCreatureMaster(cid), "Seu "..getCreatureName(cid).." perdeu "..valor.." de vida pelo attack do "..getSomeoneDescription(attacker)..".")        end    end    if damageCombat == FIREDAMAGE and not isBurning(cid) then    -- Helfire --    local hellfire = {}    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) thenlocal ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)local TierArray = {22, 23, 24, 25, 26, 27, 28}local Tiers = {[22] = {bonus = HellBonus1},[23] = {bonus = HellBonus2},[24] = {bonus = HellBonus3},[25] = {bonus = HellBonus4},[26] = {bonus = HellBonus5},[27] = {bonus = HellBonus6},[28] = {bonus = HellBonus7},}local Tier = getItemAttribute(ball.uid, "heldx")if Tier and Tier > 21 and Tier < 29 thenhellfire = Tiers[Tier].bonuselsehellfire = 1    end    end    -- Hellfire --       local ret = {}       ret.id = cid       ret.cd = math.random(5, 12)       ret.check = getPlayerStorageValue(cid, conds["Burn"])       ret.damage = isSummon(attacker) and (getMasterLevel(attacker)+getPokemonBoost(attacker)) * hellfire or getPokemonLevel(attacker)       ret.cond = "Burn"              doCondition2(ret)    elseif damageCombat == POISONDAMAGE and not isPoisoned(cid) then    -- Poison --    local xpoison = {}    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) thenlocal ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)local TierArray = {29, 30, 31, 32, 33, 34, 35}local Tiers = {[29] = {bonus = PoisonBonus1},[30] = {bonus = PoisonBonus2},[31] = {bonus = PoisonBonus3},[32] = {bonus = PoisonBonus4},[33] = {bonus = PoisonBonus5},[34] = {bonus = PoisonBonus6},[35] = {bonus = PoisonBonus7},}local Tier = getItemAttribute(ball.uid, "heldx")if Tier and Tier > 28 and Tier < 36 thenxpoison = Tiers[Tier].bonuselseif not isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) thenxpoison = 1end    end    -- Poison --       local ret = {}       ret.id = cid       ret.cd = math.random(6, 15)       ret.check = getPlayerStorageValue(cid, conds["Poison"])       local lvl = isSummon(attacker) and (getMasterLevel(attacker)) * xpoison or getPokemonLevel(attacker)       ret.damage = math.floor((getPokemonLevel(attacker)+lvl)/2)       ret.cond = "Poison"              doCondition2(ret)    end--[[---------------CD BAR-----------------------if isSummon(cid) then   doCreatureExecuteTalkAction(getCreatureMaster(cid), "/pokeread")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 v1.6         doSendAnimatedText(getThingPos(cid), "LOST HEAL", 144)      end   endend----------------------------------------PASSIVAS------------------------------------- --alterado v1.6 \/ todas as passivas agora estao em lib/pokemon moves.lua-------------------------------------------Counter Helix------------------------------------if passivesChances["Helix"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Helix"][getCreatureName(cid)] then   docastspell(cid, "Counter Helix")end-------------------------------------------Lava-Counter----------------------------if passivesChances["Lava"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Lava"][getCreatureName(cid)] then   docastspell(cid, "Lava-Counter")end-------------------------------------------Shock-Counter----------------------------if passivesChances["Shock"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Shock"][getCreatureName(cid)] then   docastspell(cid, "Shock-Counter")end-------------------------------------------Bone Spin----------------------------if passivesChances["Bone"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Bone"][getCreatureName(cid)] then   docastspell(cid, "Bone-Spin")end---------------------------------------Stunning Confusion-----------------------------------------if passivesChances["Stunning"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Stunning"][getCreatureName(cid)] then     docastspell(cid, "Stunning Confusion")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, 80) <= passivesChances["Mirror Coat"][getCreatureName(cid)] then      docastspell(cid, "Mirror Coat", 0, 0)end--------------------------------- Illusion -----------------------------------------return falseend

 

 

Edited by nogenem45
Link to post
Share on other sites
  • 0
46 minutos atrás, nogenem45 disse:

minutos

 

edit: mano agr ta devolvendo o dano sim, porem bugou olha td oq ele ta recebendo/devolvendo

contra bixo normal return 7

d13d8bd1e1d7e3ba8c30023caa86f409.gif

 

contra bixo de outro player return 7:

5194b419ae5558b4ac4da1ef0c98f9e7.gif

Link to post
Share on other sites
  • 0

o.O eu n mudei nd no script doq tava antes... Os valores na lib tao como eu mandei antes neh? 

Pra mim, o problema ta em o xReturn estando tao 'alto' no script.. acho q ele deveria ta mais abaixo após todo o calculo de % de clan e def e o escambau... ;x

Tenta assim..

Spoiler
local combats = {                         --alterado v1.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},[FAIRYDAMAGE] = {cor = COLOR_PSYCHIC},}--alterado v1.5  tabelas agora estao em lib/configuration.lualocal function sendPlayerDmgMsg(cid, text)    if not isCreature(cid) then return true end    doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, text)endlocal 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},[23] = {cor = COLOR_PSYCHIC},[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, FAIRYDAMAGE}local ignored = {POISONEDDAMAGE, BURNEDDAMAGE}                --alterado v1.6local cannotkill = {BURNEDDAMAGE, POISONEDDAMAGE}-- Return ---local xreturn_tiers = {   [15] = {bonus = DmgReturn1},   [16] = {bonus = DmgReturn2},   [17] = {bonus = DmgReturn3},   [18] = {bonus = DmgReturn4},   [19] = {bonus = DmgReturn5},   [20] = {bonus = DmgReturn6},   [21] = {bonus = DmgReturn7},}local function xReturn(cid, attacker, value)   if isSummon(cid) then      local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)      local Tier = getItemAttribute(ball.uid, "heldx")            Tier = tonumber(Tier)      local returnbonus = 0      if isSummon(attacker) then         if Tier and xreturn_tiers[Tier] then            returnbonus = math.floor(value * xreturn_tiers[Tier].bonus)         end         elseif isMonster(attacker) then         if Tier and xreturn_tiers[Tier] then            returnbonus = math.floor(value * (xreturn_tiers[Tier].bonus * 5))         end        end      doSendAnimatedText(getThingPos(attacker), -returnbonus, 77)      doCreatureAddHealth(attacker, -returnbonus)   endend-- Return ---function onStatsChange(cid, attacker, type, combat, value)if combat == FLYSYSTEMDAMAGE then return false endif isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TVif not isCreature(attacker) then  --alterado v1.5 cid == attacker    if not isInArray(fixdamages, combat) and combats[combat] then        doSendAnimatedText(getThingPos(cid), value, combats[combat].cor)    endreturn trueendlocal damageCombat = combat----------------------------------------------------alterado v1.6  retirado os combats sleep_powder e poison_powder daki!--------------------------------------------------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    endreturn trueend--------------------------------------------------if isMonster(cid) thenlocal 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 v1.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   endend--------------------------------------------------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, cid, 20, "Seu "..getPokeName(getCreatureSummons(attacker)[1]).." causou "..valor.." de dano no "..getSomeoneDescription(cid)..".")    endreturn trueend--------------------------------------------------if isPlayer(cid) and #getCreatureSummons(cid) >= 1 and type == STATSCHANGE_HEALTHLOSS then--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) >= 1 then--doSendAnimatedText(getThingPosWithDebug(attacker), "Hmpfg!", 215)--doMonsterSetTarget(attacker, getCreatureSummons(cid)[1])--endreturn falseend--if isPlayer(cid) and #getCreatureSummons(cid) >= 1 and type == STATSCHANGE_HEALTHLOSS then--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) <= 0 then--doSendAnimatedText(getThingPosWithDebug(attacker), "Grrr!", 215)--doMonsterSetTarget(attacker, cid)--end--return true--end--------------------------------------------------if isPlayer(cid) and #getCreatureSummons(cid) <= 0 and type == STATSCHANGE_HEALTHLOSS thenif isSummon(attacker) or isPlayer(attacker) then   if canAttackOther(cid, attacker) == "Cant" then return false endend    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)          doTeleportThing(cid, {x = 1001, y = 1026, z = 14}, false)          doCreatureAddHealth(cid, getCreatureMaxHealth(cid))          return false --alterado v1.8                      elseif getPlayerStorageValue(cid, 577869) >= 1 then      setPlayerStorageValue(cid, 577869, 0)      doTeleportThing(cid, {x = 1009, y = 1084, z = 14}, false)      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))      return false      elseif getPlayerStorageValue(cid, 20000) >= 1 then      setPlayerStorageValue(cid, 20000, 0)      setPlayerStorageValue(cid,30,0)                   doTeleportThing(cid, {x = 1172, y = 1366, z = 7}, false)             doCreatureAddHealth(cid, getCreatureMaxHealth(cid))       doPlayerSendTextMessage(cid, 20, "Voc·morreu no Saffari por Favor volte mais tarde!")       return false       elseif getPlayerStorageValue(cid, 20001) >= 1 then      setPlayerStorageValue(cid,20001,0)              doTeleportThing(cid, {x = 1371, y = 1240, z = 7}, false)      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))      doRemoveCondition(cid, CONDITION_OUTFIT)       doPlayerSendTextMessage(cid, 20, "You are died in demon room, please come back!")      return false      end                 -------------------------------------------     ---      if getPlayerStorageValue(cid, 18) >= 1 then      setPlayerStorageValue(cid,18,0)       doRemoveCondition(cid, CONDITION_OUTFIT)      end     ------------Saffari----------------------------------       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      ------------Edited Golden Arena------------------      if getPlayerStorageValue(cid, 22545) == 1 then         if getGlobalStorageValue(22550) == 1 then            doPlayerSendTextMessage(cid, 20, "Voc·foi o ?timo sobrevivente da Golden Arena! Tome sua recompensa!")            doPlayerAddItem(cid, 2160, getPlayerStorageValue(cid, 22551)*30/4)             doPlayerAddExperience(cid, 1000, getPlayerStorageValue(cid, 22551)*30)             setPlayerStorageValue(cid, 22545, -1)            doTeleportThing(cid, getClosestFreeTile(cid, getClosestFreeTile(cid, posBackGolden)), false)              doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))            --setPlayerRecordWaves(cid)                 endGoldenArena()            return false --alterado v1.8                    else             setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)             setPlayerStorageValue(cid, 22545, -1)             doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)              doPlayerAddItem(cid, 2152, getPlayerStorageValue(cid, 22551)*5)                doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))             --setPlayerRecordWaves(cid)                  return true         end      end    ----------------------------------     if getPlayerSex(cid) == 1 then     local corpse = doCreateItem(3058, 1, getThingPos(cid))     doDecayItem(corpse)     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". He was killed by a ".. getCreatureName(attacker) .."")     elseif getPlayerSex(cid) == 0 then          local corpse = doCreateItem(3065, 1, getThingPos(cid))     doDecayItem(corpse)     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". She was killed by a ".. getCreatureName(attacker) .."")    end    end    doCreatureAddHealth(cid, -valor, 3, 180)    if not isPlayer(cid) then    addEvent(sendPlayerDmgMsg, 5, cid, "Voc·perdeu "..valor.." em pontos de vida por um attack de "..getSomeoneDescription(attacker)..".")    endreturn falseend----------------------------------------------------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) then return false                                          --edited monstro nao atacar monstroend----------------------------------------------------------------------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 v1.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   endend-------------------------------------------------local multiplier = 1   if isCreature(cid) then      poketype1 = pokes[getCreatureName(cid)].type        --alterado v1.6      poketype2 = pokes[getCreatureName(cid)].type2   end   if not poketype1 or not poketype2 then return false end  --alterado v1.6        if getCreatureCondition(cid, CONDITION_INVISIBLE) then    return false    endif 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    --Edited effetivenes = pxg... ;p        multiplier = multiplier - 0.25    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 v1.5         multiplier = 0.5                       end                         --alterado v1.6    end    -- X-Attack --    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then    local TierArray = {8, 9, 10, 11, 12, 13, 14}    local Tiers = {[8] = {bonus = AtkBonus1},[9] = {bonus = AtkBonus2},[10] = {bonus = AtkBonus3},[11] = {bonus = AtkBonus4},[12] = {bonus = AtkBonus5},[13] = {bonus = AtkBonus6},[14] = {bonus = AtkBonus7},} local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)local Tier = getItemAttribute(ball.uid, "heldx")    local bonusatk = {}    if isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then    bonusatk = Tiers[Tier].bonus    else    bonusatk = 1    end        multiplier = multiplier * bonusatk    end    -- X-Attack --elseif combat == COMBAT_PHYSICALDAMAGE then    if isGhostPokemon(cid) then               --alterado v1.3       if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then  --passiva Foresight!!          doSendMagicEffect(getThingPos(cid), 3)               return false       end    endlocal cd = getPlayerStorageValue(attacker, conds["Miss"])        local cd2 = getPlayerStorageValue(attacker, conds["Confusion"])         local cd3 = getPlayerStorageValue(attacker, conds["Stun"])         legendarios = { "Blue Tower 1", "Blue Tower 2", "Blue Tower 3", "Red Tower 1", "Red Tower 2", "Red Tower 3", "Entei", "Moltres2", "Zapdos2", "Articuno2", "Celebi2"}        if cd >= 0 or cd2 >= 0 or cd3 >= 0 and not isInArray(legendarios, getCreatureName(attacker))then           if math.random(1, 100) > 50 then  --Edited miss system  -- 50% chance de da miss no atk fisico              doSendMagicEffect(getThingPos(cid), 211)              doSendAnimatedText(getThingPos(attacker), "MISS", 215)         --alterado v1.5              return false           end        endend--------------------------------------------------local valor = value    if multiplier == 1.5 and poketype2 == "no type" then        multiplier = 2                                         --alterado v1.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    valor = valor * multiplier    if isSummon(attacker) then        valor = valor * getHappinessRate(attacker)    else        valor = valor * summonReduction    end    valor = math.floor(valor)        if combat == COMBAT_PHYSICALDAMAGE then       block = 1 - (getDefense(cid) / (getOffense(attacker) + getDefense(cid)))       valor = getOffense(attacker) * block              if isInArray(specialabilities["counter"], getCreatureName(cid)) then          if math.random(1, 100) <= 10 then             doCreatureAddHealth(attacker, -valor, 3, 180)                 valor = 0             doSendAnimatedText(getThingPosWithDebug(cid), "COUNTER", 215)          end       end         else           -- Critical --        if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then          local Tiers = {             [50] = {chance = Critical1},             [51] = {chance = Critical2},             [52] = {chance = Critical3},             [53] = {chance = Critical4},             [54] = {chance = Critical5},             [55] = {chance = Critical6},             [56] = {chance = Critical7},          }          local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)          local Tier = getItemAttribute(ball.uid, "heldx")          if Tier and Tier > 84 and Tier < 92 then             if math.random(1,100) <= Tiers[Tier].chance then                valor = valor * 2                doSendAnimatedText(getThingPos(cid), "STK "..(valor * 0.25), 115)             end          end       end       -- Critical --       valor = valor / getDefense(cid)   end        -------------------------Edited CLAN SYSTEM-----------------------------------    if isSummon(attacker) and getPlayerStorageValue(getCreatureMaster(attacker), 86228) >= 1 then       valor = valor*getClanPorcent(getCreatureMaster(attacker), combat, "atk")                           --alterado v1.3    elseif isSummon(cid) and getPlayerStorageValue(getCreatureMaster(cid), 86228) >= 1 then       valor = valor - (valor*getClanPorcent(getCreatureMaster(cid), combat, "def", pokes[getCreatureName(cid)].type, pokes[getCreatureName(cid)].type2))    end    -----------------------------------------------------------------------    ---------------------- FEAR / ROAR ------------------------------------    if getPlayerStorageValue(attacker, conds["Fear"]) >= 1 then         --alterado!!    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)) then     --alterado v1.6         valor = valor * 0                      --alterado v1.5      end   endendif damageCombat == GROUNDDAMAGE then   if isInArray(specialabilities["levitate"], getCreatureName(cid)) then      valor = 0                      --alterado v1.5   endendif getCreatureName(cid) == ironBody.name and getPlayerStorageValue(cid, 2818) < os.time() and math.random(1, 100) <= ironBody.chance then    doSetCreatureOutfit(cid, {lookType = ironBody.outfit}, ironBody.duration * 1000)    setPlayerStorageValue(cid, 9658783, 1)    setPlayerStorageValue(cid, 2818, os.time() + ironBody.cooldown)    addEvent(function()        if isCreature(cid) then            doRemoveCondition(cid, CONDITION_OUTFIT)            setPlayerStorageValue(cid, 9658783, -1)        end    end, ironBody.duration * 1000)end-----------------------------------------------------------------------------local p = getThingPos(cid)                     if p.x == 1 and p.y == 1 and p.z == 10 thenreturn false                                    endif getPlayerStorageValue(cid, 9658783) == 1 thenreturn false     --imuneend-----------------------------------------------------------------------------local config = {    sturdy = {                    --Pok?ons que possuem a habilidade Sturdy. Configura?o: ["nome_do_pokemon"] = lookType,        ["Aggron"] = 2279,        ["Mega Aggron"] = 2299,        ["Shiny Mega Aggron"] = 2299,                ["Shiny Aggron"] = 2280,        ["Sudowoodo"] = 2282,        ["Shiny Sudowoodo"] = 2282    },    cd = 0,                      --Cooldown da habilidade.    duration = 8,                 --Dura?o, em segundos, do Sturdy.    storage = 8402,} if getPlayerStorageValue(cid, config.storage) > -1 then    return falseendlocal hp = getCreatureHealth(cid) - valorif not isPlayer(cid) and hp <= 1 and config.sturdy[getCreatureName(cid)] then    local b = true    if isSummon(cid) then        local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)        if ball and getCD(ball.uid, "sturdy") > 0 then            b = false        end    end    if b then        if hp < 1 then            doCreatureAddHealth(cid, hp < 0 and (hp * -1) + 1 or 1)        end        setPlayerStorageValue(cid, config.storage, 1)        if isSummon(cid) then            local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)            if ball then                setCD(ball.uid, "sturdy", config.duration + config.cd)             end        end        doSetCreatureOutfit(cid, {lookType = config.sturdy[getCreatureName(cid)]}, config.duration * 1000)        addEvent(function()            if isCreature(cid) and getPlayerStorageValue(cid, config.storage) > -1 then                setPlayerStorageValue(cid, config.storage, -1)                doCreatureAddHealth(cid, -getCreatureHealth(cid))            end        end, config.duration * 1000)    endendif valor >= getCreatureHealth(cid) then    if isInArray(cannotKill, combat) and isPlayer(cid) then        valor = getCreatureHealth(cid) - 1    else        valor = getCreatureHealth(cid)     endend    valor = math.floor(valor)             --alterado v1.6    ------------------ SKILLs Q CURAM O ATTACKER ---------------------------------local function doHeal(cid, amount)if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then   amount = math.abs(getCreatureHealth(cid)-getCreatureMaxHealth(cid))endif getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then           --alterado v1.6   doCreatureAddHealth(cid, amount)   doSendAnimatedText(getThingPosWithDebug(cid), "+"..amount.."", 65) endend          if damageCombat == PSYCHICDAMAGE or damageCombat == MIRACLEDAMAGE then   if getPlayerStorageValue(attacker, 95487) >= 1 then      doHeal(attacker, valor)      setPlayerStorageValue(attacker, 95487, -1)                  --alterado v1.6   endelseif damageCombat == SEED_BOMBDAMAGE then   doHeal(attacker, valor)end------------------------------------------------------SACRED FIRE-----------------------if combat == SACREDDAMAGE and not ehNPC(cid) then    --alterado v1.6   local ret = {}   ret.id = cid   ret.cd = 9   ret.check = getPlayerStorageValue(cid, conds["Silence"])   ret.eff = 39   ret.cond = "Silence"   doCondition2(ret)end-----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Crobat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Golbat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Zubat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Shiny Crobat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Shiny Golbat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Shiny Zubat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend--------------------------------------------    valor = math.abs(valor)    --alterado v1.9        -- Return --            xReturn(cid, attacker, valor)    -- Return --        if isSummon(cid) and valor >= getCreatureHealth(cid) then    onPokeHealthChange(getCreatureMaster(cid), true)     elseif isSummon(cid) then    onPokeHealthChange(getCreatureMaster(cid))    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 v1.6        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 v1.6        end        if isSummon(cid) and valor ~= 0 then            --addEvent(sendPlayerDmgMsg, 5, getCreatureMaster(cid), "Seu "..getCreatureName(cid).." perdeu "..valor.." de vida pelo attack do "..getSomeoneDescription(attacker)..".")        end    end    if damageCombat == FIREDAMAGE and not isBurning(cid) then    -- Helfire --    local hellfire = {}    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) thenlocal ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)local TierArray = {22, 23, 24, 25, 26, 27, 28}local Tiers = {[22] = {bonus = HellBonus1},[23] = {bonus = HellBonus2},[24] = {bonus = HellBonus3},[25] = {bonus = HellBonus4},[26] = {bonus = HellBonus5},[27] = {bonus = HellBonus6},[28] = {bonus = HellBonus7},}local Tier = getItemAttribute(ball.uid, "heldx")if Tier and Tier > 21 and Tier < 29 thenhellfire = Tiers[Tier].bonuselsehellfire = 1    end    end    -- Hellfire --       local ret = {}       ret.id = cid       ret.cd = math.random(5, 12)       ret.check = getPlayerStorageValue(cid, conds["Burn"])       ret.damage = isSummon(attacker) and (getMasterLevel(attacker)+getPokemonBoost(attacker)) * hellfire or getPokemonLevel(attacker)       ret.cond = "Burn"              doCondition2(ret)    elseif damageCombat == POISONDAMAGE and not isPoisoned(cid) then    -- Poison --    local xpoison = {}    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) thenlocal ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)local TierArray = {29, 30, 31, 32, 33, 34, 35}local Tiers = {[29] = {bonus = PoisonBonus1},[30] = {bonus = PoisonBonus2},[31] = {bonus = PoisonBonus3},[32] = {bonus = PoisonBonus4},[33] = {bonus = PoisonBonus5},[34] = {bonus = PoisonBonus6},[35] = {bonus = PoisonBonus7},}local Tier = getItemAttribute(ball.uid, "heldx")if Tier and Tier > 28 and Tier < 36 thenxpoison = Tiers[Tier].bonuselseif not isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) thenxpoison = 1end    end    -- Poison --       local ret = {}       ret.id = cid       ret.cd = math.random(6, 15)       ret.check = getPlayerStorageValue(cid, conds["Poison"])       local lvl = isSummon(attacker) and (getMasterLevel(attacker)) * xpoison or getPokemonLevel(attacker)       ret.damage = math.floor((getPokemonLevel(attacker)+lvl)/2)       ret.cond = "Poison"              doCondition2(ret)    end--[[---------------CD BAR-----------------------if isSummon(cid) then   doCreatureExecuteTalkAction(getCreatureMaster(cid), "/pokeread")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 v1.6         doSendAnimatedText(getThingPos(cid), "LOST HEAL", 144)      end   endend----------------------------------------PASSIVAS------------------------------------- --alterado v1.6 \/ todas as passivas agora estao em lib/pokemon moves.lua-------------------------------------------Counter Helix------------------------------------if passivesChances["Helix"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Helix"][getCreatureName(cid)] then   docastspell(cid, "Counter Helix")end-------------------------------------------Lava-Counter----------------------------if passivesChances["Lava"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Lava"][getCreatureName(cid)] then   docastspell(cid, "Lava-Counter")end-------------------------------------------Shock-Counter----------------------------if passivesChances["Shock"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Shock"][getCreatureName(cid)] then   docastspell(cid, "Shock-Counter")end-------------------------------------------Bone Spin----------------------------if passivesChances["Bone"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Bone"][getCreatureName(cid)] then   docastspell(cid, "Bone-Spin")end---------------------------------------Stunning Confusion-----------------------------------------if passivesChances["Stunning"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Stunning"][getCreatureName(cid)] then     docastspell(cid, "Stunning Confusion")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, 80) <= passivesChances["Mirror Coat"][getCreatureName(cid)] then      docastspell(cid, "Mirror Coat", 0, 0)end--------------------------------- Illusion -----------------------------------------return falseend

 

 

Link to post
Share on other sites
  • 0
39 minutos atrás, nogenem45 disse:

o.O eu n mudei nd no script doq tava antes... Os valores na lib tao como eu mandei antes neh? 

Pra mim, o problema ta em o xReturn estando tao 'alto' no script.. acho q ele deveria ta mais abaixo após todo o calculo de % de clan e def e o escambau... ;x

Tenta assim..

  Mostrar conteúdo oculto
local combats = {                         --alterado v1.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},[FAIRYDAMAGE] = {cor = COLOR_PSYCHIC},}--alterado v1.5  tabelas agora estao em lib/configuration.lualocal function sendPlayerDmgMsg(cid, text)    if not isCreature(cid) then return true end    doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, text)endlocal 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},[23] = {cor = COLOR_PSYCHIC},[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, FAIRYDAMAGE}local ignored = {POISONEDDAMAGE, BURNEDDAMAGE}                --alterado v1.6local cannotkill = {BURNEDDAMAGE, POISONEDDAMAGE}-- Return ---local xreturn_tiers = {   [15] = {bonus = DmgReturn1},   [16] = {bonus = DmgReturn2},   [17] = {bonus = DmgReturn3},   [18] = {bonus = DmgReturn4},   [19] = {bonus = DmgReturn5},   [20] = {bonus = DmgReturn6},   [21] = {bonus = DmgReturn7},}local function xReturn(cid, attacker, value)   if isSummon(cid) then      local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)      local Tier = getItemAttribute(ball.uid, "heldx")            Tier = tonumber(Tier)      local returnbonus = 0      if isSummon(attacker) then         if Tier and xreturn_tiers[Tier] then            returnbonus = math.floor(value * xreturn_tiers[Tier].bonus)         end         elseif isMonster(attacker) then         if Tier and xreturn_tiers[Tier] then            returnbonus = math.floor(value * (xreturn_tiers[Tier].bonus * 5))         end        end      doSendAnimatedText(getThingPos(attacker), -returnbonus, 77)      doCreatureAddHealth(attacker, -returnbonus)   endend-- Return ---function onStatsChange(cid, attacker, type, combat, value)if combat == FLYSYSTEMDAMAGE then return false endif isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TVif not isCreature(attacker) then  --alterado v1.5 cid == attacker    if not isInArray(fixdamages, combat) and combats[combat] then        doSendAnimatedText(getThingPos(cid), value, combats[combat].cor)    endreturn trueendlocal damageCombat = combat----------------------------------------------------alterado v1.6  retirado os combats sleep_powder e poison_powder daki!--------------------------------------------------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    endreturn trueend--------------------------------------------------if isMonster(cid) thenlocal 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 v1.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   endend--------------------------------------------------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, cid, 20, "Seu "..getPokeName(getCreatureSummons(attacker)[1]).." causou "..valor.." de dano no "..getSomeoneDescription(cid)..".")    endreturn trueend--------------------------------------------------if isPlayer(cid) and #getCreatureSummons(cid) >= 1 and type == STATSCHANGE_HEALTHLOSS then--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) >= 1 then--doSendAnimatedText(getThingPosWithDebug(attacker), "Hmpfg!", 215)--doMonsterSetTarget(attacker, getCreatureSummons(cid)[1])--endreturn falseend--if isPlayer(cid) and #getCreatureSummons(cid) >= 1 and type == STATSCHANGE_HEALTHLOSS then--if ehMonstro(attacker) and getClosestFreeTile(getCreatureSummons(cid)[1]) <= 0 then--doSendAnimatedText(getThingPosWithDebug(attacker), "Grrr!", 215)--doMonsterSetTarget(attacker, cid)--end--return true--end--------------------------------------------------if isPlayer(cid) and #getCreatureSummons(cid) <= 0 and type == STATSCHANGE_HEALTHLOSS thenif isSummon(attacker) or isPlayer(attacker) then   if canAttackOther(cid, attacker) == "Cant" then return false endend    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)          doTeleportThing(cid, {x = 1001, y = 1026, z = 14}, false)          doCreatureAddHealth(cid, getCreatureMaxHealth(cid))          return false --alterado v1.8                      elseif getPlayerStorageValue(cid, 577869) >= 1 then      setPlayerStorageValue(cid, 577869, 0)      doTeleportThing(cid, {x = 1009, y = 1084, z = 14}, false)      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))      return false      elseif getPlayerStorageValue(cid, 20000) >= 1 then      setPlayerStorageValue(cid, 20000, 0)      setPlayerStorageValue(cid,30,0)                   doTeleportThing(cid, {x = 1172, y = 1366, z = 7}, false)             doCreatureAddHealth(cid, getCreatureMaxHealth(cid))       doPlayerSendTextMessage(cid, 20, "Voc·morreu no Saffari por Favor volte mais tarde!")       return false       elseif getPlayerStorageValue(cid, 20001) >= 1 then      setPlayerStorageValue(cid,20001,0)              doTeleportThing(cid, {x = 1371, y = 1240, z = 7}, false)      doCreatureAddHealth(cid, getCreatureMaxHealth(cid))      doRemoveCondition(cid, CONDITION_OUTFIT)       doPlayerSendTextMessage(cid, 20, "You are died in demon room, please come back!")      return false      end                 -------------------------------------------     ---      if getPlayerStorageValue(cid, 18) >= 1 then      setPlayerStorageValue(cid,18,0)       doRemoveCondition(cid, CONDITION_OUTFIT)      end     ------------Saffari----------------------------------       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      ------------Edited Golden Arena------------------      if getPlayerStorageValue(cid, 22545) == 1 then         if getGlobalStorageValue(22550) == 1 then            doPlayerSendTextMessage(cid, 20, "Voc·foi o ?timo sobrevivente da Golden Arena! Tome sua recompensa!")            doPlayerAddItem(cid, 2160, getPlayerStorageValue(cid, 22551)*30/4)             doPlayerAddExperience(cid, 1000, getPlayerStorageValue(cid, 22551)*30)             setPlayerStorageValue(cid, 22545, -1)            doTeleportThing(cid, getClosestFreeTile(cid, getClosestFreeTile(cid, posBackGolden)), false)              doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))            --setPlayerRecordWaves(cid)                 endGoldenArena()            return false --alterado v1.8                    else             setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)             setPlayerStorageValue(cid, 22545, -1)             doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)              doPlayerAddItem(cid, 2152, getPlayerStorageValue(cid, 22551)*5)                doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))             --setPlayerRecordWaves(cid)                  return true         end      end    ----------------------------------     if getPlayerSex(cid) == 1 then     local corpse = doCreateItem(3058, 1, getThingPos(cid))     doDecayItem(corpse)     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". He was killed by a ".. getCreatureName(attacker) .."")     elseif getPlayerSex(cid) == 0 then          local corpse = doCreateItem(3065, 1, getThingPos(cid))     doDecayItem(corpse)     doItemSetAttribute(corpse, "name", "dead human (Vol:8). You recognize ".. getCreatureName(cid) ..". She was killed by a ".. getCreatureName(attacker) .."")    end    end    doCreatureAddHealth(cid, -valor, 3, 180)    if not isPlayer(cid) then    addEvent(sendPlayerDmgMsg, 5, cid, "Voc·perdeu "..valor.." em pontos de vida por um attack de "..getSomeoneDescription(attacker)..".")    endreturn falseend----------------------------------------------------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) then return false                                          --edited monstro nao atacar monstroend----------------------------------------------------------------------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 v1.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   endend-------------------------------------------------local multiplier = 1   if isCreature(cid) then      poketype1 = pokes[getCreatureName(cid)].type        --alterado v1.6      poketype2 = pokes[getCreatureName(cid)].type2   end   if not poketype1 or not poketype2 then return false end  --alterado v1.6        if getCreatureCondition(cid, CONDITION_INVISIBLE) then    return false    endif 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    --Edited effetivenes = pxg... ;p        multiplier = multiplier - 0.25    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 v1.5         multiplier = 0.5                       end                         --alterado v1.6    end    -- X-Attack --    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then    local TierArray = {8, 9, 10, 11, 12, 13, 14}    local Tiers = {[8] = {bonus = AtkBonus1},[9] = {bonus = AtkBonus2},[10] = {bonus = AtkBonus3},[11] = {bonus = AtkBonus4},[12] = {bonus = AtkBonus5},[13] = {bonus = AtkBonus6},[14] = {bonus = AtkBonus7},} local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)local Tier = getItemAttribute(ball.uid, "heldx")    local bonusatk = {}    if isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) then    bonusatk = Tiers[Tier].bonus    else    bonusatk = 1    end        multiplier = multiplier * bonusatk    end    -- X-Attack --elseif combat == COMBAT_PHYSICALDAMAGE then    if isGhostPokemon(cid) then               --alterado v1.3       if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then  --passiva Foresight!!          doSendMagicEffect(getThingPos(cid), 3)               return false       end    endlocal cd = getPlayerStorageValue(attacker, conds["Miss"])        local cd2 = getPlayerStorageValue(attacker, conds["Confusion"])         local cd3 = getPlayerStorageValue(attacker, conds["Stun"])         legendarios = { "Blue Tower 1", "Blue Tower 2", "Blue Tower 3", "Red Tower 1", "Red Tower 2", "Red Tower 3", "Entei", "Moltres2", "Zapdos2", "Articuno2", "Celebi2"}        if cd >= 0 or cd2 >= 0 or cd3 >= 0 and not isInArray(legendarios, getCreatureName(attacker))then           if math.random(1, 100) > 50 then  --Edited miss system  -- 50% chance de da miss no atk fisico              doSendMagicEffect(getThingPos(cid), 211)              doSendAnimatedText(getThingPos(attacker), "MISS", 215)         --alterado v1.5              return false           end        endend--------------------------------------------------local valor = value    if multiplier == 1.5 and poketype2 == "no type" then        multiplier = 2                                         --alterado v1.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    valor = valor * multiplier    if isSummon(attacker) then        valor = valor * getHappinessRate(attacker)    else        valor = valor * summonReduction    end    valor = math.floor(valor)        if combat == COMBAT_PHYSICALDAMAGE then       block = 1 - (getDefense(cid) / (getOffense(attacker) + getDefense(cid)))       valor = getOffense(attacker) * block              if isInArray(specialabilities["counter"], getCreatureName(cid)) then          if math.random(1, 100) <= 10 then             doCreatureAddHealth(attacker, -valor, 3, 180)                 valor = 0             doSendAnimatedText(getThingPosWithDebug(cid), "COUNTER", 215)          end       end         else           -- Critical --        if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) then          local Tiers = {             [50] = {chance = Critical1},             [51] = {chance = Critical2},             [52] = {chance = Critical3},             [53] = {chance = Critical4},             [54] = {chance = Critical5},             [55] = {chance = Critical6},             [56] = {chance = Critical7},          }          local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)          local Tier = getItemAttribute(ball.uid, "heldx")          if Tier and Tier > 84 and Tier < 92 then             if math.random(1,100) <= Tiers[Tier].chance then                valor = valor * 2                doSendAnimatedText(getThingPos(cid), "STK "..(valor * 0.25), 115)             end          end       end       -- Critical --       valor = valor / getDefense(cid)   end        -------------------------Edited CLAN SYSTEM-----------------------------------    if isSummon(attacker) and getPlayerStorageValue(getCreatureMaster(attacker), 86228) >= 1 then       valor = valor*getClanPorcent(getCreatureMaster(attacker), combat, "atk")                           --alterado v1.3    elseif isSummon(cid) and getPlayerStorageValue(getCreatureMaster(cid), 86228) >= 1 then       valor = valor - (valor*getClanPorcent(getCreatureMaster(cid), combat, "def", pokes[getCreatureName(cid)].type, pokes[getCreatureName(cid)].type2))    end    -----------------------------------------------------------------------    ---------------------- FEAR / ROAR ------------------------------------    if getPlayerStorageValue(attacker, conds["Fear"]) >= 1 then         --alterado!!    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)) then     --alterado v1.6         valor = valor * 0                      --alterado v1.5      end   endendif damageCombat == GROUNDDAMAGE then   if isInArray(specialabilities["levitate"], getCreatureName(cid)) then      valor = 0                      --alterado v1.5   endendif getCreatureName(cid) == ironBody.name and getPlayerStorageValue(cid, 2818) < os.time() and math.random(1, 100) <= ironBody.chance then    doSetCreatureOutfit(cid, {lookType = ironBody.outfit}, ironBody.duration * 1000)    setPlayerStorageValue(cid, 9658783, 1)    setPlayerStorageValue(cid, 2818, os.time() + ironBody.cooldown)    addEvent(function()        if isCreature(cid) then            doRemoveCondition(cid, CONDITION_OUTFIT)            setPlayerStorageValue(cid, 9658783, -1)        end    end, ironBody.duration * 1000)end-----------------------------------------------------------------------------local p = getThingPos(cid)                     if p.x == 1 and p.y == 1 and p.z == 10 thenreturn false                                    endif getPlayerStorageValue(cid, 9658783) == 1 thenreturn false     --imuneend-----------------------------------------------------------------------------local config = {    sturdy = {                    --Pok?ons que possuem a habilidade Sturdy. Configura?o: ["nome_do_pokemon"] = lookType,        ["Aggron"] = 2279,        ["Mega Aggron"] = 2299,        ["Shiny Mega Aggron"] = 2299,                ["Shiny Aggron"] = 2280,        ["Sudowoodo"] = 2282,        ["Shiny Sudowoodo"] = 2282    },    cd = 0,                      --Cooldown da habilidade.    duration = 8,                 --Dura?o, em segundos, do Sturdy.    storage = 8402,} if getPlayerStorageValue(cid, config.storage) > -1 then    return falseendlocal hp = getCreatureHealth(cid) - valorif not isPlayer(cid) and hp <= 1 and config.sturdy[getCreatureName(cid)] then    local b = true    if isSummon(cid) then        local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)        if ball and getCD(ball.uid, "sturdy") > 0 then            b = false        end    end    if b then        if hp < 1 then            doCreatureAddHealth(cid, hp < 0 and (hp * -1) + 1 or 1)        end        setPlayerStorageValue(cid, config.storage, 1)        if isSummon(cid) then            local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)            if ball then                setCD(ball.uid, "sturdy", config.duration + config.cd)             end        end        doSetCreatureOutfit(cid, {lookType = config.sturdy[getCreatureName(cid)]}, config.duration * 1000)        addEvent(function()            if isCreature(cid) and getPlayerStorageValue(cid, config.storage) > -1 then                setPlayerStorageValue(cid, config.storage, -1)                doCreatureAddHealth(cid, -getCreatureHealth(cid))            end        end, config.duration * 1000)    endendif valor >= getCreatureHealth(cid) then    if isInArray(cannotKill, combat) and isPlayer(cid) then        valor = getCreatureHealth(cid) - 1    else        valor = getCreatureHealth(cid)     endend    valor = math.floor(valor)             --alterado v1.6    ------------------ SKILLs Q CURAM O ATTACKER ---------------------------------local function doHeal(cid, amount)if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then   amount = math.abs(getCreatureHealth(cid)-getCreatureMaxHealth(cid))endif getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then           --alterado v1.6   doCreatureAddHealth(cid, amount)   doSendAnimatedText(getThingPosWithDebug(cid), "+"..amount.."", 65) endend          if damageCombat == PSYCHICDAMAGE or damageCombat == MIRACLEDAMAGE then   if getPlayerStorageValue(attacker, 95487) >= 1 then      doHeal(attacker, valor)      setPlayerStorageValue(attacker, 95487, -1)                  --alterado v1.6   endelseif damageCombat == SEED_BOMBDAMAGE then   doHeal(attacker, valor)end------------------------------------------------------SACRED FIRE-----------------------if combat == SACREDDAMAGE and not ehNPC(cid) then    --alterado v1.6   local ret = {}   ret.id = cid   ret.cd = 9   ret.check = getPlayerStorageValue(cid, conds["Silence"])   ret.eff = 39   ret.cond = "Silence"   doCondition2(ret)end-----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Crobat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Golbat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Zubat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Shiny Crobat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Shiny Golbat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend----------------------------------------------------------Passiva Lifesteal Clobat------------if combat == COMBAT_PHYSICALDAMAGE then   if getCreatureName(attacker) == "Shiny Zubat" then                    --alterado v1.4      doCreatureAddHealth(attacker, math.floor(valor))      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)   endend--------------------------------------------    valor = math.abs(valor)    --alterado v1.9        -- Return --            xReturn(cid, attacker, valor)    -- Return --        if isSummon(cid) and valor >= getCreatureHealth(cid) then    onPokeHealthChange(getCreatureMaster(cid), true)     elseif isSummon(cid) then    onPokeHealthChange(getCreatureMaster(cid))    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 v1.6        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 v1.6        end        if isSummon(cid) and valor ~= 0 then            --addEvent(sendPlayerDmgMsg, 5, getCreatureMaster(cid), "Seu "..getCreatureName(cid).." perdeu "..valor.." de vida pelo attack do "..getSomeoneDescription(attacker)..".")        end    end    if damageCombat == FIREDAMAGE and not isBurning(cid) then    -- Helfire --    local hellfire = {}    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) thenlocal ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)local TierArray = {22, 23, 24, 25, 26, 27, 28}local Tiers = {[22] = {bonus = HellBonus1},[23] = {bonus = HellBonus2},[24] = {bonus = HellBonus3},[25] = {bonus = HellBonus4},[26] = {bonus = HellBonus5},[27] = {bonus = HellBonus6},[28] = {bonus = HellBonus7},}local Tier = getItemAttribute(ball.uid, "heldx")if Tier and Tier > 21 and Tier < 29 thenhellfire = Tiers[Tier].bonuselsehellfire = 1    end    end    -- Hellfire --       local ret = {}       ret.id = cid       ret.cd = math.random(5, 12)       ret.check = getPlayerStorageValue(cid, conds["Burn"])       ret.damage = isSummon(attacker) and (getMasterLevel(attacker)+getPokemonBoost(attacker)) * hellfire or getPokemonLevel(attacker)       ret.cond = "Burn"              doCondition2(ret)    elseif damageCombat == POISONDAMAGE and not isPoisoned(cid) then    -- Poison --    local xpoison = {}    if isSummon(attacker) and isPlayer(getCreatureMaster(attacker)) thenlocal ball = getPlayerSlotItem(getCreatureMaster(attacker), 8)local TierArray = {29, 30, 31, 32, 33, 34, 35}local Tiers = {[29] = {bonus = PoisonBonus1},[30] = {bonus = PoisonBonus2},[31] = {bonus = PoisonBonus3},[32] = {bonus = PoisonBonus4},[33] = {bonus = PoisonBonus5},[34] = {bonus = PoisonBonus6},[35] = {bonus = PoisonBonus7},}local Tier = getItemAttribute(ball.uid, "heldx")if Tier and Tier > 28 and Tier < 36 thenxpoison = Tiers[Tier].bonuselseif not isInArray(TierArray, getItemAttribute(ball.uid, "heldx")) thenxpoison = 1end    end    -- Poison --       local ret = {}       ret.id = cid       ret.cd = math.random(6, 15)       ret.check = getPlayerStorageValue(cid, conds["Poison"])       local lvl = isSummon(attacker) and (getMasterLevel(attacker)) * xpoison or getPokemonLevel(attacker)       ret.damage = math.floor((getPokemonLevel(attacker)+lvl)/2)       ret.cond = "Poison"              doCondition2(ret)    end--[[---------------CD BAR-----------------------if isSummon(cid) then   doCreatureExecuteTalkAction(getCreatureMaster(cid), "/pokeread")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 v1.6         doSendAnimatedText(getThingPos(cid), "LOST HEAL", 144)      end   endend----------------------------------------PASSIVAS------------------------------------- --alterado v1.6 \/ todas as passivas agora estao em lib/pokemon moves.lua-------------------------------------------Counter Helix------------------------------------if passivesChances["Helix"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Helix"][getCreatureName(cid)] then   docastspell(cid, "Counter Helix")end-------------------------------------------Lava-Counter----------------------------if passivesChances["Lava"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Lava"][getCreatureName(cid)] then   docastspell(cid, "Lava-Counter")end-------------------------------------------Shock-Counter----------------------------if passivesChances["Shock"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Shock"][getCreatureName(cid)] then   docastspell(cid, "Shock-Counter")end-------------------------------------------Bone Spin----------------------------if passivesChances["Bone"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Bone"][getCreatureName(cid)] then   docastspell(cid, "Bone-Spin")end---------------------------------------Stunning Confusion-----------------------------------------if passivesChances["Stunning"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Stunning"][getCreatureName(cid)] then     docastspell(cid, "Stunning Confusion")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, 80) <= passivesChances["Mirror Coat"][getCreatureName(cid)] then      docastspell(cid, "Mirror Coat", 0, 0)end--------------------------------- Illusion -----------------------------------------return falseend

 

 

 

funfando 99.9% 

5ebdd806690167879f78c6bfc3f3c3ce.gif

 

unica coisa q ta dando errado é q ele ta dando um -0 toda hora q bater basico em bixo sem return 

ff29d6c33758cef6097598dd9d2d64ed.gif

Link to post
Share on other sites
  • 0
1 hora atrás, nogenem45 disse:

troca isso:

doSendAnimatedText(getThingPos(attacker), -returnbonus, 77)doCreatureAddHealth(attacker, -returnbonus)

por isso:

if returnbonus > 0 then   doSendAnimatedText(getThingPos(attacker), -returnbonus, 77)   doCreatureAddHealth(attacker, -returnbonus)end

 

 

ainda nao testei pois preciso dar shutdown pra testar e a geral ja ta cansado dos shutdowns mas acredito q nao tem como errar em isso ^^ entao valeu!!! return funfando do jeito q eu queria rp+!

 

se tiver algum tempinho livre e quiser me ajudar ainda + um pouco olha esse topico la q é tb 1 modificaçao do y-cure q esta errado enquanto sua funçao

 

Edited by Josegvb
Link to post
Share on other sites
  • 0
Em 1/5/2016 at 17:45, nogenem45 disse:

troca isso:

doSendAnimatedText(getThingPos(attacker), -returnbonus, 77)doCreatureAddHealth(attacker, -returnbonus)

por isso:

if returnbonus > 0 then   doSendAnimatedText(getThingPos(attacker), -returnbonus, 77)   doCreatureAddHealth(attacker, -returnbonus)end

 

 

desculpa por encher o saco mas agora me deparei uma coisa, o script antes estava funfando optimo, quando o pokemon usaba Barrier (spell q da inmunidade por alguns minutos) ou iron defense (mesma coisa q barrier) e ele continua sendo atingido por cd, ele tava retornando esse dano e essa funçao era CERTA, porem agora lembrei de isso e fui testar (nao testei ontem se ele ainda retornaba com essas skills) mas agora nem esta retornando, só retorna o dano q bate realmente na hp.

é mt nessesaria essa funçao pois com ela os caras iram usar pra matar bixos fortes e tals =x 

Edited by Josegvb
Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.


    Administrador |  Diretor |  Coordenador |  Moderador |  Suporter |  Estagiário |  Herói
  • Similar Content

    • By marcelinhok
      Iae galera, queria saber se voces podem disponibilizar um Sistema de resete por stages.

      Como funcionaria ... o player da 1 resete ganhar ''100'' Hp e Mp. Ai ele da o Segundo resete ganha 200 hp e Mp.
      Ou tbm server a cada resete ele ganhar ''200'' de Hp e Mp, Fixo.
    • By Wicke
      Me ajudem estou com um erro "[11/06/2016 12:26:48] Reloaded actions.
      [11/06/2016 12:26:48] [Error - Action Interface] 
      [11/06/2016 12:26:48] data/actions/scripts/megaevolve.lua
      [11/06/2016 12:26:48] Description: 
      [11/06/2016 12:26:48] (luaGetThingPosition) Thing not found" Adicionei mega evoluçao mas esta dando esse erro se alguem souber me ajuda dou rep+
         Meu script
       
      function onUse(cid, item)
          local mEvolution, ball = megaEvolutions[item.itemid], getPlayerSlotItem(cid, 8).uid
          if not mEvolution then
              return doPlayerSendCancel(cid, "Sorry, this isn't a mega stone.")
          elseif ball < 1 then
              return doPlayerSendCancel(cid, "Put a pokeball in the pokeball slot.")
          elseif #getCreatureSummons(cid) > 0 then
              return doPlayerSendCancel(cid, "Return your pokemon.")
          elseif getItemAttribute(ball, "poke") ~= mEvolution[1] then
              return doPlayerSendCancel(cid, "Put a pokeball with a(n) "..mEvolution[1].." in the pokeball slot.")
          elseif getItemAttribute(ball, "megaStone") then
              return doPlayerSendCancel(cid, "Your pokemon is already holding a mega stone.")
          end
          doItemSetAttribute(ball, "megaStone", item.itemid)
          doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Now your "..getItemAttribute(ball, "poke").." is holding a(n) "..getItemNameById(item.itemid)..".")
          doRemoveItem(item.uid)
          return true
      end
       
      E o do actions.xml é esse
       
      --MEGA EVOLVE
          <action itemid="13936" event="script" value="megaevolve.lua"/>
       
      Me ajudem pfv
    • By emersorox
      Pessoal estou com esse script aqui de Shiny Stone é de lvl system, ele funciona só que ele não pega o nome "Shiny" fica só nome "Alakazam" do pokemon,
      Agora eu pergunto não deveria existir uma variavel que pegue o Nome: Shiny e outra o Sobrenome : Alakazam?
      -----------------Alguém pode me ajudar por favor nesse script --------------------------------------------------------- !!!
       
      local evo = {
                                 --nome do shiny, qnts stones precisa
      ["Snorlax"] = {"Shiny Snorlax", 7},
      ["Gengar"] = {"Shiny Gengar", 7},
      ["Ninetales"] = {"Shiny Ninetales",  5},
      ["Raichu"] = {"Shiny Raichu", 5},
      ["Alakazam"] = {"Shiny Alakazam", 10},
      ["Venusaur"] = {"Shiny Venusaur", 7},
      ["Charizard"] = {"Shiny Charizard", 7},
      ["Blastoise"] = {"Shiny Blastoise", 7}, --alterado v2.4
      ["Butterfree"] = {"Shiny Butterfree", 5},
      ["Beedrill"] = {"Shiny Beedrill", 3},
      ["Pidgeot"] = {"Shiny Pidgeot", 5},
      ["Rattata"] = {"Shiny Rattata", 1},
      ["Raticate"] = {"Shiny Raticate", 3},
      ["Fearow"] = {"Shiny Fearow", 5},
      ["Zubat"] = {"Shiny Zubat", 1},
      ["Golbat"] = {"Shiny Golbat", 3},
      ["Onix"] = {"Shiny Onix", 7},
      ["Hitmontop"] = {"Shiny Hitmontop", 7},
      ["Oddish"] = {"Shiny Oddish", 1},
      ["Paras"] = {"Shiny Paras", 1},
      ["Parasect"] = {"Shiny Parasect", 3},
      ["Venonat"] = {"Shiny Venonat", 1},
      ["Venomoth"] = {"Shiny Venomoth", 5},
      ["Growlithe"] = {"Shiny Growlithe", 3},
      ["Arcanine"] = {"Shiny Arcanine", 5},
      ["Abra"] = {"Shiny Abra", 1},
      ["Tentacool"] = {"Shiny Tentacool", 3},
      ["Tentacruel"] = {"Shiny Tentacruel", 7},
      ["Farfetch'd"] = {"Shiny Farfetch'd", 3},
      ["Muk"] = {"Shiny Muk", 5},
      ["Kingler"] = {"Shiny Kingler", 3},
      ["Voltorb"] = {"Shiny Voltorb", 3},
      ["Electrode"] = {"Shiny Electrode", 5},
      ["Cubone"] = {"Shiny Cubone", 3},
      ["Marowak"] = {"Shiny Marowak", 5},
      ["Hitmonlee"] = {"Shiny Hitmonlee", 7},
      ["Hitmonchan"] = {"Shiny Hitmonchan", 7},
      ["Tangela"] = {"Shiny Tangela", 3},
      ["Horsea"] = {"Shiny Horsea", 1},
      ["Seadra"] = {"Shiny Seadra", 5},
      ["Scyther"] = {"Shiny Scyther", 3},
      ["Jynx"] = {"Shiny Jynx", 7},
      ["Electabuzz"] = {"Shiny Electabuzz", 5},
      ["Pinsir"] = {"Shiny Pinsir", 5},
      ["Magikarp"] = {"Shiny Magikarp", 1},
      ["Gyarados"] = {"Shiny Gyarados", 7},
      ["Dratini"] = {"Shiny Dratini", 3},
      ["Dragonair"] = {"Shiny Dragonair", 5},
      ["Dragonite"] = {"Shiny Dragonite", 8},
      ["Metagross"] = {"Shiny Metagross", 10},
      ["Tropius"] = {"Shiny Tropius", 10},
      ["Milotic"] = {"Shiny Milotic", 8},
      ["Ariados"] = {"Shiny Ariados", 5},
      ["Dodrio"] = {"Shiny Dodrio", 5},
      ["Espeon"] = {"Shiny Espeon", 7},
      ["Flareon"] = {"Shiny Flareon", 7},
      ["Golem"] = {"Shiny Golem", 7},
      ["Grimer"] = {"Shiny Grimer", 1},
      ["Hypno"] = {"Shiny Hypno", 5},
      ["Jolteon"] = {"Shiny Jolteon", 7},
      ["Krabby"] = {"Shiny Krabby", 1},
      ["Magby"] = {"Shiny Magby", 3},
      ["Magneton"] = {"Shiny Magneton", 5},
      ["Mr. Mime"] = {"Shiny Mr. Mime", 5},
      ["Nidoking"] = {"Shiny Nidoking", 7},
      ["Politoed"] = {"Shiny Politoed", 5},
      ["Rhydon"] = {"Shiny Rhydon", 7},
      ["Stantler"] = {"Shiny Stantler", 5},
      ["Umbreon"] = {"Shiny Umbreon", 7},
      ["Vaporeon"] = {"Shiny Vaporeon", 7},
      ["Villeplume"] = {"Shiny Vileplume", 5},
      ["Cleflable"] = {"Shiny Clefable", 7},
      ["tangrowth"] = {"Shiny tangrowth", 8},
      ["Roserade"] = {"Shiny Roserade", 7},
      }
       
      local balls = {
      [2394] = {newBall = 11737},
      [2391] = {newBall = 11740},
      [2393] = {newBall = 11743},
      [11829] = {newBall = 11746},
      [12617] = {newBall = 12621},
      }

      function onUse(cid, item, fromPosition, itemEx, toPosition)
         if isMonster(itemEx.uid) and getCreatureMaster(itemEx.uid) == cid then
                local monster = getCreatureName(itemEx.uid)
                if evo[monster] then  
                       if getPlayerItemCount(cid, item.itemid) >= evo[monster][2] then
                          doPlayerSendTextMessage(cid, 27, "Parabens! Seu "..getPokeName(itemEx.uid).." evoluiu para "..evo[monster][1].."!")
                          local health, maxHealth = getCreatureHealth(itemEx.uid), getCreatureMaxHealth(itemEx.uid)
                          doSendMagicEffect(getThingPos(itemEx.uid), 18)
                          doRemoveCreature(itemEx.uid)
                          doPlayerRemoveItem(cid, item.itemid, evo[monster][2]-1)
                          doRemoveItem(item.uid, 1)
                          doSummonMonster(cid,evo[monster][1])
                          local pokeball = getPlayerSlotItem(cid,
                          doItemSetAttribute(pokeball.uid, "poke", evo[monster][1])
                          doItemSetAttribute(pokeball.uid, "level", pokes[evo[monster][1]].level)
                          doItemSetAttribute(ball, "hp", 1)
                          doItemSetAttribute(ball, "happy", 110)
                          local pk = getCreatureSummons(cid)[1]
                          adjustStatus(pk, pokeball.uid, true, false, true)
                          return TRUE
                       else
                          return doPlayerSendTextMessage(cid, 27, "You need atleast ".. evo[monster][2] .." stones to do it!")
                       end
                end
      end
      return FALSE
      end
       
       
    • By Desnecessario
      Gente preciso da lib de um getPlayerDirection(), não sei se já existe... se não alguém pode criar para mim?
    • By Loouis
      Oi, gente queria um npc que:
      Player:hi
      NPC:Olá treinador, eu troco Devoted Tokens por uma box onde poderá vir um held aleatorio do tier 1 à 2, mais para isso preciso de 20 devoted tokens, você tem os 20 devoted tokens?
      player:yes
      (ai o npc remove os 20 devoted token(ID:XXXX) e da pro player 1 um item id (XXXX).)
      só que queria que o player podesse realizar essa troca com esse npc quantas vezes ele quiser...
      Agradeço e dou Reputação+ pra quem ajudar