DECLARE SUB niveau2go () DECLARE SUB niveau1 () DECLARE SUB niveau2 () DECLARE SUB niveau1go () 5 CLS SCREEN 12 SLEEP 1 niveau1go SLEEP 1 CLS niveau1 CLS LOCATE 10, 25 COLOR 12 PRINT "Voulez vous continuer (o/n)?" q$ = "z" DO UNTIL q$ = "n" OR q$ = "o" q$ = INKEY$ LOOP IF q$ = "n" THEN END CLS niveau2go SLEEP 2 CLS SLEEP 5 niveau2 END SUB niveau1 a% = 0 B% = 0 8 LINE (0, B%)-(650, B%), 8 B% = B% + 10 IF B% = 480 THEN GOTO 9 GOTO 8 9 LINE (a%, 0)-(a%, 460), 8 a% = a% + 10 IF a% = 640 THEN GOTO 6 GOTO 9 6 LINE (480, 140)-(520, 180), 4, BF LOCATE 11, 62 COLOR 14 PRINT "TNT" 7 LINE (405, 95)-(425, 113), 9, B LOCATE 7, 52 COLOR 10 PRINT "x2" 11 r% = 46 x% = 150 y% = 100 rturbo% = 5 10 PSET (x%, y%), 14 r% = r% - 1 IF turbo% = 1 THEN rturbo% = rturbo% - 1 IF rturbo% = 0 OR rturbo% < 0 THEN turbo% = 0 LOCATE 2, 2 COLOR 10 IF r% < 10 THEN COLOR 12 PRINT "Il reste "; r%; " coups." CIRCLE (150, 100), 5, 10 CIRCLE (540, 150), 5, 12 LOCATE 10, 70 COLOR 12 PRINT "ARRIVEE" LOCATE 7, 12 COLOR 10 PRINT "DEPART" v$ = "z" DO UNTIL v$ = "4" OR v$ = "6" OR v$ = "2" OR v$ = "8" v$ = INKEY$ LOOP IF turbo% = 1 THEN GOTO 222 IF v$ = "6" THEN x% = x% + 10 IF v$ = "4" THEN x% = x% - 10 IF v$ = "8" THEN y% = y% - 10 IF v$ = "2" THEN y% = y% + 10 GOTO 111 222 IF v$ = "6" THEN x% = x% + 20 IF v$ = "4" THEN x% = x% - 20 IF v$ = "8" THEN y% = y% - 20 IF v$ = "2" THEN y% = y% + 20 111 PSET (x%, y%), 14 IF x% = 540 AND y% = 150 THEN GOTO 50 IF r% = 0 THEN GOTO 100 IF x% = 480 OR x% = 490 OR x% = 500 OR x% = 510 OR x% = 520 THEN GOTO 70 IF y% = 140 OR y% = 150 OR y% = 160 OR y% = 170 OR y% = 180 THEN GOTO 80 IF x% = 410 OR x% = 420 THEN GOTO 71 IF y% = 100 OR y% = 110 THEN GOTO 81 GOTO 10 70 IF y% = 140 OR y% = 150 OR y% = 160 OR y% = 170 OR y% = 180 THEN GOTO 120 GOTO 10 71 IF y% = 100 OR y% = 110 THEN turbo% = 1 GOTO 10 80 IF x% = 480 OR x% = 490 OR x% = 500 OR x% = 510 OR x% = 520 THEN GOTO 120 GOTO 10 81 IF x% = 410 OR x% = 420 THEN turbo% = 1 GOTO 10 50 CLS COLOR 12 LOCATE 10, 35 PRINT "GAGNE !!!!" PLAY "T250L4O4DEC>L8G" SLEEP 3 CLS GOTO 200 100 SLEEP 1 CLS COLOR 12 LOCATE 10, 35 PRINT "PERDU !!!!" PLAY "T200O4L4EEEDL2C" END 120 z% = 100 SLEEP 1 PLAY "MBT255O0L16CDCDCDCDCDCDCDCD" END 150 CIRCLE (500, 150), 30, 14 FOR S% = 1 TO 29 CIRCLE STEP(0, 0), S%, 14 NEXT S% CIRCLE (500, 150), 30, 12 FOR S% = 1 TO 29 CIRCLE STEP(0, 0), S%, 12 NEXT S% z% = z% + 1 IF z% = 200 THEN GOTO 100 GOTO 150 200 SLEEP 1 END SUB SUB niveau1go CLS SCREEN 12 SLEEP 2 PLAY "C" LINE (90, 150)-(110, 250), 10, BF LINE (90, 230)-(160, 250), 10, BF PLAY "D" LINE (185, 150)-(205, 250), 9, BF LINE (190, 150)-(250, 165), 9, BF LINE (190, 235)-(250, 250), 9, BF LINE (190, 195)-(235, 205), 9, BF PLAY "E" FOR x% = 265 TO 285 FOR y% = 305 TO 325 LINE (x%, 150)-(y%, 250), 12 NEXT y% NEXT x% FOR x% = 305 TO 325 FOR y% = 345 TO 365 LINE (y%, 150)-(x%, 250), 12 NEXT y% NEXT x% PLAY "F" LINE (380, 150)-(400, 250), 14, BF LINE (385, 150)-(445, 165), 14, BF LINE (385, 235)-(445, 250), 14, BF LINE (385, 195)-(430, 205), 14, BF PLAY "G" LINE (470, 150)-(490, 250), 13, BF LINE (470, 230)-(540, 250), 13, BF PLAY "MBL16CEL1G" LINE (310, 300)-(330, 400), 15, BF FOR x% = 270 TO 290 FOR y% = 310 TO 330 LINE (x%, 335)-(y%, 300), 15 NEXT y% NEXT x% END SUB SUB niveau2 a% = 0 B% = 0 a: LINE (0, B%)-(650, B%), 8 B% = B% + 10 IF B% = 480 THEN GOTO B: GOTO a: B: LINE (a%, 0)-(a%, 460), 8 a% = a% + 10 IF a% = 640 THEN GOTO aaa: GOTO B: aaa: LINE (300, 200)-(340, 240), 4, BF LOCATE 14, 40 COLOR 14 PRINT "TNT" LINE (210, 305)-(290, 325), 0, BF aa: LINE (255, 255)-(275, 265), 9, B LOCATE 17, 33 COLOR 10 PRINT "x4" d: r% = 33 x% = 350 y% = 120 rturbo% = 5 c: PSET (x%, y%), 14 r% = r% - 1 IF turbo% = 1 THEN rturbo% = rturbo% - 1 IF rturbo% = 0 OR rturbo% < 0 THEN turbo% = 0 LOCATE 2, 2 COLOR 10 IF r% < 10 THEN COLOR 12 PRINT "Il reste "; r%; " coups." CIRCLE (350, 120), 5, 10 CIRCLE (240, 350), 5, 12 LOCATE 23, 33 COLOR 12 PRINT "ARRIVEE" LOCATE 7, 40 COLOR 10 PRINT "DEPART" v$ = "z" DO UNTIL v$ = "4" OR v$ = "6" OR v$ = "2" OR v$ = "8" v$ = INKEY$ LOOP IF turbo% = 1 THEN GOTO bbb: IF v$ = "6" THEN x% = x% + 10 IF v$ = "4" THEN x% = x% - 10 IF v$ = "8" THEN y% = y% - 10 IF v$ = "2" THEN y% = y% + 10 GOTO ccc: bbb: IF v$ = "6" THEN x% = x% + 40 IF v$ = "4" THEN x% = x% - 40 IF v$ = "8" THEN y% = y% - 40 IF v$ = "2" THEN y% = y% + 40 ccc: PSET (x%, y%), 14 IF x% = 240 AND y% = 350 THEN GOTO f: IF r% = 0 THEN GOTO g: IF x% = 300 OR x% = 310 OR x% = 320 OR x% = 330 OR x% = 340 THEN GOTO h: IF y% = 200 OR y% = 210 OR y% = 220 OR y% = 230 OR y% = 240 THEN GOTO i: IF x% = 260 OR x% = 270 THEN GOTO j: IF y% = 260 OR y% = 270 THEN GOTO k: IF x% = 210 OR x% = 220 OR x% = 230 OR x% = 240 OR x% = 250 OR x% = 260 OR x% = 260 OR x% = 270 OR x% = 280 THEN GOTO q: IF y% = 310 OR y% = 320 THEN GOTO p: GOTO c: h: IF y% = 200 OR y% = 210 OR y% = 220 OR y% = 230 OR y% = 240 THEN GOTO l: GOTO c: j: IF y% = 270 OR y% = 280 THEN turbo% = 1 GOTO c: i: IF x% = 300 OR x% = 310 OR x% = 320 OR x% = 330 OR x% = 340 THEN GOTO l: GOTO c: k: IF x% = 260 OR x% = 270 THEN turbo% = 1 GOTO c: q: IF y% = 310 OR y% = 320 THEN GOTO v: GOTO c: p: IF x% = 210 OR x% = 220 OR x% = 230 OR x% = 240 OR x% = 250 OR x% = 260 OR x% = 260 OR x% = 270 OR x% = 280 THEN GOTO v: GOTO c: f: CLS COLOR 12 LOCATE 10, 35 PRINT "GAGNE !!!!" PLAY "T250L4DEC>L8G" CLS GOTO z: g: SLEEP 1 CLS COLOR 12 LOCATE 10, 35 PRINT "PERDU !!!!" PLAY "T200O4L4EEEDL2C" END l: z% = 100 SLEEP 1 PLAY "MBT255O0L16CDCDCDCDCDCDCDCD" m: CIRCLE (320, 220), 30, 14 FOR S% = 1 TO 29 CIRCLE STEP(0, 0), S%, 14 NEXT S% CIRCLE (320, 220), 30, 12 FOR S% = 1 TO 29 CIRCLE STEP(0, 0), S%, 12 NEXT S% z% = z% + 1 IF z% = 200 THEN GOTO g: GOTO m: v: PLAY "T255O6L32BAGFEDC