' THE CONE ' BY NEBYOOLAE ' NEBYOOLAE@GMAIL.COM GLOBAL S_CONE,S_AVTR GLOBAL C_AVTR_D,C_AVTR_U,C_AVTR_L GLOBAL SX0,SY0,SX1,SY1 GLOBAL SMOD GLOBAL TICK GLOBAL DIR S_CONE=0 S_AVTR=1 C_AVTR_D=33 C_AVTR_U=35 C_AVTR_L=37 SX0=67 SY0=36 SX1=68 SY1=80 SMOD=0.0025 TICK=0 DIR=2 GAMEPAD 1 VOLUME 0,3,3 TITLE: BG 0 BG COPY 0,0,20,24 TO 0,0 'CONE SPRITE 0 PAL 1 SIZE 1 SPRITE 0,SX0,SY0,1 'AVATAR SPRITE 1 PAL 2 SIZE 1 SPRITE 1,SX1,SY1,C_AVTR_D DO 'PAL ((TICK MOD 64)/8) 'LOCATE 1,0 'PRINT INT((TICK MOD 16)/8) 'LOCATE 1,1 'PRINT TIMER LOCATE 5,8 PRINT "THE CONE" CALL CHECK_COLLISION CALL CHECK_GAMEPAD CALL MOVE_AVATAR INC TICK LOOP SUB CHECK_GAMEPAD IF BUTTON(0,0) THEN SMOD=0.005 ELSE SMOD=0.0025 END IF IF UP(0) AND SY1>-1 THEN SY1=SY1-SMOD DIR=0 SPRITE S_AVTR,,,C_AVTR_U SPRITE S_AVTR FLIP 0,0 END IF IF RIGHT(0) AND SX1<146 THEN SX1=SX1+SMOD DIR=1 SPRITE S_AVTR,,,C_AVTR_L SPRITE S_AVTR FLIP 1,0 END IF IF DOWN(0) AND SY1<112 THEN SY1=SY1+SMOD DIR=2 SPRITE S_AVTR,,,C_AVTR_D SPRITE S_AVTR FLIP 0,0 END IF IF LEFT(0) AND SX1>-3 THEN SX1=SX1-SMOD DIR=3 SPRITE S_AVTR,,,C_AVTR_L SPRITE S_AVTR FLIP 0,0 END IF IF BUTTON TAP(0,1) THEN PLAY 0,38,10 WAIT 7 PLAY 0,57,10 END IF IF BUTTON(0,1) THEN SPRITE 1 PAL 2 ELSE SPRITE 1 PAL 1 END IF END SUB SUB MOVE_AVATAR SPRITE S_AVTR,SX1,SY1, END SUB SUB CHECK_COLLISION 'CONE HIT IF SPRITE HIT(S_CONE) THEN SPR_ID=HIT SPRITE SPR_ID PAL 2 IF DIR=0 AND SY0-SMOD>0 THEN SY0=SY0-SMOD ELSE IF DIR=1 AND SX0+SMOD<146 THEN SX0=SX0+SMOD ELSE IF DIR=2 AND SY0+SMOD<112 THEN SY0=SY0+SMOD ELSE IF DIR=3 AND SX0-SMOD>0 THEN SX0=SX0-SMOD END IF SPRITE S_CONE,SX0,SY0, ELSE SPRITE 1 PAL 1 END IF END SUB #2:MAIN CHARACTERS 00000000000000000000000000000000 00000001000201000000000001010207 000000400020C00000808080C0C020F0 20202020202020203F3F3F3F3F3F3F3F 0000000000000000FFFFFFFFFFFFFFFF 0202020202020202FEFEFEFEFEFEFEFE 1818180000181818E7E7E7FFFFE7E7E7 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 040300180F00100F030C0F07101F0F00 10E0000CF80004F8E018F8F004FCF800 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000070707060000182700020000 00000000E0E0E060000018E400400000 00000000070707070000182700000000 00000000E0E0E0E0000018E400000000 00000000070507070000000708000000 000000000080C0E0001824E0E0602000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 03010202020103000001030303000300 C08040404080C0000080C0C0C000C000 03010202020103000001030303000300 C08040404080C0000080C0C0C000C000 03010000010103000001010101000300 C0808080008080000080808080008000 #3:MAIN BG 00001410000000000000000000000304 04040404040406040404040404040504 00000000000000000000000000000000 00000000000003040404040404040604 04040404040405040000000000000000 00000000000000000000000000000304 04040404040406040404040404040504 00000000000000000000000000000000 00000000000003040404040404040604 04040404040405040000000000000000 00000000000000000000000000000304 04040404040406040404040404040504 00000000000000000000000000000000 00000000000003040404040404040604 04040404040405040000000000000000 00000000000000000000000000000304 04040404040406040404040404040504 00000000000000000000000000000000 00000000000003040404040404040604 04040404040405040000000000000000 00000000000000000000000000000304 04040404040406040404040404040504 00000000000000000000000000000000 00000000000003040404040404040604 04040404040405040000000000000000 00000000000000000000000000000304 04040404040406040404040404040504 00000000000000000000000000000000 00000000000003040404040404040604 04040404040405040000000000000000 00000000000000000000000000000304 04040404040406040404040404040504 00000000000000000000000000000000 00000000000003040404040404040604 04040404040405040000000000000000 00000000000000000000000000000304 04040404040406040404040404040504 00000000000000000000000000000000 00000000000003040404040404040604 04040404040405040000000000000000 00000000