*/
#define LINESIZE 100
-#define RTXSIZ 277
#define CLSMAX 12
#define LINSIZ 12600
#define TRNSIZ 5
#define VRBSIZ 35
#define TRVSIZ 885
#define TOKLEN 5
-#define HINTLEN 5
-#define HNTSIZ 20
#include <stdio.h>
#include <stdlib.h>
long TRVS;
long TRNVLS;
long TABNDX;
-long HNTMAX;
-long PTEXT[NOBJECTS + 1];
-long RTEXT[RTXSIZ + 1];
long OBJSND[NOBJECTS + 1];
long OBJTXT[NOBJECTS + 1];
-long STEXT[LOCSIZ + 1];
-long LTEXT[LOCSIZ + 1];
long KEY[LOCSIZ + 1];
-long LOCSND[LOCSIZ + 1];
long LINES[LINSIZ + 1];
-long TTEXT[TRNSIZ + 1];
-long TRNVAL[TRNSIZ + 1];
long TRAVEL[TRVSIZ + 1];
long KTAB[TABSIZ + 1];
long ATAB[TABSIZ + 1];
long FIXD[NOBJECTS + 1];
long ACTSPK[VRBSIZ + 1];
-static bool is_set(long var, long position)
-{
- long mask = 1L << position;
- bool result = (var & mask) == mask;
- return (result);
-}
-
static long GETTXT(long SKIP, long ONEWRD, long UPPER)
{
/* Take characters from an input line and pack them into 30-bit words.
/* now parsed from YAML */
continue;
}
- if (sect == 6) {
- if (loc > RTXSIZ)
- BUG(TOO_MANY_RTEXT_MESSAGES);
- RTEXT[loc] = LINUSE;
+ if (sect == 5) {
+ /* Now handled in YAML */
continue;
}
- if (sect == 5) {
- if (loc > 0 && loc <= NOBJECTS)PTEXT[loc] = LINUSE;
+ if (sect == 6) {
+ /* Now handled in YAML */
continue;
}
- if (loc > LOCSIZ)
- BUG(TOO_MANY_LOCATIONS);
if (sect == 1) {
- LTEXT[loc] = LINUSE;
+ /* Now handled in YAML */
continue;
}
-
- STEXT[loc] = LINUSE;
}
}
static void read_hints(FILE* database)
{
long K;
- HNTMAX = 0;
while ((K = GETNUM(database)) != -1) {
- if (K <= 0 || K > HNTSIZ)
- BUG(TOO_MANY_HINTS);
for (int I = 1; I <= 4; I++) {
- /* consume - actual arrqy-building now done in YAML. */
+ /* consume - actual array-building now done in YAML. */
GETNUM(NULL);
} /* end loop */
- HNTMAX = (HNTMAX > K ? HNTMAX : K);
}
}
-/* Read the sound/text info, store in OBJSND, OBJTXT, LOCSND. */
+/* Read the sound/text info, store in OBJSND, OBJTXT */
static void read_sound_text(FILE* database)
{
long K;
OBJTXT[K] = (I > 0 ? I : 0);
continue;
}
-
- LOCSND[K] = KK;
}
}
* the next pointer (i.e. the word following the end of the
* line). The pointer is negative if this is first line of a
* message. The text-pointer arrays contain indices of
- * pointer-words in lines. STEXT(N) is short description of
- * location N. LTEXT(N) is long description. PTEXT(N) points to
+ * pointer-words in lines. PTEXT(N) points to
* message for game.prop(N)=0. Successive prop messages are
- * found by chasing pointers. RTEXT contains section 6's stuff.
- * TTEXT is for section 14. */
+ * found by chasing pointers. */
for (int I = 1; I <= NOBJECTS; I++) {
- PTEXT[I] = 0;
OBJSND[I] = 0;
OBJTXT[I] = 0;
}
- for (int I = 1; I <= RTXSIZ; I++) {
- RTEXT[I] = 0;
- }
for (int I = 1; I <= LOCSIZ; I++) {
- STEXT[I] = 0;
- LTEXT[I] = 0;
KEY[I] = 0;
- LOCSND[I] = 0;
}
LINUSE = 1;
fprintf(header_file, "#include \"common.h\"\n");
fprintf(header_file, "#define TABSIZ 330\n");
- fprintf(header_file, "#define HNTSIZ 20\n");
fprintf(header_file, "#define TOKLEN %d\n", TOKLEN);
fprintf(header_file, "\n");
write_1d(header_file, OBJSND, NOBJECTS + 1, "OBJSND");
write_1d(header_file, OBJTXT, NOBJECTS + 1, "OBJTXT");
write_1d(header_file, KEY, LOCSIZ + 1, "KEY");
- write_1d(header_file, LOCSND, LOCSIZ + 1, "LOCSND");
write_1d(header_file, TRAVEL, TRVSIZ + 1, "TRAVEL");
write_1d(header_file, KTAB, TABSIZ + 1, "KTAB");
write_1d(header_file, ATAB, TABSIZ + 1, "ATAB");