local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_ICEDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, 43)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -0, -10, -0, -10)
local condition = createConditionObject(CONDITION_HASTE)
setConditionParam(condition, CONDITION_PARAM_TICKS, 24000)
setConditionFormula(condition, 10.7, -156, 10.7, -156)
setCombatCondition(combat, condition)
arr = {
{0, 1, 0},
{1, 3, 1},
{0, 1, 0}
}
local area = createCombatArea(arr)
setCombatArea(combat, area)
local function m(parameters)
doCombat(parameters.cid, parameters.combat, parameters.var)
end
function onCastSpell(cid, var)
local delay = 1000
local seconds = 0
local parameters = { cid = cid, var = var, combat = combat }
repeat
addEvent(m, seconds, parameters)
seconds = seconds + delay
until seconds == 10000
end