TOUCHSCREEN REM WAS8BIT GLOBAL DA DIM GLOBAL A(4),W(4),STAT(4) FOR I=1 TO 60 SPRITE I,,,1 NEXT I DA=2*PI/15 ITOUCH=0 DO IF TOUCH AND ITOUCH=0 THEN ITOUCH=1 TX=TOUCH.X\8 TY=TOUCH.Y\8 IF TX<4 AND TY<4 THEN ADD STAT(1),1,0 TO 1 IF TX>16 AND TY<4 THEN ADD STAT(2),1,0 TO 1 FOR I=1 TO 4 NUMBER 5+I*2,7,STAT(I),1 NEXT I WAIT 15 ELSE ITOUCH=0 CLS END IF CALL STARWAVE CALL BUBBLES WAIT VBL LOOP SUB BUBBLES ADD W(2),1,0 TO 3 IF W(2)=0 AND STAT(2)=1 THEN ADD A(2),1,16 TO 30 SPRITE A(2),RND(160),130, PLAY 1,12+RND(24),1 SOUND 1 END IF FOR I=16 TO 30 YSPR=SPRITE.Y(I) IF YSPR>0 THEN SPRITE I,SPRITE.X(I)+RND(1)-RND(1),YSPR-1-RND(2), END IF NEXT I END SUB SUB STARWAVE R=PEEK($FF43)/2.2 TRACE R,STAT(1),W(1) IF SPRITE.X(1)>0 AND R=0 THEN SPRITE OFF 1 TO 15 IF R>0 THEN ADD A(1),0.1 FOR I=1 TO 15 SPRITE I,80+R*SIN(A(1)+I*DA),63+R*COS(A(1)+I*DA), NEXT I W(1)=250 ELSE IF R=0 THEN IF STAT(1)=1 THEN ADD W(1),-1,0 TO 250 IF W(1)=0 THEN PLAY 0,90,1 SOUND 0 END IF END IF END SUB #1:MAIN PALETTES 000B070300383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 A040A00000000000E0A0E00000000000 #15:MAIN SOUND 380000FF10000F002C00110000004F00 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000