1 REM **************************** 2 REM *** *** 3 REM *** C A R *** 4 REM *** *** 5 REM *** EddieTheWild, 2010 *** 6 REM *** *** 7 REM *** *** 8 REM **************************** 10 : 100 GO TO 4990 499 : REM ciclo principal 500 FOR n=1 TO co: IF n>1 THEN IF a(1)=a(n) AND b(1)=b(n) THEN GO TO 4000 510 LET col=ATTR (y(n),x(n))-64: LET c=g(n): IF c=2 THEN GO TO 520 512 IF c=cdot AND t(n) THEN LET c=ctank 515 LET a$=(" " AND c=7)+("\f" AND c=cdot)+("\g" AND c=ctank): PRINT AT b(n),a(n); INK c;a$ 520 PRINT AT y(n),x(n); INK 2+(5 AND n=1);CHR$ o(n): LET a(n)=x(n): LET b(n)=y(n) 530 IF n=1 THEN GO TO 550 540 LET g(n)=col: GO TO 570 550 IF col<>cdot AND col<>ctank THEN GO TO 570: 560 LET sc=sc+(pdot AND col=cdot)+(ptank AND col=ctank): LET pu=pu-1: BEEP 0.001,50: PRINT AT 21,12-LEN STR$ sc;sc: IF sc>=sca+nvi THEN GO SUB 4600 565 IF pu=0 THEN GO TO 4500 570 IF ATTR (y(n)+w(n),x(n)+v(n))=69 THEN GO SUB 1000: IF o(n)>147 THEN LET o(n)=o(n)-4: GO TO 660 580 IF (y(n)+w(n)>8 AND y(n)+w(n)<12) OR (x(n)+v(n)>14 AND x(n)+v(n)<17) THEN GO TO 600 590 GO TO 660 600 IF n=1 THEN LET d$=INKEY$: GO TO 620+(35 AND d$="") 610 GO SUB 2000: IF d$="" THEN GO TO 660 620 IF d$="O" AND w(n) THEN IF x(n)<>3 AND x(n)<>18 THEN LET x(n)=x(n)-1: LET c(n)=-1: BEEP 0.01,-20 630 IF d$="P" AND w(n) THEN IF x(n)<>13 AND x(n)<>28 THEN LET x(n)=x(n)+1: LET c(n)=1: BEEP 0.01,-20 640 IF d$="Q" AND v(n) THEN IF y(n)<>1 AND y(n)<>13 THEN LET y(n)=y(n)-1: LET d(n)=-1: BEEP 0.01,-20 650 IF d$="A" AND v(n) THEN IF y(n)<>7 AND y(n)<>19 THEN LET y(n)=y(n)+1: LET d(n)=1: BEEP 0.01,-20 660 LET x(n)=x(n)+v(n): LET y(n)=y(n)+w(n) 670 NEXT n: IF NOT notank THEN LET t(m)=t(m)-1: IF t(m)=0 THEN LET notank=1: GO TO 690 675 IF notank AND (RND24 THEN RETURN 2010 LET rn=ABS ((y(n)-10 AND v(n))+(x(n)-15-(x(n)<16) AND w(n))) 2020 LET r1=ABS ((y(1)-10 AND v(1))+(x(1)-15-(x(1)<16) AND w(1))) 2030 IF r1=rn THEN LET d$="": RETURN 2050 IF v(n) THEN LET d$=("Q" AND ((rnr1 AND y(n)>10)))+("A" AND ((rn10) OR (rn>r1 AND y(n)<10))): RETURN 2060 LET d$=("O" AND (x(n)<>7 OR x(1)<25) AND ((rnr1 AND x(n)>15)))+("P" AND NOT (x(n)=24 AND x(1)<7) AND ((rn15) OR (rn>r1 AND x(n)<15))): RETURN 2998 : REM dibujo circuito 3000 FOR n=0 TO 20: PRINT INK cdot;AT n,3;"\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f": NEXT n 3010 INK 5: LET l=18: LET y=1: FOR n=6 TO 15 STEP 2: FOR m=y TO y+l: PRINT AT m,n;"\h";AT m,31-n;"\h" 3020 PRINT AT n-6,m+5;"\i";AT 26-n,m+5;"\i" 3030 NEXT m: LET y=y+2: LET l=l-4: NEXT n 3040 FOR n=3 TO 29: PRINT AT 0,n;"\i";AT 20,n;"\i": NEXT n: FOR n=0 TO 20: PRINT AT n,2;"\h";AT n,29;"\h": NEXT n: FOR n=2 TO 18: PRINT AT n,4;"\h";AT n,27;"\h": NEXT n 3050 FOR n=0 TO 6 STEP 2: PRINT AT 2+n,8+n;"\l";AT 2+n,23-n;"\m";AT 18-n,8+n;"\j";AT 18-n,23-n;"\k": NEXT n 3060 PRINT AT 0,2;"\l";AT 0,29;"\m";AT 20,2;"\j";AT 20,29;"\k";AT 0,6;"\o";AT 0,25;"\o";AT 20,6;"\n";AT 20,25;"\n" 3070 INK 7: FOR n=9 TO 11: PRINT INK 7;AT n,3;" ";AT n,15;" ";AT n,18;" ": NEXT n: FOR n=1 TO 7: PRINT INK 7;AT n,15;" ";AT 20-n,15;" ": NEXT n 3080 PRINT AT 21,1; INK 7;"SCORE 00000";AT 21,12-LEN STR$ sc; INK 7;sc;AT 21,17;"HI-SCORE 00000";AT 21,31-LEN STR$ hi; INK 7;hi 3090 PRINT AT 10,15; INK 7;"\a"; INK 4;vi 3100 RETURN 3999 : REM \{o1} choque \{o0} 4000 PRINT AT b(1),a(1); FLASH 1; INK 6; PAPER 2;"\e": FOR i=1 TO 40: BORDER 6: BEEP 0.02,-20: BORDER 2: BEEP 0.01,-10: NEXT i: BORDER 0: REM PRINT AT b(1),a(1);" " 4010 FOR n=1 TO co: LET c=g(n): IF c<>2 THEN LET a$=(" " AND c=7)+("\f" AND c=cdot)+("\g" AND c=ctank): PRINT AT b(n),a(n); INK c;a$: NEXT n 4020 LET vi=vi-1: PRINT AT 10,16; INK 4;vi: IF vi=0 THEN GO TO 4530 4030 GO TO 5080 4499 : REM fase acabada 4500 FOR n=60 TO 30 STEP -1: BEEP .01,n: BEEP .01,60-n: NEXT n: IF cohi THEN LET hi=sc 4550 PRINT #0;AT 1,2; FLASH 1;"Press any key for a new game": PAUSE 0: GO TO 5030 4599 : REM vida extra 4600 LET vi=vi+1: PRINT AT 10,15; INK 7;"\a"; INK 4;vi: FOR i=20 TO 60 STEP 5: BEEP 0.005,i: NEXT i: LET sca=sc: RETURN 4989 : REM Inicializacion 4990 LOAD "car-udg"CODE 5000 POKE 23658,8: PAPER 0: INK 7: BRIGHT 1: BORDER 0: LET hi=0: LET maxco=5: DIM x(5): DIM y(5): DIM a(5): DIM b(5): DIM o(5): DIM v(5): DIM w(5): DIM g(5): DIM t(5): DIM c(5): DIM d(5) 5020 : REM nueva partida 5030 GO SUB 6000: CLS : RANDOMIZE : PRINT AT 10,6;"Enemy cars? (1-4) "; 5037 PAUSE 0: LET a$=INKEY$: IF a$<"1" OR a$>"4" THEN BEEP 0.5,10: GO TO 5037 5040 PRINT a$: BEEP 0.2,30: BEEP 0.2,25: LET co=1+VAL a$: LET vi=3: LET nvi=3000: LET sc=0: LET sca=sc: LET cdot=6: LET ctank=1: LET ntank=6: LET rndtank=0.04 5050 : REM nueva fase 5060 LET pu=212: LET pdot=10*(co-1): LET ptank=20*(co-1): LET notank=1: GO SUB 3000: 5070 : REM nueva vida 5080 PRINT #0;AT 1,4; FLASH 1;"Press any key to start!!";: PAUSE 0: PRINT #0;AT 1,4;" ": RESTORE 5100: FOR n=1 TO co: READ x(n): READ y(n): READ o(n): READ v(n),w(n): LET a(n)=x(n): LET b(n)=y(n): LET g(n)=ATTR (y(n),x(n))-64: LET t(n)=0: NEXT n: LET g(1)=7: GO TO 500 5090 REM x, y, ascii dibujo, dx, dy 5100 DATA 15,19,145,1,0 5110 DATA 14,19,147,-1,0 5120 DATA 13,12,146,0,1 5130 DATA 18,7,146,0,1 5140 DATA 14,3,147,-1,0 5999 : REM Titulo principal 6000 CLS : RESTORE 7000 6010 READ x1,y1,o1: READ x2,y2,o2: PRINT AT y1,x1; INK 2;CHR$ o1;AT y2,x2; INK 2;CHR$ o2: LET a1=x1: LET b1=y1: LET a2=x2: LET b2=y2: FOR i=1 TO 95: PRINT AT b1,a1; INK 1;"\g": PRINT AT b2,a2; INK 5;"\g": READ x1,y1,o1: READ x2,y2,o2: PRINT AT y1,x1; INK 2;CHR$ o1;AT y2,x2; INK 2;CHR$ o2: LET a1=x1: LET b1=y1: LET a2=x2: LET b2=y2: IF INKEY$="S" THEN RETURN 6020 BEEP 0.005,-10: NEXT i: PRINT #0;" (C) EddieTheWild 1985-2010": PAUSE 300: IF INKEY$="S" THEN RETURN 6030 : REM datos animacion comienzo 6050 CLS : PRINT : PRINT : PRINT INK 6;"Pick up all the yellow dots and": PRINT INK 6;"avoid the red kamikaze cars.": PRINT : PRINT INK 6;"Blue fuel tanks score double.": PRINT : PRINT : PRINT : PRINT INK 6;" Controls": PRINT : PRINT INK 7;" Q": PRINT INK 2;" \q": PRINT INK 7;" O\{i2}\s \t\{i7}P": PRINT INK 2;" \r": PRINT INK 7;" A": PRINT : PRINT : PRINT INK 7;" S - Start": PAUSE 200: IF INKEY$="S" THEN RETURN 6060 GO TO 6000 6999 : REM datos animacion comienzo 7000 DATA 9,4,147 7005 DATA 9,5,147 7010 DATA 8,4,147 7015 DATA 8,5,147 7020 DATA 7,4,147 7025 DATA 7,5,147 7030 DATA 6,5,146 7035 DATA 7,6,146 7080 DATA 5,6,146 7085 DATA 6,6,147 7090 DATA 5,7,146 7095 DATA 6,7,146 7100 DATA 5,8,146 7105 DATA 6,8,146 7110 DATA 5,9,146 7115 DATA 6,9,146 7120 DATA 5,10,146 7125 DATA 6,10,146 7130 DATA 5,11,146 7135 DATA 6,11,146 7140 DATA 5,12,146 7145 DATA 7,12,146 7150 DATA 6,12,145 7155 DATA 7,13,146 7160 DATA 6,13,146 7165 DATA 8,13,145 7170 DATA 7,14,145 7175 DATA 9,13,145 7180 DATA 8,14,145 7185 DATA 10,13,145 7190 DATA 9,14,145 7195 DATA 11,13,145 7200 DATA 10,14,145 7205 DATA 12,13,145 7210 DATA 11,14,145 7215 DATA 12,12,144 7220 DATA 12,14,145 7225 DATA 12,11,144 7230 DATA 13,13,144 7235 DATA 12,10,144 7240 DATA 13,12,144 7245 DATA 12,9,144 7250 DATA 13,11,144 7255 DATA 12,8,144 7260 DATA 13,10,144 7265 DATA 12,7,144 7270 DATA 13,9,144 7275 DATA 12,6,144 7280 DATA 13,8,144 7285 DATA 12,5,144 7290 DATA 13,7,144 7295 DATA 13,4,144 7300 DATA 13,6,144 7305 DATA 14,4,145 7310 DATA 13,5,144 7315 DATA 15,4,145 7320 DATA 14,5,145 7325 DATA 16,4,145 7330 DATA 15,5,145 7335 DATA 17,5,145 7340 DATA 16,5,145 7345 DATA 17,6,146 7350 DATA 16,6,146 7355 DATA 17,7,146 7360 DATA 16,7,146 7365 DATA 17,8,146 7370 DATA 16,8,146 7375 DATA 17,9,146 7380 DATA 15,8,147 7385 DATA 17,10,146 7390 DATA 14,8,147 7395 DATA 17,11,146 7400 DATA 14,9,146 7405 DATA 17,12,146 7410 DATA 15,9,145 7415 DATA 17,13,146 7420 DATA 16,9,145 7425 DATA 18,13,145 7430 DATA 16,10,146 7435 DATA 19,13,145 7450 DATA 16,11,146 7455 DATA 20,13,145 7460 DATA 16,12,146 7465 DATA 21,13,145 7470 DATA 16,13,146 7475 DATA 21,12,144 7480 DATA 17,14,145 7485 DATA 21,11,144 7490 DATA 18,14,145 7495 DATA 21,10,144 7500 DATA 19,14,145 7505 DATA 21,9,144 7510 DATA 20,14,145 7515 DATA 21,8,144 7520 DATA 21,14,145 7525 DATA 21,7,144 7530 DATA 22,13,144 7535 DATA 21,6,144 7540 DATA 22,12,144 7545 DATA 21,5,144 7550 DATA 22,11,144 7555 DATA 21,4,144 7560 DATA 22,10,144 7565 DATA 22,4,145 7570 DATA 22,9,144 7575 DATA 23,4,145 7580 DATA 22,8,144 7585 DATA 24,4,145 7590 DATA 22,7,144 7595 DATA 25,4,145 7600 DATA 22,6,144 7605 DATA 26,5,145 7610 DATA 22,5,144 7615 DATA 26,6,146 7620 DATA 23,5,145 7625 DATA 26,7,146 7630 DATA 24,5,145 7635 DATA 26,8,146 7640 DATA 25,5,145 7645 DATA 25,8,147 7650 DATA 25,6,146 7655 DATA 24,9,146 7660 DATA 25,7,146 7665 DATA 25,10,146 7670 DATA 24,8,147 7675 DATA 25,11,146 7680 DATA 23,8,147 7685 DATA 26,12,146 7690 DATA 23,9,146 7695 DATA 26,13,146 7700 DATA 23,10,146 7705 DATA 27,14,146 7710 DATA 24,10,145 7715 DATA 27,15,146 7720 DATA 24,11,146 7725 DATA 27,16,146 7730 DATA 24,12,146 7735 DATA 27,17,146 7740 DATA 25,12,145 7745 DATA 26,18,146 7750 DATA 25,13,146 7755 DATA 25,18,147 7760 DATA 25,14,146 7765 DATA 24,19,147 7770 DATA 26,14,145 7775 DATA 23,19,147 7780 DATA 26,15,146 7785 DATA 22,19,147 7790 DATA 26,16,146 7795 DATA 21,19,147 7800 DATA 26,17,146 7805 DATA 20,19,147 7810 DATA 25,17,147 7815 DATA 19,19,147 7820 DATA 24,17,147 7825 DATA 18,19,147 7830 DATA 24,18,146 7835 DATA 17,19,147 7840 DATA 23,18,147 7845 DATA 16,19,147 7850 DATA 22,18,147 7855 DATA 15,19,147 7860 DATA 21,18,147 7865 DATA 14,19,147 7870 DATA 20,18,147 7875 DATA 13,19,147 7880 DATA 19,18,147 7885 DATA 12,19,147 7890 DATA 18,18,147 7895 DATA 11,19,147 7900 DATA 17,18,147 7905 DATA 10,19,147 7910 DATA 16,18,147 7915 DATA 9,19,147 7920 DATA 15,18,147 7925 DATA 8,19,147 7930 DATA 14,18,147 7935 DATA 7,19,147 7940 DATA 13,18,147 7945 DATA 6,19,147 7950 DATA 12,18,147 7955 DATA 5,19,147 7960 DATA 11,18,147 7965 DATA 4,19,147 7970 DATA 10,18,147 7975 DATA 3,19,147 7980 DATA 9,18,147 7985 DATA 2,19,147 7990 DATA 8,18,147 7995 DATA 1,19,147 8000 DATA 7,18,147 8005 DATA 0,19,147 9998 : REM Car by Eddie The Wild 2010 (a partir de la version de 1985) 9999 REM (preparada para ser compilada con MCoderIII)