Computer Science Canada :: View topic - Tic-Tac-Toe(UNBEATABLE COMPUTER IF YOU WIN TELL ME!)

setscreen ("graphics:905;605,position:center;center,nobuttonbar")
var u : array 1 .. 5 of int %the array that holds all of the players moves
var c : array 1 .. 5 of int %the array that holds all of the computers moves
var win : int := 0 %counter for how many wins the user obtains(but won't get any)
var lose : int := 0 %counter for how many loses the user obtains
var cat : int := 0 %counter for how many cat games were played

proc Draw_Screen
%procedure that draws the Tic-Tac_Toe lines and
%the counters
cls
drawbox (5, 5, 600, 600, green)
drawline (205, 5, 205, 600, green)
drawline (405, 5, 405, 600, green)
drawline (5, 205, 600, 205, green)
drawline (5, 405, 600, 405, green)
locate (34, 77)
put "WINS:"
locate (34, 85)
put win
locate (35, 77)
put "LOSES:"
locate (35, 86)
put lose
locate (36, 77)
put "CAT GAMES:"
locate (36, 90)
put cat
end Draw_Screen

proc Initialize
%resets the global values to "0" and
%used if another game will be played without closing the window
for i : 1 .. 5
u (i) := -999
c (i) := -999
end for
end Initialize

function User_Win : boolean
%checks to see if 3 of the users moves equals 15
%which will make the user win
if u (1) + u (2) + u (3) = 15 then
locate (1, 77)
put "You Win!"
win := win + 1 %adds to the win counter
locate (34, 85)
put win %puts the win counter
result true
elsif u (2) + u (3) + u (4) = 15 then
locate (1, 77)
put "You Win!"
win := win + 1
locate (34, 85)
put win
result true
elsif u (3) + u (4) + u (5) = 15 then
locate (1, 77)
put "You Win!"
win := win + 1
locate (34, 85)
put win
result true
elsif u (1) + u (3) + u (4) = 15 then
locate (1, 77)
put "You Win!"
win := win + 1
locate (34, 85)
put win
result true
elsif u (1) + u (4) + u (5) = 15 then
locate (1, 77)
put "You Win!"
win := win + 1
locate (34, 85)
put win
result true
elsif u (1) + u (2) + u (4) = 15 then
locate (1, 77)
put "You Win!"
win := win + 1
locate (34, 85)
put win
result true
elsif u (1) + u (3) + u (5) = 15 then
locate (1, 77)
put "You Win!"
win := win + 1
locate (34, 85)
put win
result true
elsif u (2) + u (4) + u (5) = 15 then
locate (1, 77)
put "You Win!"
win := win + 1
locate (34, 85)
put win
result true
elsif u (2) + u (3) + u (5) = 15 then
locate (1, 77)
put "You Win!"
win := win + 1
locate (34, 85)
put win
result true
end if
result false
end User_Win

function Computer_Win : boolean
%to check if 3 of the computers move will equal 15
%which will make the computer win
if c (1) + c (2) + c (3) = 15 then
locate (1, 77)
put "You Lose!"
lose := lose + 1 %adds to the lose counter
locate (35, 86)
put lose %puts the lose counter
result true
elsif c (2) + c (3) + c (4) = 15 then
locate (1, 77)
put "You Lose!"
lose := lose + 1
locate (35, 86)
put lose
result true
elsif c (3) + c (4) + c (5) = 15 then
locate (1, 77)
put "You Lose!"
lose := lose + 1
locate (35, 86)
put lose
result true
elsif c (1) + c (3) + c (4) = 15 then
locate (1, 77)
put "You Lose!"
lose := lose + 1
locate (35, 86)
put lose
result true
elsif c (1) + c (4) + c (5) = 15 then
locate (1, 77)
put "You Lose!"
lose := lose + 1
locate (35, 86)
put lose
result true
elsif c (1) + c (2) + c (4) = 15 then
locate (1, 77)
put "You Lose!"
lose := lose + 1
locate (35, 86)
put lose
result true
elsif c (1) + c (3) + c (5) = 15 then
locate (1, 77)
put "You Lose!"
lose := lose + 1
locate (35, 86)
put lose
result true
elsif c (2) + c (4) + c (5) = 15 then
locate (1, 77)
put "You Lose!"
lose := lose + 1
locate (35, 86)
put lose
result true
elsif c (2) + c (3) + c (5) = 15 then
locate (1, 77)
put "You Lose!"
lose := lose + 1
locate (35, 86)
put lose
result true
end if
result false
end Computer_Win

function taken (x : int) : boolean
%checks to see if the move selected has already been taken
%if true then another move will have to be made
for i : 1 .. 5
if x = u (i) or x = c (i) then
result true
end if
end for
result false
end taken

function Get_User_Move : int
%gets the users move by clicking with the mouse in the
%desired location
var x, y, button : int
loop
Mouse.Where (x, y, button)
if button = 1 then
if x >= 5 and x < 205 and y >= 5 and y <= 205 then
if not (taken (6)) then

result 6
end if
elsif x >= 205 and x < 405 and y >= 205 and y <= 405 then
if not (taken (5)) then

result 5
end if
elsif x >= 405 and x < 600 and y >= 405 and y <= 600 then
if not (taken (4)) then

result 4
end if
elsif x >= 5 and x < 205 and y >= 205 and y <= 405 then
if not (taken (7)) then

result 7
end if
elsif x >= 5 and x < 205 and y >= 405 and y <= 600 then
if not (taken (2)) then

result 2
end if
elsif x >= 205 and x < 405 and y >= 5 and y <= 205 then
if not (taken (1)) then

result 1
end if
elsif x >= 205 and x < 405 and y >= 405 and y <= 600 then
if not (taken (9)) then

result 9
end if
elsif x >= 405 and x < 600 and y >= 5 and y <= 206 then
if not (taken (8)) then

result 8
end if

elsif x >= 405 and x < 600 and y >= 205 and y <= 405 then
if not (taken (3)) then

result 3
end if
end if
end if
end loop
end Get_User_Move

function Can_Computer_Win : int
%adds 2 of the computers move together and will move the
%spot that equals the sum of the 2 moves - 15 and that number will be made
for i : 1 .. 4
for j : i + 1 .. 5
if c (i) + c (j) = 11 then
if not (taken (4)) then

result 4
end if
elsif c (i) + c (j) = 6 then
if not (taken (9)) then

result 9
end if
elsif c (i) + c (j) = 13 then
if not (taken (2)) then

result 2
end if
elsif c (i) + c (j) = 9 then
if not (taken (6)) then

result 6
end if
elsif c (i) + c (j) = 8 then
if not (taken (7)) then

result 7
end if
elsif c (i) + c (j) = 7 then
if not (taken (8)) then

result 8
end if
elsif c (i) + c (j) = 10 then
if not (taken (5)) then

result 5
end if
elsif c (i) + c (j) = 12 then
if not (taken (3)) then

result 3
end if
elsif c (i) + c (j) = 14 then
if not (taken (1)) then

result 1
end if
end if
end for
end for
result 0
end Can_Computer_Win

function Block_User : int
%adds 2 of users move together and moves the computer into the
%spot need for the user to get 15
for i : 1 .. 4
for j : i + 1 .. 5
if u (i) + u (j) = 11 then
if not (taken (4)) then

result 4
end if
elsif u (i) + u (j) = 6 then
if not (taken (9)) then

result 9
end if
elsif u (i) + u (j) = 13 then
if not (taken (2)) then
result 2
end if
elsif u (i) + u (j) = 9 then
if not (taken (6)) then

result 6
end if
elsif u (i) + u (j) = 8 then
if not (taken (7)) then
result 7
end if
elsif u (i) + u (j) = 7 then
if not (taken (8)) then

result 8
end if
elsif u (i) + u (j) = 10 then
if not (taken (5)) then

result 5
end if
elsif u (i) + u (j) = 12 then
if not (taken (3)) then

result 3
end if
elsif u (i) + u (j) = 14 then
if not (taken (1)) then

result 1
end if
end if
end for
end for
result 0
end Block_User

function Get_Computer_Move (turn : int) : int
%uses the Can_Computer_Win and the Block_User and
%checks possible combination moves that the user can make
%to trick the computer and then moves accordingly
var move : int
loop
if Can_Computer_Win = 0 then %if the computer can win it will go for the win else it will check for a black
if Block_User = 0 then %if the computer can block it will go for the block else it will take the middle spot
if taken (5) then %goes for the middle but if taken then
for i : 1 .. 5
for j : 1 .. 5
if u (i) = 2 and u (j) = 8 then
if not (taken (9)) then
result 9
end if
end if
if u (i) = 4 and u (j) = 6 then
if not (taken (3)) then
result 3
end if
end if
if u (i) = 2 and u (j) = 1 then
if not (taken (6)) then
result 6
end if
end if
if u (i) = 2 and u (j) = 3 then
if not (taken (4)) then
result 4
end if
end if
if u (i) = 4 and u (j) = 1 then
if not (taken (8)) then
result 8
end if
end if
if u (i) = 4 and u (j) = 7 then
if not (taken (2)) then
result 2
end if
end if
if u (i) = 6 and u (j) = 9 then
if not (taken (2)) then
result 2
end if
end if
if u (i) = 6 and u (j) = 3 then
if not (taken (8)) then
result 8
end if
end if
if u (i) = 8 and u (j) = 7 then
if not (taken (6)) then
result 6
end if
end if
if u (i) = 8 and u (j) = 9 then
if not (taken (4)) then
result 4
end if
end if
if u (i) = 5 and u (j) = 2 then
if not (taken (6)) then
result 6
end if
end if
if u (i) = 5 and u (j) = 6 then
if not (taken (2)) then
result 2
end if
end if
if u (i) = 5 and u (j) = 4 then
if not (taken (8)) then
result 8
end if
end if
if u (i) = 5 and u (j) = 8 then
if not (taken (4)) then
result 4
end if
end if
if u (i) = 7 and u (j) = 9 then
if not (taken (2)) then
result 2
end if
end if
if u (i) = 7 and u (j) = 1 then
if not (taken (6)) then
result 6
end if
end if
if u (i) = 1 and u (j) = 3 then
if not (taken (8)) then
result 8
end if
end if
if u (i) = 3 and u (j) = 9 then
if not (taken (4)) then
result 4
end if
end if
end for
end for
for i : 1 .. 5
if u (i) = 5 then
randint (move, 1, 4)
if move = 1 then
if not (taken (2)) then
result 2
end if
elsif move = 2 then
if not (taken (4)) then
result 4
end if
elsif move = 3 then
if not (taken (6)) then
result 6
end if
elsif move = 4 then
if not (taken (8)) then
result 8
end if
end if
end if
end for
else
result 5
end if
else
result Block_User
end if
else
result Can_Computer_Win
end if
randint (move, 1, 9)
if not (taken (move)) then
result move
end if

end loop
end Get_Computer_Move
%|2|9|4
%|7|5|3
%|6|1|8
proc Plot_Move (player : string (1), var move : int)
var picID : int
if player = "c" then
if move = 1 then
picID := Pic.FileNew ("H:/o.bmp")
Pic.Draw (picID, 206, 6, picCopy)

elsif move = 2 then
picID := Pic.FileNew ("H:/o.bmp")
Pic.Draw (picID, 6, 406, picCopy)

elsif move = 3 then
picID := Pic.FileNew ("H:/o.bmp")
Pic.Draw (picID, 406, 206, picCopy)

elsif move = 4 then
picID := Pic.FileNew ("H:/o.bmp")
Pic.Draw (picID, 406, 406, picCopy)

elsif move = 5 then
picID := Pic.FileNew ("H:/o.bmp")
Pic.Draw (picID, 206, 206, picCopy)

elsif move = 6 then
picID := Pic.FileNew ("H:/o.bmp")
Pic.Draw (picID, 6, 6, picCopy)

elsif move = 7 then
picID := Pic.FileNew ("H:/o.bmp")
Pic.Draw (picID, 6, 206, picCopy)

elsif move = 8 then
picID := Pic.FileNew ("H:/o.bmp")
Pic.Draw (picID, 406, 6, picCopy)

elsif move = 9 then
picID := Pic.FileNew ("H:/o.bmp")
Pic.Draw (picID, 206, 406, picCopy)

end if
else
if move = 1 then
picID := Pic.FileNew ("H:/x.bmp")
Pic.Draw (picID, 206, 6, picCopy)

elsif move = 2 then
picID := Pic.FileNew ("H:/x.bmp")
Pic.Draw (picID, 6, 406, picCopy)

elsif move = 3 then
picID := Pic.FileNew ("H:/x.bmp")
Pic.Draw (picID, 406, 206, picCopy)

elsif move = 4 then
picID := Pic.FileNew ("H:/x.bmp")
Pic.Draw (picID, 406, 406, picCopy)

elsif move = 5 then
picID := Pic.FileNew ("H:/x.bmp")
Pic.Draw (picID, 206, 206, picCopy)

elsif move = 6 then
picID := Pic.FileNew ("H:/x.bmp")
Pic.Draw (picID, 6, 6, picCopy)

elsif move = 7 then
picID := Pic.FileNew ("H:/x.bmp")
Pic.Draw (picID, 6, 206, picCopy)

elsif move = 8 then
picID := Pic.FileNew ("H:/x.bmp")
Pic.Draw (picID, 406, 6, picCopy)

elsif move = 9 then
picID := Pic.FileNew ("H:/x.bmp")
Pic.Draw (picID, 206, 406, picCopy)
end if
end if
end Plot_Move

% main program
loop
var trans : int
var again : string (1)
Initialize
var user : string := "u"
var comp : string := "c"
var turn : int
Draw_Screen
for i : 1 .. 5
turn := i
locate (1, 77)
put "It is your turn."
trans := Get_User_Move
u (i) := trans
Plot_Move (user, trans)
if User_Win then
exit
end if
if i = 5 then
cat := cat + 1
locate (36, 90)
put cat
end if
exit when i = 5
locate (1, 77)
put "It is now the computer's turn."
delay (1000)
trans := Get_Computer_Move (i)
c (i) := trans
Plot_Move (comp, trans)
if Computer_Win then
exit
end if
delay (100)
end for
locate (2, 77)
put "would you like to play again?"
locate (3, 77)
getch (again)
if again = "y" then
else
exit
end if
end loop

Author:	Spitfyre [ Thu Jan 05, 2006 12:32 pm ]
Post subject:
how the hell do i play

Author:	DIIST [ Thu Jan 05, 2006 2:28 pm ]
Post subject:
U sure made my life hard not providing the pictures . PS: I won and i captured the moment via PrintScreen. I ll PM you the image!

Author:	md [ Thu Jan 05, 2006 6:38 pm ]
Post subject:
1. USE CODE TAGS! Please! It makes it soooo much easier for the rest of us! 2. Tick-tack-toe is a fairly simple game to make unbeatable, though it is indeed cool... now only if it were in a language I could run...

Author:	Spitfyre [ Thu Jan 05, 2006 11:08 pm ]
Post subject:
i still dont know how to play after all i am just newbcake

Author:	MysticVegeta [ Sat Jan 07, 2006 12:04 pm ]
Post subject:
Cornflake wrote: 1. USE CODE TAGS! Please! It makes it soooo much easier for the rest of us! 2. Tick-tack-toe is a fairly simple game to make unbeatable, though it is indeed cool... now only if it were in a language I could run... 3. Provide Images 4. 1 simple implementation of minMax algorithm could make the computer unbeatable.

Author:	Spitfyre [ Sat Jan 07, 2006 4:35 pm ]
Post subject:
Whateva!!

Author:	sylvester-27 [ Wed Jan 11, 2006 10:44 am ]
Post subject:
yo the program doesn't work. it doesn't recognize the mouse click is there suppossed to be a special button u press or arrow keys or something?? nvm i just figured out that i have to make my own pics. im kinda slow that way. but still if you went through all the effort to provide such a long and tedious code, you could atleast provide the pictures

Author:	theguru [ Thu Jan 12, 2006 5:48 pm ]
Post subject:
Quote: 4. 1 simple implementation of minMax algorithm could make the computer unbeatable. lol, is that really possible... in my experiences of tictacto you can always stop the other person if you play it smart and do the 'correct' moves, which depend on the current scenario. i'd like to see an unbeatable computer. then i can learn from it and become unbeatable <insert evil laugh here>

Author:	chrispminis [ Thu Jan 12, 2006 6:44 pm ]
Post subject:
By Unbeatable i think he means, that it won't lose, it will win if your carelss but it won't lose, which isn't hard to do.

Author:	Clayton [ Sat Jan 14, 2006 9:18 pm ]
Post subject:
chrispminis wrote: By Unbeatable i think he means, that it won't lose, it will win if your carelss but it won't lose, which isn't hard to do. i think that that is true because i couldnt beat it but i ended up in a cats game quite a few times

Author:	MysticVegeta [ Sun Jan 15, 2006 4:06 pm ]
Post subject:
What I meant was if it couldn't beat you, it wont lose to you, it will draw it, but there will never be a scenario where you would win. Since minMax algorithm will sort out every single possible way the game could end and will choose the one where its winning. Since there are less possible combination (for a computer) to perform, it should have no difficulty in sorting it out. Example: ... .X. ... \| \ \ 0.. .0. ..0 .... and so on... .X. .X. .X. ... ... ... \| 0X. .X. ... and so on. The tree will perform a depth search and choose the path where the computer will win. If no such scenario exists since the player made excellent moves, computer will draw it (notice how I didnt say "try to draw it").

Author:	Rasta Fella [ Sun Jan 15, 2006 5:33 pm ]
Post subject:
Well, saying it is "UNBEATABLE" is true but all that happens to me is a "tie game". Making it unbeatable is simple..but can you make it so the computer also tries to go for wins sometimes???....I doubt possible..to many rand:int and stuff.

Author:	cool dude [ Sun Jan 15, 2006 7:21 pm ]
Post subject:
Rasta Fella wrote: Well, saying it is "UNBEATABLE" is true but all that happens to me is a "tie game". Making it unbeatable is simple..but can you make it so the computer also tries to go for wins sometimes???....I doubt possible..to many rand:int and stuff. r u joking u use no randint at all!!! u use algoritithms which will calculate the best move to make for the computer. and its actually not hard at all to make the computer to try to go for wins. if it wasn't for exams coming up i might've made a really good tic tac toe to show u that u can make the computer go for wins, and impossible to beat it just to draw it or lose to the computer.

Author:	iker [ Sun Jan 15, 2006 8:21 pm ]
Post subject:
I played this game when it was first posted and didn't bother replying because I couldn't beat it. But, what if the computer took the first move instead of the 'user'? I would like to see the computer beat me...

Author:	[Gandalf] [ Sun Jan 15, 2006 8:53 pm ]
Post subject:
People, do you realize that tic-tac-toe is such a shallow game that if the two players are not idiots and are moderately careful it will always be a tie game? Although it is a good place to start learning searching algorithms like min-max, it's not the place to be arguing about who can beat who.

Author:	Clayton [ Sun Jul 30, 2006 9:15 pm ]
Post subject:
as said in many of the before posts, its not hard to make an "unbeatable" computer, just a simple implementation of the min-max algorithm would fix you right up (as stated before), however, posting in a nearly 9 month old topic is something that is generally frowned upon here, but seeing as it is your own topic it might not be so bad for you, but if you do it in someonwe elses topic mods might not be so forgiving consider this a warning (CMON AUTO-LOCK!)

Author:	MysticVegeta [ Mon Jan 16, 2006 12:26 pm ]
Post subject:
I dont think you would need alpha beta pruning to cut off some nodes from the search trees because the possible outcomes is less. I think a search depth of 2 would be enough in the first 2-4 moves. Then we have really less left over moves taht the comp could calculate in 2 seconds, even with turing no more than 3 seconds. I second Gandalf's idea.

Author:	Keerigan [ Sun Jul 30, 2006 4:21 pm ]
Post subject:	Sorry
I am very sorry that this code is not to what most of u are used to seeing on this site. But i was only doing this for a grade 10 final project and wanted to but it on this site so that when the computers at my school were erased i could easily come to this site and get it back(i did not have the internet at this time so i could not send it to myself). At the same time as being able to get it back i could also see if in fact i had made the ai unbeatable. I did not think that there would be this much camotion. I did read some of ur posts so here are a few answers u may be looking for. I do not know what those "user tags" are. I am new to this site and did not see how to attach pic(but it is very easy to do). as i said earlier i was doing this for a final project and i was told to make the pc unbeatalbe. i have already made it possible to have eaither player go first(u can too just change to coding) and as far as i kno u still will not be able to beat it. the ai does go for the win, it just does not set out to do so, it just makes sure that u don't win after checking that if it can win. again i am cery sorry about the inconvineance(can't really spell) but again plz tell me the way that u have beatten the ai if u have done so(lol i made a beat with a friend)

Author:	ag23 [ Tue Jan 09, 2007 5:56 pm ]
Post subject:	Re: Tic-Tac-Toe(UNBEATABLE COMPUTER IF YOU WIN TELL ME!)
hey....uhhhh am kind of a noob at this turing stuff, and i was jsut wondering how do i get the images to apper on the game? and everytime i run it and click on the game it stops...thanks in advance!!!!!!!!!!!