GLOBAL GAMENUM GAMENUM=7 GAMEPAD 1 REM LLAFTIP REM WAS8BIT DIM GLOBAL LADDER(99),WALL(99),XSCORP(99),DSCORP(99) FOR I=1 TO 99 IF RND(3)=0 THEN LADDER(I)=RND(1)+1 END IF IF RND(8)=0 THEN WALL(I)=RND(1)+1 END IF IF RND(5)=0 THEN XSCORP(I)=RND(150)+5 DSCORP(I)=1 END IF NEXT I SPRITE 0,40,60,32 SPRITE 0 SIZE 1 PAL 3 SPRITE 1,0,0,41 SPRITE 1 PAL 4 SIZE 1 IANI=0 ISCORP=0 PX=8 GLOBAL YFLOOR YFLOOR=60 PY=60 DY=0 FFLIP=0 GRAVITY=0.025 IPAGE=1 NEWPAGE: BG 0 PAL 4 NUMBER 0,0,IPAGE,2 BG 1 CALL NEWPAGE(IPAGE) DO IF BUTTON(0,1) THEN IF CELL.C(PX\8,(PY+16)\8)=37 AND YFLOOR=60 THEN PY=PY+16 YFLOOR=100 SPRITE 0,,PY, DY=1 END IF IF CELL.C(PX\8,PY\8)=36 AND YFLOOR=100 THEN YFLOOR=60 WHILE PY>60 DEC PY SPRITE 0,,PY, WAIT VBL WEND END IF END IF IF BUTTON(0,0) AND PY=YFLOOR THEN DY=-1 COPY $8000+16*27,16 TO $8000+16*48 END IF IF RIGHT(0) OR LEFT(0) THEN IF DY=0 THEN COPY $8000+16*(14+IANI),16 TO $8000+16*48 W=(W+1) MOD 5 IF W=0 THEN ADD IANI,1,0 TO 11 IF RIGHT(0) THEN C=CELL.C((PX+12)\8,(PY+16)\8) IF C<>38 THEN PX=PX+3 FFLIP=0 ELSE IF LEFT(0) THEN C=CELL.C((PX-12)\8,(PY+16)\8) IF C<>38 THEN PX=PX-3 FFLIP=1 END IF END IF ELSE IF DY=0 THEN COPY $8000+16*13,16 TO $8000+16*48 END IF DY=DY+GRAVITY IF DY>1 THEN DY=1 IF PY>YFLOOR THEN PY=YFLOOR DY=0 END IF PY=PY+DY SPRITE 0,PX-FFLIP*8,PY, SPRITE 0 FLIP FFLIP,0 IF PX<-2 THEN ADD IPAGE,-1,1 TO 99 PX=152 GOTO NEWPAGE ELSE IF PX>154 THEN ADD IPAGE,1,1 TO 99 PX=8 GOTO NEWPAGE END IF IF XSCORP(IPAGE)>0 THEN IS=(IS+1) MOD 30 IF IS=0 THEN ADD ISCORP,2,0 TO 2 XSCORP(IPAGE)=XSCORP(IPAGE)+0.1*DSCORP(IPAGE) IF XSCORP(IPAGE)>120 THEN DSCORP(IPAGE)=-1 SPRITE 1 FLIP 0,0 ELSE IF XSCORP(IPAGE)<32 THEN DSCORP(IPAGE)=1 SPRITE 1 FLIP 1,0 END IF SPRITE 1,XSCORP(IPAGE),,41+ISCORP END IF WAIT VBL LOOP SUB NEWPAGE(I) RANDOMIZE GAMENUM+I BG 1 BG COPY 0,0,20,16 TO 0,0 OTREE=0 FOR X=0 TO 19 PAL 2 R1=RND(2) R2=RND(2) IF R1=1 THEN CELL X,2,CELL.C(X,1) CELL X,1,CELL.C(X,0) CELL X,0,0 END IF IF R2=1 THEN CELL X,2,CELL.C(X,3) CELL X,3,CELL.C(X,4) CELL X,4,0 END IF IF R1=1 AND R2=1 THEN CELL X,2,3 IF OTREE=0 AND RND(10)>6 THEN PAL 1 IF R2=1 THEN CELL X,4,9 CELL X,5,9 CELL X,6,9 OTREE=1 ELSE OTREE=0 END IF PAL 2 FLIP RND(1),0 IF CELL.C(X,6)=0 AND RND(2)=0 THEN CELL X,6,30+RND(1) PAL 3 IF CELL.C(X,6)=0 AND RND(10)=0 THEN CELL X,6,34+RND(1) FLIP 0,0 NEXT X PAL 4 IF LADDER(I)=1 THEN CELL 2,9,37 CELL 2,11,36 CELL 2,12,36 ELSE IF LADDER(I)=2 THEN CELL 17,9,37 CELL 17,11,36 CELL 17,12,36 END IF IF WALL(I)=1 THEN CELL 4,11,38 CELL 4,12,38 CELL 4,13,38 CELL 4,14,38 ELSE IF WALL(I)=2 THEN CELL 15,11,38 CELL 15,12,38 CELL 15,13,38 CELL 15,14,38 END IF IF XSCORP(I)>0 THEN SPRITE I,XSCORP(I),100,41 IF DSCORP(I)=1 THEN P=0 ELSE P=1 ELSE SPRITE 1,-1,-1,0 END IF END SUB #1:MAIN PALETTES 0B002A1500103824000C0804002C3020 003F3F00003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFFFFFFFFFFF7E3CFFFFFFFFFFFF7E3C 00000000000081C3FFFFFFFFFFFFFFFF C3810000000081C33C7EFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF C3810000000000003C7EFFFFFFFFFFFF 3C7EFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 7EFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFFFFFFFFFFFF000000 FF8181FFFF1818FFFFFEFE00FFEFEF00 FFFFFFFFFFFFFFFF0000000000000000 0010101010181010182C2C081800181C 7182000120408080083C3C1E01428080 1022102022C08000081C2C3C00C28100 101008A060040000082C34B848000406 1048040010784000083438181860480C 304C0000083C400008303C18182C5018 080600000C24040010383C1818042430 698600072102000010383C1E01428080 080600042202010010383C3C00C28100 304C00002804040608303CB848000406 104804000818080C083438181860480C 10100800101C1018082C3418182C5018 1220100014202030081C2C1818042430 7182000120408080083C3C1E01428080 00C3000034000000183C3C181842C300 103070F070301000EFCF8F0F8FCFEFFF 080C0E0F0E0C0800F7F3F1F0F1F3F7FF 00000000004AA4530000000000005AAC 000000080A442A140000000000285428 0000007E7E7E3C18003C7F7064600000 00000000000000000000000000000000 00000834582810100000000820000000 00000040A44A24180000000040040000 FFFFFFFFFFFFFFFFDBC3DBC3DBC3DBC3 FFFFFFFFFFFFFFFFFFFFFFDBC3DBC3FF 33CC33CC33CC33CCFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFEFCF8F0F8FCFEFFF FFFFFFFFFFFFFFFFF7F3F1F0F1F3F7FF 00000000000000000000000000000000 000000000000386C0000000000000000 00000000000000000000000000000000 0000000070D88C440000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000183C3C3C00000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00101807072F12240000000000000000 44240CFCF8F8A8440000000000000000 00100817070F32210000000000000000 04040CFCF8F8A8B00000000000000000 #3:MAIN BG 00001410060206020602060206020602 06020602060206020602060206020602 06020602060206020602060205020502 05020502050205020502050205020502 05020502050205020502050205020502 05020502040204020402040204020402 04020402040204020402040204020402 04020402040204020402040202020202 02020202020202020202020202020202 02020202020202020202020202020202 02020202010201020102010201020102 01020102010201020102010201020102 01020102010201020102010200000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000008010801 08010801080108010801080108010801 08010801080108010801080108010801 080108011C0108010801080108010801 08010801080108010801080108010801 080108010801080108011D0108010801 08010801080108010801080108010801 08010801080108010801080108010801 08010801070107010701070107010701 07010701070107010701070107010701 0701070107010701070107010C000C00 0C000C000C000C000C000C000C000C00 0C000C000C000C000C000C000C000C00 0C000C0027040C000C000C000C000C00 0C000C000C000C000C000C000C000C00 0C000C000C000C000C0028040B000B00 0B000B000B000B000B000B000B000B00 0B000B000B000B000B000B000B000B00 0B000B000B000B000B000B000B000B00 0B000B000B000B000B000B000B000B00 0B000B000B000B000B000B000A000A00 0A000A000A000A000A000A000A000A00 0A000A000A000A000A000A000A000A00 0A000A00