[Ajuda]Magia Edited

[Baiakuda 3]

Tipo do script: Spells / lib

Protocolo (versão do Tibia): 8.54 à 8.57

Servidor utilizado: Styller Yurots

Nível de experiência: Alto

Adicionais/Informações: Bom como diz o titulo presiso de um scrip sobre uma magia editada, bom resumindo ... gostaria de pedir um script no qual fosse bem parecido com o "EXEVO GRAN MAS VIS" porem para paladins e no lugar das nuvens e dos raios gostaria que caisse varias SPEARS ENCANTADAS do alto, tem como ?

 

Agradeçido!

Editado Setembro 23, 2010 por Baiakuda

[00D 2]

Tem sim, já faço uma edições aqui e te passo.

 

 

local combat = createCombatObject()

 

local meteor = createCombatObject()

setCombatParam(meteor, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

setCombatParam(meteor, COMBAT_PARAM_EFFECT, CONST_ME_FIREAREA)

 

combat_arr = {

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},

{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},

{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

{1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1},

{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},

{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},

{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}

}

 

local combat_area = createCombatArea(combat_arr)

setCombatArea(combat, combat_area)

 

function getSpellDamage1(cid, lv)

local formula_min = -((lv*0.25 + maglv*3) * 5.0)

local formula_max = -((lv*0.25 + maglv*3) * 5.6)

 

if(formula_max < formula_min) then

local tmp = formula_max

formula_max = formula_min

formula_min = tmp

end

return formula_min, formula_max

end

 

setCombatCallback(meteor, CALLBACK_PARAM_SKILLVALUE, "getSpellDamage1")

 

 

local function meteorCast(p)

doCombat(p.cid, p.combat, positionToVariant(p.pos))

end

 

function onTargetTile(cid, pos)

if (math.random(0, 1) == 1) then

local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z}

doSendDistanceShoot(newpos, pos, CONST_ANI_ENCHANTEDSPEAR)

addEvent(meteorCast, 200, {cid = cid,pos = pos, combat = meteor})

end

end

end

 

setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

 

function onCastSpell(cid, var)

return doCombat(cid, combat, var)

end

 

 

O tipo de dano.

O efeito ao atingir alguém.

O efeito da "chuva".

 

Tá aí (não testei)

Mas acho que funciona, caso nao, poste aqui que verifico. (:

Editado Novembro 24, 2010 por Diego00D

[O Caipora 36]

Deu um erro na spell do Diego, e o dano também está com erro. Editei a spell dele, se você quiser pode usar, eu não consegui resolver o problema do script do Diego porque não conheço de spell.

Créditos: Diego00D

 

Spells.XML

 

        <instant name="Tempestade de Spears" words="exevo gran mas con" lvl="35" mana="585" prem="0" blockwalls="1" exhaustion="2000" needlearn="0" script="attack/spearstorm.lua">
        <vocation id="3"/> - Paladin
         <vocation id="7"/> - Royal Paladin
 </instant>

 

Spearstorm.LUA

 

local combat = createCombatObject()

local meteor = createCombatObject()
setCombatParam(meteor, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(meteor, COMBAT_PARAM_EFFECT, CONST_ME_BLOCKHIT)
setAttackFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 5, 5, 5, 12)

combat_arr = {
{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},
{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},
{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},
{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},
{1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1},
{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},
{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},
{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},
{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}
}

local combat_area = createCombatArea(combat_arr)
setCombatArea(combat, combat_area)

local function meteorCast(p)
doCombat(p.cid, p.combat, positionToVariant(p.pos))
end

function onTargetTile(cid, pos)
if (math.random(0, 1) == 1) then
local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z}
doSendDistanceShoot(newpos, pos, CONST_ANI_ENCHANTEDSPEAR)
addEvent(meteorCast, 200, {cid = cid,pos = pos, combat = meteor})
end
end

setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

function onCastSpell(cid, var)
return doCombat(cid, combat, var)
end

Editado Novembro 24, 2010 por XxXHiagoXxX