X-Git-Url: https://jxself.org/git/?p=open-adventure.git;a=blobdiff_plain;f=advent.h;h=c13a9052a5c72373dd9706e526071562389f0b1e;hp=1f2bd8c893d18c1ef40a0009992b67c1746bef6b;hb=f862f9f1d508e00bccc208e66b1d31a5e530ab3e;hpb=ec031b0417d85418e85d65e4c7fa5de609b568e0 diff --git a/advent.h b/advent.h index 1f2bd8c..c13a905 100644 --- a/advent.h +++ b/advent.h @@ -14,6 +14,7 @@ #define INTRANSITIVE -1 /* illegal object number */ #define SPECIALBASE 300 /* base number of special rooms */ #define WARNTIME 30 /* late game starts at game.limit-this */ +#define PANICTIME 15 /* time left after closing */ typedef long token_t; /* word token - someday this will be char[TOKLEN+1] */ typedef long vocab_t; /* index into a vocabulary array */ @@ -84,7 +85,7 @@ extern bool oldstyle, editline, prompt; #define WRITE_MODE "wb" extern char* xstrdup(const char*); extern void packed_to_token(long, char token[]); -extern void newspeak(char*); +extern void newspeak(const char*); extern void PSPEAK(vocab_t,int); extern void RSPEAK(vocab_t); extern void SETPRM(long,long,long); @@ -94,7 +95,6 @@ extern long GETTXT(bool,bool,bool); extern token_t MAKEWD(long); extern void TYPE0(void); extern long VOCAB(long,long); -extern void DSTROY(long); extern void JUGGLE(long); extern void MOVE(long,long); extern long PUT(long,long,long); @@ -115,7 +115,9 @@ extern void set_seed(long); extern unsigned long get_next_lcg_value(void); extern long randrange(long); extern void score(enum termination); -extern int saveresume(FILE *, bool); +extern int suspend(FILE *); +extern int resume(FILE *); +extern int restore(FILE *); /* * MOD(N,M) = Arithmetic modulus @@ -131,8 +133,9 @@ extern int saveresume(FILE *, bool); * PCT(N) = true N% of the time (N integer from 0 to 100) * TOTING(OBJ) = true if the OBJ is being carried */ +#define DESTROY(N) MOVE(N, NOWHERE) #define MOD(N,M) ((N) % (M)) -#define TOTING(OBJ) (game.place[OBJ] == -1) +#define TOTING(OBJ) (game.place[OBJ] == CARRIED) #define AT(OBJ) (game.place[OBJ] == game.loc || game.fixed[OBJ] == game.loc) #define HERE(OBJ) (AT(OBJ) || TOTING(OBJ)) #define LIQ2(PBOTL) ((1-(PBOTL))*WATER+((PBOTL)/2)*(WATER+OIL)) @@ -141,7 +144,7 @@ extern int saveresume(FILE *, bool); #define CNDBIT(L,N) (TSTBIT(COND[L],N)) #define FORCED(LOC) (COND[LOC] == 2) #define DARK(DUMMY) ((!CNDBIT(game.loc,LIGHT)) && (game.prop[LAMP] == 0 || !HERE(LAMP))) -#define PCT(N) (randrange(100) < (N)) +#define PCT(N) (randrange(100) < (N)) #define GSTONE(OBJ) ((OBJ) == EMRALD || (OBJ) == RUBY || (OBJ) == AMBER || (OBJ) == SAPPH) #define FOREST(LOC) ((LOC) >= LOC_FOREST1 && (LOC) <= LOC_FOREST22) #define VOCWRD(LETTRS,SECT) (VOCAB(MAKEWD(LETTRS),SECT)) @@ -169,6 +172,9 @@ extern long AMBER, ATTACK, AXE, BACK, BATTER, BEAR, enum speechpart {unknown, intransitive, transitive}; +void initialise(void); +int action(FILE *input, enum speechpart part, long verb, token_t obj); + /* Phase codes for action returns. * These were at one time FORTRAN line numbers. * The values don't matter, but perturb their order at your peril. @@ -207,6 +213,10 @@ enum speechpart {unknown, intransitive, transitive}; #define HOGRE 19 /* Trying to deal with ogre */ #define HJADE 20 /* Found all treasures except jade */ +/* Special object statuses in game.place - can also be a location number (> 0) */ +#define CARRIED -1 /* Player is toting it */ +#define NOWHERE 0 /* It's destroyed */ + /* hack to ignore GCC Unused Result */ #define IGNORE(r) do{if (r){}}while(0)