DIM BX(500) DIM BY(500) DIM DIR(50) DIM DIR2(50) DIM DIR3(50) DIM DIR4(50) X=8 Y=8 SPD=0.2 GAMEPAD 1 FOR I=0 TO 30 BX(I)=INT(RND*19) BY(I)=INT(RND*15) DIR(I)=RND*0.2 DIR2(I)=RND*0.2 DIR3(I)=RND*0.2 DIR4(I)=RND*0.2 NEXT I DO CLS BG COPY 0,0,32,32 TO 0,0 IF UP(0) AND Y>1 THEN Y=Y-SPD END IF IF LEFT(0) AND X>1 THEN X=X-SPD END IF IF RIGHT(0) AND X<19 THEN X=X+SPD END IF IF DOWN(0) AND Y<15 THEN Y=Y+SPD END IF CELL X\1,Y\1,1 FOR I=0 TO 30 BX(I)=BX(I)+DIR(I) BX(I)=BX(I)-DIR2(I) BY(I)=BY(I)+DIR3(I) BY(I)=BY(I)-DIR4(I) CELL BX(I)\1,BY(I)\1,2 IF X\1=BX(I)\1 AND Y\1=BY(I)\1 THEN END NEXT I WAIT VBL LOOP #1:MAIN PALETTES 000B301100383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 007E7E7E7E7E7E000000000000000000 FF818181818181FFFF8199BDBD9981FF FF818181818181FFFF818181818181FF FF818181818181FFFF818181818181FF FF818181818181FFFF818181818181FF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FF818181818181FFFF818181818181FF FF818181818181FFFF818181818181FF FF818181818181FFFF818181818181FF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FF818181818181FFFF818181818181FF FF818181818181FFFF818181818181FF FF818181818181FFFF818181818181FF #3:MAIN BG 00001410030003000300030003000300 03000300030003000300030003000300 03000300030003000300030013001300 13001300130013001300130013001300 13001300130013001300130013001300 13000300030004000500050005002300 23002300230023002300230023002300 23002300230003000400050003000300 04000500050005000500050004000500 03000400050004000500050004000500 05001500130003000400050015001500 15001500140015001300140015000400 05000400050015001500250003000400 05001500250025000300040005000400 05002400250014001500140015000300 04000500030004000500250003000400 05001400150014001500040005002400 25002400250003000400050003000400 05000300040005001500240025002400 25001400150005000300030003000300 04000500030004000300040005001500 25001500150003000400030004000300 13001300030003000400050003000400 03000300030004000300040003001300 14001300140013002300230013000300 03000300030004001300130013001400 13001400130023002400230024002300 24002500230013001300130003000400 23002300230024002300240023002400 25002400250023002400250014002300 23002300030004000500030023002300 24002300240025002300240023002300 24002500240025001500030003000400 03000300040005001300230023002400 25001300130013001300130023002400 25000300030004001300130003000300 03000400050003000400030003000400 03000300030003000300030013000300 23002300130013001300140015001300 14001300130014001300130013001300 13001300