xTibia

.com
BF
pedido

colocar storage em spell

Por bfs102030, 27 de dez. de 2015 em Scripts

spell storage
3
1.5k
bfs102030B
27 de dezembro de 2015 às 17:30

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 por bfs102030

1 mês depois...
PostadorHunterP
17 de janeiro de 2016 às 02:50

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

bfs102030B
17 de janeiro de 2016 às 03:41

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/