SPELL_ID = 00
local min = 0
local max = 0

-- =============== COMBAT VARS ===============
-- Areas/Combat for 100ms
local combat1_Brush = createCombatObject()
setCombatParam(combat1_Brush, COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE)
setCombatParam(combat1_Brush, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE)
setCombatArea(combat1_Brush,createCombatArea({{2, 1},
{1, 0}}))
function getDmg_Brush(cid, level, maglevel)

    return -min, -max
end
setCombatCallback(combat1_Brush, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_Brush")

-- Areas/Combat for 0ms
local combat0_Brush = createCombatObject()
setCombatParam(combat0_Brush, COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE)
setCombatParam(combat0_Brush, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE)
setCombatArea(combat0_Brush,createCombatArea({{2, 0},
{0, 1}}))
function getDmg_Brush(cid, level, maglevel)

    return -min, -max
end
setCombatCallback(combat0_Brush, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_Brush")

-- Areas/Combat for 200ms
local combat2_Brush = createCombatObject()
setCombatParam(combat2_Brush, COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE)
setCombatParam(combat2_Brush, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE)
setCombatArea(combat2_Brush,createCombatArea({{0, 0, 1},
{0, 2, 0},
{1, 0, 0}}))
function getDmg_Brush(cid, level, maglevel)

    return -min, -max
end
setCombatCallback(combat2_Brush, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_Brush")

-- Areas/Combat for 300ms
local combat3_Brush = createCombatObject()
setCombatParam(combat3_Brush, COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE)
setCombatParam(combat3_Brush, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE)
setCombatArea(combat3_Brush,createCombatArea({{0, 1},
{1, 2}}))
function getDmg_Brush(cid, level, maglevel)

    return -min, -max
end
setCombatCallback(combat3_Brush, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_Brush")

-- Areas/Combat for 400ms
local combat4_Brush = createCombatObject()
setCombatParam(combat4_Brush, COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE)
setCombatParam(combat4_Brush, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE)
setCombatArea(combat4_Brush,createCombatArea({{1, 0},
{0, 2}}))
function getDmg_Brush(cid, level, maglevel)

    return -min, -max
end
setCombatCallback(combat4_Brush, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_Brush")

-- =============== CORE FUNCTIONS ===============
local function RunPart(c,cid,var,dirList,dirEmitPos) -- Part
	if (isCreature(cid)) then
		doCombat(cid, c, var)
		if (dirList ~= nil) then -- Emit distance effects
			local i = 2;
			while (i < #dirList) do
				doSendDistanceShoot(dirEmitPos,{x=dirEmitPos.x-dirList[i],y=dirEmitPos.y-dirList[i+1],z=dirEmitPos.z},dirList[1])
				i = i + 2
			end		
		end
	end
end
function checkSpell43(cid)
	local GUN_ID = cid:getStorageValue(_SYSTEM.INVENTARIO[04].UID_01)
	local CHECK_SLOT_01 = cid:getStorageValue(_SYSTEM.INVENTARIO[04].UID_04)
	local CHECK_SLOT_02 = cid:getStorageValue(_SYSTEM.INVENTARIO[04].UID_05)
	local CHECK_SLOT_03 = cid:getStorageValue(_SYSTEM.INVENTARIO[04].UID_06)
	SPELL_ID = 43
	
	if GUN_ID > 0 then
		if CHECK_SLOT_01 == SPELL_ID then
			cid:sendCancelMessage("@SpellCooldown 01")
			return true
		elseif CHECK_SLOT_02 == SPELL_ID then
			cid:sendCancelMessage("@SpellCooldown 02")
			return true
		elseif CHECK_SLOT_03 == SPELL_ID then
			cid:sendCancelMessage("@SpellCooldown 03")
			return true
		else
			return false
		end
	else
		return false
	end
end
function onCastSpell(cid, var)
	if checkSpell43(cid)  or cid:getGroup():getAccess() then
		local startPos = getCreaturePosition(cid)
		local GUN_ID = cid:getStorageValue(_SYSTEM.INVENTARIO[04].UID_01)
		local starGun = cid:getStorageValue(_SYSTEM.INVENTARIO[04].UID_03)
		local levelGun = cid:getStorageValue(_SYSTEM.INVENTARIO[04].UID_07)
		min = onDamage(cid, GUN_ID, levelGun, starGun, "SKILL_MIN", SPELL_ID)
		max = min
		addEvent(RunPart,100,combat1_Brush,cid.uid,var)
		RunPart(combat0_Brush,cid,var)
		addEvent(RunPart,200,combat2_Brush,cid.uid,var)
		addEvent(RunPart,300,combat3_Brush,cid.uid,var)
		addEvent(RunPart,400,combat4_Brush,cid.uid,var)
		return true
	else
		cid:getPosition():sendMagicEffect(03)
		return false
	end
end