4 in a row check

[cycro1234]

How would I make a procedure that checks in my connect 4 game if there are 4 of the same colour in a row? Do I use whatdotcolour?

[cycro1234]

I have something like this :

code:

if whatdotcolour (x, y) = 12 and whatdotcolour (x+70, y) = 12 and whatdotcolour (x+140, y) = 12 then     put "Game Over" end if

However, there are many possibilities, since the player can get 4 in a row left to right, diagonally, and up and down. Is there a shorter way than this? Or more effective?

[Bacchus]

instead of always checking them, when the token you watever you use to mark a space when the player chooses it, i would set an array to the color. then all you have to do is compare arrays

[cycro1234]

How would I do that? An example please? I'm still kinda new to arrays.

[cycro1234]

*Sigh* One day left til it's due, and I'm STILL stuck. I haven't figured out how to make my program work with arrays. ANy help at all would be greatly appreciated.

[eNc]

cycro1234 wrote:

*Sigh* One day left til it's due, and I'm STILL stuck. I haven't figured out how to make my program work with arrays. ANy help at all would be greatly appreciated.

code:

var a : array 1..4 of int var b : array 1..4 or int for i : 1..4         if a(i) = b(i) then         Do some stuff here         end if end for

I don't kno it that will help

[cycro1234]

Ok, I found out where my problem is exactly, but now i need to know how to fix it. I'll describe the problem:

One of my very first pieces of code is:

code:

var y : int := 540

I need this y value to use later on in my code to control the drop of my piece. The drop always starts at 540. I also have a procedure before this called "check" that checks if there are 4 pieces of the same colour in a row. Now here is my procedure (shortened up) that controls the drop:

code:

procedure dropBall (x : int) if playerTurn = 1 then    loop          y := y - 70          drawoval (x, y + 70, 24, 24, 0)          drawoval (x, y, 24, 24, 7)          %If I put the check here, then it will try to check for 4 in a row every time the y value                 decreases.           %check (x,y)           exit when y < 130    end loop    y := 540 %I need to reset the value of y to 540 so that when                    %playerTurn = 2, The piece will start at the top. Otherwise,              %the next piece  will drop from the height that the previous              %piece stopped at.       playerTurn = 2 else      loop          y := y - 70          drawoval (x, y + 70, 24, 24, 0)          drawoval (x, y, 24, 24, 7)          %If I put the check here, then it will try to check for 4 in a row every time the y value                 decreases.           %check (x,y)           exit when y < 130    end loop    y := 540 %I need to reset the value of y to 540 so that when                    %playerTurn = 2, The piece will start at the top. Otherwise,              %the next piece  will drop from the height that the previous              %piece stopped at.       playerTurn = 1 end if %Normally I should put the check OUTSIDE the if statements. However, since I have the final statement as y := 540, it will perform the check at 540.

Any ideas on how I could possible fix this? My ISP is due tomorrow and I really need help!

[Cervantes]

How about adding a line to your check procedure, at the end. Add:

code:

y := 540

And take out the y := 540 in your dropBall procedure.

[cycro1234]

I would, but my check procedure has a y as its variable.

procedure check (x, y: int)

[cycro1234]

What do I do if the procedure has y as one of its parameters?