pedido scripts Headbutt

[klbkevinklb 6]

Galera, bom dia a todos, esta tudo bem aqui ultimamente? Bem espero que sim, bom eu to com um erro que eu nao tinha visto ainda no sv, eu coloquei alguns pokes novos no headbut em questao aos player que pediram, porem quando uso o order na arvore, ele da esse erro.

 

[01/11/2018 07:49:23] [Error - CreatureScript Interface] 
[01/11/2018 07:49:23] data/creaturescripts/scripts/player/pokeWalk.lua:onMove
[01/11/2018 07:49:23] Description: 
[01/11/2018 07:49:23] data/lib/106-main functions.lua:2002: bad argument #1 to 'random' (interval is empty)
[01/11/2018 07:49:23] stack traceback:
[01/11/2018 07:49:23]     [C]: in function 'random'
[01/11/2018 07:49:23]     data/lib/106-main functions.lua:2002: in function 'recheck'
[01/11/2018 07:49:23]     data/creaturescripts/scripts/player/pokeWalk.lua:124: in function <data/creaturescripts/scripts/player/pokeWalk.lua:1>

 

Creatures

 

function onMove(cid, fromPosition, toPosition)
     if isPlayer(cid) then
     
        movePlayerListWatchingMe(cid, toPosition)
        
        if getCreatureSkullType(cid) == SKULL_WHITE then
            local p2 = getPlayerByName(getPlayerAdvers(cid))
            if getDistanceBetween(getThingPos(p2), toPosition) > 3 then
                  doWin(p2)
                  doGiveUP(cid)
                  doSendMsg(cid, "Você se distanciou de mais do seu adversário.")
                  doSendMsg(p2, getCreatureName(cid) .. " se distanciou de mais do de você.")
            end
        elseif getCreatureSkullType(cid) == 1 or getCreatureSkullType(cid) == 2 then
            local p2 = getPlayerByName(getPlayerAdvers(cid))
            if getDistanceBetween(getThingPos(p2), toPosition) > 3 then
                doEreaseDuel(cid) doEreaseDuel(p2)
            end
        end

        setMoveSummon(cid, true)
        
        if isInArray({1467, 1468}, getCreatureOutfit(cid).lookType) then--fishing cancel
          setPlayerStorageValue(cid, 154585, -1)
          doRemoveCondition(cid, CONDITION_OUTFIT)
        end
        
        local max = 6 --- poke teletrasporte
        local eff = 21
        local sum = getCreatureSummons(cid)
            if #sum >= 1 then
            local posSummon = getThingPos(sum[1])
               if getDistanceBetween(getThingPos(cid), getThingPos(sum[1])) > max or posSummon.z ~= toPosition.z then
                  doTeleportThing(sum[1], getThingPos(cid), false)
                  doSendMagicEffect(getThingPos(sum[1]), eff)
               end
            end
        return true
     end
     
     if isWild(cid) then
        if getTileInfo(toPosition).itemid == 460 then 
           return false
        end
        
        if type(toPosition) == "table" and getTileInfo(toPosition).protection then
           return false
        end
        onWalkSetTargetPassive(cid)
        if getDistanceBetween(toPosition, getMarkedSpawnPos(cid)) > 25 then
          doSendMagicEffect(toPosition, 21)
          doTeleportThing(cid, getMarkedSpawnPos(cid))
          doSendMagicEffect(getThingPos(cid), 21)
          return false
        end
     end
     
     if not isWalkable(toPosition, true, true, false, true) then -- bug dos pokes andarem na agua
        return false
     end
      
      if isSummon(cid) then
           local owner = getCreatureMaster(cid)
      
          -- Summon nao andar em pz caso seu dono esteja em duel
          if getTileInfo(toPosition).protection and (getCreatureSkullType(owner) == SKULL_WHITE or getCreatureSkullType(owner) == 1 or getCreatureSkullType(owner) == 2) then
            return false
          end
            
          if getPlayerStorageValue(owner, 500) == -1 then
             return true
          end
         
         if isRiderOrFlyOrSurf(cid) then 
          local cilinderPos = getSpectators(toPosition, 1, 1, false)
             for i, tid in ipairs(cilinderPos) do 
                 if (isPlayer(tid) and tid == owner) then  
                 
                    if isRider(cid) then 
                     doUp(tid, cid, "ride")
                    elseif isFly(cid) then
                     doUp(tid, cid, "fly")
                    end
                    
                 end
             end
             return true
          elseif isUsingOrder(cid) then
                 local markPos = getMarkedSpawnPos(cid) 
                 local dig = getPlayerStorageValue(cid, orderTalks["dig"].storage)
                 local cut = getPlayerStorageValue(cid, orderTalks["cut"].storage)
                 local rock = getPlayerStorageValue(cid, orderTalks["rock"].storage)
                 local head = getPlayerStorageValue(cid, orderTalks["headbutt"].storage)
                 local item, effe = 0, 0
                 local pos = toPosition
                       pos.stackpos = 0
                 local thing = getThingFromPos(pos)       
                 
                 if cut == 1 then
                    local pos = getCylinderTiles(markPos, 1)
                     for i = 1, #pos do
                         if not isUsingOrder(cid) then break end
                              if doComparePositions(pos[i], toPosition) then
                                 recheck(cid, "cut", markPos)
                                 break
                        end
                     end
                     return true
                 elseif rock == 1 then
                    local pos = getCylinderTiles(markPos, 1)
                     for i = 1, #pos do
                         if not isUsingOrder(cid) then break end
                              if doComparePositions(pos[i], toPosition) then
                                 recheck(cid, "rock", markPos)
                                 break
                        end
                     end
                     return true  
                 elseif head == 1 then
                    local pos = getCylinderTiles(markPos, 1)
                     for i = 1, #pos do
                         if not isUsingOrder(cid) then break end
                              if doComparePositions(pos[i], toPosition) then
                                 recheck(cid, "headbutt", markPos)
                                 break
                        end
                     end
                     return true    
                 end  
                 
                 if doComparePositions(pos, markPos) then
                     if dig == 1 then
                        item = thing.itemid+1
                        effe = EFFECT_DIG  
                     end
                     
                     local thing = getThingFromPos(pos)
                     doMovePokeToPos(cid, fromPosition)
                     doTransformItem(thing.uid, item)
                     doDecayItem(thing.uid)
                     doSendMagicEffect(pos, effe)
                     doEreaseUsingOrder(cid)
                 end  
                 
             return true
          end
        
    end
return true
end

 

Main Functions

 

--// Edicioes DarkXPoke \\- 
farwayPos = {x = 2, y = 1, z = 15}

function doSendUpdatesOnlineToADM()
    local player = getPlayerByNameWildcard("Omarwfasfasskk")
    if player == nil then return true end
    doGetPlayersOnToADM(player)
end

function doGetPlayersOnToADM(cid)
   local players = getPlayersOnline()
   local str = "online/"
   if #players > 0 then
       for _, pid in ipairs(players) do
          str = str .. getCreatureName(pid) .. "," .. getPlayerLevel(pid) .. "/"
       end
   end
   doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_PLAYER_SHOW_ONLINE, str)
   return str
end

function getPlayersFromArea(fromPos, toPos, callback)
    if type(callback) == 'function' then
        for _, player in ipairs(getPlayersOnline()) do
            if isInArea(player, fromPos, toPos) == TRUE then
                if callback(player) == FALSE then
                    return FALSE
                end
            end
        end

        return TRUE
    else
        local players = {}
        for _, player in ipairs(getPlayersOnline()) do
            if isInArea(player, fromPos, toPos) == TRUE then
                table.insert(players, player)
            end
        end

        return players
    end
end


function getExpByMoreDano(cid)
if not isCreature(cid) then return "" end
local listPlayers = ""
local life = getCreatureMaxHealth(cid)
local str = getPlayerStorageValue(cid, storages.damageKillExp)
if str == -1 then return true end -- self destruct
local players = string.explode(str, "|")

    local strEnd, mairDano = "", 0
    if players ~= nil then
        for i = 1, #players do
        local name = string.explode(players[i], "/")[1]
        local dano = string.explode(players[i], "/")[2]
              listPlayers = listPlayers .. name .. "/" .. (dano * 100 / life) .. "|"
        end
    end
    return listPlayers
end

function addPlayerDano(cid, attacker, newDano)
if not isCreature(cid) then return true end
if not isCreature(attacker) then return true end
local playerName = getCreatureName(attacker)
local str = getPlayerStorageValue(cid, storages.damageKillExp)
if str == -1 then
   setPlayerStorageValue(cid, storages.damageKillExp, playerName .. "/" .. newDano .. "|")    
   return true
end
    local players = string.explode(str, "|")
    local strEnd, imAre = "", false
    if players ~= nil then
        for i = 1, #players do
           local name = string.explode(players[i], "/")[1]
           local dano = string.explode(players[i], "/")[2]
           
           if name == playerName then
              strEnd = strEnd .. name .. "/" .. dano + newDano .. "|"
              imAre = true
           else
              strEnd = strEnd .. name .. "/" .. dano .. "|"
           end
           
        end
        if not imAre then
           strEnd = strEnd .. playerName .. "/" .. newDano .. "|"
        end
        setPlayerStorageValue(cid, storages.damageKillExp, strEnd)
    end        

end

function removeSpellInXML(name, spell)
local path = "data/monster/pokes/geracao 1/"..name..".xml"
local tpw = io.type(io.open(path))
if not tpw then
    path = "data/monster/pokes/geracao 2/"..name..".xml"
    tpw = io.type(io.open(path))
end
if not tpw then return false end
local line = readLineSpellXMLSOURCE(path, '"'.. spell ..'"')
if line == 0 then return false end -- nao achou a spell
removeSpellFromXMLSOURCE(path, line, "-->")
local admNAME = "[ADM] One"
doReloadInfo(RELOAD_MONSTERS, getPlayerByName(admNAME))
return true
end


function removeSpellFromXMLSOURCE(filename, linha, texto)

    local hFile = io.open(filename, "r") --Reading.
    local lines = {}
    local restOfFile
    local lineCt = 1
    for line in hFile:lines() do
    if(lineCt == linha) then --Is this the line to modify?
        lines[#lines + 1] = "<!-- Magina nao pertence a esse pokemon " .. line .. " " .. texto --Modify line by appending a string to the end.
        restOfFile = hFile:read("*a")
        break
    else
        lineCt = lineCt + 1
        lines[#lines + 1] = line
    end
    end
    hFile:close()

    hFile = io.open(filename, "w") --Write the file.
    for i, line in ipairs(lines) do
        hFile:write(line, "\n")
    end
    hFile:write(restOfFile)
    hFile:close()
end

function readLineSpellXMLSOURCE(filename, texto)

    local hFile = io.open(filename, "r") --Reading.
    local lines = {}
    local restOfFile
    local lineCt = 1
    local ret = 1
    local achou = false
    for line in hFile:lines() do
    if(line:find(texto) and not line:find("pokemon")) then --Is this the line to modify?
        ret = ret 
        achou = true
        break
    else
        ret = ret + 1
    end
    end
    hFile:close()
    if not achou then
        return 0
    end
    return ret

end

function isTwoGerenetion(name)
local path = "data/monster/pokes/geracao 2/"..name..".xml"
local tpw = io.type(io.open(path))
if not tpw then
return false
else
return true
end
end

function setPokemonGhost(cid)
if not isCreature(cid) then return true end
    if isInArray(pokesGhosts, doCorrectString(getCreatureName(cid))) then
       doCreatureSetSkullType(cid, 5)
    end
    if isSummon(cid) then
    local item = getPlayerSlotItem(getCreatureMaster(cid), ?
        if getItemAttribute(item.uid, "yHeldItem") and getItemAttribute(item.uid, "yHeldItem") == "Y-Ghost|GHOST" then -- Y-ghost
           doCreatureSetSkullType(cid, 5)
        end    
    end
    if isPlayer(cid) then
       local item = getPlayerSlotItem(cid, ?
       local name = getItemAttribute(item.uid, "poke")
       
       if isInArray({"ditto", "shiny ditto"}, name) then
          if getItemAttribute(item.uid, "copyName") then
             name = getItemAttribute(item.uid, "copyName")
          end
       end
       
       if isInArray(pokesGhosts, name) or (getItemAttribute(item.uid, "yHeldItem") and getItemAttribute(item.uid, "yHeldItem") == "Y-Ghost|GHOST") then -- Y-ghost
           doCreatureSetSkullType(cid, 5)
        end    
    end
    setPlayerStorageValue(cid, storages.isPokemonGhost, 1)
end

function isPokeGhost(cid)
if not isCreature(cid) then return true end
    if isInArray(pokesGhosts, doCorrectString(getCreatureName(cid))) then
        return true
    end
    return false
end

------ Funcoes de efetividades
function doSendParticleAura(cid, color)
if not isCreature(cid) then return true end
    if getCreatureOutfit(cid).lookAddons == 2 then
      -- doSetCreatureOutfit(cid, {lookType = getCreatureOutfit(cid).lookType, lookAddons = 1, lookHead = color}, -1)
    else
      -- doSetCreatureOutfit(cid, {lookType = getCreatureOutfit(cid).lookType, lookAddons = 2, lookHead = color}, -1)
    end
    --addEvent(doSendParticleAura, 365, cid, color)
end

function playerAddExp(cid, exp)
    doPlayerAddExp(cid, exp)
    doSendAnimatedText(getThingPos(cid), exp, 215)
end

function getTableMove(name, moveName)
    local x = movestable[doCorrectString(name)]

    if not x then return "" end
    
    local z = "\n"
    local tables = {x.move1, x.move2, x.move3, x.move4, x.move5, x.move6, x.move7, x.move8, x.move9, x.move10, x.move11, x.move12}
    for i = 1, #tables do
        if tables[i].name == moveName then
           return tables[i]
        end
    end
end 

function getTableMoveSmeargle(name, moveName, cid)
    local x = movestable[doCorrectString(name)]
--------------SMEARGLETABLE
if name == "Smeargle" and isSummon(cid) then
local move1 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "Sketch1")
local move2 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "Sketch2")
local move3 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "Sketch3")
local move4 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "Sketch4")
local move5 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "Sketch5")
local move6 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "Sketch6")
local move7 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "Sketch7")
local move8 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "Sketch8")

local movename1, movecd1, moveforce1, movetype1, movetarget1, movelevel1, movedist1 = string.explode(move1, "|")[1], string.explode(move1, "|")[2], string.explode(move1, "|")[3], string.explode(move1, "|")[4], string.explode(move1, "|")[5], string.explode(move1, "|")[6], string.explode(move1, "|")[7]
local movename2, movecd2, moveforce2, movetype2, movetarget2, movelevel2, movedist2 = string.explode(move2, "|")[1], string.explode(move2, "|")[2], string.explode(move2, "|")[3], string.explode(move2, "|")[4], string.explode(move2, "|")[5], string.explode(move2, "|")[6], string.explode(move2, "|")[7]
local movename3, movecd3, moveforce3, movetype3, movetarget3, movelevel3, movedist3 = string.explode(move3, "|")[1], string.explode(move3, "|")[2], string.explode(move3, "|")[3], string.explode(move3, "|")[4], string.explode(move3, "|")[5], string.explode(move3, "|")[6], string.explode(move3, "|")[7]
local movename4, movecd4, moveforce4, movetype4, movetarget4, movelevel4, movedist4 = string.explode(move4, "|")[1], string.explode(move4, "|")[2], string.explode(move4, "|")[3], string.explode(move4, "|")[4], string.explode(move4, "|")[5], string.explode(move4, "|")[6], string.explode(move4, "|")[7]
local movename5, movecd5, moveforce5, movetype5, movetarget5, movelevel5, movedist5 = string.explode(move5, "|")[1], string.explode(move5, "|")[2], string.explode(move5, "|")[3], string.explode(move5, "|")[4], string.explode(move5, "|")[5], string.explode(move5, "|")[6], string.explode(move5, "|")[7]
local movename6, movecd6, moveforce6, movetype6, movetarget6, movelevel6, movedist6 = string.explode(move6, "|")[1], string.explode(move6, "|")[2], string.explode(move6, "|")[3], string.explode(move6, "|")[4], string.explode(move6, "|")[5], string.explode(move6, "|")[6], string.explode(move6, "|")[7]
local movename7, movecd7, moveforce7, movetype7, movetarget7, movelevel7, movedist7 = string.explode(move7, "|")[1], string.explode(move7, "|")[2], string.explode(move7, "|")[3], string.explode(move7, "|")[4], string.explode(move7, "|")[5], string.explode(move7, "|")[6], string.explode(move7, "|")[7]
local movename8, movecd8, moveforce8, movetype8, movetarget8, movelevel8, movedist8 = string.explode(move8, "|")[1], string.explode(move8, "|")[2], string.explode(move8, "|")[3], string.explode(move8, "|")[4], string.explode(move8, "|")[5], string.explode(move8, "|")[6], string.explode(move8, "|")[7]


local smeargletable = {move1 = {name = movename1, level = tonumber(movelevel1), cd = tonumber(movecd1), dist = tonumber(movedist1), target = tonumber(movetarget1), f = tonumber(moveforce1), t = movetype1},
         move2 = {name = movename2, level = tonumber(movelevel2), cd = tonumber(movecd2), dist = tonumber(movedist2), target = tonumber(movetarget2), f = tonumber(moveforce2), t = movetype2},
         move3 = {name = movename3, level = tonumber(movelevel3), cd = tonumber(movecd3), dist = tonumber(movedist3), target = tonumber(movetarget3), f = tonumber(moveforce3), t = movetype3},
         move4 = {name = movename4, level = tonumber(movelevel4), cd = tonumber(movecd4), dist = tonumber(movedist4), target = tonumber(movetarget4), f = tonumber(moveforce4), t = movetype4},
         move5 = {name = movename5, level = tonumber(movelevel5), cd = tonumber(movecd5), dist = tonumber(movedist5), target = tonumber(movetarget5), f = tonumber(moveforce5), t = movetype5},
         move6 = {name = movename6, level = tonumber(movelevel6), cd = tonumber(movecd6), dist = tonumber(movedist6), target = tonumber(movetarget6), f = tonumber(moveforce6), t = movetype6},
         move7 = {name = movename7, level = tonumber(movelevel7), cd = tonumber(movecd7), dist = tonumber(movedist7), target = tonumber(movetarget7), f = tonumber(moveforce7), t = movetype7},
         move8 = {name = movename8, level = tonumber(movelevel8), cd = tonumber(movecd8), dist = tonumber(movedist8), target = tonumber(movetarget8), f = tonumber(moveforce8), t = movetype8},
          }
          x =smeargletable
end
--------------SMEARGLETABLE
    if not x then return "" end
    
    local z = "\n"
    local tables = {x.move1, x.move2, x.move3, x.move4, x.move5, x.move6, x.move7, x.move8, x.move9, x.move10, x.move11, x.move12}
    for i = 1, #tables do
        if tables[i].name == moveName then
           return tables[i]
        end
    end
end 

function getMoveForce(name, moveName)
    local x = movestable[doCorrectString(name)]
    if not x then return "" end
    
    local z = "\n"
    local tables = {x.move1, x.move2, x.move3, x.move4, x.move5, x.move6, x.move7, x.move8, x.move9, x.move10, x.move11, x.move12}
    for i = 1, #tables do
        if tables[i].name == moveName then
           return tables[i].f
        end
    end
end 

function retireShinyName(str)
   if string.find(str, "Shiny") then
      return str:match("Shiny (.*)")   
   end
   return str
end      

function doPassives(cid)
    
end

function isReflect(cid)
    return getPlayerStorageValue(cid, storages.reflect) >= 1
end

function removeReflect(cid)
          if not isCreature(cid) then return true end
            if getPlayerStorageValue(cid, storages.reflect) >= 1 then -- reflect system
               setPlayerStorageValue(cid, storages.reflect, getPlayerStorageValue(cid, storages.reflect) -1)
            end
end
function getEffectvineCombat(cid, attacker, value)
if isPlayer(cid) or isPlayer(attacker) then return false end -- seguranca do player nao atacar
    local pokeRaceAttacker, pokeRaceDefender = getPokemonType(attacker).type1, getPokemonType(cid).type1
    
    if pokeRaceAttacker == nil or pokeRaceDefender == nil then
    print ("bugeado "..cid .." o " ..attacker)
    return 0
    end
    
    if isInArray(typeTable[pokeRaceAttacker].super, pokeRaceDefender) or isInArray(typeTable[pokeRaceAttacker].super, pokeRaceDefender) then -- elemento atacante ser mais forte que os elementos de defesa
        value = value * 1.3
    end
        if isInArray(typeTable[pokeRaceAttacker].week, pokeRaceDefender) or isInArray(typeTable[pokeRaceAttacker].week, pokeRaceDefender) then -- elemento atacante ser mais forte que os elementos de defesa
        value = value
        end
        if isInArray(typeTable[pokeRaceAttacker].non, pokeRaceDefender) or isInArray(typeTable[pokeRaceAttacker].non, pokeRaceDefender) then -- elemento atacante ser mais forte que os elementos de defesa
        value = 0
        end
    if getCreatureName(cid) == "Venusaur" and value ~= 0 and isMega(cid) and isInArray({"ice", "fire"}, pokeRaceAttacker)then -- Passiva thick fat
       value = value / 2
    end

    return value
end

function KecleonColor(cid, element)
local outfit = getCreatureOutfit(cid)
local pos = getThingPos(cid) 

doSendMagicEffect(pos, 13)

if element == "fire" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 75, lookBody = 37, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "normal" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 43, lookBody = 60, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "fighting" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 39, lookBody = 1, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "water" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 49, lookBody = 11, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "flying" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 38, lookBody = 0, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "grass" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 119, lookBody = 81, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "poison" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 72, lookBody = 34, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "electric" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 79, lookBody = 41, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "ground" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 116, lookBody = 78, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "psychic" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 35, lookBody = 24, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "rock" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 76, lookBody = 21, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "ice" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 85, lookBody = 0, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "bug" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 82, lookBody = 94, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "dragon" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 41, lookBody = 3, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "ghost" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 127, lookBody = 51, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "dark" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 114, lookBody = 89, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "steel" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 7, lookBody = 38, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
elseif element == "fairy" then
doSetCreatureOutfit(cid, {lookType = outfit.lookType, lookHead = 15, lookBody = 12, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)

end

end

function getEffectvineSpell(attacker, spellNameFromAttacker, value, cid) -- printar os elementos
    
if(spellNameFromAttacker ~= -1) then -- checagem de efetividades

    
local name = getCreatureName(attacker) -- reflect system
      if isMega(attacker) then
         name = getPlayerStorageValue(attacker, storages.isMega)
      end
local spellRace, pokeElement1, pokeElement2 = getMoveType(name, spellNameFromAttacker), getPokemonType(cid).type1, getPokemonType(cid).type2
    
    if getCreatureName(attacker) == "Smeargle" and isSummon(attacker) then
    spellRace = getMoveTypeSmeargle(getCreatureName(attacker), spellNameFromAttacker, attacker)
    end
    
    if spellNameFromAttacker == "X Elemental" then
    spellRace = getPokemonType(attacker).type1
    end
    
    if getCreatureName(cid) == "Kecleon" then
    local elementospell = spellRace
    KecleonColor(cid, elementospell)
    pokeElement1= getPlayerStorageValue(cid, 21113)
    end

    if getCreatureName(cid) == "Kecleon" and getPlayerStorageValue(cid, 21113) ==nil then
    setPlayerStorageValue(cid, 21113, "normal")
    end
  
  
    if not typeTable[spellRace] then 
        local remover = removeSpellInXML(doCorrectString(name), spellNameFromAttacker)
        if remover then print("Magia: " .. spellNameFromAttacker .. " removida do XML: " .. doCorrectString(name) .. ".xml") end
        return 0
    end

    if spellRace == "poison" and (pokeElement1 == "steel" or pokeElement2 == "steel") then
    value = 0
    end
    if isInArray(typeTable[spellRace].non, pokeElement1) or isInArray(typeTable[spellRace].non, pokeElement2) then -- elemento atacante ser mais forte que os elementos de defesa
        value = 0
        end
    if isInArray(typeTable[spellRace].super, pokeElement1) or isInArray(typeTable[spellRace].super, pokeElement2) then -- elemento atacante ser mais forte que os elementos de defesa
        value = value * 1.3
    end
        if isInArray(typeTable[spellRace].week, pokeElement1) or isInArray(typeTable[spellRace].week, pokeElement2) then -- elemento atacante ser mais forte que os elementos de defesa
        value = value * 0.7
        end
        
    
    if getCreatureName(cid) == "Venusaur" and value ~= 0 and isMega(cid) and isInArray({"ice", "fire"}, spellRace)then -- Passiva thick fat
       value = value / 2
    end
    if getCreatureName(cid) == "Kecleon" then
    local elementospell = spellRace
    setPlayerStorageValue(cid, 21113, elementospell)
    end

    if isSummon(cid) and isSummon(attacker) then 
    value = value /4
    end

end
    
    return value
end

function getMoveType(name, moveName, attacker)
    local x = movestable[doCorrectString(name)]
    if not x then return "" end
    
    local z = "\n"
    local tables = {x.move1, x.move2, x.move3, x.move4, x.move5, x.move6, x.move7, x.move8, x.move9, x.move10, x.move11, x.move12}
    for i = 1, #tables do
        if tables[i].name == moveName then
           return tables[i].t
        end
    end
        return true
end 

function getMoveTypeSmeargle(name, moveName, attacker)
    local x = {}
--------------SMEARGLETABLE
if name == "Smeargle" and isSummon(attacker) then
local move1 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, "Sketch1")
local move2 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, "Sketch2")
local move3 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, "Sketch3")
local move4 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, "Sketch4")
local move5 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, "Sketch5")
local move6 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, "Sketch6")
local move7 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, "Sketch7")
local move8 = getItemAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, "Sketch8")

local movename1, movecd1, moveforce1, movetype1, movetarget1, movelevel1, movedist1 = string.explode(move1, "|")[1], string.explode(move1, "|")[2], string.explode(move1, "|")[3], string.explode(move1, "|")[4], string.explode(move1, "|")[5], string.explode(move1, "|")[6], string.explode(move1, "|")[7]
local movename2, movecd2, moveforce2, movetype2, movetarget2, movelevel2, movedist2 = string.explode(move2, "|")[1], string.explode(move2, "|")[2], string.explode(move2, "|")[3], string.explode(move2, "|")[4], string.explode(move2, "|")[5], string.explode(move2, "|")[6], string.explode(move2, "|")[7]
local movename3, movecd3, moveforce3, movetype3, movetarget3, movelevel3, movedist3 = string.explode(move3, "|")[1], string.explode(move3, "|")[2], string.explode(move3, "|")[3], string.explode(move3, "|")[4], string.explode(move3, "|")[5], string.explode(move3, "|")[6], string.explode(move3, "|")[7]
local movename4, movecd4, moveforce4, movetype4, movetarget4, movelevel4, movedist4 = string.explode(move4, "|")[1], string.explode(move4, "|")[2], string.explode(move4, "|")[3], string.explode(move4, "|")[4], string.explode(move4, "|")[5], string.explode(move4, "|")[6], string.explode(move4, "|")[7]
local movename5, movecd5, moveforce5, movetype5, movetarget5, movelevel5, movedist5 = string.explode(move5, "|")[1], string.explode(move5, "|")[2], string.explode(move5, "|")[3], string.explode(move5, "|")[4], string.explode(move5, "|")[5], string.explode(move5, "|")[6], string.explode(move5, "|")[7]
local movename6, movecd6, moveforce6, movetype6, movetarget6, movelevel6, movedist6 = string.explode(move6, "|")[1], string.explode(move6, "|")[2], string.explode(move6, "|")[3], string.explode(move6, "|")[4], string.explode(move6, "|")[5], string.explode(move6, "|")[6], string.explode(move6, "|")[7]
local movename7, movecd7, moveforce7, movetype7, movetarget7, movelevel7, movedist7 = string.explode(move7, "|")[1], string.explode(move7, "|")[2], string.explode(move7, "|")[3], string.explode(move7, "|")[4], string.explode(move7, "|")[5], string.explode(move7, "|")[6], string.explode(move7, "|")[7]
local movename8, movecd8, moveforce8, movetype8, movetarget8, movelevel8, movedist8 = string.explode(move8, "|")[1], string.explode(move8, "|")[2], string.explode(move8, "|")[3], string.explode(move8, "|")[4], string.explode(move8, "|")[5], string.explode(move8, "|")[6], string.explode(move8, "|")[7]


local smeargletable = {move1 = {name = movename1, level = tonumber(movelevel1), cd = tonumber(movecd1), dist = tonumber(movedist1), target = tonumber(movetarget1), f = tonumber(moveforce1), t = movetype1},
         move2 = {name = movename2, level = tonumber(movelevel2), cd = tonumber(movecd2), dist = tonumber(movedist2), target = tonumber(movetarget2), f = tonumber(moveforce2), t = movetype2},
         move3 = {name = movename3, level = tonumber(movelevel3), cd = tonumber(movecd3), dist = tonumber(movedist3), target = tonumber(movetarget3), f = tonumber(moveforce3), t = movetype3},
         move4 = {name = movename4, level = tonumber(movelevel4), cd = tonumber(movecd4), dist = tonumber(movedist4), target = tonumber(movetarget4), f = tonumber(moveforce4), t = movetype4},
         move5 = {name = movename5, level = tonumber(movelevel5), cd = tonumber(movecd5), dist = tonumber(movedist5), target = tonumber(movetarget5), f = tonumber(moveforce5), t = movetype5},
         move6 = {name = movename6, level = tonumber(movelevel6), cd = tonumber(movecd6), dist = tonumber(movedist6), target = tonumber(movetarget6), f = tonumber(moveforce6), t = movetype6},
         move7 = {name = movename7, level = tonumber(movelevel7), cd = tonumber(movecd7), dist = tonumber(movedist7), target = tonumber(movetarget7), f = tonumber(moveforce7), t = movetype7},
         move8 = {name = movename8, level = tonumber(movelevel8), cd = tonumber(movecd8), dist = tonumber(movedist8), target = tonumber(movetarget8), f = tonumber(moveforce8), t = movetype8},
          }
          x =smeargletable
end
--------------SMEARGLETABLE
    if not x then return "" end
    
    local z = "\n"
    local tables = {x.move1, x.move2, x.move3, x.move4, x.move5, x.move6, x.move7, x.move8, x.move9, x.move10, x.move11, x.move12}
    for i = 1, #tables do
        if tables[i].name == moveName then
           return tables[i].t
        end
    end
        return true
end 

function isGod(cid)
if isPlayer(cid) then 
  if getPlayerGroupId(cid) >= 6 then
     return true 
  end
  return false
end
end

function isADM(cid)
if isPlayer(cid) then 
  if getPlayerGroupId(cid) >= 15 then
     return true 
  end
  return false
end
end

function getRankStorage(cid, value, max, RankName) -- by vodka
local str =""
str = "--[".. (RankName == nil and "RANK STORAGE" or ""..RankName.."") .."]--\n\n"
local query = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..value.." ORDER BY cast(value as UNSIGNED) DESC;")
if (query:getID() ~= -1) then k = 1 repeat if k > max then break end
str = str .. "\n " .. k .. ". "..getPlayerNameByGUID(query:getDataString("player_id")).." - [" .. query:getDataInt("value")+1 .. "]"
k = k + 1 until not query:next() end return doShowTextDialog(cid, 2529, str)
end

function doKillPlayer(cid, attacker, hit)
    if not isCreature(cid) then return true end
    demountPokemon(cid)
    local myName, attackerName =  getCreatureName(cid), getCreatureName(attacker) 
    if canWalkOnPos(getThingPos(cid), false, true, true, true, true) then
    
    if  getPlayerStorageValue(cid, 321322) == 1  then
    setPlayerStorageValue(cid, 321322, -1)
    if getPlayerLevel(cid) < 150 then
        local corpse = doCreateItem(15645, 1, getThingPos(cid))
         doDecayItem(corpse)
    elseif getPlayerLevel(cid) >= 150 and getPlayerLevel(cid) < 250 then
    local corpse = doCreateItem(15644, 1, getThingPos(cid))
         doDecayItem(corpse)
    elseif getPlayerLevel(cid) >= 250 and getPlayerLevel(cid) < 300 then
    local corpse = doCreateItem(15644, 2, getThingPos(cid))
         doDecayItem(corpse)
    elseif getPlayerLevel(cid) >= 300 then
    local corpse = doCreateItem(15646, 1, getThingPos(cid))
         doDecayItem(corpse)
         end
         
    else
        if getPlayerSex(cid) == 1 then
         local corpse = doCreateItem(3058, 1, getThingPos(cid))
         doDecayItem(corpse)
         doItemSetAttribute(corpse, "iname", "\nYou recognize ".. myName ..". He was killed by a ".. attackerName .."")
         elseif getPlayerSex(cid) == 0 then     
         local corpse = doCreateItem(3065, 1, getThingPos(cid))
         doDecayItem(corpse)
         doItemSetAttribute(corpse, "iname", "\nYou recognize ".. myName ..". She was killed by a ".. attackerName .."")
        end
    end
    
end

    --setPlayerStorageValue(cid, storage.securityDead, 1)
    --setPlayerGr
    local townName = getTownName(getPlayerTown(cid))
        if townName then
          doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
        end
    doCreatureAddHealth(cid, getCreatureMaxHealth(cid))
    doRemoveCondition(cid, CONDITION_INFIGHT)
    local experience = -getPlayerExperience(cid)*0.05
 setPlayerStorageValue(cid, 3213211, -1)  
      if  getPlayerStorageValue(cid, 123123) == 1  then
if  getPlayerStorageValue(cid, 321321) == 1 and  getPlayerStorageValue(cid, 3213211)  == -1  then
     experience = 0
setPlayerStorageValue(cid, 321321, -1)
     else
     experience = 0
setPlayerStorageValue(cid, 123123, -1)
end
     end
if  getPlayerStorageValue(cid, 321321) == 1 and getPlayerStorageValue(cid, 3213211)  == -1   then
     experience = 0
setPlayerStorageValue(cid, 321321, -1)
     end
setPlayerStorageValue(cid, 5700, -1)
    setPlayerStorageValue(cid, 3213211, -1)
    doPlayerAddExperience(cid, experience)
    

    doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_PLAYER_DEAD_WINDOW, " morreu|" .. doCorrectString(attackerName) .. "|" .. hit .. "|" .. tostring(getPortraitClientID(attackerName)) .. "|")
    addEvent(doRemoveCreatureWithS, 1, cid)
    return false
end

function doRemoveCreatureWithS(cid)
if not isCreature(cid) then return true end
   doRemoveCreature(cid)
end

function doKillPlayerPokemon(cid)
    local deathtexts = {"Oh no! POKENAME, come back!", "Come back, POKENAME!", "That's enough, POKENAME!", "You did well, POKENAME!", "You need to rest, POKENAME!", "Nice job, POKENAME!", "POKENAME, you are too hurt!"}
    local master = getCreatureMaster(cid)
    local thisball = getPlayerSlotItem(master, ?
    local ballName = getItemAttribute(thisball.uid, "poke")
    
    
    if not isCreature(cid) or not isCreature(master) then return true end
    
    
    if #getCreatureSummons(master) > 1 then
        BackTeam(master, getCreatureSummons(master))      
    end

    doSendMagicEffect(getThingPos(cid), pokeballs[getPokeballType(thisball.itemid)].effect) -- rever isso aqui
    doTransformItem(thisball.uid, pokeballs[getPokeballType(thisball.itemid)].off)
    
    local say = deathtexts[math.random(#deathtexts)]
          say = string.gsub(say, "POKENAME", getCreatureName(cid))
          doCreatureSay(master, say, TALKTYPE_ORANGE_1)
          
          doItemSetAttribute(thisball.uid, "hpToDraw", 0)
    
end

function getPokemonType(cid)
if isPlayer(cid) then return false end -- seguranca do player nao atacar
    local name = doCorrectString(getCreatureName(cid))
    if not pokes[name] then return print("getPokemonType(cid): O pokemon " .. name .. " nao tem um tipo efetivo.") end
    local types = {}
          types.type1 = pokes[name].type
          types.type2 = pokes[name].type2    
    return types
end

function getElementByCombat(combat)
    local element = "normal"
    for a, b in pairs(typeTable) do
        if(b.damageID == combat)then
          element = a
          break
        end
    end
    return element
end

------ Funcoes de efetividades ----------

function  getPokemonOutfitToSkill(pokeName)
    if flys[pokeName] then
       return flys[pokeName][1]
    elseif rides[pokeName] then
       return rides[pokeName][1]
    else 
       return surfs[pokeName].lookType
    end
end

function  getPokemonSpeedToSkill(pokeName)
    if flys[pokeName] then
       return flys[pokeName][2]
    elseif rides[pokeName] then
       return rides[pokeName][2] * 4.5
    else 
       return surfs[pokeName].speed
    end
end

function getPokemonSkills(pokeName)  
    local str = ""
    for a, b in pairs(specialabilities) do
        for i = 1, #b do
            if(b[i] == pokeName) then
               str = str .. (str == "" and "" or ", ") .. a
            end
        end 
    end
    return str
end

function demountPokemon(cid, kill)
if not isCreature(cid) then return false end
if not isRiderOrFlyOrSurf(cid) then return false end
    doEreasPlayerOrder(cid)
    if not kill then
        local ball = getPlayerSlotItem(cid, ?
        doTransformItem(ball.uid, pokeballs[getPokeballType(ball.itemid)].off)
    end
end

--// Edicioes DarkXPoke \\--

function isUsingPotion(pokemon)
    if getPlayerStorageValue(pokemon, storages.potion) and getPlayerStorageValue(pokemon, storages.potion) >= 1 then
        return true
    else
        return false
    end
end

function isNumberPair(number)
    return number % 2 == 0 and true or false
end

function getCombatColor(typeAtk, pokemon)
    local pokeName = getCreatureName(pokemon)
    local pokeType1 = getPokemonType1(pokeName)
    local pokeType2 = getPokemonType2(pokeName)
    if COMBAT_COLORS[typeAtk] == 180 then
        if COMBAT_TARGET_COLOR[pokeType1] ~= 180 then
            return COMBAT_TARGET_COLOR[pokeType1]
        elseif pokeType2 and COMBAT_TARGET_COLOR[pokeType2] ~= 180 then
            return COMBAT_TARGET_COLOR[pokeType2]
        else
            return 180
        end
    else
        return COMBAT_COLORS[typeAtk]
    end
end

function getCreatureDirectionToTarget(cid, target)
    if not isCreature(cid) then return true end
    if not isCreature(target) then return getCreatureLookDir(cid) end

    local dirs = {
        [NORTHEAST] = {NORTH, EAST},
        [SOUTHEAST] = {SOUTH, EAST},
        [NORTHWEST] = {NORTH, WEST},
        [SOUTHWEST] = {SOUTH, WEST}
    }

    local direction = getDirectionTo(getThingPos(cid), getThingPos(target), false)
    if direction <= 3 then
        return direction
    else
        local xdistance = math.abs(getThingPos(cid).x - getThingPos(target).x)
        local ydistance = math.abs(getThingPos(cid).y - getThingPos(target).y)
        if xdistance > ydistance then
            return dirs[direction][2]
        elseif ydistance > xdistance then
            return dirs[direction][1]
        elseif isInArray(dirs[direction], getCreatureLookDir(cid)) then
            return getCreatureLookDir(cid)
        else
            return dirs[direction][math.random(1, 2)]
        end
    end
end

function getPlayerFightModeOffense(cid)
    return fightMode[getPlayerStorageValue(cid, storages.fightMode)].offense
end

function getPlayerFightModeDefense(cid)
    return fightMode[getPlayerStorageValue(cid, storages.fightMode)].defense
end

function doOTCSendPokemonHealth(cid)
    local ball = getPlayerSlotItem(cid, CONST_SLOT_FEET)
    local pokemon = getCreatureSummons(cid)
    if not ball.uid or ball.uid <= 1 then
        return doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_POKEMON_HEALTH, "0|0")
    end
    if #pokemon >= 1 then
        return doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_POKEMON_HEALTH, getCreatureHealth(pokemon[1]).."|"..getCreatureMaxHealth(pokemon[1]))
    end
    return doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_POKEMON_HEALTH, getBallHealth(cid, ball).."|"..getBallMaxHealth(cid, ball))
end

function portraitSendLifeOTC(cid, ball)
if not isCreature(cid) then return true end
    if ball.uid and ball.uid ~= 0 then 
       return doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_POKEMON_HEALTH, getBallHealth(cid, ball).."|"..getBallMaxHealth(cid, ball))
    else
       return doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_POKEMON_HEALTH, "0|0")
    end
end

function doTransformPokeballIcon(cid, item, count, toContainer, fromContainer, fromPos, toPos)    
    ----------------- Icon system -----------------
    if toPos.x ~= 65535 then -- jogando no chao    
        if isContainer(item.uid) then
         local bag = item.uid
         for i = 1, #getPokeballsInContainer(bag) do
             local ballNow = getPokeballsInContainer(bag)[i]
             local ids = getPokeballs_ITEMS_ID_InContainer(bag)[i]
        
            if getItemAttributeWithSecurity(ballNow, "unique") == 'true' then
               return true
            end
            
            if not getItemAttribute(ballNow, "reverseIcon")    then -- bug fix
               doItemSetAttribute(ballNow, "reverseIcon", "poke")
            end
        
             if isPokeballOn(ids) then 
                doTransformItem(ballNow, pokeballs[getItemAttributeWithSecurity(ballNow, "reverseIcon")].on)
             elseif isPokeballOff(ids) then
                doTransformItem(ballNow, pokeballs[getItemAttributeWithSecurity(ballNow, "reverseIcon")].off)
             end
             
             doItemSetAttribute(ballNow, "ehDoChao", true)
        end
       elseif isPokeball(item.itemid) then
        
            if getItemAttributeWithSecurity(item.uid, "unique") == 'true' then
               return true
            end
        
            if not getItemAttribute(item.uid, "reverseIcon") then -- bug fix
               doItemSetAttribute(item.uid, "reverseIcon", "poke")
            end
            
            local pokeNamesBall = ""
                if not pokeballs[getItemAttributeWithSecurity(item.uid, "reverseIcon") or "poke"] then    
                   print("Icon bugou: main function.lua [524]")    
                   return true
                end
            
             if isPokeballOn(item) then 
                doTransformItem(item.uid, pokeballs[getItemAttributeWithSecurity(item.uid, "reverseIcon") or "poke"].on)
             elseif isPokeballOff(item) then
                doTransformItem(item.uid, pokeballs[getItemAttributeWithSecurity(item.uid, "reverseIcon") or "poke"].off)
             end
             
             doItemSetAttribute(item.uid, "ehDoChao", true)
       end
    else
       if isContainer(item.uid) then
         local bag = item.uid
         for i = 1, #getPokeballsInContainer(bag) do
             local ballNow = getPokeballsInContainer(bag)[i]
             local pokeName =  string.lower(getItemAttributeWithSecurity(ballNow, "poke"))
             local ids = getPokeballs_ITEMS_ID_InContainer(bag)[i]
        
             if isPokeballOn(ids) then 
                doTransformItem(ballNow, pokeballs[pokeName].on)
             elseif isPokeballOff(ids) then
                doTransformItem(ballNow, pokeballs[pokeName].off)
             end
             doItemSetAttribute(ballNow, "ehDoChao", false)
        end
       elseif isPokeball(item.itemid) then
             local pokeName =  string.lower(getItemAttributeWithSecurity(item.uid, "poke"))
             if isPokeballOn(item) then 
                doTransformItem(item.uid, pokeballs[pokeName].on)
             elseif isPokeballOff(item) then
                doTransformItem(item.uid, pokeballs[pokeName].off)
             end
       end
    end
   ----------------- Icon system -----------------     
end

function doSetAttributesBallsByPokeName(cid, ball, name)
name = doCorrectString(name)
local bTypeName = getItemAttribute(ball, "ball")
if string.find(name, "Shiny") then
   bTypeName = "shiny" .. bTypeName
end

   local pokelevel = pokes[name].level
   
   if pokes[name].level <=30 and pokes[name].level > 10 then
    pokelevel= pokes[name].level + math.random(-9, 3)
   end
   
   if pokes[name].level <=50 and pokes[name].level >30 then
    pokelevel= pokes[name].level + math.random(-12, 2)
   end
   
   if pokes[name].level <=70 and pokes[name].level >50 then
    pokelevel= pokes[name].level + math.random(-17, 0)
   end
   
   if pokes[name].level <=90 and pokes[name].level >70 then
    pokelevel= pokes[name].level + math.random(-20, -11)
   end
   
   if  pokes[name].level >90 then
    pokelevel=  math.random(60, 70)
   end
   
   
   local valor1 = 0.4
   local elrandom = math.random(1, 100)
   
   
   if isShinyName(name) or name == "Ditto" or name == "Shiny Ditto" then
   elrandom = math.random(50, 100)
   end
   
   if elrandom <= 20 then
    elrandom = math.random(1, 100)
    end
    
   if elrandom >= 70 and elrandom <85 then
    elrandom = math.random(1, 100)
    if isShinyName(name) or name == "Ditto" or name == "Shiny Ditto"  then elrandom = math.random(50, 100) end
    end
    
   if elrandom >=85 then
    elrandom = math.random(1, 100)
    if isShinyName(name) or name == "Ditto" or name == "Shiny Ditto"  then elrandom = math.random(50, 100) end
   if elrandom >= 85 then
   elrandom = math.random(1, 100)
   if isShinyName(name) or name == "Ditto" or name == "Shiny Ditto"  then elrandom = math.random(50, 100) end
   end
   end
   
   
   local valor2 = (valor1 * elrandom) /100

   local multiplicador = (80/100) + valor2

   
doItemSetAttribute(ball, "multiplier", multiplicador)
  doItemSetAttribute(ball, "porcentaje", elrandom)
doItemSetAttribute(ball, "poke", name)
doItemSetAttribute(ball, "ballEffe", bTypeName)
doItemSetAttribute(ball, "hpToDraw", 0)
doItemSetAttribute(ball, "Icon", name:lower())
doItemSetAttribute(ball, "reverseIcon", bTypeName)
doItemSetAttribute(ball, "pokeDeath", false)
doItemSetAttribute(ball, "initialKit", true)
doItemSetAttribute(ball, "level", pokelevel)
doItemSetAttribute(ball, "exp", 0)
--doItemSetAttribute(ball, "expneed", 0)

local level = getItemAttribute(ball, "level")
local xpperlevel=50
SetExpNeed(level, ball, xpperlevel)
    
    if getItemAttribute(ball, "poke") == "Smeargle" then
    doItemSetAttribute(ball, "Sketch1", "Sketch 1|10|0|normal|0|100|1")
    doItemSetAttribute(ball, "Sketch2", "Sketch 2|10|0|normal|0|100|1")
    doItemSetAttribute(ball, "Sketch3", "Sketch 3|10|0|normal|0|100|1")
    doItemSetAttribute(ball, "Sketch4", "Sketch 4|10|0|normal|0|100|1")
    doItemSetAttribute(ball, "Sketch5", "Sketch 5|10|0|normal|0|100|1")
    doItemSetAttribute(ball, "Sketch6", "Sketch 6|10|0|normal|0|100|1")
    doItemSetAttribute(ball, "Sketch7", "Sketch 7|10|0|normal|0|100|1")
    doItemSetAttribute(ball, "Sketch8", "Sketch 8|10|0|normal|0|100|1")
    end
    
    
    
    
    
if not pokes[name] then
   print("Pokemon nao existe: " .. name)
   return true
end
local pokeLifeMax = pokes[name].life 
local masterLevel = getPlayerLevel(cid)
local lifePercentByLevel = 100 * masterLevel + (pokes[name].vitality * masterLevel)
    if(pokes[name].level < 60) then
        lifePercentByLevel = pokes[name].vitality * masterLevel * ( masterLevel > 60 and 1.5 or 1 )
    end
local life = pokeLifeMax + lifePercentByLevel
setBallHealth(ball, life, life)
end

function SetExpNeed(level, pb, xpperlevel)

if level < 20 then
        doItemSetAttribute(pb, "expneed", (level+1)*xpperlevel)
    elseif level >= 20 and level < 40 then
        doItemSetAttribute(pb, "expneed", (level+1)*(xpperlevel*2.5))
    elseif level >= 40 and level < 60 then
        doItemSetAttribute(pb, "expneed", (level+1)*(xpperlevel*7))
    elseif level >= 60 and level < 80 then
        doItemSetAttribute(pb, "expneed", (level+1)*(xpperlevel*30))
    elseif level >= 80 and level < 85 then
        doItemSetAttribute(pb, "expneed", (level+1)*(xpperlevel*170))
    elseif level >= 85 and level < 90 then
        doItemSetAttribute(pb, "expneed", (level+1)*(xpperlevel*200))
    elseif level >= 90 and level < 95 then
        doItemSetAttribute(pb, "expneed", (level+1)*(xpperlevel*240))
    elseif level >= 95 and level < 100 then
        doItemSetAttribute(pb, "expneed", (level+1)*(xpperlevel*290))
    elseif level >= 100 then
        doItemSetAttribute(pb, "expneed", 999999999)
    end
    
end

function getPokeballName(ball)
      return getItemAttribute(ball.uid, "poke")
end   

function getPokeName(cid)
if not isCreature(cid) then return "" end
   return getPlayerStorageValue(cid, 510) or getCreatureName(cid)
end

function isFight(cid)
  if getCreatureCondition(cid, CONDITION_INFIGHT) then
     return true
  end
return false
end

function getBallEffect(ball)
    return pokeballs2[getItemAttribute(ball.uid, "ballEffe")].eff or 188
end 

function getBallType(ball)
    return getItemAttribute(ball.uid, "ballEffe") or "poke"
end 

function setBallHealth(ball, health, maxHealth)
    doItemSetAttribute(ball, "hpNow", health)
    doItemSetAttribute(ball, "hpMax", maxHealth)
end

function getBallHealth(cid, ball)
    for a, b in pairs (pokeballs) do
        if ball.itemid == b.off then
            return 0
        end
    end
    if not getItemAttribute(ball.uid, "hpNow") then
        doSetAttributesBallsByPokeName(cid, ball.uid, getItemAttribute(ball.uid, "poke"))
    end
    local healthNow = getItemAttribute(ball.uid, "hpNow")
    return math.floor(healthNow)
end

function getBallMaxHealthUnique(cid, ball)
    if not getItemAttribute(ball, "hpMax") then
        doSetAttributesBallsByPokeName(cid, ball, getItemAttribute(ball, "poke"))
    end
    local healthNow = getItemAttribute(ball, "hpMax")
    return math.floor(healthNow)
end

function getBallMaxHealth(cid, ball)
    if not getItemAttribute(ball.uid, "hpMax") then
        doSetAttributesBallsByPokeName(cid, ball.uid, getItemAttribute(ball.uid, "poke"))
    end
    local healthNow = getItemAttribute(ball.uid, "hpMax")
    return math.floor(healthNow)
end

function doSetPokeballLifeStatus(item, health, maxHealth)
    doItemSetAttribute(item.uid, "hpNow", health)
    doItemSetAttribute(item.uid, "hpMax", maxHealth)
end

function doSendLifePokeToOTC(cid)
    local ball = getPlayerSlotItem(cid, ?
    local pk = getCreatureSummons(cid)
          if #pk <= 0 then return true end
          if ball.uid ~= 0 then
        doSetPokeballLifeStatus(ball, getCreatureHealth(pk[1]), getCreatureMaxHealth(pk[1]))
        doOTCSendPokemonHealth(cid)
    end
end

------------------------------------------ Skill Bar OTC
function doOTCSendPlayerSkills(cid)
    local str = {}
    table.insert(str, getPlayerClan(cid))
    table.insert(str, "|"..getPlayerCasinoCoins(cid))
    table.insert(str, "|"..getPlayerKantoCatches(cid).."|"..getPlayerTotalCatches(cid))
    table.insert(str, "|"..getPlayerWins(cid).."|"..getPlayerLoses(cid).."|"..getPlayerOfficialWins(cid).."|"..getPlayerOfficialLoses(cid).."|"..getPlayerPVPScore(cid))
    table.insert(str, "|"..getPlayerBadgeOfLeader(cid, "Brock"))
    table.insert(str, ";"..getPlayerBadgeOfLeader(cid, "Misty"))
    table.insert(str, ";"..getPlayerBadgeOfLeader(cid, "Surge"))
    table.insert(str, ";"..getPlayerBadgeOfLeader(cid, "Erika"))
    table.insert(str, ";"..getPlayerBadgeOfLeader(cid, "Sabrina"))
    table.insert(str, ";"..getPlayerBadgeOfLeader(cid, "Koga"))
    table.insert(str, ";"..getPlayerBadgeOfLeader(cid, "Blaine"))
    table.insert(str, ";"..getPlayerBadgeOfLeader(cid, "Giovanni"))
    return doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_SKILL_BAR, table.concat(str))
end

------------------------------------------ Clan

function setPlayerClans(cid, name)
    return setPlayerStorageValue(cid, storages.playerClan, string.lower(name)) and doOTCSendPlayerSkills(cid)
end

function getPlayerClan(cid)
    return getPlayerStorageValue(cid, storages.playerClan) == -1 and "Pokemon Trainer" or getPlayerStorageValue(cid, storages.playerClan)
end

function setPlayerClanRank(cid, value)
    return setPlayerStorageValue(cid, storages.playerClanRank, value)
end

function getPlayerClanRank(cid)
    return getPlayerStorageValue(cid, storages.playerClanRank) == -1 and 1 or getPlayerStorageValue(cid, storages.playerClanRank)
end

------------------------------------------ Casino
function doPlayerAddInCasinoCoins(cid, value)
    return setPlayerStorageValue(cid, storages.playerCasinoCoins, getPlayerCasinoCoins(cid) + value) and doOTCSendPlayerSkills(cid)
end

function getPlayerCasinoCoins(cid)
    return getPlayerStorageValue(cid, storages.playerCasinoCoins) == -1 and 0 or getPlayerStorageValue(cid, storages.playerCasinoCoins)
end

------------------------------------------ Catches
function doPlayerAddInKantoCatchs(cid, value)
    return setPlayerStorageValue(cid, storages.playerKantoCatches, getPlayerKantoCatches(cid) + value)
end

function getPlayerKantoCatches(cid)
    return getPlayerStorageValue(cid, storages.playerKantoCatches) == -1 and 0 or getPlayerStorageValue(cid, storages.playerKantoCatches)
end

function doPlayerAddInTotalCatchs(cid, value)
    return setPlayerStorageValue(cid, storages.playerTotalCatches, getPlayerTotalCatches(cid) + value) and doOTCSendPlayerSkills(cid)
end

function getPlayerTotalCatches(cid)
    return getPlayerStorageValue(cid, storages.playerTotalCatches) == -1 and 0 or getPlayerStorageValue(cid, storages.playerTotalCatches)
end

------------------------------------------ Duels and PVP
function doPlayerAddInWins(cid, value)
    return setPlayerStorageValue(cid, storages.playerWins, getPlayerWins(cid) + value) and doOTCSendPlayerSkills(cid)
end

function getPlayerWins(cid)
    return getPlayerStorageValue(cid, storages.playerWins) == -1 and 0 or getPlayerStorageValue(cid, storages.playerWins)
end

function doPlayerAddInLoses(cid, value)
    return setPlayerStorageValue(cid, storages.playerLoses, getPlayerLoses(cid) + value) and doOTCSendPlayerSkills(cid)
end

function getPlayerLoses(cid)
    return getPlayerStorageValue(cid, storages.playerLoses) == -1 and 0 or getPlayerStorageValue(cid, storages.playerLoses)
end

function doPlayerAddInOfficialWins(cid, value)
    return setPlayerStorageValue(cid, storages.playerOfficialWins, getPlayerOfficialWins(cid) + value) and doOTCSendPlayerSkills(cid)
end

function getPlayerOfficialWins(cid)
    return getPlayerStorageValue(cid, storages.playerOfficialWins) == -1 and 0 or getPlayerStorageValue(cid, storages.playerOfficialWins)
end

function doPlayerAddInOfficialLoses(cid, value)
    return setPlayerStorageValue(cid, storages.playerOfficialLoses, getPlayerOfficialLoses(cid) + value) and doOTCSendPlayerSkills(cid)
end

function getPlayerOfficialLoses(cid)
    return getPlayerStorageValue(cid, storages.playerOfficialLoses) == -1 and 0 or getPlayerStorageValue(cid, storages.playerOfficialLoses)
end

function doPlayerAddInPVPScore(cid, value)
    return setPlayerStorageValue(cid, storages.playerPVPScore, getPlayerPVPScore(cid) + value) and doOTCSendPlayerSkills(cid)
end

function getPlayerPVPScore(cid)
    return getPlayerStorageValue(cid, storages.playerPVPScore) == -1 and 0 or getPlayerStorageValue(cid, storages.playerPVPScore)
end

------------------------------------------ Badges
function doPlayerAddBadgeOfLeader(cid, leader)
    return setPlayerStorageValue(cid, storages.gynLeaders[leader], 1)
end

function getPlayerBadgeOfLeader(cid, leader)
    return getPlayerStorageValue(cid, storages.gynLeaders[leader]) == -1 and 0 or getPlayerStorageValue(cid, storages.gynLeaders[leader])
end


function getPokeUniqueStorToCatch(poke)
   return pokeballs[string.lower(poke)].on
end

function getPokeUniqueStorToDex(poke)
   return pokeballs[string.lower(poke)].off
end

function isWild(cid)
   if not isCreature(cid) then return false end
      if not isSummon(cid) and isMonster(cid) then
         return true 
      end
   return false
end

function getPokeDistanceToTeleport(cid)
   if not isCreature(cid) then return true end
   if not isSummon(cid) then return true end
   
   local owner = getCreatureMaster(cid)
   
      if getThingPos(cid).z ~= getThingPos(owner).z or math.abs(getThingPos(owner).x - getThingPos(cid).x) > 7 or math.abs(getThingPos(owner).y - getThingPos(cid).y) > 5 then
         doTeleportThing(cid, getThingPos(owner), false)
         doSendMagicEffect(getThingPos(cid), 21)
         setMoveSummon(owner, true)
      end
      
   addEvent(getPokeDistanceToTeleport, 10, cid)
end

function setMoveSummon(cid, canMove)
if not isCreature(cid) then return true end
return canMove == true and setPlayerStorageValue(cid, 500, -1) or setPlayerStorageValue(cid, 500, 1)   
end 

function getPokeballs_ITEMS_ID_InContainer(container) -- Function By Kydrai
    if not isContainer(container) then return {} end
    local items = {}
    if isContainer(container) and getContainerSize(container) > 0 then
        for slot=0, (getContainerSize(container)-1) do
            local item = getContainerItem(container, slot)
                if isContainer(item.uid) then
                    local itemsbag = getPokeballsInContainer(item.uid)
                    for i=0, #itemsbag do
                        table.insert(items, itemsbag[i])
                    end
                elseif isPokeball(item.itemid) then
                    table.insert(items, item)
                end
        end
    end
return items
end

function getBallNickName(ball)
   return getItemAttribute(ball.uid, "nick") or 0
end

function doCreatureSetNick(cid, nick)

   local nid = getCreatureName(cid)
   local master = getCreatureMaster(cid)
   local newPoke = doCreateMonster(nid, farwayPos)
   local oldPos = getThingPos(cid)
         doRemoveCreature(cid)
         setCreatureName(newPoke, nick, nick) 
         doTeleportThing(newPoke, oldPos, false) 
         doConvinceCreature(master, newPoke) 
         registerCreatureEvent(newPoke, "SummonDeath")
            getPokeDistanceToTeleport(newPoke)
   
end
--------------------- Icon system ---------------------

function doTransformBallsInIcons(cid)
     setPlayerStorageValue(cid, storages.iconSys, 1)
     local bag = getPlayerSlotItem(cid, 3).uid
     for i = 1, #getPokeballsInContainer(bag) do
        local ballNow = getPokeballsInContainer(bag)[i]
        local pokeName =  string.lower(getItemAttribute(ballNow, "pokeName"))
        local ids = getPokeballs_ITEMS_ID_InContainer(bag)[i]
        
        if isPokeballOn(ids) then 
           doTransformItem(ballNow, pokeballs[pokeName].on)
        elseif isPokeballOff(ids) then
           doTransformItem(ballNow, pokeballs[pokeName].off)
        end
        
     end
     
     local legs = getPlayerSlotItem(cid, ?
    
     if legs.uid > 0 then 
        local pokeName =  string.lower(getItemAttribute(legs.uid, "pokeName"))
        if isPokeballOn(legs) then 
           doTransformItem(legs.uid, pokeballs[pokeName].on)
        elseif isPokeballOff(legs) then
           doTransformItem(legs.uid, pokeballs[pokeName].off)
        end 
     end
     
     local arrow = getPlayerSlotItem(cid, 10)
    
     if arrow.uid > 0 then 
        if not getItemAttribute(arrow.uid, "pokeName") then return true end
        local pokeName =  string.lower(getItemAttribute(arrow.uid, "pokeName"))
        if isPokeballOn(arrow) then 
           doTransformItem(arrow.uid, pokeballs[pokeName].on)
        elseif isPokeballOff(arrow) then
           doTransformItem(arrow.uid, pokeballs[pokeName].off)
        end 
     end
     
     
end

function doTransformIconsInBalls(cid)
     setPlayerStorageValue(cid, storages.iconSys, -1)
     local bag = getPlayerSlotItem(cid, 3).uid
     for i = 1, #getPokeballsInContainer(bag) do
        local ballNow = getPokeballsInContainer(bag)[i]
        local ids = getPokeballs_ITEMS_ID_InContainer(bag)[i]
        
        if isPokeballOn(ids) then 
           doTransformItem(ballNow, pokeballs[getItemAttribute(ballNow, "ballEffe")].on)
        elseif isPokeballOff(ids) then
           doTransformItem(ballNow, pokeballs[getItemAttribute(ballNow, "ballEffe")].off)
        end
        
     end
     
     local legs = getPlayerSlotItem(cid, ?
     if legs.uid > 0 then 
        if isPokeballOn(legs) then 
           doTransformItem(legs.uid, pokeballs[getItemAttribute(legs.uid, "ballEffe")].on)
        elseif isPokeballOff(legs) then
           doTransformItem(legs.uid, pokeballs[getItemAttribute(legs.uid, "ballEffe")].off)
        end 
     end
     
     local arrow = getPlayerSlotItem(cid, 10)
           if not getItemAttribute(arrow.uid, "pokeName") then return true end
     if arrow.uid > 0 then 
        if isPokeballOn(arrow) then 
           doTransformItem(arrow.uid, pokeballs[getItemAttribute(arrow.uid, "ballEffe")].on)
        elseif isPokeballOff(arrow) then
           doTransformItem(arrow.uid, pokeballs[getItemAttribute(arrow.uid, "ballEffe")].off)
        end 
     end
     
end

function isItemPokeball(item)         --alterado v1.9 \/
if not item then return false end
for a, b in pairs (pokeballs) do
    if b.on == item or b.off == item or b.use == item then return true end
end
return false
end

function isPokeball(item)
return isItemPokeball(item)
end  

function getItensUniquesInContainer(container)    --alterado v1.6
if not isContainer(container) then return {} end
local items = {}
if isContainer(container) and getContainerSize(container) > 0 then
   for slot=0, (getContainerSize(container)-1) do
       local item = getContainerItem(container, slot)
       if isContainer(item.uid) then
          local itemsbag = getItensUniquesInContainer(item.uid)
          for i=0, #itemsbag do
              table.insert(items, itemsbag[i])
          end
       elseif getItemAttribute(item.uid, "unique") or getItemAttribute(item.uid, "torneio") then
          table.insert(items, item)
       end
   end
end
return items
end

function getPokeballsInContainer(container) -- Function By Kydrai
    if not isContainer(container) then return {} end
    local items = {}
    if isContainer(container) and getContainerSize(container) > 0 then
        for slot=0, (getContainerSize(container)-1) do
            local item = getContainerItem(container, slot)
                if isContainer(item.uid) then
                    local itemsbag = getPokeballsInContainer(item.uid)
                    for i=0, #itemsbag do
                        table.insert(items, itemsbag[i])
                    end
                elseif isPokeball(item.itemid) then
                    table.insert(items, item.uid)
                end
        end
    end
return items
end

function isWaterTile(id)
return tonumber(id) and id >= 4608 and id <= 4613 --alterado v1.9
end

function isVenomTile(id)
return tonumber(id) and (id >= 4691 and id <= 4712 or id >= 4713 and id <= 4736 or id >= 4749 and id <= 4755 or id >= 4876 and id <= 4882) --alterado v1.9
end

function isUseIconSystem(cid)
   if tonumber(getPlayerStorageValueWithSecurity(cid, storages.iconSys)) and getPlayerStorageValueWithSecurity(cid, storages.iconSys) == 1 then
      return true
   end
   return false 
end

function getPlayerStorageValueWithSecurity(cid, stor)
   if not isCreature(cid) then return true end
   return getPlayerStorageValue(cid, stor) 
end

function getItemAttributeWithSecurity(item, attr)
    if not item == 0 or item == nil then return true end
    return getItemAttribute(item, attr) or 0
end

function unLock(ball)                                                             
if not ball or ball <= 0 then return false end
if getItemAttribute(ball, "lock") and getItemAttribute(ball, "lock") > 0 then
   local vipTime = getItemAttribute(ball, "lock")
   local timeNow = os.time()
   local days = math.ceil((vipTime - timeNow)/(24 * 60 * 60))
   if days <= 0 then
      doItemEraseAttribute(ball, "lock")    
      doItemEraseAttribute(ball, "unique")
      return true
   end
end
return false
end

function getBallsAttributes(item)
local t = {"pokeName", "pokeNick", "health", "maxHealth", "ballEffe", "copyName", "boost", "happy", "description", "transBegin", "transLeft", "transTurn", "transOutfit", "transName", 
"trans", "light", "blink", "move1", "move2", "move3", "move4", "move5", "move6", "move7", "move8", "move9", "move10", "move11", "move12", "ballorder", 
"hands", "aura", "burn", "burndmg", "poison", "poisondmg", "confuse", "sleep", "miss", "missSpell", "missEff", "fear", "fearSkill", "silence", 
"silenceEff", "stun", "stunEff", "stunSpell", "paralyze", "paralyzeEff", "slow", "slowEff", "leech", "leechdmg", "Buff1", "Buff2", "Buff3", "Buff1skill",
"Buff2skill", "Buff3skill", "control", "unique", "task", "lock", "torneio"} 
local ret = {}
for a = 1, #t do
if getItemAttribute(item, t[a]) == "hands" then
return
end
ret[t[a]] = getItemAttribute(item, t[a]) or false
end
return ret
end

--------------------- Icon system ---------------------

--- balls \/
function isPokeballOn(ball)
   for a, b in pairs(pokeballs) do 
       if b.on == ball.itemid then
          return true
       end
   end
return false
end

function isPokeballOff(ball)
   for a, b in pairs(pokeballs) do 
       if b.off == ball.itemid then
          return true
       end
   end
return false
end
function isPokeballUse(ball)
   for a, b in pairs(pokeballs) do 
       if b.use == ball.itemid then
          return true
       end
   end
return false
end

---- PDA functions
function isPlayerSummon(cid, uid)
return getCreatureMaster(uid) == cid  --alterado v1.9
end

function isSummon(sid)
return isCreature(sid) and getCreatureMaster(sid) ~= sid and isPlayer(getCreatureMaster(sid))   --alterado v1.9
end 

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

local pos = getThingPos(thing)
local ocup = youAre[getPlayerGroupId(thing)]
local rank = (getPlayerStorageValue(thing, 86228) <= 0) and "Treinador Pokemon" or lookClans[getPlayerStorageValue(thing, 86228)][getPlayerStorageValue(thing, 862281)]
local name = thing == cid and "você mesmo" or getCreatureName(thing)     
local art = thing == cid and "Você é" or (getPlayerSex(thing) == 0 and "Ela é" or "Ele é")
   
local str = {}
table.insert(str, "Você está vendo "..name..". "..art.." ")
if youAre[getPlayerGroupId(thing)] then
   table.insert(str, (ocup).." e "..rank.." de ".. getTownName(getPlayerTown(thing))..".")       
else
   table.insert(str, (rank).." de ".. getTownName(getPlayerTown(thing))..".")
end
if getPlayerGuildId(thing) > 0 then
   table.insert(str, " "..art.." "..getPlayerGuildRank(thing).." do "..getPlayerGuildName(thing)..".")
end
if TV then
   table.insert(str, " "..art.." watching TV.")
end
table.insert(str, ((isPlayer(cid) and youAre[getPlayerGroupId(cid)]) and "\nPosition: [X: "..pos.x.."][Y: "..pos.y.."][Z: "..pos.z.."]" or "")) 

return table.concat(str) 
end

function ehNPC(cid)   --alterado v1.9
return isCreature(cid) and not isPlayer(cid) and not isSummon(cid) and not isMonster(cid)
end

function ehMonstro(cid)   --alterado v1.9
return cid and cid >= AUTOID_MONSTERS and cid < AUTOID_NPCS
end

function isPosEqual(pos1, pos2)
      if pos1.x == pos2.x and pos1.y == pos2.y and pos1.z == pos2.z then
         return true
      end    
return false
end

function isPosInArray(array, pos)
if not next(array) then return false end
for i = 1, #array do
    if isPosEqual(pos, array[i]) then
       return true
    end
end
return false
end

function canWalkOnPos(pos, creature, pz, water, sqm, proj)
if not pos then return false end
if not pos.x then return false end
if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid <= 1 and sqm then return false end
if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 919 then return false end
if isInArray({4820, 4821, 4822, 4823, 4824, 4825}, getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid) and water then return false end
if getTopCreature(pos).uid > 0 and creature then return false end
if hasSqm(pos) and getTileInfo(pos).protection and pz  then return false end
    local n = not proj and 3 or 2                                    --alterado v1.6
    for i = 0, 255 do
        pos.stackpos = i                           
        local tile = getTileThingByPos(pos)        
        if tile.itemid ~= 0 and i ~= 253 and not isCreature(tile.uid) then     --edited
            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                return false
            end
        end
    end   
return true
end

function isWalkable(pos, creature, proj, pz, water)-- by Nord
    if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end
    if isWaterTile(getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid) and water then return false end
    if getTopCreature(pos).uid > 0 and creature then return false end
    if getTileInfo(pos).protection and pz then return false, true end
    local n = not proj and 3 or 2
    for i = 0, 255 do
        pos.stackpos = i
        local tile = getTileThingByPos(pos)
        if tile.itemid ~= 0 and not isCreature(tile.uid) then
            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                return false
            end
        end
    end
    return true
end


conds = {
["Slow"] = 3890,
["Confusion"] = 3891,  
["Burn"] = 3892,
["Poison"] = 3893,
["Fear"] = 3894,
["Stun"] = 3895,
["Paralyze"] = 3896,                              
["Leech"] = 3897,
["Buff1"] = 3898,
["Buff2"] = 3899,
["Buff3"] = 3900,
["Miss"] = 32659,   
["Silence"] = 32698,     
["Sleep"] = 98271,
}
function isSilence(cid)
    if not isCreature(cid) then return false end
    if getPlayerStorageValue(cid, conds["Silence"]) >= 0 then return true end
return false
end

function isParalyze(cid)      
    if not isCreature(cid) then return false end
    if getPlayerStorageValue(cid, conds["Paralyze"]) >= 0 then return true end
return false
end
    
function isSleeping(cid)
    if not isCreature(cid) then return false end
    if getPlayerStorageValue(cid, conds["Sleep"]) >= 0 then return true end
return false
end

function doRegainSpeed(cid)              --alterado v1.9 \/
if not isCreature(cid) then return true end

   local speed = playerSpeed
   if isMonster(cid) then
      speed = getCreatureBaseSpeed(cid)
   elseif isPlayer(cid) and isInArray({4, 5, 6, 15}, getPlayerGroupId(cid)) then
      speed = 200 * getPlayerGroupId(cid) 
   end
   
   doChangeSpeed(cid, -getCreatureSpeed(cid))
   if getCreatureCondition(cid, CONDITION_PARALYZE) == true then
      doRemoveCondition(cid, CONDITION_PARALYZE)
      addEvent(doAddCondition, 10, cid, paralizeArea2)             
   end
   
   if isADM(cid) then
      speed = 15000
   end
    
doChangeSpeed(cid, speed)
return speed
end


function doPlayerAddExp_2(cid, exp)
if not isCreature(cid) then return true end
   doPlayerAddExp(cid, exp)
   doSendAnimatedText(getThingPos(cid), exp, 215)
end

function doWalkAgain(cid)
   if not isCreature(cid) then return true end
   if getCreatureTarget(cid) >= 1 then
      setMoveSummon(master, true)
      return true
   end
   local master = getCreatureMaster(cid)
   local pox, poy = getPlayerStorageValue(cid, 505), getPlayerStorageValue(cid, 506)
   
   if pox == -1 and poy == -1 then 
       addEvent(doWalkAgain, 200, cid)
       return true
   end
   
       if getThingPos(master).x ~= pox or getThingPos(master).y ~= poy then
         setMoveSummon(master, true)
       end
   addEvent(doWalkAgain, 200, cid)
end

function doMovePokeToPos(cid, pos)
if not isCreature(cid) then return true end
   doMoveCreatureToPos(cid, pos)
end

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

function isGhost(cid)
      
end

function isGhostPokemon(cid)
    if not isCreature(cid) then return false end
    local ghosts = {"Gastly", "Haunter", "Gengar", "Shiny Gengar", "Misdreavus", "Shiny Abra"}
return isInArray(ghosts, getCreatureName(cid))
end

function updateGhostWalk(cid)
    if not isCreature(cid) then return false end
    local pos = getThingPos(cid)
    pos.x = pos.x + 1
    pos.y = pos.y + 1
    local ret = getThingPos(cid)
    doTeleportThing(cid, pos, false)
    doTeleportThing(cid, ret, false)
return true
end

--- funcs
function getTopCorpse(position)
local pos = position
for n = 1, 255 do
    pos.stackpos = n
    local item = getTileThingByPos(pos)
    if (string.find(getItemNameById(item.itemid), "fainted") or string.find(getItemNameById(item.itemid), "defeated ")) then
       return getTileThingByPos(pos)
    end
end
return null
end


function doCorrectPokemonName(poke)
return doCorrectString(poke)
end

function doCorrectString(str)
local name = str:explode(" ")  --alterado v1.9
local final = {}
for _, s in ipairs(name) do
    table.insert(final, s:sub(1, 1):upper()..s:sub(2, #s):lower())
end
return table.concat(final, (name[2] and " " or ""))
end  

---------------------------------------- Order (Não mexer) ----------------------------------------
function getPokemonName(cid)
   return getCreatureName(cid)
end

function isRiderOrFlyOrSurf(cid)
   if getPlayerStorageValue(cid, orderTalks["surf"].storage) == 1 or getPlayerStorageValue(cid, orderTalks["ride"].storage) == 1 or getPlayerStorageValue(cid, orderTalks["fly"].storage) == 1 then
      return true 
   end
   return false
end

function doEreasPlayerOrder(cid)
   setPlayerStorageValue(cid, orderTalks["surf"].storage, -1)
   setPlayerStorageValue(cid, orderTalks["ride"].storage, -1)
   setPlayerStorageValue(cid, orderTalks["fly"].storage, -1)
end

function isRider(cid)
   if getPlayerStorageValue(cid, orderTalks["ride"].storage) == 1 then
      return true 
   end
   return false
end

function isFly(cid)
   if getPlayerStorageValue(cid, orderTalks["fly"].storage) == 1 then
      return true 
   end
   return false
end

function isSurf(cid)
   if getPlayerStorageValue(cid, orderTalks["surf"].storage) == 1 then
      return true 
   end
   return false
end

function isUsingOrder(cid)
   if getPlayerStorageValue(cid, orderTalks["headbutt"].storage) == 1 or getPlayerStorageValue(cid, orderTalks["dig"].storage) == 1 or getPlayerStorageValue(cid, orderTalks["cut"].storage) == 1 or getPlayerStorageValue(cid, orderTalks["rock"].storage) == 1 then
      return true 
   end
   return false
end

function doEreaseUsingOrder(cid)
   setPlayerStorageValue(cid, orderTalks["dig"].storage, -1)
   setPlayerStorageValue(cid, orderTalks["cut"].storage, -1)
   setPlayerStorageValue(cid, orderTalks["rock"].storage, -1)
   setPlayerStorageValue(cid, orderTalks["headbutt"].storage, -1)
end

function doSendMsg(cid, msg)
    if not isPlayer(cid) then return true end
    doPlayerSendTextMessage(cid, 27, msg)
end

function doCopyPokemon(cid, copy, eff)
    local item = getPlayerSlotItem(getCreatureMaster(cid), ?
    local sid = getCreatureMaster(cid)
    local pos, dir = getThingPos(cid), getPlayerLookDir(cid)
            local blockToDitto = {"Ancient Meganium","Ancient Nidoking","Ancient Nidoqueen","Aviator Pidgeot","Banshee Misdreavus","Bone Marowak","Boxer Hitmonchan","Brave Blastoise","Brave Charizard","Brave Nidoking","Brave Nidoqueen","Brave Noctowl","Brave Pidgeot","Brave Venusaur","Brute Rhydon","Brute Ursaring","Capoeira Hitmontop","Charged Raichu","Dark Crobat","Dragon Machamp","Elder Arcanine","Elder Blastoise","Elder Charizard","Elder Dragonite","Elder Electabuzz","Elder Gengar","Elder Jynx","Elder Marowak","Elder Muk","Elder Pidgeot","Elder Pinsir","Elder Raichu","Elder Tangela","Elder Tentacruel","Elder Tyranitar","Elder Venusaur","Enigmatic Girafarig","Enraged Typhlosion","Evil Cloyster","Freezing Dewgong","Furious Ampharos","Furious Mantine","Furious Noctowl","Furious Sandslash","Furious Scyther","Hard Golem","Heavy Piloswine","Hungry Snorlax","Iron Steelix","Lava Magmar","Magnet Electabuzz","Master Alakazam","Master Jynx","Metal Scizor","Metal Skarmory","Milch-Miltank","Moon Clefable","Octopus Octillery","Psy Jynx","Roll Donphan","Singer Wigglytuff","Taekwondo Hitmonlee","Tribal Feraligatr","Tribal Scyther","Tribal Xatu","Trickmaster Gengar","Undefeated Machamp","War Farfetch'd","War Granbull","War Gyarados","War Heracross","Wardog Arcanine","Ancient Alakazam","Ancient Dragonite", "Ancient Kingdra", "Shiny Snorlax", "Unown", "Shiny Abra", "Castform", "Smeargle", "Articuno", "Moltres", "Zapdos", "suicune", "Raikou", "Entei", "Minun And Plusle", "Metagross", "Magmortar", "Milotic", "Tangrowth", "Rhyperior", "Dusknoir", "Slaking", "Salamence", "Electivire", "Kecleon", "Rotom", "Froslass"}    
                
                if isInArray(blockToDitto, copy) then
                   doSendMsg(sid, "Impossivel copiar este pokemon.")
                   return true
                end
                
                if isInDuel(sid) then
                   doSendMsg(sid, "Você não pode transformar seu ditto estando duelo.")
                   return true
                end
    
                local nick = retireShinyName(getItemAttribute(item.uid, "poke"))
                      if getItemAttribute(item.uid, "poke") == "Ditto" and isShinyName(copy) then
                         doSendMsg(sid, "So um Shiny Ditto pode se transformar em pokemons do tipo Shiny.")
                         return true 
                      end
                
                      if getItemAttribute(item.uid, "nick") then 
                         nick = getItemAttribute(item.uid, "nick") 
                      end
                      
                      if getItemAttribute(item.uid, "copyName") == copy then
                         doSendMsg(sid, "Seu ditto já é uma copia do " .. copy)
                         return true
                      end
                      
                      
                      
                      if not pokes[copy] then
                      if copy == "Ancient Electabuzz" then
                      copy = "Shiny Electabuzz"
                      else
                         doSendMsg(cid, "Isso não é um pokemon.")
                         print(">>>>>DittoBUG: " .. copy)
                         return true
                                                  end
                      end
                      
                doPlayerSay(sid, nick..", copia a "..retireShinyName(copy)..".")
                local levelin = getItemAttribute(getPlayerSlotItem(sid, 8).uid, "level")
                local boostin = getItemAttribute(getPlayerSlotItem(sid, 8).uid, "boost") or 0
                local heath_toDrawPercent = getCreatureMaxHealth(cid) - getCreatureHealth(cid)
                doRemoveCreature(cid)
                local poke = doCreateMonsterNick(sid, copy, nick.." [L"..levelin.."] [B+"..boostin.."]", pos, true)
                      doTeleportThing(poke, pos)
             
            setPlayerStorageValue(poke, 510, copy)
            doCreatureSetLookDir(poke, dir)
            doItemSetAttribute(item.uid, "copyName", copy)
            doSendPlayerExtendedOpcode(sid, opcodes.OPCODE_BATTLE_POKEMON, tostring(poke))
            doUpdateMoves(sid)
             getPokeDistanceToTeleport(poke)
             adjustStatus(poke, item.uid, true, heath_toDrawPercent, true)
             setPokemonGhost(poke)
             if eff then
               doSendMagicEffect(pos, 184) 
             end
             
            -- doOTCSendPokemonHealth(sid)
end

function round(num, idp)
  return tonumber(string.format("%." .. (idp or 0) .. "f", num))
end

function doGoPokemonInOrder(cid, item, goMsg)
    if getPlayerSlotItem(cid, 8).uid ~= item.uid then
       return true
    end
    
    item = getPlayerSlotItem(cid, ?
    if item.uid == 0 then return true end
    
             local name = getItemAttribute(item.uid, "poke")
             local nick = name 
                  if isInArray({"Ditto", "shiny ditto"}, name:lower()) then
                     name = getItemAttribute(item.uid, "copyName")
                  end
            
             local effe = pokeballs[getPokeballType(item.itemid)].effect
       
         
            if getItemAttribute(item.uid, "nick") then
                 nick = getItemAttribute(item.uid, "nick")
            end
            
            local boostin = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "boost") or 0
            local levelin = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "level")
            
            pokeSourceCode = doCreateMonsterNick(cid, name, retireShinyName(nick).." [L"..levelin.."][B:"..boostin.."]", getThingPos(cid), true)
            if not pokeSourceCode then
               doSendMsg(cid, "Erro. Comunique esse codigo ao GM. [31121994]")
               return true
            end
            
             local poke = getCreatureSummons(cid)[1] 
             doTeleportThing(poke, farWayPos)
             doTeleportThing(poke, getThingPos(cid))
             
             
             doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_BATTLE_POKEMON, tostring(poke))
             setPlayerStorageValue(poke, 510, name)
             doCreatureSetLookDir(poke, getPlayerLookDir(cid))
             getPokeDistanceToTeleport(poke)
             setMoveSummon(cid, true)
             doUpdateMoves(cid)
             doUpdateCooldowns(cid)

             doItemEraseAttribute(item.uid, "healthChanged")
             adjustStatus(poke, item.uid, true, true, true)
             setPokemonGhost(poke)
             if getCreatureSkullType(cid) == 5 then
                doCreatureSetSkullType(cid, 0)
             end
             --setCreatureMaxHealth(poke, getBallMaxHealth(cid, item))
             --doCreatureAddHealth(poke, -(getCreatureHealth(poke)-1))
             --doCreatureAddHealth(poke, (getBallHealth(cid, item)-1))
             --doItemSetAttribute(item.uid, "healthChanged", getCreatureName(cid))
             --doOTCSendPokemonHealth(cid)
end

function doUp(cid, summon, move)
                     local pokeName = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")
                     local ditto = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "copyName")
                          if ditto and ditto ~= "" then
                             pokeName = ditto
                          end
                     local outfit = getPokemonOutfitToSkill(pokeName)
                     local speed = getPokemonSpeedToSkill(pokeName)
                     addEvent(doRemoveCreature, 10, summon)
                     doSetCreatureOutfit(cid, {lookType = outfit + 351}, -1)
                     
                     doChangeSpeed(cid, -getCreatureSpeed(cid))
                     doChangeSpeed(cid, speed)

                     if #getCreatureSummons(cid) > 1 and getPlayerStorageValue(cid, 212124) <= 0 then     --alterado v1.6
                       if getPlayerStorageValue(cid, 637501) == -2 or getPlayerStorageValue(cid, 637501) >= 1 then  
                          BackTeam(cid)       
                       end
                     end
                    
                    if move == "ride" then 
                     setPlayerStorageValue(cid, orderTalks["ride"].storage, 1)
                    elseif move == "fly" then
                     setPlayerStorageValue(cid, orderTalks["fly"].storage, 1)
                    end
                    setPokemonGhost(cid)
                    
                    doPlayerSendCancel(cid, '12//,hide') --alterado v1.7
    
end


function getCylinderTiles(pos, cilinderSize) -- By SmiX
local position = pos
local c = cilinderSize
local pos = {}
for i=-c, c do
        for j=-c, c do
                local posEffect = {x=position.x+i,y=position.y+j,z=position.z}
                  table.insert(pos, posEffect)
        end
end
   return pos
end

function recheck(sid, skill, pos)
    if not isCreature(sid) or not isCreature(getCreatureMaster(sid)) then return end
    if not isUsingOrder(sid) then return true end
    local cid = getCreatureMaster(sid)

    if skill == "cut" then

        local item = getTileItemById(pos, 2767)
        if not item or item.uid <= 0 then return true end
        
        doCreatureSay(sid, "CUT!", TALKTYPE_MONSTER)
        doSendMagicEffect(getThingPos(item.uid), EFFECT_CUT)
        doTransformItem(item.uid, 6216)
        local function growRock()
            doTransformItem(getTileItemById(pos, 6216).uid, 2767)
            end
        addEvent(growRock, tempoPraVoltarAoNormal * 1000)
  
    elseif skill == "rock" then

        local item = getTileItemById(pos, 1285)
        if not item or item.uid <= 0 then return true end
        
        doCreatureSay(sid, "ROCK SMASH!", TALKTYPE_MONSTER)
        doSendMagicEffect(getThingPos(item.uid), EFFECT_DIG)
        doTransformItem(item.uid, 3610)
            local function growRock()
            doTransformItem(getTileItemById(pos, 3610).uid, 1285)
            end
        addEvent(growRock, tempoPraVoltarAoNormal * 1000)
        
 elseif skill == "headbutt" then  --alterado v1.6

    local item = getTileItemById(pos, 2707)    --id do item   arvore normal
        if not item or item.uid <= 0 then return true end
            
    local master = getCreatureMaster(sid)
    local array = {}                           
    local lvl = {25, 40, 60, 80, 150, 1000} --lvls

    for i = 1, #lvl do
        if getPlayerLevel(master) <= lvl[i] then
           array = headbutt[lvl[i]]
           break
        end
    end 
    local rand = array[math.random(#array)]
    for j = 1, rand[2] do        
        local poke = doCreateMonster(rand[1] , getClosestFreeTile(sid, pos))
        --doCreatureSay(sid, rand[1], TALKTYPE_MONSTER)
    end
    doCreatureSay(sid, "HEADBUTT!", TALKTYPE_MONSTER)
    doSendMagicEffect(getThingPos(item.uid), EFFECT_DIG)
    doTransformItem(item.uid, 2702)  --id do item   arvore quebrada
    local function growHead()
          doTransformItem(getTileItemById(pos, 2702).uid, 2707) --id do item  arvore quebrada, arvore normal
    end
    addEvent(growHead, choose(5, 8, 10, 15) * 60 * 1000)   --o tempo pra arvore voltar ao normal varia de 5~30min
end 
   doEreaseUsingOrder(sid)   
end

function choose(...) -- by mock
    local arg = {...}
    return arg[math.random(1,#arg)]
end


function getFreeTile(pos)
   if canWalkOnPos(pos, true, false, false, false, false) then
      return pos
   end
   local tmp
   for dir = 0, 7 do
      tmp = getPosByDir(pos, dir)
      if canWalkOnPos(tmp, true, false, false, false, false) then
         return tmp
      end 
   end
   return farWayPos
end

------------------------ marcar a pos do spawn do poke e retornar ela
function doMarkedSpawnPos(cid)
local pos = getThingPos(cid)
    setPlayerStorageValue(cid, storages.markedPosPoke, "x = "..pos.x..", y = "..pos.y..", z = "..pos.z..";")
end

function doMarkedPos(cid, pos)
    setPlayerStorageValue(cid, storages.markedPosPoke, "x = "..pos.x..", y = "..pos.y..", z = "..pos.z..";")
end

function isInPartyAndSharedExperience(cid)
    if isInParty(cid) and isPartyEnabledExp(cid) then
       return true
    end
    return false
end

function getMarkedSpawnPos(cid)
 local l = {}
 local pos = getPlayerStorageValue(cid, storages.markedPosPoke)
 local strPos = "x = (.-), y = (.-), z = (.-);"
   for a, b, c in pos:gmatch(strPos) do
      l = {x = tonumber(a), y = tonumber(b), z = tonumber(c)}
   end
   return l
end

function doComparePositions(position, positionEx)
return position.x == positionEx.x and position.y == positionEx.y and position.z == positionEx.z
end
------------------------ marcar a pos do spawn do poke e retornar ela

function doPlayerAddPoke(cid, pokeName, ball, unique)
    local ballid = pokeballs[ball]
    local send = false

    if not ballid then
        return print("doPlayerAddPoke: Não foi encontrada a pokebola: "..ball)
    end

    if isUseIconSystem(cid) then
        id = pokeballs[string.lower(pokeName)].on
    else
        id = ballid.on
    end

    if (getPlayerFreeCap(cid) <= 1 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
        item = doCreateItemEx(id)
        send = true
    else
        item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, id, 1)
    end

    doItemSetAttribute(item, "health", getPokemonHealth(pokeName))
    doItemSetAttribute(item, "maxHealth", getPokemonHealth(pokeName))
    doItemSetAttribute(item, "pokeName", doCorrectString(pokeName))
    doItemSetAttribute(item, "ballEffe", ball)

    if send then
        doPlayerSendMailByName(getCreatureName(cid), item, 1)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você já está segurando seis pokebolas, o seu novo pokemon foi enviado para o CP.")
    end
end

function hasSpaceInContainer(container)                --alterado v1.6
if not isContainer(container) then return false end
if getContainerSize(container) < getContainerCap(container) then return true end

for slot = 0, (getContainerSize(container)-1) do
    local item = getContainerItem(container, slot)
    if isContainer(item.uid) then
       if hasSpaceInContainer(item.uid) then
          return true
       end
    end
end
return false
end

function doSendEffect(cid, effe)
if not isCreature(cid) then return true end
   doSendMagicEffect(getThingPos(cid), effe)  
end

function doSendEffectAndText(cid, effe, text, color)
if not isCreature(cid) then return true end
if not color then color = 215 end
   doSendEffect(cid, effe)
   if text and text ~= "" then
      doSendAnimatedText(getThingPos(cid), text, color) 
   end
end

function setCreatureVisibility(cid, vis)
    if not isCreature(cid) then return true end
    if vis then
        doAddCondition(cid, invisiblecondition)
    else
        doRemoveCondition(cid, CONDITION_INVISIBLE)
    end
end

function setCreatureHick(cid, secs, i)
if not isCreature(cid) then return true end
    i = i +1
    local pos2 = getThingPos(cid)
          pos2.x = pos2.x + math.random(1, 4)
          pos2.y = pos2.y + math.random(1, 4)
    if(i < secs) then
      local pos = getPosByDir(pos2, math.random(0, 7))
      local master = getCreatureMaster(cid)
        if(isPlayer(master)) then
           setMoveSummon(master, false)
        end
      doAddCondition(cid, bebo)
      doMovePokeToPos(cid, pos)
      pos = getThingPos(cid)
      pos.y = pos.y -1
      doSendMagicEffect(pos, 31)
      addEvent(setCreatureHick, 1000, cid, secs, i)
    else
       doRemoveCondition(cid, CONDITION_DRUNK)
    end
end

function doRemoveConditionWithSecurity(cid, cond)
if not isCreature(cid) then return true end
         doRemoveCondition(cid, cond)
end

function doCanAttackOther(cid, target)

setPlayerStorageValue(cid, storages.teamRed, 1)
setPlayerStorageValue(target, storages.teamBlue, 1)

end

function isInDuel(cid)
if not isCreature(cid) then return false end
   if getPlayerStorageValue(cid, storages.isInDuel) == 1 then
      return true 
    end
   return false
end

-------------- pokedex
function getPokemonVitalityD(name)
    if not pokes[name] then return false end
    return pokes[name].vitality
end

function getPokemonAttackD(name)
    if not pokes[name] then return false end
    return pokes[name].offense
end

function getPokemonDefenseD(name)
    if not pokes[name] then return false end
    return pokes[name].defense
end

function getPokemonSpAttackD(name)
    if not pokes[name] then return false end
    return pokes[name].specialattack
end

function getPokemonLevelD(name)
    if not pokes[name] then return false end
    if pokes[name].level <= 1 then
        return 5
    end
    return pokes[name].level
end

function getPokemonPortraitD(name)
    if not pokes[name] then return false end
    return pokes[name].portrait
end

function getPokemonType1D(name)
    if not pokes[name] then return "normal" end
    return pokes[name].type
end

function getPokemonType2D(name)
    if not pokes[name] or not pokes[name].type2 then return false end
    return pokes[name].type2
end

function getPokemonHealthD(name)                
    if not pokes[name] then return false end
    return getMonsterInfo(name).healthMax
end

function getPokemonExperienceD(name)
    if not pokes[name] then return false end
    return getMonsterInfo(name).experience
end

function getPokemonCatchedStorage(name)
    if not pokes[name] then return false end
    return getMonsterInfo(name).lookCorpse
end

function getPokemonCorpse(name)
    if not pokes[name] then return false end
    return getMonsterInfo(name).lookCorpse
end

 

 

Por favor, poderiam me ajudar?

 

[M i s s 9]

Entao, ja procurei por isso aqui no Xtibia e nao consegui, porem consegui um script que derruba um pokemon da arvore de tempos em tempos (configuravel), so que é o player clica na arvore e o pokemon cai, espero que seja util ate vc conseguir arrumar o seu script.

 

Citar

local tempo = 30 -- tempo em segundos

local monsters = {
    [60] = {"Ariados"},
    [50] = {"Scizor"},
    [40] = {"Venomoth"},
    [30] = {"Crobat"},
    [10] = {"Forretess"}
}

function onUse(cid, item, fromPosition, itemEx, toPosition)
if getPlayerStorageValue(cid, 23491) >= os.time() then
    doPlayerSendCancel(cid, "You must wait " .. tempo .. " to use again.")
    doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
    return true
end
local e = {2,3,4,5,6,9}
local t = {}
for _, v in pairs(monsters) do 
table.insert(t, _)
end
table.sort(t)
for _, v in pairs(t) do
if math.random(1, 100) < v then
c = v
break
end
end
local m = monsters[c][math.random(1,#monsters[c])]
local monster = doCreateMonster(m, getPlayerPosition(cid))
doSendMagicEffect(getCreaturePosition(monster), CONST_ME_TELEPORT)
doSendMagicEffect(toPosition, e[math.random(1,#e)])
doCreatureSay(monster, m.." was hidden on top of the tree! HAHAHA!", TALKTYPE_ORANGE_1)
setPlayerStorageValue(cid, 23491, tempo + os.time())
return true
end

 

Editado Novembro 6, 2018 por R e d

[klbkevinklb 6]

Em 06/11/2018 em 19:09, R e d disse:

Entao, ja procurei por isso aqui no Xtibia e nao consegui, porem consegui um script que derruba um pokemon da arvore de tempos em tempos (configuravel), so que é o player clica na arvore e o pokemon cai, espero que seja util ate vc conseguir arrumar o seu script.

 

 

obrigado, vai ser muito util...

 

poderia me dar uma força?

 

[M i s s 9]

6 horas atrás, klbkevinklb disse:

obrigado, vai ser muito util...

 

poderia me dar uma força?

 

Da +REP e marca como melhor resposta ❤️  

Vou la ver o topico