Ir para conteúdo
  • Cadastre-se

Posts Recomendados

Meu icon system do poketibia não funciona!! Alguem ajuda pf. Uso o servidor poke-xrain como base. Os arquivos tao ae:

 

data/actions/actions.xml

 

 <action itemid="2589" event="script" value="iconeLocker.lua"/>
<action itemid="11989-12139;11139;11142;11145;11148;11151;11154-11156;11158;11162;11170;11177-11179;11181;11182;11183-11185;11194;11195;11199;11201;11208;11209;11212;11219;11224;11225;11230;627;11233-11237;11240-11242;677;11243;11250;11252;11253;11259-11261;11263;11265;11266;11268;11270-11272;11279;11283-11285;12110;11288-11387;11199"event="script" value="iconSystem.lua"/>

data/actions/actions/IconSystem.lua

  Mostrar conteúdo oculto
function onUse(cid, item, frompos, item2, topos)
local x = icons[getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")]
if isInArray(x.use, getPlayerSlotItem(cid, 8).itemid) then
doPlayerSendCancel(cid, "Sorry, you no change your icones in ball. While during a summon.")
return true
end
if getPlayerStorageValue(cid, 8955) <= 0 then 
doPlayerSendTextMessage(cid, 27, "For yours pokeballs are would in mode icone, you need a logout.")
setPlayerStorageValue(cid, 8955, 1)
else
setPlayerStorageValue(cid, 8955, 0)
doPlayerSendTextMessage(cid, 27, "For yours pokeballs are would mode balls, you need a logout.")
end
end
 

 
data/actions/actions/Iconelocker.lua
 

  Mostrar conteúdo oculto

function onUse(cid, item, frompos, item2, topos)
if getPlayerStorageValue(cid, 8955) >= 1 then
   local locker = getTileItemById(frompos, item.itemid).uid
     if locker <= 0 or not isContainer(locker) then return true end
     local balls = getPokeballsInContainer(locker)
       if  #balls >= 1 then
          for _, ball in pairs (balls) do
            local x = icons[getItemAttribute(ball, "nome")]
              if getItemAttribute(ball, "morta") == "no" then
                  doTransformItem(ball, x.on)
              elseif getItemAttribute(ball, "morta") == "yes"then
                  doTransformItem(ball, x.off)
              end
          end
       end 
     end
end

 
data/lib/iconsys
 

  Mostrar conteúdo oculto

function doPlayerChangeModeIcon(cid)
if getPlayerStorageValue(cid, 8955) >= 1 then
local x = icons[getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")]
local y = icons[getItemAttribute(getPlayerSlotItem(cid, 3).uid, "poke")]
if x and getPlayerSlotItem(cid, 8).itemid == 11826 then     -- Pokeball
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.on)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "pokeball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11828 then     -- Pokeball Morta
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.off)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "pokeball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11827 then     -- Pokeball Usada
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.use)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "pokeball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11829 then     -- Ultraball
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.on)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "ultraball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11831 then     -- Ultraball Morta
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.off)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "ultraball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11830 then     -- Ultraball Usada
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.use)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "ultraball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 14480 then     -- Masterball
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.on)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "ultraball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 14476 then     -- Masterball Morta
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.off)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "ultraball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 14481 then     -- Masterball Usada
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.use)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "ultraball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11835 then     -- Superball
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.on)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "superball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11837 then     -- Superball Morta
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.off)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "superball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11836 then     -- Superball Usada
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.use)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "superball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11832 then     -- Greatball
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.on)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "greatball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11834 then     -- Greatball Morta
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.off)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "greatball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11833 then     -- Greatball Usada
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.use)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "greatball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 14446 then     -- Saffariball
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.on)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "saffariball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 14448 then     -- Saffariball Morta
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.off)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "saffariball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 14447 then     -- Saffariball Usada
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.use)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "saffariball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11740 then     -- Shiny Greatball
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.on)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "sgreatball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11742 then     -- Shiny Greatball Morta
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.off)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "sgreatball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11741 then     -- Shiny Greatball Usada
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.use)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "sgreatball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
 
 elseif x and getPlayerSlotItem(cid, 8).itemid == 11743 then     -- Shiny Super
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.on)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "ssuperball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11745 then     -- Shiny Super Morta
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.off)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "ssuperball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11744 then     -- Shiny Superball Usada
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.use)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "ssuperball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11746 then     -- Shiny Ultra
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.on)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "sultraball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11748 then     -- Shiny Ultra Morta
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.off)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "sultraball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11747 then     -- Shiny Ultraball Usada
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.use)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "sultraball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11737 then     -- Shiny Poke
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.on)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "spokeball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11739 then     -- Shiny Poke Morta
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.off)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "spokeball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
 
elseif x and getPlayerSlotItem(cid, 8).itemid == 11738 then     -- Shiny Pokeball Usada
 doTransformItem(getPlayerSlotItem(cid, 8).uid, x.use)
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "ball", "spokeball")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "morta", "no")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "yes")
 doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "shiny", "yes")
end
 
local bp = getPlayerSlotItem(cid, CONST_SLOT_BACKPACK)
local balls = getItemsInContainerById(bp.uid, 11826)  ------ Pokeball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.on)
                doItemSetAttribute(ball, "ball", "pokeball")
                doItemSetAttribute(ball, "morta", "no")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
local balls = getItemsInContainerById(bp.uid, 11828) --- Pokeball morta
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.off)
                 doItemSetAttribute(ball, "ball", "pokeball")
                 doItemSetAttribute(ball, "morta", "yes")
                 doItemSetAttribute(ball, "icone", "yes")
          end 
end
--------------------------------
local balls = getItemsInContainerById(bp.uid, 11829)  ------ Ultraball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.on)
                doItemSetAttribute(ball, "ball", "ultraball")
                doItemSetAttribute(ball, "morta", "no")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
local balls = getItemsInContainerById(bp.uid, 11831) --- Ultraball morta
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.off)
                 doItemSetAttribute(ball, "ball", "ultraball")
                 doItemSetAttribute(ball, "morta", "yes")
                 doItemSetAttribute(ball, "icone", "yes")
          end 
end
------------------------------
local balls = getItemsInContainerById(bp.uid, 14480)  ------ Masterball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.on)
                doItemSetAttribute(ball, "ball", "superball")
                doItemSetAttribute(ball, "morta", "no")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
local balls = getItemsInContainerById(bp.uid, 14476) --- Masterball morta
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.off)
                 doItemSetAttribute(ball, "ball", "superball")
                 doItemSetAttribute(ball, "morta", "yes")
                 doItemSetAttribute(ball, "icone", "yes")
          end 
end
-----------------------------
local balls = getItemsInContainerById(bp.uid, 11835)  ------ Superball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.on)
                doItemSetAttribute(ball, "ball", "superball")
                doItemSetAttribute(ball, "morta", "no")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
local balls = getItemsInContainerById(bp.uid, 11837) --- Superball morta
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.off)
                 doItemSetAttribute(ball, "ball", "superball")
                 doItemSetAttribute(ball, "morta", "yes")
                 doItemSetAttribute(ball, "icone", "yes")
          end 
end
-----------------------------
local balls = getItemsInContainerById(bp.uid, 11834)  ------ Greatball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(balll, x.off)
                doItemSetAttribute(ball, "ball", "greatball")
                doItemSetAttribute(ball, "morta", "yes")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
local balls = getItemsInContainerById(bp.uid, 11832) --- Greatball morta
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.on)
                 doItemSetAttribute(ball, "ball", "greatball")
                 doItemSetAttribute(ball, "morta", "no")
                 doItemSetAttribute(ball, "icone", "yes")
          end 
end
-----------------------------
local balls = getItemsInContainerById(bp.uid, 14448)  ------ Saffariball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(balll, x.off)
                doItemSetAttribute(ball, "ball", "saffariball")
                doItemSetAttribute(ball, "morta", "yes")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
local balls = getItemsInContainerById(bp.uid, 14446) --- Saffariball morta
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.on)
                 doItemSetAttribute(ball, "ball", "saffariball")
                 doItemSetAttribute(ball, "morta", "no")
                 doItemSetAttribute(ball, "icone", "yes")
          end 
end
-----------------------------------
local balls = getItemsInContainerById(bp.uid, 11740)  ------ Shiny Great
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.on)
                doItemSetAttribute(ball, "ball", "sgreatball")
                doItemSetAttribute(ball, "morta", "no")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
 
local balls = getItemsInContainerById(bp.uid, 11742)  ------ Shiny Greatball morta
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.off)
                doItemSetAttribute(ball, "ball", "sgreatball")
                doItemSetAttribute(ball, "morta", "yes")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
 
local balls = getItemsInContainerById(bp.uid, 11746)  ------ Shiny Ultraball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.on)
                doItemSetAttribute(ball, "ball", "sultraball")
                doItemSetAttribute(ball, "morta", "no")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
 
local balls = getItemsInContainerById(bp.uid, 11748)  ------ Shiny Ultraball morta
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.off)
                doItemSetAttribute(ball, "ball", "sultraball")
                doItemSetAttribute(ball, "morta", "yes")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
 
---------------------------------------------------
local balls = getItemsInContainerById(bp.uid, 11737) -- Shiny Pokeball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.on)
                doItemSetAttribute(ball, "ball", "spokeball")
                doItemSetAttribute(ball, "morta", "no")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
local balls = getItemsInContainerById(bp.uid, 11739) -- Shiny Pokeball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                --doTransformItem(ball, x.off)
                doItemSetAttribute(ball, "ball", "spokeball")
                doItemSetAttribute(ball, "morta", "yes")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
---------------------------------------------------
local balls = getItemsInContainerById(bp.uid, 11740) -- Shiny Greatball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.on)
                doItemSetAttribute(ball, "ball", "sgreatball")
                doItemSetAttribute(ball, "morta", "no")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
local balls = getItemsInContainerById(bp.uid, 11742) -- Shiny Greatball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.off)
                doItemSetAttribute(ball, "ball", "sgreatball")
                doItemSetAttribute(ball, "morta", "yes")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
---------------------------------------------------
local balls = getItemsInContainerById(bp.uid, 11743) -- Shiny Superball
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.on)
                doItemSetAttribute(ball, "ball", "ssuperball")
                doItemSetAttribute(ball, "morta", "no")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
local balls = getItemsInContainerById(bp.uid, 11745) -- Shiny Super
if #balls >= 1 then 
          for _, ball in pairs (balls) do
          local x = icons[getItemAttribute(ball, "poke")]
                doTransformItem(ball, x.off)
                doItemSetAttribute(ball, "ball", "ssuperball")
                doItemSetAttribute(ball, "morta", "yes")
                doItemSetAttribute(ball, "icone", "yes")
          end 
end
else
local pokeball = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "ball")
local mortano = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "morta")
local y = icons[getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")]
if pokeball == "pokeball" and mortano == "no" then     -- Pokeball
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11826)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "pokeball" and mortano == "yes" then
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11828)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "ultraball" and mortano == "no" then     -- Pokeball
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11829)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "ultraball" and mortano == "yes" then
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11831)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "ultraball" and mortano == "no" then     -- Pokeball
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 14480)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "ultraball" and mortano == "yes" then
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 14476)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "superball" and mortano == "no" then     -- Pokeball
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11835)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "superball" and mortano == "yes" then
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11837)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "greatball" and mortano == "no" then     -- Pokeball
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11832)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "greatball" and mortano == "yes" then
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11834)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "saffariball" and mortano == "no" then     -- Pokeball
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 14446)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "saffariball" and mortano == "yes" then
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 14448)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "spokeball" and mortano == "no" then     -- Pokeball
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11737)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "spokeball" and mortano == "yes" then
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11739)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "sultraball" and mortano == "no" then     -- Pokeball
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11746)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "sultraball" and mortano == "yes" then
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11748)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "ssuperball" and mortano == "no" then     -- Shiny super
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11743)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "ssuperball" and mortano == "yes" then
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11745) --- Shiny superr
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "sgreatball" and mortano == "no" then     -- Shiny great
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11740)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
elseif pokeball == "sgreatball" and mortano == "yes" then
  doTransformItem(getPlayerSlotItem(cid, 8).uid, 11742)
  doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "icone", "no")
end
local bp = getPlayerSlotItem(cid, CONST_SLOT_BACKPACK)
x = { }
for a = 1, #x do
local balls = getItemsInContainerById(bp.uid, x[a])  
          for _, ball in pairs (balls) do
          local pokeball = getItemAttribute(ball, "ball")
          local mortano = getItemAttribute(ball, "morta")
              if getItemAttribute(ball, "ball") == "ultraball" and getItemAttribute(ball, "morta") == "no" then -- Ultra ball
                doTransformItem(ball, 11829)
                doItemSetAttribute(ball, "icone", "no")
              elseif getItemAttribute(ball, "ball") == "ultraball" and getItemAttribute(ball, "morta") == "yes" then  -- Ultra ball morta
                doTransformItem(ball, 11831)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "pokeball" and mortano == "no" then
                doTransformItem(ball, 11826)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "pokeball" and mortano == "yes" then
                doTransformItem(ball, 11828)
                doItemSetAttribute(ball, "icone", "no")
             elseif pokeball == "masterball" and mortano == "no" then
                doTransformItem(ball, 14480)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "masterball" and mortano == "yes" then
                doTransformItem(ball, 14476)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "superball" and mortano == "no" then
                doTransformItem(ball, 11835)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "superball" and mortano == "yes" then
                doTransformItem(ball, 11837)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "greatball" and mortano == "no" then
                doTransformItem(ball, 11832)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "greatball" and mortano == "yes" then
                doTransformItem(ball, 11834)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "saffariball" and mortano == "no" then
                doTransformItem(ball, 14446)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "saffariball" and mortano == "yes" then
                doTransformItem(ball, 14448)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "spokeball" and mortano == "no" then
                doTransformItem(ball, 11737)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "spokeball" and mortano == "yes" then
                doTransformItem(ball, 11739)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "sgreatball" and mortano == "no" then
                doTransformItem(ball, 11740)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "sgreatball" and mortano == "yes" then
                doTransformItem(ball, 11742)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "ssuperball" and mortano == "no" then
                doTransformItem(ball, 11743)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "ssuperball" and mortano == "yes" then
                doTransformItem(ball, 11745)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "sultraball" and mortano == "no" then
                doTransformItem(ball, 11746)
                doItemSetAttribute(ball, "icone", "no")
              elseif pokeball == "sultraball" and mortano == "yes" then
                doTransformItem(ball, 11748)
                doItemSetAttribute(ball, "icone", "no")
              end 
          end 
end
end
end 

 

Isso é tudo. Me ajudem por favor!!!

 
Editado por wevertonh (veja o histórico de edições)
Link para o post
Compartilhar em outros sites
  • Respostas 7
  • Created
  • Última resposta

Top Posters In This Topic

Popular Days

Top Posters In This Topic

O tópico foi movido para a área correta, preste mais atenção da próxima vez!

Leia as regras do fórum:

Hidden Content

    Give reaction to this post to see the hidden content.

Este tópico foi movido:

De: "OTServSuporte OTServSuporte de Scripts"

Para: "OTServSuporte OTServSuporte de Servidores Derivados"

Link para o post
Compartilhar em outros sites

Voce tem que adicionar o item icone no itens.xml, e tbm em moviments.

Ajudei? da um Rep+, não custa nada. ;D:P

 

Servidor de PokeTibia ja online.

Pagina: https://www.facebook.com/PokemonxStore?ref=bookmarks

Grupo: https://www.facebook.com/groups/257989224406246/

Site: http://pokexstore.wix.com/pokexstore

Link para o post
Compartilhar em outros sites

Participe da conversa

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

Visitante
Responder

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

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

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

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

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

  • Conteúdo Similar

    • Por dodoby
      - Pokemon Imperium -
      ✺ INFORMAÇÕES
      ✺EDIÇÕES
      ✺PRINT's
      ✺ERROS - BUGS
      ✺CRÉDITOS
      ✺DOWNLOAD's

      Projeto tinha somente minha (LORDBAXX) dedicação, e tenho certeza que servirá para boas bases de projetos futuros.
      Eu trabalhava nele sempre um pouco, tanto na criação de sistemas quanto em codes para as sources (Ainda não muito modificada), o servidor é instituído somente pela primeira geração e todos os shinys (Primeira Versão), um detalhe sobre os shinys é que são de respawn com cores diferentes, pode nascer tanto de uma cor quanto de outra! (EXCRUSIVO)
      Continuo Trabalhando no servidor, então qualquer atualização estarei postando, e quem puder ajudar em melhorias, toda ajuda é bem vinda! 
      Vou listar alguns sistemas novos!
      ¤ Egg System (Único) - 100%
      ¤ TM System
      (Não único porém diferenciado)
      ¤ Age System
      (Sistema de idade nos pokemons, quando seu pokemons alcançar certas idades, vc pode ganhar items e até egg's, "IDADE MÁXIMA 30", Pode ser modificado)
      ¤ Evolution System
      (Modificado, seu pokemon pode ser evoluído pelo level usando um item de evolução que mostrarei logo mais nos prints, ou utilizando stone sem precisar de level)
      ¤ Pokeball's animadas
      ¤ Rare Candy para level e para idade
      ¤ Boost system
      (Temporariamente retirado para testes, talvez volte na v2)
      Bom estes são alguns dos sistemas, agora irei mostrar os sistemas tradicionais de todo servidor!
      ¤ Catch System - 100%
      ¤ Nurse - 100%
      ¤ 6 Balls diferentes - Normal ball, Super ball, Great ball, Ultra ball, Master ball e fresh ball
      ¤ Order system - 100% (Move, rock smash, dig, cut, fly, ride, surf ambos funcionando perfeitamente)
      ¤ Evoluções - 100%
      ¤ Pokemons Passivos e Agressivos - 100% (Demorou mais consegui rs')
      ¤ Mapa incompleto - somento uns 5 ou 10 % do mapa feito por mim ( Estava focado nas script's )
      ¤ Gender system - 100%
      ¤ Pokemons balanceados de acordo com o level e com seus determinados loot's e moves
      Acho que é isso se esqueci algo posto logo mais!
      Print's




      Erros-Bug's



      Créditos
      Lordbaxx - Sistemas, Scripts, codes, mapa - SERVER
      NextBr - Pelo sistema de idade no qual trabalhei
      Qualquer outro envolvido será creditado!
      DOWNLOAD's



      LEMBRANDO QUE AS SPRITES DOS POKEMONS SÃO DAS MAIS ANTIGAS ENTÃO SEM RECLAMAÇÕES POIS É UMA COISA SIMPLES DE SE FAZER!
      OBRIGADO VLW FLW
      att: LORDBAXX
    • Por Gabrieltxu
      Prometi a mim mesmo não ajudar mais a comunidade, porem com os acontecimentos em cima dessa base me deixou com raiva e vim compartilhar a mesma com vocês, o servidor foi feito em cima da base vasada do Psoul, onde Walox e outro que não sei o nick trabalharam, porem como já de costume Walox melhorou a interface assim como a Mytology e a ZRing, e para não perder o costume anunciou a venda do mesmo, onde algumas pessoas chegaram a pagar bem caro pela base, quase 2 mil reais. 
      Até ai tudo bem, porem não contente começou a vender ainda mais copias do servidor, e quem comprava também vendia a copia do servidor, algo que acho totalmente errado.
      Enfim para acabar com essa palhaçada hoje estou postando a base.
       
      Ressalvo que NÃO IREI DAR SUPORTE A ESSA BASE, BASE CONTEM MUITOS BUGS, OQUE TEM DE MELHOR É A INTERFACE MESMO 
       
      Algumas Imagens do servidor:
       
      Scans
       
      Link para Download (Contem tudo, Client, server etc..): https://mega.nz/file/6dIwRaxT#y2nRFVckLLTLFSBRRtEUJVb-KBAwVPfMhqxyTEEv4Cs
      Mediafire: https://www.mediafire.com/file/d89t3ol1beq8129/poke+jornadas+completo+++src.rar/file
      Senha do Winrar: naoetrote1234567890@
       
      Créditos:  - Criadores da base Psoul
                       - Walox (Wave) e equipe
       
       
      É isso, espero que essa pratica de venda de servidores desenfreados acabe, desejo boa sorte a todos com a base e façam bom proveito.      
       
       
    • Por omarwsk
      Hello there, im realeasing my server again, i abandoned this project some time ago and i dont want it to get old without be used. so i will give it to you with some other changes that i do. Sorry if i cant support you, dont speak much Portuguese. 
      I will add some notes PLEASE READ THEM 
       
      Custom level system *REMOVED* Custom Stat System*REMOVED* ZOOM System on client (Ctrl+1 & Ctrl+2) *NEW* Reworked UI on client *NEW* Custom Autoloot system 100% *NEW* Custom Pokemon change bar (Need to add images to client only first 250 pokes with picture) *NEW* Bike & MotorBike System *NEW* Smeargle System Kecleon System Mega Stone system Outland zone lvl +150 Nightmare Zone (open pvp zone, no revives) lvl +300 Held System (elemental added)  Tokens Machine !invite fixed on the source (need to activate on talkactions)

      PLEASE READ THIS NOTES


      New Prints
       
      Old Prints
      Mega stones looted by normal pokes with custom loot system (can check on the dex)
       
      New 3 quests untested and without pokes inside, only bosses  and rewards on chests


       
      Known Bugs
       
       
      Scans

      Download Links
      Use the database included with the page.
       
      Credits
      All mentioned on the original post of DXP Cipsoft Pxg TibiaKing forums for the releases Me (Omarwsk)  
       
      EDIT:
      sorry, i really abandoned this project, if you get this error 
       
      [Error - GlobalEvent Interface] data/globalevents/scripts/broadcast.lua:onThink Description: data/globalevents/scripts/broadcast.lua:19: attempt to index field '?' (a nil value) stack traceback: data/globalevents/scripts/broadcast.lua:19: in function <data/globalevents/scripts/broadcast.lua:17> [Error - GlobalEvents::think] Couldn't execute event: autoBroadcast FIX:
       
       
    • Por ZenohXX
      Olá, contextualizando, para quem não me conhece, por algum tempo trabalhei em um servidor de poketibia chamado Pokelight.
      Utilizamos a base, que compramos, do PokeWish parar criar nosso servidor Pokelight, mas com o tempo a staff acabou optando por tomar outros rumos, tanto profissionais quanto pessoais e acabou que não fazia mais sentido continuarmos com o projeto.
      Sabendo do potencial dessa base e da paixão que ainda tenho por poketibia, na esperança de que surja um servidor bacana com esta base, venho disponibilizar todos os arquivos do servidor.

      Vídeos do projeto
       
       
       
      Em breve farei alguns tutoriais e observações de como fazer o melhor uso possível dos arquivos e disponibilizarei mais recursos usados durante o projeto, além de dar suporte a solução de problemas aqui neste tópico.

      Utilize Ubuntu 20.04 para executar o servidor.


      Servidor:
       
      Link para download (Servidor Wish, cliente Wish, ferramentas e sources): https://drive.google.com/file/d/14Kl7Bw86Y9Cm1GPy-BUuDJSYqHBUCdGV
      Link para download (RME): https://drive.google.com/file/d/1bwAcuhkRxF2RZ_rcpvSOvxExrWE9oMDC
      Link para download (Cliente Pokelight): https://drive.google.com/file/d/1PFUp7grPXcV2enUp3Og7BO9LFnSjs5Il
      Link para download (Servidor Pokelight última versão): https://drive.google.com/file/d/1057SbzLui7uOXcxJMoc5yaa3_9F8O-os/
      Scan: Arquivos passam de 700MB, não é possível fazer o scan.
    • Por Under
      Após anos sem contribuir com um servidor fico feliz em lançar essa versão com muitas correções!

      Está versão é a versão OPEN_BETA.

      Que pode ser testada aqui. (Online até dia 25/05/2023)

      Foram corrigos muitos bugs e existem diversas melhorias em muitos dos sistemas existentes.

      Vocês podem encontrar as Libs que devem estar com uns 30% desses novos sistemas que foram adicionados e podem testar ou usar os códigos.

      O servidor esta online a 120+ dias, foi construído com XP 1 e bateu 66 Players Online.

      O ideal é usar este servidor em low rate.

      Atualizações

      Verifique a pagina do facebook para saber todas as atualizações!
      Se você curtiu acompanhe a pagina para acompanha o lançamento do jogo oficial!
       
      Importante
       

      A cada onda do nosso sistema de incursões, você terá a chance de encontrar um Pokémon Shiny raro e, após a terceira onda, um chefe shiny ainda mais raro aparecerá, oferecendo recompensas valiosas para os treinadores ousados o suficiente para enfrentá-lo.
      Utilize seus tokens de incursão para reiniciar o sistema e tentar novamente.

      Para saber sobre todas as novidades Por favor considere olhar nossa pagina,

      https://www.facebook.com/pokexadventure/photos
       
      Imagens
       
       
      Downloads

      Para configurar basta substituir a pasta data que você pode encontrar fazendo download da source, cole a pasta data baixa do Pokexadventure e divirta-se!

      Sources

      pokexadventure_open_beta_datapack.rar

      DLLS + Executaveis (Windows)

      OTC
       
      (mediafire.com)
       
      Website
       
      https://github.com/otsoft/myaac

      Ferramentas : 
      auto_restarter_windows.bat

      RME 3.5 ou superior.

      Object builder 10.98 Support ou superior.

      Item editor 10.98 Support ou superior.

      Tutoriais para Compilações
       

      Créditos : @Underewar @pota
  • Estatísticas dos Fóruns

    96844
    Tópicos
    519597
    Posts



×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo