'TILE BEHAVIOR FOR EACH CELL '0:AIR '1:WALL '2:GRASS DIM GLOBAL MAP(15,15) RESTORE MAP_0 CALL FILLMAP GLOBAL CAMX,CAMY 'POSITION 'TARGET 'FRAME, FLIP 'DIR:U,D,L,R DIM GLOBAL PLAYER(3,1) GLOBAL E_CHANCE,CHECK E_CHANCE=0.1 BG COPY 0,0,20,32 TO 0,0 GAMEPAD 1 WORLD: DO X=PLAYER(0,0)-CAMX-72 Y=PLAYER(0,1)-CAMY-56 IF ABS(X)>48 THEN ADD CAMX,SGN(X) IF ABS(Y)>48 THEN ADD CAMY,SGN(Y) SCROLL 0,CAMX,CAMY CALL PCONTROL WAIT VBL LOOP BATTLE: SPEED=2 XO=CAMX\8 YO=CAMY\8 PAL 3 FOR Y=0 TO 15 FOR X=0 TO 19 STEP SPEED FOR I=X TO X+(SPEED-1) CELL I+XO,Y+YO,1 NEXT I PX=PLAYER(0,0) -CAMX PY=PLAYER(0,1)-8-CAMY IF PX\8>=X AND PX\80 THEN PLAYER(2,0)=8 PLAYER(2,1)=1 PLAYER(3,0)=3 ELSE IF V<0 THEN PLAYER(2,0)=4 PLAYER(2,1)=0 PLAYER(3,0)=0 ELSE IF V>0 THEN PLAYER(2,0)=0 PLAYER(2,1)=0 PLAYER(3,0)=1 END IF OUT=0 CALL GETTILE(PLAYER(0,0),PLAYER(0,1),OUT) IF OUT=2 AND CHECK THEN IF RND1 AND NOT CLIFF THEN ADD FRAME,(TIMER*0.1 MOD 2)*2 IF V THEN PLAYER(2,1)=TIMER*0.1 MOD 4=3 END IF ELSE PLAYER(1,0)=PLAYER(0,0) PLAYER(1,1)=PLAYER(0,1) END IF END IF CALL COPY2X2(FRAME,64) PX=PLAYER(0,0) -CAMX PY=PLAYER(0,1)-8-CAMY SPRITE 0,PX,PY,64 SPRITE 0 SIZE 1 FLIP PLAYER(2,1),0 END SUB SUB GETTILE(PX,PY,OUT) OUT=MAP(PX\16,PY\16) END SUB SUB COPY2X2(S,D) CALL COPYCELL(S,D) CALL COPYCELL(S+1,D+1) CALL COPYCELL(S+16,D+16) CALL COPYCELL(S+17,D+17) END SUB SUB COPYCELL(S,D) COPY ROM(5)+16*S,16 TO $8000+16*D END SUB SUB FILLMAP FOR Y=0 TO 15 FOR X=0 TO 15 READ M MAP(X,Y)=M NEXT X NEXT Y END SUB MAP_0: DATA 0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1 DATA 0,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1 DATA 0,1,0,0,0,1,0,0,1,1,1,1,1,1,1,1 DATA 0,1,0,0,0,1,0,0,0,1,1,1,1,1,1,1 DATA 0,1,1,0,1,1,0,0,0,1,1,1,1,1,1,1 DATA 0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1 DATA 2,2,0,0,0,0,1,1,1,1,1,1,1,1,1,1 DATA 2,2,2,0,0,0,1,1,1,1,1,1,1,1,1,1 DATA 2,2,2,0,0,0,1,1,1,1,1,1,1,1,1,1 DATA 2,2,2,3,3,3,2,2,1,1,1,1,1,1,1,1 DATA 2,2,2,0,0,0,2,2,1,1,1,1,1,1,1,1 DATA 2,2,2,0,0,0,0,3,0,0,1,1,1,1,1,1 DATA 1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1 DATA 1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1 DATA 1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 #1:MAIN PALETTES 003E3500002C080400382410003F2A15 002C0824003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFDBFBBD5837D0345ABEAD67C82FE FFFFFFFF75AA55FF000000008A55FFFF FBF5FBF5FBFDFBF5070B070B0703070B FDFBFDFB75AB55FF030703078B57FFFF BF3F8F0FBF3F8F0FE060D04FE060D04F 25AD52D7FFFFFFFF25FFAD2800000000 FCFBF5EAD5AAB46802040A152A550B17 3FDF6FB75B2D150280008040A0D0E85C E7F2C7E6F3E7C2E7160B36170A163B16 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFAFDFFFFAFDFF0000502000050200 F5AE925D6B5A5DEBAB5492CAB55A36EB F3A4B15B6C5D4EADB74EB3CFBE5B36AD FFFFFFFFFFFEFDFA0000000000010307 FFFFFFFFCCCC00AA1111111122CCFFAA FFFFBB1200ADFFB5000044ED52ADFF4A 506080C0F0E8D9FDAE1D2A0500182D03 000001030F17B7DFAA54A8500010E8A0 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 8F7024008FAFAFAF8800277088202020 FF000000FFFFFFFF0000FF0000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 AFAFAFAFAFAFAFAF2020202020202020 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFF5D5F5DDDFFFD7007E7E7E6667007F FFF7D7F7D757FF770078787878F800F8 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 D5F6EDEFFFFFFFFF7E7F363700000000 D7EFD757FFFFFFFF787078F800000000 #3:MAIN BG 00002020011101111209120901110111 12091209011101111209120901110109 08040904080409040804090400000000 00000000000000000000000000000000 00000000010101011209120901010101 12091209010101011209120901110111 18041904180419041804190400000000 00000000000000000000000000000000 00000000120912090101051903110311 03110311031103110511010112091209 01010101080409040804090400000000 00000000000000000000000000000000 00000000120912090101040912011201 01010101120112010401010112091209 01010101180419041804190400000000 00000000000000000000000000000000 00000000010101011201040901010101 12091209010101010401120101010101 12011201080409040804090400000000 00000000000000000000000000000000 00000000010101011201040901010109 12091209010101090401120101010101 12011201180419041804190400000000 00000000000000000000000000000000 00000000120912090101050903010301 15091501030103010501010112091209 01010101120912090804090400000000 00000000000000000000000000000000 00000000120912090101140A13021302 0602060A130213021402010112091209 01010101120912091804190400000000 00000000000000000000000000000000 00000000011101111201140A13021302 0602060A130213021402120101010101 12091209010101010804090400000000 00000000000000000000000000000000 00000000011101111209070107010701 07010701070107010701120901010101 12091209010101011804190400000000 00000000000000000000000000000000 00000000120912090101010112011201 01090101120112010109010112011201 05190311031105110804090400000000 00000000000000000000000000000000 00000000120912090101010112011201 01010101120112010101010112011201 04090101120904011804190400000000 00000000000000000000000000000000 00000000020102010201020101010101 12011201010101011201120105190311 15191209010104010804090400000000 00000000000000000000000000000000 00000000020102010201020101110111 12011201011101111201120104090109 12091209010904011804190400000000 00000000000000000000000000000000 00000000020102010201020102010201 01110111120112010111010104091201 01110111120104010804090400000000 00000000000000000000000000000000 00000000020102010201020102010201 01110111120112010111010105090301 03010301030105011804190400000000 00000000000000000000000000000000 00000000020102010201020102010201 120412040104010412041204140A1302 130213021302130A0519051100000000 00000000000000000000000000000000 00000000020102010201020102010201 120412040104010412041204140A1302 13021302051903111519040100000000 00000000000000000000000000000000 00000000020102010201020102010201 17141714171417141714171402010201 02010201040901010101040100000000 00000000000000000000000000000000 00000000020102010201020102010201 01040104120412040104010402010201 02010201050903010301050100000000 00000000000000000000000000000000 00000000020102010201020102010201 12041204010401041204120402010201 02010201130213021302140200000000 00000000000000000000000000000000 00000000020102010201020102010201 12041204010401041204120402010201 02010201070107010701070100000000 00000000000000000000000000000000 00000000020102010201020102010201 01040104120412040104010412041204 01040A14120412040104010400000000 00000000000000000000000000000000 00000000020102010201020102010201 01040104120412040104010412041204 01040A14120412040104010400000000 00000000000000000000000000000000 00000000080409040804090408040904 08040904010101011201120101010101 12011201010101011201120100000000 00000000000000000000000000000000 00000000180419041804190418041904 18041904010101011201120101010101 12011201010101011201120100000000 00000000000000000000000000000000 00000000080409040804090408040904 08040904080409040101010112011201 01010101120112010101010100000000 00000000000000000000000000000000 00000000180419041804190418041904 18041904180419040101010112011201 01010101120112010101010100000000 00000000000000000000000000000000 00000000080409040804090408040904 08040904080409041201120101010101 12011201010101011201120100000000 00000000000000000000000000000000 00000000180419041804190418041904 18041904180419041201120101010101 12011201010101011201120100000000 00000000000000000000000000000000 00000000080409040804090408040904 08040904080409040804090408040904 08040904080409040804090400000000 00000000000000000000000000000000 00000000180419041804190418041904 18041904180419041804190418041904 18041904180419041804190400000000 00000000000000000000000000000000 00000000 #4:UI 00001410200321032103210321032103 21032103210321032103210321032103 2103210321032103210B200B30030103 01030103010301030103010301030103 01030103010301030103010301030103 0103300B301301030103010301030103 01030103010301030103010301030103 01030103010301030103301B20132113 21132113211321132113211321132113 21132113211321132113211321132113 211B201B000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #5:CHARACTERS 00000304090B1C1F000003070E0F1713 0000C02090D038F80000C0E070F0E8C8 00000304090B1C1F000003070E0F1713 0000C02090D038F80000C0E070F0E8C8 0000030408081D1F000003070F0F1717 0000C0201010B8F80000C0E0F0F0E8E8 0000030408081D1F000003070F0F1717 0000C0201010B8F80000C0E0F0F0E8E8 0003040C101F0F0F0003070B1F1F0A0A 00C0201010F0F0F000C0E0F0F0F0D090 0003040C101F0F0F0003070B1F1F0A0A 00C0201010F0F0F000C0E0F0F0F0D090 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0F061B383C180F0F0A051F27271F0F09 F060D81C3C18F0F050A0F8E4E4F8F090 0F061B38381E0F0F0A051F2F2F1F0909 F060F0787830F09050A0F0C8C8F0F0F0 0F071F3A3D1C0E1F0B041F2F2E1F0F13 F0E0F85CBC3870F8D020F8F474F8F0C8 0F070F1A1D0C1E1F0B040F1F1E0F1313 F0E0F87CBC3878C8D020F8E464F8F8F8 070F07050B0B0707080807070E0E0704 E078A838A8F0E0E020F8F8E87870E020 070F07070F0F0709080807070C0C070F E078A8382870F0E020F8F8E8F8F0D020