RANDOMIZE TIMER GAMEPAD 1 GLOBAL CHKL,CHKR,CHKU,CHKD DIM EMIS(9,5) FOR I=0 TO 9 EMIS(I,5)=I+10 SPRITE EMIS(I,5) PAL 3 NEXT I DIM PMIS(9,5) FOR I=0 TO 9 PMIS(I,5)=I+20 SPRITE PMIS(I,5) PAL 3 NEXT I DIM SETCELL(319,1) P=20 EX=0 EY=63 EDIR=2 MC=0 EHP=P EP=0 PX=152 PY=63 RC=0 PHP=P PP=0 PAMMO=50 AMMOX=0 AMMOY=0 AMMOON=0 SPEED=2 SKILL=1 LOSETXT$="" SPRITE 0 PAL 1 SPRITE 1 PAL 2 SPRITE 63 PAL 4 GOSUB STARTSCREEN GOSUB INITLVL DO CALL CHKCOLL(PX,PY) IF LEFT(0) AND PX>0 AND NOT CHKL THEN DEC PX END IF IF RIGHT(0) AND PX<153 AND NOT CHKR THEN INC PX END IF IF DOWN(0) AND PY<121 AND NOT CHKD THEN INC PY END IF IF UP(0) AND PY>-2 AND NOT CHKU THEN DEC PY END IF SPRITE 0,PX,PY,1 CALL CHKCOLL(EX,EY) IF SKILL=1 THEN IF RND(20)=0 THEN EDIR=RND(3) IF EDIR=0 AND EX<151 AND NOT CHKR THEN INC EX END IF IF EDIR=1 AND EX>0 AND NOT CHKL THEN DEC EX END IF IF EDIR=2 AND EY<120 AND NOT CHKD THEN INC EY END IF IF EDIR=3 AND EY>0 AND NOT CHKU THEN DEC EY END IF END IF IF SKILL=2 THEN IF EXPX AND NOT CHKL THEN ADD EX,-0.5 END IF IF EYPY AND NOT CHKU THEN ADD EY,-0.5 END IF END IF SPRITE 1,EX,EY,1 IF EMIS(MC,0)=0 AND RND(20)=0 THEN PLAY 0,87 SOUND 6 EMIS(MC,0)=1 EMIS(MC,1)=EX EMIS(MC,2)=EY XDIV=PX-EX YDIV=PY-EY EMIS(MC,3)=XDIV/SQR(XDIV*XDIV+YDIV*YDIV) EMIS(MC,4)=YDIV/SQR(XDIV*XDIV+YDIV*YDIV) END IF FOR I=0 TO 9 IF EMIS(I,0)=1 THEN EMIS(I,1)=EMIS(I,1)+EMIS(I,3)*SPEED EMIS(I,2)=EMIS(I,2)+EMIS(I,4)*SPEED SPRITE EMIS(I,5),EMIS(I,1),EMIS(I,2),2 CALL CHKCOLLMIS (EMIS(I,1),EMIS(I,2)) IF EMIS(I,2)>125 OR EMIS(I,2)<-8 OR CHKU OR CHKD THEN EMIS(I,0)=0 SPRITE OFF EMIS(I,5) END IF IF EMIS(I,1)>158 OR EMIS(I,1)<-8 OR CHKL OR CHKR THEN EMIS(I,0)=0 SPRITE OFF EMIS(I,5) END IF END IF NEXT I MC=MC+1 IF MC>9 THEN MC=0 IF PMIS(RC,0)=0 AND PAMMO>0 AND (BUTTON TAP (0,0) OR BUTTON TAP (0,1)) THEN DEC PAMMO PLAY 1,86 SOUND 6 PMIS(RC,0)=1 PMIS(RC,1)=PX PMIS(RC,2)=PY XDIV=EX-PX YDIV=EY-PY PMIS(RC,3)=XDIV/SQR(XDIV*XDIV+YDIV*YDIV) PMIS(RC,4)=YDIV/SQR(XDIV*XDIV+YDIV*YDIV) END IF FOR I=0 TO 9 IF PMIS(I,0)=1 THEN PMIS(I,1)=PMIS(I,1)+PMIS(I,3)*SPEED PMIS(I,2)=PMIS(I,2)+PMIS(I,4)*SPEED SPRITE PMIS(I,5),PMIS(I,1),PMIS(I,2),18 CALL CHKCOLLMIS (PMIS(I,1),PMIS(I,2)) IF PMIS(I,2)>125 OR PMIS(I,2)<-8 OR CHKU OR CHKD THEN PMIS(I,0)=0 SPRITE OFF PMIS(I,5) END IF IF PMIS(I,1)>158 OR PMIS(I,1)<-8 OR CHKL OR CHKR THEN PMIS(I,0)=0 SPRITE OFF PMIS(I,5) END IF END IF NEXT I RC=RC+1 IF RC>9 THEN RC=0 IF RND(1000)=0 AND AMMOON=0 AND PAMMO<10 THEN REPEAT AMMOX=RND(19) AMMOY=RND(15) FOR I=0 TO SC IF AMMOX<>SETCELL(I,0) AND AMMOY<>SETCELL(I,1) THEN AMMOON=1 END IF NEXT I UNTIL AMMOON=1 SPRITE 63,AMMOX*8,AMMOY*8,9 END IF IF AMMOON=1 AND SPRITE HIT (0,63) THEN ADD PAMMO,50 SPRITE OFF 63 AMMOON=0 END IF IF SPRITE HIT(0,10 TO 19) THEN PLAY 3,13 SOUND 5 DEC PHP SPRITE OFF HIT EMIS(HIT-10,0)=0 END IF IF SPRITE HIT(1,20 TO 29) THEN PLAY 2,12 SOUND 5 DEC EHP SPRITE OFF HIT PMIS(HIT-20,0)=0 END IF IF PHP=0 THEN INC EP LOSETXT$="YOU LOSE" GOSUB NEWROUND END IF IF EHP=0 THEN INC PP LOSETXT$="THEY LOSE" GOSUB NEWROUND END IF BG 0 NUMBER 0,0,PHP,3 NUMBER 0,1,PAMMO,3 NUMBER 17,0,EHP,3 NUMBER 0,15,PP,1 NUMBER 19,15,EP,1 BG 1 WAIT VBL LOOP INITLVL: SC=0 BG 1 BG COPY 0,0,20,16 TO 0,0 FOR Y=0 TO 15 FOR X=0 TO 19 IF CELL.C (X,Y)>3 THEN SETCELL(SC,0)=X SETCELL(SC,1)=Y SC=SC+1 END IF NEXT X NEXT Y SC=SC-1 BG 0 RETURN NEWROUND: EHP=P EX=0 EY=63 PHP=P PX=152 PY=63 PAMMO=50 SPRITE OFF FOR I=0 TO 9 PMIS(I,0)=0 EMIS(I,0)=0 NEXT I BG 0 FOR I=0 TO 10 TEXT 5,5,LOSETXT$ WAIT 5 CLS 0 WAIT 5 NEXT I WAIT 60 TEXT 3,5,"NEXT ROUND IN" FOR I=3 TO 1 STEP-1 NUMBER 9,7,I,1 WAIT 60 NEXT I TEXT 9,7,"GO" WAIT 60 CLS 0 BG 1 RETURN STARTSCREEN: TEXT 6,4,"D U E L" TEXT 4,6,"EARLY BETA" PAL 3 TEXT 3,8,"A- NO AI ENEMY" TEXT 3,9,"B- KIND OF AI:)" SKILL=0 REPEAT IF BUTTON TAP (0,0) THEN SKILL=1 IF BUTTON TAP (0,1) THEN SKILL=2 UNTIL SKILL>0 CLS RETURN SUB CHKCOLL (X,Y) BG 1 CHKLU=CELL.C ((X-1)\8,(Y)\8)>3 CHKLD=CELL.C ((X-1)\8,(Y+7)\8)>3 CHKL=CHKLU OR CHKLD CHKRU=CELL.C ((X+8)\8,(Y)\8)>3 CHKRD=CELL.C ((X+8)\8,(Y+7)\8)>3 CHKR=CHKRU OR CHKRD CHKUL=CELL.C ((X)\8,(Y-1)\8)>3 CHKUR=CELL.C ((X+7)\8,(Y-1)\8)>3 CHKU=CHKUL OR CHKUR CHKDL=CELL.C ((X)\8,(Y+8)\8)>3 CHKDR=CELL.C ((X+7)\8,(Y+8)\8)>3 CHKD=CHKDL OR CHKDR BG 0 END SUB SUB CHKCOLLMIS (X,Y) BG 1 CHKLU=CELL.C ((X+2)\8,(Y+3)\8)>3 CHKLD=CELL.C ((X+2)\8,(Y+4)\8)>3 CHKL=CHKLU OR CHKLD CHKRU=CELL.C ((X+5)\8,(Y+3)\8)>3 CHKRD=CELL.C ((X+5)\8,(Y+4)\8)>3 CHKR=CHKRU OR CHKRD CHKUL=CELL.C ((X+3)\8,(Y+2)\8)>3 CHKUR=CELL.C ((X+4)\8,(Y+2)\8)>3 CHKU=CHKUL OR CHKUR CHKDL=CELL.C ((X+3)\8,(Y+5)\8)>3 CHKDR=CELL.C ((X+4)\8,(Y+5)\8)>3 CHKD=CHKDL OR CHKDR BG 0 END SUB #1:MAIN PALETTES 003F2F0000383003003C330C00300300 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 0000FE828282FE000000FEFEFEFEFE00 00000018180000000000000000000000 FF818181818181FF00FEFEFEFEFEFEFE FFFFE7E7E7E7FFFFC0E0F8F8F8F8F8FC FFFFFFC3C3FFFFFF0080C0FCFCFCFEFF F999B9F9F9F9F9F90EFEFEFEFEFEFEFE FFFDF9F1E1C181FFFEFEFEFEFEFEFEFE F9F9F9F9F9F9F9F9FEFEFEFEFEFEFEFE FF899DA7C5A991FF00FEF6E2C6EEFEFE 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000001818000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 007E42424646467E0000000000000000 00080808181818180000000000000000 007E42027E60607E0000000000000000 007C44041E42427E0000000000000000 007C44447E0C0C0C0000000000000000 007E407E0646467E0000000000000000 007E46407E46467E0000000000000000 007E0202060606060000000000000000 003C247C4646467E0000000000000000 007E427E060606060000000000000000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 001E123F313131310000000000000000 003E223F3131313F0000000000000000 003F21303030313F0000000000000000 003F21313131313F0000000000000000 003F203F3030303F0000000000000000 003F203F303030300000000000000000 003F21303331313F0000000000000000 0021213F313131310000000000000000 0008080C0C0C0C0C0000000000000000 000202030303233F0000000000000000 0022223F313131310000000000000000 002020303030303F0000000000000000 003F2535353535350000000000000000 003F2131313131310000000000000000 003F23232121213F0000000000000000 003F213F303030300000000000000000 003F212121212F3F0000000000000000 003E223F313131310000000000000000 003F21203F03233F0000000000000000 007F08080C0C0C0C0000000000000000 002121313131313F0000000000000000 003131313113121E0000000000000000 002525353535353F0000000000000000 0021211E313131310000000000000000 0021213F0C0C0C0C0000000000000000 003F21013F30313F0000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 #3:MAIN BG 00001410030403040304030403040304 03040304030403040304030403040304 03040304030403040304030403040304 05040504050403040304030403040304 03040304030403040304050405040504 03040304030403040304030403040304 03040304030403040304030403040304 03040304030403040304030403040304 03040304030404040304030405040504 05040504030403040404030403040304 03040304030403040304030403040404 03040304030403040304030403040304 04040304030403040304030403040304 03040304030404040304030403040604 03040304030403040404030403040304 03040304030403040304030403040404 03040304030408040304030403040304 04040304030403040304030403040304 03040304030404040304030403040804 03040304030403040404030403040304 03040304030403040304030403040404 03040304030407040304030403040304 04040304030403040304030403040304 03040304030404040304030403040304 03040304030403040404030403040304 03040304030403040304030403040404 03040304050405040504050403040304 04040304030403040304030403040304 03040304030403040304030403040304 03040304030403040304030403040304 03040304030403040504050405040304 03040304030403040304030403040304 03040504050405040304030403040304 03040304030403040304030403040304 03040304030403040304030403040304 03040304030403040304030403040304 03040304030403040304030403040304 03040304030403040304030403040304 03040304030403040304030403040304 03040304030403040304030403040304 03040304 #15:MAIN SOUND 2800303A000000001800846C003A0000 08006060000000002800303019FE0000 38002020000000007001109009000000 5001002109FF0F000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000