RANDOMIZE TIMER DIM GLOBAL MAP(255,15) FOR X=0 TO 200 MAP(X,15)=1 MAP(X,14)=1 IF RND(10)=0 AND X>5 THEN YEND=12-RND(2) MAP(X+1,14)=1 MAP(X+1,15)=1 FOR Y=13 TO YEND+1 STEP -1 MAP(X,Y)=5 MAP(X+1,Y)=6 NEXT Y MAP(X,YEND)=3 MAP(X+1,YEND)=4 INC X END IF NEXT X FOR X=0 TO 20 FOR Y=0 TO 15 M=MAP(X,Y) IF M>=3 THEN PAL 1 ELSE PAL 0 CELL X,Y,MAP(X,Y) NEXT Y NEXT X ' SPRITE TO CELL CHECK CODE BY TIMO ' PURPER CODE BY WAS8BIT GLOBAL MAPX,SCRX,POSX,POSY MAPX=0 POSX=80 POSY=64 SCRX=0 MAPWIDTH=235 GAMEPAD 1 SPRITE 0,POSX,POSY,1 SPRITE 0 PAL 2 R=0 G=0.1 DO 'MOVE PLAYER IF LEFT(0) THEN CALL CHECKCOLL(POSX-1,POSY,R) IF R AND POSX>0 THEN POSX=POSX-1 END IF IF RIGHT(0) THEN CALL CHECKCOLL(POSX+1,POSY,R) IF R THEN IF POSX<80 THEN POSX=POSX+1 ELSE CALL DRAWMAP END IF END IF END IF IF POSY<119 AND BUTTON(0,0) THEN CALL CHECKCOLL(POSX,POSY+1,R) IF NOT R THEN DY=-3 END IF DY=DY+G IF DY>1 THEN DY=1 IF POSY+DY<120 THEN CALL CHECKCOLL(POSX,POSY+DY,R) IF R THEN POSY=POSY+DY END IF SPRITE 0,POSX,POSY,16 WAIT VBL LOOP ' TIMO'S CODE... 'X,Y: PLAYER POSITION IN PIXELS 'R IS SET TO TRUE IF NO COLLISION WITH MAP SUB CHECKCOLL(XX,YY,R) 'CHECK ALL CORNERS X=XX+SCRX Y=YY R=-1 CALL CHECKCELL(X\8,Y\8,R) CALL CHECKCELL((X+7)\8,Y\8,R) CALL CHECKCELL(X\8,(Y+7)\8,R) CALL CHECKCELL((X+7)\8,(Y+7)\8,R) END SUB SUB CHECKCELL(X,Y,R) C=CELL.C(X,Y) IF C<>0 THEN R=0 END IF END SUB SUB DRAWMAP INC SCRX IF SCRX=8 THEN 'DRAW COMPLETE SCREEN 'IF SCROLL DISTANCE IS BIG INC MAPX TRACE MAPX FOR X=0 TO 20 FOR Y=0 TO 15 M=MAP(MAPX+X,Y) IF M>=3 THEN PAL 1 ELSE PAL 0 CELL X,Y,M NEXT Y NEXT X SCRX=0 SCROLL 0,0,0 ELSE SCROLL 0,SCRX,0 END IF END SUB #1:MAIN PALETTES 1B382400000C080000231200003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FF8D8FFFFDB1B1FF007B7B7D136F6FFF FF4444FF111111FF00FFFFFFFFFFFFFF FFCCCCCCCCCCFFFFFFB3B3B3B3B3FFFF FF0303030303FFFFFFFDFDFDFDFDFFFF 6C6C6C6C6C6C6C6C5353535353535353 0606060606060606FAFAFAFAFAFAFAFA 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C42B1B18181423C3C7ECFCFFFFF7E3C FFFFEFCA40110004FFFFFFFFFFEEFFFB 0002200000024000FFFDDFFFFFFDBFFF 003C6666663C00000000180000423C00 00003C3C3C420066383E28207E3C3C66 00003CBD3C818100383E28623CFDBF00 00003C3CBD010160383E28207E3D7F60 00003C3C1C100036383E28203C2C3C36 00003C3C3C22404C383E28203C1C7C4C #3:MAIN BG 00008020000000000000000000000000 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 00000402040204020402000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000040204020402000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000201020102010201000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000010001000100000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000201020102010201020100000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000301030103010301000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000010001000100000201 02010000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000301030103010301030100000000 00020402040204020000000000000000 00000000000000000000000000000000 00000402040204020000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000301030103010301000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000040204020000000000000000 00000000020102010201000100000301 03010000000000000000000000000000 00000000000000000000000000000000 00000000000004020402040204020000 00000000000000000000000000000000 00000301030103010301030100000000 00000201020102010000000000000000 00000000000000000000000000000000 00000201020102010000020102010201 02010201000000000000040200000000 00000000000000000000000000000000 00000000000000000000000002010201 02010301030103010301000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000201020102010201000000000000 00000000030103010301000100000000 00000000000100010001000100010000 00000000000000000000000000000000 00000000000002010201020102010000 00000000000000000201020102010000 00000301030103010301030100000000 00000301030103010000000000000402 04020402040200000000000000000000 00000301030103010000030103010301 03010301000000000201020102010000 00000000000000000000000000000000 00000000000000000000000003010301 03010301030103010301020102010000 00000000000000000000000000000000 00000000000000000000000000000000 00000301030103010301000000000000 00000000030103010301000100000000 00000000000100010001040204020402 00000000020102010201000000000000 00000000000003010301030103010000 00000000000000000301030103010402 04020301030103010301030100000000 00000301030103010000000002010201 02010201020102010000000000000000 00000000000000000000030103010301 03010301000100010301030103010000 00000000040204020000000000000000 00000201020102010201020103010301 03010301030103010301030103010000 00000000000000000000000000000000 04020402040204020000000000000000 00000301030103010301000000000402 04020000030103010301020102010201 02010201020102010201020102010201 02010201030103010301000000000000 00000000000000000000000000000000 00000000000000000301030103010201 02010301030103010301030100000000 00000000000000000000000003010301 03010301030103010201000000000000 00000000000000000000030103010301 03010301000100010001000100000000 00000201020102010201000000000000 00000301030103010301030103010301 03010301030103010301030103010201 02010201020102010000000000000201 02010201020102010201000000000000 00010001000103010301020102010201 02010201030103010301030103010301 03010301030103010301030103010301 03010301030103010301000000000000 02010201020102010201020102010201 02010001000000000301030103010301 03010301030103010301030102010201 02010000000000000000000003010301 03010301030103010301000000000000 02010201020102010201030103010001 00010001000100010001000100000000 00000301030103010301000000000000 00000301030103010301030103010301 03010301030103010301030103010301 03010301030103010000000000000301 03010301030103010301000000000001 00010001000103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301020102010201 03010301030103010301030103010301 03010001000100010301030103010301 03010301030103010301030103010301 03010201020102010201020103010301 03010301030103010301000000000000 03010301030103010301030103010001 00010001000100010001020102010201 02010301030103010301020102010201 02010301030103010301030103010301 03010301030103010301030103010301 03010301030103010201020102010301 03010301030103010301020100010001 00010001000103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010001000100010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301020102010201 03010301030103010301000100010001 00010001020102010201030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030102010201 00010001000103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010001000100010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301000100010001 02010201030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 00010001000103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010001000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000100010001 03010301030103010301030103010000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000301030103010301 00000000000000000301030103010301 03010301000000000000000000000000 00000000000003010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010001000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000100000000 00000000000003010301030103010000 00000000000000000000000000000000 00000000000000000001000100010001 00010001000000000301030103010301 00000000000000000301030103010301 03010301000000000000000000000000 00000000000003010301030103010301 03010301030100000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 03010301030103010301030103010301 03010000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000100000000 00000000000003010301030103010000 00000000000000000000000000000000 00000000000000010001000100010001 00010001000100010301030103010301 00000000000000000301030103010301 03010301000000000000020102010201 02010201020103010301030103010301 03010301030100000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 03010301030103010301000000000000 00000000000000000201020102010201 02010201020102010201020100000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000020102010201 02010201020103010301030100000000 00000000000000000000000000000000 00000000000002010201020102010201 02010201020102010301030103010301 00000000000000000301030103010301 03010301000000000000030103010301 03010301030103010301030103010301 03010301030100000000000000000402 04020402000000000000000000000000 00000000000000000000000000000000 03010301030103010301000000000000 00000000000000000301030103010301 03010301030103010301030102010201 02010201000000000000000000000201 02010201020102010000000000000201 02010201020102010201030103010301 03010301030103010301030100000000 00000000000000000000000000000000 00000000020103010301030103010301 03010301030103010301030103010301 04020402000000000000000000000000 00000000000000000000030103010301 03010301030103010301030103010301 03010301030100000000000000000201 02010201000000000000000000000000 00000000000000000000000000000000 03010301030100000000000000000002 00000000000000000000000000000000 03010301030103010301030103010301 03010301000000000000000000000301 03010301030103010000000000000301 03010301030103010301030103010301 03010301030103010301030100000000 00000000000002010201020102010201 02010201030103010301030103010301 03010301030103010301030103010301 02010201000000000000000000000000 00000000000000000000000000000000 00000301030103010301030103010301 03010301030100000000000000000301 03010301000000000000000000000000 00000000000000000000000000000000 03010301030100000402040204020402 00000000000000000000000000000000 00000000000000000000030103010301 03010301020102010201020102010301 03010301030103010000000000000301 03010301030103010301030103010301 03010301030103010301030100000000 00000000000003010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301000000000201020102010201 02010000000000000000000000000000 00000000000000000000030103010301 03010301030100000000000000000301 03010301000000000000000000000000 00000000000000000000000000000000 03010301030102010201020102010201 02010201020102010201000000000000 00000000000000000000030103010301 03010301030103010301030103010301 03010301030103010201020102010301 03010301030103010301030103010000 00000000000000000000000000000000 00000000000003010301030103010301 03010301030103010301000000000000 00000000000000000000000000000000 00000000000000000301030103010301 03010000000000000000000000000000 00000000000000000000030103010301 03010301030100000000000000000301 03010301020102010201020102010201 02010000000000000000000000000000 03010301030103010301030103010301 03010301030103010301000000000000 00000000000000000000030103010301 03010301030103010301030103010301 03010301030103010301030103010301 00000000000000000000000000000000 00000000000000000000000000000000 00000000000003010301030103010301 03010301030103010301000000000000 00000000000000000000000000000000 00000000000000000301030103010301 03010000000000000000000000000000 00000000000000000000030103010301 03010301030100000000000000000301 03010301030103010301030103010301 03010000000004020402040200000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000301030103010301030100000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000030103010301 03010301030103010301040204020402 04020000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000002010201 02010000000000000000000000000000 03010301030100000000000000000001 00000000000000000000030103010301 03010000000002010201020100000000 00000000000000000000000000000000 00000000000000000000000000000201 02010201020100000000000000000000 00000301030103010301030100000000 00000000000000000000000000000000 04020402040204020000000000000000 00000000000000000000000000000000 00000000000000000000030103010301 03010301030103010301020102010201 02010201000000000000000002010201 02010201000000000000000000000000 00000000020102010201020103010301 03010000000000000000000000000000 03010301030100000000000000000001 00000000000000000000030103010301 03010000000003010301030100000000 00000000000000000000000000000000 00000000000000000000000000000301 03010301030100000000040204020402 04020301030103010301030100000000 00000000000000000201020102010201 02010201020102010201020102010000 00000000000002010201020102010201 02010000000000000000030103010301 03010301030103010301030103010301 03010301000000000000000003010301 03010301000000000000000000000000 00000000030103010301030103010301 00000000000000000000000000000000 03010301030100000000000000000402 04020402040204020402030103010301 03010000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000020102010201 02010301030103010301030100000000 00000000000000000301030103010301 03010301030103010301030103010000 00000000000003010301030103010301 03010402040204020402030103010301 03010301030103010301030103010301 03010301000000000000000000000000 00000000000000000000020102010201 02010201030103010301030103010301 00000000020102010201000000000000 03010301030102010201020102010201 02010201020102010201030103010301 03010000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000030103010301 03010301030103010301030102010201 00000000000000000000000000000000 00000000000000000000000000000000 00000000000003010301030103010301 03010201020102010201030103010301 03010301030103010000000000000000 00000000000000000000000000000000 00000000000000000000030103010301 03010301030103010301030103010301 02010201030103010301040204020402 03010301030103010301030103010301 03010301030103010301030103010301 03010201020102010201020102010201 02010201020102010201020102010201 02010201020102010201020102010201 02010201020102010201030103010301 03010301030103010301030103010301 02010000000000000000000000000000 00000000000000000000000000000000 02010201020103010301030103010301 03010301030103010301030103010301 03010000000000000000000000000000 00000000000000000000000000000000 00000000000000000000030103010301 03010301030103010301030103010301 03010301030103010301020102010201 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010000000000000000000000000000 00000000000000000000000000000000 03010301030103010301030103010301 03010301030103010301030103010301 03010000000000000000000000000000 00000000000000000000020102010201 02010201020102010201030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010201020102010201020102010201 02010201020102010201020102010201 03010301030103010301030103010301 03010301030103010301030103010301 03010000000002010201020102010201 02010201020102010201030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010000000003010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301030103010301030103010301 03010301