-- Shitty TicTacToe by Derpy Lermer

local MAIN_WINDOW_X, MAIN_WINDOW_Y = 1000, 500;
local BOARD_SIZE = 3;
local BOX_SIZE = 100;
local BOX_OFSET_X = 100;
local BOX_OFSET_Y = 100;
local is_dragging, is_placing = false;
local dragging_offset_x, dragging_offset_y;
local CenterX, CenterY;
local XorO = 0;
local MRPD;
local Xcount, Ocount;
local MAIN_FONT = draw.CreateFont("Tahoma", 15, 15);
local WIN_FONT = draw.CreateFont("Tahoma", 60, 60);
local Win;
local BOT_ENABLE = true;
local Turns;

-- initialise board
local Board = {}
	Turns = 0;
	for f=1, 3 do
    Board[f] = {}
    for g=1, 3 do
        Board[f][g] = 0
    end
end

function CheckWin()
	Win = 0;
	for t = 1,2,1 do
		-- check horisontal rows
		for i = 1,3,1 do
			if (Board[i][1] == t) then
				if (Board[i][2] == t) then
					if (Board[i][3] == t) then
						Win = t;
					end
				end
			end
		end
		-- Vertical stuf
		for u = 1,3,1 do
			if (Board[1][u] == t) then
				if (Board[2][u] == t) then
					if (Board[3][u] == t) then
						Win = t;
					end
				end
			end
		end
		-- diagonal top left to b right
		if (Board[1][1] == t) then
			if (Board[2][2] == t) then
				if (Board[3][3] == t) then
					Win = t;
				end
			end
		end
		-- top right to b left
		if (Board[1][3] == t) then
			if (Board[2][2] == t) then
				if (Board[3][1] == t) then
					Win = t;
				end
			end
		end


	end
	-- if win is x or o
	if (Win == 1 or Win == 2) then
		draw.SetFont(WIN_FONT);
		if (Win == 1) then
			draw.Color(gui.GetValue("clr_gui_window_logo1"));
			draw.Text(0, 0, "X Has Won, Press Clear To Restart");
		end
		if (Win == 2) then
			draw.Color(gui.GetValue("clr_gui_window_logo1"));
			draw.Text(0, 0, "O Has Won, Press Clear To Restart");
		end
	end
end



function DrawMainBox()
	draw.SetFont(MAIN_FONT);
	-- main 3x3 box
	for i = 0, 2, 1 do
		draw.FilledRect( MAIN_WINDOW_X , MAIN_WINDOW_Y + ( BOX_OFSET_Y * i) , (MAIN_WINDOW_X + BOX_SIZE), (MAIN_WINDOW_Y + BOX_SIZE + ( BOX_OFSET_Y * i)));
		draw.FilledRect((MAIN_WINDOW_X + BOX_OFSET_X) , MAIN_WINDOW_Y + ( BOX_OFSET_Y * i), (MAIN_WINDOW_X + BOX_OFSET_X + BOX_SIZE), (MAIN_WINDOW_Y + BOX_SIZE + ( BOX_OFSET_Y * i)));
		draw.FilledRect((MAIN_WINDOW_X + BOX_OFSET_X * 2), MAIN_WINDOW_Y + ( BOX_OFSET_Y * i), (MAIN_WINDOW_X + BOX_OFSET_X * 2 + BOX_SIZE), (MAIN_WINDOW_Y + BOX_SIZE + ( BOX_OFSET_Y * i)));
	end

	-- lines inbetween 3x3 box horisontal
	for x = 0,3,1 do
		draw.Color(gui.GetValue("clr_gui_window_header"));
		draw.Line(MAIN_WINDOW_X + (BOX_OFSET_X * x), MAIN_WINDOW_Y, MAIN_WINDOW_X + (BOX_OFSET_X * x) , MAIN_WINDOW_Y + 300);
	end

	-- lines inbetween vertcal
	for x = 0,3,1 do
		draw.Color(gui.GetValue("clr_gui_window_header"));
		draw.Line(MAIN_WINDOW_X , MAIN_WINDOW_Y + (BOX_OFSET_Y * x) , MAIN_WINDOW_X +300 , MAIN_WINDOW_Y + (BOX_OFSET_Y * x));
	end

	-- Header to move it
	local HEADER_WIDTH = BOARD_SIZE * BOX_SIZE;
	local HEADER_HEIGHT = 20;
	draw.Color(gui.GetValue("clr_gui_window_header"));
	draw.FilledRect(MAIN_WINDOW_X, MAIN_WINDOW_Y - HEADER_HEIGHT, MAIN_WINDOW_X + HEADER_WIDTH, MAIN_WINDOW_Y );

	local mouse_x, mouse_y = input.GetMousePos();
	local left_mouse_down = input.IsButtonDown(1);
	-- cpp from ShadyRetard
	if (is_dragging == true and left_mouse_down == false) then
        is_dragging = false;
        dragging_offset_x = 0;
        dragging_offset_y = 0;
    end
	if (left_mouse_down == true) then
        dragHandler(HEADER_HEIGHT);
    end

	if(is_placing == true and left_mouse_down == false) then
		is_placing = flase;
	end

	if(mouse_x >= MAIN_WINDOW_X and mouse_x <= MAIN_WINDOW_X + 300 and mouse_y >= MAIN_WINDOW_Y and mouse_y <= MAIN_WINDOW_Y + 300) then
		PlaceHandler();
	end

	if(mouse_x >= MAIN_WINDOW_X + 250 and mouse_x <= MAIN_WINDOW_X + 300 and mouse_y >= MAIN_WINDOW_Y - 20 and mouse_y <= MAIN_WINDOW_Y) then
		if (left_mouse_down) then
			ClearBoard()
		end
	end

	-- clear button for single player
	local Clear_Width = 50;
	local Clear_Height = 20;
	draw.FilledRect(MAIN_WINDOW_X+250, MAIN_WINDOW_Y - 20, MAIN_WINDOW_X + 250 + Clear_Width, MAIN_WINDOW_Y);
	draw.Color(250,250,250,250);
	draw.OutlinedRect(MAIN_WINDOW_X+250, MAIN_WINDOW_Y - 20, MAIN_WINDOW_X + 250 + Clear_Width, MAIN_WINDOW_Y);
	draw.Color(gui.GetValue("clr_gui_window_logo1"));
    draw.Text(MAIN_WINDOW_X + 260, MAIN_WINDOW_Y -17, "Clear");

end


-- drawin things ontop od the grid
function Place(CenterX, CenterY, XorO)
	if (XorO == 1) then
		-- draws a simple x
		draw.Color(gui.GetValue("clr_gui_window_header"));
		draw.Line(CenterX - 30, CenterY - 30, CenterX + 30, CenterY + 30);
		draw.Line(CenterX - 30, CenterY + 30, CenterX + 30, CenterY - 30);

	end
	if (XorO == 2) then
		-- uses a rectangle cos a circle is too hard
		draw.Color(gui.GetValue("clr_gui_window_header"));
		draw.OutlinedRect(CenterX - 30, CenterY - 30, CenterX + 30, CenterY + 30);
	end
end

function UpdateBoard()
	-- updates the position of xs and os relative to the main window pos
	for i = 1,3,1 do
		for o = 1,3,1 do
			if (Board[i][o] == 1) then
				Place((MAIN_WINDOW_X + 50 + (BOX_SIZE * (i-1))), (MAIN_WINDOW_Y + 50 + (BOX_SIZE * (o-1))), 1);
			end
			if (Board[i][o] == 2) then
				Place((MAIN_WINDOW_X + 50 + (BOX_SIZE * (i-1))), (MAIN_WINDOW_Y + 50 + (BOX_SIZE * (o-1))), 2);
			end

		end
	end
end

function ClearBoard()
	-- self explanatory
	for f=1, 3 do
		Board[f] = {}
		for g=1, 3 do
			Board[f][g] = 0
		end
	end
	Turns = 0;
end

function PlaceHandler()
	-- handles all placing bs
	local mouse_x, mouse_y = input.GetMousePos();
	local GridPosX, GridPosY;
	local left_place_down = input.IsButtonDown(1);
	for u = 0,2,1 do
			-- checks the pos of mous to see which tile it is over
		if (mouse_x >= MAIN_WINDOW_X + (BOX_SIZE * u) and mouse_x <= MAIN_WINDOW_X + (BOX_SIZE * (u + 1))) then
			CenterX = (MAIN_WINDOW_X + 50 + (BOX_SIZE * u));
			GridPosX = u;

		end
			-- checks the pos of mous to see which tile it is over
		if (mouse_y >= MAIN_WINDOW_Y + (BOX_SIZE * u) and mouse_y <= MAIN_WINDOW_Y + (BOX_SIZE * (u + 1))) then
			CenterY = (MAIN_WINDOW_Y + 50 + (BOX_SIZE * u));
			GridPosY = u;
		end
	end
	if (left_place_down) then
		-- toggles between x and o on each turn
		if MRPD == 1 then
			if (Board[GridPosX +1][GridPosY +1] == 0) then
				Board[GridPosX +1][GridPosY +1] = 2;
				Turns = Turns + 1;
			end
		end
		if MRPD == 2 then
			if (Board[GridPosX+1][GridPosY	+1] == 0) then
				Board[GridPosX+1][GridPosY	+1] = 1;
				Turns = Turns + 1;
			end
		end
	end
	Xcount = 0;
	Ocount = 0;

	-- checks whether an x or an o should be placed by seeing howmany have already been placed
	for i = 1,3,1 do
		for o = 1,3,1 do
			if (Board[i][o] == 1) then
				Xcount = Xcount +1;
			end
			if (Board[i][o] == 2) then
				Ocount = Ocount + 1;
			end
		end
	end
	if (Xcount == Ocount) then
		MRPD = 2;
	elseif (Xcount > Ocount) then
		MRPD = 1;
		if (BOT_ENABLE) then
			if (Turns <= 8 ) then
				bot();
			end
		end
	end
end

function bot()
	local placed = false;
	while (placed == false) do
		local x = math.random(1,3);
		local y = math.random(1,3);
		if (Board[x][y] == 0) then
			Board[x][y] = 2;
			placed = true;
			Turns = Turns + 1;
		end
	end
end

function dragHandler(HEADER_HEIGHT)
    local mouse_x, mouse_y = input.GetMousePos();
	-- cpp from ShadyRetard again
    if (is_dragging == true) then
        MAIN_WINDOW_X = mouse_x - dragging_offset_x;
        MAIN_WINDOW_Y = mouse_y - dragging_offset_y;
        return;
    end

    if (( mouse_x >= MAIN_WINDOW_X and mouse_x <= (MAIN_WINDOW_X + 300)) and (mouse_y <= MAIN_WINDOW_Y) and (mouse_y >= MAIN_WINDOW_Y - HEADER_HEIGHT)) then
        is_dragging = true;
        dragging_offset_x = mouse_x - MAIN_WINDOW_X;
        dragging_offset_y = mouse_y - MAIN_WINDOW_Y;
        return;
    end
end

--for main drawing
callbacks.Register("Draw", DrawMainBox);
--for movement of stuff
callbacks.Register("Draw", UpdateBoard);
--checks the board constantly as calling it after turn didnt work as expected
callbacks.Register("Draw", CheckWin);