alright, now the mouse.where is all figured out (thanks to the guys that helped me out
), but now i need help on a check, its a long program (sorry im kinda new at this) any help would be awesome, thanks guys.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% CONNECT 4 %
% By: Joey Newell %
% ICS 3M1 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% VARIABLES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
const Rows := 5
const Columns := 5
var counter : int
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TITLE AND INSTRUCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
proc Instructions
put " Connect 4 for Turing"
put " By: Joey Newell"
put ""
put ""
put ""
put " 2 Player Connect 4!"
put ""
put " Get 4 of the same colour in a"
put " row!"
put ""
put " Remember not to click on a box"
put " someone has already clicked on!"
put ""
put " HAVE FUN!"
end Instructions
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% GAMEBOARD %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
proc GameBoard
Draw.Box (5, 5, 355, 355, black)
Draw.Line (75, 5, 75, 355, black)
Draw.Line (145, 5, 145, 355, black)
Draw.Line (215, 5, 215, 355, black)
Draw.Line (285, 5, 285, 355, black)
Draw.Line (5, 75, 355, 75, black)
Draw.Line (5, 145, 355, 145, black)
Draw.Line (5, 215, 355, 215, black)
Draw.Line (5, 285, 355, 285, black)
end GameBoard
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MOUSE INPUT %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
proc DrawRed
var x, y, b: int
loop
Mouse.Where (x, y, b)
if b=1 and x > 5 and x < 75
and y > 5 and y < 75 then
Draw.FillOval (40, 40, 30, 30, red)
exit when b=1
elsif b=1 and x > 75 and x < 145
and y > 5 and y < 75 then
Draw.FillOval (110, 40, 30, 30, red)
exit when b=1
elsif b=1 and x > 145 and x < 215
and y > 5 and y < 75 then
Draw.FillOval (180, 40, 30, 30, red)
exit when b=1
elsif b=1 and x > 215 and x < 285
and y > 5 and y< 75 then
Draw.FillOval (250, 40, 30, 30, red)
exit when b=1
elsif b=1 and x > 285 and x < 355
and y > 5 and y < 75 then
Draw.FillOval (320, 40, 30, 30, red)
exit when b=1
elsif b=1 and x > 5 and x < 75
and y > 75 and y < 145 then
Draw.FillOval (40, 110, 30, 30, red)
exit when b=1
elsif b=1 and x > 75 and x < 145
and y > 75 and y < 145 then
Draw.FillOval (110, 110, 30, 30, red)
exit when b=1
elsif b=1 and x > 145 and x < 215
and y > 75 and y < 145 then
Draw.FillOval (180, 110, 30, 30, red)
exit when b=1
elsif b=1 and x > 215 and x < 285
and y > 75 and y < 145 then
Draw.FillOval (250, 110, 30, 30, red)
exit when b=1
elsif b=1 and x > 285 and x < 355
and y > 75 and y < 145 then
Draw.FillOval (320, 110, 30, 30, red)
exit when b=1
elsif b=1 and x > 5 and x < 75
and y > 145 and y < 215 then
Draw.FillOval (40, 180, 30, 30, red)
exit when b=1
elsif b=1 and x > 75 and x < 145
and y > 145 and y < 215 then
Draw.FillOval (110, 180, 30, 30, red)
exit when b=1
elsif b=1 and x > 145 and x < 215
and y > 145 and y < 215 then
Draw.FillOval (180, 180, 30, 30, red)
exit when b=1
elsif b=1 and x > 215 and x < 285
and y > 145 and y < 215 then
Draw.FillOval (250, 180, 30, 30, red)
exit when b=1
elsif b=1 and x > 285 and x < 355
and y > 145 and y < 215 then
Draw.FillOval (320, 180, 30, 30, red)
exit when b=1
elsif b=1 and x > 5 and x < 75
and y > 215 and y < 285 then
Draw.FillOval (40, 250, 30, 30, red)
exit when b=1
elsif b=1 and x > 75 and x < 145
and y > 215 and y < 285 then
Draw.FillOval (110, 250, 30, 30, red)
exit when b=1
elsif b=1 and x > 145 and x < 215
and y > 215 and y < 285 then
Draw.FillOval (180, 250, 30, 30, red)
exit when b=1
elsif b=1 and x > 215 and x < 285
and y > 215 and y < 285 then
Draw.FillOval (250, 250, 30, 30, red)
exit when b=1
elsif b=1 and x > 285 and x < 355
and y > 215 and y < 285 then
Draw.FillOval (320, 250, 30, 30, red)
exit when b=1
elsif b=1 and x > 5 and x < 75
and y > 285 and y < 355 then
Draw.FillOval (40, 320, 30, 30, red)
exit when b=1
elsif b=1 and x > 75 and x < 145
and y > 285 and y < 355 then
Draw.FillOval (110, 320, 30, 30, red)
exit when b=1
elsif b=1 and x > 145 and x < 215
and y > 285 and y < 355 then
Draw.FillOval (180, 320, 30, 30, red)
exit when b=1
elsif b=1 and x > 215 and x < 285
and y > 285 and y < 355 then
Draw.FillOval (250, 320, 30, 30, red)
exit when b=1
elsif b=1 and x > 285 and x < 355
and y > 285 and y < 355 then
Draw.FillOval (320, 320, 30, 30, red)
exit when b=1
end if
end loop
end DrawRed
proc DrawBlack
var x, y, b: int
loop
Mouse.Where (x, y, b)
if b=1 and x > 5 and x < 75
and y > 5 and y < 75 then
Draw.FillOval (40, 40, 30, 30, black)
exit when b=1
elsif b=1 and x > 75 and x < 145
and y > 5 and y < 75 then
Draw.FillOval (110, 40, 30, 30, black)
exit when b=1
elsif b=1 and x > 145 and x < 215
and y > 5 and y < 75 then
Draw.FillOval (180, 40, 30, 30, black)
exit when b=1
elsif b=1 and x > 215 and x < 285
and y > 5 and y< 75 then
Draw.FillOval (250, 40, 30, 30, black)
exit when b=1
elsif b=1 and x > 285 and x < 355
and y > 5 and y < 75 then
Draw.FillOval (320, 40, 30, 30, black)
exit when b=1
elsif b=1 and x > 5 and x < 75
and y > 75 and y < 145 then
Draw.FillOval (40, 110, 30, 30, black)
exit when b=1
elsif b=1 and x > 75 and x < 145
and y > 75 and y < 145 then
Draw.FillOval (110, 110, 30, 30, black)
exit when b=1
elsif b=1 and x > 145 and x < 215
and y > 75 and y < 145 then
Draw.FillOval (180, 110, 30, 30, black)
exit when b=1
elsif b=1 and x > 215 and x < 285
and y > 75 and y < 145 then
Draw.FillOval (250, 110, 30, 30, black)
exit when b=1
elsif b=1 and x > 285 and x < 355
and y > 75 and y < 145 then
Draw.FillOval (320, 110, 30, 30, black)
exit when b=1
elsif b=1 and x > 5 and x < 75
and y > 145 and y < 215 then
Draw.FillOval (40, 180, 30, 30, black)
exit when b=1
elsif b=1 and x > 75 and x < 145
and y > 145 and y < 215 then
Draw.FillOval (110, 180, 30, 30, black)
exit when b=1
elsif b=1 and x > 145 and x < 215
and y > 145 and y < 215 then
Draw.FillOval (180, 180, 30, 30, black)
exit when b=1
elsif b=1 and x > 215 and x < 285
and y > 145 and y < 215 then
Draw.FillOval (250, 180, 30, 30, black)
exit when b=1
elsif b=1 and x > 285 and x < 355
and y > 145 and y < 215 then
Draw.FillOval (320, 180, 30, 30, black)
exit when b=1
elsif b=1 and x > 5 and x < 75
and y > 215 and y < 285 then
Draw.FillOval (40, 250, 30, 30, black)
exit when b=1
elsif b=1 and x > 75 and x < 145
and y > 215 and y < 285 then
Draw.FillOval (110, 250, 30, 30, black)
exit when b=1
elsif b=1 and x > 145 and x < 215
and y > 215 and y < 285 then
Draw.FillOval (180, 250, 30, 30, black)
exit when b=1
elsif b=1 and x > 215 and x < 285
and y > 215 and y < 285 then
Draw.FillOval (250, 250, 30, 30, black)
exit when b=1
elsif b=1 and x > 285 and x < 355
and y > 215 and y < 285 then
Draw.FillOval (320, 250, 30, 30, black)
exit when b=1
elsif b=1 and x > 5 and x < 75
and y > 285 and y < 355 then
Draw.FillOval (40, 320, 30, 30, black)
exit when b=1
elsif b=1 and x > 75 and x < 145
and y > 285 and y < 355 then
Draw.FillOval (110, 320, 30, 30, black)
exit when b=1
elsif b=1 and x > 145 and x < 215
and y > 285 and y < 355 then
Draw.FillOval (180, 320, 30, 30, black)
exit when b=1
elsif b=1 and x > 215 and x < 285
and y > 285 and y < 355 then
Draw.FillOval (250, 320, 30, 30, black)
exit when b=1
elsif b=1 and x > 285 and x < 355
and y > 285 and y < 355 then
Draw.FillOval (320, 320, 30, 30, black)
exit when b=1
end if
end loop
end DrawBlack
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% CHECKS FOR A "CONNECT 4" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PROCEDURE CALLS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Instructions
GameBoard
loop
DrawRed
delay (200)
DrawBlack
delay (200)
end loop