π
<-
Chat plein-écran
[^]

[PRGM] Snake IA, une IA qui joue au Snake

Nouveautés, projets, mises à jour.

[PRGM] Snake IA, une IA qui joue au Snake

Message non lude Eliastik » 28 Mai 2017, 15:14

Bonjour,

Je voulais vous présenter un programme que j'ai réalisé sous peu et que j'ai posté dans les archives de TI-Planet : Snake IA. Je n'ai pas encore vu de programme de ce type ici. Il s'agit d'un programme intégrant une sorte d'intelligence artificielle (scriptée) qui joue automatiquement au Snake. Il est possible de la défier dans le mode J1 VS IA. Le programme est disponible dans l'archive suivante : https://tiplanet.org/forum/archives_voir.php?id=507491. Pour le moteur du jeu Snake, j'ai repris celui que j'ai amélioré (lui aussi présent dans l'archive, plus d'infos en lisant sa description). Ce programme a été testé sur une TI-82 Advanced et une TI-84 Plus, il nécessite une calculatrice monochrome récente pour obtenir une vitesse correcte.

Voici un petit screenshot de ce programme en action (pris à partir de l'émulateur Wabbitemu émulant une TI-84 Plus) :

Show/Hide spoilerAfficher/Masquer le spoiler
Image


Je vais vous expliquer son fonctionnement ici.

Le code :

Voici le code qui régit le fonctionnement de l'IA :

Show/Hide spoilerAfficher/Masquer le spoiler
Code: Tout sélectionner
EffListe ⌊SNI7:4→dim(⌊SNI7
If ­I≠A+3 et B≠8:Then
pxl-Test(A+3,B-2→⌊SNI7(1
Else:If B=8
pxl-Test(A+3,86→⌊SNI7(1
End
If ­I≠A+3 et B≠83:Then
pxl-Test(A+3,B+5→⌊SNI7(3
Else:If B=83
pxl-Test(A+3,8→⌊SNI7(3
End
If ­I≠A-3 et A≠6:Then
pxl-Test(A-3,B→⌊SNI7(2
Else:If A=6
pxl-Test(54,B→⌊SNI7(2
End
If ­I≠A+8 et A≠51:Then
pxl-Test(A+8,B→⌊SNI7(4
Else:If A=51
pxl-Test(8,B→⌊SNI7(4
End
If B<J:Then
26→K
26(J-B<39)+24(J-B>39→K
End
If B>J:Then
24→K
24(B-J<39)+26(B-J>39→K
End
If B=J:Then
If A<­I:Then
34→K
34(­I-A<24)+25(­I-A>24→K
End
If A>­I:Then
25→K
25(A-­I<24)+34(A-­I>24→K
End
End
If H=24 ou K=24:Then
If ⌊SNI7(1
34→K
If ⌊SNI7(1) et W≠24 et W≠26
W→K
If ⌊SNI7(1) et W=24 ou ⌊SNI7(1) et W=26
34→K
If ⌊SNI7(1) et ⌊SNI7(2
34→K
If ⌊SNI7(1) et ⌊SNI7(4
25→K
End
If H=25 ou K=25:Then
If ⌊SNI7(2
26→K
If ⌊SNI7(2) et W≠25 et W≠34
W→K
If ⌊SNI7(2) et ⌊SNI7(1
26→K
If ⌊SNI7(2) et ⌊SNI7(3
24→K
End
If H=26 ou K=26:Then
If ⌊SNI7(3
34→K
If ⌊SNI7(3) et W≠24 et W≠26
W→K
If ⌊SNI7(3) et W=24 ou ⌊SNI7(3) et W=26
34→K
If ⌊SNI7(3) et ⌊SNI7(2
34→K
If ⌊SNI7(3) et ⌊SNI7(4
25→K
End
If H=34 ou K=34:Then
If ⌊SNI7(4
26→K
If ⌊SNI7(4) et W≠25 et W≠34
W→K
If ⌊SNI7(4) et ⌊SNI7(1
26→K
If ⌊SNI7(4) et ⌊SNI7(3
24→K
End
H→W
End


Le fonctionnement :

Ce que sait faire cette IA :

  • Trouver le moyen le plus rapide de se diriger vers la pomme ;
  • Éviter les obstacles en les contournant.

Ce que ne sait pas faire cette IA :

  • Se sortir d'un piège (cela nécessiterait de calculer tous les déplacements possibles, ce qui ralentirait considérablement le programme).

L'IA agit en "temps réel" (à chaque tour de boucle du jeu). L'IA fonctionne dans cet ordre là :

  • Lignes 1 à 21 : le programme effectue un test de collision des 4 directions autour de la tête du Snake, et enregistre les résultats dans la liste SNI7 (0 si case vide, sinon 1), dans l'ordre suivant : {gauche, haut, droite, bas} ;
  • Lignes 22 à 39 : le programme trouve la manière la plus rapide de se diriger vers la pomme (symbolisée par un X dans le jeu) : il voit où elle est située par rapport à la tête du Snake, et calcule la distance qui la sépare à celle de la pomme et décide de la direction vers laquelle se déplacer ;
  • Lignes 40 à 85 : le programme voit si des obstacles se trouvent dans la direction vers laquelle le Snake doit se déplacer (la direction qu'il a décidé de prendre) et la change si un obstacle s'y trouve : il contourne les obstacles.

Le programme ne fait que simuler le fait qu'il appuie sur les boutons gauche, haut, droite ou bas de la croix directionnelle, comme un joueur humain. Il ne peut rien faire d'autre.

La partie détection des obstacles comporte encore quelques bugs (au niveau de la logique) mais fonctionne de manière correcte.

J'avais entendu parler de l'algorithme a*, mais l'intégrer dans le jeu ferait qu'à chaque déplacement, un long temps d'attente serait nécessaire. J'ai donc programmé un autre algorithme, plus simple, légèrement inspiré du principe de fonctionnement de celui-ci.

Voilà pour mon explication !
Avatar de l’utilisateur
EliastikProgrammeur
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 12.5%
 
Messages: 12
Inscription: 04 Déc 2015, 13:09
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: [PRGM] Snake IA, une IA qui joue au Snake

Message non lude Epharius » 28 Mai 2017, 16:13

Nice, ça peut faire un bon écran de veille :D

C'est d'autant plus spectaculaire d'avoir fait ça en Basic sans que ça ne ralentisse trop le jeu. Bon courage si tu essaies de perfectionner l'algorithme de détection des collisions ;)
Le projet Geometry Dash est terminé ! N'hésitez pas à aller jeter un coup d’œil au topic du projet ! Vous pouvez le télécharger ici.

Unis par la flèche sacrée de cupidon :favorite:
Image
Avatar de l’utilisateur
EphariusPremium
Niveau 16: CC2 (Commandeur des Calculatrices)
Niveau 16: CC2 (Commandeur des Calculatrices)
Prochain niv.: 7%
 
Messages: 1107
Images: 4
Inscription: 08 Déc 2014, 17:38
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile
Classe: Ensimag
GitHub: MathisLav


Retourner vers Actualités

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 15 invités

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
763 utilisateurs:
>748 invités
>10 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)