Code
EffDessin
0->Xmin
94->Xmax
(-)62->Ymin
0->Ymax
AxesNAff
FonctOff
6->A:8->B:44->C:77->D:1->E:2->N:0->O
1->dim(Liste6
If .7349=partDéc(Liste6(1:Liste6(1->O
EffListe Liste4
EffListe Liste5
99->dim(Liste4
99->dim(Liste5
For(ø,1,6,1.4
Ligne(88,(-)ent(ø),6,(-)ent(ø)
End
Ligne(6,(-)57,88,(-)57
Ligne(88,(-)56,88,(-)6
Ligne(6,(-)6,6,(-)56
Texte(0,13," SCORE : 3
Texte(0,53," HIGH : ",ent(O
Lbl 5
(-)8-5ent(NbrAléat10->I
8+5ent(NbrAléat16->J
If pxl-Test((-)I,J:Goto 5
Ligne(J,I,J+2,I-2
Ligne(J,I-2,J+2,I
Goto 3
Lbl 2
6+50partDéc((A+C)/50->A
8+80partDéc((B+D)/80->B
If pxl-Test(A+2,B:Goto 4
Texte(A,B,"º
Lbl 3
arrondi(1+NpartDéc(E/N),0->E
Texte(Liste4(E),Liste5(E),"[4 espaces]
A->Liste4(E:B->Liste5(E
codeTouche->K
If K=0:Goto 2
If D=72:Then
If K=24:67->D
If K=26:77->D
If 1=abs(K-25:44->C
Goto 2:End
If C[pas égal à]44:Goto 2
If K=25:39->C
If K=34:49->C
If K=25 ou K=34:72->D
Goto 2
Lbl 4
Texte(A,B,"º
Ligne(B+1,(-)A-3,B+2,(-)A-2
If (-)I[pas égal à]A+2 ou J[pas égal à]B ou N=99:Goto Q
N+1->N
Texte(0,38,N+1
Goto 5
Lbl Q
If N+1>O:N+1.7349->Liste6(1
Texte(27,31,"GAME OVER
Pause