Não sei, é só um chute mas vê se funciona O_O
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, 682000)
setConditionFormula(condition, 0.4, -24, 0.4, -24)
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
if isPlayer(cid) then
addEvent(fire, seconds, parameters)
seconds = seconds + delay
end
until seconds == 682000
end