J'ai adapté le jeu "Papy-Jump" sur calculette.
Code
Lbl D
5->D
Menu("DIFICULTE :","NORMAL",N,"EXPERT",E
Lbl E :4->D
Lbl N
2->dim(Liste3
7->X :4->Y :1->B :0->C :0->S
EffEcr
Output(1,16,"A
Output(2,16,"L
Output(3,16,"T
Output(4,16,":
entAléat(1,15)->H
entAléat(1,15)->G
entAléat(1,15)->M
entAléat(1,15)->L
entAléat(1,15)->R
entAléat(1,15)->Q
entAléat(1,15)->W
7->V
Lbl A
Output(1,H,"-
Output(2,G,"-
Output(3,M,"-
Output(4,L,"-
Output(5,R,"-
Output(6,Q,"-
Output(7,W,"-
Output(8,V,"-
If Y=1:Then
If X[different de]1:Output(1,X-1," "
If X[different de]15:Output(1,X+1," "
End
Output(Y,X,"O
If ((Y=7 et X=V) ou (Y=6 et X=W) ou (Y=5 et X=Q) ou (Y=4 et X=R) ou (Y=3 et X=L) ou (Y=2 et X=M) ou (Y=1 et X=G)) et B=1 :Then
(-)1->B:0->C :End
If C=D:1->B
If B=(-)1:C+1->C
codeTouche->T
If T=105 :Goto M
0->A
A-(T=24)+(T=26)->A
If Y=1 et B=(-)1 :Then
Output(1,H," "
Output(2,G," "
Output(3,M," "
Output(4,L," "
Output(5,R," "
Output(6,Q," "
Output(7,W," "
Output(8,V," "
W->V :Q->W :R->Q :L->R :M->L :G->M :H->G
entAléat(1,15)->H
S+1->S
partEnt(S/100->I
partEnt((S-100*I)/10)->J
partEnt((S-100*I)-10*J)->K
Output(5,16,I
Output(6,16,J
Output(7,16,K
Y+1->Y :End
Output(Y,X," "
Y+B->Y
X+A->X
If X=0 :15->X
If X=16 :1->X
If Y=8 :Goto C
Goto A
Lbl C
Output(Y,X,"O
Output(4,4,"GAME OVER
Pause
EffEcr
1->[theta]
If D=4 :2->[theta]
If (Liste3([theta]) [inférieur à] S : Then
Output(2,2,"MEILLLEUR SCORE
Output(3,5,"BATTU !
Output(5,3,"DE [5 espaces] POINTS
Output(5,7,S-Liste3([theta]
S->Liste3([theta]
Pause
End
Lbl G
EffEcr
Menu("-PAPY-JUMP-","REESSAYER",D,"SCORE",S,"QUITER",Q
Lbl Q
EffEcr
Output(2,4,"PAPY-JUMP
Output(5,5,"SYPOTU
Pause
EffEcr
Output(1,1,"
Stop
Lbl M
Menu("PAUSE","REPRENDRE",A,"RECOMENCER",D,"QUITER",Q
Lbl S
EffEcr
Output(1,6,"VOTRE
Output(2,5,"MEILLEUR
Output(3,6,"SCORE
Output(4,5,"EST
Output(4,9,Liste3(1
Output(5,4,"EN NORMAL
Output(6,6,"ET
Output(6,9,Liste3(2
Output(7,4,"EN EXPERT
Pause
Goto G
Les scores sont stoqués dans la Liste3 donc vérifier qu'un autre programme ne vienne pas la modifier...
