%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%    TIC TAC TOE GAME           %
%    By Arun Deodat             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setscreen ("graphics:600;600")
var x, y, button : int % Variables for moushewhere%
var playerturn : boolean := true %Variable for determining turns%
var iCount : int := 0 %Variable for counting squares used for ties%
%Variables for top row, middle row and bottom row X's%
var botleftX, botmidX, botrightX, midleftX, midmidX, midrightX, topleftX, topmidX, toprightX : boolean := false
%Variables for top row, middle row and bottom row O's%
var botleftO, botmidO, botrightO, midleftO, midmidO, midrightO, topleftO, topmidO, toprightO : boolean := false
var iExit : int := 0 %Variable for exiting when there is a winner%
var player1, player2 : string := "" %Variables for the players name entered by user%
locate (20, 30)
put "X Starts First"
locate (1, 25)
put "Enter name of player 1"
locate (2, 25)
get player1
locate (3, 25)
put "Enter name of player 2"
locate (4, 25)
get player2
cls
procedure Gameboard %Draws the gameboard%
    drawline (200, 600, 200, 0, black) %Left Vertical Line%
    drawline (400, 600, 400, 0, black) %Right Vertical line%
    drawline (0, 200, 600, 200, black) %Bottom horizontal line%
    drawline (0, 400, 600, 400, black) %Top horizontal line%
end Gameboard
Gameboard %Displays the gameboard%
%Background colours for gameboard%
drawfillbox (0, 0, 200, 200, yellow)
drawfillbox (200, 0, 400, 200, brightred)
drawfillbox (400, 0, 600, 200, brightblue)
drawfillbox (0, 200, 200, 400, brightgreen)
drawfillbox (200, 200, 400, 400, brightmagenta)
drawfillbox (400, 200, 600, 400, brown)
drawfillbox (0, 400, 200, 600, brightcyan)
drawfillbox (200, 400, 400, 600, purple)
drawfillbox (400, 400, 600, 600, grey)
%All possibilities for X on the gameboard%
procedure BLX     %Drawing X in the bottom left box%
    drawline (0, 200, 200, 0, black)
    drawline (200, 200, 0, 0, black)
end BLX
procedure BMX %Drawing X in the bottom middle box%
    drawline (200, 200, 400, 0, black)
    drawline (400, 200, 200, 0, black)
end BMX
procedure BRX %Drawing X in the bottom right box%
    drawline (400, 200, 600, 0, black)
    drawline (600, 200, 400, 0, black)
end BRX
procedure MLX %Drawing X in the center left box%
    drawline (0, 400, 200, 200, black)
    drawline (200, 400, 0, 200, black)
end MLX
procedure MMX %Drawing X in the center middle box%
    drawline (200, 400, 400, 200, black)
    drawline (400, 400, 200, 200, black)
end MMX
procedure MRX %Drawing X in the center right box%
    drawline (400, 400, 600, 200, black)
    drawline (400, 200, 600, 400, black)
end MRX
procedure TLX %Drawing X in the top left box%
    drawline (0, 600, 200, 400, black)
    drawline (0, 400, 200, 600, black)
end TLX
procedure TMX %Drawinf X in the top middle box%
    drawline (200, 600, 400, 400, black)
    drawline (200, 400, 400, 600, black)
end TMX
procedure TRX %Drawing X in the top right box%
    drawline (400, 600, 600, 400, black)
    drawline (400, 400, 600, 600, black)
end TRX
%All possibilities for O on the gameboard%
procedure BLO %Drawing O in the bottom left box%
    drawoval (100, 100, 75, 75, black)
end BLO
procedure BMO %Drawing O in the bottom middle box%
    drawoval (300, 100, 75, 75, black)
end BMO
procedure BRO %Drawing O in the bottom right box%
    drawoval (500, 100, 75, 75, black)
end BRO
procedure MLO %Drawing O in the center left box%
    drawoval (100, 300, 75, 75, black)
end MLO
procedure MMO %Drawing O in the center middle box%
    drawoval (300, 300, 75, 75, black)
end MMO
procedure MRO %Drawing O in the center right box%
    drawoval (500, 300, 75, 75, black)
end MRO
procedure TLO %Drawing O in the top left box%
    drawoval (100, 500, 75, 75, black)
end TLO
procedure TMO %Drawing O in the top middle box%
    drawoval (300, 500, 75, 75, black)
end TMO
procedure TRO %Drawing O in the top right box%
    drawoval (500, 500, 75, 75, black)
end TRO
%Procedures for each box on the board being clicked on%
procedure BotLeftBox
    loop
        %Draws an X when it is player1 turn and the box has nothing in it%
        if playerturn = true and button = 1 and botleftX = false and botleftO = false then
            BLX %Calls on the drawing of X in the bottom left box%
            botleftX := true %Makes the box true, filling it with an X"
            playerturn := not playerturn %Switches to the other player's turn%
            iCount := iCount + 1 %Adds 1 to the counter to check for ties%
            %Draws an O when it is player2 turn and the box has nothing in it%
        elsif playerturn = false and button = 1 and botleftX = false and botleftO = false then
            BLO %Calls on the procedure of drawing O in the bottom  left box%
            botleftO := true %Makes the box true, filling it with an O%
            playerturn := not playerturn
            iCount := iCount + 1
        end if
        exit when botleftX = true or botleftO = true %Exits the loop when one of these boxes true meaning it is filled%
    end loop
end BotLeftBox
procedure BotMidBox
    loop
        if playerturn = true and button = 1 and botmidX = false and botmidO = false then
            BMX
            botmidX := true
            playerturn := not playerturn
            iCount := iCount + 1
        elsif playerturn = true and button = 1 and botmidX = false and botmidO = false then
            BMO
            botmidO := true
            playerturn := not playerturn
            iCount := iCount + 1
        end if
        exit when botmidX = true or botmidO = true
    end loop
end BotMidBox
procedure BotRightBox
    loop
        if playerturn = true and button = 1 and botrightX = false and botrightO = false then
            BRX
            botrightX := true
            playerturn := not playerturn
            iCount := iCount + 1
        elsif playerturn = false and button = 1 and botrightX = false and botrightO = false then
            BRO
            botrightO := true
            playerturn := not playerturn
            iCount := iCount + 1
        end if
        exit when botrightX = true or botrightO = true
    end loop
end BotRightBox
procedure MidLeftBox
    loop
        if playerturn = true and button = 1 and midleftX = false and midleftO = false then
            MLX
            midleftX := true
            playerturn := not playerturn
            iCount := iCount + 1
        elsif playerturn = false and button = 1 and midleftX = false and midleftO = false then
            MLO
            midleftO := true
            playerturn := not playerturn
            iCount := iCount + 1
        end if
        exit when midleftX = true or midleftO = true
    end loop
end MidLeftBox
procedure MidMidBox
    loop
        if playerturn = true and button = 1 and midmidX = false and midmidO = false then
            MMX
            midmidX := true
            playerturn := not playerturn
            iCount := iCount + 1
        elsif playerturn = false and button = 1 and midmidX = false and midmidO = false then
            MMO
            midmidO := true
            playerturn := not playerturn
            iCount := iCount + 1
        end if
        exit when midmidX = true or midmidO = true
    end loop
end MidMidBox
procedure MidRightBox
    loop
        if playerturn = true and button = 1 and midrightX = false and midrightO = false then
            MRX
            midrightX := true
            playerturn := not playerturn
            iCount := iCount + 1
        elsif playerturn = false and button = 1 and midrightX = false and midrightO = false then
            MRO
            midrightO := true
            playerturn := not playerturn
            iCount := iCount + 1
        end if
        exit when midrightX = true or midrightO = true
    end loop
end MidRightBox
procedure TopLeftBox
    loop
        if playerturn = true and button = 1 and topleftX = false and topleftO = false then
            TLX
            topleftX := true
            playerturn := not playerturn
            iCount := iCount + 1
        elsif playerturn = false and button = 1 and topleftX = false and topleftO = false then
            TLO
            topleftO := true
            playerturn := not playerturn
            iCount := iCount + 1
        end if
        exit when topleftX = true or topleftO = true
    end loop
end TopLeftBox
procedure TopMidBox
    loop
        if playerturn = true and button = 1 and topmidX = false and topmidO = false then
            TMX
            topmidX := true
            playerturn := not playerturn
            iCount := iCount + 1
        elsif playerturn = false and button = 1 and topmidX = false and topmidO = false then
            TMO
            topmidO := true
            playerturn := not playerturn
            iCount := iCount + 1
        end if
        exit when topmidX = true or topmidO = true
    end loop
end TopMidBox
procedure TopRightBox
    loop
        if playerturn = true and button = 1 and toprightX = false and toprightO = false then
            TRX
            toprightX := true
            playerturn := not playerturn
            iCount := iCount + 1
        elsif playerturn = false and button = 1 and toprightX = false and toprightO = false then
            TRO
            toprightO := true
            playerturn := not playerturn
            iCount := iCount + 1
        end if
        exit when toprightX = true or toprightO = true
    end loop
end TopRightBox
%Identifies who's turn it is%
procedure TakeTurns
    if playerturn = true then
        locate (1, 25)
        put "It is ", player1, "'s turn"
    elsif playerturn = false then
        locate (1, 25)
        put "It is ", player2, "'s turn"
    end if
end TakeTurns
%All possibilities that X can win%
procedure XWinsLine
    loop
        %Horizontal win with 3 X's%
        if botleftX = true and botmidX = true and botrightX = true then
            Draw.ThickLine (0, 100, 600, 100, 10, black) %Draws line to show 3 straight X's%
            iExit := 1
        elsif topleftX = true and topmidX = true and toprightX = true then
            Draw.ThickLine (0, 500, 600, 500, 10, black)
            iExit := 1
        elsif midleftX = true and midmidX = true and midrightX = true then
            Draw.ThickLine (0, 300, 600, 300, 10, black)
            %Diagonal win with 3 X's%
        elsif botleftX = true and midmidX = true and toprightX = true then
            Draw.ThickLine (0, 0, 600, 600, 10, black)
        elsif botrightX = true and midmidX = true and topleftX = true then
            Draw.ThickLine (0, 600, 600, 0, 10, black)
            %Vertical win with 3 X's"
        elsif botleftX = true and midleftX = true and topleftX = true then
            Draw.ThickLine (100, 0, 100, 600, 10, black)
        elsif botmidX = true and midmidX = true and topmidX = true then
            Draw.ThickLine (300, 0, 300, 600, 10, black)
        elsif botrightX = true and midrightX = true and toprightX = true then
            Draw.ThickLine (500, 0, 500, 600, 10, black)
        end if
    end loop
end XWinsLine
procedure OWinsLine
    %Horizontal win with 3 O's%
    if botleftO = true and botmidO = true and botrightO = true then
        Draw.ThickLine (0, 100, 600, 100, 10, black) %Draws line to show 3 straight O's%
    elsif topleftO = true and topmidO = true and toprightO = true then
        Draw.ThickLine (0, 500, 600, 500, 10, black)
    elsif midleftO = true and midmidO = true and midrightO = true then
        Draw.ThickLine (0, 300, 600, 300, 10, black)
        %Diagonal win with 3 O's%
    elsif botleftO = true and midmidO = true and toprightO = true then
        Draw.ThickLine (0, 600, 600, 0, 10, black)
    elsif botrightO = true and midmidO = true and topleftO = true then
        Draw.ThickLine (0, 0, 600, 600, 10, black)
        %Vertical win with 3 O's%
    elsif botleftO = true and midleftO = true and topleftO = true then
        Draw.ThickLine (100, 0, 100, 600, 10, black)
    elsif botmidO = true and midmidO = true and topmidO = true then
        Draw.ThickLine (300, 0, 300, 600, 10, black)
    elsif botrightO = true and midrightO = true and toprightO = true then
        Draw.ThickLine (500, 0, 500, 600, 10, black)
    end if
end OWinsLine
procedure player1winner
    %Player1 wins with 3 X's horizontally%
    if botleftX = true and botmidX = true and botrightX = true or
            midleftX = true and midmidX = true and midrightX = true or
            topleftX = true and topmidX = true and toprightX = true or
        %Player1 wins with 3 X's vertically%
            botleftX = true and midleftX = true and topleftX = true or
            botmidX = true and midmidX = true and topmidX = true or
            botrightX = true and midrightX = true and toprightX = true or
        %Player1 wins with 3 X's diagonally%
            botleftX = true and midmidX = true and toprightX = true or
            botrightX = true and midmidX = true and topleftX = true then
        iExit := 1
    end if
end player1winner
procedure player2winner
    %Player2 wins with 3 O's horizontally%
    if botleftO = true and botmidO = true and botrightO = true or
            midleftO = true and midmidO = true and midrightO = true or
            topleftO = true and topmidO = true and toprightO = true or
        %Player2 wins with 3 O's vertically%
            botleftO = true and midleftO = true and topleftO = true or
            botmidO = true and midmidO = true and topmidO = true or
            botrightO = true and midrightO = true and toprightO = true or
        %Player2 wins with 3 O's diagonally%
            botleftO = true and midmidO = true and toprightO = true or
            botrightO = true and midmidO = true and topleftO = true then
        iExit := 2
    end if
end player2winner
%Mousewhere keeps track of where the location of the mouse is%
loop
    mousewhere (x, y, button)
    if button = 1 and x > 0 and x < 200 and y > 0 and y < 200 then
        BotLeftBox %Calls on the procedure that draws everything in the box%
        TakeTurns %Displays which player's turn it is%
    elsif button = 1 and x > 200 and x < 400 and y > 0 and y < 200 then
        BotMidBox
        TakeTurns
    elsif button = 1 and x > 400 and x < 600 and y > 0 and y < 200 then
        BotRightBox
        TakeTurns
    elsif button = 1 and x > 0 and x < 200 and y > 200 and y < 400 then
        MidLeftBox
        TakeTurns
    elsif button = 1 and x > 200 and x < 400 and y > 200 and y < 400 then
        MidMidBox
        TakeTurns
    elsif button = 1 and x > 400 and x < 600 and y > 200 and y < 400 then
        MidRightBox
        TakeTurns
    elsif button = 1 and x > 0 and x < 200 and y > 400 and y < 600 then
        TopLeftBox
        TakeTurns
    elsif button = 1 and x > 200 and x < 400 and y > 400 and y < 600 then
        TopMidBox
        TakeTurns
    elsif button = 1 and x > 400 and x < 600 and y > 400 and y < 600 then
        TopRightBox
        TakeTurns
        XWinsLine
        OWinsLine
        player1winner
        player2winner
    end if
    exit when iExit = 1 or iExit = 2 or iCount = 9 and iExit = not 1 and iExit = not 2
end loop

if iExit = 1 then
    locate (1, 25)
    put player1, " WINS!!!"
elsif iExit = 2 then
    locate (1, 25)
    put player2, " WINS!!!"
elsif iCount = 9 then
    locate (1, 25)
    put "TIE GAME"
end if