--[[ Configuration ]]--

local barHeight = 5;
local barWidth = 50;
local barPosX = 40;	-- for HUD
local barPosY = 435; -- for HUD
local drawBarAsHUD = false;

--[[ ---------------------------- ]]--

dofile("sys/lua/hpBar/graphics.lua");
local hpBarImg = {};



if ( drawBarAsHUD ) then
	for i = 1, 32 do	-- Initialization
		hpBarImg[i] = {0, 0};
		hpBarImg[i][1] = DrawRect(0, 0, 0, 0, i, {0, 0, 0}, 2);
		hpBarImg[i][2] = DrawRect(0, 0, 0, 0, i, {0, 0, 0}, 2);
		imagealpha(hpBarImg[i][1], 0.4);
	end
	
	function DrawBar(id)
		if ( player(id, "exists") ) then
			local hpRatio, r, g, b;
			
			hpRatio = player(id, "health")/player(id, "maxhealth");
			
			r, g, b = ConvertHSVtoRGB(hpRatio*120, 1, 1);
			r = r*255;
			g = g*255;
			b = b*255;
			
			UpdateRect(hpBarImg[id][1], barPosX-1, barPosY-1, barWidth+2, barHeight+2, {200, 200, 200});
			UpdateRect(hpBarImg[id][2], barPosX, barPosY, hpRatio*barWidth, barHeight, {r, g, b});
		end
	end
else
	for i = 1, 32 do	-- Initialization
		hpBarImg[i] = {0, 0};
		hpBarImg[i][1] = DrawRect(0, 0, 0, 0, 0, {0, 0, 0}, 1);
		hpBarImg[i][2] = DrawRect(0, 0, 0, 0, 0, {0, 0, 0}, 1);
		imagealpha(hpBarImg[i][1], 0.4);
	end
	
	function DrawBar(id)
		if ( player(id, "exists") ) then
			if ( player(id, "health") > 0 ) then
				local x, y, hpRatio, r, g, b;
				
				hpRatio = player(id, "health")/player(id, "maxhealth");
				
				x = player(id, "x") - (barWidth/2);
				y = player(id, "y") - 50;
				
				r, g, b = ConvertHSVtoRGB(hpRatio*120, 1, 1);
				r = r*255;
				g = g*255;
				b = b*255;
				
				UpdateRect(hpBarImg[id][1], x-1, y-1, barWidth+2, barHeight+2, {200, 200, 200});
				UpdateRect(hpBarImg[id][2], x, y, hpRatio*barWidth, barHeight, {r, g, b});
				
				imagealpha(hpBarImg[id][1], 0.4);
				imagealpha(hpBarImg[id][2], 1.0);
			else
				imagealpha(hpBarImg[id][1], 0.0);
				imagealpha(hpBarImg[id][2], 0.0);
			end
		else
			imagealpha(hpBarImg[id][1], 0.0);
			imagealpha(hpBarImg[id][2], 0.0);
		end
	end
end

addhook("always", "DrawHPBars");
function DrawHPBars()
	for i = 1, 32 do
		DrawBar(i);
	end
end

function DrawRect(x,y,w,h,id,rgb,l)
	id = id or 0;
	l = l or 2;
	rgb = rgb or {255,255,255};
	local img = image("gfx/plot.bmp", x+(w/2), y+(h/2), l, id);
	imagescale(img, w, h);
	imagecolor(img, rgb[1], rgb[2], rgb[3]);
	return img;
end

function DrawLine(x,y,x2,y2,w,id,rgb,l)
	local angle = (math.atan2(y2-y, x2-y)*180/math.pi)%360;
	local dist = math.distance(x,y,x2,y2);

	id = id or 0;
	l = l or 2;
	w = w or 1;
	rgb = rgb or {255,255,255};
	local img = image("gfx/plot.bmp", x, y, l, id);
	imagescale(img, dist, w);
	imagepos(img, x+(dist/2), y+(dist/2), angle);
	imagecolor(img, rgb[1], rgb[2], rgb[3]);
	return img;
end

function UpdateRect(r, x, y, w, h, rgb)
	rgb = rgb or {255, 255, 255};
	imagepos(r, x+(w/2), y+(h/2), 0);
	imagescale(r, w, h);
	imagecolor(r, rgb[1], rgb[2], rgb[3]);
end

function ConvertHSVtoRGB(h,s,v)
	-- h should be from 0 to 360; s & v from 0 to 1
	local p1, p2, p3, i, f;
	local xh;

	if ( h == 360 ) then
		h = 0;
	end

	xh = h/60.0;
	i = math.floor(xh);
	f = xh - i;
	p1 = v * (1 - s);
	p2 = v * (1 - (s*f));
	p3 = v * (1 - (s * (1-f)));
	--print(i)
	if ( i == 0 ) then
		return v,p3,p1;
	end

	if ( i == 1 ) then
		return p2,v,p1;
	end

	if ( i == 2 ) then
		return p1,v,p3;
	end

	if ( i == 3 ) then
		return p1,p2,v;
	end

	if ( i == 4 ) then
		return p3,p1,v;
	end

	if ( i == 5 ) then
		return v,p1,p2;
	end
end