--core functions
function table_array(count, value)
	local l_table = {};	

	for i = 1, count do
		l_table[i] = value;
	end

	return l_table;
end

--global variables
g_hf_cd = table_array(32, 0); --variable to store cooldowns for every player

--constants
g_const_hf_cd = 10; --cooldown in seconds (used to set g_hf_cd on successfull hf cast.)

--hooks
addhook("second", "void_second");

--functions
function void_second()
	for i = 1, 32 do
		if (g_hf_cd[i] > 0) then
			g_hf_cd[i] = g_hf_cd[i] - 1; --decrease cooldown every second for every player
		end
	end
end

function bool_cast_hf(id)
	if (g_hf_cd[id] > 0) then 
		return false; --skip following code when still on cooldown
	end

	--
	-- your hellfire code here
	--

	g_hf_cd[id] = g_const_hf_cd;

	return true;
end

--core functions
function table_array(count, value)
	local l_table = {};	

	for i = 1, count do
		l_table[i] = value;
	end

	return l_table;
end

--global variables
g_hf_cd = table_array(32, 0); --variable to store cooldowns for every player

--constants
g_const_hf_cd = 10; --cooldown in seconds (used to set g_hf_cd on successfull hf cast.)

--hooks
addhook("second", "void_second");
addhook("say", "int_say");

--functions
function void_second()
	for i = 1, 32 do
		if (g_hf_cd[i] > 0) then
			g_hf_cd[i] = g_hf_cd[i] - 1; --decrease cooldown every second for every player
		end
	end
end


--takes: id of player who casts
--returns :	 0 - Success
--			1 - Still on cooldown
--			2 - Not enough money
function int_cast_hf(id)
	if (g_hf_cd[id] > 0) then 
		return 1; --skip following code when still on cooldown
	end

	if (sample.classes.class[id] == 8 and player(id,"money") >= 16000) then
		return 2; --skip following code when: money is not 16000 or class != 8
	end
   
	expl1(id);
	timer (500,"expl2", id);
	timer(500,"expl3", id);
	
	parse ("setmoney "..id.." 0");
	g_hf_cd[id] = g_const_hf_cd;

	return 0;
end

function int_say(id, txt)
	if (txt == "!spell1") then
		local l_switch = int_cast_hf(id);
			msg2();
		if (l_switch == 1) then
			msg2(id, "The spell is still on cooldown.")
		elseif (l_switch == 2) then
			msg2(id, "You do not have enough moniez!")
		end
		
		return 1; --do not show msg
	end
	
	return 0;
end

--garbage code : unformatted & not tqs
function expl1(id)
x=player(id,"x")
y=player(id,"y")
for ix = -1,1 do
for iy = -1,1 do
if ix ~= 0 or iy ~= 0 then
parse("explosion "..(x + ix * 64).." "..(y + iy * 64).." 125 75 "..id)
end
end
end 
end
                    
function expl2(id)
x=player(id,"x")
y=player(id,"y")
for ix = -1,1 do
for iy = -1,1 do
if ix ~= 0 or iy ~= 0 then
           parse("explosion "..(x + ix * 128).." "..(y + iy * 128).." 125 75 "..id)
end
end
end 
end

function expl3(id)
x=player(id,"x")
y=player(id,"y")
for ix = -1,1 do
for iy = -1,1 do
if ix ~= 0 or iy ~= 0 then
           parse("explosion "..(x + ix * 256).." "..(y + iy * 256).." 125 75 "..id)
end
end
end 
end