[Spell] Spared Hur

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)
setCombatParam(combat, COMBAT_PARAM_EFFECT, 36)
setCombatParam(combat, COMBAT_PARAM_CREATEITEM, 1494)
local condition = createConditionObject(CONDITION_HASTE)
setConditionParam(condition, CONDITION_PARAM_TICKS, 22000)
setConditionFormula(condition, 10.7, -156, 10.7, -156)
setCombatCondition(combat, condition)
local function fire(parameters)
doCombat(parameters.cid, parameters.combat, parameters.var)
end
function onCastSpell(cid, var)
    local delay = 100
    local seconds = 0
    local parameters = { cid = cid, var = var, combat = combat }
    repeat
        addEvent(fire, seconds, parameters)
        seconds = seconds + delay
    until seconds == 22000
end

<instant name="spared" words="spared hur" lvl="95" mana="160" prem="1" aggressive="0" selftarget="1" exhaustion="2000" needlearn="0" script="support/sped.lua">
                <vocation name="Sorcerer"/>
                <vocation name="Druid"/>
                <vocation name="Paladin"/>
                <vocation name="Knight"/>
                <vocation name="Master Sorcerer"/>
                <vocation name="Elder Druid"/>
                <vocation name="Royal Paladin"/>
                <vocation name="Elite Knight"/>
        </instant>