10 SCREEN0:KEYOFF:COLOR15,1,1:GOSUB25000:DEFINTA-Z:SCREEN 2,2,0 20 OPEN"GRP:"AS#1:GOSUB39900:GOSUB10011:GOSUB16000:GOTO17000 30 ZZ=USR1(0):GOSUB21095:GOSUB20005:GOSUB22001:GOSUB10000:GOSUB22130:GOSUB22150:GOSUB21100:VI=8:PT=0:SC=0:SK=0:GOSUB21110:TIME=0:ZZ=USR2(0) 40 VPOKE 6913,X:VPOKE6912,Y:VPOKE6914,2*4:VPOKE6915,15:STRIG(0)ON:STRIG(1)ON 50 GOTO70 59 '� rutina de salto 60 FORT=250TO100STEP-50:SOUND0,T:SOUND1,0:SOUND7,56:SOUND12,5:SOUND13,0:NEXT:STRIG(0)OFF:STRIG(1)OFF:SA=1:RETURN 61 Y=Y-V:IFY<110THENV=-V 64 IFY>145THENY=145:SA=0:STRIG(0)ON:STRIG(1)ON:V=-V:SOUND6,30:SOUND7,55:SOUND12,2:SOUND13,0 65 RETURN 70 P(0)=0*4:P(1)=1*4:P(2)=2*4:P(3)=3*4:P(4)=4*4:P(5)=5*4 72 '� setup 1 fase 73 F=1:GOSUB6150:X=230:Y=145:U=4:E=127:TK=1:H1=127:PS=P(2):GOSUB22120:LL=0:CN=1 90 PUTSPRITE0,(230,145),15,2:FORR=1TO1500:NEXT 92 IFTIME<2THEN92 93 TIME=0:SPRITEON:SOUND8,16 100 ONSTICK(0)ORSTICK(1)GOTO127,110,110,110,127,120,120,120 105 VPOKE6913,X:VPOKE6912,Y:VPOKE6914,PS:GOTO127 110 ONSAGOTO115:X=X+4:VPOKE6913,X:VPOKE6914,P(0):SWAPP(0),P(1):PS=P(1):GOTO127 115 X=X+4:VPOKE6913,X:VPOKE6912,Y:VPOKE6914,P(4):PS=P(0):GOTO127 120 ONSAGOTO125:X=X-4:VPOKE6913,X:VPOKE6914,P(2):SWAPP(2),P(3):PS=P(3):GOTO127 125 X=X-4:VPOKE6913,X:VPOKE6912,Y:VPOKE6914,P(5):PS=P(2):GOTO127 127 ONLLGOTO132 130 IFX<5THENGOSUB7998:LL=1:GOTO132 131 GOTO137 132 IFX<5THENX=5 137 ONCNGOTO141 140 IFX>230THENGOSUB8048:ZZ=USR3(0):SOUND8,16:CN=1 141 IFX>230THENX=230 150 ONSAGOSUB61 152 IFPOINT(X+8,Y+17)=1THENIFSA=0THEN11000 160 ONFGOSUB210,320,420,520,620,720,820,920,1020,1120,1220,1320,1420,1520 199 '� 1 210 PUTSPRITE10,(120,E),15,19:E=E-U:SOUND0,E:SOUND1,1:SOUND7,56:SOUND12,19:SOUND13,0:IFE>162ORE<90THENU=-U 216 RETURN100 299 ' � 2 310 X=230:Y=145:H1=127:H2=187:H3=67:E=162:U=4:J=120:B=1:GOSUB22120:FORR=1TO2000:NEXT 320 ONBGOTO330,325 325 PUTSPRITE10,(J,145),15,19:J=J+U:IFJ>220ORJ<20THENSOUND6,55:SOUND7,55:SOUND12,4:SOUND13,0:PUTSPRITE10,(J,E),15,12:FORR=1TO30:NEXT:PUTSPRITE10,(1,209):B=1:J=120:E=162 327 RETURN100 330 PUTSPRITE10,(120,E),15,19:SOUND0,E:SOUND1,1:SOUND7,56:SOUND12,5:SOUND13,0:E=E-2 340 IFE<145THENIFX=<127THENU=-4:B=2:GOTO360 350 IFE<145THENIFX=>127THENU=4:B=2 360 RETURN100 399 '� 3 410 RESTORE470:X=230:Y=145:J=48:E=165:H1=47:H2=100:GOSUB22120:GOSUB22121:H3=147:H4=200:GOSUB22122:GOSUB22123:FORR=1TO2000:NEXT 420 PUTSPRITE10,(J,E),15,19:PUTSPRITE11,(J+100,E),15,19:READJ,E:IFJ=42THENRESTORE470:SOUND6,1:SOUND7,55:SOUND12,15:SOUND13,5 440 RETURN 100 470 DATA48,165,55,170,60,170,65,170,70,170,75,170,80,170,85,165,90,160,92,155,94,150,94,145,94,140,90,135,85,130,80,125,75,120,70,120,65,120,60,125,55,130,50,135,45,140,40,142,37,145,37,150,39,155,42,160 499 '� 4 510 X=230:Y=145:H1=127:H2=47:H3=207:E=162:U=2:O=2:J=120:B=1:GOSUB22120:GOSUB22121:GOSUB22122:FORR=1TO2000:NEXT 520 ONBGOTO530,525 525 PUTSPRITE10,(J,E),15,19:J=J+U:E=E-O:IFJ>210ORJ<30THENPUTSPRITE10,(J,E),15,12:SOUND6,15:SOUND7,55:SOUND12,15:SOUND13,0:FORR=1TO30:NEXT:PUTSPRITE10,(1,209):B=1:J=120:E=162 527 IFE=<96ORE>140THENO=-O 528 IFE>140THENSOUND1,4:SOUND7,56:SOUND12,24:SOUND13,0 529 RETURN100 530 PUTSPRITE10,(J,E),15,19:E=E-2 540 IFE<146THENIFX=<127THENO=8:U=-2:B=2:GOTO560 550 IFE<146THENIFX=>127THENO=8:U=2:B=2 560 RETURN100 599 ' � 5 610 F=5:X=230:Y=145:E=162:J=108:C=135:H1=127:B=1:U=4:GOSUB22120:FORR=0TO2000:NEXT 620 ONBGOTO630,650,645 630 PUTSPRITE10,(120,E),8,21:E=E-1:SOUND6,31:SOUND7,55:SOUND12,5:SOUND13,0:IFE=145THENB=3 640 RETURN100 645 D=D+1:IFD>25THENB=2:D=0:SOUND6,20:SOUND7,55:SOUND12,20:SOUND13,0 646 RETURN100 650 PUTSPRITE11,(J,148),1,22:PUTSPRITE12,(C,148),1,23:J=J-U:C=C+U:IFC>220THENPUTSPRITE11,(1,209):PUTSPRITE12,(1,209):U=INT(RND(1)*1+5):J=108:C=135:B=3 660 RETURN100 699 '� 6 710 F=6:X=230:Y=145:J=120:E=162:H1=127:H2=77:H3=177:U=5:O=8:B=1:GOSUB22120:GOSUB22121:GOSUB22122:FORR=0TO2000:NEXT 720 ONBGOTO730,740,760,765 730 PUTSPRITE10,(J,E),4,11:E=E-2:SOUND6,E:SOUND7,55:SOUND12,3:SOUND13,0:IFE<140THENB=2:SOUND6,15:SOUND7,55:SOUND12,5:SOUND13,4 735 RETURN100 740 IFX=JTHENO=INT(RND(1)*4)+2:B=3:RETURN100 760 PUTSPRITE10,(J,E),4,11:J=J+O:E=E-U:IFE<90THENU=-U 762 IFE>145THENPUTSPRITE10,(J,E),8,12:SOUND6,25:SOUND7,55:SOUND12,30:SOUND13,0:FORR=1TO30:NEXT:PUTSPRITE10,(1,209):E=162:J=120:U=5:B=4 763 RETURN100 765 CO=CO+1:IFCO>20THENB=1:CO=0 770 RETURN100 799 '� 7 810 F=7:X=230:Y=145:E=160:D=146:H1=127:H2=85:H3=169:GOSUB22120:GOSUB22121:GOSUB22122:O=4:Q=26:W=27:G=10:J=8:CO=0:FORR=0TO2000:NEXT 820 PUTSPRITE10,(120,E),G,W:E=E-O:SWAPW,Q:SWAPG,J:IFE<144ORE>160THENO=-O:SOUND6,2:SOUND7,55:SOUND12,2:SOUND13,4 825 PUTSPRITE11,(78,D),J,Q:PUTSPRITE12,(160,D),J,Q:D=D+O 830 RETURN100 899 '� 8 910 F=8:X=230:Y=145:G=103:E=162:D=133:J=162:H1=108:H2=142:GOSUB22120:GOSUB22121:U=6:O=2:B=1:FORR=0TO2000:NEXT 920 ONBGOTO930,940,960 930 PUTSPRITE10,(G,E),4,11:E=E-O:PUTSPRITE11,(D,J),4,11:J=J-O:SOUND6,31:SOUND7,55:SOUND12,4:SOUND13,0:IFE<144THENB=2:O=8 935 RETURN100 940 PUTSPRITE10,(G,E),4,11:PUTSPRITE11,(D,J),4,11:E=E-O:G=G-U:D=D+U:J=J-O:IFE<90THENO=-O 950 IFE>145THENPUTSPRITE10,(G,E),8,12:PUTSPRITE11,(D,J),8,12:SOUND6,15:SOUND7,55:SOUND12,15:SOUND13,0:FORR=0TO25:NEXT:U=4:B=3 955 RETURN100 960 PUTSPRITE10,(G,E),4,14:PUTSPRITE11,(D,J),4,13:G=G+U:D=D-U:IFG>100THENPUTSPRITE11,(1,209):PUTSPRITE10,(120,145),8,12:FORR=0TO31:SOUND6,R:SOUND7,55:SOUND12,40:SOUND13,0:NEXT:PUTSPRITE10,(1,209):G=103:E=162:D=133:J=162:U=6:O=2:B=1 980 RETURN100 999 '� 9 1010 F=9:X=230:Y=145:J=110:D=115:E=90:B=1:H1=127:GOSUB22120:GOSUB1090 1020 ONBGOTO1024,1030,1040,1060 1024 SOUND8,16:SOUND1,3:SOUND6,4:SOUND7,50:SOUND12,50:SOUND13,0 1025 IFX>127THENB=2:D=124:RETURN100 1026 IFX=<127THENB=3:D=112:RETURN100 1027 RETURN100 1030 PUTSPRITE10,(D,E),10,28:E=E+3:D=D+2:IFE>162THENPUTSPRITE10,(1,209):E=90:B=4 1035 RETURN100 1040 PUTSPRITE10,(D,E),10,28:E=E+3:D=D-2:IFE>162THENPUTSPRITE10,(1,209):E=90:B=4 1050 RETURN100 1060 CO=CO+1:IFCO>20THENB=1:CO=0 1062 RETURN100 1090 PUTSPRITE14,(J,72),14,16:PUTSPRITE15,(J+16,72),14,17:PUTSPRITE16,(205,153),14,15:PUTSPRITE17,(43,153),14,15:RETURN 1099 '� 10 1110 F=10:X=230:Y=145:E=162:J=120:U=5:O=4:Q=7:W=8:D=9:K=10:B=1:H1=127:H2=40:H3=210:GOSUB22120:GOSUB22121:GOSUB22122:FORR=1TO2000:NEXT 1120 ONBGOTO1125,1130,1140,1150,1155,1160,1170 1125 IFX<127THENB=2:O=4:U=5:RETURN100 1126 IFX=>127THENB=5:O=4:U=5:RETURN100 1127 RETURN100 1130 GOSUB1190:PUTSPRITE10,(J,E),15,7:E=E-2:IFE<142THENB=3 1135 RETURN100 1140 PUTSPRITE10,(J,E),15,Q:J=J-O:E=E-U:SWAPQ,D:IFE<120ORE>140THENU=-U 1145 IFJ<36THENB=4 1146 IFE>140THENSOUND0,255:SOUND1,2:SOUND7,56:SOUND12,10:SOUND13,0 1147 RETURN100 1150 GOSUB1190:PUTSPRITE10,(J,E),15,7:E=E+2:IFE>162THENB=1:PUTSPRITE10,(1,209):J=120:E=162 1152 RETURN100 1155 GOSUB1190:PUTSPRITE10,(J,E),15,8:E=E-2:IFE<142THENB=6 1157 RETURN100 1160 PUTSPRITE10,(J,E),15,W:J=J+O:E=E-U:SWAPW,K:IFE<120ORE>140THENU=-U 1161 IFE>140THENSOUND0,255:SOUND1,2:SOUND7,56:SOUND12,10:SOUND13,0 1165 IFJ>200THENB=7 1167 RETURN100 1170 GOSUB1190:PUTSPRITE10,(J,E),15,8:E=E+2:IFE>162THENB=1:PUTSPRITE10,(1,209):J=120:E=162 1182 RETURN100 1190 SOUND6,3:SOUND7,55:SOUND12,7:SOUND13,0:RETURN 1199 '� 11 1210 F=11:X=230:Y=145:J=120:E=100:C=92:Q=7:W=8:D=9:K=10:U=8:O=2:H1=127:H2=67:H3=187:B=1:H=1:GOSUB22120:GOSUB22121:GOSUB22122:GOSUB1290:FORR=0TO2000:NEXT 1215 IFTIME<2THEN1215 1217 TIME=0 1220 ONHGOTO1222,1225 1222 PUTSPRITE10,(J,E),15,Q:J=J-O:E=E+U:SWAPQ,D:IFJ<50THENO=-O:H=2 1223 GOTO1230 1225 PUTSPRITE10,(J,E),15,W:J=J-O:E=E+U:SWAPW,K:IFJ>190THENO=-O:H=1 1230 IFE<100ORE>140THENU=-U 1231 IFE>140THENSOUND0,255:SOUND1,2:SOUND7,56:SOUND12,10:SOUND13,0 1240 ONBGOTO1250,1260 1250 IFX<127THENB=2:C1=20:GOSUB1270:RETURN100 1255 IFX>=127THENB=2:C1=215:GOSUB1270:RETURN100 1260 PUTSPRITE11,(C1,C),10,28:C=C+4:IFC>160THENPUTSPRITE11,(1,209):B=1:C=92 1262 RETURN100 1270 SOUND1,3:SOUND6,4:SOUND7,50:SOUND12,50:SOUND13,0:RETURN 1290 PUTSPRITE14,(10,72),14,16:PUTSPRITE15,(26,72),14,17:PUTSPRITE16,(210,72),14,16:PUTSPRITE17,(226,72),14,17:RETURN 1299 ' � 12 1310 F=12:X=230:Y=145:J=127:Q=6:W=30:U=5:O=3:D=100:B=0:H1=67:K=160:H2=197:LINE(87,161)-(177,163),0,B:GOSUB22120:GOSUB22121:RESTORE1380:FORR=0TO2000:NEXT 1320 ONBGOTO1330 1325 PUTSPRITE10,(J,150),14,Q:SWAPQ,W:J=J+U:SOUND0,J+90:SOUND1,3:SOUND7,56:SOUND12,3:SOUND13,0:IFJ<90ORJ>155THENU=-U 1327 B=1:RETURN100 1330 READE:IFE=68THENRESTORE1380 1340 PUTSPRITE11,(E-7,K),14,W:PUTSPRITE12,(E+122,D),14,Q:K=K-O:D=D+O:IFK<100ORK>160THENO=-O 1350 B=0:RETURN100 1380 DATA67,65,63,61,60,61,63,65,67,69,71,73,74,75,74,73,71,69,68 1399 '�13 1410 X=230:Y=145:U=5:O=1:J=120:E=162:B=1:H1=127:GOSUB22120:FORR=0TO2000:NEXT 1420 ONBGOTO1430,1435,1440,1450 1430 PUTSPRITE10,(J,E),10,31:E=E-2:SOUND6,31:SOUND7,55:SOUND12,4:SOUND13,0:IFE<140THENB=2 1432 RETURN100 1435 IFX<=127THENQ=33:W=34:B=3:RETURN100 1437 IFX>127THENQ=31:W=32:B=4 1438 RETURN100 1440 PUTSPRITE10,(J,E),1,Q:SWAPQ,W:J=J-U:SOUND1,4:SOUND6,9:SOUND7,50:SOUND12,2:SOUND13,0:IFJ<20THENPUTSPRITE10,(J,E),8,27:GOSUB1460:FORR=1TO50:NEXT:PUTSPRITE10,(1,209):J=120:E=162:B=1 1442 RETURN100 1450 PUTSPRITE10,(J,E),1,Q:SWAPQ,W:J=J+U:SOUND1,4:SOUND6,4:SOUND7,50:SOUND12,2:SOUND13,0:IFJ>230THENPUTSPRITE10,(J,E),8,27:GOSUB1460:FORR=1TO50:NEXT:PUTSPRITE10,(1,209):J=120:E=162:B=1 1452 RETURN100 1460 SOUND6,20:SOUND7,55:SOUND12,20:SOUND13,0:RETURN 1499 '� 14 1510 X=230:Y=145:J=72:E=162:D=95:Q=31:W=32:K=33:L=34:U=5:O=5:B=1:H1=80:H2=170:GOSUB22120:GOSUB22121:FORR=0TO2000:NEXT 1520 ONBGOTO1530,1535 1530 PUTSPRITE10,(J,E),1,Q:E=E-4:SOUND6,1:SOUND7,55:SOUND12,2:SOUND13,0:IFE<80THENC=(J+8):B=2 1532 RETURN100 1535 PUTSPRITE10,(J,E),1,W:J=J+U:SWAPW,Q:SOUND1,4:SOUND6,4:SOUND7,50:SOUND12,2:SOUND13,0:IFJ>230ORJ<20THENU=-U:SWAPQ,K:SWAPW,L 1540 PUTSPRITE11,(C,D),4,22:D=D+8:IFD>150THENPUTSPRITE11,(C,D),10,12:SOUND6,31:SOUND7,55:SOUND12,20:SOUND13,0:FORR=1TO30:NEXT:PUTSPRITE11,(1,209):D=95:C=(J+8) 1550 RETURN100 1600 ' � final 1610 H1=127:GOSUB22120:PSET(121,160):DRAW"c8feh":PSET(131,160):DRAW"c8feh" 1620 FORX=230TO150STEP-2:VPOKE6913,X:VPOKE6912,145:VPOKE6914,P(2):SWAPP(2),P(3):FORT=0TO100:NEXT:NEXT 1630 SOUND8,16:SOUND6,22:SOUND7,55:SOUND12,210:SOUND13,0:A=8:B=10:FORR=0TO100:PUTSPRITE10,(120,RND(1)*20+130),A,12:SWAPA,B:NEXT 1640 PUTSPRITE10,(1,209):FORR=0TO3000:NEXT:LINE(110,145)-(140,170),12,BF 1645 SOUND8,16:SOUND9,16:SOUND10,16:SOUND1,2:SOUND3,3:SOUND5,4:SOUND7,56:SOUND12,150:SOUND13,0:FORR=0TO2000:NEXT 1650 FORR=140TO141:COLOR1:PRESET(92,R):PRINT#1,"THE END":NEXT:GOSUB16058:FORR=0TO30:PUTSPRITER,(1,209):NEXT:CLS:ERASEP:GOTO17000 5999 '� colision sprites 6000 SPRITEOFF:STRIG(0)OFF:STRIG(1)OFF:SA=0:SOUND7,56:FORR=15TO0STEP-1:FORT=250TO0STEPR-30:SOUND0,T:SOUND1,1:SOUND12,4:SOUND13,0:VPOKE6914,20*4:VPOKE6915,R:NEXT:NEXT:PUTSPRITE0,(1,209):FORR=10TO15:PUTSPRITER,(1,209):NEXT:GOSUB6050 6010 IFTIME<2THEN6010 6020 TIME=0:RETURN11010 6049 '� RESTA VIDAS/GAME OVER 6050 VI=VI-1:LINE(224,8)-(255,15),1,BF:COLOR11:PRESET(224,8):PRINT#1,VI:IFVI=0THENCOLOR15:PRESET(90,130):PRINT#1,"GAME OVER":GOSUB16060:FORR=0TO8000:NEXT:FORR=0TO30:PUTSPRITER,(1,209):NEXT:CLS:ERASEP:GOTO17000 6060 RETURN 6099 '� PUNTUACION 6100 SK=(TIME/50):SC=200-SK 6110 IFSC<=0THENSC=0 6120 PT=PT+SC:VX=VX+SC:LINE(48,8)-(95,15),1,BF:COLOR11:PRESET(48,8):PRINT#1,PT 6130 IFVX>600THENGOSUB6170:VX=0 6140 RETURN 6149 '� VIDA EXTRA 6150 LINE(140,8)-(160,15),1,BF:COLOR11:PRESET(140,8):PRINT#1,F:RETURN 6170 FORR=0TO240:PUTSPRITE17,(R,0),13,35:NEXT 6175 FORT=15TO0STEP-1:SOUND8,T:FORR=200TO10STEP-20:SOUND0,R:SOUND2,R:SOUND1,0:SOUND7,56:SOUND12,5:SOUND13,0:FORM=0TO5:NEXT:NEXT:NEXT 6180 VI=VI+1:LINE(224,8)-(240,15),1,BF:PRESET(224,8):PRINT#1,VI:FORR=0TO1500:NEXT:RETURN 7997 ' � coger llave 7998 SOUND8,16:FORR=255TO100STEP-25:SOUND0,R:SOUND1,1:SOUND7,56:SOUND12,5:SOUND13,0:NEXT 8000 IFTK=1THENLINE(0,127)-(7,135),9,BF:DR=1:CN=0:RETURN 8010 IFTK=2THENLINE(0,136)-(7,143),9,BF:DR=2:CN=0:RETURN 8020 IFTK=3THENLINE(0,144)-(7,151),9,BF:DR=3:CN=0:RETURN 8030 RETURN 8047 '� abre candado 8048 SOUND8,16:FORR=200TO40STEP-40:SOUND0,R:SOUND1,0:SOUND7,56:SOUND12,15:SOUND13,0:NEXT 8050 IF DR=1THENGOSUB8100:TK=2:LL=0:RETURN 8060 IF DR=2THENGOSUB8102:TK=3:LL=0:RETURN 8070 IF DR=3THENGOSUB8104:LL=0:FORR=0TO3000:NEXT:GOSUB6100:STRIG(0)ON:STRIG(1)ON:GOSUB15000:PS=P(2):V=5:SOUND8,16:ONFGOTO73,310,410,510,610,710,810,910,1010,1110,1210,1310,1410,1510,1610:RETURN 8080 RETURN 8099 ' � TILE CANDADO ABIERTO 8100 LINE(248,128)-(255,135),9,BF:DRAW"BM249,135C1R5UL5UR5U3HL3G":RETURN 8102 LINE(248,136)-(255,143),9,BF:DRAW"BM249,143C1R5UL5UR5U3HL3G":RETURN 8104 LINE(248,144)-(255,151),9,BF:DRAW"BM249,151C1R5UL5UR5U3HL3G":RETURN 8130 GOTO8130 10000 '�variables generales 10010 DIM P(8):X=230:Y=145:V=5:SA=0:VX=0:PT=0:SC=0:ONSTRIGGOSUB60,60:ONSPRITEGOSUB6000 10011 DEFUSR1=&H41:DEFUSR2=&H44:DEFUSR3=&H90:RETURN 10999 '� caida al hoyo 11000 SPRITEOFF:STRIG(0)OFF:STRIG(1)OFF:IFX+8>H1-15ANDX+8H2-15ANDX+8H3-15ANDX+8H4-15ANDX+8