GOTO SKIPINTRO REM NEEDED STUFF === GLOBAL MADD GLOBAL RLEN MADD=ROM(15) RLEN=SIZE(15) REM================= FOR IX=0 TO 19 CELL IX,7,1 CELL IX,0,1 NEXT IX TEXT 0,9,"(TAP TO SCROLL TEXT)" T$="" FOR I=0 TO (RLEN\20)-6 FOR IY=0 TO 5 CALL GETMESSAGE(IY+I,T$) TEXT 0,IY+1,T$ NEXT IY WHILE NOT TOUCH WAIT VBL WEND PLAY 0,10,1 WAIT 10 NEXT I PLAY 0,40,15 TEXT 0,9,"(END OF THE TEXT) " REM NEEDED STUFF ====== SUB GETMESSAGE(MNUM,MTEXT$) MTEXT$="" FOR IX=0 TO 19 MTEXT$=MTEXT$+CHR$(PEEK(MADD+(MNUM*20)+IX)+32) NEXT IX END SUB REM ==================== SKIPINTRO: RANDOMIZE TIMER REM WASHAW GAMES GAMEPAD 1 SOUND 3,3,, X=0 Y=0 DIM EX(9),EY(9),ES(9),EDX(9),EDY(9) EI=0 REDO: CLS FOR I=1 TO 100 CELL INT(RND*20),INT(RND*16),5 NEXT I FOR I=1 TO 10 CALL FINDEMPTY(X,Y) CELL X,Y,6 NEXT I FOR I=1 TO 5 CALL FINDEMPTY(X,Y) CELL X,Y,7 NEXT I PX=0 PY=0 CALL FINDEMPTY(PX,PY) CELL PX,PY,1 FOR I=0 TO 9 CALL FINDEMPTY(EX(I),EY(I)) ES(I)=1 CELL EX(I),EY(I),2+ES(I) NEXT I DO IPM=(IPM+1) MOD 15 IF IPM=0 THEN DX=0 DY=0 IF RIGHT(0) THEN DX=1 IF LEFT(0) THEN DX=-1 IF UP(0) THEN DY=-1 IF DOWN(0) THEN DY=1 IF DX<>0 OR DY<>0 THEN CALL PMOVE(PX,PY,DX,DY) END IF IEM=(IEM+1) MOD 5 IF IEM=0 THEN CALL EMOVE(EX(EI),EY(EI),EDX(EI),EDY(EI),ES(EI)) EI=(EI+1) MOD 10 END IF WAIT VBL LOOP SUB FINDEMPTY(X,Y) C=999 WHILE C<>0 X=INT(RND*20) Y=INT(RND*16) C=CELL.C(X,Y) WEND END SUB SUB EMOVE(X,Y,DX,DY,S) CI=0 C=99 CX=X+DX CY=Y+DY IF CX>=0 AND CY>=0 AND CX<=19 AND CY<=15 THEN C=CELL.C(CX,CY) WHILE C<>0 AND CI<20 DX=INT(RND*3)-1 DY=INT(RND*3)-1 CX=X+DX CY=Y+DY IF CX>=0 AND CY>=0 AND CX<=19 AND CY<=15 THEN C=CELL.C(CX,CY) CI=CI+1 WEND IF C=0 AND CI<20 THEN CELL X,Y,0 X=CX Y=CY CELL X,Y,2+S END IF END SUB SUB PMOVE (X,Y,DX,DY) CX=X+DX CY=Y+DY IF CX>=0 AND CX<=19 AND CY>=0 AND CY<=15 THEN CC=CELL.C(CX,CY) IF CC=0 THEN CELL X,Y,0 X=CX Y=CY CELL X,Y,1 END IF END IF END SUB #1:MAIN PALETTES 01150C0B003C000000300000003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 3C7EDBFFFFFF7E3C3C7EDBFFFFFF7E3C 00002400002400000000000000000000 003C7E5A7E7E3C000000000000000000 00001004200800000000000000000000 ABFE7FFE7FFE7FD50000000000000000 7EF7E1D7E3F5C37681081E281C0A3C89 FFFFFFFFFFFFFFFFFFABABABABABABFF FF818181818181FF0000000000000000 0000000000000000FF818181818181FF FF818181818181FFFF818181818181FF 000024243C3C00000000181800000000 0000183C3C1800000000182424180000 #15:MESSAGES 342825003428292E00222C3525002C29 2E250E00000000000000000000000000 0000000000000000322F222225323300 213225002C2F2F34292E2700212E2400 333425212C292E27002D2F2E25390000 26322F2D003428250022212E2B330E0E 0E0E0000000000000000000000000000 0000000000000000342825002C213700 252E262F322325323300000023212E2E 2F340033342F30003428252D0E0E0E00 00000000000000000000000000000000 00000000332F0C00392F350021322500 34282500282F3025212E24002F2E2C39 00392F350E0E0E000000000000000000 00000000000000000000000000000000 392F350021233400212C2F2E250C0021 2E2400002D35333400252C292D292E21 3425003428250000322F22222532330E 00392F3500372F2E3400222530212924 0C0022353400392F3500213225000000 212C2C2F37252400342F002B25253000 372821342D2F2E253900392F35003225 232F36253200000026322F2D00342825 00322F222225323300262F32392F3532 00332532362923250E00000000000000 00000000000000000000000000000000 00000000282F37253625320C00392F35 00213225002F2E00392F3532002F372E 0E00292600392F3500272534292E342F 0034322F35222C250C002E2F002F2E25 23212E0028252C3000392F350E000000 00000000000000000000000000000000 0000000000000000272F2F24002C3523 2B0E0E0E0E000000000000000E0E0021 2E24003428212E2B00392F350C000000 262F3200392F35320033253236292325 01010000000000000000000000000000 00000000000000000000000000000000 0000000000000000000000000E0E0025 2E24003432212E332D293333292F2E00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000E0E0E0000000000 000000000000000000000000