Forum | TOUT sur la TI-82

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

Batonnet

Auteur

Message

Programaths

Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53

Posté le : Mar 14 Jui 2011, 0:57

Voila j'ai un ptit jeu de batonnets mais quelque chose ne vas pas ! et je ne sais pas quoi :/ :

Code

:"progrm:BATONNET >by UGO<
Lbl 0
EffDessin
GraphNAff
QuadNAff
PleinEcr
AxesNAff
FonctNAff
0ü

Xmin
0ü

Ymin
94ü

Xmax
62ü

Ymax
EffDessin
Ligne(65,8,94,8
Texte(55,69,"by UGO
Ligne(50,0,94,0
Ligne(28,50,55,50
Texte(13,30,"batonnets
Ligne(28,42,70,42
Texte(1,5,"menu
Ligne(2,61,24,61
Ligne(25,60,25,30
Ligne(24,29,2,29
Ligne(1,30,1,60
Ligne(2,54,24,54
For(X,0,2
Texte(8X+9,6,sous-Cha ne("playrulequit",4X+1,4
End
EffVar X
codeTouch(ü

K
Repeat max(Rep={105
If Rep
Then
If Rep=25 ou Rep=34
Then
Ligne(3,52-8X,3,47-8X,0
Ligne(23,52-8X,23,47-8X,0
X+(Rep=34)-(Rep=25
Rep+3((Rep<0)-(Rep>2ü

X
End
End
Ligne(3,52-8X,3,47-8X
Ligne(23,52-8X,23,47-8X
codeTouch(
End
If non(X
Then
Goto A
End
If X=1
Then
Goto 44
End
If X=2
Then
Goto 55
End
Lbl 44
EffDessin
Texte(0,0,"ENLEVER 1,2 OU 3BATONNET
Texte(6,0,"A CHAQUE TOUR MAIS VOUS NE
Texte(12,0,"DEVEZ PAS PRENDRE
Texte(18,0,"LE DERNIER.
Pause
EffEcr
Goto 0
Lbl 55
Texte(
Lbl A
EffDessin
Texte(0,0,"Press [1] ou [2] ou [3]
Texte(6,0,"POUR ENLEVER LES BATONNET
16ü

B
For(U,2,92,6
Ligne(U,26,U,34
End
For(I,3,93,6
Ligne(I,25,I,35
End
For(V,4,94,6
Ligne(V,26,V,34
End
ú

3ü

U
ú

3ü

I
ú

3ü

V
Lbl 6
codeTouch(ü

H
If H=92:Then
Uü

D
Iü

C
Vü

E
U+6ü

U
I+6ü

I
V+6ü

V
For(K,D,U
Ligne(K,26,K,34,0
End
For(J,C,I
Ligne(J,25,J,35,0
End
For(L,E,V
Ligne(L,26,L,34,0
End
B-1ü

B
2ü

N
Goto 7
End
If H=93 et B>2:Then
Uü

D
Iü

C
Vü

E
U+12ü

U
I+12ü

I
V+12ü

V
For(K,D,V
Ligne(K,26,K,34,0
End
For(J,C,I
Ligne(J,25,J,35,0
End
For(L,E,V
Ligne(L,26,L,34,0
End
B-2ü

B
2ü

N
Goto 7
End
If H=94 et B>3:Then
Uü

D
Iü

C
Vü

E
U+18ü

U
I+18ü

I
V+18ü

V
For(K,D,V
Ligne(K,26,K,34,0
End
For(J,C,I
Ligne(J,25,J,35,0
End
For(L,E,V
Ligne(L,26,L,34,0
End
B-3ü

B
2ü

N
Goto 7
End
Goto 6
Lbl 7
If B=1:Goto 9
If B=8 ou B=4
Then
Uü

D
Iü

C
Vü

E
U+18ü

U
I+18ü

I
V+18ü

V
For(K,D,V
Ligne(K,26,K,34,0
End
For(J,C,I
Ligne(J,25,J,35,0
End
For(L,E,V
Ligne(L,26,L,34,0
End
B-3ü

B
1ü

N
Goto 8
End
If B=7 ou B=3
Then
Uü

D
Iü

C
Vü

E
U+12ü

U
I+12ü

I
V+12ü

V
For(K,D,V
Ligne(K,26,K,34,0
End
For(J,C,I
Ligne(J,25,J,35,0
End
For(L,E,V
Ligne(L,26,L,34,0
End
B-2ü

B
1ü

N
Goto 8
End
If B=6 ou B=2
Then
Uü

D
Iü

C
Vü

E
U+6ü

U
I+6ü

I
V+6ü

V
For(K,D,V
Ligne(K,26,K,34,0
End
For(J,C,I
Ligne(J,25,J,35,0
End
For(L,E,V
Ligne(L,26,L,34,0
End
B-1ü

B
1ü

N
Goto 8
End
entAl–at(1,3)ü

P
B-Pü

B
Uü

D
Iü

C
Vü

E
U+6Pü

U
I+6Pü

I
V+6Pü

V
For(K,D,V
Ligne(K,26,K,34,0
End
For(J,C,I
Ligne(J,25,J,35,0
End
For(L,E,V
Ligne(L,26,L,34,0
End
1ü

N
Lbl 8
If B=1:Goto 9
Goto 6
Lbl 9
Pause
EffDessin
EffEcr
If N=1:Then
Output(1,1,"IL VOUS RESTE LEDERNIER !! C'EST PERDU.
Pause
EffEcr
Stop
End
If N=2:Then
Output(1,1,"VOUS AVEZ REUSSIA LAISSER LE DERNIER A VOTRE ADVERSAIRE. C'EST GAGNE. PLACE AU TROISIEME DEFI.
Pause
EffEcr
End

----------------------
"Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."

"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"

Programaths

Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53

Posté le : Mar 14 Jui 2011, 1:05

il y a un problème dans le graphisme :/, et, quand on joue je sais pas comment faire pour que l'IA attende au moin une seconde le temps qu'on voit ce qu'on a enlevé

----------------------
"Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."

"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Mar 14 Jui 2011, 1:20

Il y a plusieurs manières de ralentir un programme. Cela s'appelle temporiser.
-Effectuer un calcul lourd.
En général on utilise 69! (factorielle 69)
-Placer une boucle For vide. Plus la valeur de fin est grande et plus c'est long.
For(A,1,1000):End

-----

Tu utilises toujours le programme de menu à ce que je vois !

Et je suis toujours aussi déconcerté par les lourdeurs qui empêchent ton kernel de buguer.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Programaths

Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53

Posté le : Mar 14 Jui 2011, 1:30

Je vais prendre ça pour un compliment :p merci

----------------------
"Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."

"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"

Programaths

Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53

Posté le : Mar 14 Jui 2011, 11:51

J'ai terminé ! plus aucun bug, design amélioré il est super testez le d'urgence !

Code

:"progrm:BATONNET >by UGO<
Lbl 0
EffDessin
GraphNAff
QuadNAff
PleinEcr
AxesNAff
FonctNAff
0ü

Xmin
0ü

Ymin
94ü

Xmax
62ü

K
Repeat max(Rep={105
If Rep
Then
If Rep=25 ou Rep=34
Then
Ligne(3,52-8X,3,47-8X,0
Ligne(23,52-8X,23,47-8X,0
X+(Rep=34)-(Rep=25
Rep+3((Rep<0)-(Rep>2ü

B
Horizontale 37
Horizontale 23
For(Á,0,90,6
Ligne(Á,36,Á,37
End
For(Z,0,90,6
Ligne(Z,23,Z,24
End
For(U,2,92,6
Ligne(U,26,U,34
End
For(I,3,93,6
Ligne(I,25,I,35
End
For(V,4,94,6
Ligne(V,26,V,34
End
ú

1ü

U
ú

3ü

I
ú

1ü

V
Lbl 6
codeTouch(ü

H
If H=92:Then
Vü

E
V+6ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
For(A,1,200
End
B-1ü

B
2ü

N
Goto 7
End
If H=93 et B>2:Then
Vü

E
V+12ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
For(A,1,200
End
B-2ü

B
2ü

N
Goto 7
End
If H=94 et B>3:Then
Vü

E
V+18ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
For(A,1,200
End
B-3ü

B
2ü

N
Goto 7
End
Goto 6
Lbl 7
Texte(55,44,"I.A THINKING...
If B=1:Goto 9
If B=8 ou B=4
Then
Vü

E
V+18ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
B-3ü

B
1ü

N
For(X,0,5
Ligne(44,6-X,94,6-X,0
End
Goto 8
End
If B=7 ou B=3
Then
Vü

E
V+12ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
B-2ü

B
1ü

N
For(X,0,5
Ligne(44,6-X,94,6-X,0
End
Goto 8
End
If B=6 ou B=2
Then
Vü

E
V+6ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
B-1ü

B
1ü

N
For(X,0,5
Ligne(44,6-X,94,6-X,0
End
Goto 8
End
entAl–at(1,3)ü

P
B-Pü

B
Vü

E
V+6Pü

V
For(L,E,V
Ligne(L,25,L,35,0
End
1ü

N
For(X,0,5
Ligne(44,6-X,94,6-X,0
End
Lbl 8
If B=1:Goto 9
Goto 6
Lbl 9
If N=1:Then
Texte(40,20,"Looser !
Pause
EffEcr
Goto 0
End
If N=2:Then
For(A,0,400
End
Texte(40,20,"Winner !
Pause
EffEcr
End
Goto 0

Programaths

Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53

Posté le : Sam 18 Jui 2011, 23:44

je voudrais mettre des scores ! par exemple quand ça met "looser!" et bas qu'il y ai :

Code

Text(48,3,"Victoire : ",V
Text(54,3,"Défaite : ",D

Mais je ne maitrise pas encore le systeme de liste :/

----------------------
"Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."

"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"

Google_AdSense

sandro

Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58

Posté le : Dim 19 Jui 2011, 9:43

Tu rajoute devans le Lbl 0

Code

EffVar DEffVar V

ou (mais ça prend 1 octé de plus

Code

0 -> D
0 -> V

Et pour la fin tu fait (je reprend toute la fin)

Code

If N=1:Then
Texte(40,20,"Looser !
D+1 -> D
Text(48,3,"Victoire : ",V
Text(54,3,"Défaite : ",D
Pause
EffEcr
Goto 0
End
If N=2:Then
For(A,0,400
End
Texte(40,20,"Winner !
V+1 -> V
Text(48,3,"Victoire : ",V
Text(54,3,"Défaite : ",D
Pause
EffEcr
End
Goto 0

par contre avec cette méthode, le score se perd dès que l'on quitte le programme.

Sinon avec liste:
avant le Lbl 0, tu rajoute

Code

2 -> dim( [petit L des listes] BATON

Et la fin tu la remplace par:

Code

If N=1:Then
Texte(40,20,"Looser !
1+[petit L des listes]BATON(1 -> [petit L des listes]BATON(1
Text(48,3,"Victoire : ",[petit L des listes]BATON(2
Text(54,3,"Défaite : ",[petit L des listes]BATON(1
Pause
EffEcr
Goto 0
End
If N=2:Then
For(A,0,400
End
Texte(40,20,"Winner !
1+[petit L des listes]BATON(2 -> [petit L des listes]BATON(2
Text(48,3,"Victoire : ",[petit L des listes]BATON(2
Text(54,3,"Défaite : ",[petit L des listes]BATON(1
Pause
EffEcr
End
Goto 0

ce programme va comptabilitser toute les victoires depuis la mise en place du nouveau code. Pour remmettre à 0, suprime la liste BATON

[petit L des listes] se trouve dans [2nde][stats][droite][haut][entrer] et sert à une liste perso (si tu as une TI82 non stats, remplace "[petit L des listes]BATON" par "L6" (liste 6)

"dim(" se trouve dans [2nde][stats][droite][3] et sert soit à donner comme résultat la "longueur" de la liste soit à modiffier ctte longueur. Si tu as une TI82 non stats, il n'y a pas la parenthèse après "dim(" et c'est normal, n'essaye pas d'en rajouter une depuis le clavier.

En espérent t'avoir aidé
Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes

Programaths

Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53

Posté le : Dim 19 Jui 2011, 12:28

Merci sandro, toute les touche je les connaissais, j'avais presque réusi en faite mais je n'avais pas mis les "dim(".
J'avais créé ma liste perso _L_BO mais cela me mettais "err invalide dim"

Le problème est réglé et les scores restent ...
iL y a des programme Assembleur qui garde les scores même après une ram cleared, pour ls programmes en basic ce n'est pas possible ? (si le programmes est archivé ?)

----------------------
"Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."

"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Dim 19 Jui 2011, 12:43

Tu as dis tout ce qu'il y avait à dire sur la base des listes perso.

Je peut encore le simplifier, mais ça risque de ne pas marcher. Je dois pour cela savoir si la fin du code peut être lue sans victoire ni défaite.

Code

If N=1:Texte(40,20,"Looser !
If N=2:Then
For(A,0,400
End
Texte(40,20,"Winner !
End
1+lBATON(N->lBATON(N
Text(48,3,"Victoire : ",lBATON(2
Text(54,3,"Défaite : ",lBATON(1
Pause
EffEcr
Goto 0

Toute donnée est perdue si elles n'est pas archivée. (mais pas d'archive accessible sur les 83

)
Les programmes assembleur stockent ces données compilées quelque part dans l'archive.
Archiver le programme ne suffit pas, il faut archiver la liste qui contient les scores.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Programaths

Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53

Posté le : Dim 26 Jui 2011, 22:17

Bon, je suis très actif en ce moment ! ^^' je vous montre l'amélioration du jeu batonnet, avec possibilité de jouer a 2, 3 mode ' inteligence artificiel ! ( le mode 3 est très très dur a gagner ! un système de score un jolie menu graphique enfin le paquet

(mes programme sont long, et j'en suis désolé mais j'aime bien les beaux programmes avec plein de possibilité :p
J'ai vraiment galérer avec les 3 IA ... )

L'IA commence une fois sur 2 ! idem pour le mode joueur1 vs joueur2

J'ai même voulu remplacé les joueurs 1/2 par un nom qu'on entre nous même, mais bon je me suis ravisé

Voici le code !

Code

:"progrm:BATONNET >by UGO<
Lbl 0
8ü

dim(áBA
EffDessin
GraphNAff
QuadNAff
PleinEcr
AxesNAff
FonctNAff
0ü

Xmin
0ü

Ymin
94ü

Xmax
62ü

Ymax
EffDessin
Ligne(56,8,94,8
Texte(47,62,"Copyright
Texte(55,53,"-> by UGO <-
Ligne(45,0,94,0
Ligne(48,50,75,50
Texte(13,50,"batonnets
Ligne(48,42,90,42
Texte(1,15,"menu
Ligne(2,61,44,61
Ligne(45,60,45,11
Ligne(2,10,44,10
Ligne(1,11,1,60
Ligne(2,54,44,54
Texte(22,48,"<**>
For(X,0,5
Texte(7X+9,6,sous-Cha ne("2 player player / IArule reset score quit ",11X+1,11
End
EffVar X
2ü

P
codeTouch(ü

K
Repeat max(Rep={105
If Rep
Then
If Rep=25 ou Rep=34
Then
Ligne(3,52-7X,3,47-7X,0
Ligne(43,52-7X,43,47-7X,0
X+(Rep=34)-(Rep=25
Rep+6((Rep<0)-(Rep>5ü

X
Else
P+(Rep=26)-(Rep=24
Rep+3((Rep<1)-(Rep>3ü

P
Texte(ú

1,22,54+6P,"
Texte(22,48,sous-Cha ne("<***",1,Rep+1),">
End
End
Ligne(3,52-7X,3,47-7X
Ligne(43,52-7X,43,47-7X
codeTouch(
End
If non(X
Then
0ü

P
0ü

G
Goto A
End
If X=1
Then
1ü

G
Goto A
End
If X=2
Then
Goto 44
End
If X=3
Then
Goto ZZ
End
If X=4
Then
Goto SS
End
If X=5
Then
Goto WW
End
Lbl SS
EffDessin
Texte(0,0,"Player / IA : 2 Player :
Texte(8,53,"[1]Win: ",áBA(1
Texte(14,53,"[2]Win: ",áBA(2
Texte(8,0,"Level:
Texte(15,0,"1: Win: ",áBA(3
Texte(21,7,"Lose: ",áBA(4
Texte(31,0,"2: Win: ",áBA(5
Texte(37,7,"Lose: ",áBA(6
Texte(47,0,"3: Win: ",áBA(7
Texte(53,7,"Lose: ",áBA(8
Pause
EffDessin
Goto 0
Lbl ZZ
EffEcr
Disp "RESET","SCORE
Disp ""
Disp "loading...
For(A,0,200
End
EffListe áBA
Goto 0
Lbl 44
EffDessin
Texte(0,0,"ENLEVER 1,2 OU 3BATONNET
Texte(6,0,"A CHAQUE TOUR MAIS VOUS NE
Texte(12,0,"DEVEZ PAS PRENDRE
Texte(18,0,"LE DERNIER.
Pause
EffEcr
Goto 0
Lbl 55
Texte(
Lbl A
EffDessin
Texte(0,0,"Press [1] or [2] or [3] FOR
Texte(6,0,"REMOVE THE 'BATONNETS'
16ü

1ü

U
ú

3ü

I
ú

1ü

V
entAl–at(1,2)ü

H
If H=1
Then
1ü

J
Else
2ü

J
End
If J=2 et G=1
Then
Goto 7
End
Lbl P
Texte(55,44,"Player: ",J
0ü

K
codeTouch(ü

K
Repeat max(Rep={92 ou 93 ou 94
If Rep
Then
If Rep=92
Then
Goto P1
End
End
If Rep
Then
If Rep=93 et B>2
Then
Goto P2
End
End
If Rep
Then
If Rep=94 et B>3
Then
Goto P3
End
End
codeTouch(
End
Lbl P1
Vü

E
V+6ü

V
B-1ü

B
If J=2 et G=0
Goto CE
For(L,E,V
Ligne(L,25,L,35,0
End
2ü

N
Goto TS
Lbl CE
For(L,E,V
Ligne(L,25,L,35,0
End
1ü

N
Lbl TS
J-(J=2)+(J=1ü

J
If J=2 et G=1
Goto 7
If B=1:Goto 99
For(X,0,5
Ligne(70,6-X,75,6-X,0
End
Goto P
Lbl P2
Vü

E
V+12ü

V
B-2ü

B
If J=2 et G=0
Goto C1
For(L,E,V
Ligne(L,25,L,35,0
End
2ü

N
Goto T1
Lbl C1
For(L,E,V
Ligne(L,25,L,35,0
End
1ü

N
Lbl T1
J-(J=2)+(J=1ü

J
If J=2 et G=1
Goto 7
If B=1:Goto 99
For(X,0,5
Ligne(70,6-X,75,6-X,0
End
Goto P
Lbl P3
Vü

E
V+18ü

V
B-3ü

B
If J=2 et G=0
Goto C2
For(L,E,V
Ligne(L,25,L,35,0
End
2ü

N
Goto T2
Lbl C2
For(L,E,V
Ligne(L,25,L,35,0
End
1ü

N
Lbl T2
J-(J=2)+(J=1ü

J
If J=2 et G=1
Goto 7
If B=1:Goto 99
For(X,0,5
Ligne(70,6-X,75,6-X,0
End
Goto P
Lbl 99
For(X,0,5
Ligne(44,6-X,94,6-X,0
End
If N=2 et P=0
Then
Texte(40,17,"-- Player [1] Win! --
1+áBA(1ü

áBA(1
Texte(48,0,"[1]Win: ",áBA(1
Texte(54,0,"[2]Win: ",áBA(2
Pause
EffDessin
Goto 0
End
If N=1 et P=0
Then
Texte(40,17,"-- Player [2] Win! --
1+áBA(2ü

áBA(2
Texte(48,0,"[1]Win: ",áBA(1
Texte(54,0,"[2]Win: ",áBA(2
End
Pause
EffDessin
Goto 0
Lbl 7
Texte(55,44,"I.A THINKING...
For(A,1,150
End
If B=1:Goto 9
If P=3:Goto 3
If P=2:Goto 2
If P=1:Goto 1
Lbl 3
If B=16 ou B=12 ou B=8 ou B=4
Then
Vü

E
V+18ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
B-3ü

B
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
If B=15 ou B=11 ou B=7 ou B=3
Then
Vü

E
V+12ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
B-2ü

B
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
If B=14 ou B=10 ou B=6 ou B=2
Then
Vü

E
V+6ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
B-1ü

B
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
If B=5 ou B=9 ou B=13
Then
entAl–at(1,3)ü

W
B-Wü

B
Vü

E
V+6Wü

V
For(L,E,V
Ligne(L,25,L,35,0
End
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
Lbl 2
If B=8 ou B=4
Then
Vü

E
V+18ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
B-3ü

B
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
If B=7 ou B=3
Then
Vü

E
V+12ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
B-2ü

B
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
If B=6 ou B=2
Then
Vü

E
V+6ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
B-1ü

B
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
If B=16 ou B=15 ou B=14 ou B=13 ou B=12 ou B=11 ou B=10 ou B=9 ou B=5
Then
entAl–at(1,3)ü

W
B-Wü

B
Vü

E
V+6Wü

V
For(L,E,V
Ligne(L,25,L,35,0
End
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
Lbl 1
If B=4
Then
Vü

E
V+18ü

V
For(L,E,V
Ligne(L,25,L,35,0
End
B-3ü

B
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
If B=3
Then
Vü

E
V+12ü

V
B-2ü

B
For(L,E,V
Ligne(L,25,L,35,0
End
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
If B=2
Then
Vü

E
V+6ü

V
B-1ü

B
For(L,E,V
Ligne(L,25,L,35,0
End
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
entAl–at(1,3)ü

W
B-Wü

B
Vü

E
V+6Wü

V
For(L,E,V
Ligne(L,25,L,35,0
End
1ü

N
J-(J=2)+(J=1ü

J
Goto 8
End
Lbl 8
For(X,0,5
Ligne(44,6-X,94,6-X,0
End
If B=1:Goto 9
Goto P
Lbl 9
For(X,0,5
Ligne(44,6-X,94,6-X,0
End
If P=1:Goto 11
If P=2:Goto 12
If P=3:Goto 13
Lbl 11
If N=1:Then
Texte(40,20," -- I.A WIN! --
1+áBA(4ü

áBA(4
Texte(48,3,"Win: ",áBA(3
Texte(54,3,"Lose: ",áBA(4
End
If N=2:Then
Texte(40,17,"-- Player Win ! --
1+áBA(3ü

áBA(3
Texte(48,3,"Win: ",áBA(3
Texte(54,3,"Lose: ",áBA(4
End
Pause
EffDessin
Goto 0
Lbl 12
If N=1:Then
Texte(40,17," -- I.A WIN! --
1+áBA(6ü

áBA(6
Texte(48,3,"Win: ",áBA(5
Texte(54,3,"Lose: ",áBA(6
End
If N=2:Then
Texte(40,17,"-- Player Win ! --
1+áBA(5ü

áBA(5
Texte(48,3,"Win: ",áBA(5
Texte(54,3,"Lose: ",áBA(6
End
Pause
EffDessin
Goto 0
Lbl 13
If N=1:Then
Texte(40,17," -- I.A WIN! --
1+áBA(8ü

áBA(8
Texte(48,3,"Win: ",áBA(7
Texte(54,3,"Lose: ",áBA(8
End
If N=2:Then
Texte(40,17,"-- Player Win! --
1+áBA(7ü

áBA(7
Texte(48,3,"Win: ",áBA(7
Texte(54,3,"Lose: ",áBA(8
End
Pause
EffDessin
Goto 0

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Lun 27 Jui 2011, 0:41

Citer : programaths

(mes programme sont long, et j'en suis désolé mais j'aime bien les beaux programmes avec plein de possibilité :p
J'ai vraiment galérer avec les 3 IA ... )

Ah oui, on peut dire qu'il est lourd

D'ailleurs trop lourd même pour un graphique.

Et comme d'habitude, je signale que le menu peut être simplifié si on a pas le kernel foireux.

( Je vous propose plutôt celui-ci car plus léger, avec 3 IA. (mais moins beau) )

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Programaths

Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53

Posté le : Lun 27 Jui 2011, 13:38

Plus léger en effet

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

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

Flux RSS