local combat = Combat()
combat:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
combat:setParameter(COMBAT_PARAM_AGGRESSIVE, false)
combat:setParameter(COMBAT_PARAM_EFFECT, 6)
combat:setParameter(COMBAT_PARAM_CREATEITEM, 1489)
local condition = Condition(CONDITION_HASTE)
condition:setParameter(CONDITION_PARAM_TICKS, 33000)
condition:setFormula(0.9, -72, 0.9, -72)
combat:addCondition(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