RANDOMIZE TIMER GAMEPAD 1 REM WAS8BIT DIM GLOBAL XDIR(8),YDIR(8),FRAME(8) FOR I=1 TO 8 READ XDIR(I),YDIR(I),FRAME(I) NEXT I DATA 0,-1,2 DATA 1,-1,4 DATA 1,0,6 DATA 1,1,8 DATA 0,1,10 DATA -1,1,12 DATA -1,0,14 DATA -1,-1,32 PXCAR=4*9 PYCAR=7*8 PCARDIR=1 PCARSPEED=0 SPRITE 0,PXCAR,PYCAR,FRAME(PCARDIR) SPRITE 0 SIZE 1 PAL 0 CXCAR=12*9 CYCAR=7*8 CCARDIR=1 CCARSPEED=0 SPRITE 1,CXCAR,CYCAR,FRAME(CCARDIR) SPRITE 1 SIZE 1 PAL 1 DO IF BUTTON(0,0) THEN ADD PCARSPEED,0.01 IF BUTTON(0,1) THEN ADD PCARSPEED,-0.01 IF LEFT TAP(0) THEN ADD PCARDIR,-1,1 TO 8 IF RIGHT TAP(0) THEN ADD PCARDIR,1,1 TO 8 CALL MOVECAR(PXCAR,PYCAR,PCARDIR,PCARSPEED) SPRITE 0,PXCAR,PYCAR,FRAME(PCARDIR) R=RND(100) REM IF R=1 THEN ADD CCARSPEED,0.01 REM IF R=2 THEN ADD CCARSPEED,-0.01 CCARSPEED=1 IF R=3 THEN ADD CCARDIR,-1,1 TO 8 IF R=4 THEN ADD CCARDIR,1,1 TO 8 CALL MOVECAR(CXCAR,CYCAR,CCARDIR,CCARSPEED) SPRITE 1,CXCAR,CYCAR,FRAME(CCARDIR) WAIT VBL LOOP 'SUBS CAN BE REUSED BY ANY DIFFERENT SET OF VARIABLES 'NOTE HOW THE SUB CHANGES THE OUTSIDE VARIABLES USED IN THE PARENTHESIS SUB MOVECAR(X,Y,D,S) ADD X,XDIR(D)*S,-15 TO (8*20+16) ADD Y,YDIR(D)*S,-15 TO (8*16+16) END SUB #1:MAIN PALETTES 08352A00003C2A00003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 000103071F1C180F0000000010131700 0080C0E0F83818F00000000008C8E800 00000103030F1F3F0000010200081020 00FCFE9E0E86C6EE00800060F0783812 0000001C3F5F57570000001C00000808 00000070F0B89C9E0000007000406060 00040B172E5D3B370000000001020408 000080C0E0E0F8FC0000804020000804 0007081F1C1F0F0F0000001013100000 00E010F838F8F0F000000008C8080000 0000010307071F3F0000010204001020 0020D0E874BADCEC0000000080402010 0000000E0F1D39790000000E00020606 00000038FCFAEAEA0000003800001010 00000000000000000000000000000000 00000000000000000000000000000000 0F0F1F1C1F0807000000101310000000 F0F0F838F810E000000008C808000000 373B5D2E170B04000804020100000000 FCF8E0E0C08000000408002040800000 57575F3F1C000000080800001C000000 9E9CB8F0700000006060400070000000 3F1F0F03030100002010080002010000 EEC6860E9EFEFC00123878F060008000 0F181C1F070301000017131000000000 F01838F8E0C0800000E8C80800000000 77636170797F3F00481C1E0F06000100 FCF8F0C0C08000000408100040800000 79391D0F0E000000060602000E000000 EAEAFAFC380000001010000038000000 003F7F7970616377000100060F1E1C48 000080C0C0F0F8FC0000804000100804 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3F1F0707030100002010000402010000 ECDCBA74E8D020001020408000000000