[PROJET] Prgm CHECKERS

Coucou à tous!


J'ai un nouveau projet de programme en cours, et le voici.

Il s'agit d'un jeu de dames, ou "CHECKERS" en anglais.
Le jeu est en projet, il n'est pas du tout finit, et pas du tout optimisé  

Voici le code:

Code:

:ClrHome
:DelVar [A]DelVar L1DelVar Z
:
:StoreGDB 1
:0→Xmin:1→∆X
:0→Ymax:‾62→Ymin
:ClrDraw
:Text(10,10,"Please wait
:Text(20,40,"a moment
:Shade(‾62,0
:Line(3,‾2,92,‾2,0
:Line(92,‾3,92,‾60,0
:Line(92,‾60,3,‾60,0
:Line(2,‾2,2,‾60,0
:Line(92,‾1,2,‾1,0
:For(A,4,46,14
:   For(B,4,88,22
:      Text(A,B,"          "
:   End:End
:For(A,10,60,14
:   For(B,15,92,22
:      Text(A,B,"          "
:   End:End
:Lbl 1
:Disp "CREATING LVL...
:{8,8}→dim([A]
:DelVar ADelVar B
:For(C,8,85,11
:   A+1→A:C→L1(A
:End
:For(C,7,56,7
:   B+1→B:‾C→L2(B
:End
:For(C,1,8
:   2→[A](1,C
:   2→[A](2,C
:   1→[A](7,C
:   1→[A](8,C
:End
:StorePic 1
:Lbl 2
:For(B,1,8
:   For(A,1,8
:      If [A](B,A)=2 and Pxl-Test(‾L2(B),L1(A:Pt-Off(L1(A),L2(B),2
:      If [A](B,A)=2 and not(Pxl-Test(‾L2(B),L1(A:Pt-On(L1(A),L2(B),2
:      If [A](B,A)=1 and Pxl-Test(‾L2(B),L1(A:Pt-Off(L1(A),L2(B),3
:      If [A](B,A)=1 and not(Pxl-Test(‾L2(B)+1,L1(A)+1:Pt-On(L1(A),L2(B),3
:   End:End

Et voici un petit screenshoot: (testé sous un émulateur 83+)

NB: Pour une raison que j'ignore, sur l'émulateur les personnes J1 (carré) et les J2 (croix) ne sont pas placés au centre de la case, ce qui est pourtant le cas sur ma vrai calculatrice  


Les carrés jouent le rôles des pièces noires sur un vrai jeu de dame, et les croix au pièces blanches.


Le plateau est réduit à 8*8, ce qui est suffisant je pense pour pouvoir jouer correctement ( si je met 10*10, ce sera trop petit (la tailles des cases) ? J'attend vos avis )

La matrice [A] contient les cases: si la valeur vaut 0 , la case est libre. Si elle vaut 1, elle appartient au joueur 1 =, et elle vaut 2 , pareil

 EDIT: J'ai commis une erreur dans l'agencement des pièce, je me suis pris sur un jeu d'échec :p Je corrige sa dès que possible

Infos: http://www.ffjd.fr/Web/index.php?page=reglesdujeu

Je pense qu'il vaut mieux garder du 10*10, sinon il risque de ne pas y avoir assez de pions, mais fais comme tu le sens.

Ca a l'air pas mal du tout, continue comme ça !

Bien. Projet intéressant.

Ceci me fait mal aux coeur, tu te donnes tellement de mal. Voici une amélioration.
EDIT : Pardon j'ai oublié de vérifier dans le manuel, Pt-Change n'accepte pas de paramètre marque, donc la suggestion est fausse.

Code:

:      If [A](B,A)=2 and Pxl-Test(‾L2(B),L1(A:Pt-Off(L1(A),L2(B),2
:      If [A](B,A)=2 and not(Pxl-Test(‾L2(B),L1(A:Pt-On(L1(A),L2(B),2
:      If [A](B,A)=1 and Pxl-Test(‾L2(B),L1(A:Pt-Off(L1(A),L2(B),3
:      If [A](B,A)=1 and not(Pxl-Test(‾L2(B)+1,L1(A)+1:Pt-On(L1(A),L2(B),3

Code:

:[A](B,A
:If Ans
:Pt-Change(L1(A),L2(B),4-Ans

Ce n'est pas équivalent si ? (tu affiches tout le temps un point alors qu'il faut l'effacer dans certains cas)
Il faudrait utiliser pxl-change à la place.
Je n'ai pas testé mais je dirai:

Code:

:[A](B,A
:If Ans
:Pxl-Change(-L2(B),L1(A),4-Ans

Exactement j'ai oublié le remplacement.

Bravo pour le projet, ça aussi c'est du jamais fait (à ma connaissance) en Basic !

+1 pour ton inventivité, une fois de plus

Ce n'est pas le premier mais je suis certain que Wistaro a fait mieux.
Voici celui que j'ai retrouvé. http://tout82.free.fr/forum/sujet.php?sujet=1932

m@thieu41 a écrit:Ce n'est pas équivalent si ? (tu affiches tout le temps un point alors qu'il faut l'effacer dans certains cas)
Il faudrait utiliser pxl-change à la place.
Je n'ai pas testé mais je dirai:

Code:

:[A](B,A
:If Ans
:Pxl-Change(-L2(B),L1(A),4-Ans

J'y avais pensé, mais la fonction Pt-Change n'accepte que 2 arguments (je sais pas du tout pourquoi )

Je pense réduire le plateau à 8*8, et ne mettre que 8 pions par joueurs, donc 2 rangées de joueurs (si je met 10*10, les cases vont être trop petites)

Autant pour moi, j'avais zappé ce détails

En fait, je n'ais pas besoin du pxt_test dans la boucle de créations desjoueurs.

Tout se joue sur des cases blanches
Le noires sont juste ici pour la décoration.

Ajout: (code + screen disponible après de grosses nouveautées)

> Matrice de 9*9 au lieu de 8*8 (pour eviter les bugs de INVALID DIM...)
> Choix du joueur sur le jeton à déplacer (avec les flêches). Uniquement possible si il existe une solution, et si le jeton sélectionné est à nous.
> Correction de la position initiale des jetons sur le damier. Tous sur les cases blanches, répartit sur 2 lignes par joueurs.

Désolé pour le Pt-Change embêtant. Tant mieux que tu n'en ais pas besoin.

Si tu veux une matrice plus large que le terrain pour ne pas avoir besoin de tester les dépassement, alors tu as besoin de la faire par tous les bords il me semble. Pour un plateau de 8*8 tu aurais besoin d'un tableau 10*10.

Du coup sa décalle tout... Enfin, je vais essayer.

J'ai fait de grosses améliorations, je poste tout sa dès que possible

Mise à jour:



Code:

Code:


:DelVar [A]DelVar L1DelVar L2DelVar J
:StoreGDB 1
:0→Xmin:1→∆X
:0→Ymax:‾62→Ymin
:ClrDraw
:Text(10,10,"Please wait...
:Shade(‾62,0
:Line(3,‾2,92,‾2,0
:Line(92,‾3,92,‾60,0
:Line(92,‾60,3,‾60,0
:Line(2,‾2,2,‾60,0
:Line(92,‾1,2,‾1,0
:For(A,4,46,14
:   For(B,4,88,22
:      Text(A,B,"          "
:   End:End
:For(A,10,60,14
:   For(B,15,92,22
:      Text(A,B,"          "
:   End:End
:Lbl A
:{9,9}→dim([A]
:DelVar ADelVar B
:For(C,8,85,11
:   A+1→A:C→L1(A
:End
:For(C,7,56,7
:   B+1→B:‾C→L2(B
:End
:For(C,1,8,2
:   2→[A](1,C
:   2→[A](2,C+1
:   1→[A](7,C
:   1→[A](8,C+1
:End
:StorePic 2
:Lbl B
:If J=1:Then:2→J:Goto F:End
:If J=2:Then:1→J:Goto F:End
:If not(J:1→J
:Lbl F
:ClrDraw:RecallPic 2
:For(B,1,8
:   For(A,1,8
:      If [A](B,A)=2:Pt-On(L1(A),L2(B),2
:      If [A](B,A)=1:Pt-On(L1(A),L2(B),3
:   End:End
:StorePic 1
:Text(26,20,"TOUR DU JOUEUR ",J
:Pause :Lbl C
:ClrDraw:RecallPic 1
:4→A:4→B
:Repeat K=105 and [A](B,A)=J
:   getKey→K
:   Pt-Change(L1(A),L2(B
:   Text(1,1,A
:   Text(7,1,B
:   If K:Pt-Change(L1(A),L2(B
:   A+1(K=26 and A<8→A
:   A-1(K=24 and A>1→A
:   B+1(K=34 and B<8→B
:   B-1(K=25 and B>1→B
:End:Lbl D
:ClrDraw:RecallPic 1
:Pt-Change(L1(A),L2(B
:Repeat K=45
:   getKey→K
:   If K=72 and A>1 and B>1:Then //on test si il n'est pas au bord de l'écran. Si je met qu'une condiction le programme plante car il test également si B-1 et A-1... Je pourrais décaller la matrice, mais avec les reines qui vont arriver plus tard...
:      If not([A](B-1,A-1:Then:J→[A](B-1,A-1:0→[A](B,A:End
:      Goto B:End
:   If K=74 and A>1 and B<8:Then
:      If not([A](A+1,B-1:Then:J→[A](A+1,B-1:0→[A](B,A:End
:      Goto B:End
:End:Goto C

C'est plus joli, non?

Par contre, si vous avez un moyen de enlever la trace du point lorsque on change de case, dites le moi svp

> Les chiffres en haut à gauches sont les coordonnées de la sélection du joueur (si jamais votre contraste est trop bas et que vous ne voyiez pas le point qui clignote)

Tu utilises déjà Pt-Change pour le curseur alors quel est le problème ?
J'utiliserais simplement un Pt-Change pour avant le déplacement pour effacer l'ancien et un après pour afficher le nouveau.

Linkakro a écrit:Tu utilises déjà Pt-Change pour le curseur alors quel est le problème ?
J'utiliserais simplement un Pt-Change pour avant le déplacement pour effacer l'ancien et un après pour afficher le nouveau.

j'ai essayé, mais le soucis c'est que le programme tourne en boucle. Du coup, au premier "tour", le pt-change marche, puis ensuite au tour de boucle suivant le point s'inverse, d'ou cette effet de clignotement.

Or, si le joueur change de position durant cette seconde phase, le point reste visible

Sinon, que proposes-tu comme solution?

Pas mal du tout

Mais pourquoi ne centre tu pas tous les pions?

Pour la trace du point, tu as plusieurs solutions:
Soi tu rappelle l'image avec tout propre
Soi tu sauvegarde l'état du pixel avant la sélection de la case
Soi tu fais un nombre pair de changements à chaque fois (mais c'est plus contraignant)

J'utiliserais simplement un Pt-Change pour avant le déplacement pour effacer l'ancien et un après pour afficher le nouveau.

Sauf qu'on ne sait pas si le pixel est bon ou pas (ça dépend si le nombre de tours qu'on a attendu que le joueur choisisse de se déplacer est pair ou impair)

"Soi tu rappelle l'image avec tout propre"
> Sa fait un clignotement grossier et plutôt horrible

"Soi tu sauvegarde l'état du pixel avant la sélection de la case"
> pourquoi pas? Je pense essayer cette technique

"Soi tu fais un nombre pair de changements à chaque fois (mais c'est plus contraignant)"
>Galère non? Sinon sa fonctionnerais comment? On on incrémente une variable, si elle vaut 2 on affiche le point . Puis on reset à 0 cette variable ?

Compte la parité des boucles avec simplement not(Z->Z pour optimiser.

Ma solution :
Enlevez le If K que je n'avais pas vu puis temporisez entre les deux Pt-Change pour assurer une vision du curseur.

Code:

:   getKey→K
:   Pt-Change(L1(A),L2(B
:   Text(1,1,A
:   Text(7,1,B
:   69!
:   Pt-Change(L1(A),L2(B
:   69!
:   A+1(K=26 and A<8→A

Dans les situations où il faut agir lors d'un déplacement seulement, il serait à mon humble avis pratique d'utiliser une boucle Repeat autour du getKey et des affichages.
Par exemple pour sauver l'état des pixels avant passage et restituer l'ancien.

C'est quoi le

Code:

69!

?

Une temporisation (pour ralentir le programme).
Ca calcule la factorielle de 69, donc c'est assez long. On ne peut pas calculer la factorielle d'un nombre supérieur à 69, ça dépasse les capacités de la ti...

pour les pt-change, tu inverses les deux dans la boucle et normalement ca devrait marcher!!! c'est ce que je fais quand il s'agit de remplacer un char par un autre char...

Je n'ai compris ni ce que tu proposes, ni ta comparaison

Tu parles d'inverser les 2 quoi?

rpgcreator a écrit:pour les pt-change, tu inverses les deux dans la boucle et normalement ca devrait marcher!!! c'est ce que je fais quand il s'agit de remplacer un char par un autre char...

Je ne croit pas que sa change grand chose (

Whâ! Bravo tu fais toujours des trucs super beau!

Pour temporiser il y a beaucoup mieux que 69! comme une boucle For vide. La factorielle est juste courte à écrire et célèbre.

Je pense que la temporisation est la méthode la plus élégante et le compte de parité du nombre de boucles le plus simple.

Je voie de plus en plus de choses susceptibles d'être améliorées...

Code:

:For(C,8,85,11
:   A+1→A:C→L1(A
:End
:For(C,7,56,7
:   B+1→B:‾C→L2(B
:End

Code:

:For(A,1,8
:11A-3→L1(A
:End
:For(B,1,8
:‾7B→L2(B
:End

Code:

seq(11A-3,A,1,8→L1
:seq(‾7B,B,1,8→L2

Pourquoi on stocke dans une liste alors que les coordonnées sont connues par calcul simple ?
Je propose d'enlever l'affectation de L1 et L2 puis de remplacer partout L1(A) et L2(B) par les formules 11A-3 et ‾7B.

J'aime compresser les actions.

Code:

:   A+1(K=26 and A<8→A
:   A-1(K=24 and A>1→A
:   B+1(K=34 and B<8→B
:   B-1(K=25 and B>1→B

Code:

:   min(8,max(1,A+(K=26)-(K=24→A
:   min(8,max(1,B+(K=34)-(K=25→B

Voici un exemple de compte de parité des boucles.

Code:

DelVar Z4→A:4→B // Z parité
:Repeat K=105 and [A](B,A)=J
:   getKey→K
:   Pt-Change(11A-3,‾7B
:   Text(1,1,A
:   Text(7,1,B
:   not(Z->Z // calc parité
:   If Zmax(K={24,25,26,34 // détecte commande déplacement et parité
:   DelVar ZPt-Change(11A-3,‾7B
:   min(8,max(1,A+(K=26)-(K=24→A
:   min(8,max(1,B+(K=34)-(K=25→B
:End

Il n'y a pas un End en trop dans ton code?

Si, encore un oubli. Merci.

Il a juste oublié un "THEN"

Merci beaucoup! Je poste le code demain

Non, pas besoin de Then lorsqu'on a juste après le If un DelVar suivit d'une autre instruction: DelVar+autre instruction est sur une seule ligne, et est donc considérée comme une unique commande.

(http://fr.openclassrooms.com/informatique/cours/apprenez-a-programmer-en-ti-basic/la-magie-de-delvar)

Sans le THEN sa ne fonctionne pas :(On ne peut pas déplacer le point.

Par contre j'aimerais bien que l'on m'explique cette histoire de parité ...

>>>> J'ai finit le système d'attaque/deplacement des pions. J' ai bétatesté le jeu contre un pote, il a l'air de fonctionner [J'ai perdu!] <<<

Le programme fait environ 1Ko pour le moment.

Manque juste:
> Empecher le retour en arrière sauf en qu'a (!) cas d'attaque
> Mettre en place le système des reines
> Mettre en place le système d'attaque multiples
> D'autre règles que j'ai oublié ? Dites moi