Systema De Pets

Postado Abril 22, 2013 12 anos

Ola Galera Sou Novo No Tk Mais Venho Aprezentar Um Systema de Pet Qui Eu Fis

Bom ele e Feito por Actions Vamos lá

Primeiro Vana pasta do ot data\actions\scripts

Crie Um Arquivo Chamado Pets Cole isso Dentro

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

storage = 4191
storsol = 1203
if #getCreatureSummons(cid) > 1 then
doPlayerSendCancel(cid,"Your Demonio is already summoned.")
end

if getPlayerStorageValue(cid,storsol) == 1 then
local z = getCreatureSummons(cid)[1]
addEvent(setPlayerStorageValue,100,cid,storsol,-1)
doPlayerSay(cid,"Back my summon!",TALKTYPE_ORANGE_1)
doSendMagicEffect(getCreaturePosition(z), 2)
doSendDistanceShoot(getCreaturePosition(z), getPlayerPosition(cid), 3)
doRemoveCreature(z)
end

local summons = getCreatureSummons(cid)

local pet = {
["Rotworm"] = {1,10},
["Minotaur"] = {11,15},
["Dwarf Soldier"] = {16,19},
["Minotaur Guard"] = {20,25},
["Dragon Hatchling"] = {26,32},
["Dragon"] = {33,45},
["Giant Spider"] = {46,55},
["Dragon Lord"] = {56,120},
["Grim Reaper"] = {121,160},
["Ghastly Dragon"] = {161,200},
["Undead Dragon"] = {201,300},
["Mutated Human"] = {301,456}
}

for k,v in pairs(pet) do -- 1

if getPlayerStorageValue(cid,storsol) < 1 then
if getPlayerLevel(cid) >= v[1] and getPlayerLevel(cid) < v[2] then -- 2
if (table.maxn(summons) < 1)then -- 3
x = doSummonCreature(k, getCreaturePosition(cid))
doConvinceCreature(cid, x)
setPlayerStorageValue(cid,4194,1)
setPlayerStorageValue(cid,storsol,1)
doCreatureSay(cid, k ..", go!", TALKTYPE_ORANGE_1)
doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 2)
end
end
end
end
return true
end