tic tac toe game, please help finish

[littenburg]

i have started my project in turing, but now im stuck, i have to make a tick tac toe game againts the computer, please someone help.


here is my code, i did have some fun with it...


%the tic tac toe game
%buahahaha

%below are all my variables
var u : array 1 .. 5 of string
var c : array 1 .. 5 of string
var firstplayer : string
var command : string (1)
var point, roll : int
var one : string := "human will go first"
var two : string := "computer will go first"
var it : real
var fun, fun2, fun3, fun4, fun5 : int

%below is my randamizer for all the fun colours in the game
randint (fun, 1, 25)
randint (fun2, 26, 50)
randint (fun3,51, 75)
randint (fun4, 76, 100)
randint (fun5, 101, 125)


colourback (black)
cls
colour (white)
%below, i made it so that the introduction appears in the centre of the screen
procedure CentreText (s : string, row : int)
locate (row, (maxcol - length (s)) div 2)
put s
View.Update
end CentreText
delay(650)
CentreText ("IT'S THE TIC TAC TOE GAME!!!", maxrow div 2 - 7)
CentreText ("Created by someone", maxrow div 2 - 5)
delay(700)
CentreText ("~Now Loading Game~", maxrow div 2 - 3)
delay (500)
CentreText (". . . ", maxrow div 2 - 1)%all this is just for fun, i wanted it to look cool, and like it was actually loading somthing.
delay (500)
CentreText (" . . .", maxrow div 2 - 1)
delay (500)
CentreText (". . . ", maxrow div 2 - 1)
delay (500)
CentreText (" . . .", maxrow div 2 - 1)
delay (500)
CentreText (". . . ", maxrow div 2 - 1)
delay (500)
CentreText (" . . .", maxrow div 2 - 1)
delay (500)
CentreText (". . . ", maxrow div 2 - 1)
delay (500)
CentreText (" . . .", maxrow div 2 - 1)
delay (501)
CentreText ("READY!", maxrow div 2 - 1)
delay (1000)
CentreText ("YAY", maxrow div 2-0)
delay(1000)
cls
colourback (fun2)
cls
colour (fun3)
%below is the area for asking who will go first, the chicken or the egg, I meen human or computer.
put "press 1 for human(you), or 2 for computer to go first"
getch (command)
for i : 1 .. 1
if command = "1" then
put one
else
if command = "2" then
put two

end if
end if
end for
delay (1000)
cls
colourback (fun2)
cls
colour (fun3)

%Below, I have the cross diagram you must draw to play TIC TAC TOE

cls
drawfillbox (135, 0, 131, maxy, fun)
drawfillbox (265, 0, 269, maxy, fun5)
drawfillbox (385, 135, 0, 131, fun3)
drawfillbox (385, 265, 0, 269, fun4)

[syntax_error]

hint use a 2D array to rep the grid in the memory
then play some tic tack toe and figure out the logic behind the simple game...
and then WRITE it on PAPER then think of the syntax in turing

[Tony]

another hint: it is _much_ easier to make a 2 player tic-tac-toe game, than one against a computer. Make a 2 player game first, then simply drop in an AI that will determine the move of the 2nd player, but only after the game mechanics are finished.

[littenburg]

im clueless when it comes to turing, it has taken me 2 months just to do this

[Tony]

littenburg -
[quote="syntax_error @ Wed Jan 16, 2008 9:49 am"]play some tic tack toe and figure out the logic behind the simple game...
and then WRITE it on PAPER[/quote
This has nothing to do with Turing, so you shouldn't have problems with the above steps

Once you know what you want to do, it's really easy to help you get it working.