local atk1 = createCombatObject()
local combat1 = createCombatObject()
setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE)
setCombatParam(combat1, COMBAT_PARAM_EFFECT, 202)
setCombatParam(combat1, COMBAT_PARAM_DISTANCEEFFECT, 93)
function kiaiho(cid, level, maglevel)
   local min = -(level * 4.5+ maglevel * 12 +50)
   local max = -(level * 4.5+ maglevel * 13 +50)
   return min, max
end
setCombatCallback(combat1, CALLBACK_PARAM_LEVELMAGICVALUE, "kiaiho")

arr1 = {
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},
{0, 0, 0, 0, 1, 2, 1, 0, 0, 0, 0},
{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
}

local area1 = createCombatArea(arr1)


setCombatArea(atk1, area1)

function onTargetTile(cid, pos)
	local n, i = getTileInfo(pos).creatures, 1
	if n ~= 0 then
	local v = getThingfromPos({x=pos.x, y=pos.y, z=pos.z, stackpos=i}).uid
	while v ~= 0 do
		i = i + 1
		v = getThingfromPos({x=pos.x, y=pos.y, z=pos.z, stackpos=i}).uid
		doCreatureSetNoMove(v, true)
		addEvent(doCreatureSetNoMove, 5000, v, false)
	end
end
	doCombat(cid,combat1,positionToVariant(pos))
end

setCombatCallback(atk1, CALLBACK_PARAM_TARGETTILE, "onTargetTile")
local function onCastSpell1(parameters)
doCombat(parameters.cid, atk1, parameters.var)
end


local storage = 80147
local spellname = "shooting around"
local time = 1

function onCastSpell(cid, var)
if exhaustion.check(cid, storage) == false then
exhaustion.set(cid, storage, time)
local parameters = { cid = cid, var = var}
return doCombat(parameters.cid, atk1, parameters.var)
else
doPlayerSendCancel(cid, "You have to wait " ..exhaustion.get(cid, storage).. " seconds before using "..spellname.." again.")
end
end