RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT CLS FOR P=0 TO 7 PAL P CELL RND(19),RND(15),9 NEXT P DO FOR IP=0 TO 7 C=0 P=-1 ICHECK=100 WHILE (C=0 OR P<>IP) AND ICHECK>0 X=RND(19) Y=RND(15) REM SPRITE 0,X*8,Y*8, C=CELL.C(X,Y) P=CELL.A(X,Y) DEC ICHECK WEND PAL IP WHILE ICHECK>0 CELL X,Y,RND(7)+1 DD=RND(1)*2-1 IF RND(1)=0 THEN DX=X DY=Y+DD ELSE DX=X+DD DY=Y END IF C=CELL.C(DX,DY) IF C=0 OR RND(10)=0 THEN ICHECK=-1 CELL DX,DY,9 PLAY 0,RND(20)+40,1 SOUND IP+1 END IF DEC ICHECK IF TOUCH THEN CELL TOUCH.X\8,TOUCH.Y\8,0 PLAY 0,90,1 SOUND 0 END IF WAIT VBL WEND NEXT IP LOOP #1:MAIN PALETTES 003B261100302010003C281400382410 002E1A04000F0A05000B060100231201 #2:MAIN CHARACTERS 00000000000000000000000000000000 3048B4B44A3408003078CCCC763C0800 0008344AB4B4483000083C76CCCC7830 00102C522D2D120C00103C6E33331E0C 0C122D2D522C10000C1E33336E3C1000 00142A55AA54280000143E6BD67C2800 1028542A542A140810386C366C361C08 002854AA552A140000287CD66B3E1400 08142A542A542810081C366C366C3810 18245AA5A55A2418183C66DBDB663C18 #15:MAIN SOUND 38000388000000001800846C00FF0000 2800846C00FF00000800846C00FF0000 080020BB00000000180020BB00000000 280020BB0000D0000800009913AB9000 2800009913AB90000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000