exemples/A1.JLOGO

; pour jouer, executer TIR 
POUR TIR
INIT
CIBLE
LC ORIGINE BC
ATTENDSTORTUE
EC [Essaie de viser la cible en dirigeant la tortue : TD (ou TG) angle AV nbre_pas]
FEU
FIN

POUR E
FPOS PH :X :Y
FIN

POUR INIT
; ME 2 dŽsactivŽ car le redimensionnement n'est pas fait au bon moment
FEN
DONNE "CCa CC
DONNE "V ITEM 2 TGRAPH
FCC 0
AVP :V / 3
DONNE "X SIGNE * ENTRE :V / 6 :V / 3
DONNE "Y SIGNE * ENTRE :V / 6 :V / 3
FIN

POUR CIBLE
FCC 0
LC
FPOS LISTE :X - 5 :Y - 5
BC
REPETE 4 [AV 10 TD 90]
FIN

POUR FEU
FCAP 0 ORIGINE
SOIT "lu LL
ATTRAPEERREUR [CONTINUE][REPRENDS]
FIN

POUR CONTINUE
EC :lu
EXEC :lu
FCC 0
SI GAGNE? [JINGLE STOP] [EC [Reessai !] FEU]
FIN

POUR REPRENDS
EC PH [La Tortue ne comprends pas cette phrase : "] PH :lu [" . Ecris-en une autre.]
FEU
FIN

POUR JINGLE
DONNE "POSa POS
FCC 180 FCAP 0 CIBLE
LC FPOS PH :X :Y BC
;FPOS LISTE :X - 5 :Y - 5
;FPOS LISTE :X + 5 :Y + 5
;FPOS LISTE :X - 5 :Y + 5
;FPOS LISTE :X + 5 :Y - 5
;FPOS PH :X :Y REPETE 4 [TD 90 ATTENDS 0,5]
LC FPOS :POSa BC
ORIGINE
FCC :CCa
ATTENDS 1
EC [Gagne !]
JOUE "DO JOUE "DO
FIN

POUR AVP :L
DONNE "POS_tmp POS
DONNE "CAP_tmp CAP
AVP1 :L
FIN

POUR SIGNE
SI EGAL? HASARD 2 0 [RENDS -1] [RENDS 1]
FIN

POUR ENTRE :A :B
RENDS ENT :A + HASARD ENT :B - :A
FIN

POUR GAGNE?
SI ET COMPRIS? PREM POS :X - 5 :X + 5 COMPRIS? DER POS :Y - 5 :Y + 5 [RENDS "VRAI] [RENDS "FAUX]
FIN

POUR AVP1 :L
SI PLP? :L 2 [LC FPOS :POS_tmp FCAP :CAP_tmp BC STOP]
AV 2 LC AV 2 BC
AVP1 :L - 4
FIN

POUR COMPRIS? :X :A :B
SI ET PLP? :A :X PLP? :X :B [RENDS "VRAI]
RENDS "FAUX
FIN

POUR TOUR
VE
DONNE "CCa CC
FCC 0
LC
FPOS [-80 15]
BC
ARCD 80 360
LC
FPOS [-40 15]
BC
ARCD 40 360
LC
FPOS [-60 15]
BC
FCC :CCa
FIN

POUR ARCD :R :A
SI :A < 5 [AV 1.746667E-2 * :R * :A TD :A STOP]
AV 8.733333E-2 * :R TD 5
TD 5 ARCD1 :R :A - 5 TG 5
FIN

POUR ARCD1 :R :A
SI :A < 10 [AV 1.746667E-2 * :R * :A TD :A STOP]
AV .1746667 * :R TD 10
ARCD1 :R :A - 10
FIN

 
Me faire un don