'================ GAME FROM ORIGINAL LOWRES ====== REM REM ORIGINAL GAME: "LOWRES FOREST" BY UXOZII REM NAME CHANGED TO "ZELDA CREATIVE" BY SNT&HPC REM '================================================= REM CONCEPT TESTS.... REM TEST 101: MAP CONCEPT REM ORIGINAL MAP SIZE 128X128 REM THIS TEST MAP SIZE 150X150 GAMEPAD 1 RANDOMIZE TIMER REM WAS8BIT SPRITE 0,9*8,7*8,4 SPRITE 0 PAL 3 BG 1 TEXT 0,0,"LOADING...." DIM GLOBAL MAP(150,150) FOR I=1 TO 100 MAP(RND(125)+1,RND(125)+1)=1 NEXT I FOR I=1 TO 100000 X=RND(125)+1 Y=RND(125)+1 IF MAP(X,Y)=1 THEN MAP(X+RND(2)-1,Y+RND(2)-1)=1 NEXT I FOR I=1 TO 1000 X=RND(125)+1 Y=RND(125)+1 IF MAP(X,Y)=0 THEN MAP(X,Y)=2 NEXT I CALL PRINTMAP(0,0) MX=0 MY=0 DO IF RIGHT(0) AND MX<120 THEN CALL MOVE(MX,MY,1,0) IF LEFT(0) AND MX>0 THEN CALL MOVE(MX,MY,-1,0) IF DOWN(0) AND MY<120 THEN CALL MOVE(MX,MY,0,1) IF UP(0) AND MY>0 THEN CALL MOVE(MX,MY,0,-1) WAIT VBL LOOP SUB MOVE(X,Y,DX,DY) IF MAP(X+DX+9,Y+DY+7)=0 THEN SX=DX*8 SY=DY*8 ZX=0 ZY=0 WHILE SX<>0 OR SY<>0 ZX=ZX+DX ZY=ZY+DY SCROLL 1,ZX,ZY WAIT 1 SX=SX-DX SY=SY-DY WEND SCROLL 1,0,0 X=X+DX Y=Y+DY CALL PRINTMAP(X,Y) PLAY 0,40,1 BG 0 PAL 4 NUMBER 0,0,X,3 TEXT 3,0,"," NUMBER 4,0,Y,3 BG 1 END IF END SUB SUB PRINTMAP(IX,IY) BG 1 FOR X=0 TO 19 FOR Y=0 TO 15 M=MAP(X+IX,Y+IY) PAL M CELL X,Y,M+1 NEXT Y NEXT X END SUB #1:MAIN PALETTES 1E0C0804000F0B0700201934003C2800 003F3F00003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 EFD67DF76B7FBEFF3829820814C14110 802639001825C4107FFFDFFFFFFFFBEF 000824001818183C3C7E7E7E42000000 3E3E3E00000000630014001C3E3E2263