Líderes

System de addon, funciona da seguinte maneira: - O item deve ser usado diretamente na pokebola, caso o player deseje colocar um novo addon no pokemon, evoluir ou transformar em shiny, devera ser utilizado o comando: !removeAddon Instruções: Insira na pasta datapack/actions/script/ Addon.lua addonbox.lua Insira na pasta datapack/lib/ Addon System.lua Agora, em datapack/actions/actions.xml : <action itemid="13103;13114;13107" event="script" value="Addon.lua"/> <!-- Aqui estarão os id dos addons que vão ser utilizados na pokebola --> <action itemid="2183" event="script" value="addonbox.lua"/> <!-- Id da addon box --> Agora, em datapack/actions/scripts/goback.lua, abaixo de : local pk = getCreatureSummons(cid)[1] if not isCreature(pk) then return true end Insira : local pk = getCreatureSummons(cid)[1] if not isCreature(pk) then return true end local slot = getPlayerSlotItem(cid, CONST_SLOT_FEET) local addon = getItemAttribute(slot.uid, "pokeaddon") addonTransformOutfit(cid, addon, pokemon) Agora, em datapack/actions/scripts/order.lua, abaixo de : doSummonMonster(cid, pokemon) local pk = getCreatureSummons(cid)[1] Insira : local slot = getPlayerSlotItem(cid, CONST_SLOT_FEET) local addon = getItemAttribute(slot.uid, "pokeaddon") addonTransformOutfit(cid, addon, pokemon) Agora, em datapack/actions/scripts/evolution.lua, abaixo de : if not isMonster(item2.uid) or not isSummon(item2.uid) then return true end if #getCreatureSummons(cid) > 1 then return true --alterado v1.9 end Insira : local poke_addon = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "pokeaddon") if(poke_addon)then return doPlayerSendCancel(cid, "Please remove addon before evolution, Command: !removeAddon") end Agora, em datapack/actions/scripts/sh stone.lua, abaixo de : if getPlayerSlotItem(cid, 8).uid == itemEx.uid then if #getCreatureSummons(cid) <= 0 then Insira : local poke_addon = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "pokeaddon") if(poke_addon)then return doPlayerSendCancel(cid, "Please remove addon before evolution, Command: !removeAddon") end Agora, em datapack/creaturescripts/scripts/look.lua, abaixo de : if getItemAttribute(thing.uid, "gender") == SEX_MALE then table.insert(str, "It is male.") elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then table.insert(str, "It is female.") else table.insert(str, "It is genderless.") end Insira : if(getItemAttribute(thing.uid, "pokeaddon"))then local table_addon = ADDON_CONFIG[getItemAttribute(thing.uid, "pokeaddon")] if not table_addon then return true end table.insert(str, "\n" .. "Addon : " .. table_addon.name_addon .. ".") end Agora, em datapack/lib/order.lua, abaixo de : doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "hp", getCreatureHealth(getCreatureSummons(cid)[1]) / getCreatureMaxHealth(getCreatureSummons(cid)[1])) doRemoveCreature(getCreatureSummons(cid)[1]) setPlayerStorageValue(cid, 17000, 1) Insira : local slot = getPlayerSlotItem(cid, CONST_SLOT_FEET) local addon = getItemAttribute(slot.uid, "pokeaddon") addonTransformOutfitAbility(cid, addon) Continuando em datapack/lib/order.lua, abaixo de : elseif skill == "ride" then local pokemon = rides[getPokemonName(getCreatureSummons(cid)[1])] doChangeSpeed(cid, -getCreatureSpeed(cid)) local speed = 150 + PlayerSpeed + getSpeed(sid) * 5 * speedRate doChangeSpeed(cid, speed) setPlayerStorageValue(cid, 54844, speed) doSetCreatureOutfit(cid, {lookType = pokemon[1] + 351}, -1) doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "hp", getCreatureHealth(getCreatureSummons(cid)[1]) / getCreatureMaxHealth(getCreatureSummons(cid)[1])) doRemoveCreature(getCreatureSummons(cid)[1]) setPlayerStorageValue(cid, 17001, 1) Insira : addonTransformOutfitAbility(cid) Agora, em datapack/movements/scripts/surf.lua, abaixo de: doSetCreatureOutfit(cid, {lookType = surfs[getPokemonName(getCreatureSummons(cid)[1])].lookType + 351}, -1) doCreatureSay(cid, ""..getPokeName(getCreatureSummons(cid)[1])..", lets surf!", 1) doChangeSpeed(cid, -(getCreatureSpeed(cid))) Insira : addonTransformOutfitAbility(cid) Continuando, em datapack/movements/script/surf.lua, abaixo de: doSummonMonster(cid, pokemon) local pk = getCreatureSummons(cid)[1] Insira : local slot = getPlayerSlotItem(cid, CONST_SLOT_FEET) local addon = getItemAttribute(slot.uid, "pokeaddon") addonTransformOutfit(cid, addon, pokemon) Agora, em datapack/talkactions/scripts/ crie um arquivo .lua, coloque dentro : function onSay(cid, words, param, channel) if(#getCreatureSummons(cid) >=1)then return false end local slot = getPlayerSlotItem(cid, CONST_SLOT_FEET) if not slot then return false end local addon_ball = getItemAttribute(slot.uid, "pokeaddon") if(addon_ball)then removeAddon(cid,slot,addon_ball) return true end end Agora, em datapack/talkactions/talkactions.xml registre : <talkaction words="!removeAddon" hide="yes" event="script" value="nome do arquivo.lua"/> Configurações : ADDON_CONFIG ={ [1] = { -- Type do attribute do addon addon1 = 2079, -- Id da outfit pokemon = "Blastoise", -- O pokemon name_addon = "Red ninja pack", -- Nome do addon habilidade = 2089, -- Id da outfit correspondente com sua habilidade }, } local addon_type = { [13114] = { -- Id do item pokemon_use = "Blastoise", -- O pokemon type = 1, -- Valor do attribute }, } Return_addon_table = { [1] = { -- Type do attribute retu = 13114, -- o id do item que o player vai ganhar }, } Creditos : Sr. Naja 20210725_201402.mp4

Consegui aqui, obrigado irmão

adicione os itens no object builder, em seguida abra o items editor, localize o items.otb, em algum lugar vai ter uma opção q ele registra todos os itens novos, confira se nao tem alguma informação em vermelho nos novos adicionados

@RicK Sanchez Na linha 722 tenta substituir unsigned long lootListSize; por uint64_t lootListSize = 0; Teria q colocar um configManager com numero de slots free numa verificação na parte de add do talkactions, depois edito esse post com essa modificação.

Todos Macros Em Um Só Lugar! . . Refiller Macros: . . 1000 {Pot Reffil} VarSetEx(Total, POTS) VarSet(Potnow) Misc.ItemCountEx(266) VarSub(Total, !Potnow!) HUD.Display(!Total!) Self.Say(hi) Macro.Wait(2000) NPC.Say(trade) NPC.Buy(266, !Total!, 1) Macro.Wait(2000) NPC.Say(bye)) 1000 {ManaPot Reffil} VarSetEx(Total, MPS) VarSet(Potnow) Misc.ItemCountEx(268) VarSub(Total, !Potnow!) HUD.Display(!Total!) Self.Say(hi) Macro.Wait(2000) NPC.Say(trade) NPC.Buy(268, !Total!, 1) Macro.Wait(2000) NPC.Say(bye)) 1000 {Withdraw} VarSetEx(Total, NUMBEROFPOTS) VarSet(Potnow) Misc.ItemCountEx(266) VarSub(Total, !Potnow!) VarMult(Total, 50) HUD.Display(!Total!) Self.Say(hi) Macro.Wait(2000) NPC.Say(withdraw) Macro.Wait(2000) NPC.Say(!Total!) Macro.Wait(2000) NPC.Say(yes)) . War Macros: . . 200 {PushMax} VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z VarSub(Y, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(X, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!) 200 {Anti Push} VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z Map.HasID(3031, !X!, !Y!, !Z!)<>1 Map.Thrown(3031, 2, !X!, !Y!, !Z!)<>1 . 200 {Cortador de Wild-Insert} Tibia.KeyDown(45) HUD.Display(Para trocar a tecla: http://wiki.bmega.net/doku.php?id=virtual_key_codes) VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z Map.UseOn(3308, 2130, !X!, !Y!, !Z!, 1) . . Support Macros: . . Change weapon if no mana. 1000 {Rod in Hand} Self.Mana>=X Self.Equip.LeftHand(IDROD) 1000 {Sword in Hand} Self.Mana<X Self.Equip.LeftHand(IDSWORD) 10000 {Drop Itens} Misc.ItemCountEx(3578)>=1 Self.Cap<=50 VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z Map.Thrown(3031, -1, !X!, !Y!, !Z!)<>1 Change weapon if no have small stones. 2000 {Equip Stone} Misc.ItemCountEx(1781)>=1 Self.Equip.LeftHand(1781) 2000 {Equip Axe} Misc.ItemCountEx(1781)<1 Self.Equip.LeftHand(3317) Use Soft/Equip BOH if Low/High Mana 1000 {Equip Soft} Self.Mana<=100 Self.Equip.Boots(6529) 1000 {UnEquip Soft/Use BOH} Self.Mana>=500 Self.Equip.Boots(3079) Change Worn Soft Boots/Boh 1000 {Equip BOH} Self.Inventory.Boots=6530 Self.Equip.Boots(3079) Re Use spears quando pouca Munição 1000 {Spear} [/i]Self.Inventory.LeftHand<10[i] Self.Equip.LeftHand(3277) Broken Furtunites 500 {Anti Trap} VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z Map.UseOn(WEAPON, 2524, !X!, !Y!, !Z!, 1) Safe Spell 2000 {Safe Spell } Self.Mana>=200 Self.Attacking Creatures.Beside>=3 Creatures.PlayersOnScreen=01 Self.Say(exori) . . Se você nao achou o macro desejado pode pedir . Credits: Alaskim/Hunger