local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_HITCOLOR, COLOR_BLUE)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, 9)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -140.0, 0, -130.5, 0)

local combat1 = createCombatObject()
setCombatParam(combat1, COMBAT_PARAM_HITCOLOR, COLOR_BLUE)
setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -140.0, 0, -130.5, 0)

local cond = createConditionObject(CONDITION_HASTE)
setConditionParam(cond, CONDITION_PARAM_TICKS, 1000)
setConditionParam(cond, CONDITION_PARAM_SPEED, 3000)
setConditionParam(cond, CONDITION_PARAM_SUBID, 22)
--addOutfitCondition(cond, t.look)


local function onCastSpell1(parameters)
    if isCreature(parameters.cid) then
        doCombat(parameters.cid, parameters.combat1, parameters.var)
    end
end

 function RandomMissille(cid,x)
    for f = 1, 1 do
            addEvent(function()
            if isCreature(cid) then
                local NewPos = {x = getCreaturePosition(cid).x + 1, y = getCreaturePosition(cid).y +1, z = getCreaturePosition(cid).z}
                local NewPos1 = {x = getCreaturePosition(cid).x - 1, y = getCreaturePosition(cid).y -1, z = getCreaturePosition(cid).z}
                local NewPos3 = {x = getCreaturePosition(cid).x + 1, y = getCreaturePosition(cid).y -1, z = getCreaturePosition(cid).z}
                local NewPos4 = {x = getCreaturePosition(cid).x - 1, y = getCreaturePosition(cid).y +1, z = getCreaturePosition(cid).z}




                doSendDistanceShoot(getCreaturePosition(cid), NewPos, x)
                addEvent(doSendDistanceShoot,250,NewPos, getCreaturePosition(cid), x)


                addEvent(doSendDistanceShoot,800,getCreaturePosition(cid), NewPos3, x)
                addEvent(doSendDistanceShoot,900,NewPos3, getCreaturePosition(cid), x)
                addEvent(doSendDistanceShoot,1100,getCreaturePosition(cid), NewPos4, x)
                addEvent(doSendDistanceShoot,1250,NewPos4, getCreaturePosition(cid), x)

                addEvent(doSendDistanceShoot,400,getCreaturePosition(cid), NewPos1, x)
                addEvent(doSendDistanceShoot,700,NewPos1, getCreaturePosition(cid), x)

            end
            end, 1 + ((f-1) * 200))
    end
end



function onCastSpell(cid, var)
local waittime = 1.5 -- Tempo de exhaustion
local storage = 1000600
local target = getCreatureTarget(cid)

if exhaustion.check(cid, storage) then
        if isPlayer(cid) then
		doPlayerSendCancel(cid, "Aguarde " .. exhaustion.get(cid, storage) .. " segundos para usar a spell novamente.")
	end
return false
end



doSendDistanceShoot(getCreaturePosition(cid), getCreaturePosition(target), 63)
RandomMissille(target,63)

for i = 1, 2 do
        addEvent(function()
            local random = math.random(1,100)
            if isCreature(cid) and isCreature(target) then
                if random >= 90 then
                    local PosTarget = {x = getCreaturePosition(target).x, y = getCreaturePosition(target).y, z = getCreaturePosition(target).z}
                    local PosPlayer = {x = getCreaturePosition(cid).x + 1 , y = getCreaturePosition(cid).y , z = getCreaturePosition(cid).z}
                    doSendMagicEffect(PosTarget, 385)
                    addEvent(doSendAnimatedText,100,getCreaturePosition(target), "Super", COLOR_WHITE)
                    doAddCondition(cid, cond)
                    doSendMagicEffect(PosPlayer, 76)
                    doCombat(cid, combat1, var)
                    end
                    doCombat(cid, combat, var)
            end
       end, 1 + ((i-1) * 200))
end
exhaustion.set(cid, storage, waittime)
return TRUE
end