pedido colocar storage em spell

[bfs102030 0]

Ola galerinha gostaria de uma ajudinha aque pois nao achei nada que pudesse me ajudar aque neste forum e tambem em outros

 

eu tenho 5 spells em meu ot que eu gostaria que apenas players que fizessem x quest pudessem usal-as.

 

vou explicar como seria a quest...

bom seria uma quest onde teria 5 baus. E.em cada um deles seria uma spell diferente. porem em uma sala onde ficara os baus tera 2 baus com 2 spells diferentes e o player de vocacao paladin podera pegar as 2. lembrando que essas spells em meu server elas tem vocacao para usa-las, mas isso eu resolvo colocando no final da quest um teleport ou Tile para cada vocacao entrar.

 

entao resumindo meu pedido seria quando o player clicar no bau ganhar uma storage que seria a storage da spell..

abaixo segue as 5 spells que eu gostaria que tivesse as storages. mais lembrando que nao gostaria de mudar nada nas spells apenas acrecentar as storages para por em quest.

 

spells

 

 

Mas Exori Hur

local combat = createCombatObject()

setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

setCombatParam(combat, COMBAT_PARAM_EFFECT, 34)

setCombatParam(combat, COMBAT_PARAM_USECHARGES, true)

setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -9.5, -10, -10.9, -11)

local arr = {

{1, 1, 1},

{1, 1, 1},

{1, 1, 1},

{0, 1, 0},

{0, 3, 0},

{0, 0, 0},

}

local area = createCombatArea(arr)

setCombatArea(combat, area)

function onCastSpell(cid, var)

return doCombat(cid, combat, var)

end

---

Utevo Mort

function onTargetTile(cid, position)

position.stackpos = 255

doConvinceCreature(cid, doCreateMonster("headcaptor", position, false))

doSendMagicEffect(position, CONST_ME_MAGIC_BLUE)

return true

end

local arr = {

{1, 0, 1},

{0, 2, 0},

{1, 0, 1},

}

local removeTime = 1.0 --time to remove the clones

local function removeCreatures(cid, creature)

if isCreature(creature) == TRUE then

doRemoveCreature(creature)

end

end

function onTargetTile(cid, pos)

local creature = doSummonCreature("headcaptor", pos)

doCreatureAddMana(cid, -450)

doCreatureSay(creature, "Utevo Mort!!", TALKTYPE_ORANGE_1)

doConvinceCreature(cid, creature)

addEvent(removeCreatures, removeTime * 1000, cid, creature)

return true

end

local area, combat = createCombatArea(arr), createCombatObject()

setCombatArea(combat, area)

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)

setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

function onCastSpell(cid, var)

if #getCreatureSummons(cid) <= 0 then

return doCombat(cid, combat, var)

else

return doPlayerSendCancel(cid, "You can't summon more creatures.")

end

return false

end

---

Utevo Aura

function onTargetTile(cid, position)

position.stackpos = 255

doConvinceCreature(cid, doCreateMonster("protector", position, false))

doSendMagicEffect(position, CONST_ME_MAGIC_BLUE)

return true

end

local arr = {

{0, 0, 0},

{0, 2, 0},

{0, 1, 0},

}

local removeTime = 3 --time to remove the clones

local function removeCreatures(cid, creature)

if isCreature(creature) == TRUE then

doRemoveCreature(creature)

end

end

function onTargetTile(cid, pos)

local creature = doSummonCreature("Protector", pos)

doCreatureAddMana(cid, -1500)

doConvinceCreature(cid, creature)

addEvent(removeCreatures, removeTime * 6000, cid, creature)

return TRUE

end

local area, combat = createCombatArea(arr), createCombatObject()

setCombatArea(combat, area)

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)

setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

function onCastSpell(cid, var)

if #getCreatureSummons(cid) <= 0 then

return doCombat(cid, combat, var)

else

return doPlayerSendCancel(cid, "You can't summon more creatures.")

end

end

----

Utevo Rex

function onTargetTile(cid, position)

position.stackpos = 255

doConvinceCreature(cid, doCreateMonster("werewolf", position, false))

doSendMagicEffect(position, CONST_ME_MAGIC_BLUE)

return true

end

local arr = {

{0, 0, 0},

{0, 2, 0},

{0, 1, 0},

}

local area, combat = createCombatArea(arr), createCombatObject()

setCombatArea(combat, area)

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)

setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

function onCastSpell(cid, var)

if #getCreatureSummons(cid) <= 0 then

return doCombat(cid, combat, var)

else

return doPlayerSendCancel(cid, "You can't summon more creatures.")

end

end

---

Exori Stun

local combat = createCombatObject()

setCombatParam(combat, COMBAT_PARAM_TARGETCASTERORTOPMOST, true)

setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)

setCombatParam(combat, COMBAT_PARAM_BLOCKSHIELD, 1)

setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_STUN)

setCombatFormula(combat, COMBAT_FORMULA_SKILL, 0, 0, 1.0, 0)

function onCastSpell(cid, var)

local target = variantToNumber(var)

doTargetCombatCondition(0, target, exhausted, CONST_ME_MAGIC_RED)

local exhausted = createConditionObject(CONDITION_EXHAUST)

setConditionParam(exhausted, CONDITION_PARAM_TICKS,6000)

doCreatureSetNoMove(target, true)

addEvent(doCreatureSetNoMove, 6000, target, false)

return doCombat(cid, combat, var)

end

 

 

Editado Dezembro 27, 2015 por bfs102030

[PostadorHunter 99]

Mudei as duas primeiras spells

Consegue mudar o resto com o exemplo?

function onCastSpell(cid, var)
if getPlayerStorageValue(cid, sto) < 1 then
doPlayerSendCancel(cid,"voce nao pode usar esta spell")
else
return doCombat(cid, combat, var)

end

 

function onCastSpell(cid, var)

if getPlayerStorageValue(cid, sto) < 1 then
doPlayerSendCancel(cid,"voce nao pode usar essa spell")

elseif #getCreatureSummons(cid) <= 0 then

 

return doCombat(cid, combat, var)

 

else

 

return doPlayerSendCancel(cid, "You can't summon more creatures.")

 

end


end

Na primeira linha de cada spells vc coloca local sto = número da storage

Só precisa mudar aquele final da spells, q nem eu coloquei aqui

Se tiver algum erro foi mal, fiz no celular e já faz algum tempo que não mecho com tibia

Tu tbm quer o script do baú?

Amanhã tento fazer

[bfs102030 0]

amigo o problema jafoi resolvido agradeco mt. mais se puder me ajuda neste outro topico ficarei grato http://www.xtibia.com/forum/topic/238835-erro-script-loterry/