Antes de levantar la liebre a ver si veis algo raro en esta rutina (evidentemente usa txtpaws):
Código:
METER _
LT fObjeto 255 ; Hay objeto
NOTEQ fNombre2 255 ; Y tengo segundo nombre (contenedor)
LT fNombre 255 ; Es un nombre válido del vocabulario
CARRIED @fObjeto ; Llevas el objeto
NEWLINE
COPYFF fObjeto fAux01 ; Copias el objeto a otro flag
COPYFF fNombre2 fNombre
COPYFF fAdjetivo2 fAdjetivo
WRITE "Nombre nuevo -> "
PRINT fNombre
NEWLINE
WRITE "Adjetivo nuevo -> "
PRINT fAdjetivo
NEWLINE
WHATO ; Ahora fObjeto contiene el contenedor
WRITE "Objeto nuevo -> "
PRINT fObjeto
NEWLINE
;; PRESENT @fObjeto
ONOTZERO @51 1 ; ¿Es un contenedor?
WRITE "El segundo objeto es un contenedor."
COPYFF 51 fAux02 ; Salva el contenedor a otro objeto
COPYFF fAux01 fObjeto ; fObjeto vuelve a ser el original
AUTOP @fAux02
OK
el problema parece radicar en que el
WHATO no hace la conversión del nuevo nombre-adjetivo a objeto. ¿Fallo de concepto o fallo de comando?. En alguna otra situación
WHATO si se comporta con naturalidad