' WRITTEN BY PRANXTER IN 2019 GAMEPAD 1 DISPLAY (,,,1,) BG COPY 0,120,32,16 TO 0,0 WHILE NOT BUTTON(0) WAIT VBL WEND PX=16 PY=16 SPRITE.A 32,(1,,,,1) LVL=0 BG COPY 0,LVL,32,16 TO 0,0 RESTART: DO SKIP: SPRITE 32,PX,PY,32 IF UP(0) THEN ISOUND=0 WHILE PY>0 AND NOT CELL.C(PX/16,(PY-1)/16)=2 PY=PY-2 ISOUND=1 SPRITE 32,PX,PY,32 IF CELL.C(PX/16,(PY+15)/16)=6 THEN GOTO WIN WAIT VBL WEND IF CELL.C(PX/16,(PY+15)/16)=8 THEN GOSUB PORTAL IF CELL.C(PX/16,(PY+15)/16)=10 THEN GOSUB SLIDEUP IF CELL.C(PX/16,(PY+15)/16)=12 THEN GOSUB SLIDEDOWN IF ISOUND=1 THEN PLAY 0,50,10 SOUND 5 IF ISOUND=2 THEN PLAY 0,50,20 SOUND 1 GOTO SKIP END IF IF DOWN(0) THEN ISOUND=0 WHILE PY<112 AND NOT CELL.C(PX/16,(PY+16)/16)=2 PY=PY+2 ISOUND=1 SPRITE 32,PX,PY,32 IF CELL.C(PX/16,PY/16)=6 THEN GOTO WIN WAIT VBL WEND IF CELL.C(PX/16,PY/16)=8 THEN GOSUB PORTAL IF CELL.C(PX/16,PY/16)=10 THEN GOSUB SLIDEUP IF CELL.C(PX/16,PY/16)=12 THEN GOSUB SLIDEDOWN IF ISOUND=1 THEN PLAY 0,50,10 SOUND 5 IF ISOUND=2 THEN PLAY 0,50,20 SOUND 1 GOTO SKIP END IF IF LEFT(0) THEN ISOUND=0 WHILE PX>0 AND NOT CELL.C((PX-1)/16,PY/16)=2 PX=PX-2 ISOUND=1 SPRITE 32,PX,PY,32 IF CELL.C((PX+14)/16,PY/16)=6 THEN GOTO WIN WAIT VBL WEND IF CELL.C((PX+14)/16,PY/16)=8 THEN GOSUB PORTAL IF CELL.C((PX+14)/16,PY/16)=10 THEN GOSUB SLIDEUP IF CELL.C((PX+14)/16,PY/16)=12 THEN GOSUB SLIDEDOWN IF ISOUND=1 THEN PLAY 0,50,10 SOUND 5 IF ISOUND=2 THEN PLAY 0,50,20 SOUND 1 GOTO SKIP END IF IF RIGHT(0) THEN ISOUND=0 WHILE PX<144 AND NOT CELL.C((PX+16)/16,PY/16)=2 PX=PX+2 ISOUND=1 SPRITE 32,PX,PY,32 IF CELL.C(PX/16,PY/16)=6 THEN GOTO WIN WAIT VBL WEND IF CELL.C(PX/16,PY/16)=8 THEN GOSUB PORTAL IF CELL.C(PX/16,PY/16)=10 THEN GOSUB SLIDEUP IF CELL.C(PX/16,PY/16)=12 THEN GOSUB SLIDEDOWN IF ISOUND=1 THEN PLAY 0,50,10 SOUND 5 IF ISOUND=2 THEN PLAY 0,50,20 SOUND 1 GOTO SKIP END IF IF CELL.C(PX/16,PY/16)=6 THEN GOTO WIN WAIT VBL LOOP PORTAL: ISOUND=2 FOR Y=0 TO 7 FOR X=0 TO 9 IF CELL.C(X,Y)=8 THEN PX=X*16 PY=Y*16 END IF NEXT X NEXT Y RETURN SLIDEUP: PY=PY-32 RETURN SLIDEDOWN: PY=PY+32 RETURN WIN: PLAY 0,50,20 SOUND 2 WAIT 60 PX=16 PY=16 LVL=LVL+8 BG COPY 0,LVL,32,16 TO 0,0 IF LVL>64 THEN GOTO THEEND GOTO RESTART THEEND: DISPLAY (0,1,1,0,0) ATTR (4) PRINT "MORE LEVELS COMING" PRINT "SOON!" END #1:MAIN PALETTES 06392400003C3824000B0601003C0F15 003F2A15003F1503053F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 FFFF818181FFFF88FF81FFFFFFFF88FF FFFF010101FFFF11FF01FFFFFFFF11FF FFFFFFFFFFFFFFFFF0F0F0F00F0F0F0F FFFFFFFFFFFFFFFFF0F0F0F00F0F0F0F FFFFCFCFF0F0F0F0FFFFF0F0CFCFCFCF FFFF0F0FF3F3F3F3FFFFF3F30F0F0F0F FFFFC0DFD0D7D4D5FFFFFFE0EFE8EBEA FFFF03FB0BEB2BABFFFFFF07F717D757 FFFFC0C1C3C7CECEFFFFFFFFFEFDFBFB FFFF0383C3E37373FFFFFFFF7FBFDFDF FFFFC0C0DCDCDCDCFFFFFFFFFFF7F7F7 FFFF03033B3B3B3BFFFFFFFFFFEFEFEF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 8888FFFF818181FFFFFFFF81FFFFFFFF 1111FFFF010101FFFFFFFF01FFFFFFFF FFFFFFFFFFFFFFFFF0F0F0F00F0F0F0F FFFFFFFFFFFFFFFFF0F0F0F00F0F0F0F CFCFCFCFF0F0FFFFF0F0F0F0CFCFFFFF 0F0F0F0FF3F3FFFFF3F3F3F30F0FFFFF D5D4D7D0DFC0FFFFEAEBE8EFE0FFFFFF AB2BEB0BFB03FFFF57D717F707FFFFFF DCDCDCDCC0C0FFFFF7F7F7FFFFFFFFFF 3B3B3B3B0303FFFFEFEFEFFFFFFFFFFF CECEC7C3C1C0FFFFFBFBFDFEFFFFFFFF 7373E3C38303FFFFDFDFBF7FFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 FFFFC0C0C6C6C6C600003F3F39393939 FEFD0303636363630103FFFF9F9F9F9F 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C6C6C0C0C0C0BF7F39393F3F3F3F7FFF 636303030303FFFF9F9FFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 007E62627E606060007E62627E606060 007E62627E646464007E62627E646464 007E62627E626262007E62627E626262 0072726A6A6A66660072726A6A6A6666 0062623C183C62620062623C183C6262 007E181818181818007E181818181818 007E60607C60607E007E60607C60607E 007E62627E646464007E62627E646464 80BFB0303F01013F80BFB0303F01013F 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 007E62627E606060007E62627E606060 006262626262623C006262626262623C 007E060C1830607E007E060C1830607E 007E060C1830607E007E060C1830607E 006060606060607E006060606060607E 007E60607C60607E007E60607C60607E 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 007E60606060607E007E60606060607E 006262627E626262006262627E626262 007E62627E626262007E62627E626262 006060606060607E006060606060607E 006060606060607E006060606060607E 007E60607C60607E007E60607C60607E 0072726A6A6A66660072726A6A6A6666 007E60606E62627E007E60606E62627E 007E60607C60607E007E60607C60607E #3:MAIN BG 00010A80020002000200020002000200 02000200020002000200040404040404 04040404020004040404020002000404 02000605020004040404040404040200 02000404020004040404040404040404 04040200020004040200020004040404 04040404040402000200040404040404 04040404040402000404020002000404 04040404040404040404040404040200 02000200020002000200020002000200 02000200020002000200020002000200 02000200020002000200040404040404 04040404040404040404020002000404 04040404020004040404040404040200 02000404020004040404040402000605 02000200020004040200040404040200 02000404040402000200040402000200 04040404020004040404020002000404 04040200020004040404040404040200 02000200020002000200020002000200 02000200020002000200020002000200 06050200020002000200040402000200 04040404040404040404020002000404 02000404040404040404040404040200 02000404020004040404020004040200 02000200020004040404040404040404 04040404040402000200040402000200 04040200040402000404020002000404 04040404040402000404040404040200 02000200020002000200020002000200 02000200020002000200020002000200 06050200020002000200040404040404 04040404040404040404080202000404 04040200040402000404040402000200 02000200020002000404040404040404 04040200020004040404040404040404 04040200040402000200040402000404 02000200040402000404020008020404 04040404040404040404040404040200 02000200020002000200020002000200 02000200020002000200020002000200 02000605020002000200040404040404 04040404040404040404080208020404 04040200040404040404040404040200 02000404040404040404020004040404 04040200020004040200020004040404 04040404040402000200040404040200 04040404040404040200020002000404 04040200020004040404040404040200 02000200020002000200020002000200 02000200020002000200020002000200 02000200020002000200040404040404 04040404020006050404020002000404 04040404040404040200020004040200 02000200040404040404040402000404 04040200080204040404020004040200 02000404040402000200040402000404 04040404040404040200020002000404 02000404040404040404040404040802 02000200020002000200020002000200 02000200020002000200020002000200 02000200020002000200040404040200 04040404040404040802020002000404 04040404040402000404040402000200 02000200020002000200020002000200 02000200020006050200040404040404 02000404040408020200020002000404 02000404020004040200020002000A03 04040404020004040404040404040A03 02000200020002000200020002000200 02000200020002000200020002000200 02000200020002000200040404040404 04040200060502000404020002000404 02000404040402000200020004040200 020004040200080204040C030A030C03 04040200020004040200020002000404 04040404040402000200040404040404 04040404080204040200020002000200 04040404040404040200020002000200 02000200020002000200020002000200 02000200020008020200020002000200 02000200020002000200040402000802 04040200040404040404020002000404 02000C03040404040200040404040200 02000404020002000404040404040404 04040C03020004040404040404040404 04040404040402000200040404040404 04040404040402000404060502000A03 04040404020004040404040404040200 02000200020002000200020002000200 02000200000000000000000000000000 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 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 00000000000000000000000000000000 00000000020002000200020002000200 020002000200020002004A024A024A02 4A020000000002000605020002004A02 40024202440246024802020004040200 02004A02600262026402660268020200 04040200020002000200020002000200 02000200040402000200040404040404 04040404040404040404020002000404 20010404040404040404040404040200 02000200020002000200020002000200 02000200 #15:MAIN SOUND 2800303A000450001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000