Torpille

Papy Logo présente :
Torpille
par Philippe Epaud

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

POUR JEU
TE FTCAR [2 2] FCT 14 FCURS [10 1] EC [LA TORTUE TORPILLE]
FCT 11 EC [] EC [Bonjour Capitaine !]
EC [Vous devez donner la valeur de L'ANGLE dont doit TOURNER le canon.]
EC [Vous avez droit a 3 tirs.]
EC [Quand vous voudrez arreter tapez FIN.]
TAPE [Au fait, quel est votre nom, capitaine?]
DONNE "NOM LL
EC []
EC PH [Bonne chance, Capitaine] :NOM
FCURS [2 26] TAPE [Barre <ESPACE> pour continuer] ESPACE
CLOS VE ME 6 VT DUREE 5 OCTAVE 4 TEMPO 255
EC [NIVEAU: Pour 90ø au maximum TAPER : 1]
EC [------- Pour 180ø au maximum TAPER: 2]
EC [------- Pour 360ø au maximum TAPER: 3]
EC [--------------------- Votre choix : ]
FCURS [36 3]
DONNE "V .SAISIE2 [1 2 3 F]
SI EGAL? :V [1] [DONNE "N 91]
SI EGAL? :V [2] [DONNE "N 181]
SI EGAL? :V [3] [DONNE "N 361]
SI EGAL? :V "F [EC [BON VENT CAPITAINE !] STOP]
DONNE "FOIS 1
JEUN1 :N :FOIS
SI MEMBRE? PREM :L ["F FIN][EC [BON VENT CAPITAINE !] ATTENDS 5 STOP]
JEU
FIN

POUR .SAISIE2 :L
DONNE ".CURS CURS
DONNE ".SAISIE2 LL
SI VIDE? :.SAISIE2 [.EFFAS COMPTE :.SAISIE2 RENDS .SAISIE2 :L]
SI NON MEMBRE? PREM :.SAISIE2 :L [.EFFAS COMPTE :.SAISIE2 RENDS .SAISIE2 :L] [RENDS :.SAISIE2]
FIN

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

POUR ROSE
SORTIE 6
FCURS [36 2] EC [360 / 0 DEGRES]
FCURS [18 11] EC [270 ø]
FCURS [57 11] EC [90 ø]
FCURS [38 20] EC [180 ø]
SORTIE 1
CT FCC 12 REPETE 8 [LC AV 90 BC AV 25 RE 25 LC RE 90 TD 360 / 8]
FCC 10
REPETE 12 [LC AV 90 BC AV 12 RE 12 LC RE 90 TD 360 / 12]
FCC 9
FIN

POUR LT
VT FCURS [0 1] FCT 15 MT FCURS [1 0] EC PH PH [TIR num‚ro] :FOIS [sur 3]
EC PH [Faites TOURNER a DROITE le canon, Capitaine ] :NOM
EC [-------------------------------------------------------------------]
DONNE "L LL
SI VIDE? :L [MESS STOP]
SI OU EGAL? "F PREM :L EGAL? "FIN PREM :L [STOP]
SI NON EGAL? COMPTE :L 2 [MESS STOP]
SI NON EGAL? "TD PREM :L [MESS STOP]
SI NON PRIM? PREM :L [MESS STOP]
SI NON NOMBRE? DER :L [MESS STOP]
SI PLG? DER :L 360 [FCT 12 EC [UN TOUR COMPLET = 360 ...] MESS STOP]
SI NON NOMBRE? DER :L [EC [HIEN???] MESS STOP]
FIN

POUR MESS
FCT 12 EC [BIIIIIIP !] MUSP
PAJD LT
FIN

POUR PAJD
FCURS [20 5] 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 TESTLIST :VTEST
SI VIDE? :VTEST [DONNE "VTEST LL TESTLIST :VTEST]
RENDS :VTEST
FIN

POUR JEUN1 :N :FOIS
VE CT FCC 9 VT FCT 15
ROSE
SORTIE 1
LC RE 1 TG 90 AV 1 TD 90 BC REPETE 4 [AV 2 TD 90 ] LC ORIGINE BC REMPLIS
LC CT
REPETE 8 [LC AV 20 TD 90 BC AV 15 RE 15 TG 90 LC RE 20 TD 45]
CANON
DONNE "ANGLE HASARD ( :N )
FCAP 0 TD :ANGLE LC AV 90 BC
REPETE 15 [AV 5 RE 5 TD 24]
LC ORIGINE
LT DONNE "S DER :L
SI MEMBRE? PREM :L [FIN F] [STOP]
FCC 0 CANON
BC FCAP :S
FCC 9 CANON FCAP :S
MT DUREE 1 TEMPO 250
REPETE 22 [AV 4 DUREE 1 TEMPO 250 JOUE "DORE TESTMUS]
DONNE "AM :ANGLE - 6
DONNE "AP :ANGLE + 6
VT
SI OU CAP > :AP CAP < :AM [PERDU] [GAGNE]
FCURS [26 3] FCT 15
TAPE PH [L'ANGLE PARFAIT ETAIT DE :] CAR 32 FCT 10 EC :ANGLE
PAJD
SI :FOIS = 3 [STOP]
DONNE "FOIS :FOIS + 1
JEUN1 :N :FOIS
FIN

POUR PERDU
FCT 12 FCURS [20 0]
FTCAR [2 2] EC PH PH PH [TD] :S ": [PLOUF... PERDU !] FTCAR [1 1]
CT BC FCC 12
ORIGINE REPETE 45 [AV 30 RE 30 TD 8]
MUSP
FIN

POUR GAGNE
FCT 11 FCURS [20 0]
FTCAR [2 2] EC PH PH PH [TD] :S ": [BOUM !!! GAGNE !] FTCAR [1 1]
CT BC FCC 11
REPETE 10 [REPETE 10 [AV 2 TD 36] TD 36]
MUSG
FIN

POUR ESPACE
SI TOUCHE? [SI EGAL? CAR 32 LISCAR [STOP]]
ESPACE
FIN

POUR CANON
LC TG 90 AV 3 TD 90 AV 25
BC AV 20 TD 90 AV 6 TD 90 AV 20
LC AV 25 TD 90 AV 3 FCAP 0
FIN

POUR SAISLIST2
DONNE "L LL
SI VIDE? :L [SAISLIST2]
SI NON NOMBRE? PREM :L [EC [HIEN???] SAISLIST2]
EC "COUCOU
EC :L
RENDS :L
FIN

POUR MUSG
DUREE 2 TEMPO 250 JOUE "DOREMIFASOLASI TESTMUS
FIN

POUR MUSP
DUREE 2 TEMPO 250 JOUE "SILASOFAMIREDO TESTMUS
FIN