Papy Logo présente :
Labyrins
par Philippe Epaud

Sans avoir lu la page d'Introduction, vous risquez de vous exposer à quelques déconvenues...

POUR TESTMUS
SI NON SON? [STOP]
TESTMUS
FIN

POUR PAJD
FCURS [10 3] FCT 12 TAPE [POUR CONTINUER TAPE SUR LA BARRE <ESPACE>]
ATT
FCT 15
FIN
POUR PAJ
FCURS [0 2] FCT 12 TAPE [POUR CONTINUER TAPE SUR LA BARRE <ESPACE>]
ATT
FCT 15
FIN

POUR ATT
SI TOUCHE? [SI EGAL? CAR 32 LISCAR [STOP]]
REPETE HASARD 10 [DONNE "REP HASARD 2]
ATT
FIN

POUR LAB1
VE CT FCC 1 GRILLE FCC 12 L1
FCC 11
FIN

POUR LAB2
VE CT FCC 1 GRILLE FCC 12 L2
FCC 11
FIN

POUR LAB3
VE CT FCC 12 L3
FCC 11
FIN

POUR TOUR
DONNE "ETAT 0
VT EC [Donne un ordre a la tortue :]
VERIFA LL
SI OU EGAL? PREM :FINI "F NON EGAL? :ETAT 0 [STOP]
TOUR
FIN

POUR SALADE
TG 90
REPETE 10 [FEUILLE TD 36]
TD 90
FIN

POUR COMPTER :N :M
SI OU EGAL? 0 :N VIDE? :M [RENDS "] [SI VIDE? PREM :M [RENDS MOT CAR 32 COMPTER :N - 1 SP :M] [RENDS MOT PREM PREM :M COMPTER :N - 1 PH SP PREM :M SP :M]]
FIN

POUR GRILLE
LC AV 140 TD 90 AV 280 TG 180 BC
REPETE 7 [AV 560 TG 90 AV 20 TG 90 AV 560 TD 90 AV 20 TD 90]
AV 560 TD 90
REPETE 14 [AV 280 TD 90 AV 20 TD 90 AV 280 TG 90 AV 20 TG 90]
AV 280
LC ORIGINE
FIN

POUR L3
CT LC RE 80 BC RE 40 G BC
AV 280 D AV 200 D
AV 80 D AV 80 G AV 40 G AV 120 D
AV 120 D AV 160 G AV 200 G AV 40 G
AV 160 D AV 120 D AV 240 D
AV 240 D AV 140 LC AV 100 BC
D LC AV 40 G BC
AV 240
D AV 120 RE 80 D AV 120 G
AV 120 D AV 40 D AV 160 G AV 280 G
AV 120 G AV 160
D AV 40 D AV 160 D
AV 160 D AV 100 G AV 20
LC TG 90 AV 20 FCC 10 BC SALADE LC FCC 12 RE 20 TD 90 BC
AV 20 RE 40 D
AV 100
LC RE 80 D AV 140 BC
REMPLIS LC RE 140 G AV 80 BC
LC AV 200 D AV 20 BC
REMPLIS LC RE 20 G RE 200 BC
LC G AV 20 D AV 5 BC MT
FIN

POUR SALADE?
SI EGAL? CPOINT POS 10 [RENDS VRAI] [RENDS FAUX]
FIN

POUR MUR?
SI EGAL? CPOINT POS 12 [RENDS VRAI] [RENDS FAUX]
FIN

POUR JEU
ME 4 VT SORTIE 6 FTCAR [2 2] FCT 12
EC [LES LABYRINTHES] EC []
EC [La tortue est affamee!]
EC [Tu dois la guider a travers 3]
EC [labyrinthes, pour qu'elle puisse]
EC [manger ses 3 salades]
EC [] EC [Utilise les ordres AV RE TD ou TG. ]
EC [Bonne chance!]
SORTIE 1
PAJD
DONNE "FINI 0
SI NON NOM? "NIVEAU [DONNE "NIVEAU 1] [PROPOSEDEBUT]
FEN OCTAVE 3 DUREE 1 TEMPO 255
VT VE
JOU
FIN

POUR PROPOSEDEBUT
SI EGAL? :NIVEAU 1 [STOP]
VT FCT 4 FTCAR [2 2] TAPE PH [Veux-tu recommencer au niveau 1 ? ] CAR 32
DONNE "rep LL FCT 15 FTCAR [1 1]
SI MEMBRE? PREM :rep [O o OUI oui] [DONNE "NIVEAU 1]
FIN

POUR D
TD 90
FIN
POUR G
TG 90
FIN

POUR JOU
EXEC PH MOT "LAB :NIVEAU []
SORTIE 6 FTCAR [2 2] FCURS [18 0] FCT 14
EC PH [LABYRINTHE numero ] :NIVEAU
SORTIE 1 TOUR SORTIE 1
SI EGAL? PREM :FINI "F [STOP]
SI ET EGAL? :ETAT 2 EGAL? :NIVEAU 3 [VT FTCAR [1 2] EC PH CAR 32 [La tortue est gavee ! Elle vous remercie !] FTCAR [1 1] PAJ JEU STOP]
SI EGAL? :ETAT 2 [DONNE "NIVEAU :NIVEAU + 1 VT JOU STOP]
SI ENCORE? [VT JOU STOP]
FIN

POUR ENCORE?
FCURS [0 2] TAPE PH [UNE AUTRE PARTIE ( O/N ) ?] CAR 32
DONNE "REP LL
SI VIDE? :REP [RENDS ENCORE? STOP]
SI MEMBRE? PREM :REP [O OUI] [RENDS VRAI]
RENDS FAUX
FIN

POUR OKVERIFA
SI EGAL? [FIN] :L [STOP]
FCT 2 FCURS [3 1] REPETE 1 + COMPTE DER :L [TAPE CAR 32] FCURS [3 1]
ACTION PREM :L 1 DER :L
FCT 15
FIN

POUR VERIFA :L
DONNE ".curss CURS
SI LISTE? DIR :L [OKVERIFA] [FCURS PH PREM :.curss DIFF DER :.curss 1 VERIFA LL]
SI OU EGAL? :ETAT 1 EGAL? :ETAT 2 [STOP]
FIN

POUR DIR :L
SI VIDE? :L [ERROR :L [tape une commande] 22 RENDS 0]
SI EGAL? [FIN] :L [DONNE "FINI "F RENDS :L]
SI OU NON EGAL? 2 COMPTE :L OU NON MEMBRE? PREM :L [TD TG AV RE AVANCE RECULE ] NON NOMBRE? DER :L [ERROR :L [erreur, recommence] 22 RENDS 0]
SI ET NOMBRE? DER :L PLG? DER :L 360 [ERROR :L [trop grand, recommence] 22 RENDS 0]
RENDS :L
FIN

POUR CPT :L
SI VIDE? :L [RENDS 0] [RENDS SOMME 1 SOMME COMPTE PREM :L CPT SP :L]
FIN

POUR L2
CT LC RE 140 D AV 20 G BC
AV 20 G AV 280 D AV 200 D
AV 80 D AV 40 G AV 100 D AV 80
RE 160 G AV 240
D AV 20
LC TD 90 AV 20 FCC 10 BC SALADE LC FCC 12 RE 20 TG 90 BC
AV 20 D
AV 200 G AV 160 D
AV 80 D AV 80 G AV 80 D
AV 40 RE 120 D AV 280 D AV 60
LC D AV 20 D BC MT
FIN

POUR L1
CT
LC RE 140 TD 90 AV 20 TG 90 BC
AV 40 TD 90 AV 80 TG 90 AV 80 TG 90 AV 200 TD 90 AV 40 TD 90 AV 240 TG 90
AV 80 TG 90 AV 300
TG 90 AV 20
LC TG 90 AV 20 FCC 10 BC SALADE LC FCC 12 RE 20 TD 90 BC
AV 20 TG 90 AV 260 RE 240 TD 90 AV 120 TG 90 AV 200 RE 80 TD 90 AV 80
TG 90 LC AV 20 TG 90 MT
FIN

POUR ACTION :D :A :B
SI :A > :B [FINSON STOP]
EXEC PH :D 1 FCURS [3 1] EC :A REPETE 10 [JOUE "MILA]
SI MUR? [FINSON VT FCT 12 FTCAR [2 2] EC "PERDU FTCAR [1 1] MUSP DONNE "ETAT 1 PAJ STOP]
SI SALADE? [FINSON VT FCT 14 FTCAR [2 2] TAPE "GAGNE FTCAR [1 1] MUSG DONNE "ETAT 2 PAJ STOP]
SI MEMBRE? :D [AV AVANCE RE RECULE] [EXEC PH :D -1 BC EXEC PH :D 1 LC]
ACTION :D :A + 1 :B
FIN

POUR MUSG
DUREE 1 TEMPO 250 REPETE 2 [JOUE "DOREMIFASOLASI] TESTMUS
FIN

POUR MUSP
DUREE 1 TEMPO 250 REPETE 2 [JOUE "SILASOFAMIREDO] TESTMUS
FIN

POUR .EFFAS :NC
FCURS :.curss REPETE :NC [TAPE CAR 32]
FCURS :.curss
FIN

POUR FEUILLE
REPETE 10 [AV 4 TD 36]
LC TD 80 AV 4 BC REMPLIS LC RE 4 TG 80 BC
FIN

POUR ERROR :P :L :LI
FCT 12
FCURS :.curss TAPE :L ATTENDS 3
.EFFAS 22 FCT 15
FIN

© Olivier Schmidt-Chevalier - nov., dec. 2003

Haut de page

RETOUR