PX=0 PY=0 PXS=0 PYS=0 HITS=-1 FOR I=1 TO 3 SPRITE.A I+1,(3) SPRITE.A I+11,(3) NEXT I FOR I=1 TO 4 SPRITE.A I+4,(2) SPRITE.A I+14,(2) NEXT I FOR I=1 TO 3 SPRITE.A I+8,(4) SPRITE.A I+18,(4) NEXT I BG 0 BG COPY 0,0,32,32 TO 128,160 RANDOMIZE TIMER RESE: GAMEPAD 1 FRIC=0.01 GRAV=0.05 PXS=0 PYS=0 PY=111 PX=1 DD=0.25 CS=0 CD=0 SPRITE 0,PX,PY,1 DX=10 DY=14 DDX=1 NEXX: HITS=HITS+1 PXS=0 PYS=0 CS=0 DO CLS BG 0 BG COPY 0,0,32,32 TO 128,160 CELL DX,DY,15 PRINT PRINT PRINT HITS SPRITE OFF 1 TO 63 FOR I=1 TO PXS*4 SPRITE I+1,(I*2)-2,0,14 NEXT I FOR I=1 TO PYS*4 SPRITE I+11,(I*2)-2,8,14 NEXT I IF CS=0 THEN IF CD<0 THEN PXS=PXS+DD IF CD<0 THEN CD=10 IF PXS>2.25 THEN DD=-0.25 IF PXS<0.25 THEN DD=0.25 END IF IF CS=1 THEN IF CD<0 THEN PYS=PYS+DD IF CD<0 THEN CD=10 IF PYS>2.25 THEN DD=-0.25 IF PYS<0.25 THEN DD=0.25 END IF IF BUTTON TAP(0) THEN CS=CS+1 IF BUTTON TAP(0) AND CS=2 THEN GOTO NEX CD=CD-1 WAIT VBL LOOP NEX: PYS=PYS*1.3 DO SPRITE 0,PX,PY,1 IF CELL.C((PX+4)\8,PY\8)=15 THEN PXS=-PXS PX=PX+PXS PY=PY-PYS PYS=PYS-GRAV IF PY>114 AND PX<131 AND PX>127 THEN GOTO WIN IF PY>114 THEN PYS=PYS-PYS-PYS/1.5 IF PY>114 THEN PXS=PXS/1.5 IF PY>114 THEN PY=111 IF PX>148 THEN PXS=PXS-PXS-PXS IF PX>148 THEN PX=147 IF PX<0 THEN PXS=PXS-PXS-PXS IF PX<0 THEN PX=1 IF PXS>-0.1 AND PXS<0.1 AND PY>113 AND PYS>-1 AND PYS<1 THEN GOTO NEXX WAIT VBL LOOP WIN: HITS=HITS+1 BG 0 BG COPY 0,0,32,32 TO 128,160 PRINT "YOU WIN" PRINT "HOLE IN",HITS IF HITS=1 THEN FOR I=1 TO 63 SPRITE I,,,16 NEXT I FOR I=1 TO 360 FOR SPR=1 TO 63 SPRITE SPR,RND(159),RND(127), NEXT SPR WAIT VBL NEXT I FOR I=1 TO 63 SPRITE I,,, NEXT I END IF WAIT 60 HITS=0 GOTO RESE #1:MAIN PALETTES 0B3F3000002C3C00003C0C0000303C00 000C2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000183C3C180000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF3C18000000000000 08080808080808080000000000000000 00000000000000000000000000000000 08080808080808080707070707000000 000000000000000080F0FCF080000000 00000000003C7EFF0000000000000000 00000000387EFFFF0000000000000000 000000000000307C0000000000000000 00000000000C1C3E0000000000000000 0000000000387EFF0000000000000000 000000001C7EFFFF0000000000000000 000000C0C00000000000000000000000 0018183C3C7E7E420018183C3C7E7E42 00000012000000000000000200000800 #3:MAIN BG 000014100000000000000A0000000000 0000000000000A000000000000000000 0C000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000800000000000000 0000000009000000000000000C000000 00000000080000000000000000000000 000000000D0000000000000000000000 00000000000000000000000000000000 000000000C0000000000000000000000 000000000B0000000000000000000000 0D0000000B00000000000C0000000000 0000000000000A000000000000000000 000000000A0000000000000000000000 0000000000000B000000000000000000 0000000000000D000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000006000700 00000000000000000000000000000000 00000000000000000000000000000000 00000000040000000000000002010201 02010201020102010201020102010201 02010201020102010201020103010201 02010201