SCREEN 13
CLEAR , , &O7000
DIM objs$(22): caja$ = "box": laurel$ = "laurel": dirf$ = "fonts\": directp$ = "data\": dir2$ = "aaplay "
DIM punto(15): DIM coma(15): DIM panel(5000): DIM f1(15): DIM f2(15): DIM f3(15): DIM f4(15): DIM f5(15): DIM f6(15): DIM f7(15): DIM f8(15): DIM f9(15): DIM af(15): DIM bf(15): DIM cf(15): DIM df(15): DIM ef(15): DIM ff(15): DIM gf(15): DIM hf(15): DIM iif(15): DIM jf(15): DIM kf(15): DIM lf(15): DIM mf(15): DIM nf(15): DIM nnf(15): DIM of(15): DIM pf(15): DIM qf(15): DIM rf(15): DIM sf(15): DIM tf(15): DIM uf(15): DIM vf(15): DIM wf(15): DIM xf(15): DIM yf(15): DIM zf(15): DIM gui(15): DIM int1(15): DIM int2(15): DIM walk1(1200): DIM walk2(1200): DIM walk3(1200)
locx = locx * 4: locy = locy * 4
OPEN dirf$ + "int1.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , int1(a): NEXT: CLOSE #1
OPEN dirf$ + "int2.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , int2(a): NEXT: CLOSE #1
OPEN dirf$ + "punto.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , punto(a): NEXT: CLOSE #1
OPEN dirf$ + "coma.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , coma(a): NEXT: CLOSE #1
OPEN dirf$ + "gui.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , gui(a): NEXT: CLOSE #1
OPEN dirf$ + "1.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , f1(a): NEXT: CLOSE #1
OPEN dirf$ + "2.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , f2(a): NEXT: CLOSE #1
OPEN dirf$ + "3.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , f3(a): NEXT: CLOSE #1
OPEN dirf$ + "4.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , f4(a): NEXT: CLOSE #1
OPEN dirf$ + "5.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , f5(a): NEXT: CLOSE #1
OPEN dirf$ + "6.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , f6(a): NEXT: CLOSE #1
OPEN dirf$ + "7.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , f7(a): NEXT: CLOSE #1
OPEN dirf$ + "8.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , f8(a): NEXT: CLOSE #1
OPEN dirf$ + "9.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , f9(a): NEXT: CLOSE #1
OPEN dirf$ + "a.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , af(a): NEXT: CLOSE #1
OPEN dirf$ + "b.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , bf(a): NEXT: CLOSE #1
OPEN dirf$ + "c.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , cf(a): NEXT: CLOSE #1
OPEN dirf$ + "d.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , df(a): NEXT: CLOSE #1
OPEN dirf$ + "e.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , ef(a): NEXT: CLOSE #1
OPEN dirf$ + "f.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , ff(a): NEXT: CLOSE #1
OPEN dirf$ + "g.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , gf(a): NEXT: CLOSE #1
OPEN dirf$ + "h.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , hf(a): NEXT: CLOSE #1
OPEN dirf$ + "i.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , iif(a): NEXT: CLOSE #1
OPEN dirf$ + "j.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , jf(a): NEXT: CLOSE #1
OPEN dirf$ + "k.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , kf(a): NEXT: CLOSE #1
OPEN dirf$ + "l.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , lf(a): NEXT: CLOSE #1
OPEN dirf$ + "m.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , mf(a): NEXT: CLOSE #1
OPEN dirf$ + "n.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , nf(a): NEXT: CLOSE #1
OPEN dirf$ + "n2.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , nnf(a): NEXT: CLOSE #1
OPEN dirf$ + "o.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , of(a): NEXT: CLOSE #1
OPEN dirf$ + "p.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , pf(a): NEXT: CLOSE #1
OPEN dirf$ + "q.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , qf(a): NEXT: CLOSE #1
OPEN dirf$ + "r.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , rf(a): NEXT: CLOSE #1
OPEN dirf$ + "s.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , sf(a): NEXT: CLOSE #1
OPEN dirf$ + "t.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , tf(a): NEXT: CLOSE #1
OPEN dirf$ + "u.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , uf(a): NEXT: CLOSE #1
OPEN dirf$ + "v.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , vf(a): NEXT: CLOSE #1
OPEN dirf$ + "w.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , wf(a): NEXT: CLOSE #1
OPEN dirf$ + "x.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , xf(a): NEXT: CLOSE #1
OPEN dirf$ + "y.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , yf(a): NEXT: CLOSE #1
OPEN dirf$ + "z.fon" FOR BINARY AS #1: FOR a = 0 TO 15: GET #1, , zf(a): NEXT: CLOSE #1
SCREEN 13: DIM cruz(156)
DRAW "bm,C0RRRRRRRDC202DDDDDDDDDDUUUULRUULLDLLLRRRRRRRRRRLLLLLLLLUC0RRLLLLLDDRRRRR": GET (0, 0)-(13, 12), cruz: CLS
DIM mask(182): DRAW "bm,c255RRRRRDDDDLUUULDDDLUUULDDDLUUDUUDDDDDDDDDURRULRRRRDDLULDDRRLLLULDLDRRRRRDLLLLLRRRRRRRRRUUUUURRRRRUUUULLLLLUUUURDDDUURUDDDRUUURDDDRUUUDDDDDDDDDLLLDLUDDDDRUURUDDDRUUURDDD": GET (0, 0)-(14, 13), mask: CLS
OPEN "panel.dat" FOR BINARY AS #1: FOR a = 0 TO 2000: GET #1, , panel(a): NEXT: CLOSE : nom$ = "muelle": GOSUB loader: COLOR 201
variables:
DIM fondo(225): DIM fondor(225): DIM fondod(225): DIM fondou(225): x = 100: y = 100: chiluse = 0: limouse = 0: cerrabierto = 0: rama = 0: acid = 1: orden$ = "Andar hacia": palabra$ = "": pantalla = 1: obj8$ = " cido": obj1 = 0: obj2 = 0: obj3 = 0: obj4 = 0: obj5 = 0: obj6 = 0: obj7 = 0: obj8 = 0: obj9 = 0: obj10 = 0: obj11 = 0: obj12 = 0: obj13 = 0: obj14 = 0
fondong:
GET (x, y)-(x + 15, y + 15), fondor: GET (x - 2, y)-(x + 13, y + 15), fondo: GET (x, y - 2)-(x + 15, y + 13), fondou: GET (x, y - 2)-(x + 15, y + 13), fondod: COLOR 200
teclas:
lugar = LEN(orden$ + palabra$) + 1: LOCATE 22, 1: PRINT orden$; " "; palabra$; SPACE$(35 - lugar): i$ = INKEY$
SELECT CASE i$
CASE "P"
IF x > 284 THEN GOTO teclas
PUT (x, y), fondor, PSET: x = x + 12: GET (x, y)-(x + 25, y + 15), fondor: GET (x - 2, y)-(x + 13, y + 15), fondo: GET (x, y - 2)-(x + 15, y + 13), fondou: GET (x, y - 2)-(x + 15, y + 13), fondod
CASE "O"
IF x < 14 THEN GOTO teclas
PUT (x - 2, y), fondo, PSET: x = x - 12: GET (x - 2, y)-(x + 13, y + 15), fondo: GET (x, y)-(x + 25, y + 15), fondor: GET (x, y - 2)-(x + 15, y + 13), fondou: GET (x, y - 2)-(x + 15, y + 13), fondod
CASE "Q"
IF y < 14 THEN GOTO teclas
PUT (x, y - 2), fondou, PSET: y = y - 12: GET (x, y - 2)-(x + 15, y + 13), fondou: GET (x - 2, y)-(x + 13, y + 15), fondo: GET (x, y)-(x + 25, y + 15), fondor: GET (x, y - 2)-(x + 15, y + 13), fondod
CASE "A"
IF y > 170 THEN GOTO teclas
PUT (x, y - 2), fondod, PSET: y = y + 12: GET (x, y - 2)-(x + 15, y + 13), fondod: GET (x, y - 2)-(x + 15, y + 13), fondou: GET (x - 2, y)-(x + 13, y + 15), fondo: GET (x, y)-(x + 25, y + 15), fondor
CASE "p"
IF x > 294 THEN GOTO teclas
PUT (x, y), fondor, PSET: x = x + 2: GET (x, y)-(x + 25, y + 15), fondor: GET (x - 2, y)-(x + 13, y + 15), fondo: GET (x, y - 2)-(x + 15, y + 13), fondou: GET (x, y - 2)-(x + 15, y + 13), fondod
CASE "o"
IF x < 4 THEN GOTO teclas
PUT (x - 2, y), fondo, PSET: x = x - 2: GET (x - 2, y)-(x + 13, y + 15), fondo: GET (x, y)-(x + 25, y + 15), fondor: GET (x, y - 2)-(x + 15, y + 13), fondou: GET (x, y - 2)-(x + 15, y + 13), fondod
CASE "q"
IF y < 4 THEN GOTO teclas
PUT (x, y - 2), fondou, PSET: y = y - 2: GET (x, y - 2)-(x + 15, y + 13), fondou: GET (x - 2, y)-(x + 13, y + 15), fondo: GET (x, y)-(x + 25, y + 15), fondor: GET (x, y - 2)-(x + 15, y + 13), fondod
CASE "a"
IF y > 180 THEN GOTO teclas
PUT (x, y - 2), fondod, PSET: y = y + 2: GET (x, y - 2)-(x + 15, y + 13), fondod: GET (x, y - 2)-(x + 15, y + 13), fondou: GET (x - 2, y)-(x + 13, y + 15), fondo: GET (x, y)-(x + 25, y + 15), fondor
CASE CHR$(0) + ";"
orden$ = "Andar hacia": usar = 0: dar = 0: LOCATE 22, 1: PRINT SPACE$(30)
CASE CHR$(0) + "<"
orden$ = "Mirar": usar = 0: dar = 0: LOCATE 22, 1: PRINT SPACE$(30)
CASE CHR$(0) + "="
orden$ = "Hablar a": usar = 0: dar = 0: LOCATE 22, 1: PRINT SPACE$(30)
CASE "I", "i"
        IF MID$(orden$, 1, 5) = "Usar " OR orden$ = "Mirar" THEN GOSUB Inventario: GOSUB Responde
CASE CHR$(0) + ">"
        orden$ = "Usar": usar = 1: dar = 0
        GOSUB Inventario
        IF palabra$ <> "" THEN orden$ = "Usar " + palabra$ + " con" ELSE usar = 0: orden$ = "Andar hacia"
CASE CHR$(0) + "?"
orden$ = "Mover": dar = 0: usar = 0: LOCATE 22, 1: PRINT SPACE$(30)
CASE CHR$(0) + "@"
orden$ = "Coger": usar = 0: dar = 0: LOCATE 22, 1: PRINT SPACE$(30)
CASE CHR$(0) + "A"
        orden$ = "Dar": usar = 0: dar = 1: GOSUB Inventario
        IF palabra$ <> "" THEN orden$ = "Dar " + palabra$ + " a" ELSE dar = 0: orden$ = "Andar hacia"
CASE CHR$(0) + "B"
orden$ = "Abrir": usar = 0: dar = 0
CASE CHR$(0) + "C"
orden$ = "Cerrar": usar = 0: dar = 1: LOCATE 22, 1: PRINT SPACE$(30)
CASE " "
IF usar = 1 THEN GOSUB OBJETOS
IF dar = 1 THEN GOSUB donativos
GOSUB Icon
GOSUB Responde
END SELECT
PUT (x, y), mask, AND: PUT (x, y), cruz, OR: GOSUB pointer
GOTO teclas
OBJETOS:
RETURN
donativos:
RETURN
Icon:
RETURN
pointer:
IF regado > 1 THEN regado = regado - 1
IF orden$ = "Usar taza con" AND taz = 0 AND obj17 = 1 THEN taz = 1: orden$ = "Andar hacia": GOSUB espacios: locx = 0: locy = 167: texto$ = "BUEN AROMA, MAL SABOR.": GOSUB font: SLEEP: GOSUB espacios: RETURN
IF orden$ = "Usar mapa con" AND pantalla = 9 AND obj7 = 1 THEN orden$ = "Andar hacia": nomold$ = nom$: pantallaold = pantalla: pantalla = 28: nom$ = "mapa2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
IF pantalla = 33 AND usando = 0 AND orden$ = "Usar pecera con" AND obj11 = 1 THEN usando = 1: orden$ = "Andar hacia": GOSUB espacios: locx = 0: locy = 167: texto$ = "LA PECERA ENCAJA EN TU MELON.": GOSUB font: SLEEP: GOSUB espacios: RETURN
SELECT CASE pantalla
        CASE 1
        IF x > 5 AND x < 28 AND y > 78 AND y < 148 THEN palabra$ = "pilar": RETURN
        IF x > 241 AND x < 271 AND y > 75 AND y < 154 THEN palabra$ = "pilar": RETURN
        IF x > 56 AND x < 67 AND y > 75 AND y < 114 THEN palabra$ = "pilar": RETURN
        IF x > 199 AND x < 214 AND y > 76 AND y < 120 THEN palabra$ = "pilar": RETURN
        IF x > 82 AND x < 87 AND y > 73 AND y < 94 THEN palabra$ = "pilar": RETURN
        IF x > 174 AND x < 181 AND y > 69 AND y < 100 THEN palabra$ = "pilar": RETURN
        IF x > 95 AND x < 99 AND y > 68 AND y < 83 THEN palabra$ = "pilar": RETURN
        IF x > 156 AND x < 161 AND y > 68 AND y < 86 THEN palabra$ = "pilar": RETURN
        IF x > 234 AND x < 274 AND y > 44 AND y < 75 THEN palabra$ = "camino del faro": RETURN
        IF x < 274 AND y > 15 AND y < 75 THEN palabra$ = "villa": RETURN
        CASE 2
        IF x > 68 AND x < 72 AND y > 96 AND y < 102 THEN palabra$ = "puerta": RETURN
        IF x > 62 AND x < 81 AND y > 5 AND y < 103 THEN palabra$ = "faro": RETURN
        IF x > 175 AND x < 216 AND y > 108 AND y < 123 THEN palabra$ = "risco": RETURN
        IF x > 91 AND x < 179 AND y > 152 AND y < 157 THEN palabra$ = "camino al muelle": RETURN
        CASE 3
        IF obj13 = 0 AND obj14 = 0 AND x > 76 AND x < 82 AND y > 61 AND y < 63 THEN palabra$ = "br£jula": RETURN
        IF x < 31 AND y < 156 THEN palabra$ = "camino": RETURN
        IF x < 274 AND y > 126 AND y < 156 THEN palabra$ = "camino": RETURN
        IF x > 245 AND x < 274 AND y < 156 THEN palabra$ = "camino": RETURN
        CASE 4
        IF x > 255 AND x < 275 AND y > 29 AND y < 149 THEN palabra$ = "puerta": RETURN
        IF x > 124 AND x < 215 AND y > 89 AND y < 134 THEN palabra$ = "arriba": RETURN
        CASE 5
        IF x < 67 AND y > 100 AND y < 140 THEN palabra$ = "abajo": RETURN
        IF x > 225 AND x < 273 AND y > 64 AND y < 117 THEN palabra$ = "viejo": RETURN
        IF x > 206 AND x < 238 AND y > 113 AND y < 124 THEN palabra$ = "plato": RETURN
        IF x > 143 AND x < 149 AND y > 53 AND y < 62 THEN palabra$ = "vela": RETURN
        CASE 6
        IF x > 68 AND x < 102 AND y > 66 AND y < 133 THEN palabra$ = "tontolpueblo": RETURN
        IF x > 136 AND x < 176 AND y > 41 AND y < 127 THEN palabra$ = "herrer¡a": RETURN
        IF x > 226 AND x < 247 AND y > 38 AND y < 105 THEN palabra$ = "tienda": RETURN
        IF x > 210 AND x < 274 AND y > 125 AND y < 156 THEN palabra$ = "muelle": RETURN
        IF x < 15 AND y < 156 THEN palabra$ = "calle": RETURN
        IF x > 259 AND x < 274 AND y < 156 THEN palabra$ = "calle": RETURN
        CASE 7
        IF x < 41 AND y > 50 AND y < 157 THEN palabra$ = "puerta": RETURN
        IF x > 196 AND x < 243 AND y > 95 AND y < 157 THEN palabra$ = "marino": RETURN
        IF x > 243 AND x < 275 AND y > 133 AND y < 157 THEN palabra$ = "bote": RETURN
        IF x > 55 AND x < 195 AND y > 109 AND y < 157 THEN palabra$ = "muelle": RETURN
        CASE 8
         IF y < 35 THEN
        IF x > 64 AND x < 73 AND y > 5 AND y < 16 THEN palabra$ = "lim¢n": RETURN
        IF x > 124 AND x < 134 AND y > 18 AND y < 30 THEN palabra$ = "lim¢n": RETURN
        IF x > 145 AND x < 161 AND y > 21 AND y < 31 THEN palabra$ = "lim¢n": RETURN
        IF x > 201 AND x < 211 AND y > 14 AND y < 26 THEN palabra$ = "lim¢n": RETURN
        IF x > 256 AND x < 265 AND y > 18 AND y < 22 THEN palabra$ = "lim¢n": RETURN
        IF x > 256 AND x < 265 AND y > 18 AND y < 22 THEN palabra$ = "lim¢n": RETURN
        IF rama = 0 AND x > 231 AND x < 275 AND y > 8 AND y < 20 THEN palabra$ = "rama": RETURN
         END IF
        IF x > 54 AND x < 76 AND y > 146 AND y < 153 THEN palabra$ = "zapato": RETURN
        IF x > 114 AND x < 144 AND y > 80 AND y < 131 THEN palabra$ = "hombre": RETURN
        IF x > 178 AND x < 238 AND y > 7 AND y < 157 THEN palabra$ = " rbol": RETURN
        IF x > 258 AND x < 274 AND y < 157 THEN palabra$ = "calle": RETURN
        IF x < 25 AND y < 122 THEN palabra$ = "calle": RETURN
        CASE 9
        IF x < 51 AND y > 72 AND y < 102 THEN palabra$ = "camino": RETURN
        IF x > 191 AND x < 251 AND y > 92 AND y < 124 THEN palabra$ = "camino": RETURN
        IF x < 191 AND y > 144 AND y < 157 THEN palabra$ = "villa": RETURN
        CASE 10
        IF x > 137 AND x < 174 AND y > 47 AND y < 157 THEN palabra$ = "camarera": RETURN
        IF x > 196 AND x < 274 AND y > 29 AND y < 85 THEN palabra$ = "estanter¡a": RETURN
        IF x < 31 AND y > 95 AND y < 157 THEN palabra$ = "escaleras": RETURN
        IF x > 71 AND x < 117 AND y > 59 AND y < 157 THEN palabra$ = "puerta": RETURN
        IF x > 261 AND x < 274 AND y > 92 AND y < 157 THEN palabra$ = "salida": RETURN
        CASE 11
        IF x > 132 AND x < 150 AND y > 93 AND y < 113 THEN palabra$ = "puerta": RETURN
        IF x > 140 AND x < 223 AND y > 138 AND y < 157 THEN palabra$ = "camino": RETURN
        IF x > 70 AND x < 202 AND y > 53 AND y < 113 THEN palabra$ = "monasterio": RETURN
        CASE 12
        IF x > 160 AND x < 274 AND y > 20 AND y < 157 THEN palabra$ = "portero": RETURN
        IF x > 39 AND x < 172 AND y < 115 THEN palabra$ = "castillo": RETURN
        IF x < 91 AND y > 116 AND y < 157 THEN palabra$ = "camino": RETURN
        CASE 13
        IF x > 181 AND x < 274 AND y > 77 AND y < 157 THEN palabra$ = "abad": RETURN
        IF x > 30 AND x < 89 AND y > 37 AND y < 125 THEN palabra$ = "puerta": RETURN
        IF x > 136 AND x < 147 AND y > 39 AND y < 134 THEN palabra$ = "rinc¢n": RETURN
        CASE 14
        IF x > 244 AND x < 274 AND y > 52 AND y < 157 THEN palabra$ = "puerta": RETURN
        IF x > 44 AND x < 68 AND y > 30 AND y < 132 THEN palabra$ = "sala": RETURN
        CASE 15
        IF x > 196 AND x < 247 AND y > 97 AND y < 142 THEN palabra$ = "s¢tano": RETURN
        IF x < 38 AND y > 17 AND y < 109 THEN palabra$ = "patio": RETURN
        IF x > 263 AND x < 274 AND y < 157 THEN palabra$ = "rinc¢n": RETURN
        CASE 16
        IF x > 125 AND x < 128 AND y > 79 AND y < 81 THEN palabra$ = "cerrojo": RETURN
        IF x > 110 AND x < 167 AND y > 25 AND y < 107 THEN palabra$ = "puerta": RETURN
        IF x < 274 AND y > 144 AND y < 157 THEN palabra$ = "arriba": RETURN
        CASE 17
        IF x > 38 AND x < 85 AND y > 75 AND y < 83 THEN palabra$ = "escal¢n": RETURN
        IF x > 38 AND x < 85 AND y < 78 THEN palabra$ = "puerta": RETURN
        IF x > 202 AND x < 236 AND y > 45 AND y < 57 THEN palabra$ = "caja": RETURN
        IF x > 173 AND x < 272 AND y > 53 AND y < 105 THEN palabra$ = "mueble": RETURN
        IF x > 120 AND x < 194 AND y > 116 AND y < 157 THEN palabra$ = "scriptorium": RETURN
        CASE 18
        IF x > 255 AND x < 272 AND y > 90 AND y < 119 THEN palabra$ = "puerta": RETURN
        IF x > 137 AND x < 155 AND y > 97 AND y < 119 THEN palabra$ = "parroquia": RETURN
        IF x > 2 AND x < 17 AND y > 73 AND y < 120 THEN palabra$ = "celda": RETURN
        IF x > 110 AND x < 200 AND y > 123 AND y < 151 THEN palabra$ = "fuente": RETURN
        CASE 19, 20
        IF pantalla = 20 THEN IF x > 251 AND x < 274 AND y > 80 AND y < 96 THEN palabra$ = "mapa": RETURN
        IF x > 62 AND x < 212 AND y > 60 AND y < 142 THEN palabra$ = "cama": RETURN
        IF x > 149 AND x < 224 AND y > 16 AND y < 106 THEN palabra$ = "armario": RETURN
        IF x > 244 AND x < 274 AND y > 75 AND y < 140 THEN palabra$ = "scriptorium": RETURN
        IF x > 257 AND x < 271 AND y > 5 AND y < 50 THEN palabra$ = "saetera": RETURN
        IF x > 83 AND x < 88 AND y > 6 AND y < 21 THEN palabra$ = "cruz": RETURN
        IF x < 16 AND y > 28 AND y < 111 THEN palabra$ = "puerta": RETURN
        CASE 21
        IF y > 80 THEN
        IF x > 48 AND x < 78 AND y > 73 AND y < 124 THEN palabra$ = "lej¡a": RETURN
        IF x > 89 AND x < 105 AND y > 104 AND y < 124 THEN palabra$ = "sal": RETURN
        IF x > 102 AND x < 120 AND y > 89 AND y < 124 THEN palabra$ = "chile": RETURN
        IF x > 137 AND x < 160 AND y > 104 AND y < 124 THEN palabra$ = "alcohol": RETURN
        IF x > 170 AND x < 208 AND y > 100 AND y < 125 THEN palabra$ = "cerveza": RETURN
        IF x > 219 AND x < 235 AND y > 106 AND y < 125 THEN palabra$ = "agua": RETURN
        ELSE
        IF x > 43 AND x < 73 AND y < 27 THEN palabra$ = "miel": RETURN
        IF x > 81 AND x < 92 AND y > 12 AND y < 27 THEN palabra$ = "sal": RETURN
        IF x > 108 AND x < 137 AND y > 16 AND y < 28 THEN palabra$ = "avecream": RETURN
        IF x > 166 AND x < 183 AND y < 29 THEN palabra$ = "vino": RETURN
        IF x > 189 AND x < 204 AND y > 8 AND y < 29 THEN palabra$ = "cerveza": RETURN
        IF x > 210 AND x < 227 AND y > 11 AND y < 29 THEN IF botemir = 0 THEN palabra$ = "bote": RETURN ELSE palabra$ = " cido": RETURN
        END IF
        CASE 22
        IF x > 88 AND x < 119 AND y > 19 AND y < 125 THEN palabra$ = "escaleras": RETURN
        IF x > 187 AND x < 251 AND y > 21 AND y < 119 THEN palabra$ = "puerta": RETURN
        IF x < 31 AND y < 157 THEN palabra$ = "salida": RETURN
        CASE 23
        IF x > 60 AND x < 163 AND y < 110 THEN palabra$ = "fresco": RETURN
        IF x > 171 AND x < 209 AND y > 39 AND y < 136 THEN palabra$ = "armario": RETURN
        IF x < 42 AND y < 157 THEN palabra$ = "hall": RETURN
        CASE 24
        IF x < 111 AND y > 146 AND y < 157 THEN palabra$ = "escaleras": RETURN
        IF x > 196 AND x < 261 AND y > 101 AND y < 151 THEN palabra$ = "ca¤¢n": RETURN
        IF x > 180 AND x < 193 AND y > 135 AND y < 148 THEN palabra$ = "bombas": RETURN
        CASE 25
        IF x > 44 AND x < 204 AND y > 31 AND y < 111 THEN palabra$ = "caja": RETURN
        CASE 26
        IF x < 274 AND y > 117 AND y < 157 THEN palabra$ = "alfombra": RETURN
        IF x > 66 AND x < 189 AND y > 18 AND y < 99 THEN palabra$ = "puerta": RETURN
        CASE 27
        IF x > 91 AND x < 109 AND y > 74 AND y < 85 THEN palabra$ = "velas": RETURN
        IF x > 129 AND x < 164 AND y > 12 AND y < 63 THEN palabra$ = "cruz": RETURN
        IF x < 274 AND y > 133 AND y < 157 THEN palabra$ = "salida": RETURN
        CASE 28
        IF x > 60 AND x < 100 AND y > 40 AND y < 76 THEN palabra$ = "laurel": RETURN
        IF x > 16 AND x < 196 AND y < 22 THEN palabra$ = "montana": RETURN
        IF x > 221 AND x < 261 AND y < 25 THEN palabra$ = "cabana": RETURN
        IF x > 204 AND x < 274 AND y > 106 AND y < 157 THEN palabra$ = "villa": RETURN
        IF x > 173 AND x < 211 AND y > 41 AND y < 74 THEN palabra$ = "gran roca": RETURN
        CASE 29
        IF x > 146 AND x < 153 AND y > 103 AND y < 110 THEN palabra$ = "muescas": RETURN
        IF x > 29 AND x < 209 AND y > 11 AND y < 124 THEN palabra$ = "roca": RETURN
        IF x < 274 AND y < 120 THEN palabra$ = "bosque": RETURN
        CASE 30, 31, 32
        IF x > 70 AND x < 137 AND y > 27 AND y < 70 THEN palabra$ = "tendero": RETURN
        IF x > 204 AND x < 274 AND y > 8 AND y < 128 THEN palabra$ = "salida": RETURN
        IF x > 14 AND x < 60 AND y > 51 AND y < 97 THEN palabra$ = "mono": RETURN
        IF x > 28 AND x < 36 AND y < 50 THEN palabra$ = "ca¤a": RETURN
        IF x > 37 AND x < 55 AND y < 20 THEN palabra$ = "campana": RETURN
        IF x > 140 AND x < 164 AND y < 11 THEN palabra$ = "reloj": RETURN
        IF x > 175 AND x < 195 AND y < 11 THEN palabra$ = "cosa": RETURN
        IF obj11 = 0 AND x > 155 AND x < 192 AND y > 48 AND y < 70 THEN palabra$ = "pecera": RETURN
        IF pantalla = 32 THEN
                tiempo = tiempo - 1
                IF tiempo = 0 THEN
                 IF obj11 = 0 THEN pantalla = 30: nom$ = "tienda2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
                 IF obj11 = 1 THEN pantalla = 31: nom$ = "tienda": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
                 END IF
                END IF
        CASE 33
        IF x > 27 AND x < 184 AND y > 40 AND y < 157 THEN palabra$ = "marino": RETURN
        IF x < 274 AND y > 41 AND y < 101 THEN palabra$ = "agua": RETURN
        CASE 34, 35
        IF x < 58 AND y > 78 AND y < 124 THEN palabra$ = "coral": RETURN
        IF pantalla = 34 AND x > 32 AND x < 56 AND y > 125 AND y < 140 THEN palabra$ = "estrella": RETURN
        IF x > 101 AND x < 126 AND y > 130 AND y < 144 THEN palabra$ = "concha": RETURN
        IF x > 234 AND x < 256 AND y > 137 AND y < 148 THEN palabra$ = "concha": RETURN
        IF x > 140 AND x < 236 AND y > 97 AND y < 137 THEN palabra$ = "cofre": RETURN
        IF x > 105 AND x < 135 AND y > 93 AND y < 111 THEN palabra$ = "bota": RETURN
        IF x > 110 AND x < 150 AND y < 19 THEN palabra$ = "bote": RETURN
        CASE 36
        IF x > 125 AND x < 148 AND y > 97 AND y < 132 THEN palabra$ = "puerta": RETURN
        IF x > 184 AND x < 274 AND y < 132 THEN palabra$ = "bosque": RETURN
        CASE 37, 38
        IF x > 228 AND x < 274 AND y > 42 AND y < 157 THEN palabra$ = "puerta": RETURN
        IF x > 134 AND x < 174 AND y > 73 AND y < 123 THEN palabra$ = "sordomudo": RETURN
        IF pantalla = 37 THEN IF x > 94 AND x < 104 AND y > 126 AND y < 133 THEN palabra$ = "taza": RETURN
        CASE 39, 40
        IF x > 173 AND x < 274 AND y < 157 THEN palabra$ = "bosque": RETURN
        IF x < 161 AND y < 31 THEN palabra$ = "arriba": RETURN
        IF pantalla = 39 AND x > 111 AND x < 151 AND y > 120 AND y < 152 THEN palabra$ = "plantita": RETURN
        CASE 41
        IF x > 38 AND x < 44 AND y > 85 AND y < 94 THEN palabra$ = "puerta": RETURN
        IF x > 25 AND x < 60 AND y > 202 AND y < 102 THEN palabra$ = "casa": RETURN
        IF x > 250 AND x < 274 AND y > 85 AND y < 157 THEN palabra$ = " rbol": RETURN
        CASE 42, 43
        IF x > 101 AND x < 116 AND y > 59 AND y < 78 THEN palabra$ = "nota": RETURN
        IF x > 242 AND x < 274 AND y > 49 AND y < 153 THEN palabra$ = "puerta": RETURN
        IF pantalla = 42 AND x > 121 AND x < 128 AND y > 134 AND y < 143 THEN palabra$ = "llave": RETURN
        IF x < 55 AND y > 78 AND y < 157 THEN palabra$ = "calavera": RETURN
        CASE 44, 45, 46, 47, 48, 49, 50, 51, 52
        IF x > 108 AND x < 128 AND y > 74 AND y < 97 THEN palabra$ = "Sol": RETURN
        IF x > 138 AND x < 155 AND y > 77 AND y < 98 THEN palabra$ = "Luna": RETURN
        IF x > 165 AND x < 185 AND y > 80 AND y < 101 THEN palabra$ = "estrella": RETURN
        IF hojasta = 1 AND x > 136 AND x < 146 AND y > 147 AND y < 151 THEN palabra$ = "hoja": RETURN
        IF x > 114 AND x < 274 AND y < 41 THEN palabra$ = "salida": RETURN
        CASE 53
        IF x > 100 AND x < 113 AND y > 60 AND y < 81 THEN palabra$ = "percha": RETURN
        IF x > 52 AND x < 204 AND y > 60 AND y < 64 THEN palabra$ = "barra": RETURN
        IF x > 194 AND x < 195 AND y > 68 AND y < 70 THEN palabra$ = "bisagra": RETURN
        IF x > 205 AND x < 206 AND y > 139 AND y < 141 THEN palabra$ = "bisagra": RETURN
        IF x < 37 AND y < 157 THEN palabra$ = "habitaci¢n": RETURN
        IF x > 207 AND x < 274 AND y < 157 THEN palabra$ = "habitaci¢n": RETURN
        CASE 54
        IF x > 141 AND x < 188 AND y < 21 THEN palabra$ = "reja": RETURN
        IF x > 134 AND x < 180 AND y > 134 AND y < 148 THEN palabra$ = "luz": RETURN
        IF x > 207 AND x < 225 AND y > 94 AND y < 104 THEN palabra$ = "ladrillo suelto": RETURN
        CASE 55, 56
        IF x < 31 AND y > 119 AND y < 132 THEN palabra$ = "agujero": RETURN
        IF x > 71 AND x < 126 AND y < 29 THEN palabra$ = "l mpara": RETURN
        IF pantalla = 55 AND x > 139 AND x < 169 AND y > 22 AND y < 36 THEN palabra$ = "l mpara": RETURN
        IF pantalla = 55 AND x > 104 AND x < 108 AND y > 79 AND y < 84 THEN palabra$ = "nudo": RETURN
        IF pantalla = 55 AND x > 134 AND x < 160 AND y > 84 AND y < 106 THEN palabra$ = "Huges Hats": RETURN
        IF pantalla = 56 AND x > 131 AND x < 167 AND y > 92 AND y < 115 THEN palabra$ = "faena": RETURN
        IF x > 137 AND x < 200 AND y > 15 AND y < 98 THEN palabra$ = "salida": RETURN
        CASE 57
        IF x > 53 AND x < 57 AND y > 23 AND y < 27 THEN palabra$ = "cuenta": RETURN
        IF x > 121 AND x < 132 AND y > 97 AND y < 106 THEN palabra$ = "medalla": RETURN
        IF x > 84 AND x < 101 AND y > 21 AND y < 31 THEN palabra$ = "drag¢n": RETURN
        IF x > 171 AND x < 274 AND y < 37 THEN palabra$ = "otro lugar": RETURN
        CASE 58, 59, 60
        IF x > 62 AND x < 75 AND y > 80 AND y < 94 THEN palabra$ = "saliente": RETURN
        IF x < 181 AND y < 140 THEN palabra$ = "laurel": RETURN
        IF x > 181 AND x < 274 AND y < 140 THEN palabra$ = "bosque": RETURN
        IF pantalla = 59 AND x > 111 AND x < 131 AND y > 147 AND y < 151 THEN palabra$ = "luz": RETURN
        IF pantalla = 60 AND x > 102 AND x < 151 AND y > 144 AND y < 156 THEN palabra$ = "pedestal": RETURN
        CASE 61
        IF x > 111 AND x < 227 AND y > 58 AND y < 93 THEN palabra$ = "hueco": RETURN
        IF x < 274 AND y < 49 THEN palabra$ = "otro lugar": RETURN
        CASE 62
        IF x > 114 AND x < 156 AND y > 13 AND y < 57 THEN palabra$ = "medall¢n": RETURN
        IF x > 44 AND x < 204 AND y > 31 AND y < 111 THEN palabra$ = "caja": RETURN
END SELECT
palabra$ = "              "
RETURN
'***********************************************************
Responde:
IF orden$ = "Usar cuenta con" AND palabra$ = "medall¢n" THEN obj20 = 0: med = 1: GOSUB loader: GOSUB espacios: locx = 0: locy = 167: texto$ = "MEDALLON COMPLETO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
IF orden$ = "Usar aguja con" AND palabra$ = "caja" THEN obj12 = 0: obj13 = 0: obj14 = 1: obj14$ = "br£jula": GOSUB loader: GOSUB espacios: locx = 0: locy = 167: texto$ = "AHORA LA BRUJULA ESTA COMPLETA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
SELECT CASE pantalla
   CASE 1
        IF obj12 = 0 AND obj14 = 0 AND x > 56 AND x < 67 AND orden$ = "Mirar" AND palabra$ = "pilar" THEN obj12 = 1: obj12$ = "aguja": GOSUB espacios: locx = 0: locy = 167: texto$ = "HAY UNA AGUJA CLAVADA. LA COGES.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "camino del faro" THEN pantalla = 2: nom$ = "faro": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "villa" THEN pantalla = 6: nom$ = "herre": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 2
        IF orden$ = "Andar hacia" AND palabra$ = "camino al muelle" THEN pantalla = 1: nom$ = "muelle": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF obj1 = 0 AND orden$ = "Andar hacia" AND palabra$ = "risco" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "ME PERDERIA POR ESOS RISCOS.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        IF obj1 = 1 AND orden$ = "Andar hacia" AND palabra$ = "risco" THEN pantalla = 3: nom$ = "risco": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 4: nom$ = "escal": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 3
        IF orden$ = "Andar hacia" AND palabra$ = "camino" THEN pantalla = 2: nom$ = "faro": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF obj13 = 0 AND obj14 = 0 AND orden$ = "Coger" AND palabra$ = "br£jula" THEN obj13 = 1: obj13$ = "caja": GOSUB espacios: locx = 0: locy = 167: texto$ = "LE FALTA LA AGUJA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
   CASE 4
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 2: nom$ = "faro": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "arriba" THEN pantalla = 5: nom$ = "up": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 5
        IF orden$ = "Andar hacia" AND palabra$ = "abajo" THEN pantalla = 4: nom$ = "escal": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Hablar a" AND palabra$ = "viejo" THEN psi1$ = "oldman1": psi2$ = "oldman2": psi3$ = "oldman3": GOTO walker: RETURN
   CASE 6
        IF orden$ = "Andar hacia" AND palabra$ = "muelle" THEN pantalla = 1: nom$ = "muelle": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Hablar a" AND palabra$ = "tontolpueblo" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "NO CONSIGUES ENTABLAR UNA CONVERSACION MUY    PRODUCTIVA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "herrer¡a" THEN psi1$ = "herr1": psi2$ = "herr2": psi3$ = "herr3": GOTO walker: RETURN
        IF x > 100 AND orden$ = "Andar hacia" AND palabra$ = "calle" THEN pantalla = 7: nom$ = "s_posada": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF x < 100 AND orden$ = "Andar hacia" AND palabra$ = "calle" THEN pantalla = 8: nom$ = "limon": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "tienda" AND obj11 = 0 THEN pantalla = 30: nom$ = "tienda2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "tienda" AND obj11 = 1 THEN pantalla = 31: nom$ = "tienda": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 7
        IF orden$ = "Andar hacia" AND palabra$ = "muelle" THEN pantalla = 1: nom$ = "muelle": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 10: nom$ = "posada": psi1$ = "cam1": psi2$ = "cam2": psi3$ = "cam3": GOSUB walker: : RETURN
        IF orden$ = "Hablar a" AND palabra$ = "marino" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "LE CONVENCES PARA DAR UN PASEO.": GOSUB font: SLEEP: GOSUB espacios: pantalla = 33: nom$ = "barca": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 8
        IF ticoj = 0 AND orden$ = "Mirar" AND palabra$ = "zapato" THEN ticoj = 1: obj15 = 1: obj15$ = "ticket": GOSUB espacios: locx = 0: locy = 167: texto$ = "VES UN TICKET Y LO TRINCAS.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        IF limouse = 0 AND orden$ = "Usar  cido con" AND palabra$ = "lim¢n" THEN limouse = 1: acid = acid + 1: GOSUB espacios: locx = 0: locy = 167: texto$ = "AHORA EL ACIDO ES MAS FUERTE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        IF x > 100 AND orden$ = "Andar hacia" AND palabra$ = "calle" THEN pantalla = 6: nom$ = "herre": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF x < 100 AND orden$ = "Andar hacia" AND palabra$ = "calle" THEN pantalla = 9: nom$ = "cruce": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF rama = 0 AND orden$ = "Coger" AND palabra$ = "rama" THEN rama = 1: obj3 = 1: obj3$ = "rama": GOSUB espacios: locx = 0: locy = 167: texto$ = "LA ARRANCO Y LA COJO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
   CASE 9
        IF orden$ = "Andar hacia" AND palabra$ = "villa" THEN pantalla = 8: nom$ = "limon": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF x > 100 AND orden$ = "Andar hacia" AND palabra$ = "camino" THEN pantalla = 11: nom$ = "monast": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF x < 100 AND orden$ = "Andar hacia" AND palabra$ = "camino" THEN pantalla = 12: nom$ = "castle": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 10
        IF orden$ = "Andar hacia" AND palabra$ = "salida" THEN pantalla = 7: nom$ = "s_posada": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Hablar a" AND palabra$ = "camarera" THEN psi1$ = "cam1": psi2$ = "cam2": psi3$ = "cam3": GOTO walker: RETURN
        IF orden$ = "Mirar" AND palabra$ = "estanter¡a" THEN pantalla = 21: nom$ = "botes": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 11
        IF orden$ = "Andar hacia" AND palabra$ = "camino" THEN pantalla = 9: nom$ = "cruce": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN psi1$ = "abad1": psi2$ = "abad2": psi3$ = "abad3": GOTO walker: RETURN
   CASE 12
        IF orden$ = "Andar hacia" AND palabra$ = "camino" THEN pantalla = 9: nom$ = "cruce": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Dar ticket a" AND palabra$ = "portero" THEN ticdao = 1: obj15 = 0: GOSUB espacios: locx = 0: locy = 167: texto$ = "YA PUEDES PASAR, TE DICE EL MENDA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        IF ticdao = 1 AND orden$ = "Andar hacia" AND palabra$ = "castillo" THEN pantalla = 22: nom$ = "croom": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 13
        IF orden$ = "Andar hacia" AND palabra$ = "rinc¢n" THEN pantalla = 14: nom$ = "rincon": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 11: nom$ = "monast": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 14
        IF orden$ = "Andar hacia" AND palabra$ = "sala" THEN pantalla = 15: nom$ = "sala": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF obj10 = 1 AND orden$ = "Usar llave con" AND palabra$ = "puerta" THEN pantalla = 11: nom$ = "monast":  palabra$ = "": GOSUB espacios: locx = 0: locy = 167: texto$ = "LA LLAVE ENCAJA Y ABRE...": GOSUB font: SLEEP: GOSUB espacios: GOSUB loader: GOTO fondong: GOSUB espacios: palabra$ = "": RETURN
   CASE 15
        IF orden$ = "Andar hacia" AND palabra$ = "s¢tano" THEN pantalla = 16: nom$ = "eskal": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "rinc¢n" THEN pantalla = 14: nom$ = "rincon": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "patio" THEN pantalla = 18: nom$ = "patio": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 16
        IF orden$ = "Andar hacia" AND palabra$ = "arriba" THEN pantalla = 15: nom$ = "sala": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF cerrabierto = 1 AND orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 17: nom$ = "sotano": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF acid = 3 AND orden$ = "Usar  cido con" AND palabra$ = "cerrojo" THEN cerrabierto = 1: GOSUB espacios: locx = 0: locy = 167: texto$ = "EL ACIDO DESHACE EL CERROJO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        IF acid <> 3 AND orden$ = "Usar  cido con" AND palabra$ = "cerrojo" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "EL ACIDO NO ES MUY FUERTE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
   CASE 17
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 15: nom$ = "sala": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Mirar" AND palabra$ = "caja" AND box = 0 THEN pantalla = 25 + caja: nom$ = caja$ + "": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF obj22 = 0 AND orden$ = "Mirar" AND palabra$ = "escal¢n" THEN obj22 = 1: obj22$ = "guantes": GOSUB espacios: locx = 0: locy = 167: texto$ = "BAJO EL ESCALON HAY UNOS GUANTES.": GOSUB font: SLEEP: GOSUB espacios: RETURN
   CASE 18
        IF orden$ = "Usar taza con" AND obj17 = 1 AND taz = 1 AND palabra$ = "fuente" THEN taz = 3: GOSUB espacios: locx = 0: locy = 167: texto$ = "LA TAZA ESTA LLENA DE AGUA LIMPIA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 15: nom$ = "sala": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "parroquia" THEN pantalla = 26: nom$ = "entrada": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "celda" THEN
                IF mapabcog = 0 THEN pantalla = 20: nom$ = "room2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
                IF mapabcog = 1 THEN pantalla = 19: nom$ = "room": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        END IF
   CASE 19, 20
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 18: nom$ = "patio": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF pantalla = 20 THEN IF orden$ = "Coger" AND palabra$ = "mapa" THEN mapabcog = 1: obj7 = 1: obj7$ = "mapa": pantalla = 19: nom$ = "room": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 21
        IF MID$(palabra$, 1, 1) = " " THEN pantalla = 10: nom$ = "posada": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Coger" AND palabra$ = " cido" THEN obj8 = 1: GOSUB espacios: locx = 0: locy = 167: texto$ = "YA TENGO ACIDO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        IF orden$ = "Mirar" AND palabra$ = "bote" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "ES UN ACIDO DEBIL.": GOSUB font: SLEEP: GOSUB espacios: botemir = 1: RETURN
        IF chiluse = 0 AND orden$ = "Usar  cido con" AND palabra$ = "chile" THEN chiluse = 1: acid = acid + 1: GOSUB espacios: locx = 0: locy = 167: texto$ = "AHORA ES UN ACIDO MAS FUERTE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
   CASE 22
        IF orden$ = "Andar hacia" AND palabra$ = "salida" THEN pantalla = 12: nom$ = "castle": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "escaleras" THEN pantalla = 24: nom$ = "torre": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 23: nom$ = "froom": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 23
        IF orden$ = "Andar hacia" AND palabra$ = "hall" THEN pantalla = 22: nom$ = "croom": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Usar llavecita con" AND obj18 = 1 AND palabra$ = "armario" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "EL ARMARIO SE ABRE.": GOSUB font: SLEEP: pantalla = 53: nom$ = "arma": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 24
        IF orden$ = "Andar hacia" AND palabra$ = "escaleras" THEN pantalla = 22: nom$ = "croom": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF obj2 = 0 AND orden$ = "Coger" AND palabra$ = "bombas" THEN obj2 = 1: obj2$ = "bomba": GOSUB espacios: locx = 0: locy = 167: texto$ = "YA ES MIA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
   CASE 25
        IF orden$ = "Usar  cido con" AND obj8 = 1 AND palabra$ = "caja" THEN caja = 37: caja$ = "box2": GOSUB espacios: locx = 0: locy = 167: texto$ = "LA CAJA SE DESHACE.": GOSUB font: SLEEP: pantalla = 62: nom$ = "box2": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF MID$(palabra$, 1, 1) = " " THEN pantalla = 17: nom$ = "sotano": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 26
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 27: nom$ = "iglesia": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "alfombra" THEN pantalla = 18: nom$ = "patio": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF obj10 = 0 AND orden$ = "Mirar" AND palabra$ = "alfombra" THEN obj10 = 1: obj10$ = "llave": GOSUB espacios: locx = 0: locy = 167: texto$ = "DEBAJO HAY UNA LLAVE. LA COGES.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        IF obj10 = 1 AND orden$ = "Mirar" AND palabra$ = "alfombra" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "SOLO QUEDA PELUSA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
   CASE 27
        IF orden$ = "Andar hacia" AND palabra$ = "salida" THEN pantalla = 18: nom$ = "patio": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Coger" AND palabra$ = "velas" AND obj9 = 0 THEN obj9 = 1: obj9$ = "vela": GOSUB espacios: locx = 0: locy = 167: texto$ = "COGES UNA VELA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
   CASE 28
        IF orden$ = "Andar hacia" AND palabra$ = "gran roca" THEN pantalla = 29: nom$ = "roca": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "cabana" THEN pantalla = 36: nom$ = "cabaña": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "montana" AND regado <> 1 THEN pantalla = 39: nom$ = "arbol": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "montana" AND regado = 1 THEN pantalla = 40: nom$ = "arbol2": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "laurel" THEN pantalla = 58 + laurel: nom$ = laurel$ + "": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "villa" THEN pantalla = 9: nom$ = "cruce": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 29
        IF orden$ = "Andar hacia" AND palabra$ = "bosque" THEN pantalla = 28: nom$ = "mapa2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Usar br£jula con" AND obj14 = 1 AND palabra$ = "muescas" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "LA ROCA SE DESPLAZA Y BAJAS POR EL HUECO.": GOSUB font: SLEEP: GOSUB espacios: GOSUB ave: RETURN
   CASE 30
        IF orden$ = "Andar hacia" AND palabra$ = "salida" THEN pantalla = 6: nom$ = "herre": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Mover" AND palabra$ = "campana" THEN tiempo = 20: pantalla = 32: nom$ = "tienda3": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 31
        IF orden$ = "Andar hacia" AND palabra$ = "salida" THEN pantalla = 6: nom$ = "herre": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 32
        IF orden$ = "Coger" AND palabra$ = "pecera" THEN obj11 = 1: obj11$ = "pecera": GOSUB espacios: locx = 0: locy = 167: texto$ = "EL TENDERO NO SE DA CUENTA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
   CASE 33
        IF orden$ = "Hablar a" AND palabra$ = "marino" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "VOLVAMOS, LE DICES.": GOSUB font: SLEEP: GOSUB espacios: pantalla = 7: nom$ = "s_posada": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF usando = 1 AND orden$ = "Andar hacia" AND palabra$ = "agua" THEN pantalla = 34: nom$ = "oceano": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 34
        IF orden$ = "Andar hacia" AND palabra$ = "bote" THEN pantalla = 33: nom$ = "barca": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Coger" AND palabra$ = "estrella" THEN obj16 = 1: obj16$ = "estrella": pantalla = 35: nom$ = "oceano2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 35
        IF orden$ = "Andar hacia" AND palabra$ = "bote" THEN pantalla = 33: nom$ = "barca": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 36
        IF tazacog = 0 AND orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 37: nom$ = "dentro": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF tazacog = 1 AND orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 38: nom$ = "dentro2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "bosque" THEN pantalla = 28: nom$ = "mapa2": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 37, 38
        IF pantalla = 37 AND orden$ = "Coger" AND palabra$ = "taza" THEN tazacog = 1: obj17 = 1: obj17$ = "taza": taz = 0: pantalla = 38: nom$ = "dentro2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 36: nom$ = "cabana": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 39, 40
        IF pantalla = 39 AND orden$ = "Usar taza con" AND obj17 = 1 AND taz = 3 AND palabra$ = "plantita" THEN regado = 1000: GOSUB espacios: locx = 0: locy = 167: texto$ = "LA PLANTA SE BEBE TODO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "bosque" THEN pantalla = 28: nom$ = "mapa2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF pantalla = 40 AND orden$ = "Andar hacia" AND palabra$ = "arriba" THEN pantalla = 41: nom$ = "casa": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 41
        IF orden$ = "Andar hacia" AND palabra$ = " rbol" THEN pantalla = 40: nom$ = "arbol2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF obj18 = 0 AND orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 42: nom$ = "indoor": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF obj18 = 1 AND orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 43: nom$ = "indoor2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 42, 43
        IF orden$ = "Andar hacia" AND palabra$ = "puerta" THEN pantalla = 41: nom$ = "casa": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF pantalla = 42 AND orden$ = "Coger" AND palabra$ = "llave" THEN obj18 = 1: obj18$ = "llavecita": pantalla = 43: nom$ = "indoor2": GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Mirar" AND palabra$ = "nota" THEN SHELL "ren data\nota.scr *.exe": SHELL directp$ + "nota": SHELL "ren data\nota.exe *.scr": GOSUB loader: GOTO fondong: RETURN
   CASE 44, 45, 46, 47, 48, 49, 50, 51, 52
        IF orden$ = "Usar vela con" AND obj9 = 1 AND palabra$ = "Sol" THEN sol = 1: obj9 = 0: GOSUB espacios: locx = 0: locy = 167: texto$ = "SE OYE UN CRUJIDO.": GOSUB font: SLEEP: GOSUB espacios: GOSUB ave: RETURN
        IF orden$ = "Usar espada con" AND obj5 = 1 AND palabra$ = "Luna" THEN luna = 1: obj5 = 0: GOSUB espacios: locx = 0: locy = 167: texto$ = "SE OYE UN CRUJIDO.": GOSUB font: SLEEP: GOSUB espacios: GOSUB ave: RETURN
        IF orden$ = "Usar estrella con" AND obj16 = 1 AND palabra$ = "estrella" THEN obj16 = 0: estrella = 1: obj16 = 0: GOSUB espacios: locx = 0: locy = 167: texto$ = "SE OYE UN CRUJIDO.": GOSUB font: SLEEP: GOSUB espacios: GOSUB ave: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "salida" THEN pantalla = 29: nom$ = "roca": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF pantalla = 51 AND orden$ = "Coger" AND palabra$ = "hoja" THEN hojasta = 0: obj19 = 1: obj19$ = "hoja": pantalla = 52: nom$ = "subterr8": panter = 52: GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 53
        IF orden$ = "Andar hacia" AND palabra$ = "habitaci¢n" THEN pantalla = 23: nom$ = "froom": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Mover" AND palabra$ = "percha" THEN pantalla = 54: nom$ = "celda": SHELL "ren data\huges.scr *.exe": SHELL directp$ + "huges": SHELL "ren data\huges.exe *.scr": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 54
        IF orden$ = "Mover" AND palabra$ = "ladrillo suelto" THEN pantalla = 55: nom$ = "pasillo":  GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 55, 56
        IF pantalla = 55 AND orden$ = "Mover" AND palabra$ = "nudo" THEN pantalla = 56: nom$ = "pasillo2":  GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF pantalla = 56 AND cuenta = 0 AND orden$ = "Mirar" AND palabra$ = "faena" THEN pantalla = 57: nom$ = "hats": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "salida" THEN pantalla = 23: nom$ = "froom": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 57
        IF orden$ = "Coger" AND palabra$ = "cuenta" THEN cuenta = 1: obj18 = 0: obj20 = 1: obj20$ = "cuenta": pantalla = 56: nom$ = "pasillo2": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ = "otro lugar" THEN pantalla = 56: nom$ = "pasillo2": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 58, 59, 60
        IF orden$ = "Andar hacia" AND palabra$ = "bosque" THEN pantalla = 28: nom$ = "mapa2": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Usar hoja con" AND palabra$ = "saliente" AND obj19 = 1 THEN laurel = 1: laurel$ = "laurel2": obj19 = 0: pantalla = 59: nom$ = "laurel2": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF pantalla = 59 AND orden$ = "Usar pala con" AND palabra$ = "luz" AND obj4 = 1 THEN laurel = 2: laurel$ = "laurel3": pantalla = 60: nom$ = "laurel3": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF pantalla = 60 AND orden$ = "Mirar" AND palabra$ = "pedestal" THEN pantalla = 61: nom$ = "pedes": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
   CASE 61
        IF orden$ = "Andar hacia" AND palabra$ = "otro lugar" THEN pantalla = 58 + laurel: nom$ = laurel$: GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Usar medall¢n con" AND palabra$ = "hueco" AND med = 1 THEN CHAIN "ending.bas"
        IF orden$ = "Usar medall¢n con" AND palabra$ = "hueco" AND med = 1 THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "EL PEDESTAL NO DESCIENDE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
   CASE 62
        IF orden$ = "Usar guantes con" AND palabra$ = "medall¢n" AND obj22 = 1 THEN obj21 = 1: obj21$ = "medall¢n": box = 1: pantalla = 17: nom$ = "sotano": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Andar hacia" AND palabra$ <> "medall¢n" AND palabra$ <> "caja" THEN pantalla = 17: nom$ = "sotano": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        IF orden$ = "Coger" AND palabra$ = "medall¢n" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "ME QUEMARIA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
END SELECT
IF orden$ = "Hablar a" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "NO PUEDES HABLAR A ESO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
IF orden$ = "Mover" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "NO PUEDES MOVER ESO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
IF orden$ = "Abrir" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "NO SE ABRE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
IF orden$ = "Cerrar" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "NO SE CIERRA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
IF orden$ = "Andar hacia" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "NO PUEDES IR ALLI.": GOSUB font: SLEEP: GOSUB espacios: RETURN
IF orden$ = "Coger" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "NO PUEDES COGER ESO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
IF MID$(orden$, 1, 1) = "U" THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "NO FUNCIONA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
IF orden$ = "Mirar" THEN
SELECT CASE palabra$
        CASE "mapa"
                SHELL "ren data\mapa.scr *.exe": SHELL directp$ + "mapa": SHELL "ren data\mapa.exe *.scr": GOSUB loader: GOTO fondong: RETURN
        CASE "br£jula"
                orden$ = "Andar hacia": SHELL directp$ + "brujula": GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
        CASE "bomba", "bombas"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "DE HIERRO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "rama"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "BASTANTE RECTA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "pala"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "PA CAVAR.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "espada"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "EN FORMA DE MEDIA LUNA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "pa¤uelo"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "PONE MARY GABBS.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE " cido"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "METES EL DEDO Y SIENTES UN CALORCILLO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "vela"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ESTA ENCENDIDA Y BRILLA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "llave"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ES VIEJA Y GRUESA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "pecera"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ES DE CRISTAL, BASTANTE AMPLIA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "caja"
                IF pantalla = 25 THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "GUARDA EL MEDALLON.": GOSUB font: SLEEP: GOSUB espacios: RETURN
                IF pantalla = 62 THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "ESTA DESHECHA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
                IF pantalla <> 17 AND pantalla <> 25 AND pantalla <> 62 THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "LA CAJA DE UNA BRUJULA SIN AGUJA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "aguja"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ES LA AGUJA DE UNA BRUJULA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "ticket"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "PONE VENGA A WHITE CASTLE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "estrella"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ES UN BICHO DE CINCO PUNTAS.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "taza"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "TRANSPORTA FLUIDOS.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "llavecita"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "PEQUE¥A, PERO PODEROSA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "hoja"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "UNA HOJA DE LAUREL DE CRISTAL.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "cuenta"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "PARECE LA CUENTA DE UN COLLAR, Y PESA LO SUYO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "medall¢n"
                IF med = 0 THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "LE FALTA UNA CUENTA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
                IF med = 1 THEN GOSUB espacios: locx = 0: locy = 167: texto$ = "PESA MAS QUE CUANDO LE FALTABA UNA CUENTA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "guantes"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "SON DE UN RESISTENTE CUERO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "tontolpueblo", "sordomudo", "viejo"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "TE MIRA FIJAMENTE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "marino"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "PARECE...UN MARINO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "puerta"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "PRACTICA...ABRIR...CERRAR.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "camarera"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "UNA PELIRROJA UN POCO FLACA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "escaleras"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "PRACTICAS...SUBIR...BAJAR.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "lim¢n"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "NO TE GUSTAN POR SU ACIDEZ.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "portero"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ES UN TIPO DURO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "armario"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "GUARDAN COSILLAS.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "fresco"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "EL CAPITAN WOLFZ Y UNA BRUJULA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "monasterio"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "PARECE UNA VIEJA FORTALEZA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "fuente"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "AGUA LIMPIA Y PURA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "parroquia"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "NO SE OYE A NADIE DENTRO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "celda"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ES LA HABITACION DEL ABAD.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "cama"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ESTA DESTROZADA, PERO SIRVE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "saetera"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ENTRA LUZ.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "scriptorium"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ES DE MADERA DE ROBLE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "velas"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "BRILLAN COMO EL SOL.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "miel"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "GRANJA DON PACO": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "sal"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "PURA SAL MARINA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "avecream"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "NO GUISES SIN ELLO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "cerveza"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ESPUMOSA Y CADUCADA": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "lej¡a"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ESTA LEJIA HACE MAS.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "vino"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "UN ORUJO DEL BUENO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "chile"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "MUY PICANTE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "agua"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ESTA PODRIDA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "alcohol"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ES PARA ENCENDER LAMPARAS.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "mueble"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "¨QUE HABRA DENTRO?": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "muescas"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "SON CUATRO MUESCAS.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "roca"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ALGO TE DICE QUE ESTA PIEDRA ES IMPORTANTE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "laurel"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "IMPONENTE, EN TODO EL CENTRO DEL BOSQUE.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "saliente"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ES DE COBRE, EN FORMA DE RAMA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "luz"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "¨INDICARA ALGO?": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "hueco"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "TIENE FORMA DE COLLAR.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "cosa"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "TE ENCANTARIA ESA...COSA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "ca¤a"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "SIEMPRE SO¥ASTE CON UNA HEIBWESSER.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "reloj"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ES PARA HACER RUIDOS.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "mono"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "TIENES QUE CONSEGUIRLO...TE ENCANTA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "campana"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "LA QUIERES. SEGURO QUE HACE UN BONITO SONIDO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "tendero"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "TE ENCANTA, PERO NO LE VES EL PRECIO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "cofre"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "MADERA PODRIDA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "concha"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "ES BLANCA Y CONCHIFORMOIDAL.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "bota"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "SI ESTUVIERA LA PAREJA...": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "coral"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "BONITA PLANTA SUBMARINA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "risco"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "PODRIAS PERDERTE POR AHI.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "faro"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "EDIFICIO FUNCIONAL.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "plato"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "MMMMH...GARBANZOS...": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "l mpara"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "SIRVEN PARA DAR LUZ": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "ladrillo suelto"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "BIEN...TAL VEZ PUEDA SER UNA SALIDA.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "reja"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "EMPUJAS, PERO NO PUEDES MOVERLAS.": GOSUB font: SLEEP: GOSUB espacios: RETURN
        CASE "percha"
                GOSUB espacios: locx = 0: locy = 167: texto$ = "UNICA PERCHA DEL ARMARIO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
END SELECT
END IF
GOSUB espacios: locx = 0: locy = 167: texto$ = "NO PUEDES HACERLO.": GOSUB font: SLEEP: GOSUB espacios: RETURN
ave:
IF sol = 0 AND luna = 0 AND estrella = 0 THEN pantalla = 44: nom$ = "subterr"
IF sol = 1 AND luna = 0 AND estrella = 0 THEN pantalla = 45: nom$ = "subterr1"
IF sol = 0 AND luna = 1 AND estrella = 0 THEN pantalla = 46: nom$ = "subterr2"
IF sol = 0 AND luna = 0 AND estrella = 1 THEN pantalla = 47: nom$ = "subterr3"
IF sol = 1 AND luna = 1 AND estrella = 0 THEN pantalla = 48: nom$ = "subterr4"
IF sol = 1 AND luna = 0 AND estrella = 1 THEN pantalla = 49: nom$ = "subterr5"
IF sol = 0 AND luna = 1 AND estrella = 1 THEN pantalla = 50: nom$ = "subterr6"
IF obj19 = 0 AND sol = 1 AND luna = 1 AND estrella = 1 THEN hojasta = 1: pantalla = 51: nom$ = "subterr7"
IF obj19 = 1 AND sol = 1 AND luna = 1 AND estrella = 1 THEN hojasta = 1: pantalla = 52: nom$ = "subterr8"
GOSUB loader: GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
loader:
SHELL "ren data\" + nom$ + ".scr " + nom$ + ".exe": SHELL directp$ + nom$ + "/dis /w0": PUT (284, 0), panel, PSET: SHELL "ren data\" + nom$ + ".exe " + nom$ + ".scr": RETURN
font:
aa = 0: PX = 0: FOR a = 1 TO LEN(texto$): PX = PX + 1: ahora$ = MID$(texto$, a, 1): aa = PX
IF locx + (aa * 6) + 10 >= 287 THEN PX = 1: locx = PX: aa = PX: locy = locy + 7
SELECT CASE ahora$
CASE "A"
PUT (locx + (aa * 6), locy), af, PSET
CASE "B"
PUT (locx + (aa * 6), locy), bf, PSET
CASE "C"
PUT (locx + (aa * 6), locy), cf, PSET
CASE "D"
PUT (locx + (aa * 6), locy), df, PSET
CASE "E"
PUT (locx + (aa * 6), locy), ef, PSET
CASE "F"
PUT (locx + (aa * 6), locy), ff, PSET
CASE "G"
PUT (locx + (aa * 6), locy), gf, PSET
CASE "H"
PUT (locx + (aa * 6), locy), hf, PSET
CASE "I"
PUT (locx + (aa * 6), locy), iif, PSET
CASE "J"
PUT (locx + (aa * 6), locy), jf, PSET
CASE "K"
PUT (locx + (aa * 6), locy), kf, PSET
CASE "L"
PUT (locx + (aa * 6), locy), lf, PSET
CASE "M"
PUT (locx + (aa * 6), locy), mf, PSET
CASE "N"
PUT (locx + (aa * 6), locy), nf, PSET
CASE "¥"
PUT (locx + (aa * 6), locy), nnf, PSET
CASE "O"
PUT (locx + (aa * 6), locy), of, PSET
CASE "P"
PUT (locx + (aa * 6), locy), pf, PSET
CASE "Q"
PUT (locx + (aa * 6), locy), qf, PSET
CASE "R"
PUT (locx + (aa * 6), locy), rf, PSET
CASE "S"
PUT (locx + (aa * 6), locy), sf, PSET
CASE "T"
PUT (locx + (aa * 6), locy), tf, PSET
CASE "U"
PUT (locx + (aa * 6), locy), uf, PSET
CASE "V"
PUT (locx + (aa * 6), locy), vf, PSET
CASE "W"
PUT (locx + (aa * 6), locy), wf, PSET
CASE "X"
PUT (locx + (aa * 6), locy), xf, PSET
CASE "Y"
PUT (locx + (aa * 6), locy), yf, PSET
CASE "Z"
PUT (locx + (aa * 6), locy), zf, PSET
CASE "0"
PUT (locx + (aa * 6), locy), of, PSET
CASE "1"
PUT (locx + (aa * 6), locy), f1, PSET
CASE "2"
PUT (locx + (aa * 6), locy), f2, PSET
CASE "3"
PUT (locx + (aa * 6), locy), f3, PSET
CASE "4"
PUT (locx + (aa * 6), locy), f4, PSET
CASE "5"
PUT (locx + (aa * 6), locy), f5, PSET
CASE "6"
PUT (locx + (aa * 6), locy), f6, PSET
CASE "7"
PUT (locx + (aa * 6), locy), f7, PSET
CASE "8"
PUT (locx + (aa * 6), locy), f8, PSET
CASE "9"
PUT (locx + (aa * 6), locy), f9, PSET
CASE "¨"
PUT (locx + (aa * 6), locy), int1, PSET
CASE "?"
PUT (locx + (aa * 6), locy), int2, PSET
CASE "."
PUT (locx + (aa * 6), locy), punto, PSET
CASE ","
PUT (locx + (aa * 6), locy), coma, PSET
CASE "-"
PUT (locx + (aa * 6), locy), gui, PSET
END SELECT
NEXT
RETURN
espacios:
LOCATE 22, 1: PRINT SPACE$(35)
PRINT SPACE$(35)
RETURN
walker:
CLS
SHELL "ren data\talkpal.scr talkpal.exe"
SHELL directp$ + "talkpal /dis /w0"
SHELL "ren data\talkpal.exe talkpal.scr"
IF psi1$ = "" THEN psi1$ = "abad1": psi2$ = "abad2": psi3$ = "abad3"
IF psi1$ = ultimopsi$ THEN GOTO xx
ultimopsi$ = psi1$: OPEN psi1$ + ".gra" FOR BINARY AS #1
FOR a = 0 TO 1200: GET #1, , walk1(a): NEXT: CLOSE
OPEN psi2$ + ".gra" FOR BINARY AS #1: FOR a = 0 TO 1200: GET #1, , walk2(a): NEXT: CLOSE
OPEN psi3$ + ".gra" FOR BINARY AS #1: FOR a = 0 TO 1200: GET #1, , walk3(a): NEXT: CLOSE
xx:
DO
SELECT CASE psi1$
  CASE "abad1"
    LOCATE 4, 10: COLOR 200: PRINT "Abad": GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "¨Qu‚ desea?": opcion1$ = "UNA LIMOSNITA...": opcion2$ = "¨ES ESTO UN MONASTERIO?": opcion3$ = "QUISIERA HACERLE UNAS PREGUNTAS.": GOSUB opciones: GOSUB seleccion
      SELECT CASE selec
        CASE 1
          GOTO RespAbad1
        CASE 2
          GOTO RespAbad2
        CASE 3
          GOTO RespAbad3
      END SELECT
  CASE "cam1"
    LOCATE 4, 10: COLOR 200: PRINT "Camarera": GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "¨SÖ?": opcion1$ = "SOY EL CAPITAN HAYES.": opcion2$ = "BONITO DIA.": res = INT(RND * 3)
    IF res = 1 THEN resultado$ = "PADRE"
    IF res = 2 THEN resultado$ = "HERMANO"
    IF res = 0 THEN resultado$ = "SUEGRO"
    opcion3$ = "SOY TU " + resultado$ + " PERDIDO.": GOSUB opciones: GOSUB seleccion
      SELECT CASE selec
        CASE 1
          GOTO RespCam1
        CASE 2
          GOTO RespCam2
        CASE 3
          GOTO RespCam3
      END SELECT
  CASE "herr1"
    LOCATE 4, 10: COLOR 200: PRINT "Herrero": GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "¨Y bien?": opcion1$ = "UNA ESPADA, SI NO ES MOLESTIA.": opcion2$ = "ME HARIA ILUSION UNA PALA.": opcion3$ = "ME INTERESA OIR SU NOMBRE.": GOSUB opciones: GOSUB seleccion
      SELECT CASE selec
        CASE 1
          GOTO RespHerr1
        CASE 2
          GOTO RespHerr2
        CASE 3
          GOTO RespHerr3
      END SELECT
  CASE "oldman1"
    LOCATE 4, 10: COLOR 200: PRINT "Viejo del faro": GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "¨Y bien?": opcion1$ = "PASABA POR AQUI...OLI COMIDA...": opcion2$ = "SOY UN PIRATA MUY MAAALO.": opcion3$ = "SOY EL CAPITAN HAYES.": GOSUB opciones: GOSUB seleccion
      SELECT CASE selec
        CASE 1
          GOTO RespViejo2
        CASE 2
          GOTO RespViejo3
        CASE 3
          GOTO RespViejo4
      END SELECT
END SELECT: CLS : LOOP
RespAbad1:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "No tiene usted pinta de estar necesitado": SLEEP: GOTO FinCharla
RespAbad2:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "S¡.": opcion1$ = "¨Y ES MUY GRANDE?": opcion2$ = "¨Y TIENE CAPILLA?": opcion3$ = "¨Y TIENE MUCHAS CELDAS?": GOSUB opciones: GOSUB seleccion
    SELECT CASE selec
      CASE 1
        GOSUB RespAbad4
      CASE 2
        GOSUB RespAbad4
      CASE 3
        GOSUB RespAbad4
    END SELECT
RespAbad3:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "No le conozco.": opcion1$ = "NI YO A USTED.": opcion2$ = "¨NO TE ACUERDAS DE MI?": IF obj6 = 1 THEN opcion3$ = "¨LE RECUERDA A ALGO ESTE PA¥UELO?" ELSE opcion3$ = ""
    GOSUB opciones: GOSUB seleccion
    SELECT CASE selec
      CASE 1
        GOSUB RespAbad5
      CASE 2
        GOSUB RespAbad6
      CASE 3
        GOSUB RespAbad7
    END SELECT
RespAbad4:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "S¡.": SLEEP: GOTO FinCharla
RespAbad5:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Pues adi¢s, muy buenas.": SLEEP: GOTO FinCharla
RespAbad6:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Pueees...no caigo.": SLEEP: GOTO FinCharla
RespAbad7:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "As¡ que eres amigo de Mary...haberlo di- cho.": opcion1$ = "¨HA OIDO HABLAR DEL TESORO DE LA ISLA?": opcion2$ = "¨QUE ES LA BRUJULA?": IF obj7 = 0 THEN opcion3$ = "¨COMO PODRIA ENTRAR EN EL BOSQUE?" ELSE opcion3$ = ""
    GOSUB opciones: GOSUB seleccion
    SELECT CASE selec
      CASE 1
        GOSUB RespAbad8
      CASE 2
        GOSUB RespAbad9
      CASE 3
        GOSUB RespAbad10
    END SELECT
RespAbad8:
IF abad = 1 THEN GOTO free1
SHELL "ren data\*.scr *.exe"
dabook:
    abad = 1
    CLS : SHELL directp$ + "dabook/dis/w0": DO: GOSUB tecler
    IF der = 1 THEN GOTO wolfz
    LOOP
wolfz:
    CLS : SHELL directp$ + "wolfz/dis/w0": DO: GOSUB tecler
    IF der = 1 THEN GOTO abrebox
    IF izq = 1 THEN GOTO dabook
    LOOP
abrebox:
    CLS : SHELL directp$ + "abrebox/dis/w0": DO: GOSUB tecler
    IF der = 1 THEN GOTO despide
    IF izq = 1 THEN GOTO wolfz
    LOOP
despide:
    CLS : SHELL directp$ + "despide/dis/w0": DO: GOSUB tecler
    IF der = 1 THEN SHELL "ren data\*.exe *.scr": GOTO free1
    IF izq = 1 THEN GOTO abrebox
    LOOP
free1:
    pantalla = 13: nom$ = "vete": GOTO FinCharla
RespAbad9:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Es una especie de llave.": SLEEP: GOTO FinCharla
RespAbad10:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Con un mapa y desde el cruce de caminos.": SLEEP: GOTO FinCharla
RespCam1:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "¨Eres pirata?": opcion1$ = "SI, SE¥ORITA.": opcion2$ = "¨QUE ES UN PIRACA?": opcion3$ = "NO, POR DIOS.": GOSUB opciones: GOSUB seleccion
    SELECT CASE selec
      CASE 1
        GOSUB RespCam4
      CASE 2
        GOSUB RespCam5
      CASE 3
        GOSUB RespCam6
    END SELECT
RespCam2:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "S¡.": SLEEP: GOTO FinCharla
RespCam3:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Te he echado de menos (snif).": SLEEP: GOTO FinCharla
RespCam4:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Me gustar¡a ser pirata.": opcion1$ = "¨UNA MUJER? OLVIDALO.": opcion2$ = "SOLO SI ERES CAPAZ DE CORTARTE LA MANO.": opcion3$ = "VALE, TE ACEPTO COMO COCINERA.": GOSUB opciones: GOSUB seleccion
    SELECT CASE selec
      CASE 1
        GOSUB RespCam7
      CASE 2
        GOSUB RespCam8
      CASE 3
        GOSUB RespCam9
    END SELECT
RespCam5:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Olv¡dalo.": SLEEP: GOTO FinCharla
RespCam6:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Vaya.": SLEEP: GOTO FinCharla
RespCam7:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Machista...": SLEEP: GOTO FinCharla
RespCam8:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Este...mejor no.": SLEEP: GOTO FinCharla
RespCam9:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Vale. Gracias. Toma mi pa¤uelo y habla  con el abad.": obj6 = 1: obj6$ = "pa¤uelo": SLEEP: GOTO FinCharla
RespViejo2:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "No te voy a dar.": SLEEP: GOTO FinCharla
RespViejo3:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "¨De veras?": GOTO RespViejo5
RespViejo4:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "No le conozco.": GOTO RespViejo5
RespViejo5:
    opcion1$ = "BUSCO COMIDA Y ALOJAMIENTO.": opcion2$ = "VEO QUE LE GUSTA LA BUENA MESA.": opcion3$ = "BONITA ISLA.": GOSUB opciones: GOSUB seleccion
    SELECT CASE selec
      CASE 1
        GOSUB RespViejo6
      CASE 2
        GOSUB RespViejo2
      CASE 3
        GOSUB RespViejo7
    END SELECT
RespViejo6:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Puede ir a la Posada del Tuerto, en la  villa.": SLEEP: GOTO FinCharla
RespViejo7:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "S¡...Dicen que oculta un tesoro": opcion1$ = "¨COMO PUEDO ENCONTRARLO?": opcion2$ = "FRANCAMENTE, PREFIERO LA COSTA.": opcion3$ = "¨ES MUY GRANDE?": GOSUB opciones: GOSUB seleccion
    SELECT CASE selec
      CASE 1
        GOSUB RespViejo8
      CASE 2
        GOSUB RespViejo9
      CASE 3
        GOSUB RespViejo10
    END SELECT
RespViejo8:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Necesitar s La Br£jula. Pero no est  en ninguna parte...y est  en todas.": SLEEP: GOTO FinCharla
RespViejo9:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "¨S¡? Toma...un mapa de los riscos.": obj1$ = "mapa": obj1 = 1: SLEEP: GOTO FinCharla
RespViejo10:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "No lo s‚...Nunca lo he visto.": SLEEP: GOTO FinCharla
RespHerr1:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Necesito hierro.": opcion1$ = "TOMA, Y YO.": opcion2$ = "PUES BUSCALO, TIO VAGO.": IF obj2 = 1 THEN opcion3$ = "TOMA ESTA BOLA DE CA¥ON." ELSE opcion3$ = ""
    GOSUB opciones: GOSUB seleccion
    SELECT CASE selec
      CASE 1
        GOSUB RespHerr5
      CASE 2
        GOSUB RespHerr5
      CASE 3
        IF obj2 = 1 THEN obj2 = 0: GOSUB RespHerr6 ELSE GOTO FinCharla
    END SELECT
RespHerr2:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Necesitar‚ hierro y un palo.": opcion1$ = "BUSCALOS, OYE."
    IF obj3 = 1 THEN opcion2$ = "TOMA ESTA RAMA DE LIMONERO." ELSE opcion2$ = ""
    IF obj2 = 1 THEN opcion3$ = "TOMA ESTA BOLA DE CA¥ON." ELSE opcion3$ = ""
    GOSUB opciones: GOSUB seleccion
    SELECT CASE selec
      CASE 1
        GOSUB RespHerr5
      CASE 2
        obj3 = 0: palo = 1
        IF hierro = 1 THEN GOSUB RespHerr4 ELSE GOTO FinCharla
      CASE 3
        obj2 = 0: hierro = 1
        IF palo = 1 THEN GOSUB RespHerr4 ELSE GOTO FinCharla
    END SELECT
RespHerr3:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Mohamed Al¡ Rahm n II.": SLEEP: GOTO FinCharla
RespHerr4:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Toma tu pala.": obj4$ = "pala": obj4 = 1: SLEEP: GOTO FinCharla
RespHerr5:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Graciosillo...": SLEEP: GOTO FinCharla
RespHerr6:
    GOSUB borrater: GOSUB HablandoPsi: LOCATE 10, 1: COLOR 201: PRINT "Toma tu espada, estilo musulm n (media- luniforme).": obj5 = 1: obj5$ = "espada": SLEEP: GOTO FinCharla
borrater:
FOR l = 10 TO 14: LOCATE l, 1: PRINT "                                                  ": NEXT: RETURN
seleccion:
DO: i$ = INKEY$: IF i$ = "" THEN GOTO seleccion
SELECT CASE i$
   CASE "1"
     selec = 1: RETURN
   CASE "2"
     selec = 2: RETURN
   CASE "3"
     selec = 3: RETURN
END SELECT: LOOP
opciones:
FOR l = 13 TO 21: LOCATE l, 1: PRINT "                              ": NEXT
IF opcion1$ <> "" THEN locx = 0: locy = 120: texto$ = "1-" + opcion1$: GOSUB font
IF opcion2$ <> "" THEN locx = 0: locy = 127: texto$ = "2-" + opcion2$: GOSUB font
IF opcion3$ <> "" THEN locx = 0: locy = 134: texto$ = "3-" + opcion3$: GOSUB font
RETURN
HablandoPsi:
FOR v = 0 TO 5: PUT (1, 1), walk3, PSET: FOR t = 0 TO 200: NEXT: PUT (1, 1), walk2, PSET: FOR t = 0 TO 200: NEXT: PUT (1, 1), walk1, PSET: FOR t = 0 TO 200: NEXT: NEXT: RETURN
FinInvent:
SCREEN 13: GOSUB loader:  palabra$ = objs$(cy - 5): COLOR 201: RETURN
FinCharla:
GOSUB loader:  GOTO fondong: palabra$ = "": GOSUB espacios: RETURN
Inventario:
CLS : SCREEN 12: LOCATE 2, 10: PRINT "Pulsa objeto que vas a "; orden$: LOCATE 5, 1: PRINT " úúúninguno"
DIM n(20): numobjs = 0: n = 0
objs$(n) = "": n = n + 1
IF obj1 = 1 THEN PRINT " úúú" + obj1$: numobjs = numobjs + 1: objs$(n) = obj1$: n = n + 1
IF obj2 = 1 THEN PRINT " úúú" + obj2$: numobjs = numobjs + 1: objs$(n) = obj2$: n = n + 1
IF obj3 = 1 THEN PRINT " úúú" + obj3$: numobjs = numobjs + 1: objs$(n) = obj3$: n = n + 1
IF obj4 = 1 THEN PRINT " úúú" + obj4$: numobjs = numobjs + 1: objs$(n) = obj4$: n = n + 1
IF obj5 = 1 THEN PRINT " úúú" + obj5$: numobjs = numobjs + 1: objs$(n) = obj5$: n = n + 1
IF obj6 = 1 THEN PRINT " úúú" + obj6$: numobjs = numobjs + 1: objs$(n) = obj6$: n = n + 1
IF obj7 = 1 THEN PRINT " úúú" + obj7$: numobjs = numobjs + 1: objs$(n) = obj7$: n = n + 1
IF obj8 = 1 THEN PRINT " úúú" + obj8$: numobjs = numobjs + 1: objs$(n) = obj8$: n = n + 1
IF obj9 = 1 THEN PRINT " úúú" + obj9$: numobjs = numobjs + 1: objs$(n) = obj9$: n = n + 1
IF obj10 = 1 THEN PRINT " úúú" + obj10$: numobjs = numobjs + 1: objs$(n) = obj10$: n = n + 1
IF obj11 = 1 THEN PRINT " úúú" + obj11$: numobjs = numobjs + 1: objs$(n) = obj11$: n = n + 1
IF obj12 = 1 THEN PRINT " úúú" + obj12$: numobjs = numobjs + 1: objs$(n) = obj12$: n = n + 1
IF obj13 = 1 THEN PRINT " úúú" + obj13$: numobjs = numobjs + 1: objs$(n) = obj13$: n = n + 1
IF obj14 = 1 THEN PRINT " úúú" + obj14$: numobjs = numobjs + 1: objs$(n) = obj14$: n = n + 1
IF obj15 = 1 THEN PRINT " úúú" + obj15$: numobjs = numobjs + 1: objs$(n) = obj15$: n = n + 1
IF obj16 = 1 THEN PRINT " úúú" + obj16$: numobjs = numobjs + 1: objs$(n) = obj16$: n = n + 1
IF obj17 = 1 THEN PRINT " úúú" + obj17$: numobjs = numobjs + 1: objs$(n) = obj17$: n = n + 1
IF obj18 = 1 THEN PRINT " úúú" + obj18$: numobjs = numobjs + 1: objs$(n) = obj18$: n = n + 1
IF obj19 = 1 THEN PRINT " úúú" + obj19$: numobjs = numobjs + 1: objs$(n) = obj19$: n = n + 1
IF obj20 = 1 THEN PRINT " úúú" + obj20$: numobjs = numobjs + 1: objs$(n) = obj20$: n = n + 1
IF obj21 = 1 THEN PRINT " úúú" + obj21$: numobjs = numobjs + 1: objs$(n) = obj21$: n = n + 1
IF obj22 = 1 THEN PRINT " úúú" + obj22$: numobjs = numobjs + 1: objs$(n) = obj22$: n = n + 1
cx = 1: cy = 5: LOCATE cy, cx: PRINT "": DO: i$ = INKEY$
SELECT CASE i$
  CASE "A", "a"
        IF cy < 5 + numobjs THEN cy = cy + 1
        LOCATE cy - 1, cx: PRINT " ": LOCATE cy, cx: PRINT ""
  CASE "Q", "q"
        IF cy > 5 THEN cy = cy - 1
        LOCATE cy + 1, cx: PRINT " ": LOCATE cy, cx: PRINT ""
  CASE " "
        GOTO FinInvent
END SELECT: LOOP
tecler:
der = 0: izq = 0: DO: i$ = INKEY$
  SELECT CASE i$
        CASE CHR$(0) + "M"
         der = 1
         RETURN
        CASE CHR$(0) + "K"
         izq = 1
         RETURN
  END SELECT
LOOP

