function onUse(cid, item, frompos, item2, topos)
if getTilePzInfo(getCreaturePosition(cid)) == TRUE thendoPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce Nao Pode Usar Enquanto Estiver Em Protect Zone.")return trueendif (getPlayerStorageValue(cid, 11548) >= os.time()) thendoPlayerSendTextMessage(cid, 6,"Por medidas de segurança você só pode utilizar este comando em " ..(getPlayerStorageValue(cid, 11548)-os.time()+(0)) .. " segundos.")return TRUEendstorage = 4191storsol = 1203if #getCreatureSummons(cid) > 1 thendoPlayerSendCancel(cid,"Your Demonio is already summoned.")endif getPlayerStorageValue(cid,storsol) == 1 thenlocal 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)endlocal summons = getCreatureSummons(cid)local pet = {["Bug"] = {1,250},["Death Blob"] = {251,1500},["Worker golem"] = {1501,5000},["werewolf"] = {5001,9999},["Mercury Blob"] = {10000,15000},["Flufly"] = {15001,23000},["haunted treeling"] = {23001,30000},["Vampire Bride"] = {30001,40000},["Grim Reaper"] = {40001,55000},["Zombie"] = {55001,80000},["Azure Frog"] = {80001,400000}}for k,v in pairs(pet) do -- 1if getPlayerStorageValue(cid,storsol) < 1 thenif getPlayerLevel(cid) >= v[1] and getPlayerLevel(cid) < v[2] then -- 2if (table.maxn(summons) < 1)then -- 3x = doSummonCreature(k, getCreaturePosition(cid))doConvinceCreature(cid, x)setPlayerStorageValue(cid,4194,1)setPlayerStorageValue(cid,11548,os.time()+30)setPlayerStorageValue(cid,storsol,1)doCreatureSay(cid, k ..", go!", TALKTYPE_ORANGE_1)doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 2)endendendreturn trueendKttallan o one shot fez o script primeiro que você, mais obrigado mesmo assim, vou te dar um rep+ quando puder
esse outro spoiler é um sistema de clone, ele é mods, sempre que eu mato o clone aparece 1 erro no distro na parte de remover, aparece um erro dizendo que o monstro nao esta vivo para remover.... teria como vc remover esse erro? ou tirar a funçao remover summon desse script? obrigado, agradeço desde ja!
e se possivel tambem colokar para só 1 classe especifica usar o script nossa ajudaria muitoooooooo muito mesmo! vlw *-*
<?xml version="1.0" encoding="iso-8859-1"?><mod name="Clone System" version="1.0" author="Draky Lucas" contact="XTibia" enabled="yes"><config name="configuracao_clone"><![CDATA[config = {tempo = 5*60*1000, -- em milisegundos, pra remover o clone (está 2 minutos)name = "Clone", -- nao mechamana = 2000000, -- mana que precisa pra sumonar}function sumonar(cid,name)doPlayerAddMana(cid,-config.mana)doPlayerSendTextMessage(cid,19,"Seu clone sera removido em 5 minutos")local summon = doSummonCreature(name,getCreaturePosition(cid))doSetCreatureOutfit(summon, getCreatureOutfit(cid), -1)doChangeSpeed(summon,-getCreatureSpeed(summon) + getCreatureBaseSpeed(cid))setCreatureMaxHealth(summon,getCreatureMaxHealth(cid))doCreatureAddHealth(summon,-getCreatureHealth(summon) + getCreatureHealth(cid))doConvinceCreature(cid,summon)registerCreatureEvent(cid,"clone")registerCreatureEvent(cid,"clonecombat")registerCreatureEvent(cid,"cloneoutfit")addEvent(removerclone,config.tempo,cid)endfunction removerclone(cid)if not isCreature(cid) then return true endif #getCreatureSummons(cid) > 0 thenif getCreatureName(getCreatureSummons(cid)[1]) == config.name thendoRemoveCreature(getCreatureSummons(cid)[1])doPlayerSendTextMessage(cid,19,"Seu clone foi descansar!")endendunregisterCreatureEvent(cid,"clone")unregisterCreatureEvent(cid,"clonecombat")unregisterCreatureEvent(cid,"cloneoutfit")return trueend]]></config><talkaction words="/clone" event="buffer"><![CDATA[domodlib("configuracao_clone")if #getCreatureSummons(cid) >= 1 thenreturn doPlayerSendCancel(cid,"voce nao pode ter summons para se clonar")endif getTilePzInfo(getCreaturePosition(cid)) thenreturn doPlayerSendCancel(cid,"Voce nao pode se clonar em protection zone!")endif getPlayerMana(cid) < config.mana thenreturn doPlayerSendCancel(cid,"Voce precisa de ".. config.mana .. " de mana para se clonar!")endsumonar(cid,config.name)]]></talkaction><event type="statschange" name="clone" event="buffer"><![CDATA[domodlib('configuracao_clone')-- function onStatsChange(cid, attacker, type, combat, value)if #getCreatureSummons(cid) < 1 or getCreatureName(getCreatureSummons(cid)[1]) ~= config.name thenunregisterCreatureEvent(cid,"clone")unregisterCreatureEvent(cid,"clonecombat")unregisterCreatureEvent(cid,"cloneoutfit")return trueendif type == STATSCHANGE_HEALTHGAIN thendoTargetCombatHealth(cid, getCreatureSummons(cid)[1], combat, value, value, 12)end-- return true-- end]]></event><event type="combat" name="clonecombat" event="buffer"><![CDATA[domodlib('configuracao_clone')-- function onCombat(cid,target)if #getCreatureSummons(cid) < 1 or getCreatureName(getCreatureSummons(cid)[1]) ~= config.name thenunregisterCreatureEvent(cid,"clone")unregisterCreatureEvent(cid,"clonecombat")unregisterCreatureEvent(cid,"cloneoutfit")return trueendif target ~= cid thenregisterCreatureEvent(target, "clonestats")end-- return true-- end]]></event><event type="statschange" name="clonestats" event="buffer"><![CDATA[domodlib('configuracao_clone')-- function onStatsChange(cid, attacker, type, combat, value)if type == STATSCHANGE_HEALTHLOSS and #getCreatureSummons(attacker) > 0 and getCreatureName(getCreatureSummons(attacker)[1])== config.name thenreturn doTargetCombatHealth(getCreatureSummons(attacker)[1], cid, combat, -value, -value, 3)end-- return true-- end]]></event><event type="outfit" name="cloneoutfit" event="script"><![CDATA[domodlib('configuracao_clone')if #getCreatureSummons(cid) < 1 or getCreatureName(getCreatureSummons(cid)[1]) ~= config.name thenunregisterCreatureEvent(cid,"clone")unregisterCreatureEvent(cid,"clonecombat")unregisterCreatureEvent(cid,"cloneoutfit")elsedoSetCreatureOutfit(getCreatureSummons(cid)[1], current, -1)endreturn true]]></event></mod>
eu fiz um novo akele sistema que vocé pediu via talkaction
vá em data/talkaction/scripter , crie um arquivo lua é coloque isso dentro
function onSay(cid, words, param)
local vocation = 1 -- id da vocation
pet = {
monster = "Demon", Level = 50,
monster = "NomePET", Level = LevelPlayer
}
if getCreatureSummons(cid) > os.time () then
doPlayerSendCancel(cid, "Espere Um Tempinho Para Resumonar o monster")
return TRUE
end
if isPlayerPzLocked(cid) then
doPlayerSendCancel(cid, "Vocé Estar Em Pez Zone Saia Dai Para Sumonar Seu Monster")
return TRUE
end
if not param or param == "" or #param < 1 then
doPlayerSendTextMessage(cid, 20, "[Pet Sistema] Pet Disponiveis são:")
for a, b in pairs(pet) do
doPlayerSendTextMessage(cid, 20, "- "..b.."")
end
return true
end
if param and not isInArray(cfg, param) then
doPlayerSendTextMessage(cid, 20, "[Pet Sistema] Não há esse pet aki")
return true
end
if getPlayerVocation(cid) == vocation then
doPlayerSendCancel(cid, "Vocé Não Tem a Vocation Correta")
return true
end
if getPlayerLevel(cid) >= pet.level then
doPlayerSendTextMessage(cid, 20, "Olhe o seu mascote é ["..param.."].")
doSummonMonster(pet.monster, getThingPos(cid), os.time () + 50)
end
return true
end
Configurando :
doSummonMonster(pet.monster, getThingPos(cid), os.time () + 50) aonde estar o 50 é o tempo em segundos que poderar sumonar entendeu
tenta aew é me meder resultado sobre o clone vou ver não sei mexer com mod.
Mod tenta esse mais não confirmo se pegou.
<?xml version="1.0" encoding="iso-8859-1"?>
<mod name="Clone System" version="1.0" author="Draky Lucas" contact="XTibia" enabled="yes">
<config name="configuracao_clone"><![CDATA[
config = {
name = "Clone", -- nao mecha
mana = 2000000, -- mana que precisa pra sumonar
}
function sumonar(cid,name)
doPlayerAddMana(cid,-config.mana)
doPlayerSendTextMessage(cid,19,"Seu clone sera removido em 5 minutos")
local summon = doSummonCreature(name,getCreaturePosition(cid))
doSetCreatureOutfit(summon, getCreatureOutfit(cid), -1)
doChangeSpeed(summon,-getCreatureSpeed(summon) + getCreatureBaseSpeed(cid))
setCreatureMaxHealth(summon,getCreatureMaxHealth(cid))
doCreatureAddHealth(summon,-getCreatureHealth(summon) + getCreatureHealth(cid))
doConvinceCreature(cid,summon)
registerCreatureEvent(cid,"clone")
registerCreatureEvent(cid,"clonecombat")
registerCreatureEvent(cid,"cloneoutfit")
end
unregisterCreatureEvent(cid,"clone")
unregisterCreatureEvent(cid,"clonecombat")
unregisterCreatureEvent(cid,"cloneoutfit")
return true
end
]]></config>
<talkaction words="/clone" event="buffer"><![CDATA[
domodlib("configuracao_clone")
if #getCreatureSummons(cid) >= 1 then
return doPlayerSendCancel(cid,"voce nao pode ter summons para se clonar")
end
if getTilePzInfo(getCreaturePosition(cid)) then
return doPlayerSendCancel(cid,"Voce nao pode se clonar em protection zone!")
end
if getPlayerMana(cid) < config.mana then
return doPlayerSendCancel(cid,"Voce precisa de ".. config.mana .. " de mana para se clonar!")
end
sumonar(cid,config.name)
]]></talkaction>
<event type="statschange" name="clone" event="buffer"><![CDATA[
domodlib('configuracao_clone')
-- function onStatsChange(cid, attacker, type, combat, value)
if #getCreatureSummons(cid) < 1 or getCreatureName(getCreatureSummons(cid)[1]) ~= config.name then
unregisterCreatureEvent(cid,"clone")
unregisterCreatureEvent(cid,"clonecombat")
unregisterCreatureEvent(cid,"cloneoutfit")
return true
end
if type == STATSCHANGE_HEALTHGAIN then
doTargetCombatHealth(cid, getCreatureSummons(cid)[1], combat, value, value, 12)
end
-- return true
-- end
]]></event>
<event type="combat" name="clonecombat" event="buffer"><![CDATA[
domodlib('configuracao_clone')
-- function onCombat(cid,target)
if #getCreatureSummons(cid) < 1 or getCreatureName(getCreatureSummons(cid)[1]) ~= config.name then
unregisterCreatureEvent(cid,"clone")
unregisterCreatureEvent(cid,"clonecombat")
unregisterCreatureEvent(cid,"cloneoutfit")
return true
end
if target ~= cid then
registerCreatureEvent(target, "clonestats")
end
-- return true
-- end
]]></event>
<event type="statschange" name="clonestats" event="buffer"><![CDATA[
domodlib('configuracao_clone')
-- function onStatsChange(cid, attacker, type, combat, value)
if type == STATSCHANGE_HEALTHLOSS and #getCreatureSummons(attacker) > 0 and getCreatureName(getCreatureSummons(attacker)[1])== config.name then
return doTargetCombatHealth(getCreatureSummons(attacker)[1], cid, combat, -value, -value, 3)
end
-- return true
-- end
]]></event>
<event type="outfit" name="cloneoutfit" event="script"><![CDATA[
domodlib('configuracao_clone')
if #getCreatureSummons(cid) < 1 or getCreatureName(getCreatureSummons(cid)[1]) ~= config.name then
unregisterCreatureEvent(cid,"clone")
unregisterCreatureEvent(cid,"clonecombat")
unregisterCreatureEvent(cid,"cloneoutfit")
else
doSetCreatureOutfit(getCreatureSummons(cid)[1], current, -1)
end
return true
]]></event>
</mod>








info
Grupo: Visconde
Registrado: 11/04/12
Posts: 328
Reputação: +7
Char no Tibia: ADM MiHawk
function onUse(cid, item, frompos, item2, topos)
Kttallan o one shot fez o script primeiro que você, mais obrigado mesmo assim, vou te dar um rep+ quando puder
esse outro spoiler é um sistema de clone, ele é mods, sempre que eu mato o clone aparece 1 erro no distro na parte de remover, aparece um erro dizendo que o monstro nao esta vivo para remover.... teria como vc remover esse erro? ou tirar a funçao remover summon desse script? obrigado, agradeço desde ja!
e se possivel tambem colokar para só 1 classe especifica usar o script nossa ajudaria muitoooooooo muito mesmo! vlw *-*