RANDOMIZE TIMER TOUCHSCREEN DIM X(3) DIM Y(3) DIM CLASS(3) DIM PL(3) DIM SPD(3) CX=-10 CY=0 SL=0 SX=0 SY=0 'CLASS 1=CODER 'CLASS 2=ARTIST 'CLASS 3=MUSIC MAKER CLASS(1)=1 CLASS(2)=2 CLASS(3)=3 PL(1)=1 PL(2)=2 PL(3)=3 FOR I=0 TO 3 X(I)=INT(RND*130) Y(I)=INT(RND*110) SPD(I)=RND*1 IF SPD(I)<=0.5 THEN SPD(I)=1 NEXT I DO CLS GOSUB DRAW GOSUB UPDATE WAIT VBL LOOP DRAW: BG COPY 0,0,32,32 TO 0,0 SPRITE PL(1),X(1),Y(1),CLASS(1) SPRITE PL(2),X(2),Y(2),CLASS(2) SPRITE PL(3),X(3),Y(3),CLASS(3) SPRITE 4,CX,CY,5 SPRITE 5,SX,SY,4 RETURN UPDATE: C=CELL.C((CX+4)/8,(CY+4)/8) IF TAP THEN CX=TOUCH.X-4 CY=TOUCH.Y-2 END IF FOR I=0 TO 3 IF SPRITE HIT(4,I) THEN SX=X(I) SY=Y(I) END IF NEXT I IF SPRITE HIT(4,1) THEN SL=1 IF SPRITE HIT(4,2) THEN SL=2 IF SPRITE HIT(4,3) THEN SL=3 IF C<>6 AND C<>8 AND C<>9 THEN IF X(SL)>CX THEN X(SL)=X(SL)-SPD(SL) IF X(SL)CY THEN Y(SL)=Y(SL)-SPD(SL) IF Y(SL)