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)
