
Download
codeFoil wrote:Nice! But that polar bear makes me nervous :)
Lachie Dazdarian wrote:Sweet and smooth. How about a drop down menu with more backgrounds to choose from and an option to play against a human opponent?
Roland Chastain wrote:Thank you, Vanya ! I am very glad to see my algorithm working in a nice program. Well done !
VANYA wrote:You do not have the desire to make the algorithm Backgammon?
Lachie Dazdarian wrote:Any updates on this game?
Human opponent?
VANYA wrote:Human opponent I will not do, only the ability to change the appearance of and bugs
Roland Chastain wrote:VANYA wrote: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
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
Code: Select all
finish = 0
Initialise
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()
It seems you forgot the case of draw (when nobody wins).
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 :
Users browsing this forum: No registered users and 12 guests