Abri

Papy Logo présente :
Abri
par Philippe Epaud

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

POUR GARAGE
VE FCC 15 FCFG 0
VT TE FCT 15 FCFT 0
FCURS [10 5] EC "BONJOUR
FCURS [1 10] EC [JE TE PROPOSE UN JEU]
FCURS [1 12] EC [TU VERRAS LA TORTUE EN FACE D'UN ABRI]
FCURS [1 14] EC [TU DOIS LA FAIRE ENTRER DEDANS]
FCURS [8 16] TAPE [EN DONNANT] TAPE CAR 32 FCT 12 TAPE [UN SEUL] TAPE CAR 32 TAPE [ORDRE]
FCT 15 FCURS [1 19] EC [SI TU VEUX T'ARRETER, TAPE : FIN]
FCURS [1 21] FCT 11 TAPE [POUR CONTINUER TAPE SUR LA BARRE < ESPACE >]
FCT 15
ATT VT VE JE
FIN

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

POUR POSITIF
FCT 11 EC [OUI GAGNE, C'EST BIEN]
EC [ME VOILA BIEN A L'ABRI!!!]
EC " EC [] FCT 15
FCFG 11 REPETE 2 [MUSG]
TAPE [POUR CONTINUER TAPE SUR <ESPACE>] ATT
VE VT JE
FIN

POUR GAR :X
VE FCT 15 FCFG 0 FCC 15
LC AV 130 TD 90 AV 12 TG 90
BC AV 18 TG 90 AV 24 TG 90 AV 18
LC ORIGINE RE :X BC FCC 15 FCT 15
FIN

POUR GAGNE?
SI ET PLG? DER POS 135 PLP? DER POS 141 [POSITIF] [NEGATIF]
FIN

POUR NEGATIF
FCT 12 EC [NON, PERDU, C'EST DUR.]
FCFG 12 REPETE 2 [MUSP]
TAPE [POUR CONTINUER TAPE SUR <ESPACE>] ATT
REPETE HASARD 10 [DONNE "TROU HASARD 20]
GAR :X ORDRE
FIN

POUR MUSG
DUREE 2 TEMPO 250 JOUE "DOREMIFASOLASI
FIN

POUR MUSP
DUREE 2 TEMPO 250 JOUE "SILASOFAMIREDO
FIN

POUR JEU
CLOS ME 5 GARAGE
FIN

POUR ORDRE
VT FCT 15 EC [DONNE UN SEUL ORDRE] DONNE "O LL
SI VIDE? :O [MESS STOP]
SI EGAL? "FIN PREM :O [STOP]
SI NON EGAL? COMPTE :O 2 [MESS STOP]
SI NON PRIM? PREM :O [MESS STOP]
SI NON MEMBRE? PREM :O [AV AVANCE] [MESS STOP]
SI NON NOMBRE? DER :O [MESS STOP]
SI PLG? DER :O SOMME 190 :X [FCT 2 EC [LA TORTUE VA SORTIR DE L'ECRAN!] MESS STOP]
EXEC :O
GAGNE?
FIN

POUR MESS
FCT 12 EC [BIIIIIIIP !]
DUREE 1 TEMPO 250
REPETE 6 [JOUE "LADO]
FCFG 0 FCT 15
EC [POUR CONTINUER TAPE SUR <ESPACE>] ATT
ORDRE
FIN

POUR JE
REPETE HASARD 10 [DONNE "X 10 + HASARD 181]
GAR :X ORDRE
FIN