CONNECT 4

SuperGenius · **Posted:** Fri Mar 12, 2004 8:16 pm

This is my finished connect 4 game. It rules. Try it out if you want, and if you spot a glitch please let me know, although I'm fairly certain that i've taken care of them all. There is a process to play music when you win, which I have commented for your convenience. Change the filename and uncomment it if that;s the kind of thing that floats your boat.

code:

% CONNECT 4 by Chris
% stupid mistake pointed out by Paul Bian... thanks x2
setscreen ("graphics:800;600,nobuttonbar")
var col, stop, tally : int
var act, colchoice : string (1) := ""
var actcolour, actname, checkcolour, winner : string := ""
var board : array 1 .. 8, 1 .. 8 of string
var height : array 1 .. 8 of int
var names : array 1 .. 2 of string
var wins : array 1 .. 2 of int := init (0, 0)
var winlocc, winloch : array 1 .. 4 of int
proc colget
loop
locate (33, 1)
put actname, "(", actcolour, ")", " Enter col choice" ..
getch (colchoice)
locate (34, 1)
put ""
if colchoice = "1" or colchoice = "2" or colchoice = "3" or colchoice = "4" or colchoice = "5" or colchoice = "6" or colchoice = "7" or colchoice = "8" then
exit
else
locate (34, 1)
put "numbers 1-8 only"
end if
end loop
col := strint (colchoice)
end colget
proc drawboard
for h : 1 .. 8
for c : 1 .. 8
if board (h, c) not= " " then
if board (h, c) = "RED" then
Draw.FillOval (130 + c * 60, 80 + h * 60, 25, 25, red)
elsif board (h, c) = "GREEN" then
Draw.FillOval (130 + c * 60, 80 + h * 60, 25, 25, green)
end if
end if
end for
end for
end drawboard
proc switch
if actcolour = "RED" then
actcolour := "GREEN"
actname := names (2)
else
actcolour := "RED"
actname := names (1)
end if
end switch
proc wincheck
loop
for a : 1 .. 8
for b : 1 .. 5
if board (a, b) = checkcolour and
board (a, b + 1) = checkcolour and
board (a, b + 2) = checkcolour and
board (a, b + 3) = checkcolour then
winner := checkcolour
for c : 1 .. 4
winlocc (c) := a
end for
winloch (1) := b
winloch (2) := b + 1
winloch (3) := b + 2
winloch (4) := b + 3
exit
end if
end for
end for
for a : 1 .. 5
for b : 1 .. 8
if board (a, b) = checkcolour and
board (a + 1, b) = checkcolour and
board (a + 2, b) = checkcolour and
board (a + 3, b) = checkcolour then
winner := checkcolour
for c : 1 .. 4
winloch (c) := b
end for
winlocc (1) := a
winlocc (2) := a + 1
winlocc (3) := a + 2
winlocc (4) := a + 3
exit
end if
end for
end for
for a : 1 .. 5
for b : 1 .. 5
if board (a, b) = checkcolour and
board (a + 1, b + 1) = checkcolour and
board (a + 2, b + 2) = checkcolour and
board (a + 3, b + 3) = checkcolour then
winner := checkcolour
winloch (1) := a
winloch (2) := a + 1
winloch (3) := a + 2
winloch (4) := a + 3
winlocc (1) := b
winlocc (2) := b + 1
winlocc (3) := b + 2
winlocc (4) := b + 3
exit
end if
end for
end for
for a : 1 .. 5
for decreasing b : 8 .. 4
if board (a, b) = checkcolour and
board (a + 1, b - 1) = checkcolour and
board (a + 2, b - 2) = checkcolour and
board (a + 3, b - 3) = checkcolour then
winner := checkcolour
winloch (1) := b
winloch (2) := b - 1
winloch (3) := b - 2
winloch (4) := b - 3
winlocc (1) := a
winlocc (2) := a + 1
winlocc (3) := a + 2
winlocc (4) := a + 3
exit
end if
end for
end for
exit
end loop
end wincheck
process flash
loop
Draw.FillOval (130 + winloch (1) * 60, 80 + winlocc (1) * 60, 25, 25, 9)
Draw.FillOval (130 + winloch (2) * 60, 80 + winlocc (2) * 60, 25, 25, 9)
Draw.FillOval (130 + winloch (3) * 60, 80 + winlocc (3) * 60, 25, 25, 9)
Draw.FillOval (130 + winloch (4) * 60, 80 + winlocc (4) * 60, 25, 25, 9)
delay (100)
Draw.FillOval (130 + winloch (1) * 60, 80 + winlocc (1) * 60, 25, 25, 42)
Draw.FillOval (130 + winloch (2) * 60, 80 + winlocc (2) * 60, 25, 25, 42)
Draw.FillOval (130 + winloch (3) * 60, 80 + winlocc (3) * 60, 25, 25, 42)
Draw.FillOval (130 + winloch (4) * 60, 80 + winlocc (4) * 60, 25, 25, 42)
delay (100)
exit when act = "y" or act = "n"
end loop
end flash
%process xMusic
% Music.PlayFile ("lc.mp3")
%end xMusic
loop
Music.PlayFileStop
%%%startup%%%
col := 0
stop := 0
tally := 0
winner := ""
for a : 1 .. 8
height (a) := 0
for b : 1 .. 8
board (a, b) := " "
end for
end for
for a : 1 .. 4
winlocc (a) := 0
winloch (a) := 0
end for
%%%get names%%%
if act not= "y" then
for a : 1 .. 2
put "ENTER NAME ", a
get names (a)
end for
end if
cls
%%%end names
act := ""
actcolour := "RED"
actname := names (1)
%%%Draws the grid of the board%%%
Draw.Line (160, 590, 160, 110, black)
Draw.Line (640, 590, 640, 110, black)
Draw.Line (160, 590, 640, 590, black)
Draw.Line (160, 110, 640, 110, black)
for a : 1 .. 7
Draw.Line (a * 60 + 160, 110, a * 60 + 160, 590, black)
Draw.Line (160, a * 60 + 110, 640, a * 60 + 110, black)
end for
locate (32, 1)
put " " : 23, "1" : 8, "2" : 7, "3" : 8, "4" : 7, "5" : 8, "6" : 7, "7" : 8, "8"
%%%end grid%%%
%%%end startup%%%
loop
loop
colget
if height (col) = 8 then
locate (34, 1)
put "That col is full."
else
height (col) := height (col) + 1
exit
end if
end loop
board (height (col), col) := actcolour
drawboard
checkcolour := "RED"
wincheck
checkcolour := "GREEN"
wincheck
if winner = "RED" then
locate (34, 1)
put names (1), " WINS!"
wins (1) := wins (1) + 1
exit
elsif winner = "GREEN" then
locate (34, 1)
put names (2), " WINS!"
wins (2) := wins (2) + 1
exit
end if
switch
end loop
locate (34, 1)
for a : 1 .. 2
put names (a), "'s wins: ", wins (a)
end for
if act not= "y" and winlocc (1) not= 0 then
fork flash
fork xMusic
end if
locate (33, 1)
put "WOULD YOU LIKE TO PLAY AGAIN?(y/n)" ..
loop
getch (act)
if act = "n" or act = "y" then
exit
else
locate (33, 1)
put "enter y or n, lower case " ..
end if
end loop
exit when act = "n"
delay (500)
end loop

Delos · **Posted:** Fri Mar 12, 2004 8:52 pm

Oh my...that's...a lot...of code.

In other words:
- please attatch .t files if they are going to be that long. It makes everyone's lives easier.
- if you're going to put the code right into the post (which isn't always a bad idea), try using the 'code' tags. Not only does it look neater, but it's more presentable as well! That and you won't get flamed as much...

Otherwise...look's like a hopeful proggie.

jonos · **Posted:** Fri Mar 12, 2004 10:55 pm

nice program, you should make it with ai though, that would be a nice challenge, and using the mouse which wouldn't be too hard. very smooth and nice looking.

Paul · **Posted:** Fri Mar 12, 2004 11:05 pm

Yay! Good to see it up and running after all that work. Very Happy

Delos · **Posted:** Sat Mar 13, 2004 4:26 pm

Nice!

Just found a bug though:

I won using a diagonal win with these coords:
(1, 4) (2, 3) (3, 2) (4, 1)

And then the flashy dots came, but they appeared at the following coords:
(5, -1) (6, -2) [and I'm assuming...] (7, -3) (8, -4)

So...yeah...that was odd. Shouldn't be too hard to fix though.

Paul · **Posted:** Sat Mar 13, 2004 8:40 pm

Methinks its the problem with the array, where if you played a piece in the analog of 1,8 in the chart, it would fill variable (1,1)

SuperGenius · **Posted:** Sat Mar 13, 2004 8:48 pm

1. I noticed and fixed that little problem where the wrong squares flashed orange and blue
2. I thought I had nailed down the problem where a circle would flash at (0,0) at the start of the second game, but apperently not.
3. sorry about not using [code]tags. ill edit my post right now and put them in.
4. are you kidding me about A.I.? I almost broke the monitor with my face doing this much.
5. thanks guys

SuperGenius · **Posted:** Sat Mar 13, 2004 9:07 pm

there... i think i've taken care of the issues you guys brought up, and ive updated the source in the first post. As for my decision to post the soucre and not attatch it, there are two reasons.

1. I didnt think to attatch it
2. I'll be able to work on it at school if I want without having to use disks. one decided to go and have an error when I was working on this, so I lost about a hundred lines of code, but I rebuilt my program more efficently, so I guess it worked out.
3. Everyone in my class will end up seeing it probably, because they are lazy and all they do is go on compsci and play games. Or look at web pages titled "Lord of the Blings" when the teacher is talking.

the_short1 · **Posted:** Sun Mar 14, 2004 7:21 pm

good game. i like...it would be nice with a mouse.. and not too hard either... good job.. + 2 bits... also.. that GTO in ur avtar rocks.. the new one.. (in sig) sucks i hate the look of it... it lost its Muscle Car look...

Cervantes · **Posted:** Sun Mar 14, 2004 7:39 pm

talk about cheap Razz

You recieved 2 bits for telling him that he got 2 bits from you Confused

anyways, great job on your connect 4 program SuperGenius.
+20 Bits, and + 5 for saying "I almost broke my monitor with my face doing this much" Razz

What's this Lord of the Blings? It sounds interesting Wink

shorthair · **Posted:** Mon Mar 15, 2004 9:22 am

Great , just great , good fun for 20 mintes ( thatas a long time for a turing program ) ,

Just to ket you know , a good way of using code in different places is to send yourself the code in a private message , that way to ca npost it as a file here , and then have hte source in youyr private messages folder ( ive done it a fewtimes ) to get stuff from school to home !!11 Very Happy

the_short1 · **Posted:** Mon Mar 15, 2004 12:18 pm

once dan gets back he mioght re enable the attachment mod to emails... and have it delete the attachments every week... but yea... thats smart sending yourself the source///

BTW: you can just download to the temp folder and open??? you NEED to download to ur floppy... that SUCKS...

PS: ... i did that with my school email... i sent big files to myself it has unlikmited attaachment size and inbox size... and its great... i sent myself games and 150 Mp3's/// i had 300 MB still in there... but at the end of the semester the board told me to clean it up.. bring it down... to 50... i understand that...

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members