Code
0->Xmin: 94->Xmax
0->Ymin: 94->Ymax
EffEcr
EffDessin
Menu("bienvenu ", "nouveau ",1, "continuer",J,"aide",O,"quitter,Z
Lbl z
EffEcr
Stop
Lbl o
Disp "le but du jeu est de","faire de votre","annimal le","meilleur de tous
Pause
EffEcr
Disp "pour acceder au","menu appuyez sur","la touche 2nde
Pause
EffEcr
Disp"et pour nourir",l'annimal appuyez","sur entrer
Pause
EffEcr
Lbl 1
0->A
0->B
100->C
0->D
Lbl 3
EffDessin
Cercle(45,30,1+A
SauveImage 0
Lbl J
L3(1)->A
L3(2)->B
L3(3)->C
Lbl 2
Repeat
RappelImage 0
codeTouch(->K
If K=21
Menu("menu","ferme",4,"mini jeux",5,"aide",o,"sauvegardez",s,"quittez",z
if K=105
Then
If c=/=(égal barré)
then
C-1->C
B+10->B
else
EffEcr
Disp"plus de bouf
pause
EffEcr
End
End
If B>=(plus grand ou égal)100A
then
0->B
A+1->A
EffEcr
disp"niveau",A
Pause
EffEcr
Goto3
End
End
End
Lbl 5
prgmCHOPE ///ATTENTION IL FAUT D'ABORD ENREGISTRER CE PROGRAMME///
L+C->C
Goto 2
Lbl S
A->L3(1
B->L3(2
C->L3(3
Goto 2
Lbl 4
EffEcr
disp"cultiver combien","de fruits:
Input D
D*10->W
Repeat D=W
EffEcr
Disp"attends",w-d,secondes
D+1->D
end
D+C->C
Goto 2
