10 REM*Athlete Hunter v1.2* 20 REM*By Andrew Weston* 30 REM*Originally Written for J.J.F. P.D. 40 REM*Upgraded September 1993* 50 REM*Use ZX:/* 60 *FX9,7 70 *FX10,7 80 LV%=1:REM*LEVEL NUMBER* 90 X%=1:Y%=20 100 BD%=0 110 BX%=10:BY%=19 120 BG%=0 130 AL=200 140 C%=0 150 NU%=1 160 EN%=100 170 A%=RND(19) 180 FOA%=0 190 GB%=2:REM NO OF TIMES 'BADDIE MUST BE HIT' 200 GH%=0:REM 'NO TIMES COPTER MUST BE HIT' 210 ZX%=5 220 CX%=1280 230 MZ%=10 240 VDU 23,224,256,68,40,16,40,68,256,0 250 VDU 23,226,56,56,56,16,48,56,87,80 260 VDU 23,227,56,56,56,16,16,48,48,60 270 VDU 23,228,56,56,56,16,16,24,20,18 280 VDU 23,229,144,168,40,68,68,130,131,64 290 VDU 23,230,16,16,16,24,120,72,8,12 300 VDU 23,231,17,24,20,18,36,40,36,48 310 VDU 23,232,56,56,56,16,16,120,84,146 320 VDU 23,233,146,16,16,40,68,130,130,130 330 VDU 23,234,255,139,139,255,139,255,139,255 340 VDU 23,235,16,16,16,16,255,16,16,16 350 VDU 23,236,255,24,24,60,129,255,24,231 360 A$=CHR$224 370 MODE2:VDU 23;8202;0;0;0; 380 *FX11,1 390 COLOUR 2 400 PROCGROUND 410 REPEAT 420 C%=NU%MOD3 430 FO%=0 440 COLOUR 1 450 PRINTTAB(0,28);"ENERGY ";EN% 460 PRINTTAB(0,30);"GOT ";BG% 470 PRINTTAB(7,30);"AMMO ";AL 480 PRINTTAB(0,26);"LEVEL ";LV% 490 COLOUR 2 500 IF INKEY(-98) THENX%=X%-1 510 IF INKEY(-67) THENX%=X%+1 520 IF INKEY(-73) THENY%=Y%-1 530 IF INKEY(-105) THENY%=Y%+1 540 IF INKEY(-99) THEN PROCFIRE 550 X%=X%*64 560 IFX%>(CX%-64) AND X%<(CX%+128) AND Y%=6AND FO%=1 THEN GH%=GH%+1 570 X%=X%/64 580 IF GH%=5 THEN FOR SD%=15 TO 0 STEP-1:SOUND 0,-SD%,6,1:NEXT SD%:CX%=0:GH%=0:BG%=BG%+1 590 IF X%=BX% AND Y%=BY% AND FO%=1 THEN BD%=BD%+1 600 IF BD%=GB% THEN FOR SD%=15 TO 0 STEP-1:SOUND 0,-SD%,6,1:NEXT SD%:BX%=0:BG%=BG%+1:BD%=0 610 IF X%=ZX% AND Y%=20 AND FO%=1 THEN SOUND 1,-10,240,10:EN%=EN%+50:COLOUR5:PRINTTAB(5,10);"POWER UP!":FOR W4%=1 TO 800:NEXT W4%:PRINTTAB(5,10);" " 620 IF X%=MZ% AND Y%=20 AND FO%=1 THEN SOUND 1,-10,240,10:AL=AL+50:COLOUR 5:PRINTTAB(3,10);"AMMUNITION!":FORW6%=1 TO800:NEXTW6%:PRINTTAB(3,10);" " 630 IF X%>=19 THEN X%=19 640 IF X%<=0 THEN X%=0 650 IF Y%>=20 THEN Y%=20 660 IF Y%<=0 THEN Y%=0 670 IF BG%=10 THEN GB%=GB%+1:PROCLV:GOTO90 680 *FX19 690 IF BX%>=19 THEN BX%=19 700 IF BX%<=0 THEN BX%=0 710 COLOUR1 720 PRINTTAB(X%,Y%);A$ 721 COLOUR2 730 PRINTTAB(BX%,BY%);CHR$(226+C%);TAB(BX%,BY%+1);CHR$(229+C%) 740 FOR W1%=1 TO 25:NEXT W1% 750 PRINTTAB(X%,Y%);" " 760 PRINTTAB(BX%,BY%);" ";TAB(BX%,BY%+1);" " 770 PROCBMOVE 780 NU%=NU%+1 790 PROCAPP 800 *FX19 810 VDU5 820 GCOL3,4 830 MOVE CX%,830:PRINTCHR$236:FOR W5%=1 TO 100:NEXT W5%:MOVE CX%,830:PRINTCHR$236 840 IF CX%<=0 THEN CX%=1280 850 CX%=CX%-32 860 VDU4 870 UNTIL FALSE 880 END 890 DEF PROCFIRE 900 IF AL=0 THEN PROCEND 910 AL=AL-1 920 SOUND 0,-15,6,1 930 FO%=1 940 SOUND 0,-12,5,1 950 ENDPROC 960 DEF PROCBMOVE 970 QM%=RND(5) 980 IF QM%=1 THEN BX%=BX%-1 990 IF QM%=2 THEN BX%=BX%+1 1000 IF QM%=3 THEN PROCfireonyou 1010 IFQM%=4 THEN PROCfireonyou 1020 IFQM%=5 THEN BX%=BX% 1030 ENDPROC 1040 DEF PROCEND 1050 EM%=700 1060 GCOL0,4 1070 IF AL=0 THEN VDU5:MOVE 200,700:FOR R%=200 TO 220 STEP 4:MOVE 200,EM%:PRINT"NO AMMO!":EM%=EM%-2:NEXT R% 1080 IF EN%=0 THEN VDU 5:MOVE 200,700:FOR R%=200 TO 220 STEP 4:MOVE 200,EM%:PRINT"YOU'RE DEAD!":EM%=EM%-2:NEXT R% 1090 VDU4 1100 COLOUR 4:PRINTTAB(0,25);"ANY KEY TO START!":G$=GET$:RUN 1110 ENDPROC 1120 DEF PROCfireonyou 1130 COLOUR2 1140 FOR QW%=1 TO 2 1150 PRINTTAB(BX%,BY%);CHR$232;TAB(BX%,BY%+1);CHR$233 1160 SOUND 0,-10,5,1 1170 PRINTTAB(BX%,BY%);" ";TAB(BX%,BY%+1);" " 1180 IF EN%=0 THEN PROCEND 1190 EN%=EN%-1 1200 NEXT QW% 1210 ENDPROC 1220 DEF PROCAPP 1230 COLOUR4 1240 AP%=RND(40) 1250 IF AP%=18 THEN GOTO 1260 ELSE GOTO 1290 1260 ZX%=ZX%+1 1270 PRINTTAB(ZX%,20);CHR$235 1280 IF ZX%>=19 THEN ZX%=0:GOTO1330 1290 IF AP%=36 THEN GOTO 1300 ELSE GOTO 1330 1300 MZ%=MZ%+1 1310 PRINTTAB(MZ%,20);CHR$234 1320 IF MZ%>=19 THEN MZ%=0 1330 ENDPROC 1340 DEF PROCLV 1350 *FX15,0 1360 LV%=LV%+1 1370 COLOUR 10:PRINTTAB(0,5);"WELL DONE!":PRINT"LEVEL COMPLETE":PRINT"ANY KEY FOR":PRINT"NEXT LEVEL":G$=GET$ 1380 AL=200 1390 ENDPROC 1400 DEF PROCGROUND 1410 FOR G%=0 TO 19 STEP 2 1420 COLOUR 9 1430 PRINTTAB(G%,21);"~" 1440 NEXT G% 1450 FOR G2%=1 TO 18 STEP 2 1460 COLOUR 14 1470 PRINTTAB(G2%,21);"~" 1480 NEXT G2% 1490 ENDPROC