%Set up variables
var player1, player2 : string %names of players
var presskey : string %press any key to start the game
var player1score := 1 %player1's score
var player2score := 2 %player2's score
var playerturn : boolean := true %records players turn
var xvalue, yvalue, mouseclick, button : int %creating coordinates for where the player clicks

%Creating record for player click spots
var gridplacement : array 1..9 of
    record
        spots : array 1..9 of int
    end record

%Drawing gameboard
procedure gameBoard
    for x : 30 .. 300 by 100
        for y : 75 .. 330 by 100
            drawbox (x, y, x + 100, y + 100, 4)
        end for
    end for
end gameBoard

% Drawing the X on the board
procedure drawX
    for x : 30 .. 300 by 100
        for y : 75 .. 330 by 100
            if xvalue > x and xvalue < x + 100 and yvalue > y and yvalue < y + 100 then
                Draw.ThickLine (x + 10, y + 10, x + 90, y + 90, 10, black)
                Draw.ThickLine (x + 90, y + 10, x + 10, y + 90, 10, black)
            end if
        end for
    end for
end drawX
%Drawing O on the board
procedure drawO
    for x : 30 .. 300 by 100
        for y : 75 .. 330 by 100
            if xvalue > x and xvalue < x + 100 and yvalue > y and yvalue < y + 100 then
                Draw.FillOval (x + 50, y + 50, 45, 45, black)
                Draw.FillOval (x + 50, y + 50, 35, 35, white)
            end if
        end for
    end for
end drawO

%start output
put "Welcome to Tic Tac Toe!!"     %outputs game type
put " "
put "Press any key to start"     %starts game once a key is pressed
presskey := getchar ()

delay (100)
put "Please insert player1's name"     %determines player1 and player2's names
get player1
put "player2, please insert your name"
get player2

%Game start
put "Lets start the game then!"     %Output comfirmation of game start
put "When clicking in the box, make sure to click as close to the centre of that specific box as possible.Ready? Go!"
delay (2000)
cls     %clears screen
loop
    locate (1, 1)
    put "It is " ..
    delay (100)
    if playerturn = true then     %determines which player's turn it is
        put player1, " 's turn" ..
    else
        put player2, " 's turn" ..
    end if

    gameBoard
    buttonwait ("down", xvalue, yvalue, mouseclick, button)     % find mouseclick
    buttonwait ("up", xvalue, yvalue, mouseclick, button)
    if playerturn = true then %figuring out which player goes and what symbol is created when the player clicks
        drawX
        playerturn := false
    else
        drawO
        playerturn := true
    end if
end loop

%What I need to figure out is a recording system that records where the x's and o's have been


var gridplacement : array 1..9 of
    record
        spots : array 1..9 of int
    end record
%This is what I have so far...