Sistema TFS 0.X Addon System - (PDA)

[najatheus 41]

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

Editado Julho 26, 2021 por najatheus (veja o histórico de edições)

[Belmont 141]

@najatheus Obrigado pela contribuição, todos do Fórum agradece pelo seu conteúdo.

[Furyons 9]

Muito top esse system vlw

[Erimyth 95]

Obrigado pela contribuição, a comunidade agradece!

[brunei 4]

muito bom , obrigado por compartilhar , primeiro adodn system que funciona legal no meu sv, uma duvida tem alguma forma de identificar quando o poke tem o addon

dando look na ball ? 

 

01:10 Voce ve a icone ball sendo usada.
It contem a Shiny Marowak.
Price: unsellable.

 

edit : ja consegui no look sistem acicionei a função em outro lugar ai ficou perfeito , obrigado

Editado Maio 20, 2022 por usoparagames (veja o histórico de edições)

[El Reverso 5]

teria como adaptar para poder usar o mesmo item em varios pokes? exemplo: o item addon flower ser usado tanto no venusaur quanto no charizard!

[frajolaguh 1]

o frajolinha vai ajudar aqueles que usa pokebar quando estão tendo o problema de quando solta o poke da bar vcs perde a addon, vao no seu pokebar na pasta talkion

e cole esse lembrando que e pra PDA

 

 

local EFFECTS = {

    ["Perfect Zygarde Full"] = 45,

    ["Mystic Mewtwo"] = 136,

    ["Groudon"] = 34,

    ["Shiny Groudon"] = 44,

    ["Arch Heatran"] = 105,

    ["Obscure Arceus"] = 55,

    ["Zygarde M1"] = 45,

    ["Zygarde M2"] = 45,

    ["Zygarde M3"] = 105,

    ["Tornadus"] = 152,

    ["Landorus"] = 152,

    ["Thundurus"] = 152,

    ["Majestic Lugia M1"] = 136,

    ["Majestic Lugia M2"] = 136,

    ["Majestic Lugia M3"] = 136,

    ["Mew"] = 136,

    ["Mewtwo"] = 136,

    ["Shiny Mew"] = 136,

    ["Shiny Mewtwo"] = 136,

    ["Giratina Star"] = 55,

    ["Giratina Star M1"] = 55,

    ["Giratina Star M2"] = 55,

    ["Giratina Star M3"] = 55,

    ["Raikou"] = 360,

    ["Kyogre"] = 17,

    ["Shiny Kyogre"] = 17,

    ["Rayquaza"] = 17,

    ["Suicune"] = 17,

    ["Ditto"] = 17,

    ["Phione"] = 17,

    ["Zoroak"] = 55,

    ["Shiny Zoroak"] = 55,

    ["Zygard"] = 55,

    ["Regigigas"] = 35,

    ["Shiny Regigigas"] = 26,

    ["Genesect"] = 26,

    ["Zekrom"] = 26,

    ["Shiny Zekrom"] = 26,    

    ["Black Zygarde"] = 55,  

    ["Black Alpha Zekrom"] = 55,

    ["Black Groudon"] = 55,  

    ["Deoxys Lunar"] = 55,      

}

 

local cd = 1

 

local function volta(cid, init)

 

exhausted = 10

storage = 31332

 

if(getPlayerStorageValue(cid, storage) > os.time() and getPlayerStorageValue(cid, storage) < 100+os.time()) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "You must wait another " .. getPlayerStorageValue(cid, storage) - os.time() .. ' second' .. ((getPlayerStorageValue(cid, storage) - os.time()) == 1 and "" or "s") .. " to use new pokemon.")

   return true

end

 

    -- if getPlayerStorageValue(cid, 69891) >= 1 then

       -- doPlayerSendCancel(cid, "Voce nao pode chamar seu pokemon enquanto usa seu pet.")

      -- return false     --alterado v1.5

    -- end

   

    if getPlayerSlotItem(cid, CONST_SLOT_FEET).uid > 0 then

        local item = getPlayerSlotItem(cid, CONST_SLOT_FEET)

       

if getPlayerStorageValue(cid, 912351) > os.time () then

        doPlayerSendCancel(cid, "Espere "..getPlayerStorageValue(cid, 912351) - os.time ().." segundo(s) para usar novamente")

        return true

        end

 

    if exhaustion.get(cid, 6666) and exhaustion.get(cid, 6666) > 0 then return true end

 

if getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 63215) >= 1

or getPlayerStorageValue(cid, 75846) >= 1 or getPlayerStorageValue(cid, 5700) >= 1  then    --alterado v1.9 <<

   return true                                                                                                                        

end

 

local ballName = getItemAttribute(item.uid, "poke")

local btype = getPokeballType(item.itemid)

local usando = pokeballs[btype].use

 

local effect = pokeballs[btype].effect

    if not effect then

        effect = 21

    end

   

if not getItemAttribute(item.uid, "tadport") and ballName then

    doItemSetAttribute(item.uid, "tadport", fotos[ballName])

end

   

unLock(item.uid) --alterado v1.8

 

if item.itemid == usando then                          

 

    -- if getPlayerStorageValue(cid, 990) == 1 then -- GYM

        -- doPlayerSendCancel(cid, "You can't return your pokemon during gym battles.")

    -- return true

    -- end

    if #getCreatureSummons(cid) > 1 and getPlayerStorageValue(cid, 212124) <= 0 then     --alterado v1.6

       if getPlayerStorageValue(cid, 637501) == -2 or getPlayerStorageValue(cid, 637501) >= 1 then  

          BackTeam(cid)      

       end

    end  

    if #getCreatureSummons(cid) == 2 and getPlayerStorageValue(cid, 212124) >= 1 then

       doPlayerSendCancel(cid, "You can't do that while is controling a mind")

       return true     --alterado v1.5

    end

    if #getCreatureSummons(cid) <= 0 then

        if isInArray(pokeballs[btype].all, item.itemid) then

            doTransformItem(item.uid, pokeballs[btype].off)

            doItemSetAttribute(item.uid, "hp", 0)

            doPlayerSendCancel(cid, "This pokemon is fainted.")

            return true

        end

    end

 

    local cd = getCD(item.uid, "blink", 30)

    if cd > 0 then

       setCD(item.uid, "blink", 0)

    end

   

    local z = getCreatureSummons(cid)[1]

 

    if getCreatureCondition(z, CONDITION_INVISIBLE) and not isGhostPokemon(z) then

       return true

    end

    doReturnPokemon(cid, z, item, effect)

   

        end

 

        if init then

            if item.itemid == pokeballs[btype].on then

                if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then

        doPlayerSendCancel(cid, "You must put your pokeball in the correct place!")

    return TRUE

    end

 

    local thishp = getItemAttribute(item.uid, "hp")

 

    if thishp <= 0 then

        if isInArray(pokeballs[btype].all, item.itemid) then

            doTransformItem(item.uid, pokeballs[btype].off)

            doItemSetAttribute(item.uid, "hp", 0)

            doPlayerSendCancel(cid, "This pokemon is fainted.")

            return true

        end

    end

 

    local pokemon = getItemAttribute(item.uid, "poke")

 

    if not pokes[pokemon] then

    return true

    end

---------------------------------------------------------------------------------------------------------------------------------------------------

 

    local x = pokes[pokemon]

    local boost = getItemAttribute(item.uid, "boost") or 0

 

    if getPlayerLevel(cid) < (x.level+boost) then

       doPlayerSendCancel(cid, "You need level "..(x.level+boost).." to use this pokemon.")

       return true

    end

   

    --------------------------------------------------------------------------------------

 

    doSummonMonster(cid, pokemon)

 

    local pk = getCreatureSummons(cid)[1]

    if not isCreature(pk) then return true end

   

    ------------------------passiva hitmonchan------------------------------

    if isSummon(pk) then                                                  --alterado v1.8 \/

       if pokemon == "Shiny Hitmonchan" or pokemon == "Hitmonchan" then

          if not getItemAttribute(item.uid, "hands") then

             doSetItemAttribute(item.uid, "hands", 0)

          end

          local hands = getItemAttribute(item.uid, "hands")

          doSetCreatureOutfit(pk, {lookType = hitmonchans[pokemon][hands].out}, -1)

       end

    end

    -------------------------------------------------------------------------

    ---------movement magmar, jynx-------------

    if EFFECTS[getCreatureName(pk)] then            

       markPosEff(pk, getThingPos(pk))

       sendMovementEffect(pk, EFFECTS[getCreatureName(pk)], getThingPos(pk))  

    end

    --------------------------------------------------------------------------      

 

    ---if getCreatureName(pk) == "Ditto" or getCreatureName(pk) == "Shiny Ditto" then --edited

 

    --  local left = getItemAttribute(item.uid, "transLeft")

    --  local name = getItemAttribute(item.uid, "transName")

 

    --  if left and left > 0 then

    --      setPlayerStorageValue(pk, 1010, name)

        --  doSetCreatureOutfit(pk, {lookType = getItemAttribute(item.uid, "transOutfit")}, -1)

        --  addEvent(deTransform, left * 1000, pk, getItemAttribute(item.uid, "transTurn"))

        --  doItemSetAttribute(item.uid, "transBegin", os.clock())

    --  else

    --      setPlayerStorageValue(pk, 1010, getCreatureName(pk) == "Ditto" and "Ditto" or "Shiny Ditto")     --edited

    --  end

--  end

 

    if isGhostPokemon(pk) then doTeleportThing(pk, getPosByDir(getThingPos(cid), math.random(0, 7)), false) end

 

    doCreatureSetLookDir(pk, 2)

 

    adjustStatus(pk, item.uid, true, true, true)

--    doCureWithY(getCreatureMaster(pk), pk)

 

    doTransformItem(item.uid, item.itemid+1)

 

    local pokename = getPokeName(pk) --alterado v1.7

 

    local mgo = gobackmsgs[math.random(1, #gobackmsgs)].go:gsub("doka", pokename)

    doCreatureSay(cid, mgo, TALKTYPE_ORANGE_1)

    if getItemAttribute(item.uid, "ballorder") then

        doPlayerSendCancel(cid, "KGT,"..getItemAttribute(item.uid, "ballorder").."|".."0")

    end

setPlayerStorageValue(cid, 912351, os.time () + cd)

    doSendMagicEffect(getCreaturePosition(pk), effect)

 

    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)

 

    if useOTClient then

       doPlayerSendCancel(cid, '12//,show') --alterado v1.7

    end

 

 

        end

    end

end

 

    if useKpdoDlls then

        doUpdateMoves(cid)

    end

return true

end

 

function onSay(cid, words, param, channel)

    if getPlayerSlotItem(cid, CONST_SLOT_FEET).uid > 0 then

        if getItemAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "ballorder") == tonumber(param) then

            volta(cid, true)

            return true

        else

            volta(cid, false)

        end

 

    end

    doMoveBar(cid, tonumber(param))

    volta(cid, true)

    return true

end