GAMEPAD 2 DIM XDIR(3),YDIR(3) FOR I=0 TO 3 READ XDIR(I),YDIR(I) NEXT I DATA 0,-1,1,0,0,1,-1,0 RANDOMIZE TIMER DIM X(7),Y(7),D(7),A(7),TX(7,100),TY(7,100),L(7),Z(7) REM HEAD(X,Y) DIR ANIMATION TAIL(X,Y) LENGTH FOR I=0 TO 7 X(I)=INT(RND*20) Y(I)=INT(RND*20) D(I)=INT(RND*4) L(I)=0 Z(I)=0 A(I)=INT(RND*16) NEXT I IPILL=0 IBOMB=0 PX=0 PY=0 FOR I=1 TO 15 CALL PUTIT(PX,PY) CELL PX,PY,12 NEXT I FOR I=1 TO 15 CALL PUTIT(PX,PY) CELL PX,PY,11 NEXT I DO IF IPILL=0 THEN CALL PUTIT(PX,PY) IPILL=1 ELSE IF IPILL>0 THEN ATTR(0) CELL PX,PY,10 END IF FOR I=0 TO 7 ATTR (I) IF I=0 THEN IF UP(I) THEN D(I)=0 IF RIGHT(I) THEN D(I)=1 IF DOWN(I) THEN D(I)=2 IF LEFT(I) THEN D(I)=3 ELSE IF INT(RND*100)=0 THEN D(I)=INT(RND*4) END IF IF A(I)=0 THEN CX=X(I)+XDIR(D(I)) CY=Y(I)+YDIR(D(I)) C=CELL.C(CX,CY) IF C=0 THEN Z(I)=0 IF L(I)=0 THEN CELL X(I),Y(I),0 ELSE CELL X(I),Y(I),1 CELL TX(I,L(I)),TY(I,L(I)),0 GOSUB TAILSHIFT END IF X(I)=CX Y(I)=CY CALL XY(X(I),Y(I)) ELSE IF C=10 THEN Z(I)=0 PLAY 0,90,5 L(I)=L(I)+1 GOSUB TAILSHIFT ATTR(I) CELL X(I),Y(I),1 X(I)=CX Y(I)=CY CALL XY(X(I),Y(I)) IPILL=0 ELSE IF C=11 THEN LL=L(I) IF LL>0 THEN SWAP X(I),TX(I,LL) SWAP Y(I),TY(I,LL) END IF IF LL>999 THEN FOR II=1 TO INT(LL/2) SWAP TX(I,1+II),TX(I,LL-II) NEXT II END IF ELSE Z(I)=Z(I)+1 PLAY 1,20,1 D(I)=INT(RND*4) IF Z(I)=10 THEN IF L(I)>0 THEN CELL TX(I,L(I)),TY(I,L(I)),0 L(I)=L(I)-1 PLAY 2,20,10 Z(I)=0 END IF END IF END IF END IF END IF A(I)=(A(I)+1) MOD 16 IF A(I)<8 THEN AI=0 ELSE AI=1 C=D(I)*2+2+AI CELL X(I),Y(I),C NEXT I WAIT VBL LOOP TAILSHIFT: IF L(I)>1 THEN FOR II=L(I) TO 2 STEP -1 TX(I,II)=TX(I,II-1) TY(I,II)=TY(I,II-1) NEXT II END IF TX(I,1)=X(I) TY(I,1)=Y(I) RETURN SUB XY(X,Y) IF X<0 THEN X=19 IF Y<0 THEN Y=15 IF X>19 THEN X=0 IF Y>15 THEN Y=0 END SUB SUB PUTIT(X,Y) C=1 WHILE C>0 X=INT(RND*20) Y=INT(RND*16) C=CELL.C(X,Y) WEND END SUB #1:MAIN PALETTES 003F2A1500302010003C2814000C0804 000F0A05000B06010033221100231201 #2:MAIN CHARACTERS 00000000000000000000000000000000 42BD7E7E7E7EBD427EC381818181C37E 2466E7FFFFFF7E3C0000000000000000 000081C3E7FF7E3C0000000000000000 3C7EFFF8F8FF7E3C0000000000000000 3E7CF8F0F0F87C3E0000000000000000 3C7EFFFFFFE766240000000000000000 3C7EFFE7C38100000000000000000000 3C7EFF1F1FFF7E3C0000000000000000 3C1E0F07070F1E3C0000000000000000 0018245A5A24180000183C66663C1800 00000018180000000042183C3C184200 7E8199BDBD99817E003C5A7E7E5A3C00