Function Check with Tic Tac Toe

[Ennsy_908]

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Tic Tac Toe %
% Created by: Chris Enns %
% ICS 3M1 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setscreen ("graphics 200; 200")
proc GameBoard %Draws Game Board
Draw.ThickLine (325, 150, 580, 150, 5, 16) % Bottom Horizontal Line
Draw.ThickLine (410, 65, 410, 320, 5, 16) % Left Vertical Line
Draw.ThickLine (495, 65, 495, 320, 5, 16) % Right Vertical Line
Draw.ThickLine (325, 235, 580, 235, 5, 16) % Top Horizontal Line
end GameBoard
proc XBL % Draws X in bottom left spot
Draw.ThickLine (335, 140, 400, 70, 3, 12)
Draw.ThickLine (335, 70, 400, 140, 3, 12)
end XBL

proc XBM % Draws X in bottom middle spot
Draw.ThickLine (420, 140, 485, 70, 3, 12)
Draw.ThickLine (420, 70, 485, 140, 3, 12)
end XBM

proc XBR % Draws X in bottom right spot
Draw.ThickLine (505, 140, 570, 70, 3, 12)
Draw.ThickLine (505, 70, 570, 140, 3, 12)
end XBR

proc XML % Draws X in middle left spot
Draw.ThickLine (335, 225, 400, 160, 3, 12)
Draw.ThickLine (335, 160, 400, 225, 3, 12)
end XML

proc XM % Draws X in middle spot
Draw.ThickLine (420, 225, 485, 160, 3, 12)
Draw.ThickLine (420, 160, 485, 225, 3, 12)
end XM

proc XMR % Draws X in middle right spot
Draw.ThickLine (505, 225, 580, 160, 3, 12)
Draw.ThickLine (505, 160, 580, 225, 3, 12)
end XMR

proc XTL % Draws X in top left spot
Draw.ThickLine (335, 315, 400, 245, 3, 12)
Draw.ThickLine (335, 246, 400, 315, 3, 12)
end XTL

proc XTM % Draws X in top middle spot
Draw.ThickLine (420, 315, 485, 245, 3, 12)
Draw.ThickLine (420, 245, 485, 315, 3, 12)
end XTM

proc XTR % Draws X in top right spot
Draw.ThickLine (505, 315, 580, 245, 3, 12)
Draw.ThickLine (505, 245, 580, 315, 3, 12)
end XTR

proc OBL % Draw O in bottom left spot
Draw.Oval (367, 107, 30, 30, blue)
Draw.Oval (367, 107, 37, 37, blue)
Draw.Fill (367, 140, blue, blue)
end OBL

proc OBM % Draws O in bottom middle spot
Draw.Oval (452, 107, 30, 30, blue)
Draw.Oval (452, 107, 37, 37, blue)
Draw.Fill (452, 140, blue, blue)
end OBM

proc OBR % Draws O in bottom right spot
Draw.Oval (537, 107, 30, 30, blue)
Draw.Oval (537, 107, 37, 37, blue)
Draw.Fill (537, 140, blue, blue)
end OBR

proc OML % Draws O in middle left spot
Draw.Oval (367, 192, 30, 30, blue)
Draw.Oval (367, 192, 37, 37, blue)
Draw.Fill (367, 223, blue, blue)
end OML

proc OM % Draws O in middle spot
Draw.Oval (452, 192, 30, 30, blue)
Draw.Oval (452, 192, 37, 37, blue)
Draw.Fill (452, 223, blue, blue)
end OM

proc OMR % Draws O in middle right spot
Draw.Oval (537, 192, 30, 30, blue)
Draw.Oval (537, 192, 37, 37, blue)
Draw.Fill (537, 223, blue, blue)
end OMR

proc OTL % Draws O in top left spot
Draw.Oval (367, 277, 30, 30, blue)
Draw.Oval (367, 277, 37, 37, blue)
Draw.Fill (367, 310, blue, blue)
end OTL

proc OTM % Draws O in top middle spot
Draw.Oval (452, 277, 30, 30, blue)
Draw.Oval (452, 277, 37, 37, blue)
Draw.Fill (452, 310, blue, blue)
end OTM

proc OTR % Draws O in top right spot
Draw.Oval (537, 277, 30, 30, blue)
Draw.Oval (537, 277, 37, 37, blue)
Draw.Fill (537, 310, blue, blue)
end OTR

proc DrawX % Draws x in place selected
var x, y, b, r : int
loop
Mouse.Where (x, y, b)

if b = 1 and x > 325 and x < 410
and y > 65 and y < 150 then
XBL

exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 65 and y < 150 then
XBM
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 65 and y < 150 then
XBR
exit when b = 1
elsif b = 1 and x > 325 and x < 410
and y > 150 and y < 235 then
XML
exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 150 and y < 235 then
XM
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 150 and y < 235 then
XMR
exit when b = 1
elsif b = 1 and x > 325 and x < 410
and y > 235 and y < 320 then
XTL
exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 235 and y < 320 then
XTM
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 235 and y < 320 then
XTR
exit when b = 1
end if
end loop
end DrawX

proc DrawO % Draws O in place selected
var x, y, b : int
loop
Mouse.Where (x, y, b)

if b = 1 and x > 325 and x < 410
and y > 65 and y < 150 then
OBL
exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 65 and y < 150 then
OBM
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 65 and y < 150 then
OBR
exit when b = 1
elsif b = 1 and x > 325 and x < 410
and y > 150 and y < 235 then
OML
exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 150 and y < 235 then
OM
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 150 and y < 235 then
OMR
exit when b = 1
elsif b = 1 and x > 325 and x < 410
and y > 235 and y < 320 then
OTL
exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 235 and y < 320 then
OTM
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 235 and y < 320 then
OTR
exit when b = 1
end if
end loop
end DrawO

var Check : array 1 .. 3, 1 .. 3 of int := init (0, 0, 0, 0, 0, 0, 0, 0, 0)

function Win : boolean
for i : 1 .. 3
if Check (i, 1) not= 0 and Check (i, 1) = Check (i, 2)
and Check (i, 1) = Check (i, 3) then
cls
result true
end if

if Check (1, i) not= 0 and Check (1, i) = Check (2, i)
and Check (1, i) = Check (3, i) then
put " win 2"
result true
end if
if Check (2, 2) not= 0 and Check (1, 1) = Check (2, 2)
and Check (2, 2) = Check (3, 3) then
put "Win 3"
result true

elsif Check (2, 2) not= 0 and Check (1, 3) = Check (2, 2)
and Check (2, 2) = Check (3, 1) then
put " Win 4"
result true
end if
result false
end for
end Win
put "X starts"
put ""
put "Click were you want to put an X or O"
delay (500)


GameBoard
DrawX
delay (500)
DrawO
delay (500)
DrawX
delay (500)
DrawO
delay (500)
DrawX
delay (500)
put Win
DrawO
delay (500)
put Win
DrawX
delay (500)
put Win
DrawO
delay (500)
put Win
DrawX
delay (500)
put Win


I Can't Figure out why the Check Doesn't Work

When I run it it comes up as false

[Albrecd]

The reason your check won't work is that you never change the array Check after it is declared. Every time an X or an O is drawn you need to change the value of the proper element of Check; otherwise, your checking function will always return false.

[agnivohneb]

Your program is to complex. I made a Tic Tac Toe game last semester for my ICS 3O1 summative and it is 138 lines, nearly half of what yours is and i added the feature to save and load games, and set usernames. I got 95% on it. Keep working at it. Plan how your going to set up your functions and procedures.

I'm not trying to put you down, just trying to help you make a better program.

At the end of the semester I will post mine (I'm not posting now you will cheat) and we can see who is better.

[Ennsy_908]

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Tic Tac Toe %
% Created by: Chris Enns %
% ICS 3M1 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
var Check : array 1 .. 3, 1 .. 3 of int := init (0, 0, 0, 0, 0, 0, 0, 0, 0)
var x, y, b : int
% Instructions
put " TicTacToe"
put "The object of the game is to get a row of X's or a row of O's before your"
put "opponent. These rows can be vertical, horizontal, or diagonal. Click Where"
put " you want to place an X or an O"
put ""
put "********************************************************************************"
put ""
put " IMPORTANT: DO NOT CLICK WHHERE AN X OR O HAS ALREADY BEEN DRAWN. THIS WILL"
put " CAUSE AN OVERLAP AND YOU WILL NOT BE ABLE TO FINISH THE GAME"
put ""
put "********************************************************************************"
put ""
put " Click anywhere to play"
loop
Mouse.Where (x, y, b)
if b = 1 then
cls
exit when b = 1
end if
end loop
proc GameBoard %Draws Game Board
Draw.ThickLine (325, 150, 580, 150, 5, 16) % Bottom Horizontal Line
Draw.ThickLine (410, 65, 410, 320, 5, 16) % Left Vertical Line
Draw.ThickLine (495, 65, 495, 320, 5, 16) % Right Vertical Line
Draw.ThickLine (325, 235, 580, 235, 5, 16) % Top Horizontal Line
end GameBoard

proc XBL % Draws X in bottom left spot
Draw.ThickLine (335, 140, 400, 70, 3, 12)
Draw.ThickLine (335, 70, 400, 140, 3, 12)
end XBL

proc XBM % Draws X in bottom middle spot
Draw.ThickLine (420, 140, 485, 70, 3, 12)
Draw.ThickLine (420, 70, 485, 140, 3, 12)
end XBM

proc XBR % Draws X in bottom right spot
Draw.ThickLine (505, 140, 570, 70, 3, 12)
Draw.ThickLine (505, 70, 570, 140, 3, 12)
end XBR

proc XML % Draws X in middle left spot
Draw.ThickLine (335, 225, 400, 160, 3, 12)
Draw.ThickLine (335, 160, 400, 225, 3, 12)
end XML

proc XM % Draws X in middle spot
Draw.ThickLine (420, 225, 485, 160, 3, 12)
Draw.ThickLine (420, 160, 485, 225, 3, 12)
end XM

proc XMR % Draws X in middle right spot
Draw.ThickLine (505, 225, 580, 160, 3, 12)
Draw.ThickLine (505, 160, 580, 225, 3, 12)
end XMR

proc XTL % Draws X in top left spot
Draw.ThickLine (335, 315, 400, 245, 3, 12)
Draw.ThickLine (335, 246, 400, 315, 3, 12)
end XTL

proc XTM % Draws X in top middle spot
Draw.ThickLine (420, 315, 485, 245, 3, 12)
Draw.ThickLine (420, 245, 485, 315, 3, 12)
end XTM

proc XTR % Draws X in top right spot
Draw.ThickLine (505, 315, 580, 245, 3, 12)
Draw.ThickLine (505, 245, 580, 315, 3, 12)
end XTR

proc OBL % Draw O in bottom left spot
Draw.Oval (367, 107, 30, 30, blue)
Draw.Oval (367, 107, 37, 37, blue)
Draw.Fill (367, 140, blue, blue)
end OBL

proc OBM % Draws O in bottom middle spot
Draw.Oval (452, 107, 30, 30, blue)
Draw.Oval (452, 107, 37, 37, blue)
Draw.Fill (452, 140, blue, blue)
end OBM

proc OBR % Draws O in bottom right spot
Draw.Oval (537, 107, 30, 30, blue)
Draw.Oval (537, 107, 37, 37, blue)
Draw.Fill (537, 140, blue, blue)
end OBR

proc OML % Draws O in middle left spot
Draw.Oval (367, 192, 30, 30, blue)
Draw.Oval (367, 192, 37, 37, blue)
Draw.Fill (367, 223, blue, blue)
end OML

proc OM % Draws O in middle spot
Draw.Oval (452, 192, 30, 30, blue)
Draw.Oval (452, 192, 37, 37, blue)
Draw.Fill (452, 223, blue, blue)
end OM

proc OMR % Draws O in middle right spot
Draw.Oval (537, 192, 30, 30, blue)
Draw.Oval (537, 192, 37, 37, blue)
Draw.Fill (537, 223, blue, blue)
end OMR

proc OTL % Draws O in top left spot
Draw.Oval (367, 277, 30, 30, blue)
Draw.Oval (367, 277, 37, 37, blue)
Draw.Fill (367, 310, blue, blue)
end OTL

proc OTM % Draws O in top middle spot
Draw.Oval (452, 277, 30, 30, blue)
Draw.Oval (452, 277, 37, 37, blue)
Draw.Fill (452, 310, blue, blue)
end OTM

proc OTR % Draws O in top right spot
Draw.Oval (537, 277, 30, 30, blue)
Draw.Oval (537, 277, 37, 37, blue)
Draw.Fill (537, 310, blue, blue)
end OTR

proc DrawX % Draws x in place selected

loop
Mouse.Where (x, y, b)

if b = 1 and x > 325 and x < 410
and y > 65 and y < 150 then
XBL
Check (1, 1) := 1
exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 65 and y < 150 then
XBM
Check (1, 2) := 1
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 65 and y < 150 then
XBR
Check (1, 3) := 1
exit when b = 1
elsif b = 1 and x > 325 and x < 410
and y > 150 and y < 235 then
XML
Check (2, 1) := 1
exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 150 and y < 235 then
XM
Check (2, 2) := 1
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 150 and y < 235 then
XMR
Check (2, 3) := 1
exit when b = 1
elsif b = 1 and x > 325 and x < 410
and y > 235 and y < 320 then
XTL
Check (3, 1) := 1
exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 235 and y < 320 then
XTM
Check (3, 2) := 1
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 235 and y < 320 then
XTR
Check (3, 3) := 1
exit when b = 1
end if
end loop
end DrawX

proc DrawO % Draws O in place selected
var x, y, b : int
loop
Mouse.Where (x, y, b)

if b = 1 and x > 325 and x < 410
and y > 65 and y < 150 then
OBL
Check (1, 1) := 2
exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 65 and y < 150 then
OBM
Check (1, 2) := 2
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 65 and y < 150 then
OBR
Check (1, 3) := 2
exit when b = 1
elsif b = 1 and x > 325 and x < 410
and y > 150 and y < 235 then
OML
Check (2, 1) := 2
exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 150 and y < 235 then
OM
Check (2, 2) := 2
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 150 and y < 235 then
OMR
Check (2, 3) := 2
exit when b = 1
elsif b = 1 and x > 325 and x < 410
and y > 235 and y < 320 then
OTL
Check (3, 1) := 2
exit when b = 1
elsif b = 1 and x > 410 and x < 495
and y > 235 and y < 320 then
OTM
Check (3, 2) := 2
exit when b = 1
elsif b = 1 and x > 495 and x < 580
and y > 235 and y < 320 then
OTR
Check (3, 3) := 2
exit when b = 1
end if
end loop
end DrawO




function Win : boolean
for i : 1 .. 3

if Check (i, 1) not= 0 and Check (i, 1) = Check (i, 2)
and Check (i, 1) = Check (i, 3) then
result true
end if

if Check (1, i) not= 0 and Check (1, i) = Check (2, i)
and Check (1, i) = Check (3, i) then
result true
end if
if Check (2, 2) not= 0 and Check (1, 1) = Check (2, 2)
and Check (2, 2) = Check (3, 3) then
result true

elsif Check (2, 2) not= 0 and Check (1, 3) = Check (2, 2)
and Check (2, 2) = Check (3, 1) then
result true
end if
result false
end for
end Win

GameBoard
DrawX
delay (500)
DrawO
delay (500)
DrawX
delay (500)
DrawO
delay (500)
DrawX
delay (500)
if Win then
put " winner"
end if
DrawO
delay (500)
if Win then
put " winner"
end if
put Win
DrawX
delay (500)
if Win then
put " winner"
end if
put Win
DrawO
delay (500)
if Win then
put " winner"
end if
put Win
DrawX
delay (500)
if Win then
put " winner"
end if
put Win


I am now giving a value to check but now only a few of the checks work and i have no idea how to fix it