Four-in-a-row

[VANYA]

Thanks to Roland Chastain and its simple and intuitive algorithm, I wrote this game. Platforms: Windows, Linux




Download

[codeFoil]

Nice! But that polar bear makes me nervous :)

[Lachie Dazdarian]

Sweet and smooth. How about a drop down menu with more backgrounds to choose from and an option to play against a human opponent?

[VANYA]

Nice! But that polar bear makes me nervous :)

thank you.

Sweet and smooth. How about a drop down menu with more backgrounds to choose from and an option to play against a human opponent?

I think it is achievable

[Roland Chastain]

Thank you, Vanya ! I am very glad to see my algorithm working in a nice program. Well done !

[VANYA]

Thank you, Vanya ! I am very glad to see my algorithm working in a nice program. Well done !

Thank you Roland! You do not have the desire to make the algorithm Backgammon? And I'd love to have made ​​an interface for it :)

[Roland Chastain]

You do not have the desire to make the algorithm Backgammon?

Why not ? But I first have to learn the rules. I have heard of this game but I don't know it. :-)

[tabaouet]

hola Roland , sympa ton jeu mais crispant pour moi ,, ahahahaha , suis pas douée pour ce genre de jeu
ai eu quelques nouvelles de toi et de ta famille par ta mère ,,, bisous de ta tante Monique

[Roland Chastain]

:-)

[Lachie Dazdarian]

Any updates on this game? Human opponent?

[VANYA]

Any updates on this game?

While not.

Human opponent?

Human opponent I will not do, only the ability to change the appearance of and bugs

[Roland Chastain]

Human opponent I will not do, only the ability to change the appearance of and bugs

Hello !

Vanya, if you want, I can give you the hand to look for bugs. (There is one I noticed.) I can also ask to my friend who made sounds for Frogger if he has time to make two or three sounds for your game. What do you think about this ?

Roland

[VANYA]

Human opponent I will not do, only the ability to change the appearance of and bugs

Hello !

Vanya, if you want, I can give you the hand to look for bugs. (There is one I noticed.) I can also ask to my friend who made sounds for Frogger if he has time to make two or three sounds for your game. What do you think about this ?

Roland

If you are not hard, it would be nice.

I do not know, how best to make the options . One time I tried, but it turned out badly, and is now busy with other things. How I to choose the time for the game and there will be a desire, to again try to implement.

[Roland Chastain]

Hello Vanya !

The bug I noticed is in the end of the game. When the grid is full, the computer says to me that I lost.

So I had a look at your code, and I didn't see anything for this case.

Code: Select all

      If Finish = 1 Then
         Draw_String (55,450,"Congratulations, you win! Press any key...",1.6)
      ElseIf Finish = 2 Then         
         Draw_String (157,450,"You lost! Press any key...",1.6)
      EndIf

It seems you forgot the case of draw (when nobody wins).

I see that :

Code: Select all

            finish = 0
            Initialise

But why isn't there a message for this ?

Another observation, about the variable named "automate", which means AI. In my mind, this variable could have two values : "Rouge" (red, -1) or "Jaune" (yellow, 1). It means what color the AI plays. So I don't understand why you change the value of this variable in the middle of a game :

Code: Select all

Sub four.AlgMove()
   If md->MY < 30 Then Exit Sub
   flagnew = Ajoute (Courante, Trait, oldplace)
   If flagnew=-1 Then
      Xnew = oldplace
      Automate = 0 <---
      Check()
      If  Trait = Neant Then
         Beep
         Finish = 1
         Exit sub
      EndIf
      Xnew = MeilleurCoup
      Ajoute (Courante, Trait, Xnew)
      Automate = 2 <---
      Check()

And I don't see what means the value 0. This value could be used for a human-human game, but here I don't see what you had in mind.

[VANYA]

It seems you forgot the case of draw (when nobody wins).

Yes, I know about this error and will correct it'll take both back in the game

Another observation, about the variable named "automate", which means AI. In my mind, this variable could have two values : "Rouge" (red, -1) or "Jaune" (yellow, 1). It means what color the AI plays. So I don't understand why you change the value of this variable in the middle of a game :

I've changed your source code. You will notice that the file alg.bas something changed. I have a variable charge Automate simple animation of balls (or rather the color when the ball drops). Of course, need to change the name of the variable, although for me the source code looks obvious.