Ir para conteúdo

Icon System

Por wevertonh
em Suporte Tibia OTServer

Featured Replies

Postado

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

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
 

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
 

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)

  • Citar
  • Mention
    • Respostas 7
    • Visualizações 1.2k
    • Created
    • Última resposta

    Top Posters In This Topic

    Popular Days

    Postado

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

    Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680

    Este tópico foi movido:

    De: "OTServ → Suporte OTServ → Suporte de Scripts"

    Para: "OTServ → Suporte OTServ → Suporte de Servidores Derivados"

    image.png.4408bf6140530835f562d10cfb3ba5b5.png

    Ot Design: https://discord.gg/VgtVRNmCD7

     

  • Citar
  • Mention
    • Postado

    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

  • Citar
  • Mention

    • 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
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Conteúdo Similar

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.6k

    Informação Importante

    Confirmação de Termo

    I accept