RANDOMIZE TIMER MS=0 FONT 64 PRINT "0.PC CONTROL LAYOUT" PRINT "1.MOBILE CONTROL LAYOUT" INPUT "";MS IF MS>1 THEN MS=0 KEYBOARD OFF DIM BX(3),BY(3),D(3) DIM EX(8),EY(8),EHP(8),ES(8),ESP(8),HBP(8),ET(8),EFL(8) RESE: X=64 Y=80 HEALTH=100 INVINCE=0 TICK=0 RELOADTIME=25 PS=1 WALK=0 WEAP$="PISTOL" CW=1 DAMAGE=1 RAN=0 BO=0 US=0 ROUND=0 KILL=0 SCORE=0 SPRITE.A 13,(2) DIRECT=0 CHO=0 ROUND=ROUND+1 FOR I=1 TO 8 HBP(I)=RND(1000)-ROUND*150 IF HBP(I)<100 THEN HBP(I)=100 ET(I)=RND(3)+1 IF ET(I)=1 THEN EHP(I)=1+ROUND IF ET(I)=2 THEN EHP(I)=2+ROUND IF ET(I)=3 THEN EHP(I)=0+ROUND IF ET(I)=4 THEN EHP(I)=1+ROUND ES(I)=RND(1)+4+ET(I)*2 ESP(I)=0.01+(ROUND/20) IF ESP(I)>0.5 THEN ESP(I)=0.5 DIRECT=RND(3) IF DIRECT=0 THEN EX(I)=RND(156) EY(I)=-8 END IF IF DIRECT=1 THEN EX(I)=RND(156) EY(I)=140 END IF IF DIRECT=2 THEN EX(I)=-8 EY(I)=RND(128) END IF IF DIRECT=3 THEN EX(I)=170 EY(I)=RND(128) END IF NEXT I GAMEPAD 2 DO CLS TICK=TICK+1 INVINCE=INVINCE-1 IF TICK=2 THEN TICK=0 PRINT WEAP$ PRINT HEALTH IF ROUND<10 THEN LOCATE 19,1 ELSE LOCATE 18,1 PRINT ROUND LOCATE 15,0 PRINT "00000" IF SCORE>99999 THEN SCORE=99999 IF SCORE<10 THEN LOCATE 19,0 ELSE IF SCORE<100 THEN LOCATE 18,0 ELSE IF SCORE<1000 THEN LOCATE 17,0 ELSE IF SCORE<10000 THEN LOCATE 16,0 ELSE IF SCORE<100000 THEN LOCATE 15,0 PRINT SCORE US=US-1 IF MS=0 THEN IF UP(1) OR DOWN(1) OR RIGHT(1) OR LEFT(1) THEN WALK=0 PS=PS+0.1 IF PS>4 THEN PS=2 END IF ELSE IF UP(0) OR DOWN(0) OR RIGHT(0) OR LEFT(0) THEN WALK=0 PS=PS+0.1 IF PS>4 THEN PS=2 END IF END IF IF HEALTH<1 THEN GOTO DEATH IF WALK=1 THEN PS=1 SPRITE 1,X,Y,PS IF INVINCE>0 AND TICK=1 THEN SPRITE OFF 1 SPRITE 13,88,64,13 IF SPRITE HIT(1,13) THEN TEXT 4,4,"250 TO USE" IF SPRITE HIT(1,13) AND SCORE>249 THEN IF BUTTON TAP(1) OR BUTTON TAP(0) THEN SCORE=SCORE-250 GOSUB NEWWEAP END IF END IF WALK=1 FOR I=1 TO 3 SPRITE I+1,BX(I),BY(I),4 IF D(I)=1 AND BY(I)>-10 THEN BY(I)=BY(I)-2 IF D(I)=2 AND BY(I)<130 THEN BY(I)=BY(I)+2 IF D(I)=3 AND BX(I)>-10 THEN BX(I)=BX(I)-2 IF D(I)=4 AND BX(I)<170 THEN BX(I)=BX(I)+2 NEXT I FOR I=1 TO 8 IF SPRITE HIT(1,I+4) AND INVINCE<0 THEN INVINCE=75 HEALTH=HEALTH-12-ROUND*3 END IF ES(I)=ES(I)+0.1 IF ES(I)>5+ET(I)*2 THEN ES(I)=ES(I)-2 SPRITE I+4,EX(I),EY(I),ES(I) EFL(I)=EFL(I)-1 IF EFL(I)<0 THEN SPRITE.A I+4,(0) IF HBP(I)=0 THEN IF EX(I)>X THEN EX(I)=EX(I)-ESP(I) ELSE EX(I)=EX(I)+ESP(I) IF EY(I)>Y THEN EY(I)=EY(I)-ESP(I) ELSE EY(I)=EY(I)+ESP(I) ELSE HBP(I)=HBP(I)-1 END IF IF EHP(I)<1 THEN GOSUB ENIDIE END IF NEXT I IF MS=0 THEN IF UP(1) THEN Y=Y-1 IF DOWN(1) THEN Y=Y+1 IF LEFT(1) THEN X=X-1 IF RIGHT(1) THEN X=X+1 ELSE IF UP(0) THEN Y=Y-1 IF DOWN(0) THEN Y=Y+1 IF LEFT(0) THEN X=X-1 IF RIGHT(0) THEN X=X+1 END IF IF US<0 THEN IF UP(MS) OR LEFT(MS) OR RIGHT(MS) OR DOWN(MS) THEN US=RELOADTIME BO=BO+1 IF BO>3 THEN BO=1 IF UP(MS) THEN D(BO)=1 IF DOWN(MS) THEN D(BO)=2 IF LEFT(MS) THEN D(BO)=3 IF RIGHT(MS) THEN D(BO)=4 BX(BO)=X BY(BO)=Y END IF END IF FOR I=1 TO 8 FOR G=1 TO 3 IF SPRITE HIT(I+4,G+1) THEN BX(G)=-16 IF D(G)=4 THEN BX(G)=170 SPRITE.A I+4,(1) EHP(I)=EHP(I)-DAMAGE EFL(I)=10 END IF NEXT G NEXT I WAIT VBL LOOP ENIDIE: SCORE=SCORE+10 KILL=KILL+1 IF KILL>9+ROUND*2 THEN ROUND=ROUND+1 KILL=0 END IF HBP(I)=RND(1000)-ROUND*150 IF HBP(I)<100 THEN HBP(I)=100 ET(I)=RND(3)+1 IF ET(I)=1 THEN EHP(I)=1+ROUND IF ET(I)=2 THEN EHP(I)=2+ROUND IF ET(I)=3 THEN EHP(I)=0+ROUND IF ET(I)=4 THEN EHP(I)=1+ROUND ES(I)=RND(1)+4+ET(I)*2 ESP(I)=0.01+(ROUND/20) IF ESP(I)>0.5 THEN ESP(I)=0.5 DIRECT=RND(3) IF DIRECT=0 THEN EX(I)=RND(156) EY(I)=-8 END IF IF DIRECT=1 THEN EX(I)=RND(156) EY(I)=140 END IF IF DIRECT=2 THEN EX(I)=-8 EY(I)=RND(128) END IF IF DIRECT=3 THEN EX(I)=170 EY(I)=RND(128) END IF RETURN NEWWEAP: RAN=RND(5)+1 IF RAN=CW THEN RAN=RND(5)+1 IF RAN=1 THEN CW=1 WEAP$="PISTOL" DAMAGE=1 RELOADTIME=25 ELSE IF RAN=2 THEN CW=2 WEAP$="SNIPER" DAMAGE=10 RELOADTIME=100 ELSE IF RAN=3 THEN CW=3 WEAP$="AK-47" DAMAGE=2 RELOADTIME=10 ELSE IF RAN=4 THEN CW=4 WEAP$="REVOLVER" DAMAGE=3 RELOADTIME=20 ELSE CW=5 WEAP$="SHOTGUN" DAMAGE=5 RELOADTIME=50 END IF RETURN DEATH: TEXT 6,4,"GAMEOVER" WAIT 50 DO IF BUTTON(0) OR BUTTON(1) THEN GOTO RESE LOOP #1:MAIN PALETTES 053F1C08003F3F3F003C3824003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 38383810381038280000000000000000 38383810381038200000000000000000 38383810381038080000000000000000 00000030300000000000000000000000 00000000000000003838381038103820 00000000000000003838381038103808 38383810381038203838381038103820 38383810381038083838381038103808 000000000000000000000000003E6B00 000000000000000000000000003E6B49 00000000003E6B0000000000003E6B00 00000000003E6B4900000000003E6B49 0000FF81FF8181FF0000FFFFFFFFFFFF 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 08080808080008000000000000000000 00000006094830000000000000000000 082C386C386820000000000000000000 041F283E0A7C10000000000000000000 04240808080A10000000000000000000 182420304A4C3A000000000000000000 08080000000000000000000000000000 08103020202010000000000000000000 080404040C0810000000000000000000 000224180C1220000000000000000000 000008083E0808000000000000000000 00000000181808000000000000000000 0000000E700000000000000000000000 00000000001818000000000000000000 04040808080810000000000000000000 18244C54644830000000000000000000 10305010101C60000000000000000000 18242408102438000000000000000000 08142408042810000000000000000000 0818284E780808000000000000000000 0C302038040C30000000000000000000 0C10202E322418000000000000000000 0E320204040808000000000000000000 1C222C12222418000000000000000000 0E12221C040810000000000000000000 00181800001818000000000000000000 00181800001818080000000000000000 04182040201804000000000000000000 001E60000E7000000000000000000000 20180402041820000000000000000000 040A1204080008000000000000000000 1C224E524C211E000000000000000000 0814242C342420000000000000000000 08342438242830000000000000000000 08142020242810000000000000000000 18242424242438000000000000000000 0C30202C302438000000000000000000 0C30202C302020000000000000000000 182440424C4438000000000000000000 0424242C342420000000000000000000 06380808080E38000000000000000000 18E02020202418000000000000000000 04242830302824000000000000000000 20202020202C30000000000000000000 08345454545040000000000000000000 002C3222222220000000000000000000 18244444444830000000000000000000 0C342438202020000000000000000000 18244444444834000000000000000000 08142428302824000000000000000000 0C102018040830000000000000000000 021C2808080808000000000000000000 04242424242418000000000000000000 04444444442810000000000000000000 020A2A2A2A2C30000000000000000000 08282810282820000000000000000000 04442828101010000000000000000000 0E320408102638000000000000000000 04181010101418000000000000000000 20201010101008000000000000000000 18280808081820000000000000000000 081C3E41000000000000000000000000 00000000000E70000000000000000000