DIM X(63),Y(63),DX(63),DY(63) RANDOMIZE TIMER REM WAS8BIT TOUCHSCREEN RESET: FOR I=0 TO 63 SPRITE I,,,0 NEXT I ISTICKY=4+(INT(RND*16)*INT(RND*16)*INT(RND*16)) PRINT "STICKINESS="+STR$(ISTICKY) WAIT 30 CLS ICHAR=INT(RND*15)+1 ICOLOR=INT(RND*8) FOR I=0 TO 63 X(I)=RND*160 Y(I)=RND*128 DX(I)=RND-RND DY(I)=RND-RND SPRITE I,X(I),Y(I),ICHAR SPRITE.A I,(ICOLOR) NEXT I DO CLS FOR I=0 TO 63 X(I)=X(I)+DX(I) Y(I)=Y(I)+DY(I) CALL XYFIX(X(I),Y(I)) IF SPRITE HIT(I) THEN ICLUMP=INT(RND*4) IF ICLUMP=0 THEN DX(I)=DX(HIT) IF ICLUMP=1 THEN DY(I)=DY(HIT) IF ICLUMP>1 THEN INOT=INT(RND*ISTICKY) IF INOT=63 THEN DX(HIT)=RND-RND IF INOT=62 THEN DY(HIT)=RND-RND END IF END IF SPRITE I,X(I),Y(I), NEXT I IF TOUCH THEN GOTO RESET WAIT VBL LOOP SUB XYFIX(X,Y) IF X<0 THEN X=X+160 IF Y<0 THEN Y=Y+128 IF X>160 THEN X=X-160 IF Y>128 THEN Y=Y-128 END SUB #1:MAIN PALETTES 00302010003C2814000C0804000F0A05 000706030023131200332211003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 80000000000000000000000000000000 004000000000000040A0400000000000 2050A850200000002070D87020000000 82002810280082008244000000448200 10001010280082001010000000448200 00001824241800000000001818000000 3C4299BDBD99423C003C7E7E7E7E3C00 00244218184224000024660000662400 00002400002418000000000000000000 00000044001028100000000000000000 0040A040000000000000081408000000 40A04000040A040000000020542A0400 00002000080000000000001008000000 00002000280000000000202018000000 00000020440800000008040004080000