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 = 13957
local target = getCreatureTarget(cid)

if exhaustion.check(cid, storage) then
    doPlayerSendCancel(cid, "Aguarde 1.5 segundos para usar novamente")
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