Hacia el 1 de octubre de 1996 les escribí solicitándoles un remedio para los problemas en la ejecución de uno de sus programas, el juego Ravenloft: Stone Prophet en su versión CD-ROM.

Hoy me ha llegado un disco de actualización acompa ado de un consejo para evitar problemas con el programa. Agradezco su atención, pero lamento comunicarles que todos los archivos contenidos en el disco son exactamente iguales a los que se han instalado en mi disco duro o permanecen en el CD-ROM. El número de versión sigue siendo el mismo, 1.00

Sin embargo, el consejo de desactivar el sonido mientras se mata a las "Serpientes de Set" ha dado resultado, aunque ignoro por qué el sonido da problemas sólo en este caso (los efectos de sonido y voz funcionan normalmente en cualquier otro momento).

El problema al coger la "llave transportadora" de las catacumbas enterradas se mantiene. Examinando el OBJECTS.DAT que me envían en disquete (idéntico al OBJECTS.DAT del CD-ROM) he visto que la estructura de los registros es:

Descripción (40 carácteres) seguida de 25 bytes de datos (en total, 65 bytes).

En el caso de la "LLAVE TRANSPORTADORA CATACUMBAS ENTERRA." (bytes 2BF5 hexadecimal y siguientes), se agotan los 40 carácteres, mientras que en otros casos se rellena el espacio final con ceros (comparen con 2d36h: "LLAVE TRANSPORTADORA DEL ENTERRAMIENTO REAL" (39 carácteres), seguido de un cero).

Muchos lenguajes de programación necesitan un cero al final de cada cadena de texto, aunque ésta sea de longitud fija. Así pasa, por ejemplo, con uno de los más utilizados, el lenguaje C, que tienen que estar "null-terminadas" (han de terminar en un código "nul", valor cero). Éste parece ser el caso. También falta un byte cero, sustituído por la última comilla, al final de la cadena del desplazamiento 39E8 ("PAPIRO MAGICO DE 'PROTECCION DE DIABLOS'"). En este caso no he comprobado todavía que se produzcan errores al coger el objeto.

Antes de darme cuenta de que existía el fichero OBJECTS.DAT (al fin y al cabo está en el CD-ROM y no en el disco duro), localicé en la memoria (con un "trampeador" de partidas residente en memoria, Game Wizard) los nombres de los objetos, y la estructura que siguen es la misma.

Si se prueba a, por un momento, cambiar el byte final del nombre de la llave transportadora por un cero antes de cogerla, el programa no se cuelga (como sucede en caso contrario).

Puesto que no puedo animar públicamente al cambio de un fichero de un programa sobre el que no poseo derechos de autor, les aconsejo que en el disco de actualización efectúen ustedes, distribuidores autorizados en Espa a de ese producto (y supongo que responsables de su traducción), el cambio: eliminar el punto final de "CATACUMBAS ENTERRA." por un byte cero, y comprobar que este apa o no sea necesario en ninguna otra parte del archivo, ni en ningún otro archivo.

Agradecido, a pesar de todo,

'CHKPROF.BAS
'Comprueba el archivo OBJECTS.DAT de Ravenloft:Stone Prophet
'en busca de campos sin terminador null.
' -- Este archivo requiere QuickBASIC o QBASIC (ms-dos 6.0)
'Antes de utilizarlo: copie OBJECTS.DAT al directorio del juego
'Edite la línea UNIDAD$ debajo de estas líneas.
'Unidad$ es la unidad y directorio donde se encuentra OBJECTS.DAT:
    UNIDAD$ = "H:"
    'El OBJECTS.DAT del CD-ROM est  en el directorio raiz del CD-ROM
    '(en nuestro caso, H:\)
    'El OBJECTS.DAT del disco de actualizaci¢n (id‚ntico al del CD-ROM)
    'est  en A:\, B:\ o el directorio del juego
    '(en nuestro caso, D:\PROPHET
'Abrimos el archivo
    OPEN UNIDAD$ + "OBJECTS.DAT" FOR BINARY AS #1
'Obtenemos el n£mero de registros en el archivo
    GET #1, 1, A&
    'A&=N£mero de registros en el archivo

'Dibujamos una "regla" en la pantalla:
    LOCATE 25, 1
    FOR F = 1 TO 7: PRINT "1234567890"; : NEXT
    LOCATE 24, 1
    PRINT " "; : FOR F = 1 TO 7: PRINT SPACE$(7); F; : NEXT
    VIEW PRINT 1 TO 23: CLS 2
    LOCATE 23, 1

'Leemos todos los registros
    FOR F& = 1 TO A&
        'Obtenemos la posición actual
            S& = SEEK(1)
        'Leemos un registro
            I$ = INPUT$(&H41, 1)
            'Estructura: nombre (40 caracteres ASCIIZ)+ datos (25 caracteres).
        'Tomamos en M$ la parte del nombre del objeto.
            M$ = LEFT$(I$, 40)
        '¨Es una cadena null-terminada de 40 caracteres?
        IF RIGHT$(M$, 1) CHR$(0) THEN
            'Si el último carácter no es un null (0), mostramos la cadena:
                PRINT "ERROR EN:"; S& - 1; " ("; HEX$(S& - 1); "hex)"
                PRINT "Cadena de longitud 40 interpretada como longitud"; INSTR(I$, CHR$(0));
                COLOR 15
                PRINT M$;
                COLOR 7
                'S&-1 es el desplazamiento en que se encuentra la cadena.
                '(los programas BASIC usar¡an S&)
                'Añadir 100hex si se usa debug
                KEY$ = " [Pulse A para arreglar, cualquier otra tecla para seguir...]"
                IF INKEY$="A" OR INKEY$="a" THEN
                    S2&=SEEK(1)
                    MID$(M$,40,1)=CHR$(0);
                    PUT #1,S&,M$
                    SEEK #1,S2&
                END IF

                LOCATE CSRLIN, 81 - LEN(KEY$)
                PRINT KEY$;
                SLEEP 0: PRINT

        END IF
    NEXT F&

    VIEW PRINT
    RESET