PRESS
(Cela faisait longtemps que je devais poster mes jeux mais je n'avais jamais eu l'envie de les taper. En créant mon site il y a peu de temps j'ai décidé de taper malgré tout mes programmes sur l'ordinateur.)
• Taille: 488 octets
• PRESS est un jeu simple, le but est... d'appuyer le plus de fois possible sur la touche [2nde] en un temps limité. Il conserve le meilleur score.
• Fonctionne sur:
- TI-82 (En remplaçant {L}PR par {L1}.
- TI-82 Stats(.fr)
- TI-83
- TI-83+(.fr)
- TI-84+
• Télécharger:
- 83p
- 8xp
• Taper à la main: (Français)
| Code | SauveBDG 0
1{->}dim({L}PR
Lbl 0
EffEcr
Menu(">>>> PRESS <<<<<","JOUER",1,"RECORD",2,"QUITTER",3
Lbl 1
EffDessin
AxesNAff
FonctNAff
0{->}Xmin
100{->}Xmax
0{->}Ymin
62{->}Ymax
Horizontale 0
Horizontale 8
For(A,22,30
Horizontale A
End
Horizontale 44
Horizontale 52
Horizontale Ymax
Verticale 0
0{->}B
For(A,1,95,5
Texte(11,A,"<
Texte(55,A,"<
End
Verticale Xmax
Texte(2,2,"SCORE:
Texte(2,64,"TEMPS:
For(A,99,0,{-}.1
codeTouche{->}C
If C=105
Pause
If C=21
B+entAléat(3,5{->}B
If C=45
Goto 0
Texte(2,24,B
Texte(2,86,ent(A
If A<10
Texte(2,90,"
Ligne(A,23,A,29,0
End
If B>{L}PR(1
Then
Output(8,2,"RECORD VAINCU!
B{->}{L}PR(1
End
Output(1,6,"PRESS
Disp "","","SCORE:",B,"RECORD:
Pause {L}PR(1
Goto 0
Lbl 2
Output(1,6,"PRESS
Disp "","","","RECORD:
Pause {L}PR(1
Goto 0
Lbl 3
Output(4,6,"ALEXIS
RappelBDG 0
EffVar AEffVar BEffVar CEffVar YEffVar BDG0
Output(1,1," |
• Taper à la main: (Anglais)
| Code | StoreGDB 0
1{->}dim({L}PR
Lbl 0
ClrHome
Menu(">>>> PRESS <<<<<","JOUER",1,"RECORD",2,"QUITTER",3
Lbl 1
ClrDraw
AxesOff
FnOff
0{->}Xmin
100{->}Xmax
0{->}Ymin
62{->}Ymax
Horizontal 0
Horizontal 8
For(A,22,30
Horizontal A
End
Horizontal 44
Horizontal 52
Horizontal Ymax
Vertical 0
0{->}B
For(A,1,95,5
Text(11,A,"<
Text(55,A,"<
End
Vertical Xmax
Text(2,2,"SCORE:
Text(2,64,"TEMPS:
For(A,99,0,{-}.1
getKey{->}C
If C=105
Pause
If C=21
B+randInt(3,5{->}B
If C=45
Goto 0
Text(2,24,B
Text(2,86,iPart(A
If A<10
Text(2,90,"
Line(A,23,A,29,0
End
If B>{L}PR(1
Then
Output(8,2,"RECORD VAINCU!
B{->}{L}PR(1
End
Output(1,6,"PRESS
Disp "","","SCORE:",B,"RECORD:
Pause {L}PR(1
Goto 0
Lbl 2
Output(1,6,"PRESS
Disp "","","","RECORD:
Pause {L}PR(1
Goto 0
Lbl 3
Output(4,6,"ALEXIS
RecallGDB 0
DelVar ADelVar BDelVar CDelVar YDelVar GDB0
Output(1,1," |
• Caractères spéciaux:
{L} = [2nde] + [0] + [)]
{->} = [sto->]
{-} = [( - )]
{L1} = [2nde] + [1]
----------------------
Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
