Jump to content

Olá Tibiano! Notamos que você está com um adblocker ligado... 

Nós promovemos servidores dentro da comunidade, para que eles tenham visibilidade.

Por favor, nos ajude a continuar promovendo esses servidores. Adicione nosso domínio na whitelist de seu adblocker, ok? :)

JairKevick

[TUTORIAL] OTC POKEMON BAR

Recommended Posts

Salve Galera, venho hoje trazer um tutorial bastante pedido pela galera que é de como colocar a famosa pokebar ! ah mas para você que n sabe segue a imagem abaixo da pokebar 

 

post-93401-0-80396700-1433180183.png

 

vamos ao tutorial?

 

 

1. Vá na pasta data\actions\scripts\goback.lua
e embaixo da parte:
function onUse(cid, item, frompos, item2, topos)
coloque: 
sendAllPokemonsBarPoke(cid)
2. Vá na pasta data\lib\catch system.lua
Procure por:
setPlayerStorageValue(cid, 854788, 'done') end
e embaixo coloque: 
sendAllPokemonsBarPoke(cid)

3. Vá na pasta data\lib\cooldown bar.lua

e troque tudo por esse:
 

Please login or register to see this spoiler.

Please login or register to see this link.

Share this post


Link to post
Share on other sites

desculpe reabrir o tópico, mas, o script no meu server não dá nenhum erro na distro e mesmo assim não funciona e não aparece o portrait dos pokemons na barra e quando eu uso o comando /poke aparece "Sua barra esta desatualizada" tem como me ajudar?

Share this post


Link to post
Share on other sites
Em 21/09/2016 em 19:27, JairKevick disse:

function getPlayerPokeballs(cid)                                   --alterado v1.9 \/
local ret = {}
local container = 0
 
if isCreature(cid) then
   container = getPlayerSlotItem(cid, 3).uid
   local myball = getPlayerSlotItem(cid, 8):
   if myball.uid > 0 then
      table.insert(ret, myball)
   end
else
   container = cid
end
 
if isContainer(container) and getContainerSize(container) > 0 then
   for slot = 0, (getContainerSize(container) - 1) do
       local item = getContainerItem(container, slot)
       if isContainer(item.uid) then
          local itemsbag = getPlayerPokeballs(item.uid)
          if itemsbag and #itemsbag > 0 then
             for i = 0, #itemsbag do
                 table.insert(ret, itemsbag)
             end
          end
       elseif isPokeball(item.itemid) then
          table.insert(ret, item)
       end
   end
end
return ret
end
 
function doUpdatePokemonsBar(cid)
if not isCreature(cid) then return true end
if getPlayerStorageValue(cid, 656494) > 0 then
return true
end
setPlayerStorageValue(cid, 656494, 1000)
addEvent(setPlayerStorageValue, 100, cid, 656494, -1)
 
local ret = {}
table.insert(ret, "p#,")
local balls = getPlayerPokeballs(cid)
local times = 0
for a = 1, #balls do
    local item = balls[a]
    local hp = math.ceil(getItemAttribute(item.uid, "hp") * 100)
    local name = getItemAttribute(item.uid, "poke")
    local port = getPlayerSlotItem(cid, CONST_SLOT_LEGS) 
    if fotos[name] >= 11137 and fotos[name] <= 11387 then
       times = times + 1
       local foto = fotos[name] - 911
       doItemSetAttribute(item.uid, "ballorder", times)
       table.insert(ret, foto..","..name..""..times..","..hp..",")                
    elseif fotos[name] >= 12605 then                                           
       times = times + 1                                                      
       local foto = fotos[name] - 1178  --alterado v1.9 
       doItemSetAttribute(item.uid, "ballorder", times)
       table.insert(ret, foto..","..name..""..times..","..hp..",")
    else
       times = times + 1
       local foto = fotos[name] - 928
       doItemSetAttribute(item.uid, "ballorder", times)
       table.insert(ret, foto..","..name..""..times..","..hp..",")
    end
end
doPlayerSendCancel(cid, table.concat(ret))
end
 
function getNewMoveTable(table, n)
if table == nil or not n then return false end
 
local moves = {table.move1, table.move2, table.move3, table.move4, table.move5, table.move6, table.move7, table.move8, table.move9,
table.move10, table.move11, table.move12}
 
return moves[n] or false
end
 
 
function doUpdateMoves(cid)
if not isCreature(cid) then return true end
local summon = getCreatureSummons(cid)[1]
local ret = {}
table.insert(ret, "12&,")
if not summon then
   for a = 1, 12 do
       table.insert(ret, "n/n,")
   end
   doPlayerSendCancel(cid, table.concat(ret))
   addEvent(doUpdateCooldowns, 100, cid)
return true
end
if isTransformed(summon) then  --alterado v1.9
   moves = movestable[getPlayerStorageValue(summon, 1010)]
else                                                       
   moves = movestable[getCreatureName(summon)]
end
for a = 1, 12 do
    local b = getNewMoveTable(moves, a)
    if b then
       table.insert(ret, b.name..",")
    else
       table.insert(ret, "n/n,")
    end
end
doPlayerSendCancel(cid, table.concat(ret))
addEvent(doUpdateCooldowns, 100, cid)
end
 
function doUpdateCooldowns(cid)
if not isCreature(cid) then return true end
local a = getPlayerSlotItem(cid, 8):
local ret = {}
table.insert(ret, "12|,")
if a.uid <= 0 or #getCreatureSummons(cid) <= 0 then
   for cds = 1, 12 do
       if useOTClient then table.insert(ret, "-1|0,") else table.insert(ret, "-1,") end  
   end
   doPlayerSendCancel(cid, table.concat(ret))
return true
end
for cds = 1, 12 do                                                         
    ----
    local summon = getCreatureSummons(cid)[1]
    if summon and getPlayerStorageValue(summon, 212123) >= 1 then
       cdzin = "cm_move"..cds
    else                       
       cdzin = "move"..cds
    end
    ----
    if isTransformed(summon) then  --alterado v1.9
       moves = movestable[getPlayerStorageValue(summon, 1010)]
    else                                                       
       moves = movestable[getCreatureName(summon)]
    end
    local b = getNewMoveTable(moves, cds)
    if not b then
       for cds = 1, 12 do
           if useOTClient then table.insert(ret, "-1|0,") else table.insert(ret, "-1,") end   --alterado v1.9
       end
       doPlayerSendCancel(cid, table.concat(ret))
    return true
    end
    ----
    if getCD(a.uid, cdzin) > 0 then
       if (useOTClient and b) then table.insert(ret, (getCD(a.uid, cdzin)).."|"..b.level..",") else table.insert(ret, (getCD(a.uid, cdzin))..",") end
    else
       if (useOTClient and b) then table.insert(ret, "0|"..b.level..",") else table.insert(ret, "0,") end  
    end
end
doPlayerSendCancel(cid, table.concat(ret))                                             
end
 
function getBallsAttributes(item)
local t = {"poke", "gender", "nick", "boost", "happy", "hp", "description", "transBegin", "hunger", "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"} 
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
 
function doChangeBalls(cid, item1, item2)
if not isCreature(cid) then return true end
if item1.uid == item2.uid then
   if #getCreatureSummons(cid) <= 0 then
      doGoPokemon(cid, getPlayerSlotItem(cid, 8))
   else
      doReturnPokemon(cid, getCreatureSummons(cid)[1], getPlayerSlotItem(cid, 8), pokeballs[getPokeballType(getPlayerSlotItem(cid, 8).itemid)].effect)
   end
return true
end
 
if item1.uid > 0 and item2.uid > 0 then
   local io = getBallsAttributes(item1.uid)
   local it = getBallsAttributes(item2.uid)
   for a, b in pairs (io) do
       if b then
          doItemSetAttribute(item2.uid, a, b)
       else
          doItemEraseAttribute(item2.uid, a)
       end
   end
   for a, b in pairs (it) do
       if b then
          doItemSetAttribute(item1.uid, a, b)
       else
          doItemEraseAttribute(item1.uid, a)
       end
   end
   local id = item2.itemid
   doTransformItem(item2.uid, item1.itemid)
   doTransformItem(item1.uid, id)
   doGoPokemon(cid, getPlayerSlotItem(cid, 8))
else
   local id = item2.itemid
   local b = getBallsAttributes(item2.uid)
   local a = doPlayerAddItem(cid, 2643, false)
   for c, d in pairs (b) do
       if d then
          doItemSetAttribute(a, c, d)
       else
          doItemEraseAttribute(a, c)
       end
   end
   doRemoveItem(item2.uid, 1)
   doTransformItem(a, id)
   doGoPokemon(cid, getPlayerSlotItem(cid, 8))
end
end

 

Share this post


Link to post
Share on other sites
Em 21/09/2016 em 19:27, JairKevick disse:

<talkaction words="/poke" case-sensitive="no" event="script" value="poke.lua"/>

 

Em 21/09/2016 em 19:27, JairKevick disse:

Salve Galera, venho hoje trazer um tutorial bastante pedido pela galera que é de como colocar a famosa pokebar ! ah mas para você que n sabe segue a imagem abaixo da pokebar 

 

post-93401-0-80396700-1433180183.png

 

vamos ao tutorial?

 

 

1. Vá na pasta data\actions\scripts\goback.lua
e embaixo da parte:
function onUse(cid, item, frompos, item2, topos)
coloque: 
sendAllPokemonsBarPoke(cid)
2. Vá na pasta data\lib\catch system.lua
Procure por:
setPlayerStorageValue(cid, 854788, 'done') end
e embaixo coloque: 
sendAllPokemonsBarPoke(cid)

3. Vá na pasta data\lib\cooldown bar.lua

e troque tudo por esse:
 

Please login or register to see this spoiler.

Ficou top, vou tentar

Share this post


Link to post
Share on other sites
Em 21/09/2016 em 19:27, JairKevick disse:

Salve Galera, venho hoje trazer um tutorial bastante pedido pela galera que é de como colocar a famosa pokebar ! ah mas para você que n sabe segue a imagem abaixo da pokebar 

 

post-93401-0-80396700-1433180183.png

 

vamos ao tutorial?

 

 

1. Vá na pasta data\actions\scripts\goback.lua
e embaixo da parte:
function onUse(cid, item, frompos, item2, topos)
coloque: 
sendAllPokemonsBarPoke(cid)
2. Vá na pasta data\lib\catch system.lua
Procure por:
setPlayerStorageValue(cid, 854788, 'done') end
e embaixo coloque: 
sendAllPokemonsBarPoke(cid)

3. Vá na pasta data\lib\cooldown bar.lua

e troque tudo por esse:
 

Please login or register to see this spoiler.

 

Ollcccc

Share this post


Link to post
Share on other sites
Em 06/06/2018 em 07:14, Bagastalgia22 disse:

Desculpa reviver, mas como faria para setar o HP do poke? Consigo somente adicionar os portraits.

Como pode ver nao tem alteração no hp.

Please login or register to see this link.



 

ou pode me ajudar? minha base é Poke ZR

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Similar Content

    • By alexxandresig
      Pessoal, sou MUITO leigo na parte de Poketibia. Queria saber qual é o hoje (se possível com link) a melhor base para criar um poketibia, sem ter que mexer em muita coisa.
       
      Só usarei a primeira e segunda geração, mesmo que a base tenha mais gerações.
       
      Resumindo, qual a melhor base hoje para criar um poketibia? Valeu!
    • By Fjinst
      Olá pessoal, estou tentando aprender como adicionar mais slots de equipamento no meu servidor,
      Com isso utilizei com base as sourcers do tfs 0.4 (8.60)
       
      Tudo bem até ai, chequei toda a sourcer, me baseei pegando outro slot como modelo para fazer, ou seja, criei um segundo ANEL, tudo certo até ai, compilei o OTC, compilei o servidor, nenhum erro apontado, PORÉM...
      Quando eu equipo o item, o item simplesmente some, igual um lixo, vc joga o item no slot, o item some, vc joga outro item no slot, o item some de novo, virou uma famosa lixeira,
       
      Alguém pode por favor me ajudar no que estou errando? no que posso fazer para corrigir isso, tenho planos com novos slots e gostaria do auxilio de alguem que entende do assunto, por gentileza,
       
      Segue o GIF DO PROBLEMA em questão:
      lembrando: TFS 0.4 (8.60)

       
       
    • By StrikersBR12
      Galera to com um bug que é o seguinte
       
      Um player ta dentro da área de respawn por exemplo ele ta onde respawna um tropius , o pokemon n respawna enquanto ele tiver ali
       
       
      alguém sabe resolver?
    • By Taiger
      >>>PokeDG<<<
       
      Site:
      Please login or register to see this link.

      Face: Please login or register to see this link.

      Discord: Please login or register to see this link.
      Up Médio/Facil
      Drop: Médio/Facil
      Catch: Médio/Facil 
       
      Sistemas:
      Todos os sistemas básicos e+
      Pokedex.
      Aparição de Shinys e Megas.
      Drop de Mega Stones e Fragmentos.
      Held Machine.
      Held System.
      Daily Kill.
      Daily Carch.
      Andar na diagonal.
      Player passa por dentro de player e pokes.
      Usar revive, potions e soltar poke andando.
      Orbs.
      Setas de notificação de drop.
      Autoloot.
      Ski/SandBoard/Roupa de Mergulho automaticos.
      Outlands.
      Torneio Mata-Mata.
      Run Event.
      Luck Event.

      Servidor sendo atualizado constantemente.
       

       
       
    • By Ayron5
      É possível resetar o otclient ?  
      Se sim, me diga como, estou precisando... ^^ 
      Valendo rep! 
×
×
  • Create New...