FRUITS (jeu)

Bonjour ami lecteur,
Il y a un an deux ans ou dans ces environs (époque ou je ne savais même pas manier le codeTou... enfin euh, c'est pas sujet)
j'ai découvert ce programme sur l'ancien Tout 82 et je l'avais bien apprécié, du coup je l'ai copié sur ma caltoche, et j'ai créé un lien (quelle action héroïque n'est-ce pas, 80 lignes siouplé). Je vous le présente donc parce que je pense qu'il le mérite. J'aimerais vous dire que je l'ai au moins un peu amélioré mais en fait même pas (ah si placer le Lbl Q à la fin c'est tout).
Oh j'ai failli oublier l'auteur du programme : c'est Luffychigox.
Lien du post d'origine : http://tout82.free.fr/forum/sujet.php?sujet=2955

Le principe du jeu est de ramasser des fruits qui tombent dans un panier, ça vous fait gagner des points, si vous récolter un(e?) bogue vous perdez 2 points et si vous laissez tomber 9 fruits vous avez perdu. Il fait 779 octets.

Malheureusement j'ai oublié mon câble et je ne l'aurais pas jusqu'à la semaine prochaine du coup pas de screenshots, et en plus le prog est fait pour 83+ (enfin faut juste remplacer le "o" minuscule par un symbole degré et c'est bon).

Il y a quelques bugs qu'il faut que je répare. En attendant voici un screen de la version actuelle :



Le lien : http://www.4shared.com/file/PN-O3dCd/FRUITS.html

Code:

:Lbl M
:ClrHome   // ou EffEcr
:Menu("MENU","JOUER",J,"RECORD",R,"INFO",A,"QUITTER",Q
:ClrHome
:Output(5,4,"RECORD
:Output(5,11,L6(4
:Pause
:Goto M
:Lbl A
:Disp "˖=CERISE=1P","°=POMME=2P","O=NOIX DE COCO","=3P","*=BOGUE=‾2P" /* le + : "˖" en tout petit se trouve dans le catalogue dans la partie du bas (faites 'haut' quand vous êtes en haut du catalogue), ° = symbole degré */
:Pause
:Goto M
:Lbl J
:4→dim(L6
:10→A:1→B:10→C:1→D
:DelVar EDelVar PDelVar NDelVar M9→V    // DelVar = EffVar (sur les caltoches françaises)
:Lbl 1
:ClrHome
:Output(1,3,"I
:Output(2,1,"V I
:Output(3,1,"I I
:Output(4,1,"E I
:Output(5,1,"S I
:Output(6,1,": I
:Output(7,3,"I
:Output(8,3,"I
:Output(7,1,V
:Output(8,A,"U
:If D=1
: Output(B,C,"˖    /* Ces espaces sont des indentation c'est juste pour être lisible, ne les recopiez pas */
:If D=2
: Output(B,C,"°
:If D=3
: Output(B,C,"O
:If D=4
: Output(B,C,"*
:If B=8 and A≠C and D≠4
: V-1→V
:If not(V
: Goto G
:If B=8 and A=C and D=1
: E+1→E
:If B=8 and A=C and D=2
: P+1→P
:If B=8 and A=C and D=3
: N+1→N
:If B=8 and A=C and D=4
: M+1→M
:If B=8
:Then
: 1→B
: randInt(1,8→X         // ou entAléat(
: If X=1 or X=2 or X=3
: 1→D
: If X=4 or X=5
: 2→D
: If X=6
: 3→D
: If X=7 or X=8
: 4→D
: randInt(4,16→C
:End
:B+1→B
:getKey→K       // ou codeTouch(→K
:max(4,min(16,A-(K=24)+(K=26→A
:Goto 1
:Lbl G
:E+2P+3N-2M→S
:If S<0
: DelVar S
:If S>L6(4
: S→L6(4
:ClrHome
:Output(1,4,"GAME OVER
:Disp " ","CERISES:","POMMES:","NOIX DE COCO:","BOGUES:
:Output(3,9,E
:Output(4,8,P
:Output(5,14,N
:Output(6,8,M
:Pause
:ClrHome
:Output(3,5,"SCORE:
:Output(3,11,S
:Output(5,4,"RECORD:
:Output(5,11,L6(4
:Pause
:Goto M
:Lbl Q