-----------------------------------

James1998

Sun Jan 24, 2016 9:06 am


Tic Tace Toe Game HELP

-----------------------------------

I have this so far but Please Can someone help me  am not suppose to use arrrays am stuck i cant get the the computer to count the numbers of wins orrr say when a player wins or tie 
can someone plz help me 




var p1, p2 : int
var b1 := " "
var b2 := " "
var b3 := " "
var b4 := " "
var b5 := " "
var b6 := " "
var b7 := " "
var b8 := " "
var b9 := " "

var bxfont : int
var character : string (1)
var player1, player2, first : string
var numberOfWins1, numberOfWins2 : int
put ""
put "--------", " -------  ", "*******", "--------", "******* ", "******* ", "---------", "******** ", "********"
put "   *    ", "    *     ", "*      ", "    *   ", "*     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", "    *     ", "*      ", "    *   ", "*     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", "    *     ", "*      ", "    *   ", "******* ", "*       ", "    *    ", "*      * ", "********"
put "   *    ", "    *     ", "*      ", "    *   ", "*     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", "    *     ", "*      ", "    *   ", "*     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", " -------- ", "*******", "    *   ", "*     * ", "******* ", "    *    ", "******** ", "********"


put "Instructions: "
put "1. Players alternate by placing Xs and Os on the board until either (a) one player has three in a row, horizontally, vertically or diagonally"
put "2. If a player is able to draw three Xs or three Os in a row, that player wins."
put "3. If all nine squares are filled and neither player has three in a row, the"
put "game is a draw."
put "4. If a player is able to draw four Xs or four Os in a row, that player wins."
put "Press any key to continue.."
getch (character)
cls
delay (100)
put "--------", " -------  ", "*******", "--------", "******* ", "******* ", "---------", "******** ", "********"
put "   *    ", "    *     ", "*      ", "    *   ", "*     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", "    *     ", "*      ", "    *   ", "*     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", "    *     ", "*      ", "    *   ", "******* ", "*       ", "    *    ", "*      * ", "********"
put "   *    ", "    *     ", "*      ", "    *   ", "*     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", "    *     ", "*      ", "    *   ", "*     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", " -------- ", "*******", "    *   ", "*     * ", "******* ", "    *    ", "******** ", "********"
put "==============================================================================="
put ""
put "Please input the name of player 1: " ..
get player1 : *
put "Please input the name of player 2: " ..
get player2 : *
put ""

cls
delay (100)

put "******** ", "*******  ", " ******* ", " ******** ", "******* ", "******* ", "******** ", "******** ", "********"
put "   *    ", "    *     ", "*       ", "    *     ", "*     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", "    *     ", "*       ", "    *     ", "*     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", "    *     ", "*       ", "    *     ", "******* ", "*       ", "    *    ", "*      * ", "********"
put "   *    ", "    *     ", "*       ", "    *     ", "*     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", "    *     ", "*       ", "    *    ", " *     * ", "*       ", "    *    ", "*      * ", "*       "
put "   *    ", " *******  ", "******* ", "    *    ", " *     * ", "******* ", "    *    ", "******** ", "********"
put "==============================================================================="


locate (12, 10) %12 = row12, 10=column
put "here is the empty board"
put b1, "|", b2, "|", b3
put "---+--"
put b4, "|", b5, "|", b6
put "---+--"
put b7, "|", b8, "|", b9
loop
    % loop begins here
    put "eneter a position for p1 1-9"
    get p1

    if (p1 = 1) then
        b1 := "x"
    end if
    if (p1 = 2) then
        b2 := "x"
    end if
    if (p1 = 3) then
        b3 := "x"
    end if
    if (p1 = 4) then
        b4 := "x"
    end if
    if (p1 = 5) then
        b5 := "x"
    end if

    if (p1 = 6) then
        b6 := "x"
    end if

    if (p1 = 7) then
        b7 := "x"
    end if
    if (p1 = 8) then
        b8 := "x"
    end if
    if (p1 = 9) then
        b9 := "x"
    end if


    put "here is the empty board"
    put b1, "|", b2, "|", b3
    put "---+--"
    put b4, "|", b5, "|", b6
    put "---+--"
    put b7, "|", b8, "|", b9

    if ((b1 = "x") and (b2 = "x") and (b3 = "x")) then
        put "p1 you win"
        Font.Draw ("Player 1 is the winner!", 130, 30, bxfont, 80)
        exit
    end if
    if ((b4 = "x" and b5 = "x") and (b6 = "x")) then
        put "p1 you win"
        Font.Draw ("Player 1 is the winner!", 130, 30, bxfont, 80)
        exit
        end if

    %%%%%%middle

    %%%%%%%p2 starts here
    % put "enter a position for p2 1-9"
    loop
        randomize
        randint (p2, 1, 9)
        if (p2 = 1) and b1 not= "x" and b1 not= "o" then
            b1 := "o"
            exit
        end if

        if (p2 = 2) and b2 not= "x" and b2 not= "o" then
            b2 := "o"
            exit
        end if
        if p2 = 1 and b3 not= "x" and b3 not= "o" then
            b3 := "o"
            exit
        end if
        if p2 = 1 and b4 not= "x" and b4 not= "o" then
            b4 := "o"
            exit
        end if
        if p2 = 1 and b5 not= "x" and b5 not= "o" then
            b5 := "o"
            exit
        end if
        if p2 = 1 and b6 not= "x" and b6 not= "o" then
            b6 := "o"
            exit
        end if
        if p2 = 1 and b7 not= "x" and b7 not= "o" then
            b7 := "o"
            exit
        end if
        if p2 = 1 and b8 not= "x" and b8 not= "o" then
            b8 := "o"
            exit
        end if
        if p2 = 1 and b9 not= "x" and b9 not= "o" then
            b9 := "o"
            exit
        end if
    end loop
    put "here is the empty board"
    put b1, "|", b2, "|", b3
    put "---+--"
    put b4, "|", b5, "|", b6
    put "---+--"
    put b7, "|", b8, "|", b9
loop
    if ((b1 = "o") and (b2 = "o") and (b3 = "o")) then
        put "p2 you win"
        Font.Draw ("Player 2 is the winner!", 130, 30, bxfont, 80)
        exit
    end if
    if ((b4 = "o" and b5 = "o") and b6 = "o") then
        put "p2 you win"
        Font.Draw ("Player 2 is the winner!", 130, 30, bxfont, 80)
        exit
    end if
    if ((b7 = "o" and b8 = "o") and b9 = "o") then
        put "p2 you win"
        Font.Draw ("Player 2 is the winner!", 130, 30, bxfont, 80)
        exit
    end if
end loop

loop
if ((b1 = "x") and (b2 = "x") and (b3 = "x")) then
        put "p1 you win"
        Font.Draw ("Player 1 is the winner!", 130, 30, bxfont, 80)
        exit
    end if
    if ((b4 = "x" and b5 = "x") and b6 = "x") then
        put "p1 you win"
        Font.Draw ("Player 1 is the winner!", 130, 30, bxfont, 80)
        exit
    end if
    if ((b7 = "x" and b8 = "x") and b9 = "x") then
        put "p1 you win"
        Font.Draw ("Player 1 is the winner!", 130, 30, bxfont, 80)
        exit
    end if
end loop


-----------------------------------

Insectoid

Sun Jan 24, 2016 12:07 pm


RE:Tic Tace Toe Game HELP

-----------------------------------

If you can't use arrays, then you'll just have to manually check for a win, one row or column at a time.

[code]if top left = top right = top centre then
    somebody won!
end if
%repeat for all other possible wins[/code]