1 REM IN=INTENTOS RK=ROOM KILLER EP=ESTADO PISTAS 0-decir-lugar 1-decir-sexo 2-decir-color 3-decir-chorradas 57
5 GOSUB 3700: GOSUB 3750
6 CLEAR 4000
10 DEFINTA-Z:DEFUSR1=&H41:DEFUSR2=&H44: SCREEN1,,0:COLOR11,1,1:KEYOFF: NIVEL=1:EP=0
15 VPOKE8200,&H81: VPOKE8201,&H21: VPOKE8202,&H51: VPOKE8203,&HA1: VPOKE8197,&HEF
20 AD=ASC("X")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,127,93,119,107,42,28,28: REM HEAD H
25 AD=ASC("Y")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA199,195,62,107,127,127,54,28: REM HEAD M
30 AD=ASC("Z")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA28,30,127,30,21,30,18,12: REM HEAD YO DCHA
31 AD=ASC("[")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,127,93,119,107,42,28,28: REM HEAD H KILLER
32 AD=ASC("\")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA199,195,62,107,127,127,54,28: REM HEAD M KILLER
33 AD=ASC("]")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA56,120,254,120,168,120,72,48: REM HEAD YO IZQ
34 REM ROJO
35 AD=ASC("A")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,191,99,163,119,177,94,46: REM BODY H
40 AD=ASC("B")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA94,191,95,173,29,173,28,44: REM BODY M
45 AD=ASC("C")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA50,123,218,191,218,235,126,62: REM BODY YO
50 AD=ASC("D")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,22,54,22,54,22,54,54: REM PIES H
55 AD=ASC("E")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA60,94,62,95,191,95,191,223: REM PIES M
60 AD=ASC("F")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,22,54,22,54,22,54,54: REM PIES YO
61 AD=ASC("G")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA76,222,91,253,91,215,126,124: REM PIES YO dcha
64 REM VERDE
65 AD=ASC("H")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,191,99,163,119,177,94,46: REM BODY H
70 AD=ASC("I")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA94,191,95,173,29,173,28,44: REM BODY M
75 AD=ASC("K")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,22,54,22,54,22,54,54: REM PIES H
80 AD=ASC("L")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA60,94,62,95,191,95,191,223: REM PIES M
81 AD=ASC("M")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA124,104,108,104,108,104,108,108: REM PIES yo IZQ
82 AD=ASC("N")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,22,54,22,54,22,54,54: REM PIES yo DCHA
84 REM AZUL
85 AD=ASC("P")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,191,99,163,119,177,94,46: REM BODY H
90 AD=ASC("Q")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA94,191,95,173,29,173,28,44: REM BODY M
95 AD=ASC("S")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,22,54,22,54,22,54,54: REM PIES H
100 AD=ASC("T")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA60,94,62,95,191,95,191,223: REM PIES M
105 REM BALDOSAS
110 AD=ASC("(")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA36,60,36,231,36,60,231,36: REM baldosa cocina
111 AD=ASC(")")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA0,126,66,90,86,80,223,0: REM baldosa salon
112 AD=ASC("O")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA8,62,103,203,135,175,87,46: REM baldosa jardin
113 AD=ASC("U")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA5,80,0,8,80,0,11,0: REM baldosa jardin
115 REM-----CAGAR FUENTES---------
116 GOSUB 3130
120 REM------DECIDIR KILLER-------
121 IF NIVEL=16 THEN GOTO 3600
122 GOSUB 2600
125 CLS: LOCATE10,10:PLAY"V11O4E13F13G13A13O5C7","V9O3G13E13F13B13O4G5":PRINT "nivel";NIVEL: DELAY=2000:GOSUB 2220: ROOM=1:S=1: X=10:Y=10: RK=RND(-TIME)*3: EP=0: IN=54
170 REM APAGAR PANTALLA---------
175 LL=USR1(0)
179 CLS
180 IF ROOM=0 THEN GOSUB 2500: REM DIBUJA COCINA
185 IF ROOM=1 THEN GOSUB 2530: REM DIBUJA SALON
190 IF ROOM=2 THEN GOSUB 2560: REM DIBUJA JARDIN
195 VPOKE(6144+32*1+29),IN
200 REM -----------------------------------
205 K=NIVEL
210 IF ROOM=RK THEN K=K-1: REM si estoy en la rk dibujar 1 npc menos
220 FOR N=0 TO K
230 RX = RND(TIME)*24+3
240 RY = RND(-TIME)*16+1
250 VPOKE(6144+32*RY+RX),88
260 RY=RY+1
261 RC=RND(-TIME)*3
262 IF RC=0 THEN RF=65
263 IF RC=1 THEN RF=72
264 IF RC=2 THEN RF=80
270 VPOKE(6144+32*RY+RX),RF
280 RY=RY+1
281 RC=RND(-TIME)*3
282 IF RC=0 THEN RF=68
283 IF RC=1 THEN RF=75
284 IF RC=2 THEN RF=83
290 VPOKE(6144+32*RY+RX),RF
300 NEXT N
310 REM -------------------
320 FOR N=0 TO NIVEL
330 RX = RND(TIME)*24+3
340 RY = RND(-TIME)*16+1
350 VPOKE(6144+32*RY+RX),89
360 RY=RY+1
361 RC=RND(-TIME)*3
362 IF RC=0 THEN RF=66
363 IF RC=1 THEN RF=73
364 IF RC=2 THEN RF=81
370 VPOKE(6144+32*RY+RX),RF
380 RY=RY+1
381 RC=RND(-TIME)*3
382 IF RC=0 THEN RF=69
383 IF RC=1 THEN RF=76
384 IF RC=2 THEN RF=84
390 VPOKE(6144+32*RY+RX),RF
400 NEXT N
510 REM-----PONER KILLER----------
511 IF ROOM<>RK THEN GOTO 600
515 RX = RND(TIME)*24+3
520 RY = RND(-TIME)*16+1
525 VPOKE(6144+32*RY+RX),KHF: REM KILLER HEAD FINAL
530 RY=RY+1
535 VPOKE(6144+32*RY+RX),KBF: REM KILLER BODY FINAL
540 RY=RY+1
545 VPOKE(6144+32*RY+RX),KPF: REM KILLER PIES FINAL
550 REM----MOSTRAR PANTALLA--------
600 LL=USR2(0)
610 REM----------------------------
620 D=STICK(0)
625 IF D=1 THEN GOSUB 2170
660 IF D=3 THEN GOSUB 2000: S=0
680 IF D=5 THEN GOSUB 2140
700 IF D=7 THEN GOSUB 2070: S=1
720 IF S=0 THEN VPOKE(6144+32*Y+X),90:VPOKE(6144+32*(Y+1)+X),67:VPOKE(6144+32*(Y+2)+X),78
721 IF S=1 THEN VPOKE(6144+32*Y+X),93:VPOKE(6144+32*(Y+1)+X),71:VPOKE(6144+32*(Y+2)+X),77
725 IF X<2 THEN ROOM=ROOM-1:GOTO 175
726 IF X>27 THEN ROOM=ROOM+1:GOTO 175
727 RA=RND(-TIME)*800: IF RA=1 THEN PLAY "v4c1c1", "v9b15r5b15r5b15r5b15r5b15", "r10v4r3b15r5b15r5b15r5b15r5b15r5b15r5b15r5b15"
728 IF RA=2 THEN PLAY "v4d1d1", "v9b15r5b15r5b15r5b15r5b15", "r10v4r3b15r5b15r5b15r5b15r5b15r5b15r5b15r5b15"
729 IF RA=3 THEN PLAY "v4e1e1", "v9b15r5b15r5b15r5b15r5b15", "r10v4r3b15r5b15r5b15r5b15r5b15r5b15r5b15r5b15"
730 GOTO 620
2000 REM CHECK X+1 -------------------
2005 VP=VPEEK(6144+32*Y+X+1): IF VP=91 OR VP=92 THEN LOCATE0,21:PRINT"mas pillao fui yo!": PLAY"v13O3A3","R10v11O5G3","R5v11O6C3":DELAY=2000:GOSUB 2220:NIVEL=NIVEL+1:GOTO 120
2006 IF VP=88 OR VP=89 THEN GOSUB 2280
2010 IF VP=85 THEN MX=MX+1
2020 VP=VPEEK(6144+32*(Y+1)+X+1): IF VP=85 THEN MX=MX+1
2030 VP=VPEEK(6144+32*(Y+2)+X+1): IF VP=85 THEN MX=MX+1
2040 IF MX=3 THEN VPOKE(6144+32*Y+X),85: VPOKE(6144+32*(Y+1)+X),85: VPOKE(6144+32*(Y+2)+X),85: X=X+1
2050 MX=0
2060 RETURN
2070 REM CHECK X-1 -----------------------
2075 VP=VPEEK(6144+32*Y+X-1): IF VP=91 OR VP=92 THEN LOCATE0,21:PRINT"mas pillao fui yo!": PLAY"v13O3A3","R10v11O5G3","R5v11O6C3": DELAY=2000:GOSUB 2220:NIVEL=NIVEL+1:GOTO 120
2076 IF VP=88 OR VP=89 THEN GOSUB 2280
2080 IF VP=85 THEN MX=MX+1
2090 VP=VPEEK(6144+32*(Y+1)+X-1): IF VP=85 THEN MX=MX+1
2100 VP=VPEEK(6144+32*(Y+2)+X-1): IF VP=85 THEN MX=MX+1
2110 IF MX=3 THEN VPOKE(6144+32*Y+X),85: VPOKE(6144+32*(Y+1)+X),85: VPOKE(6144+32*(Y+2)+X),85: X=X-1
2120 MX=0
2130 RETURN
2140 REM CHECK Y+1 ----------------------
2150 VP=VPEEK(6144+32*(Y+3)+X): IF VP=85 THEN VPOKE(6144+32*Y+X),85: Y=Y+1
2160 RETURN
2170 REM CHECK Y-1 ----------------------
2180 VP=VPEEK(6144+32*(Y-1)+X): IF VP=85 THEN VPOKE(6144+32*(Y+2)+X),85: Y=Y-1
2190 RETURN
2220 REM -------- D E L A Y -------------
2230 FOR K=0 TO DELAY:NEXTK:RETURN
2240 REM -------- press space -----------
2245 A$="x"
2250 A$=INKEY$
2255 IF A$<>" " GOTO2240
2260 RETURN
2270 REM -------- limpia lineas -------
2275 LOCATE0,21:PRINT" ": VPOKE(6144+32*21+30),32: LOCATE0,22:PRINT" ": RETURN
2280 REM -------- no soy yo -------------
2282 IN=IN-1: IF IN=47 THEN GOTO 3510
2285 LOCATE0,22: PRINT"no fui yo!":PLAY"v11O4AEF": DELAY=1000: GOSUB 2220: GOSUB 2270: C=0: DELAY=200
2286 FORC=0TO2: GOSUB 2220: VPOKE(6144+32*1+29),32: GOSUB 2220: VPOKE(6144+32*1+29),IN: PLAY"v11O5B15": NEXTC
2287 GOSUB 2800: DELAY=2000:GOSUB 2220: GOSUB 2270: RETURN
2500 REM ----------- C O C I N A -----------------------------
2505 PRINT"(((((((((((((((((((((((((( •C": X=27:Y=9
2506 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2507 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2508 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2509 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2510 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2511 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2512 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2513 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUUUU"
2514 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUUUU"
2515 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUUUU"
2516 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUUUU"
2517 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUUUU"
2518 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2519 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2520 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2521 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2522 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2523 PRINT"(UUUUUUUUUUUUUUUUUUUUUUUU("
2524 PRINT"((((((((((((((((((((((((((": RETURN
2530 REM ----------- S A L O N -----------------------------
2535 PRINT")))))))))))))))))))))))))) •C": Y=9: IF X<5 THEN X=27 ELSE X=3
2536 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2537 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2538 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2539 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2540 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2541 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2542 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2543 PRINT"UUUUUUUUUUUUUUUUUUUUUUUUUUU":VPOKE(6144+32*8+1),85
2544 PRINT"UUUUUUUUUUUUUUUUUUUUUUUUUUU":VPOKE(6144+32*9+1),85
2545 PRINT"UUUUUUUUUUUUUUUUUUUUUUUUUUU":VPOKE(6144+32*10+1),85
2546 PRINT"UUUUUUUUUUUUUUUUUUUUUUUUUUU":VPOKE(6144+32*11+1),85
2547 PRINT"UUUUUUUUUUUUUUUUUUUUUUUUUUU":VPOKE(6144+32*12+1),85
2548 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2549 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2550 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2551 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2552 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2553 PRINT")UUUUUUUUUUUUUUUUUUUUUUUU)"
2554 PRINT"))))))))))))))))))))))))))": RETURN
2560 REM ----------- J A R D I N -----------------------------
2565 PRINT"OOOOOOOOOOOOOOOOOOOOOOOOOO •C": X=2:Y=9
2566 PRINT"OUUUUUUUUUUUUUUUUUUUUUUUUO"
2567 PRINT"OUUUUUUUUUUUUUUUUUUUUUUUUO"
2568 PRINT"OUUUUUUUUUUUUUUUUUUUUUUUUO"
2569 PRINT"OUUUUUUUUUUUUUUUUUUUUUUUUO"
2570 PRINT")UUUUUUUUUUUUUUUUUUUUUUUUO"
2571 PRINT")UUUUUUUUUUUUUUUUUUUUUUUUO"
2572 PRINT")UUUUUUUUUUUUUUUUUUUUUUUUO"
2573 PRINT"UUUUUUUUUUUUUUUUUUUUUUUUUO":VPOKE(6144+32*8+1),85
2574 PRINT"UUUUUUUUUUUUUUUUUUUUUUUUUO":VPOKE(6144+32*9+1),85
2575 PRINT"UUUUUUUUUUUUUUUUUUUUUUUUUO":VPOKE(6144+32*10+1),85
2576 PRINT"UUUUUUUUUUUUUUUUUUUUUUUUUO":VPOKE(6144+32*11+1),85
2577 PRINT"UUUUUUUUUUUUUUUUUUUUUUUUUO":VPOKE(6144+32*12+1),85
2578 PRINT")UUUUUUUUUUUUUUUUUUUUUUUUO"
2579 PRINT")UUUUUUUUUUUUUUUUUUUUUUUUO"
2580 PRINT")UUUUUUUUUUUUUUUUUUUUUUUUO"
2581 PRINT"OUUUUUUUUUUUUUUUUUUUUUUUUO"
2582 PRINT"OUUUUUUUUUUUUUUUUUUUUUUUUO"
2583 PRINT"OUUUUUUUUUUUUUUUUUUUUUUUUO"
2584 PRINT"OOOOOOOOOOOOOOOOOOOOOOOOOO": RETURN
2600 REM------DECIDIR KILLER---- output: KHF KBF KPF -----------
2605 K=RND(-TIME)*2
2610 IF K=0 THEN KHF=91 ELSE KHF=92
2615 IF K=1 THEN GOTO 2665
2620 KB=RND(-TIME)*3
2625 IF KB=0 THEN KBF=65
2630 IF KB=1 THEN KBF=72
2635 IF KB=2 THEN KBF=80
2640 KP=RND(-TIME)*3
2645 IF KP=0 THEN KPF=68
2650 IF KP=1 THEN KPF=75
2655 IF KP=2 THEN KPF=83
2660 RETURN
2665 KB=RND(-TIME)*3
2670 IF KB=0 THEN KBF=66
2675 IF KB=1 THEN KBF=73
2680 IF KB=2 THEN KBF=81
2685 KP=RND(-TIME)*3
2690 IF KP=0 THEN KPF=69
2695 IF KP=1 THEN KPF=76
2700 IF KP=2 THEN KPF=84
2705 RETURN
2800 REM---------DAR PISTAS--------
2805 IF EP=0 THEN LOCATE0,22: IF RK=0 THEN PRINT "busca en la cocina" ELSEIF RK=1 THEN PRINT "busca en el salon" ELSEIF RK=2 THEN PRINT "busca en el jardin"
2810 IF EP=1 THEN LOCATE0,22: IF KHF=91 THEN PRINT "fue un hombre" ELSEIF KHF=92 THEN PRINT "fue una mujer"
2815 IF EP=2 THEN LOCATE0,22: IF KBF=65 OR KBF=66 THEN PRINT "lleva algo rojo" ELSEIF KBF=72 OR KBF=73 THEN PRINT "lleva algo verde" ELSEIF KBF=80 OR KBF=81 THEN PRINT "lleva algo azul"
2820 IF EP>2 THEN RESTORE 5001: RA=RND(-TIME)*60: FOR K=0 TO RA:READ B$:NEXT K: LOCATE0,21: PRINT B$: DELAY=999:GOSUB 2220
3120 EP=EP+1: RETURN
3130 REM ------ FUENTES RPG -------
3135 RESTORE 3140
3140 AD=ASC("a")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA28,54,99,99,127,99,99,00: AD=ASC("b")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA126,99,99,126,99,99,126,0
3150 AD=ASC("c")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA30,51,96,96,96,51,30,0: AD=ASC("d")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA124,102,99,99,99,102,124,0
3160 AD=ASC("e")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA127,96,96,124,96,96,127,0: AD=ASC("f")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA127,96,96,124,96,96,96,0
3170 AD=ASC("g")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA31,48,96,103,99,51,31,0: AD=ASC("h")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA99,99,99,127,99,99,99,0
3180 AD=ASC("i")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA63,12,12,12,12,12,63,0: AD=ASC("j")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA3,3,3,3,3,99,62,0
3190 AD=ASC("k")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA99,102,108,120,108,102,99,0: AD=ASC("l")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA96,96,96,96,96,96,126,0
3200 AD=ASC("m")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA99,119,127,107,99,99,99,0: AD=ASC("n")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA99,115,123,111,103,99,99,0
3210 AD=ASC("o")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,99,99,99,99,99,62,0: AD=ASC("p")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA126,99,99,99,126,96,96,0
3220 AD=ASC("q")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA62,99,99,99,109,102,59,0: AD=ASC("r")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA126,99,99,103,124,110,103,0
3230 AD=ASC("s")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA60,102,96,62,3,99,62,0: AD=ASC("t")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA63,12,12,12,12,12,12,0
3240 AD=ASC("u")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA99,99,99,99,99,99,62,0: AD=ASC("v")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA99,99,99,99,54,28,8,0
3250 AD=ASC("w")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA99,99,99,107,127,54,34,0: AD=ASC("x")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA99,119,60,28,60,119,99,0
3260 AD=ASC("y")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA99,99,99,30,12,12,12,0: AD=ASC("z")*8:FORN=0TO7:READB:VPOKEAD+N,B:NEXTN: DATA127,7,14,28,56,112,127,0: RETURN
3500 REM--------------GAME OVER---------------------------------
3510 PLAY"v15O3A#3":LOCATE0,21: PRINT"que dios te confunda o'brian no das una! despedido!": DELAY=4000:GOSUB 2220
3515 CLS: LOCATE5,11: PRINT"g a m e o v e r"
3520 PLAY "v13o4cego5co4bgcr5 cego5co4bgdr5 dfao5co4bgdr5 dfao5co4bgcr5","r10v5o4cego5co4bgcr5 cego5co4bgdr5 dfao5co4bgdr5 dfao5co4bgcr5","r15v3o4cego5co4bgcr5 cego5co4bgdr5 dfao5co4bgdr5 dfao5co4bgcr5":DELAY=8000:GOSUB 2220: RUN
3600 REM------FINAL------------------
3610 CLS:LOCATE0,8:PRINT" menudo genio estas hecho o'brian":PRINT" has resuelto todos los niveles":PRINT" por algo te llaman el lince":PRINT" me quito el sombrero ante ti":PRINT" y te digo champu":PRINT" por pillar al asesino"
3613 PLAY "v13o4cego5co4bgcr5 cego5co4bgdr5 dfao5co4bgdr5 dfao5co4bgc4r5","r10v5o4cego5co4bgcr5 cego5co4bgdr5 dfao5co4bgdr5 dfao5co4bgcr5","r15v3o4cego5co4bgcr5 cego5co4bgdr5 dfao5co4bgdr5 dfao5co4bgcr5"
3614 LOCATE0,20:PRINT"copyrigth: joesg 2022":PRINT"jsggs@yahoo.es"
3615 DELAY8000:GOSUB 2220:RUN
3700 REM ------- logo joesg --------
3705 SCREEN 2
3710 COLOR 1,1,1:CLS:LINE(0,50)-(47,120),3,BF:LINE(52,50)-(97,120),9,BF:LINE(102,50)-(147,120),9,BF:LINE(152,50)-(197,120),11,BF:LINE(202,50)-(247,120),7,BF:LINE(0,50)-(25,90),1,BF:LINE(75,70)-(75,100),1:LINE(125,67)-(147,67),1
3715 LINE(125,85)-(147,85),1:LINE(175,67)-(197,67),1:LINE(152,103)-(175,103),1:LINE(225,67)-(247,67),1:LINE(225,67)-(225,84),1:LINE(225,84)-(237,84),1
3720 DELAY=2000:GOSUB 2220: RETURN
3750 REM-------------TITULO------------------
3760 COLOR 4,1,1
3765 screen 3
3770 circle(220,150),25,8,,,1.4: circle(190,130),11,8,,,1.4: circle(180,160),5,8,,,1.4: PAINT(220,150),8: PAINT(190,130),8
3775 OPEN "grp:test" FOR OUTPUT AS #1:PSET(1,1),1:PRINT#1,"Quien"
3780 PSET(1,29):PRINT#1,"mato al": PSET(1,60),1:PRINT#1,"CONDE de": PSET(1,95):PRINT#1,"ROQUE-": PSET(1,128):PRINT#1,"FORT?"
3810 play "v11g1g1","v11d1d1","v10r3b15r5b15r5b15r5b15r5b15"
3820 play "v11e1e1","v11b1b1","v10r3a15r5a15r5a15r5a15r5a15"
3830 play "v11g1g1","v11d1d1","v10r3b15r5b15r5b15r5b15r5b15"
3840 play "v11e1e1","v11b1b1","v10r3a15r5a15r5a15r5a15r5a15"
3850 play "v11g1g1","v11d1d1","v10r3b15r5b15r5b15r5b15r5b15"
3860 play "v11e1e1","v11b1b1","v10r3a15r5a15r5a15r5a15r5a15"
3870 play "v11g1g1","v11e1e1","v10r3b15r5b15r5b15r5b15r5b15"
3880 play "v11d1d1","v11a1a1","v10r3a15r5a15r5a15r5a15r5a15"
3890 play "v11g1","v11d1":DELAY=4000:GOSUB 2220: GOSUB 2240
3900 RETURN
5000 REM ------------------------ FRASES -----------------------
5001 DATA el panico degenera siempre eneclipse de la conciencia
5002 DATA si te atas un cordel al dedo se te pone morado
5003 DATA uno no es de donde nace sino de donde pace
5004 DATA 7 angeles y trompetas como predijo el profecta
5005 DATA que fiesta tan deliciosa no cree usted? jujuju
5006 DATA me han dicho que pituca se haechao novio!
5007 DATA la droga es la verdadera salud
5008 DATA mezcle acido clorhidrico yyy vamos que la he liado parda
5009 DATA se dice del conde que era un mujeriego
5010 DATA al conde le olia el aliento como a un demonio
5011 DATA hay gente que no esta muy aflijida por la tragedia
5012 DATA el que este libre de culpa que tire de la cadena plis
5013 DATA al conde le gustaba mover lasperchas dentro del armario
5014 DATA el conde era un gran melomanoy algunas cosas peores
5015 DATA el conde era envidiado por sus cuartos traseros
5016 DATA osculum infame non est bonum sanitatis
5017 DATA la satisfaccion de un momentoes la ruina del siguiente
5018 DATA en ocasiones veo tuertos
5019 DATA nadie baila sobrio a menos que este completamente loco
5020 DATA el champan estaba flesquisimo
5021 DATA me he puesto de croquets du jamuon hasta el ojetuor
5022 DATA el conde ya no sabe como llamar la atencion
5023 DATA "deliciosa noche salvo lo del asesinato claro"
5024 DATA la edad adulta es el infierno
5025 DATA lo importante es el equipo y no las individualidades
5026 DATA quien fue el asesino? es elemental querido juanson
5027 DATA a los macedonios les gusta mucho las frutas variadas
5028 DATA decir que hablar del tiempo es un topico es un topico
5029 DATA por favor quitese la mascara de cerdo para hablarme
5030 DATA hagame el favor de acercarme la bandeja de canapes
5031 DATA creo que me ha sentando mal el coctel de gambas
5032 DATA "vendo moto seminueva si le interesa?"
5033 DATA le robo ese sombrero a un espantapajaros?
5034 DATA no quiero parecerle grosero pero vayase a la mierda
5035 DATA disparar sin escrupulos; y escrupulos disparo solo
5036 DATA me haria el grato favor de tirar de este dedo?
5037 DATA "tome unos peniques y compreseropa nueva buen hombre"
5038 DATA "que poca clase morir en medio de la boite!"
5039 DATA "que pensara que yo era fui elasesino me alaga"
5040 DATA tu que entiendes de mar esto es un pulpo o un calamar?
5041 DATA que es esa cosa tan horrible?ah perdona que es tu cara
5042 DATA como? que lo han asesinado? que lastima
5043 DATA llevar sombrero puesto aqui dentro es de poca clase
5044 DATA su forma de morir me parece al menos exotica
5045 DATA cuanta gente con clase y bueno tambien tu
5046 DATA eso es un monoculo o eres familia de sloth
5047 DATA te doy 90 dolares en efectivosi te vas de mi vista
5048 DATA dios bendiga al asesino que nos libro de ese idiota
5049 DATA que forma tan horrible de morir con eso metido ahi
5050 DATA su muerte es la mejor noticiaque he oido en meses
5051 DATA eso es tu arma o es que te alegras de verme
5052 DATA penalti y gol es gol y a los tres coners penalti
5053 DATA un hobbit sin jovis es como un trasgo sin trisgo
5054 DATA que inconveniencia morir con tanto invitado de postin
5055 DATA quien se encargara ahora de sus negocios en ultramar?
5056 DATA y con esa cara de tonto se puede ser detective?
5057 DATA euripides no te sofocles que te esquilo
5058 DATA deja a los chavales que camelen con la mandanga
5059 DATA amigo mio el hombre nunca debe blandear
5060 DATA la mujer es granujilla y se aprovecha del blandengue
​