DIM GLOBAL PX(100),PY(100),PZ(100),PC(100),PS(100) GLOBAL SMAX TOUCHSCREEN REM WAS8BIT RANDOMIZE TIMER RESET: CLS SMAX=15+RND(85) FOR I=0 TO SMAX PX(I)=RND(18) PY(I)=RND(14) PZ(I)=RND(30) PC(I)=RND(7) PS(I)=RND(3)*(RND(1)*2-1) NEXT I DO IF TOUCH THEN GOTO RESET CALL POOF LOOP SUB POOF DIM MAP(19,15,30),CAP(19,15,30) FOR I=0 TO SMAX ADD PZ(I),PS(I),0 TO 30 X=PX(I) Y=PY(I) Z=ABS(PZ(I)) C=PC(I) CUL=MAP(X,Y,Z) CUR=MAP(X+1,Y,Z) CLL=MAP(X,Y+1,Z) CLR=MAP(X+1,Y+1,Z) IF CUL=0 THEN MAP(X,Y,Z)=2 ELSE MAP(X,Y,Z)=RND(7)+4 IF CUR=0 THEN MAP(X+1,Y,Z)=3 ELSE MAP(X+1,Y,Z)=RND(7)+4 IF CLL=0 THEN MAP(X,Y+1,Z)=18 ELSE MAP(X,Y+1,Z)=RND(7)+4 IF CLR=0 THEN MAP(X+1,Y+1,Z)=19 ELSE MAP(X+1,Y+1,Z)=RND(7)+4 CAP(X,Y,Z)=C CAP(X+1,Y,Z)=C CAP(X,Y+1,Z)=C CAP(X+1,Y+1,Z)=C NEXT I FOR X=0 TO 19 FOR Y=0 TO 15 CC=0 PP=0 FOR Z=30 TO 0 STEP -1 C=MAP(X,Y,Z) P=CAP(X,Y,Z) IF C<>0 THEN CC=C PP=P END IF NEXT Z IF CC<>0 THEN PAL PP CELL X,Y,CC END IF NEXT Y NEXT X END SUB #1:MAIN PALETTES 0030201000382410003C2814000C0804 000F0A05000B06010023120100372211 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 FFDFA5D1C9E5C3FF77BADAEE769AFC80 FFFBA58B93A7C3FFEE5D5B776E593F01 00002004001000000000000000000000 00001000042000000000000000000000 00000800200400000000000000000000 00000420000800000000000000000000 00400200000020000000000000000000 00080000000240000000000000000000 00040000004002000000000000000000 00024000000004000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFC3E5C9D1A5DFFF80FC9A76EEDABA77 FFC3A7938BA5FBFF013F596E775B5DEE