Papy Logo présente
:Cible
par Philippe Epaud
Papy Logo présente
:Sans avoir lu la page d'Introduction, vous risquez de vous exposer à quelques déconvenues...
POUR .EFFAS :NC
FCURS :.curss REPETE :NC [TAPE CAR 32]
FCURS :.curss
FIN
POUR YCOR
RENDS DER POS
FIN
POUR XCOR
RENDS PREM POS
FIN
POUR EFFA :L :LI
FCURS PH 0 :LI REPETE CPT :L [TAPE CAR 32] FCURS PH 0 :LI
FIN
POUR CPT :L
SI VIDE? :L [RENDS 0] [RENDS SOMME 1 SOMME COMPTE PREM :L CPT SP :L]
FIN
POUR ERROR :P :L :LI
FCT 12
FCURS :.curss TAPE :L ATTENDS 2
FCT 9 .EFFAS 22
FIN
POUR OKVERIFA
SI EGAL? [FIN] :L [STOP]
FCT 2 FCURS [3 1]
REPETE 3 [TAPE CAR 32] FCURS [3 1]
CT FCC 10 AV 50 RE 50 FCC 11
TOURNER PREM :L 1 DER :L
CT FCAP 0 LC AV 50 FCC 0 RE 50
FCC 11 EXEC :L FCC 10
BC AV 50 RE 50 MT
FIN
POUR ATTTT
SI TOUCHE? [SI EGAL? CAR 32 LISCAR [STOP]] [DONNE "REP HASARD 360]
ATTTT
FIN
POUR TREMBLO
FCURS [0 10]
EC [CONCENTRE TOI BIEN...]
EC [QUAND TU SERAS PRET]
EC [FRAPPE LA BARRE D'ESPACE...]
ATTTT
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 AVA :L
SI VIDE? :L [ERROR :L [tape une commande] 24 RENDS 0]
SI EGAL? [FIN] :L [DONNE "FINI "F RENDS :L]
SI NON EGAL? 2 COMPTE :L [ERROR :L [erreur, recommence] 22 RENDS 0]
SI NON EGAL? PREM :L "AV [ERROR :L [erreur, recommence] 22 RENDS 0]
SI NON NOMBRE? DER :L [ERROR :L [erreur, recommence] 24 RENDS 0]
RENDS :L
FIN
POUR VERIFAV :L
DONNE ".curss CURS
SI LISTE? AVA :L [OKVERIFAV] [FCURS PH PREM :.curss DIFF DER :.curss 1 VERIFAV
LL]
FIN
POUR VERIFA :L
DONNE ".curss CURS
SI LISTE? DIR :L [OKVERIFA] [FCURS PH PREM :.curss DIFF DER :.curss 1 VERIFA
LL]
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 NON EGAL? 2 COMPTE :L [ERROR :L [erreur, recommence] 22 RENDS 0]
SI NON MEMBRE? PREM :L [TD TG] [ERROR :L [erreur, recommence] 22 RENDS 0]
SI NON NOMBRE? DER :L [ERROR :L [erreur, recommence] 22 RENDS 0]
SI ET NOMBRE? DER :L PLG? DER :L 90 [ERROR :L [trop grand, recommence] 22
RENDS 0]
RENDS :L
FIN
POUR CE :N :C
FCC :C LC TD 90 AV :N TG 90 BC REPETE 36 [TG 5 AV ( PROD PI :N ) / 18 TG
5]
LC TG 90 AV :N TD 90
BC REMPLIS
FIN
POUR PRENOM
FCURS [0 22] EC [tu as droit a 3 essais]
TAPE [pour jouer, tape ton prenom]
DONNE "JOUUR COMPTER 7 LL
VE TREMBLO CIBLE FCURS [1 1] FCT 9 EC :JOUUR
FIN
POUR ECPALM :L :LI
SI VIDE? :L [FCT 3 STOP]
FCURS PH 66 :LI FCT PREM PREM :L TAPE ITEM 2 PREM :L
FCURS PH DIFF 77 COMPTE DER PREM :L :LI TAPE DER PREM :L
ECPALM SP :L SOMME :LI 1
FIN
POUR ANALYSE :N
SORTIE 6 FCT 2 DONNE "P POINTS
FCURS PH DIFF 4 COMPTE :P SOMME :N 2
SI PLP? :P 2 [TAPE PH :P [point]] [TAPE PH :P [points]]
DONNE "SC SOMME :SC :P SORTIE 1
FIN
POUR POINTS
SI PLG? DISTANCE [0 80] 65 [RENDS 0] [SI PLP? DISTANCE [0 80] 6 [RENDS 1000]
[RENDS DIFF 65 ENT ( DISTANCE [0 80] )]]
FIN
POUR CI
LC FPOS [0 80]
CE 65 6 CE 55 13 CE 45 11 CE 35 5 CE 25 10 CE 15 14
CE 5 12
FIN
POUR PALMARES
SORTIE 6 CT LC FCC 3
FPOS [200 190] FCAP 90 BC
REPETE 2 [AV 104 TD 90 AV 122 TD 90]
FCURS [68 1] TAPE [PALMARES] FCURS [68 2] TAPE [________]
ECPALM :PALM 3 PRENOM SORTIE 1
FIN
POUR MOUCHE :A :N
SI :A > :N [FINSON OKMOUCHE STOP]
AV 1 FCURS [3 1] EC :A
TEMPO 255 OCTAVE 3 DUREE 1 JOUE "MI
MOUCHE SOMME :A 1 :N
FIN
POUR OKVERIFAV
SI EGAL? [FIN] :L [STOP]
CT BC FCC 0 AV 50 LC RE 50 MT FCC 11 FCT 10
FCURS [3 1]
REPETE SOMME 1 COMPTE DER :L [TAPE CAR 32]
MOUCHE 1 DER :L FCT 11
FIN
POUR OKMOUCHE
CT
SI EGAL? 0 CPOINT POS [FCC 12] [FCC 0]
BC REPETE 4 [AV 1 TD 90]
TEMPO 255 DUREE 1 JOUE "DODODO TESTMUS
OCTAVE 5 JOUE "SISIDOSI TESTMUS
FIN
POUR MODIF :L
SI VIDE? :L [RENDS []] [RENDS MP PH 3 SP PREM :L MODIF SP :L]
FIN
POUR MUSPALM
TEMPO 255 DUREE 1
REPETE 3 [JOUE "DOREMIFASO]
TESTMUS
FIN
POUR TESTMUS
SI NON SON? [STOP]
TESTMUS
FIN
POUR MUSIQUE
TEMPO 255 DUREE 1
SI EGAL? 2 PREM PREM :PALM [JOUE "DOMISOLASI TESTMUS]
FIN
POUR ANASCORE :L
SI VIDE? :L [RENDS []]
SI PLG? :SC DER PREM :L [MUSPALM RENDS MP PH PH 2 :JOUUR :SC MODIF SD :L]
[RENDS MP PH 3 SP PREM :L ANASCORE SP :L]
FIN
POUR FINTOUR
VT SORTIE 6 FCT 3 FCURS [1 8] TAPE [___________]
FCURS PH DIFF 4 COMPTE :SC 10
SI PLP? :SC 2 [TAPE PH :SC [point]] [TAPE PH :SC [points]]
DONNE "PALM ANASCORE :PALM
FIN
POUR IC
FCC 3 AV 50
BC FCC 0 RE 50
FIN
POUR JOU
PALMARES DONNE "SC 0 CI SORTIE 6 TOUR 1
SORTIE 1
SI EGAL? PREM :FINI "F [STOP]
JOU
FIN
POUR INIT
DONNE "PALM [[3 ........ 0] [3 ........ 0] [3 ........ 0] [3 ........
0] [3 ........ 0]] CIBLE
FIN
POUR TOUR :N
SI EGAL? 4 :N [FINTOUR STOP]
FCC 3 LC DONNE "X HASARD 2
SI :X = 0 [FPOS PH SOMME 10 HASARD 308 -164] [FPOS PH SOMME -318 HASARD
309 -164]
FCAP 0 BC AV 3 RE 3 LC MT
VT FCT 9
SORTIE 6 FCURS [0 23] TAPE PH [ESSAI Nø] :N SORTIE 1
FCT 15 EC [Tourne la tortue vers la cible:]
VERIFA LL
SI EGAL? PREM :FINI "F [STOP]
VT FCT 15 EC [Et maintenant, fais - la avancer] FINSON
VERIFAV LL
FINSON
SI EGAL? PREM :FINI "F [STOP]
ANALYSE :N
TOUR SOMME :N 1
FIN
POUR TOURNER :D :A :B
SI :A > :B [LC STOP]
EXEC PH :D 1 FCURS [3 1] EC :A
TEMPO 255 DUREE 1 JOUE "DO
SI NON EGAL? :A 1 [IC]
TOURNER :D SOMME :A 1 :B
FIN
POUR JEU
ME 4 DONNE "FINI 0 FEN
OCTAVE 3 DUREE 1
VT VE SI NON NOM? "PALM [INIT]
JOU
FIN
POUR CIBLE
VE VT CT FCC 3 LC FPOS [0 -165] BC FCAP 90 AV 318 RE 636 TG 90
FIN
| © Olivier Schmidt-Chevalier - nov., dec. 2003 |