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.
-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.
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).
Si vous en voulez plus il y a un article sur wikipédia.
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,"
