#include "misc.h"
|
#include "misc.h"
|
#include "main.h"
|
#include "main.h"
|
#include "share.h"
|
#include "share.h"
|
#include "funcs.h"
|
#include "funcs.h"
|
#include <stdio.h>
|
#include <stdio.h>
|
|
|
#include "../common/baremetal.h"
|
|
#include "adv_baremetal.h"
|
#include "adv_baremetal.h"
|
|
|
#define TRUE (0==0)
|
#define TRUE (0==0)
|
#define FALSE (0!=0)
|
#define FALSE (0!=0)
|
|
|
/*
|
/*
|
* INITIALISATION
|
* INITIALISATION
|
*/
|
*/
|
|
|
/* CURRENT LIMITS:
|
/* CURRENT LIMITS:
|
* 12500 WORDS OF MESSAGE TEXT (LINES, LINSIZ).
|
* 12500 WORDS OF MESSAGE TEXT (LINES, LINSIZ).
|
* 885 TRAVEL OPTIONS (TRAVEL, TRVSIZ).
|
* 885 TRAVEL OPTIONS (TRAVEL, TRVSIZ).
|
* 330 VOCABULARY WORDS (KTAB, ATAB, TABSIZ).
|
* 330 VOCABULARY WORDS (KTAB, ATAB, TABSIZ).
|
* 185 LOCATIONS (LTEXT, STEXT, KEY, COND, ABB, ATLOC, LOCSND, LOCSIZ).
|
* 185 LOCATIONS (LTEXT, STEXT, KEY, COND, ABB, ATLOC, LOCSND, LOCSIZ).
|
* 100 OBJECTS (PLAC, PLACE, FIXD, FIXED, LINK (TWICE), PTEXT, PROP,
|
* 100 OBJECTS (PLAC, PLACE, FIXD, FIXED, LINK (TWICE), PTEXT, PROP,
|
* OBJSND, OBJTXT).
|
* OBJSND, OBJTXT).
|
* 35 "ACTION" VERBS (ACTSPK, VRBSIZ).
|
* 35 "ACTION" VERBS (ACTSPK, VRBSIZ).
|
* 277 RANDOM MESSAGES (RTEXT, RTXSIZ).
|
* 277 RANDOM MESSAGES (RTEXT, RTXSIZ).
|
* 12 DIFFERENT PLAYER CLASSIFICATIONS (CTEXT, CVAL, CLSMAX).
|
* 12 DIFFERENT PLAYER CLASSIFICATIONS (CTEXT, CVAL, CLSMAX).
|
* 20 HINTS (HINTLC, HINTED, HINTS, HNTSIZ).
|
* 20 HINTS (HINTLC, HINTED, HINTS, HNTSIZ).
|
* 5 "# OF TURNS" THRESHHOLDS (TTEXT, TRNVAL, TRNSIZ).
|
* 5 "# OF TURNS" THRESHHOLDS (TTEXT, TRNVAL, TRNSIZ).
|
* THERE ARE ALSO LIMITS WHICH CANNOT BE EXCEEDED DUE TO THE STRUCTURE OF
|
* THERE ARE ALSO LIMITS WHICH CANNOT BE EXCEEDED DUE TO THE STRUCTURE OF
|
* THE DATABASE. (E.G., THE VOCABULARY USES N/1000 TO DETERMINE WORD TYPE,
|
* THE DATABASE. (E.G., THE VOCABULARY USES N/1000 TO DETERMINE WORD TYPE,
|
* SO THERE CAN'T BE MORE THAN 1000 WORDS.) THESE UPPER LIMITS ARE:
|
* SO THERE CAN'T BE MORE THAN 1000 WORDS.) THESE UPPER LIMITS ARE:
|
* 1000 NON-SYNONYMOUS VOCABULARY WORDS
|
* 1000 NON-SYNONYMOUS VOCABULARY WORDS
|
* 300 LOCATIONS
|
* 300 LOCATIONS
|
* 100 OBJECTS */
|
* 100 OBJECTS */
|
|
|
|
|
/* DESCRIPTION OF THE DATABASE FORMAT
|
/* DESCRIPTION OF THE DATABASE FORMAT
|
*
|
*
|
*
|
*
|
* THE DATA FILE CONTAINS SEVERAL SECTIONS. EACH BEGINS WITH A LINE CONTAINING
|
* THE DATA FILE CONTAINS SEVERAL SECTIONS. EACH BEGINS WITH A LINE CONTAINING
|
* A NUMBER IDENTIFYING THE SECTION, AND ENDS WITH A LINE CONTAINING "-1".
|
* A NUMBER IDENTIFYING THE SECTION, AND ENDS WITH A LINE CONTAINING "-1".
|
*
|
*
|
* SECTION 1: LONG FORM DESCRIPTIONS. EACH LINE CONTAINS A LOCATION NUMBER,
|
* SECTION 1: LONG FORM DESCRIPTIONS. EACH LINE CONTAINS A LOCATION NUMBER,
|
* A TAB, AND A LINE OF TEXT. THE SET OF (NECESSARILY ADJACENT) LINES
|
* A TAB, AND A LINE OF TEXT. THE SET OF (NECESSARILY ADJACENT) LINES
|
* WHOSE NUMBERS ARE X FORM THE LONG DESCRIPTION OF LOCATION X.
|
* WHOSE NUMBERS ARE X FORM THE LONG DESCRIPTION OF LOCATION X.
|
* SECTION 2: SHORT FORM DESCRIPTIONS. SAME FORMAT AS LONG FORM. NOT ALL
|
* SECTION 2: SHORT FORM DESCRIPTIONS. SAME FORMAT AS LONG FORM. NOT ALL
|
* PLACES HAVE SHORT DESCRIPTIONS.
|
* PLACES HAVE SHORT DESCRIPTIONS.
|
* SECTION 3: TRAVEL TABLE. EACH LINE CONTAINS A LOCATION NUMBER (X), A SECOND
|
* SECTION 3: TRAVEL TABLE. EACH LINE CONTAINS A LOCATION NUMBER (X), A SECOND
|
* LOCATION NUMBER (Y), AND A LIST OF MOTION NUMBERS (SEE SECTION 4).
|
* LOCATION NUMBER (Y), AND A LIST OF MOTION NUMBERS (SEE SECTION 4).
|
* EACH MOTION REPRESENTS A VERB WHICH WILL GO TO Y IF CURRENTLY AT X.
|
* EACH MOTION REPRESENTS A VERB WHICH WILL GO TO Y IF CURRENTLY AT X.
|
* Y, IN TURN, IS INTERPRETED AS FOLLOWS. LET M=Y/1000, N=Y MOD 1000.
|
* Y, IN TURN, IS INTERPRETED AS FOLLOWS. LET M=Y/1000, N=Y MOD 1000.
|
* IF N<=300 IT IS THE LOCATION TO GO TO.
|
* IF N<=300 IT IS THE LOCATION TO GO TO.
|
* IF 300<N<=500 N-300 IS USED IN A COMPUTED GOTO TO
|
* IF 300<N<=500 N-300 IS USED IN A COMPUTED GOTO TO
|
* A SECTION OF SPECIAL CODE.
|
* A SECTION OF SPECIAL CODE.
|
* IF N>500 MESSAGE N-500 FROM SECTION 6 IS PRINTED,
|
* IF N>500 MESSAGE N-500 FROM SECTION 6 IS PRINTED,
|
* AND HE STAYS WHEREVER HE IS.
|
* AND HE STAYS WHEREVER HE IS.
|
* MEANWHILE, M SPECIFIES THE CONDITIONS ON THE MOTION.
|
* MEANWHILE, M SPECIFIES THE CONDITIONS ON THE MOTION.
|
* IF M=0 IT'S UNCONDITIONAL.
|
* IF M=0 IT'S UNCONDITIONAL.
|
* IF 0<M<100 IT IS DONE WITH M% PROBABILITY.
|
* IF 0<M<100 IT IS DONE WITH M% PROBABILITY.
|
* IF M=100 UNCONDITIONAL, BUT FORBIDDEN TO DWARVES.
|
* IF M=100 UNCONDITIONAL, BUT FORBIDDEN TO DWARVES.
|
* IF 100<M<=200 HE MUST BE CARRYING OBJECT M-100.
|
* IF 100<M<=200 HE MUST BE CARRYING OBJECT M-100.
|
* IF 200<M<=300 MUST BE CARRYING OR IN SAME ROOM AS M-200.
|
* IF 200<M<=300 MUST BE CARRYING OR IN SAME ROOM AS M-200.
|
* IF 300<M<=400 PROP(M MOD 100) MUST *NOT* BE 0.
|
* IF 300<M<=400 PROP(M MOD 100) MUST *NOT* BE 0.
|
* IF 400<M<=500 PROP(M MOD 100) MUST *NOT* BE 1.
|
* IF 400<M<=500 PROP(M MOD 100) MUST *NOT* BE 1.
|
* IF 500<M<=600 PROP(M MOD 100) MUST *NOT* BE 2, ETC.
|
* IF 500<M<=600 PROP(M MOD 100) MUST *NOT* BE 2, ETC.
|
* IF THE CONDITION (IF ANY) IS NOT MET, THEN THE NEXT *DIFFERENT*
|
* IF THE CONDITION (IF ANY) IS NOT MET, THEN THE NEXT *DIFFERENT*
|
* "DESTINATION" VALUE IS USED (UNLESS IT FAILS TO MEET *ITS* CONDITIONS,
|
* "DESTINATION" VALUE IS USED (UNLESS IT FAILS TO MEET *ITS* CONDITIONS,
|
* IN WHICH CASE THE NEXT IS FOUND, ETC.). TYPICALLY, THE NEXT DEST WILL
|
* IN WHICH CASE THE NEXT IS FOUND, ETC.). TYPICALLY, THE NEXT DEST WILL
|
* BE FOR ONE OF THE SAME VERBS, SO THAT ITS ONLY USE IS AS THE ALTERNATE
|
* BE FOR ONE OF THE SAME VERBS, SO THAT ITS ONLY USE IS AS THE ALTERNATE
|
* DESTINATION FOR THOSE VERBS. FOR INSTANCE:
|
* DESTINATION FOR THOSE VERBS. FOR INSTANCE:
|
* 15 110022 29 31 34 35 23 43
|
* 15 110022 29 31 34 35 23 43
|
* 15 14 29
|
* 15 14 29
|
* THIS SAYS THAT, FROM LOC 15, ANY OF THE VERBS 29, 31, ETC., WILL TAKE
|
* THIS SAYS THAT, FROM LOC 15, ANY OF THE VERBS 29, 31, ETC., WILL TAKE
|
* HIM TO 22 IF HE'S CARRYING OBJECT 10, AND OTHERWISE WILL GO TO 14.
|
* HIM TO 22 IF HE'S CARRYING OBJECT 10, AND OTHERWISE WILL GO TO 14.
|
* 11 303008 49
|
* 11 303008 49
|
* 11 9 50
|
* 11 9 50
|
* THIS SAYS THAT, FROM 11, 49 TAKES HIM TO 8 UNLESS PROP(3)=0, IN WHICH
|
* THIS SAYS THAT, FROM 11, 49 TAKES HIM TO 8 UNLESS PROP(3)=0, IN WHICH
|
* CASE HE GOES TO 9. VERB 50 TAKES HIM TO 9 REGARDLESS OF PROP(3).
|
* CASE HE GOES TO 9. VERB 50 TAKES HIM TO 9 REGARDLESS OF PROP(3).
|
* SECTION 4: VOCABULARY. EACH LINE CONTAINS A NUMBER (N), A TAB, AND A
|
* SECTION 4: VOCABULARY. EACH LINE CONTAINS A NUMBER (N), A TAB, AND A
|
* FIVE-LETTER WORD. CALL M=N/1000. IF M=0, THEN THE WORD IS A MOTION
|
* FIVE-LETTER WORD. CALL M=N/1000. IF M=0, THEN THE WORD IS A MOTION
|
* VERB FOR USE IN TRAVELLING (SEE SECTION 3). ELSE, IF M=1, THE WORD IS
|
* VERB FOR USE IN TRAVELLING (SEE SECTION 3). ELSE, IF M=1, THE WORD IS
|
* AN OBJECT. ELSE, IF M=2, THE WORD IS AN ACTION VERB (SUCH AS "CARRY"
|
* AN OBJECT. ELSE, IF M=2, THE WORD IS AN ACTION VERB (SUCH AS "CARRY"
|
* OR "ATTACK"). ELSE, IF M=3, THE WORD IS A SPECIAL CASE VERB (SUCH AS
|
* OR "ATTACK"). ELSE, IF M=3, THE WORD IS A SPECIAL CASE VERB (SUCH AS
|
* "DIG") AND N MOD 1000 IS AN INDEX INTO SECTION 6. OBJECTS FROM 50 TO
|
* "DIG") AND N MOD 1000 IS AN INDEX INTO SECTION 6. OBJECTS FROM 50 TO
|
* (CURRENTLY, ANYWAY) 79 ARE CONSIDERED TREASURES (FOR PIRATE, CLOSEOUT).
|
* (CURRENTLY, ANYWAY) 79 ARE CONSIDERED TREASURES (FOR PIRATE, CLOSEOUT).
|
* SECTION 5: OBJECT DESCRIPTIONS. EACH LINE CONTAINS A NUMBER (N), A TAB,
|
* SECTION 5: OBJECT DESCRIPTIONS. EACH LINE CONTAINS A NUMBER (N), A TAB,
|
* AND A MESSAGE. IF N IS FROM 1 TO 100, THE MESSAGE IS THE "INVENTORY"
|
* AND A MESSAGE. IF N IS FROM 1 TO 100, THE MESSAGE IS THE "INVENTORY"
|
* MESSAGE FOR OBJECT N. OTHERWISE, N SHOULD BE 000, 100, 200, ETC., AND
|
* MESSAGE FOR OBJECT N. OTHERWISE, N SHOULD BE 000, 100, 200, ETC., AND
|
* THE MESSAGE SHOULD BE THE DESCRIPTION OF THE PRECEDING OBJECT WHEN ITS
|
* THE MESSAGE SHOULD BE THE DESCRIPTION OF THE PRECEDING OBJECT WHEN ITS
|
* PROP VALUE IS N/100. THE N/100 IS USED ONLY TO DISTINGUISH MULTIPLE
|
* PROP VALUE IS N/100. THE N/100 IS USED ONLY TO DISTINGUISH MULTIPLE
|
* MESSAGES FROM MULTI-LINE MESSAGES; THE PROP INFO ACTUALLY REQUIRES ALL
|
* MESSAGES FROM MULTI-LINE MESSAGES; THE PROP INFO ACTUALLY REQUIRES ALL
|
* MESSAGES FOR AN OBJECT TO BE PRESENT AND CONSECUTIVE. PROPERTIES WHICH
|
* MESSAGES FOR AN OBJECT TO BE PRESENT AND CONSECUTIVE. PROPERTIES WHICH
|
* PRODUCE NO MESSAGE SHOULD BE GIVEN THE MESSAGE ">$<".
|
* PRODUCE NO MESSAGE SHOULD BE GIVEN THE MESSAGE ">$<".
|
* SECTION 6: ARBITRARY MESSAGES. SAME FORMAT AS SECTIONS 1, 2, AND 5, EXCEPT
|
* SECTION 6: ARBITRARY MESSAGES. SAME FORMAT AS SECTIONS 1, 2, AND 5, EXCEPT
|
* THE NUMBERS BEAR NO RELATION TO ANYTHING (EXCEPT FOR SPECIAL VERBS
|
* THE NUMBERS BEAR NO RELATION TO ANYTHING (EXCEPT FOR SPECIAL VERBS
|
* IN SECTION 4).
|
* IN SECTION 4).
|
* SECTION 7: OBJECT LOCATIONS. EACH LINE CONTAINS AN OBJECT NUMBER AND ITS
|
* SECTION 7: OBJECT LOCATIONS. EACH LINE CONTAINS AN OBJECT NUMBER AND ITS
|
* INITIAL LOCATION (ZERO (OR OMITTED) IF NONE). IF THE OBJECT IS
|
* INITIAL LOCATION (ZERO (OR OMITTED) IF NONE). IF THE OBJECT IS
|
* IMMOVABLE, THE LOCATION IS FOLLOWED BY A "-1". IF IT HAS TWO LOCATIONS
|
* IMMOVABLE, THE LOCATION IS FOLLOWED BY A "-1". IF IT HAS TWO LOCATIONS
|
* (E.G. THE GRATE) THE FIRST LOCATION IS FOLLOWED WITH THE SECOND, AND
|
* (E.G. THE GRATE) THE FIRST LOCATION IS FOLLOWED WITH THE SECOND, AND
|
* THE OBJECT IS ASSUMED TO BE IMMOVABLE.
|
* THE OBJECT IS ASSUMED TO BE IMMOVABLE.
|
* SECTION 8: ACTION DEFAULTS. EACH LINE CONTAINS AN "ACTION-VERB" NUMBER AND
|
* SECTION 8: ACTION DEFAULTS. EACH LINE CONTAINS AN "ACTION-VERB" NUMBER AND
|
* THE INDEX (IN SECTION 6) OF THE DEFAULT MESSAGE FOR THE VERB.
|
* THE INDEX (IN SECTION 6) OF THE DEFAULT MESSAGE FOR THE VERB.
|
* SECTION 9: LOCATION ATTRIBUTES. EACH LINE CONTAINS A NUMBER (N) AND UP TO
|
* SECTION 9: LOCATION ATTRIBUTES. EACH LINE CONTAINS A NUMBER (N) AND UP TO
|
* 20 LOCATION NUMBERS. BIT N (WHERE 0 IS THE UNITS BIT) IS SET IN
|
* 20 LOCATION NUMBERS. BIT N (WHERE 0 IS THE UNITS BIT) IS SET IN
|
* COND(LOC) FOR EACH LOC GIVEN. THE COND BITS CURRENTLY ASSIGNED ARE:
|
* COND(LOC) FOR EACH LOC GIVEN. THE COND BITS CURRENTLY ASSIGNED ARE:
|
* 0 LIGHT
|
* 0 LIGHT
|
* 1 IF BIT 2 IS ON: ON FOR OIL, OFF FOR WATER
|
* 1 IF BIT 2 IS ON: ON FOR OIL, OFF FOR WATER
|
* 2 LIQUID ASSET, SEE BIT 1
|
* 2 LIQUID ASSET, SEE BIT 1
|
* 3 PIRATE DOESN'T GO HERE UNLESS FOLLOWING PLAYER
|
* 3 PIRATE DOESN'T GO HERE UNLESS FOLLOWING PLAYER
|
* 4 CANNOT USE "BACK" TO MOVE AWAY
|
* 4 CANNOT USE "BACK" TO MOVE AWAY
|
* BITS PAST 10 INDICATE AREAS OF INTEREST TO "HINT" ROUTINES:
|
* BITS PAST 10 INDICATE AREAS OF INTEREST TO "HINT" ROUTINES:
|
* 11 TRYING TO GET INTO CAVE
|
* 11 TRYING TO GET INTO CAVE
|
* 12 TRYING TO CATCH BIRD
|
* 12 TRYING TO CATCH BIRD
|
* 13 TRYING TO DEAL WITH SNAKE
|
* 13 TRYING TO DEAL WITH SNAKE
|
* 14 LOST IN MAZE
|
* 14 LOST IN MAZE
|
* 15 PONDERING DARK ROOM
|
* 15 PONDERING DARK ROOM
|
* 16 AT WITT'S END
|
* 16 AT WITT'S END
|
* 17 CLIFF WITH URN
|
* 17 CLIFF WITH URN
|
* 18 LOST IN FOREST
|
* 18 LOST IN FOREST
|
* 19 TRYING TO DEAL WITH OGRE
|
* 19 TRYING TO DEAL WITH OGRE
|
* 20 FOUND ALL TREASURES EXCEPT JADE
|
* 20 FOUND ALL TREASURES EXCEPT JADE
|
* COND(LOC) IS SET TO 2, OVERRIDING ALL OTHER BITS, IF LOC HAS FORCED
|
* COND(LOC) IS SET TO 2, OVERRIDING ALL OTHER BITS, IF LOC HAS FORCED
|
* MOTION.
|
* MOTION.
|
* SECTION 10: CLASS MESSAGES. EACH LINE CONTAINS A NUMBER (N), A TAB, AND A
|
* SECTION 10: CLASS MESSAGES. EACH LINE CONTAINS A NUMBER (N), A TAB, AND A
|
* MESSAGE DESCRIBING A CLASSIFICATION OF PLAYER. THE SCORING SECTION
|
* MESSAGE DESCRIBING A CLASSIFICATION OF PLAYER. THE SCORING SECTION
|
* SELECTS THE APPROPRIATE MESSAGE, WHERE EACH MESSAGE IS CONSIDERED TO
|
* SELECTS THE APPROPRIATE MESSAGE, WHERE EACH MESSAGE IS CONSIDERED TO
|
* APPLY TO PLAYERS WHOSE SCORES ARE HIGHER THAN THE PREVIOUS N BUT NOT
|
* APPLY TO PLAYERS WHOSE SCORES ARE HIGHER THAN THE PREVIOUS N BUT NOT
|
* HIGHER THAN THIS N. NOTE THAT THESE SCORES PROBABLY CHANGE WITH EVERY
|
* HIGHER THAN THIS N. NOTE THAT THESE SCORES PROBABLY CHANGE WITH EVERY
|
* MODIFICATION (AND PARTICULARLY EXPANSION) OF THE PROGRAM.
|
* MODIFICATION (AND PARTICULARLY EXPANSION) OF THE PROGRAM.
|
* SECTION 11: HINTS. EACH LINE CONTAINS A HINT NUMBER (ADD 10 TO GET COND
|
* SECTION 11: HINTS. EACH LINE CONTAINS A HINT NUMBER (ADD 10 TO GET COND
|
* BIT; SEE SECTION 9), THE NUMBER OF TURNS HE MUST BE AT THE RIGHT LOC(S)
|
* BIT; SEE SECTION 9), THE NUMBER OF TURNS HE MUST BE AT THE RIGHT LOC(S)
|
* BEFORE TRIGGERING THE HINT, THE POINTS DEDUCTED FOR TAKING THE HINT,
|
* BEFORE TRIGGERING THE HINT, THE POINTS DEDUCTED FOR TAKING THE HINT,
|
* THE MESSAGE NUMBER (SECTION 6) OF THE QUESTION, AND THE MESSAGE NUMBER
|
* THE MESSAGE NUMBER (SECTION 6) OF THE QUESTION, AND THE MESSAGE NUMBER
|
* OF THE HINT. THESE VALUES ARE STASHED IN THE "HINTS" ARRAY. HNTMAX IS
|
* OF THE HINT. THESE VALUES ARE STASHED IN THE "HINTS" ARRAY. HNTMAX IS
|
* SET TO THE MAX HINT NUMBER (<= HNTSIZ).
|
* SET TO THE MAX HINT NUMBER (<= HNTSIZ).
|
* SECTION 12: UNUSED IN THIS VERSION.
|
* SECTION 12: UNUSED IN THIS VERSION.
|
* SECTION 13: SOUNDS AND TEXT. EACH LINE CONTAINS EITHER 2 OR 3 NUMBERS. IF
|
* SECTION 13: SOUNDS AND TEXT. EACH LINE CONTAINS EITHER 2 OR 3 NUMBERS. IF
|
* 2 (CALL THEM N AND S), N IS A LOCATION AND MESSAGE ABS(S) FROM SECTION
|
* 2 (CALL THEM N AND S), N IS A LOCATION AND MESSAGE ABS(S) FROM SECTION
|
* 6 IS THE SOUND HEARD THERE. IF S<0, THE SOUND THERE DROWNS OUT ALL
|
* 6 IS THE SOUND HEARD THERE. IF S<0, THE SOUND THERE DROWNS OUT ALL
|
* OTHER NOISES. IF 3 NUMBERS (CALL THEM N, S, AND T), N IS AN OBJECT
|
* OTHER NOISES. IF 3 NUMBERS (CALL THEM N, S, AND T), N IS AN OBJECT
|
* NUMBER AND S+PROP(N) IS THE PROPERTY MESSAGE (FROM SECTION 5) IF HE
|
* NUMBER AND S+PROP(N) IS THE PROPERTY MESSAGE (FROM SECTION 5) IF HE
|
* LISTENS TO THE OBJECT, AND T+PROP(N) IS THE TEXT IF HE READS IT. IF
|
* LISTENS TO THE OBJECT, AND T+PROP(N) IS THE TEXT IF HE READS IT. IF
|
* S OR T IS -1, THE OBJECT HAS NO SOUND OR TEXT, RESPECTIVELY. NEITHER
|
* S OR T IS -1, THE OBJECT HAS NO SOUND OR TEXT, RESPECTIVELY. NEITHER
|
* S NOR T IS ALLOWED TO BE 0.
|
* S NOR T IS ALLOWED TO BE 0.
|
* SECTION 14: TURN THRESHHOLDS. EACH LINE CONTAINS A NUMBER (N), A TAB, AND
|
* SECTION 14: TURN THRESHHOLDS. EACH LINE CONTAINS A NUMBER (N), A TAB, AND
|
* A MESSAGE BERATING THE PLAYER FOR TAKING SO MANY TURNS. THE MESSAGES
|
* A MESSAGE BERATING THE PLAYER FOR TAKING SO MANY TURNS. THE MESSAGES
|
* MUST BE IN THE PROPER (ASCENDING) ORDER. THE MESSAGE GETS PRINTED IF
|
* MUST BE IN THE PROPER (ASCENDING) ORDER. THE MESSAGE GETS PRINTED IF
|
* THE PLAYER EXCEEDS N MOD 100000 TURNS, AT WHICH TIME N/100000 POINTS
|
* THE PLAYER EXCEEDS N MOD 100000 TURNS, AT WHICH TIME N/100000 POINTS
|
* GET DEDUCTED FROM HIS SCORE.
|
* GET DEDUCTED FROM HIS SCORE.
|
* SECTION 0: END OF DATABASE. */
|
* SECTION 0: END OF DATABASE. */
|
|
|
/* THE VARIOUS MESSAGES (SECTIONS 1, 2, 5, 6, ETC.) MAY INCLUDE CERTAIN
|
/* THE VARIOUS MESSAGES (SECTIONS 1, 2, 5, 6, ETC.) MAY INCLUDE CERTAIN
|
* SPECIAL CHARACTER SEQUENCES TO DENOTE THAT THE PROGRAM MUST PROVIDE
|
* SPECIAL CHARACTER SEQUENCES TO DENOTE THAT THE PROGRAM MUST PROVIDE
|
* PARAMETERS TO INSERT INTO A MESSAGE WHEN THE MESSAGE IS PRINTED. THESE
|
* PARAMETERS TO INSERT INTO A MESSAGE WHEN THE MESSAGE IS PRINTED. THESE
|
* SEQUENCES ARE:
|
* SEQUENCES ARE:
|
* %S = THE LETTER 'S' OR NOTHING (IF A GIVEN VALUE IS EXACTLY 1)
|
* %S = THE LETTER 'S' OR NOTHING (IF A GIVEN VALUE IS EXACTLY 1)
|
* %W = A WORD (UP TO 10 CHARACTERS)
|
* %W = A WORD (UP TO 10 CHARACTERS)
|
* %L = A WORD MAPPED TO LOWER-CASE LETTERS
|
* %L = A WORD MAPPED TO LOWER-CASE LETTERS
|
* %U = A WORD MAPPED TO UPPER-CASE LETTERS
|
* %U = A WORD MAPPED TO UPPER-CASE LETTERS
|
* %C = A WORD MAPPED TO LOWER-CASE, FIRST LETTER CAPITALISED
|
* %C = A WORD MAPPED TO LOWER-CASE, FIRST LETTER CAPITALISED
|
* %T = SEVERAL WORDS OF TEXT, ENDING WITH A WORD OF -1
|
* %T = SEVERAL WORDS OF TEXT, ENDING WITH A WORD OF -1
|
* %1 = A 1-DIGIT NUMBER
|
* %1 = A 1-DIGIT NUMBER
|
* %2 = A 2-DIGIT NUMBER
|
* %2 = A 2-DIGIT NUMBER
|
* ...
|
* ...
|
* %9 = A 9-DIGIT NUMBER
|
* %9 = A 9-DIGIT NUMBER
|
* %B = VARIABLE NUMBER OF BLANKS
|
* %B = VARIABLE NUMBER OF BLANKS
|
* %! = THE ENTIRE MESSAGE SHOULD BE SUPPRESSED */
|
* %! = THE ENTIRE MESSAGE SHOULD BE SUPPRESSED */
|
|
|
initialise() {
|
initialise() {
|
puts("Initialising...\n");
|
puts("Initialising...\n");
|
/* quick init disabled in embedded version */
|
/* quick init disabled in embedded version */
|
/* if(!quick_init()){ */
|
/* if(!quick_init()){ */
|
raw_init(); report(); prompt_use_walkthrough();
|
raw_init(); report(); prompt_use_walkthrough();
|
/*quick_save();*/
|
/*quick_save();*/
|
/*}*/
|
/*}*/
|
finish_init();
|
finish_init();
|
}
|
}
|
|
|
raw_init() {
|
raw_init() {
|
puts("Couldn't find adventure.data, using adventure.text...\n");
|
puts("Couldn't find adventure.data, using adventure.text...\n");
|
|
|
/* CLEAR OUT THE VARIOUS TEXT-POINTER ARRAYS. ALL TEXT IS STORED IN ARRAY
|
/* CLEAR OUT THE VARIOUS TEXT-POINTER ARRAYS. ALL TEXT IS STORED IN ARRAY
|
* LINES; EACH LINE IS PRECEDED BY A WORD POINTING TO THE NEXT POINTER (I.E.
|
* LINES; EACH LINE IS PRECEDED BY A WORD POINTING TO THE NEXT POINTER (I.E.
|
* THE WORD FOLLOWING THE END OF THE LINE). THE POINTER IS NEGATIVE IF THIS IS
|
* 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
|
* FIRST LINE OF A MESSAGE. THE TEXT-POINTER ARRAYS CONTAIN INDICES OF
|
* POINTER-WORDS IN LINES. STEXT(N) IS SHORT DESCRIPTION OF LOCATION N.
|
* POINTER-WORDS IN LINES. STEXT(N) IS SHORT DESCRIPTION OF LOCATION N.
|
* LTEXT(N) IS LONG DESCRIPTION. PTEXT(N) POINTS TO MESSAGE FOR PROP(N)=0.
|
* LTEXT(N) IS LONG DESCRIPTION. PTEXT(N) POINTS TO MESSAGE FOR PROP(N)=0.
|
* SUCCESSIVE PROP MESSAGES ARE FOUND BY CHASING POINTERS. RTEXT CONTAINS
|
* SUCCESSIVE PROP MESSAGES ARE FOUND BY CHASING POINTERS. RTEXT CONTAINS
|
* SECTION 6'S STUFF. CTEXT(N) POINTS TO A PLAYER-CLASS MESSAGE. TTEXT IS FOR
|
* SECTION 6'S STUFF. CTEXT(N) POINTS TO A PLAYER-CLASS MESSAGE. TTEXT IS FOR
|
* SECTION 14. WE ALSO CLEAR COND (SEE DESCRIPTION OF SECTION 9 FOR DETAILS). */
|
* SECTION 14. WE ALSO CLEAR COND (SEE DESCRIPTION OF SECTION 9 FOR DETAILS). */
|
|
|
/* 1001 */ for (I=1; I<=300; I++) {
|
/* 1001 */ for (I=1; I<=300; I++) {
|
if(I <= 100)PTEXT[I]=0;
|
if(I <= 100)PTEXT[I]=0;
|
if(I <= RTXSIZ)RTEXT[I]=0;
|
if(I <= RTXSIZ)RTEXT[I]=0;
|
if(I <= CLSMAX)CTEXT[I]=0;
|
if(I <= CLSMAX)CTEXT[I]=0;
|
if(I <= 100)OBJSND[I]=0;
|
if(I <= 100)OBJSND[I]=0;
|
if(I <= 100)OBJTXT[I]=0;
|
if(I <= 100)OBJTXT[I]=0;
|
if(I > LOCSIZ) goto L1001;
|
if(I > LOCSIZ) goto L1001;
|
STEXT[I]=0;
|
STEXT[I]=0;
|
LTEXT[I]=0;
|
LTEXT[I]=0;
|
COND[I]=0;
|
COND[I]=0;
|
KEY[I]=0;
|
KEY[I]=0;
|
LOCSND[I]=0;
|
LOCSND[I]=0;
|
L1001: /*etc*/ ;
|
L1001: /*etc*/ ;
|
} /* end loop */
|
} /* end loop */
|
|
|
LINUSE=1;
|
LINUSE=1;
|
TRVS=1;
|
TRVS=1;
|
CLSSES=0;
|
CLSSES=0;
|
TRNVLS=0;
|
TRNVLS=0;
|
|
|
/* START NEW DATA SECTION. SECT IS THE SECTION NUMBER. */
|
/* START NEW DATA SECTION. SECT IS THE SECTION NUMBER. */
|
|
|
L1002: SECT=GETNUM(1);
|
L1002: SECT=GETNUM(1);
|
|
|
OLDLOC= -1;
|
OLDLOC= -1;
|
switch (SECT) { case 0: return(0); case 1: goto L1004; case 2: goto
|
switch (SECT) { case 0: return(0); case 1: goto L1004; case 2: goto
|
L1004; case 3: goto L1030; case 4: goto L1040; case 5: goto L1004;
|
L1004; case 3: goto L1030; case 4: goto L1040; case 5: goto L1004;
|
case 6: goto L1004; case 7: goto L1050; case 8: goto L1060; case
|
case 6: goto L1004; case 7: goto L1050; case 8: goto L1060; case
|
9: goto L1070; case 10: goto L1004; case 11: goto L1080; case 12:
|
9: goto L1070; case 10: goto L1004; case 11: goto L1080; case 12:
|
break; case 13: goto L1090; case 14: goto L1004; }
|
break; case 13: goto L1090; case 14: goto L1004; }
|
/* (0) (1) (2) (3) (4) (5) (6) (7) (8) (9)
|
/* (0) (1) (2) (3) (4) (5) (6) (7) (8) (9)
|
* (10) (11) (12) (13) (14) */
|
* (10) (11) (12) (13) (14) */
|
BUG(9);
|
BUG(9);
|
|
|
/* SECTIONS 1, 2, 5, 6, 10, 14. READ MESSAGES AND SET UP POINTERS. */
|
/* SECTIONS 1, 2, 5, 6, 10, 14. READ MESSAGES AND SET UP POINTERS. */
|
|
|
L1004: KK=LINUSE;
|
L1004: KK=LINUSE;
|
L1005: LINUSE=KK;
|
L1005: LINUSE=KK;
|
LOC=GETNUM(1);
|
LOC=GETNUM(1);
|
if(LNLENG >= LNPOSN+70)BUG(0);
|
if(LNLENG >= LNPOSN+70)BUG(0);
|
if(LOC == -1) goto L1002;
|
if(LOC == -1) goto L1002;
|
if(LNLENG < LNPOSN)BUG(1);
|
if(LNLENG < LNPOSN)BUG(1);
|
L1006: KK=KK+1;
|
L1006: KK=KK+1;
|
if(KK >= LINSIZ)BUG(2);
|
if(KK >= LINSIZ)BUG(2);
|
LINES[KK]=GETTXT(FALSE,FALSE,FALSE,KK);
|
LINES[KK]=GETTXT(FALSE,FALSE,FALSE,KK);
|
if(LINES[KK] != -1) goto L1006;
|
if(LINES[KK] != -1) goto L1006;
|
LINES[LINUSE]=KK;
|
LINES[LINUSE]=KK;
|
if(LOC == OLDLOC) goto L1005;
|
if(LOC == OLDLOC) goto L1005;
|
OLDLOC=LOC;
|
OLDLOC=LOC;
|
LINES[LINUSE]= -KK;
|
LINES[LINUSE]= -KK;
|
if(SECT == 14) goto L1014;
|
if(SECT == 14) goto L1014;
|
if(SECT == 10) goto L1012;
|
if(SECT == 10) goto L1012;
|
if(SECT == 6) goto L1011;
|
if(SECT == 6) goto L1011;
|
if(SECT == 5) goto L1010;
|
if(SECT == 5) goto L1010;
|
if(LOC > LOCSIZ)BUG(10);
|
if(LOC > LOCSIZ)BUG(10);
|
if(SECT == 1) goto L1008;
|
if(SECT == 1) goto L1008;
|
|
|
STEXT[LOC]=LINUSE;
|
STEXT[LOC]=LINUSE;
|
goto L1005;
|
goto L1005;
|
|
|
L1008: LTEXT[LOC]=LINUSE;
|
L1008: LTEXT[LOC]=LINUSE;
|
goto L1005;
|
goto L1005;
|
|
|
L1010: if(LOC > 0 && LOC <= 100)PTEXT[LOC]=LINUSE;
|
L1010: if(LOC > 0 && LOC <= 100)PTEXT[LOC]=LINUSE;
|
goto L1005;
|
goto L1005;
|
|
|
L1011: if(LOC > RTXSIZ)BUG(6);
|
L1011: if(LOC > RTXSIZ)BUG(6);
|
RTEXT[LOC]=LINUSE;
|
RTEXT[LOC]=LINUSE;
|
goto L1005;
|
goto L1005;
|
|
|
L1012: CLSSES=CLSSES+1;
|
L1012: CLSSES=CLSSES+1;
|
if(CLSSES > CLSMAX)BUG(11);
|
if(CLSSES > CLSMAX)BUG(11);
|
CTEXT[CLSSES]=LINUSE;
|
CTEXT[CLSSES]=LINUSE;
|
CVAL[CLSSES]=LOC;
|
CVAL[CLSSES]=LOC;
|
goto L1005;
|
goto L1005;
|
|
|
L1014: TRNVLS=TRNVLS+1;
|
L1014: TRNVLS=TRNVLS+1;
|
if(TRNVLS > TRNSIZ)BUG(11);
|
if(TRNVLS > TRNSIZ)BUG(11);
|
TTEXT[TRNVLS]=LINUSE;
|
TTEXT[TRNVLS]=LINUSE;
|
TRNVAL[TRNVLS]=LOC;
|
TRNVAL[TRNVLS]=LOC;
|
goto L1005;
|
goto L1005;
|
|
|
/* THE STUFF FOR SECTION 3 IS ENCODED HERE. EACH "FROM-LOCATION" GETS A
|
/* THE STUFF FOR SECTION 3 IS ENCODED HERE. EACH "FROM-LOCATION" GETS A
|
* CONTIGUOUS SECTION OF THE "TRAVEL" ARRAY. EACH ENTRY IN TRAVEL IS
|
* CONTIGUOUS SECTION OF THE "TRAVEL" ARRAY. EACH ENTRY IN TRAVEL IS
|
* NEWLOC*1000 + KEYWORD (FROM SECTION 4, MOTION VERBS), AND IS NEGATED IF
|
* NEWLOC*1000 + KEYWORD (FROM SECTION 4, MOTION VERBS), AND IS NEGATED IF
|
* THIS IS THE LAST ENTRY FOR THIS LOCATION. KEY(N) IS THE INDEX IN TRAVEL
|
* THIS IS THE LAST ENTRY FOR THIS LOCATION. KEY(N) IS THE INDEX IN TRAVEL
|
* OF THE FIRST OPTION AT LOCATION N. */
|
* OF THE FIRST OPTION AT LOCATION N. */
|
|
|
L1030: LOC=GETNUM(1);
|
L1030: LOC=GETNUM(1);
|
if(LOC == -1) goto L1002;
|
if(LOC == -1) goto L1002;
|
NEWLOC=GETNUM(0);
|
NEWLOC=GETNUM(0);
|
if(KEY[LOC] != 0) goto L1033;
|
if(KEY[LOC] != 0) goto L1033;
|
KEY[LOC]=TRVS;
|
KEY[LOC]=TRVS;
|
goto L1035;
|
goto L1035;
|
L1033: TRVS--; TRAVEL[TRVS]= -TRAVEL[TRVS]; TRVS++;
|
L1033: TRVS--; TRAVEL[TRVS]= -TRAVEL[TRVS]; TRVS++;
|
L1035: L=GETNUM(0);
|
L1035: L=GETNUM(0);
|
if(L == 0) goto L1039;
|
if(L == 0) goto L1039;
|
TRAVEL[TRVS]=NEWLOC*1000+L;
|
TRAVEL[TRVS]=NEWLOC*1000+L;
|
TRVS=TRVS+1;
|
TRVS=TRVS+1;
|
if(TRVS == TRVSIZ)BUG(3);
|
if(TRVS == TRVSIZ)BUG(3);
|
goto L1035;
|
goto L1035;
|
L1039: TRVS--; TRAVEL[TRVS]= -TRAVEL[TRVS]; TRVS++;
|
L1039: TRVS--; TRAVEL[TRVS]= -TRAVEL[TRVS]; TRVS++;
|
goto L1030;
|
goto L1030;
|
|
|
/* HERE WE READ IN THE VOCABULARY. KTAB(N) IS THE WORD NUMBER, ATAB(N) IS
|
/* HERE WE READ IN THE VOCABULARY. KTAB(N) IS THE WORD NUMBER, ATAB(N) IS
|
* THE CORRESPONDING WORD. THE -1 AT THE END OF SECTION 4 IS LEFT IN KTAB
|
* THE CORRESPONDING WORD. THE -1 AT THE END OF SECTION 4 IS LEFT IN KTAB
|
* AS AN END-MARKER. THE WORDS ARE GIVEN A MINIMAL HASH TO MAKE DECIPHERING
|
* AS AN END-MARKER. THE WORDS ARE GIVEN A MINIMAL HASH TO MAKE DECIPHERING
|
* THE CORE-IMAGE HARDER. (WE DON'T USE GETTXT'S HASH SINCE THAT WOULD FORCE
|
* THE CORE-IMAGE HARDER. (WE DON'T USE GETTXT'S HASH SINCE THAT WOULD FORCE
|
* US TO HASH EACH INPUT LINE TO MAKE COMPARISONS WORK, AND THAT IN TURN
|
* US TO HASH EACH INPUT LINE TO MAKE COMPARISONS WORK, AND THAT IN TURN
|
* WOULD MAKE IT HARDER TO DETECT PARTICULAR INPUT WORDS.) */
|
* WOULD MAKE IT HARDER TO DETECT PARTICULAR INPUT WORDS.) */
|
|
|
L1040: J=10000;
|
L1040: J=10000;
|
/* 1042 */ for (TABNDX=1; TABNDX<=TABSIZ; TABNDX++) {
|
/* 1042 */ for (TABNDX=1; TABNDX<=TABSIZ; TABNDX++) {
|
L1043: KTAB[TABNDX]=GETNUM(1);
|
L1043: KTAB[TABNDX]=GETNUM(1);
|
if(KTAB[TABNDX] == -1) goto L1002;
|
if(KTAB[TABNDX] == -1) goto L1002;
|
J=J+7;
|
J=J+7;
|
L1042: ATAB[TABNDX]=GETTXT(TRUE,TRUE,TRUE,0)+J*J;
|
L1042: ATAB[TABNDX]=GETTXT(TRUE,TRUE,TRUE,0)+J*J;
|
} /* end loop */
|
} /* end loop */
|
BUG(4);
|
BUG(4);
|
|
|
/* READ IN THE INITIAL LOCATIONS FOR EACH OBJECT. ALSO THE IMMOVABILITY INFO.
|
/* READ IN THE INITIAL LOCATIONS FOR EACH OBJECT. ALSO THE IMMOVABILITY INFO.
|
* PLAC CONTAINS INITIAL LOCATIONS OF OBJECTS. FIXD IS -1 FOR IMMOVABLE
|
* PLAC CONTAINS INITIAL LOCATIONS OF OBJECTS. FIXD IS -1 FOR IMMOVABLE
|
* OBJECTS (INCLUDING THE SNAKE), OR = SECOND LOC FOR TWO-PLACED OBJECTS. */
|
* OBJECTS (INCLUDING THE SNAKE), OR = SECOND LOC FOR TWO-PLACED OBJECTS. */
|
|
|
L1050: OBJ=GETNUM(1);
|
L1050: OBJ=GETNUM(1);
|
if(OBJ == -1) goto L1002;
|
if(OBJ == -1) goto L1002;
|
PLAC[OBJ]=GETNUM(0);
|
PLAC[OBJ]=GETNUM(0);
|
FIXD[OBJ]=GETNUM(0);
|
FIXD[OBJ]=GETNUM(0);
|
goto L1050;
|
goto L1050;
|
|
|
/* READ DEFAULT MESSAGE NUMBERS FOR ACTION VERBS, STORE IN ACTSPK. */
|
/* READ DEFAULT MESSAGE NUMBERS FOR ACTION VERBS, STORE IN ACTSPK. */
|
|
|
L1060: VERB=GETNUM(1);
|
L1060: VERB=GETNUM(1);
|
if(VERB == -1) goto L1002;
|
if(VERB == -1) goto L1002;
|
ACTSPK[VERB]=GETNUM(0);
|
ACTSPK[VERB]=GETNUM(0);
|
goto L1060;
|
goto L1060;
|
|
|
/* READ INFO ABOUT AVAILABLE LIQUIDS AND OTHER CONDITIONS, STORE IN COND. */
|
/* READ INFO ABOUT AVAILABLE LIQUIDS AND OTHER CONDITIONS, STORE IN COND. */
|
|
|
L1070: K=GETNUM(1);
|
L1070: K=GETNUM(1);
|
if(K == -1) goto L1002;
|
if(K == -1) goto L1002;
|
L1071: LOC=GETNUM(0);
|
L1071: LOC=GETNUM(0);
|
if(LOC == 0) goto L1070;
|
if(LOC == 0) goto L1070;
|
if(CNDBIT(LOC,K)) BUG(8);
|
if(CNDBIT(LOC,K)) BUG(8);
|
COND[LOC]=COND[LOC]+SETBIT(K);
|
COND[LOC]=COND[LOC]+SETBIT(K);
|
goto L1071;
|
goto L1071;
|
|
|
/* READ DATA FOR HINTS. */
|
/* READ DATA FOR HINTS. */
|
|
|
L1080: HNTMAX=0;
|
L1080: HNTMAX=0;
|
L1081: K=GETNUM(1);
|
L1081: K=GETNUM(1);
|
if(K == -1) goto L1002;
|
if(K == -1) goto L1002;
|
if(K <= 0 || K > HNTSIZ)BUG(7);
|
if(K <= 0 || K > HNTSIZ)BUG(7);
|
/* 1083 */ for (I=1; I<=4; I++) {
|
/* 1083 */ for (I=1; I<=4; I++) {
|
L1083: HINTS[K][I] =GETNUM(0);
|
L1083: HINTS[K][I] =GETNUM(0);
|
} /* end loop */
|
} /* end loop */
|
HNTMAX=(HNTMAX>K ? HNTMAX : K);
|
HNTMAX=(HNTMAX>K ? HNTMAX : K);
|
goto L1081;
|
goto L1081;
|
|
|
/* READ THE SOUND/TEXT INFO, STORE IN OBJSND, OBJTXT, LOCSND. */
|
/* READ THE SOUND/TEXT INFO, STORE IN OBJSND, OBJTXT, LOCSND. */
|
|
|
L1090: K=GETNUM(1);
|
L1090: K=GETNUM(1);
|
if(K == -1) goto L1002;
|
if(K == -1) goto L1002;
|
KK=GETNUM(0);
|
KK=GETNUM(0);
|
I=GETNUM(0);
|
I=GETNUM(0);
|
if(I == 0) goto L1092;
|
if(I == 0) goto L1092;
|
OBJSND[K]=(KK>0 ? KK : 0);
|
OBJSND[K]=(KK>0 ? KK : 0);
|
OBJTXT[K]=(I>0 ? I : 0);
|
OBJTXT[K]=(I>0 ? I : 0);
|
goto L1090;
|
goto L1090;
|
|
|
L1092: LOCSND[K]=KK;
|
L1092: LOCSND[K]=KK;
|
goto L1090;
|
goto L1090;
|
}
|
}
|
|
|
/* FINISH CONSTRUCTING INTERNAL DATA FORMAT */
|
/* FINISH CONSTRUCTING INTERNAL DATA FORMAT */
|
|
|
/* HAVING READ IN THE DATABASE, CERTAIN THINGS ARE NOW CONSTRUCTED. PROPS ARE
|
/* HAVING READ IN THE DATABASE, CERTAIN THINGS ARE NOW CONSTRUCTED. PROPS ARE
|
* SET TO ZERO. WE FINISH SETTING UP COND BY CHECKING FOR FORCED-MOTION TRAVEL
|
* SET TO ZERO. WE FINISH SETTING UP COND BY CHECKING FOR FORCED-MOTION TRAVEL
|
* ENTRIES. THE PLAC AND FIXD ARRAYS ARE USED TO SET UP ATLOC(N) AS THE FIRST
|
* ENTRIES. THE PLAC AND FIXD ARRAYS ARE USED TO SET UP ATLOC(N) AS THE FIRST
|
* OBJECT AT LOCATION N, AND LINK(OBJ) AS THE NEXT OBJECT AT THE SAME LOCATION
|
* OBJECT AT LOCATION N, AND LINK(OBJ) AS THE NEXT OBJECT AT THE SAME LOCATION
|
* AS OBJ. (OBJ>100 INDICATES THAT FIXED(OBJ-100)=LOC; LINK(OBJ) IS STILL THE
|
* AS OBJ. (OBJ>100 INDICATES THAT FIXED(OBJ-100)=LOC; LINK(OBJ) IS STILL THE
|
* CORRECT LINK TO USE.) ABB IS ZEROED; IT CONTROLS WHETHER THE ABBREVIATED
|
* CORRECT LINK TO USE.) ABB IS ZEROED; IT CONTROLS WHETHER THE ABBREVIATED
|
* DESCRIPTION IS PRINTED. COUNTS MOD 5 UNLESS "LOOK" IS USED. */
|
* DESCRIPTION IS PRINTED. COUNTS MOD 5 UNLESS "LOOK" IS USED. */
|
|
|
finish_init() {
|
finish_init() {
|
/* 1101 */ for (I=1; I<=100; I++) {
|
/* 1101 */ for (I=1; I<=100; I++) {
|
PLACE[I]=0;
|
PLACE[I]=0;
|
PROP[I]=0;
|
PROP[I]=0;
|
LINK[I]=0;
|
LINK[I]=0;
|
L1101: {long x = I+100; LINK[x]=0;}
|
L1101: {long x = I+100; LINK[x]=0;}
|
} /* end loop */
|
} /* end loop */
|
|
|
/* 1102 */ for (I=1; I<=LOCSIZ; I++) {
|
/* 1102 */ for (I=1; I<=LOCSIZ; I++) {
|
ABB[I]=0;
|
ABB[I]=0;
|
if(LTEXT[I] == 0 || KEY[I] == 0) goto L1102;
|
if(LTEXT[I] == 0 || KEY[I] == 0) goto L1102;
|
K=KEY[I];
|
K=KEY[I];
|
if(MOD(IABS(TRAVEL[K]),1000) == 1)COND[I]=2;
|
if(MOD(IABS(TRAVEL[K]),1000) == 1)COND[I]=2;
|
L1102: ATLOC[I]=0;
|
L1102: ATLOC[I]=0;
|
} /* end loop */
|
} /* end loop */
|
|
|
/* SET UP THE ATLOC AND LINK ARRAYS AS DESCRIBED ABOVE. WE'LL USE THE DROP
|
/* SET UP THE ATLOC AND LINK ARRAYS AS DESCRIBED ABOVE. WE'LL USE THE DROP
|
* SUBROUTINE, WHICH PREFACES NEW OBJECTS ON THE LISTS. SINCE WE WANT THINGS
|
* SUBROUTINE, WHICH PREFACES NEW OBJECTS ON THE LISTS. SINCE WE WANT THINGS
|
* IN THE OTHER ORDER, WE'LL RUN THE LOOP BACKWARDS. IF THE OBJECT IS IN TWO
|
* IN THE OTHER ORDER, WE'LL RUN THE LOOP BACKWARDS. IF THE OBJECT IS IN TWO
|
* LOCS, WE DROP IT TWICE. THIS ALSO SETS UP "PLACE" AND "FIXED" AS COPIES OF
|
* LOCS, WE DROP IT TWICE. THIS ALSO SETS UP "PLACE" AND "FIXED" AS COPIES OF
|
* "PLAC" AND "FIXD". ALSO, SINCE TWO-PLACED OBJECTS ARE TYPICALLY BEST
|
* "PLAC" AND "FIXD". ALSO, SINCE TWO-PLACED OBJECTS ARE TYPICALLY BEST
|
* DESCRIBED LAST, WE'LL DROP THEM FIRST. */
|
* DESCRIBED LAST, WE'LL DROP THEM FIRST. */
|
|
|
/* 1106 */ for (I=1; I<=100; I++) {
|
/* 1106 */ for (I=1; I<=100; I++) {
|
K=101-I;
|
K=101-I;
|
if(FIXD[K] <= 0) goto L1106;
|
if(FIXD[K] <= 0) goto L1106;
|
DROP(K+100,FIXD[K]);
|
DROP(K+100,FIXD[K]);
|
DROP(K,PLAC[K]);
|
DROP(K,PLAC[K]);
|
L1106: /*etc*/ ;
|
L1106: /*etc*/ ;
|
} /* end loop */
|
} /* end loop */
|
|
|
/* 1107 */ for (I=1; I<=100; I++) {
|
/* 1107 */ for (I=1; I<=100; I++) {
|
K=101-I;
|
K=101-I;
|
FIXED[K]=FIXD[K];
|
FIXED[K]=FIXD[K];
|
L1107: if(PLAC[K] != 0 && FIXD[K] <= 0)DROP(K,PLAC[K]);
|
L1107: if(PLAC[K] != 0 && FIXD[K] <= 0)DROP(K,PLAC[K]);
|
} /* end loop */
|
} /* end loop */
|
|
|
/* TREASURES, AS NOTED EARLIER, ARE OBJECTS 50 THROUGH MAXTRS (CURRENTLY 79).
|
/* TREASURES, AS NOTED EARLIER, ARE OBJECTS 50 THROUGH MAXTRS (CURRENTLY 79).
|
* THEIR PROPS ARE INITIALLY -1, AND ARE SET TO 0 THE FIRST TIME THEY ARE
|
* THEIR PROPS ARE INITIALLY -1, AND ARE SET TO 0 THE FIRST TIME THEY ARE
|
* DESCRIBED. TALLY KEEPS TRACK OF HOW MANY ARE NOT YET FOUND, SO WE KNOW
|
* DESCRIBED. TALLY KEEPS TRACK OF HOW MANY ARE NOT YET FOUND, SO WE KNOW
|
* WHEN TO CLOSE THE CAVE. */
|
* WHEN TO CLOSE THE CAVE. */
|
|
|
MAXTRS=79;
|
MAXTRS=79;
|
TALLY=0;
|
TALLY=0;
|
/* 1200 */ for (I=50; I<=MAXTRS; I++) {
|
/* 1200 */ for (I=50; I<=MAXTRS; I++) {
|
if(PTEXT[I] != 0)PROP[I]= -1;
|
if(PTEXT[I] != 0)PROP[I]= -1;
|
L1200: TALLY=TALLY-PROP[I];
|
L1200: TALLY=TALLY-PROP[I];
|
} /* end loop */
|
} /* end loop */
|
|
|
/* CLEAR THE HINT STUFF. HINTLC(I) IS HOW LONG HE'S BEEN AT LOC WITH COND BIT
|
/* CLEAR THE HINT STUFF. HINTLC(I) IS HOW LONG HE'S BEEN AT LOC WITH COND BIT
|
* I. HINTED(I) IS TRUE IFF HINT I HAS BEEN USED. */
|
* I. HINTED(I) IS TRUE IFF HINT I HAS BEEN USED. */
|
|
|
/* 1300 */ for (I=1; I<=HNTMAX; I++) {
|
/* 1300 */ for (I=1; I<=HNTMAX; I++) {
|
HINTED[I]=FALSE;
|
HINTED[I]=FALSE;
|
L1300: HINTLC[I]=0;
|
L1300: HINTLC[I]=0;
|
} /* end loop */
|
} /* end loop */
|
|
|
/* DEFINE SOME HANDY MNEMONICS. THESE CORRESPOND TO OBJECT NUMBERS. */
|
/* DEFINE SOME HANDY MNEMONICS. THESE CORRESPOND TO OBJECT NUMBERS. */
|
|
|
AXE=VOCWRD(12405,1);
|
AXE=VOCWRD(12405,1);
|
BATTER=VOCWRD(201202005,1);
|
BATTER=VOCWRD(201202005,1);
|
BEAR=VOCWRD(2050118,1);
|
BEAR=VOCWRD(2050118,1);
|
BIRD=VOCWRD(2091804,1);
|
BIRD=VOCWRD(2091804,1);
|
BLOOD=VOCWRD(212151504,1);
|
BLOOD=VOCWRD(212151504,1);
|
BOTTLE=VOCWRD(215202012,1);
|
BOTTLE=VOCWRD(215202012,1);
|
CAGE=VOCWRD(3010705,1);
|
CAGE=VOCWRD(3010705,1);
|
CAVITY=VOCWRD(301220920,1);
|
CAVITY=VOCWRD(301220920,1);
|
CHASM=VOCWRD(308011913,1);
|
CHASM=VOCWRD(308011913,1);
|
CLAM=VOCWRD(3120113,1);
|
CLAM=VOCWRD(3120113,1);
|
DOOR=VOCWRD(4151518,1);
|
DOOR=VOCWRD(4151518,1);
|
DRAGON=VOCWRD(418010715,1);
|
DRAGON=VOCWRD(418010715,1);
|
DWARF=VOCWRD(423011806,1);
|
DWARF=VOCWRD(423011806,1);
|
FISSUR=VOCWRD(609191921,1);
|
FISSUR=VOCWRD(609191921,1);
|
FOOD=VOCWRD(6151504,1);
|
FOOD=VOCWRD(6151504,1);
|
GRATE=VOCWRD(718012005,1);
|
GRATE=VOCWRD(718012005,1);
|
KEYS=VOCWRD(11052519,1);
|
KEYS=VOCWRD(11052519,1);
|
KNIFE=VOCWRD(1114090605,1);
|
KNIFE=VOCWRD(1114090605,1);
|
LAMP=VOCWRD(12011316,1);
|
LAMP=VOCWRD(12011316,1);
|
MAGZIN=VOCWRD(1301070126,1);
|
MAGZIN=VOCWRD(1301070126,1);
|
MESSAG=VOCWRD(1305191901,1);
|
MESSAG=VOCWRD(1305191901,1);
|
MIRROR=VOCWRD(1309181815,1);
|
MIRROR=VOCWRD(1309181815,1);
|
OGRE=VOCWRD(15071805,1);
|
OGRE=VOCWRD(15071805,1);
|
OIL=VOCWRD(150912,1);
|
OIL=VOCWRD(150912,1);
|
OYSTER=VOCWRD(1525192005,1);
|
OYSTER=VOCWRD(1525192005,1);
|
PILLOW=VOCWRD(1609121215,1);
|
PILLOW=VOCWRD(1609121215,1);
|
PLANT=VOCWRD(1612011420,1);
|
PLANT=VOCWRD(1612011420,1);
|
PLANT2=PLANT+1;
|
PLANT2=PLANT+1;
|
RESER=VOCWRD(1805190518,1);
|
RESER=VOCWRD(1805190518,1);
|
ROD=VOCWRD(181504,1);
|
ROD=VOCWRD(181504,1);
|
ROD2=ROD+1;
|
ROD2=ROD+1;
|
SIGN=VOCWRD(19090714,1);
|
SIGN=VOCWRD(19090714,1);
|
SNAKE=VOCWRD(1914011105,1);
|
SNAKE=VOCWRD(1914011105,1);
|
STEPS=VOCWRD(1920051619,1);
|
STEPS=VOCWRD(1920051619,1);
|
TROLL=VOCWRD(2018151212,1);
|
TROLL=VOCWRD(2018151212,1);
|
TROLL2=TROLL+1;
|
TROLL2=TROLL+1;
|
URN=VOCWRD(211814,1);
|
URN=VOCWRD(211814,1);
|
VEND=VOCWRD(1755140409,1);
|
VEND=VOCWRD(1755140409,1);
|
VOLCAN=VOCWRD(1765120301,1);
|
VOLCAN=VOCWRD(1765120301,1);
|
WATER=VOCWRD(1851200518,1);
|
WATER=VOCWRD(1851200518,1);
|
|
|
/* OBJECTS FROM 50 THROUGH WHATEVER ARE TREASURES. HERE ARE A FEW. */
|
/* OBJECTS FROM 50 THROUGH WHATEVER ARE TREASURES. HERE ARE A FEW. */
|
|
|
AMBER=VOCWRD(113020518,1);
|
AMBER=VOCWRD(113020518,1);
|
CHAIN=VOCWRD(308010914,1);
|
CHAIN=VOCWRD(308010914,1);
|
CHEST=VOCWRD(308051920,1);
|
CHEST=VOCWRD(308051920,1);
|
COINS=VOCWRD(315091419,1);
|
COINS=VOCWRD(315091419,1);
|
EGGS=VOCWRD(5070719,1);
|
EGGS=VOCWRD(5070719,1);
|
EMRALD=VOCWRD(513051801,1);
|
EMRALD=VOCWRD(513051801,1);
|
JADE=VOCWRD(10010405,1);
|
JADE=VOCWRD(10010405,1);
|
NUGGET=VOCWRD(7151204,1);
|
NUGGET=VOCWRD(7151204,1);
|
PEARL=VOCWRD(1605011812,1);
|
PEARL=VOCWRD(1605011812,1);
|
PYRAM=VOCWRD(1625180113,1);
|
PYRAM=VOCWRD(1625180113,1);
|
RUBY=VOCWRD(18210225,1);
|
RUBY=VOCWRD(18210225,1);
|
RUG=VOCWRD(182107,1);
|
RUG=VOCWRD(182107,1);
|
SAPPH=VOCWRD(1901161608,1);
|
SAPPH=VOCWRD(1901161608,1);
|
TRIDNT=VOCWRD(2018090405,1);
|
TRIDNT=VOCWRD(2018090405,1);
|
VASE=VOCWRD(22011905,1);
|
VASE=VOCWRD(22011905,1);
|
|
|
/* THESE ARE MOTION-VERB NUMBERS. */
|
/* THESE ARE MOTION-VERB NUMBERS. */
|
|
|
BACK=VOCWRD(2010311,0);
|
BACK=VOCWRD(2010311,0);
|
CAVE=VOCWRD(3012205,0);
|
CAVE=VOCWRD(3012205,0);
|
DPRSSN=VOCWRD(405161805,0);
|
DPRSSN=VOCWRD(405161805,0);
|
ENTER=VOCWRD(514200518,0);
|
ENTER=VOCWRD(514200518,0);
|
ENTRNC=VOCWRD(514201801,0);
|
ENTRNC=VOCWRD(514201801,0);
|
LOOK=VOCWRD(12151511,0);
|
LOOK=VOCWRD(12151511,0);
|
NUL=VOCWRD(14211212,0);
|
NUL=VOCWRD(14211212,0);
|
STREAM=VOCWRD(1920180501,0);
|
STREAM=VOCWRD(1920180501,0);
|
|
|
/* AND SOME ACTION VERBS. */
|
/* AND SOME ACTION VERBS. */
|
|
|
FIND=VOCWRD(6091404,2);
|
FIND=VOCWRD(6091404,2);
|
INVENT=VOCWRD(914220514,2);
|
INVENT=VOCWRD(914220514,2);
|
LOCK=VOCWRD(12150311,2);
|
LOCK=VOCWRD(12150311,2);
|
SAY=VOCWRD(190125,2);
|
SAY=VOCWRD(190125,2);
|
THROW=VOCWRD(2008181523,2);
|
THROW=VOCWRD(2008181523,2);
|
|
|
/* INITIALISE THE DWARVES. DLOC IS LOC OF DWARVES, HARD-WIRED IN. ODLOC IS
|
/* INITIALISE THE DWARVES. DLOC IS LOC OF DWARVES, HARD-WIRED IN. ODLOC IS
|
* PRIOR LOC OF EACH DWARF, INITIALLY GARBAGE. DALTLC IS ALTERNATE INITIAL LOC
|
* PRIOR LOC OF EACH DWARF, INITIALLY GARBAGE. DALTLC IS ALTERNATE INITIAL LOC
|
* FOR DWARF, IN CASE ONE OF THEM STARTS OUT ON TOP OF THE ADVENTURER. (NO 2
|
* FOR DWARF, IN CASE ONE OF THEM STARTS OUT ON TOP OF THE ADVENTURER. (NO 2
|
* OF THE 5 INITIAL LOCS ARE ADJACENT.) DSEEN IS TRUE IF DWARF HAS SEEN HIM.
|
* OF THE 5 INITIAL LOCS ARE ADJACENT.) DSEEN IS TRUE IF DWARF HAS SEEN HIM.
|
* DFLAG CONTROLS THE LEVEL OF ACTIVATION OF ALL THIS:
|
* DFLAG CONTROLS THE LEVEL OF ACTIVATION OF ALL THIS:
|
* 0 NO DWARF STUFF YET (WAIT UNTIL REACHES HALL OF MISTS)
|
* 0 NO DWARF STUFF YET (WAIT UNTIL REACHES HALL OF MISTS)
|
* 1 REACHED HALL OF MISTS, BUT HASN'T MET FIRST DWARF
|
* 1 REACHED HALL OF MISTS, BUT HASN'T MET FIRST DWARF
|
* 2 MET FIRST DWARF, OTHERS START MOVING, NO KNIVES THROWN YET
|
* 2 MET FIRST DWARF, OTHERS START MOVING, NO KNIVES THROWN YET
|
* 3 A KNIFE HAS BEEN THROWN (FIRST SET ALWAYS MISSES)
|
* 3 A KNIFE HAS BEEN THROWN (FIRST SET ALWAYS MISSES)
|
* 3+ DWARVES ARE MAD (INCREASES THEIR ACCURACY)
|
* 3+ DWARVES ARE MAD (INCREASES THEIR ACCURACY)
|
* SIXTH DWARF IS SPECIAL (THE PIRATE). HE ALWAYS STARTS AT HIS CHEST'S
|
* SIXTH DWARF IS SPECIAL (THE PIRATE). HE ALWAYS STARTS AT HIS CHEST'S
|
* EVENTUAL LOCATION INSIDE THE MAZE. THIS LOC IS SAVED IN CHLOC FOR REF.
|
* EVENTUAL LOCATION INSIDE THE MAZE. THIS LOC IS SAVED IN CHLOC FOR REF.
|
* THE DEAD END IN THE OTHER MAZE HAS ITS LOC STORED IN CHLOC2. */
|
* THE DEAD END IN THE OTHER MAZE HAS ITS LOC STORED IN CHLOC2. */
|
|
|
CHLOC=114;
|
CHLOC=114;
|
CHLOC2=140;
|
CHLOC2=140;
|
/* 1700 */ for (I=1; I<=6; I++) {
|
/* 1700 */ for (I=1; I<=6; I++) {
|
L1700: DSEEN[I]=FALSE;
|
L1700: DSEEN[I]=FALSE;
|
} /* end loop */
|
} /* end loop */
|
DFLAG=0;
|
DFLAG=0;
|
DLOC[1]=19;
|
DLOC[1]=19;
|
DLOC[2]=27;
|
DLOC[2]=27;
|
DLOC[3]=33;
|
DLOC[3]=33;
|
DLOC[4]=44;
|
DLOC[4]=44;
|
DLOC[5]=64;
|
DLOC[5]=64;
|
DLOC[6]=CHLOC;
|
DLOC[6]=CHLOC;
|
DALTLC=18;
|
DALTLC=18;
|
|
|
/* OTHER RANDOM FLAGS AND COUNTERS, AS FOLLOWS:
|
/* OTHER RANDOM FLAGS AND COUNTERS, AS FOLLOWS:
|
* ABBNUM HOW OFTEN WE SHOULD PRINT NON-ABBREVIATED DESCRIPTIONS
|
* ABBNUM HOW OFTEN WE SHOULD PRINT NON-ABBREVIATED DESCRIPTIONS
|
* BONUS USED TO DETERMINE AMOUNT OF BONUS IF HE REACHES CLOSING
|
* BONUS USED TO DETERMINE AMOUNT OF BONUS IF HE REACHES CLOSING
|
* CLOCK1 NUMBER OF TURNS FROM FINDING LAST TREASURE TILL CLOSING
|
* CLOCK1 NUMBER OF TURNS FROM FINDING LAST TREASURE TILL CLOSING
|
* CLOCK2 NUMBER OF TURNS FROM FIRST WARNING TILL BLINDING FLASH
|
* CLOCK2 NUMBER OF TURNS FROM FIRST WARNING TILL BLINDING FLASH
|
* CONDS MIN VALUE FOR COND(LOC) IF LOC HAS ANY HINTS
|
* CONDS MIN VALUE FOR COND(LOC) IF LOC HAS ANY HINTS
|
* DETAIL HOW OFTEN WE'VE SAID "NOT ALLOWED TO GIVE MORE DETAIL"
|
* DETAIL HOW OFTEN WE'VE SAID "NOT ALLOWED TO GIVE MORE DETAIL"
|
* DKILL NUMBER OF DWARVES KILLED (UNUSED IN SCORING, NEEDED FOR MSG)
|
* DKILL NUMBER OF DWARVES KILLED (UNUSED IN SCORING, NEEDED FOR MSG)
|
* FOOBAR CURRENT PROGRESS IN SAYING "FEE FIE FOE FOO".
|
* FOOBAR CURRENT PROGRESS IN SAYING "FEE FIE FOE FOO".
|
* HOLDNG NUMBER OF OBJECTS BEING CARRIED
|
* HOLDNG NUMBER OF OBJECTS BEING CARRIED
|
* IGO HOW MANY TIMES HE'S SAID "GO XXX" INSTEAD OF "XXX"
|
* IGO HOW MANY TIMES HE'S SAID "GO XXX" INSTEAD OF "XXX"
|
* IWEST HOW MANY TIMES HE'S SAID "WEST" INSTEAD OF "W"
|
* IWEST HOW MANY TIMES HE'S SAID "WEST" INSTEAD OF "W"
|
* KNFLOC 0 IF NO KNIFE HERE, LOC IF KNIFE HERE, -1 AFTER CAVEAT
|
* KNFLOC 0 IF NO KNIFE HERE, LOC IF KNIFE HERE, -1 AFTER CAVEAT
|
* LIMIT LIFETIME OF LAMP (NOT SET HERE)
|
* LIMIT LIFETIME OF LAMP (NOT SET HERE)
|
* MAXDIE NUMBER OF REINCARNATION MESSAGES AVAILABLE (UP TO 5)
|
* MAXDIE NUMBER OF REINCARNATION MESSAGES AVAILABLE (UP TO 5)
|
* NUMDIE NUMBER OF TIMES KILLED SO FAR
|
* NUMDIE NUMBER OF TIMES KILLED SO FAR
|
* THRESH NEXT #TURNS THRESHHOLD (-1 IF NONE)
|
* THRESH NEXT #TURNS THRESHHOLD (-1 IF NONE)
|
* TRNDEX INDEX IN TRNVAL OF NEXT THRESHHOLD (SECTION 14 OF DATABASE)
|
* TRNDEX INDEX IN TRNVAL OF NEXT THRESHHOLD (SECTION 14 OF DATABASE)
|
* TRNLUZ # POINTS LOST SO FAR DUE TO NUMBER OF TURNS USED
|
* TRNLUZ # POINTS LOST SO FAR DUE TO NUMBER OF TURNS USED
|
* TURNS TALLIES HOW MANY COMMANDS HE'S GIVEN (IGNORES YES/NO)
|
* TURNS TALLIES HOW MANY COMMANDS HE'S GIVEN (IGNORES YES/NO)
|
* LOGICALS WERE EXPLAINED EARLIER */
|
* LOGICALS WERE EXPLAINED EARLIER */
|
|
|
TURNS=0;
|
TURNS=0;
|
TRNDEX=1;
|
TRNDEX=1;
|
THRESH= -1;
|
THRESH= -1;
|
if(TRNVLS > 0)THRESH=MOD(TRNVAL[1],100000)+1;
|
if(TRNVLS > 0)THRESH=MOD(TRNVAL[1],100000)+1;
|
TRNLUZ=0;
|
TRNLUZ=0;
|
LMWARN=FALSE;
|
LMWARN=FALSE;
|
IGO=0;
|
IGO=0;
|
IWEST=0;
|
IWEST=0;
|
KNFLOC=0;
|
KNFLOC=0;
|
DETAIL=0;
|
DETAIL=0;
|
ABBNUM=5;
|
ABBNUM=5;
|
/* 1800 */ for (I=0; I<=4; I++) {
|
/* 1800 */ for (I=0; I<=4; I++) {
|
L1800: {long x = 2*I+81; if(RTEXT[x] != 0)MAXDIE=I+1;}
|
L1800: {long x = 2*I+81; if(RTEXT[x] != 0)MAXDIE=I+1;}
|
} /* end loop */
|
} /* end loop */
|
NUMDIE=0;
|
NUMDIE=0;
|
HOLDNG=0;
|
HOLDNG=0;
|
DKILL=0;
|
DKILL=0;
|
FOOBAR=0;
|
FOOBAR=0;
|
BONUS=0;
|
BONUS=0;
|
CLOCK1=30;
|
CLOCK1=30;
|
CLOCK2=50;
|
CLOCK2=50;
|
CONDS=SETBIT(11);
|
CONDS=SETBIT(11);
|
SAVED=0;
|
SAVED=0;
|
CLOSNG=FALSE;
|
CLOSNG=FALSE;
|
PANIC=FALSE;
|
PANIC=FALSE;
|
CLOSED=FALSE;
|
CLOSED=FALSE;
|
CLSHNT=FALSE;
|
CLSHNT=FALSE;
|
NOVICE=FALSE;
|
NOVICE=FALSE;
|
SETUP=1;
|
SETUP=1;
|
|
|
/* if we can ever think of how, we should save it at this point */
|
/* if we can ever think of how, we should save it at this point */
|
|
|
return(0); /* then we won't actually return from initialisation */
|
return(0); /* then we won't actually return from initialisation */
|
}
|
}
|
|
|
/* REPORT ON AMOUNT OF ARRAYS ACTUALLY USED, TO PERMIT REDUCTIONS. */
|
/* REPORT ON AMOUNT OF ARRAYS ACTUALLY USED, TO PERMIT REDUCTIONS. */
|
|
|
report() {
|
report() {
|
/* 1998 */ for (K=1; K<=LOCSIZ; K++) {
|
/* 1998 */ for (K=1; K<=LOCSIZ; K++) {
|
KK=LOCSIZ+1-K;
|
KK=LOCSIZ+1-K;
|
if(LTEXT[KK] != 0) goto L1997;
|
if(LTEXT[KK] != 0) goto L1997;
|
L1998: /*etc*/ ;
|
L1998: /*etc*/ ;
|
} /* end loop */
|
} /* end loop */
|
|
|
OBJ=0;
|
OBJ=0;
|
L1997: /* 1996 */ for (K=1; K<=100; K++) {
|
L1997: /* 1996 */ for (K=1; K<=100; K++) {
|
L1996: if(PTEXT[K] != 0)OBJ=OBJ+1;
|
L1996: if(PTEXT[K] != 0)OBJ=OBJ+1;
|
} /* end loop */
|
} /* end loop */
|
|
|
/* 1995 */ for (K=1; K<=TABNDX; K++) {
|
/* 1995 */ for (K=1; K<=TABNDX; K++) {
|
L1995: if((KTAB[K]/1000) == 2){ VERB=KTAB[K]-2000; } // po_num(KTAB[K]); puts(" --> "); po_num(KTAB[K]/1000); puts("\n");
|
L1995: if((KTAB[K]/1000) == 2){ VERB=KTAB[K]-2000; } // po_num(KTAB[K]); puts(" --> "); po_num(KTAB[K]/1000); puts("\n");
|
} /* end loop */
|
} /* end loop */
|
|
|
/* 1994 */ for (K=1; K<=RTXSIZ; K++) {
|
/* 1994 */ for (K=1; K<=RTXSIZ; K++) {
|
J=RTXSIZ+1-K;
|
J=RTXSIZ+1-K;
|
if(RTEXT[J] != 0) goto L1993;
|
if(RTEXT[J] != 0) goto L1993;
|
L1994: /*etc*/ ;
|
L1994: /*etc*/ ;
|
} /* end loop */
|
} /* end loop */
|
|
|
L1993: SETPRM(1,LINUSE,LINSIZ);
|
L1993: SETPRM(1,LINUSE,LINSIZ);
|
SETPRM(3,TRVS,TRVSIZ);
|
SETPRM(3,TRVS,TRVSIZ);
|
SETPRM(5,TABNDX,TABSIZ);
|
SETPRM(5,TABNDX,TABSIZ);
|
SETPRM(7,KK,LOCSIZ);
|
SETPRM(7,KK,LOCSIZ);
|
SETPRM(9,OBJ,100);
|
SETPRM(9,OBJ,100);
|
SETPRM(11,VERB,VRBSIZ);
|
SETPRM(11,VERB,VRBSIZ);
|
SETPRM(13,J,RTXSIZ);
|
SETPRM(13,J,RTXSIZ);
|
SETPRM(15,CLSSES,CLSMAX);
|
SETPRM(15,CLSSES,CLSMAX);
|
SETPRM(17,HNTMAX,HNTSIZ);
|
SETPRM(17,HNTMAX,HNTSIZ);
|
SETPRM(19,TRNVLS,TRNSIZ);
|
SETPRM(19,TRNVLS,TRNSIZ);
|
RSPEAK(267);
|
RSPEAK(267);
|
TYPE0();
|
TYPE0();
|
}
|
}
|
|
|
