\RESPUESTAS

;  ************************** SALIDAS CORTADAS O COMENTADAS **********

-* *
IFPROCESS 8   ; Lo he metido todo en un proceso aparte por comodidad
DONE          ; y claridad

;  ************************** COGER *********************

-coger todo    ; La entrada COGER TODO ha de ser la 1¦ de las de COGER
push 1 100
objat @1 100
notzero 100
pop 1 100
doall @1
process 0 ; Tabla de Respuestas
done
-coger todo
pop 1 100
message 22
done

-coger barra  ; La barra aparece en la localidad de la l pida
at 26
isat 9 252
create 9
autog
done

-coger *
autog
done

; *************************** DEJAR *****************************

-dejar todo    ; La entrada DEJAR TODO ha de ser la 1¦ de las de DEJAR
push 1 100
objat 254 100
notzero 100
pop 1 100
doall 254
process 0
done
-dejar todo
pop 1 100
message 21
done

-dejar antor
carried 0
lt 1 25 ; NO EN CUEVAS
message 77
done

-dejar *
autod
done


; ******************************* CONTROL ***************************

-load *
load
zero 13
macro marco  ; pone el marco de fondo que corresponda seg£n donde estemos
process 4; OBJETOS
set 255
done
-load *
done

-save *
save
done

-fin *
message 32
cont
end
-fin *
done

-reiniciar *
message 31
cont
reset
zero 13
macro marco
wintop
process 4
set 255
done
-reiniciar *
done

-score *
turns
score
done

-salidas *
exits @1 52
done

; ************************** EXAMINAR ********************

-ex *
-mirar *     ; Alguien podr¡a poner Mirar Ventana m s bien que EX VENTANA
ifprocess 7  ; Uso IFPROCESS porque si entra con MIRAR podr¡a salir con NOTDONE
done

; ***************************** VARIOS ***************************

-llamar puerta
at 31
message 101
done

-atar cuerda    ; Esto es para que siempre digan ATAR XXXX CON SOGA y no
push 1 22       ; ATAR SOGA A XXXX, simplemente intercambio el nombre 1 y
let 22 @19      ; el 2 si veo que el 1 es soga(cuerda).
pop 1 19   ; SWAPFLAG 22 19
push 1 23
let 23 @9  ; SWAPFLAG 23 9
pop 1 9    ; tambi‚n el objeto referenciado
notdone    ; dejo seguir para que llegue al verdadero ATAR

-atar *
noun2 cuerda
CARRIED 4   ; Llevamos la cuerda
NOTEQ 9 255 ; Es un objeto
CARRIED @9   ; lo llevamos
NOTEQ 9 10  ; y no es el gancho
MESSAGE 99   ; ¨ Para que atar ... ?
DONE

-atar *
noun2 cuerda
CARRIED 4
EQ 9 255     ; No es un objeto
MESSAGE 98   ; Mal sitio
DONE

-atar gancho
noun2 cuerda
CARRIED 10 ; el gancho
CARRIED 4  ; la soga
PLACE 10 0
PLACE 4 0
MESSAGE 100
PLACE 5 254
DONE

-dormir *
message 84
done

-ayuda *
message 75
newline
done

-inven *
macro inven
done

-mirar armario
btst 253 0 ; esta abierto
at 4
goto 11
dsc 11
macro lstobj ; Describo el interior del armario
goto 4
done
-mirar armario
at 4
btst0 253 0; esta cerrado
message 83
done

-mirar *
dsc @1
process 1
macro lstob
done


-sonido *    ; SONIDO ON/OFF
bneg 252 1
btst 252 1
sndoff
done
-sonido *
sndon
done

-usar *      ; ANTI ®AVENTURISTAS-GRAFICOS¯ Y ®NEO-AVENTUREROS¯
message 74   ; ¨Usar? ¨C¢mo exactamente?
done

-meter antor
prep en
noun2 armar
at 4
message 77
done
-meter *
prep en
objhigh @23 0  ; ES CONTENEDOR EL SEGUNDO OBJETO ?
present @9
present @23    ; Ambos presentes
noteq 9 @23    ; METER UN OBJETO EN SI MISMO!!!
place @9 @23
message 72 0
done
-meter *
prep en
noteq 23 255  ; segundo nombre v lido
objhigh @23 0 ; Es contenedor
present @23   ; Est  aqu¡
absent @9     ; El objeto a meter no esta!!!
message 70
done
-meter *
prep en
noteq 23 255 ; hay un segundo nombre v lido (NO-NONOUN2)
objlow @23 0 ; NO ES CONTENEDOR
present @23 ; Est  aqu¡
message 76
done

-sacar *
prep de
noteq 23 255
present @23
objhigh @23 0
isat @9 @23
create @9
message 73 0
autog
done

-creditos *
int 0
rfon
cls
push 1 25
pcxwin 9
pcxfast 1002
play 4; "Romance An¢nimo" SOLO SOUNDBLASTER
rfon
anykey
macro marco ; pone marco correspondiente
process 4 ; dibujo objetos
pop 1 25
wintop
set 255
noplay
int 1
done

-abrir armar
at 4
btst0 253 0
message 71
bset 253 0
voc 9
pcx 2004
done

-abrir armario
at 4
btst 253 0
message 80
done

-cerrar armario
at 11           ; dentro
message 51      ; no quiero quedarme encerrado
done
-cerrar armario
at 4
btst 253 0
bclr 253 0
message 79
voc 9
pcxnp 4
setexit 7 0
done

-cerrar armario
at 4
btst0 253 0
message 81
done

-poner antor
-reponer antor
at 23
carried 0
create 0
message 96
done

-decir *
message 103  ; USA "HABLAR CON"
done
-hablar *
ifprocess 9
done