[ti-83+] Memory

Voir le sujet précédent Voir le sujet suivant Aller en bas

[ti-83+] Memory

Message par Phoenix le Jeu 29 Aoû - 15:26

Un petit jeu sympa
(le menu est inspiré par Bataille Navale de Metallica)

Code:
:EffEcr
:FonctionNaffAxesNaff
:0→Xmin
:94→Xmax
:0→Ymin
:0→Ymax
:Horizontale 60
:Horizontale 52
:Texte(3,36,"MEMORY
:Ligne(0,60,0,52
:Ligne(94,60,94,52
:Texte(20,0,"TAILLE DE LA GRILLE :
:Texte(28,6,"3*4
:Texte(35,6,"4*4
:Texte(42,6,"5*4
:Texte(49,6,"QUITTER
:Texte(57,0,"Testez votre mémoire
:3→C
:0→V
:28→X
:Repeat K=105
:CodeTouch(→K
:Texte(X,1,">
:If K=25 ou K=34
:Texte(X,1,"   " /3 espace
:X-7(K=25 et X=/=28)+7(K=34 et X=/=49)+21(K=25 ou X=28)-21(K=34 et X=49→X
:End
:
:If X=28
:Goto J
:If X=35
:Then
:4→C
:Goto J
:End
:If X=42
:Then
:5→C
:Goto J
:End
:Lbl Z
:If V=2C
:Then
:Disp "BRAVO !
:Pause
:EffEcr
:End
:EffDessin
:Zstandard
:AxeAff
:EffVar [A]
:Output (1,1," 
:Stop
:
:Lbl J
:EffDessin
:Ligne(22,28,72,28
:Ligne(22,34,72,34
:Ligne(22,28,22,34
:Ligne(72,34,72,28
:0→T
:5→S
:If C=3
:8→S
:If C=4
:6→S
:0→R
:0→W
:EffVar [A]
:{C,4→dim([A]
:Remplir(11,[A]
:For(P,0,2C-1
:For(Z,1,2
:While R=<W
:Texte(35,44,R)
:Ligne(21+R/2,28,21+R/2,34
:R+1→R
:End
:Lbl J1
:entAleat(1,C→A
:entAleat(1,4→B
:If [A](A,B)=/=11
:Goto J1
:P→[A](A,B
:W+S→W
:End:End
:For(W,R,100
:Texte(25,44,W
:Ligne(21+R/2,28,21+W/2,34
:End
:sin(cos(tan(2
:
:EffDessin
:For(B,1,C
:For(A,1,4
:18A-4→D
:12B-6→E
:Texte(E,D,"?
:D-2→D
:D+6→F
:60-E→E
:E+3→G
:E-5→H
:Ligne(D,G,D,H
:Ligne(F,G,F,H
:Ligne(D,G,F,H
:Ligne(D,H,F,H
:End
:End
:
:Lbl J2
:1→N
:1→O
:0→K
:0→P
:0→V
:Lbl J3
:If V=2C
:Goto Z
:Lbl J0
:Repeat K=105
:Codetouch(→K
:12N-6→L
:18O-10→M
:M+6→D
:L→E
:Texte(L,M,">
:If K>=24 et K=<26 ou K=34
:Texte(L,M,"   "
:If K=45
:Then
:Menu("QUITTER ?","OUI",Z,"NON",J0
:EffEcr
:End
:
:N-(K=25 et N=/=1)+(K=34 et N=/=C)→N
:O-(K=24 et O=/=1)+(K=26 et O=/=4)→0
:End
:If [A](N,O)=11
:Goto JO
:Texte(E,D,[A](N,O
:If P=0
:Then
:1→0
:N→G
:O→H
:Else
:If [A](G,H)=[A](N,O
:Then
:V+1→V
:11→[A](N,O
:11→[A](G,H
:Else
:sin(cos(tan(sin(cos(tan(sin(cos(tan(2    /Si vous avez une calculatrice 15 Mhz rajoutez en
:Texte(E,D,"?
:Texte(12G-6,18H-4,"?
:End
:0→P
:End
:Goto J3
Il est simplifiable au niveau des variables.

Phoenix
Bronze 4
Bronze 4

Age : 21
Messages : 4
Date d'inscription : 28/08/2013
Points Forum : 6
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-83+
  • - TI-83+.fr

TI-83+.fr


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum