Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> L'AWALE

L'AWALE

Auteur

Message

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Mar 05 Jan 2010, 22:24

J'ai adapté en basic la version de ce jeu africain.
C'est un jeu de réflexion très ancien qui se jouait à la base avec un palteau de 6 cases sur deux et des graines.Le but était de former des paquets de deux ou trois graines dans le camps adverse pour les ramasser.Le vainqueur était celui qui avait ramassé le plus de graines.Même si ça a l'air simpliste,ça permet beaucoup de stratégies et de tactiques.Et on voit vite la différence entre un bon et un mauvais joueur.En plus c'est amusant,et même très intéressant si vous trouvez quelqu'un de votre niveau.Moi j'adore.

Règles:
-Les joueurs jouent chacun leur tour.
Pour jouer un coup,le joueur choisit un des paquets de graines qui se situent dans une des 6 cases de son camps.
Il en dépose ensuite une dans chaque case qui suit,dans le sens des aiguilles d'une montre.
Il ne doit pas en déposer dans la case où se trouvait le paquet.Si il fait un tour ou plus,il la saute.
Si lorsqu'il pause la dernière graine il forme un paquet de 2 ou 3 graines dans une case du camp adverse,il les retires du jeu et les gardes.Il a ensuite le droit de regarder dans la case immédiatement à droite de celle où il a formé le paquet.Si elle contient deux ou trois graines,il peut se les approprier,et ceci 5 fois de suite.

-La partie prend fin si:
L'un des joueurs n'a plus de graines dans son camp (si l'adversaire peut,il est obligé de lui en fournir lorsque c'est son tour).
Il n'y a plus de graines
Il reste 2 graines d'un côté et une de l'autre
Il reste 1 graine dans les cases 2,3 et 4 (de gauche à droite) de chaque camp.

Si vous en voulez plus il y a un article sur wikipédia.
Le jeu fait dans les 1550 octets

Un lien en .8xp:
http://www.mediafire.com/?zinljirtdlg

Et le code:

Code

:{2,6}->dim([A]
:EffEcr
:EffDessin
:CoordRect:CoordOff:QuadOff:AxesOff:EtiqOff:ExpOn
:1->Xmin:95->Xmax:-63->Ymin:-1->Ymax
:For(B,1,2
:For(A,1,6
:4->[A](B,A)
:End
:End
:Ligne(17,-24,77,-24
:Ligne(17,-32,77,-32
:Ligne(17,-40,77,-40
:Ligne(15,-22,79,-22
:Ligne(15,-42,79,-42
:Ligne(79,-22,79,-42
:Ligne(15,-42,15,-22
:For(A,0,6
:Ligne(17+10A,-24,17+10A,-40
:End
:Texte(56,1,"JOUEUR 2:
:Texte(1,53,"JOUEUR 1:
:0->S:0->U
:Lbl A
:1->T
:Lbl A2
:-44->Y:22->X:0->K:0->F:0->G
:For(B,1,2
:For(A,1,6
:Texte(16+8B,8+10A,"
:Texte(16+8B,8+10A,[A](B,A
:F+[A](1,A)->F
:G+[A](2,A)->G
:End
:End
:Texte(1,85,S
:Texte(56,33,U
:If F=0 et T=1 ou G=0 et T=2
:Goto A4
:If F+G[< ou =]2
:Goto A4
:If F=2 et G=1 ou F=1 et G=2
:Goto A5
:If F=3 et [A](1,3)+[A](1,4)+[A](1,5)=3 et G=3 et [A](2,2)+[A](2,3)+[A](2,4)=3
:Goto A6
:While Kø105
:codeTouch->K
:X->A:Y->B
:If T=1
:-18->Y
:X-10(K=24)+10(K=26->X
:X-10(X>72)+10(X<22->X
:If XøA
:Then
:Ligne(A-1,B,A-1,B-2,0
:Ligne(A,B,A,B-2,0
:Ligne(A+1,B,A+1,B-2,0
:End
:Ligne(X-1,Y,X-1,Y-2
:Ligne(X,Y,X,Y-2
:Ligne(X+1,Y,X+1,Y-2
:End
:2->Y
:(X-22)/10+1->X
:If T=1
:1->Y
:[A](Y,X)->C
:If C=0
:Goto A2
:0->[A](Y,X
:For(D,1,C
:If partDéc(D/12)=0 et Y=1
:X-1->X
:If partDéc(D/12)=0 et Y=2
:X+1->X
:If Y=2
:X+1->X
:If Y=1
:X-1->X
:If X[< ou =]0
:Then
:2->Y:1->X
:End
:If X[> ou =]7
:Then
:1->Y:6->X
:End
:[A](Y,X)+1->[A](Y,X
:End
:If [A](Y,X)[> ou =]2 et [A](Y,X)[< ou =]3 et TøY
:Goto A3
:Lbl ¤
:Ligne(A-1,B,A-1,B-2,0
:Ligne(A,B,A,B-2,0
:Ligne(A+1,B,A+1,B-2,0
:If T=2
:Goto A
:2->T
:Goto A2
:Lbl A3
:For(D,1,2
:For(E,1,6
:Texte(16+8D,8+10E,[A](D,E
:End
:End
:Pause
:0->D
:While D[< ou =]4
:If T=1
:S+[A](Y,X)->S
:If T=2
:U+[A](Y,X)->U
:0->[A](Y,X
:If Y=1
:X+1->X
:If Y=2
:X-1->X
:If X[< ou =]0
:Then
:1->Y:1->X
:End
:If X[> ou =]7
:Then
:2->Y:6->X
:End
:If [A](Y,X)<2 ou [A](Y,X)>3
:Goto ¤
:D+1->D
:End
:Lbl A4
:Pause
:Output(3,1,"IL N'Y A PLUS ASSEZ DE BILLES EN JEUX.
:Pause
:Goto A7
:Lbl A5
:Pause
:Output(2,1,"IL N'Y A PLUS QUE 3 BILLES EN JEUX,DONT 2 DANSLE MEME CAMPS,LAPARTIE EST FINIE
:Pause
:Goto A7
:Lbl A6
:Output(3,1,"IL N'Y A PLUS QUE 6 BILLES SURLES 2,3 ET 4ëMESCASES DE CHAQUE CAMPS.LA PARTIE PREND FIN.
:Pause
:Lbl A7
:EffEcr
:If S>U
:Output(4,1,"JOUEUR 1 GAGNE
:If U>S
:Output(4,1,"JOUEUR 2 GAGNE
:EffVar [A]
:Output(1,1,"

Google_AdSense

Monstercrunch

Autorisation : Membre
Nb de messages : 252
Inscrit le : Sam 10 Oct 2009, 16:33

Posté le : Mer 06 Jan 2010, 17:44

Bien joué ! je connais ce jeu et je le trouve super sympa ( même si je suis pas un expert ) bravo à toi de l'avoir retranscrit en basic ! ( je l'ai pas testé par contre )

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Jeu 07 Jan 2010, 18:02

Lol,moi aussi j'adore ça mais j'ai tellement joué que je trouves plus personne de mon niveau

scorpion
Invité

Posté le : Sam 20 Fév 2010, 15:26

a quoi correspond le symbole [A] car il me mettent erreur de syntaxe lorsque j'exécute
merci

UnShoCkaBle

Autorisation : Membre
Nb de messages : 61
Inscrit le : Mer 03 Fév 2010, 14:01

Posté le : Sam 20 Fév 2010, 17:35

[A] correspond a la matrice A que tu obtient en faisant [matrice]+[1]

----------------------
-------------------------------
Même les profs devraient adorer la TI-82.Stats !!!
Elle empêche de dormir en cours ^^

scorpion
Invité

Posté le : Sam 20 Fév 2010, 17:49

merci pour la matrice mais maintenant sa me mets erreur syntaxe au " https://tout82.pages-perso.free.fr/forum/images/smileys/cry.gif

Citer

:Texte(16+8B,8+10A,"

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Sam 20 Fév 2010, 17:53

Citer : scorpion

merci pour la matrice mais maintenant sa me mets erreur syntaxe au "

Citer

:Texte(16+8B,8+10A,"

Google_AdSense

UnShoCkaBle

Autorisation : Membre
Nb de messages : 61
Inscrit le : Mer 03 Fév 2010, 14:01

Posté le : Sam 20 Fév 2010, 17:54

Il faut mettre un espace après "

en gros si tu veux bien le marquer ca donne:

Code

:Texte(16+8B,8+10A," "

----------------------
-------------------------------
Même les profs devraient adorer la TI-82.Stats !!!
Elle empêche de dormir en cours ^^

Google_AdSense

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Sam 20 Fév 2010, 17:57

ok merci

UnShoCkaBle

Autorisation : Membre
Nb de messages : 61
Inscrit le : Mer 03 Fév 2010, 14:01

Posté le : Sam 20 Fév 2010, 17:58

derien

----------------------
-------------------------------
Même les profs devraient adorer la TI-82.Stats !!!
Elle empêche de dormir en cours ^^

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Sam 20 Fév 2010, 18:01

merci le jeu se lance mais je peut pas jouer comment sa se fait et lorsque j'appuye sur on sa me mets arret

Google_AdSense

UnShoCkaBle

Autorisation : Membre
Nb de messages : 61
Inscrit le : Mer 03 Fév 2010, 14:01

Posté le : Sam 20 Fév 2010, 18:04

Il faut pas appuyer sur ON mais sur entrée je pense

----------------------
-------------------------------
Même les profs devraient adorer la TI-82.Stats !!!
Elle empêche de dormir en cours ^^

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Sam 20 Fév 2010, 18:06

je ne peut appuyer que sur on les autre touche ne reponde pas

UnShoCkaBle

Autorisation : Membre
Nb de messages : 61
Inscrit le : Mer 03 Fév 2010, 14:01

Posté le : Sam 20 Fév 2010, 18:08

alors faut voir avec rézus mo je sais pas dsl

je ne vois pas ou sont les codetouche dans le code Rézus ????

----------------------
-------------------------------
Même les profs devraient adorer la TI-82.Stats !!!
Elle empêche de dormir en cours ^^

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Sam 20 Fév 2010, 18:14

quel est le bouton pour faire code touche ?

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Sam 20 Fév 2010, 19:41

Honte à toi Rézus!!!

Pourquoi poster ton programme comme ça alors que c'est le sujet du concours n°6?
Je te demande donc de choisir entre supprimer le programme du forum et participer au concours où le laisser mais tu ne participeras pas.

Sangohan38

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Sam 20 Fév 2010, 20:44

C'est quoi ce gag ??? !!!!

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Sam 20 Fév 2010, 21:05

Le problème c'est que plein de gens vont avoir la bonne idée de recopier le
programme de Rézus et de me l'envoyer donc forcément le concours sera faussé.

Sangohan38

titozzz

Autorisation : Membre
Nb de messages : 177
Inscrit le : Mer 27 Jan 2010, 18:55

Posté le : Sam 20 Fév 2010, 21:07

C'est sur

----------------------
Le temps passe et les œufs durent ....
)=======> Concours de Skin (Virtual TI) <=======(

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Sam 20 Fév 2010, 23:11

Le risque n'est pas tellement que quelqu'un reprenne le programme en entier (car tu t'en apperçevrais vite)mais plutôt qui il en prenne des petits bouts.

N'y a il pas moyen de c acher le sujet ?
D'éditer le message pour supprimer le code ?

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Dim 21 Fév 2010, 0:04

Autant supprimé le sujet dans ce cas.
C'est comme tu veux mais j'ai pas spécialement envie voir plusieurs programmes similaires.

Sangohan38

PS: Non, je ne peut pas le cacher.

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Dim 21 Fév 2010, 8:26

l'aventage c'est que on peut le réaficher ou pas après ses explication, c'est toi qui choisi

Tu devrais faire un post dans la partie concours pour dire que tout programme similaire ou avec des parties similaires sera disqualifier.
Je pense que comme ça peu le feront.

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Dim 21 Fév 2010, 13:29

excusé moi est ce que quelqu'un pourrait m'aider, dans le jeu je n'arrive pas a bouger c'est bloqué.

Didouille

Autorisation : Membre
Nb de messages : 158
Inscrit le : Dim 11 Oct 2009, 14:18

Posté le : Dim 21 Fév 2010, 14:49

Mais ya pas un truc qui cloche sangohan ? Rézus à poster ce programme plus d'un mois avant le début du concours 6 O_o

----------------------
--Didouille--

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Dim 21 Fév 2010, 15:41

Ben oui,d'ailleurs je t'ai envoyé un mail.
J'ai copié mon post donc je veux bien qu'on supprime le sujet,mais ça ne garantit pas que personne ne l'auras recoppié ou téléchargé.
Et si moi je participe,est-ce que j'ai le droit de l'utiliser ? c'est quand même mon programme.

à scorpion:
Tu l'as recoppié à la main ou avec le lien ?

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Dim 21 Fév 2010, 17:08

je l'ai copié à la main
j'ai une TI-82 stats.fr donc les touches sont peut etre différente codetouch c'est codetouche ?

titozzz

Autorisation : Membre
Nb de messages : 177
Inscrit le : Mer 27 Jan 2010, 18:55

Posté le : Dim 21 Fév 2010, 17:13

oui

----------------------
Le temps passe et les œufs durent ....
)=======> Concours de Skin (Virtual TI) <=======(

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Dim 21 Fév 2010, 17:24

Et est-ce tu as vérifié si tu as fait des erreurs de copie ?

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Dim 21 Fév 2010, 17:27

oui j'ai tout vérifié

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Dim 21 Fév 2010, 17:35

Oui j'avais pas vu que tu l'avais poster avant ^^

Dans ce cas c'est sûr que tu devrais pouvoir participer quand même je pense
a Sangohan de désider

Google_AdSense

Didouille

Autorisation : Membre
Nb de messages : 158
Inscrit le : Dim 11 Oct 2009, 14:18

Posté le : Dim 21 Fév 2010, 17:47

Ta pas eu de chance Rézus =(

----------------------
--Didouille--

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Dim 21 Fév 2010, 18:27

T'inquiètes,j'ai l'habitude

Google_AdSense

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Lun 22 Fév 2010, 10:10

Bien sur que tu peut participer rézus.
C'est juste que ça me gène un peu que tou le monde puisse voir le code alors que c'est le sujet du concours.
Donc ce qu'on peut faire c'est que je supprime le code et on le remet une fois le concours terminé.
Ca te va si je fait comme sa?

Sangohan38

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Lun 22 Fév 2010, 19:21

C'est bon,ça me vas.
Mais je pense que je ne participerais pas,j'ai la flemme ^^.

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Mar 23 Fév 2010, 11:46

slt lorsque je joue sa marche bien mais lorsqu'il y a 10 graines ou plus dans une case et que je vide la case ça bug,ça garde les 2 zéros ?
aidez moi svp
sinon bravo pour le jeu

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Mar 23 Fév 2010, 16:22

C'est là :

Code

:For(B,1,2
:For(A,1,6
:Texte(16+8B,8+10A," <--- il faut mettre 8 espaces
:Texte(16+8B,8+10A,[A](B,A
:F+[A](1,A)->F
:G+[A](2,A)->G
:End
:End

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Mar 23 Fév 2010, 16:40

merci de ta réponse maintenant ça marche super bien

Google_AdSense

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Mar 23 Fév 2010, 19:04

Par contre petite modif:il faut remplacer ça:

Code

:If XøA
:Then
:Ligne(A-1,B,A-1,B-2,0
:Ligne(A,B,A,B-2,0
:Ligne(A+1,B,A+1,B-2,0
:End
:Ligne(X-1,Y,X-1,Y-2
:Ligne(X,Y,X,Y-2
:Ligne(X+1,Y,X+1,Y-2
:End

Par

Code

If XøA
Pt-Off(A,B,2
Pt-On(X,Y,2
:End <-----------!!!

Et ça

Code

:Lbl ¤
:Ligne(A-1,B,A-1,B-2,0
:Ligne(A,B,A,B-2,0
:Ligne(A+1,B,A+1,B-2,0

Par

Code

Lbl ¤
Pt-Off(A,B,2

J'ai pas vérifié,mais ça devrait accélérer le jeu et empêcher ou ralentir une éventuelle erreur mémoire.

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Mar 23 Fév 2010, 19:35

merci de cette amélioration mais peut tu vérifié si elle est correcte

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Mer 24 Fév 2010, 12:55

j'ai essayé cette amélioration mais elle ne marche pas elle fait buguer le jeu

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Mer 24 Fév 2010, 16:41

Oui,j'ai oublié de noter un End dans le message précédent,je le rajoute et normalement ça devrait marcher ^^.
En tout cas sur ma calculatrice ça marche.

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Mer 24 Fév 2010, 18:55

ça marche pour moi

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> L'AWALE

Page générée en 6 requêtes

Flux RSS