Papy Logo présente :
Couloir
par Philippe Epaud

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

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

POUR SONSC
DUREE 2 TEMPO 250 JOUE "SILASOFAMIREDO
FIN

POUR SONS
DUREE 2 TEMPO 250 JOUE "DOREMIFASOLASI
FIN

POUR PASSEE
VT FTCAR [2 2] FCT 3
FCURS [0 0] EC [OUF! Je suis passee! Merci!]
TAPE [Il est bon ce petit pois!]
FCFG 3 REPETE 2 [SONS]
FTCAR [1 1] PAJD FCFG 0
VE JE
FIN

POUR COGNEE
VT FTCAR [2 2] FCT 12 FCURS [0 0]
TAPE [Aie! J'ai tape dans le mur!] FTCAR [1 1]
FCFG 4 REPETE 2 [SONSC]
PAJD FCFG 0
VE CT COUL :X ORDRE
FIN

POUR COUL :X
FCC 9 LC TD :X - 90 AV 12
BC TD 90 AV 100 TD 90
LC AV 12
TG 90 AV 20 TG 90 BC FCC 10 REPETE 36 [AV 2.5 TD 10]
LC TD 90 AV 5 BC REMPLIS LC RE 5 TG 90
FCC 9
LC TD 90 RE 20 TD 90 AV 12 TD 90
BC AV 100
LC TD 90 AV 12 TD 90 - :X BC FCC 15
FIN

POUR PAJ
FCURS [1 22] FCT 12 TAPE [POUR CONTINUER TAPE SUR LA BARRE <ESPACE>]
ATT
FCT 15
FIN

POUR PAJD
FCURS [0 4] FCT 12 TAPE [POUR CONTINUER TAPE SUR LA BARRE <ESPACE>]
ATT
FCT 15
FIN

POUR GAGNE?
SI OU (ET :X - 8 < CAP :X + 8 > CAP) (ET :X - 8 < CAP + 360 :X + 8 > CAP + 360) [PASSEE] [COGNEE]
FIN

POUR JEU
CLOS ME 5 DUREE 1 TEMPO 80 OCTAVE 3 COULOIR
FIN

POUR ORDRE
VT MT FCT 15 EC [Donne UN SEUL ORDRE pour me TOURNER]
DONNE "O LL
SI VIDE? :O [MESS STOP]
SI EGAL? "FIN PREM :O [STOP]
SI NON EGAL? COMPTE :O 2 [MESS STOP]
SI ET NON EGAL? "TD PREM :O NON EGAL? "TG PREM :O [MESS STOP]
SI NON PRIM? PREM :O [MESS STOP]
SI NON NOMBRE? DER :O [MESS STOP]
SI PLG? DER :O 360 [FCT 12 EC [UN TOUR COMPLET = 360 ...] MESS STOP]
CT SORTIE 6 FCC 4 FTCAR [2 2] DEMO DER :O DER :O
FTCAR [1 1] SORTIE 1
GAGNE?
FIN

POUR DEMO :A :LIM
TEMPO 255 DUREE 1
SI EGAL? :A 0 [MT FCC 12 AV 120 FCURS [35 0] EC PH PREM :O DIFF DER :O :A JOUE "DORE FINSON STOP]
FCURS [35 0] TAPE PH PREM :O DIFF DER :O :A
FCC 10 CT EXEC PH PREM :O 1 AV 29
JOUE "DORE RE 29
MT DEMO :A - 1 :LIM
FIN

POUR MESS
FCT 12 EC [BIIIIIIP !]
REPETE 2 [SONSC] PAJD ORDRE
FIN

POUR JE
VT
REPETE HASARD 20 [DONNE "X HASARD 360]
VE CT COUL :X ORDRE
FIN

POUR COULOIR
VE TE VT FCT 15
FCURS [15 5] EC "BONJOUR,
FCURS [1 8] EC [Je te propose un jeu]
FCURS [1 9] EC [Tu verras la tortue dans un COULOIR]
FCURS [1 11] EC [Tu devras la TOURNER dans le bon sens]
FCURS [1 12] EC [avec la BONNE VALEUR pour qu'elle]
FCURS [1 13] EC [TRAVERSE LE COULOIR.]
FCURS [1 15] EC [Elle avancera ensuite toute seule pour MANGER LE PETIT POIS.]
PAJ JE
FIN

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

Haut de page

RETOUR