Sitema%25252FMod Sistema de Pet V1.0 By PsyMcKenzie

[PsyMcKenzie 46]

Sistema de Pet V1.0

 

 

 

E ai Galera, suave?

Hoje venho trazer pra vocês, meu sistema de pet.
É bem do tipo pokemon, mas tenho certeza que irão gostar.

Vou liberá-lo porque gosto de compartilhar as coisas, e sei que alguém esta querendo
um sistema desses. Assim como eu quis um dia e nunca encontrei um que funcionasse.
O sistema está na versão 1.0, mas em em breve trarei um npc para healar o pet e algumas talks para o pet soltar spells.

Vamos lá!

Primeiramente, vá em data/action/scripts, crie um arquivo com o nome de CatchPet.lua e adicione:

 

local mtrs = {

                ["Rat"] = {hp = 1000, maxhp = 1000, corpse = 2813, chance = 100},
                ["Rotworm"] = {hp = 1000, maxhp = 1000, corpse = 5967, chance = 100},
                ["Skeleton"] = {hp = 1000, maxhp = 1000, corpse = 5972, chance = 100},
                ["Dragon"] = {hp = 1000, maxhp = 1000, corpse = 3104, chance = 100},
                ["Dragon Lord"] = {hp = 1000, maxhp = 1000, corpse = 5984, chance = 100},
}

function onUse(cid, item, frompos, item2, topos)
                for pet_name, v in pairs(mtrs) do
                                if item2.itemid == v.corpse then
                                        if math.random(0,100) <= v.chance then
                                                doPlayerSendTextMessage(cid, 27, "Você capturou um ".. pet_name .. ".")
                                                doRemoveItem(item2.uid, 1)
                                                doRemoveItem(item.uid, 1)
                                                local itemcatch = doPlayerAddItem(cid, 7632, 1)
                                                doItemSetAttribute(itemcatch, "namepet", pet_name)
                                                doItemSetAttribute(itemcatch, "description", "Contém um ".. pet_name ..".")
                                                doItemSetAttribute(itemcatch, "lifepet", v.hp)
                                                doItemSetAttribute(itemcatch, "maxlifepet", v.maxhp)
                                        else
                                                doPlayerSendTextMessage(cid, 27, "Falhou.")
                                        end
                                end
                end
                return true
end
 

 

Em seguida, duplique o arquivo, renomeie para VaiVolta e adicione:

function onUse(cid, item, frompos, item2, topos)

    local health = tonumber(getItemAttribute(item.uid, "lifepet"))
    local mhp = tonumber(getItemAttribute(item.uid, "maxlifepet"))

    if health <= 0 then
        return doPlayerSendCancel(cid, "Esse pet esta morto.")
    end

    local pet_name = getItemAttribute(item.uid, "namepet")

    if item.itemid == 7632 then
        if not getTilePzInfo(getPlayerPosition(cid)) then
            if #getCreatureSummons(cid) < 1 then
                doTransformItem(item.uid, 7633)
                local summon = doSummonCreature(pet_name, getThingPos(cid))
                doConvinceCreature(cid, summon)
                setCreatureMaxHealth(summon, mhp)
                doCreatureAddHealth(summon, mhp)
                doCreatureAddHealth(summon, health - mhp)
                doSendMagicEffect(getCreaturePosition(summon), 67)
                doCreatureSay(cid, "Vai, ".. pet_name .. "!", TALKTYPE_SAY)
            else
                doPlayerSendCancel(cid, "Você já sumonou um Pet.")
            end
        else
            doPlayerSendCancel(cid, "Você não pode estar em Protection Zone para sumonar seu Pet.")
        end

    elseif item.itemid == 7633 then
local hp, maxhp = getCreatureHealth(getCreatureSummons(cid)[1]), getCreatureMaxHealth(getCreatureSummons(cid)[1])
        if #getCreatureSummons(cid) >= 1 then
            doSendMagicEffect(getCreaturePosition(getCreatureSummons(cid)[1]), 67)
            doRemoveCreature(getCreatureSummons(cid)[1])
            doTransformItem(item.uid, 7632)
            doItemSetAttribute(item.uid, "lifepet", hp)
            doItemSetAttribute(item.uid, "maxlifepet", maxhp)
            doCreatureSay(cid, "Volta, " .. pet_name .. ".", TALKTYPE_SAY)
        end
    end

    return true
end
 

 

Agora em Actions.xml, adicione as tags:

 

                <action itemid="2149" event="script" value="CatchPet.lua"/>
                <action itemid="7632;7633" event="script" value="VaiVolta.lua"/>
 

 

 

 

Configurando

Nesta parte você irá editar:

Quote

["Rat"] = {hp = 1000, maxhp = 1000, corpse = 2813, chance = 100}, 
["Rotworm"] = {hp = 1000, maxhp = 1000, corpse = 5967, chance = 100}, 
["Skeleton"] = {hp = 1000, maxhp = 1000, corpse = 5972, chance = 100},
["Dragon"] = {hp = 1000, maxhp = 1000, corpse = 3104, chance = 100},
["Dragon Lord"] = {hp = 1000, maxhp = 1000, corpse = 5984, chance = 100},

NOME DO PET / HP / HP MÁXIMO / CORPSE ID ( AQUELE QUE FICA QUANDO O MONSTRO MORRE) / CHANCE DE CAPTURA DO PET.


Esse são os id's das "pokeballs":

 

 

Quote

if item.itemid == 7632 then
elseif item.itemid == 7633 then

 

Caso queira mudar, troque no script e na tag no actions.xml.

Este é o item de captura:

 

                <action itemid="2149" event="script" value="CatchPet.lua"/>
 

 

 

 

Bom, é isso galera, espero que gostem e que façam um bom uso do sistema!
Aproveitem!

Dúvidas? Sugestões? Criticas?

Comentem!!

 

 

 

Créditos/Agradecimentos:

BananaFight
LuckOake
MaXwElldEn
Gears

Editado Maio 8, 2013 por PsyMcKenzie (veja o histórico de edições)

[MaXwEllDeN 892]

Bem dahora Psy. Mas, é como eu disse, coloca algo novo, que torne o seu diferente dos outros.

[zolax 0]

Hello when i click right on empty pokeball(7632) or destroyed pokeball(7633) i got error

 

[23/05/2013 16:29:09] [Error - Action Interface] 

[23/05/2013 16:29:09] data/actions/scripts/inne/pet_system.lua:onUse

[23/05/2013 16:29:09] Description: 

[23/05/2013 16:29:09] (luaGetCreatureHealth) Creature not found

 

how i can fix it?

[manolodede 4]

Cara você nao tem 1 que o sistema seja diferente por exemplo ia em 1 npc comprasse o pet e exeplo lvl 50 era 1 e lvl 100 ele evoluisse e lvl 200 evoluia denovo e se morrese era so ir nesse npc e reviver er ele nao teria 1 sistema assim?

[larafaz 13]

é cara mt bom mas tem um porem ;/

 

qndo o pet morre e vc o tenta trazer de volta acontece isso na distro

 

[17:1:02.182] [Error - Action Interface]

[17:1:02.183] data/actions/scripts/VaiVolta.lua:onUse

[17:1:02.185] Description:

[17:1:02.186] (luaGetCreatureMaxHealth) Creature not found

 

e se o player tentar trazer ele de volta mts vezes a distro fecha

 

teria como caso ele morre-se aparecer uma mensagem dizendo q ele esta morto ou sei la so pra nao ter esse erro ae e cair o serv agrade-ço desde jah

[HeberPcL 14]

Bem legal.

 

Abraço

[robi123 13]

Em 07/05/2013 ás 23:10, PsyMcKenzie disse:

Sistema de Pet V1.0

 

 

 

 

E ai Galera, suave?

Hoje venho trazer pra vocês, meu sistema de pet.
É bem do tipo pokemon, mas tenho certeza que irão gostar.

Vou liberá-lo porque gosto de compartilhar as coisas, e sei que alguém esta querendo
um sistema desses. Assim como eu quis um dia e nunca encontrei um que funcionasse.
O sistema está na versão 1.0, mas em em breve trarei um npc para healar o pet e algumas talks para o pet soltar spells.

Vamos lá!

 

 

Primeiramente, vá em data/action/scripts, crie um arquivo com o nome de CatchPet.lua e adicione:

 

 

 

 

 

local mtrs = {

                ["Rat"] = {hp = 1000, maxhp = 1000, corpse = 2813, chance = 100},
                ["Rotworm"] = {hp = 1000, maxhp = 1000, corpse = 5967, chance = 100},
                ["Skeleton"] = {hp = 1000, maxhp = 1000, corpse = 5972, chance = 100},
                ["Dragon"] = {hp = 1000, maxhp = 1000, corpse = 3104, chance = 100},
                ["Dragon Lord"] = {hp = 1000, maxhp = 1000, corpse = 5984, chance = 100},
}

function onUse(cid, item, frompos, item2, topos)
                for pet_name, v in pairs(mtrs) do
                                if item2.itemid == v.corpse then
                                        if math.random(0,100) <= v.chance then
                                                doPlayerSendTextMessage(cid, 27, "Você capturou um ".. pet_name .. ".")
                                                doRemoveItem(item2.uid, 1)
                                                doRemoveItem(item.uid, 1)
                                                local itemcatch = doPlayerAddItem(cid, 7632, 1)
                                                doItemSetAttribute(itemcatch, "namepet", pet_name)
                                                doItemSetAttribute(itemcatch, "description", "Contém um ".. pet_name ..".")
                                                doItemSetAttribute(itemcatch, "lifepet", v.hp)
                                                doItemSetAttribute(itemcatch, "maxlifepet", v.maxhp)
                                        else
                                                doPlayerSendTextMessage(cid, 27, "Falhou.")
                                        end
                                end
                end
                return true
end
 

 

Em seguida, duplique o arquivo, renomeie para VaiVolta e adicione:

 

 

 

function onUse(cid, item, frompos, item2, topos)

    local health = tonumber(getItemAttribute(item.uid, "lifepet"))
    local mhp = tonumber(getItemAttribute(item.uid, "maxlifepet"))

    if health <= 0 then
        return doPlayerSendCancel(cid, "Esse pet esta morto.")
    end

    local pet_name = getItemAttribute(item.uid, "namepet")

    if item.itemid == 7632 then
        if not getTilePzInfo(getPlayerPosition(cid)) then
            if #getCreatureSummons(cid) < 1 then
                doTransformItem(item.uid, 7633)
                local summon = doSummonCreature(pet_name, getThingPos(cid))
                doConvinceCreature(cid, summon)
                setCreatureMaxHealth(summon, mhp)
                doCreatureAddHealth(summon, mhp)
                doCreatureAddHealth(summon, health - mhp)
                doSendMagicEffect(getCreaturePosition(summon), 67)
                doCreatureSay(cid, "Vai, ".. pet_name .. "!", TALKTYPE_SAY)
            else
                doPlayerSendCancel(cid, "Você já sumonou um Pet.")
            end
        else
            doPlayerSendCancel(cid, "Você não pode estar em Protection Zone para sumonar seu Pet.")
        end

    elseif item.itemid == 7633 then
local hp, maxhp = getCreatureHealth(getCreatureSummons(cid)[1]), getCreatureMaxHealth(getCreatureSummons(cid)[1])
        if #getCreatureSummons(cid) >= 1 then
            doSendMagicEffect(getCreaturePosition(getCreatureSummons(cid)[1]), 67)
            doRemoveCreature(getCreatureSummons(cid)[1])
            doTransformItem(item.uid, 7632)
            doItemSetAttribute(item.uid, "lifepet", hp)
            doItemSetAttribute(item.uid, "maxlifepet", maxhp)
            doCreatureSay(cid, "Volta, " .. pet_name .. ".", TALKTYPE_SAY)
        end
    end

    return true
end
 

 

Agora em Actions.xml, adicione as tags:

 

                <action itemid="2149" event="script" value="CatchPet.lua"/>
                <action itemid="7632;7633" event="script" value="VaiVolta.lua"/>
 

 

 

 

Configurando

 

 

 

Nesta parte você irá editar:

 

 

 

 

 

 

 

Quote

 

 

 

 

["Rat"] = {hp = 1000, maxhp = 1000, corpse = 2813, chance = 100}, 
["Rotworm"] = {hp = 1000, maxhp = 1000, corpse = 5967, chance = 100}, 
["Skeleton"] = {hp = 1000, maxhp = 1000, corpse = 5972, chance = 100},
["Dragon"] = {hp = 1000, maxhp = 1000, corpse = 3104, chance = 100},
["Dragon Lord"] = {hp = 1000, maxhp = 1000, corpse = 5984, chance = 100},

 

 

NOME DO PET / HP / HP MÁXIMO / CORPSE ID ( AQUELE QUE FICA QUANDO O MONSTRO MORRE) / CHANCE DE CAPTURA DO PET.


Esse são os id's das "pokeballs":

 

 

 

 

 

 

 

Caso queira mudar, troque no script e na tag no actions.xml.

Este é o item de captura:

 

 

 

 

 

                <action itemid="2149" event="script" value="CatchPet.lua"/>
 

 

 

 

Bom, é isso galera, espero que gostem e que façam um bom uso do sistema!
Aproveitem!

 

Dúvidas? Sugestões? Criticas?

 

Comentem!!

 

 

 

 

 

 

 

 

MAIS SE O MONSTRO NÃO TA NA LISTA O SCRIPT TERIA QUE FALAR ALGO TIPO...

 

Este Monstro não pode ser capturado...

 

Att; Robson

 

 

[robi123 13]

da uma força neste erro ?
 

[robi123 13]

local mtrs = {

                ["Rat"] = {hp = 100, maxhp = 100, corpse = 5964, chance = 100},
                ["Rotworm"] = {hp = 100, maxhp = 100, corpse = 5967, chance = 50},
                ["Skeleton"] = {hp = 500, maxhp = 500, corpse = 5972, chance = 90},
                ["Demon skeleton"] = {hp = 1000, maxhp = 1000, corpse = 5963, chance = 80},
                ["Monk"] = {hp = 1500, maxhp = 1500, corpse = 6080, chance = 70},
}

function onUse(cid, item, frompos, item2, topos)
                for pet_name, v in pairs(mtrs) do
                                if item2.itemid == v.corpse then
                                        if math.random(0,100) <= v.chance then
                                                doPlayerSendTextMessage(cid, 27, "Você capturou um ".. pet_name .. ".")
												doSendMagicEffect(getThingPos(cid), 46)
                                                doRemoveItem(item2.uid, 1)
                                                doRemoveItem(item.uid, 1)
                                                local itemcatch = doPlayerAddItem(cid, 21553, 1)
                                                doItemSetAttribute(itemcatch, "namepet", pet_name)
                                                doItemSetAttribute(itemcatch, "description", "Contém um ".. pet_name .. ".")
                                                doItemSetAttribute(itemcatch, "lifepet", v.hp)
                                                doItemSetAttribute(itemcatch, "maxlifepet", v.maxhp)
                                        else
                                                doPlayerSendTextMessage(cid, 27, "Falhou.")
												doSendMagicEffect(getThingPos(cid), 83)
												doRemoveItem(item.uid, 1)
												doRemoveItem(item2.uid, 1)
                                        end
                                end
                end
                return true
end

 

 

eu dei uma melhorada nesta parte pelo menos para ficar melhor no meu ot..
só cuidado com os ids coloquem outros.. 

 

e tambem alterem o efeitos conforme seu ot server.

 

doSendMagicEffect(getThingPos(cid), 46)

doSendMagicEffect(getThingPos(cid), 83)

[robi123 13]

esse sitema ta cheio de bug