X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=main.c;h=579ecfcecc294160c7dcfcb99a517eba1a886782;hb=fb35c34171b0e5b46c217b19bea5d808fb61853b;hp=b7219d1d3b63f934c755c1375a62b0411a176ec9;hpb=894b3de9493d26d7dec33aac7b820783c108803b;p=open-adventure.git diff --git a/main.c b/main.c index b7219d1..579ecfc 100644 --- a/main.c +++ b/main.c @@ -32,11 +32,13 @@ * inherited from FORTRAN, someday. To understand these, read the * encoding description for travel. */ -#define T_DESTINATION(entry) MOD(labs(entry) / 1000, 1000) -#define T_NODWARVES(entry) labs(entry) / 1000000 == 100 -#define T_MOTION(entry) MOD(labs(entry), 1000) -#define L_SPEAK(loc) ((loc) - 500) +#define T_DESTINATION(entry) MOD((entry).opcode / 1000, 1000) +#define T_NODWARVES(entry) ((entry).opcode / 1000000 == 100) +#define T_MOTION(entry) MOD((entry).opcode, 1000) #define T_TERMINATE(entry) (T_MOTION(entry) == 1) +#define T_STOP(entry) ((entry).stop) +#define T_OPCODE(entry) ((entry).opcode) +#define L_SPEAK(loc) ((loc) - 500) struct game_t game; @@ -425,7 +427,7 @@ static bool dwarfmove(void) } ++kk; } while - (travel[kk - 1] >= 0); + (!T_STOP(travel[kk - 1])); tk[j] = game.odloc[i]; if (j >= 2) --j; @@ -555,7 +557,7 @@ static bool playermove(token_t verb, int motion) if (FORCED(scratchloc) && T_DESTINATION(travel[tkey[scratchloc]]) == motion) k2 = kk; } - if (travel[kk] >= 0) { + if (!T_STOP(travel[kk])) { ++kk; /* go to next travel entry for this location */ continue; } @@ -600,7 +602,7 @@ static bool playermove(token_t verb, int motion) for (;;) { if (T_TERMINATE(travel[kk]) || T_MOTION(travel[kk]) == motion) break; - if (travel[kk] < 0) { + if (T_STOP(travel[kk])) { /* FIXME: Magic numbers! */ /* Couldn't find an entry matching the motion word passed * in. Various messages depending on word given. */ @@ -617,7 +619,7 @@ static bool playermove(token_t verb, int motion) } ++kk; } - scratchloc = labs(travel[kk]) / 1000; + scratchloc = T_OPCODE(travel[kk]) / 1000; do { /* @@ -636,16 +638,17 @@ static bool playermove(token_t verb, int motion) break; /* else fall through */ } + /* handles the YAML "with" clause */ if (TOTING(motion) || (game.newloc > 200 && AT(motion))) break; /* else fall through */ } else if (game.prop[motion] != game.newloc / 100 - 3) break; do { - if (travel[kk] < 0) + if (T_STOP(travel[kk])) BUG(CONDITIONAL_TRAVEL_ENTRY_WITH_NO_ALTERATION); ++kk; - game.newloc = labs(travel[kk]) / 1000; + game.newloc = T_OPCODE(travel[kk]) / 1000; } while (game.newloc == scratchloc); scratchloc = game.newloc; @@ -654,14 +657,20 @@ static bool playermove(token_t verb, int motion) game.newloc = MOD(scratchloc, 1000); if (!SPECIAL(game.newloc)) return true; - if (game.newloc <= 500) { - game.newloc -= SPECIALBASE; + + if (game.newloc > 500) { + /* Execute a speak rule */ + rspeak(L_SPEAK(game.newloc)); + game.newloc = game.loc; + return true; + } else { + game.newloc -= SPECIALBASE; switch (game.newloc) { case 1: - /* Travel 301. Plover-alcove passage. Can carry only - * emerald. Note: travel table must include "useless" - * entries going through passage, which can never be used for - * actual motion, but can be spotted by "go back". */ + /* Travel 301. Plover-alcove passage. Can carry only + * emerald. Note: travel table must include "useless" + * entries going through passage, which can never be used + * for actual motion, but can be spotted by "go back". */ /* FIXME: Arithmetic on location numbers */ game.newloc = 99 + 100 - game.loc; if (game.holdng > 1 || (game.holdng == 1 && !TOTING(EMERALD))) { @@ -670,28 +679,31 @@ static bool playermove(token_t verb, int motion) } return true; case 2: - /* Travel 302. Plover transport. Drop the emerald (only use - * special travel if toting it), so he's forced to use the - * plover-passage to get it out. Having dropped it, go back and - * pretend he wasn't carrying it after all. */ + /* Travel 302. Plover transport. Drop the + * emerald (only use special travel if toting + * it), so he's forced to use the plover-passage + * to get it out. Having dropped it, go back and + * pretend he wasn't carrying it after all. */ drop(EMERALD, game.loc); do { - if (travel[kk] < 0) + if (T_STOP(travel[kk])) BUG(CONDITIONAL_TRAVEL_ENTRY_WITH_NO_ALTERATION); ++kk; - game.newloc = labs(travel[kk]) / 1000; + game.newloc = T_OPCODE(travel[kk]) / 1000; } while (game.newloc == scratchloc); scratchloc = game.newloc; continue; /* goto L12 */ case 3: - /* Travel 303. Troll bridge. Must be done only as special - * motion so that dwarves won't wander across and encounter - * the bear. (They won't follow the player there because - * that region is forbidden to the pirate.) If - * game.prop(TROLL)=1, he's crossed since paying, so step out - * and block him. (standard travel entries check for - * game.prop(TROLL)=0.) Special stuff for bear. */ + /* Travel 303. Troll bridge. Must be done only + * as special motion so that dwarves won't wander + * across and encounter the bear. (They won't + * follow the player there because that region is + * forbidden to the pirate.) If + * game.prop(TROLL)=1, he's crossed since paying, + * so step out and block him. (standard travel + * entries check for game.prop(TROLL)=0.) Special + * stuff for bear. */ if (game.prop[TROLL] == 1) { pspeak(TROLL,look, 1); game.prop[TROLL] = 0; @@ -716,18 +728,14 @@ static bool playermove(token_t verb, int motion) croak(); return true; } + default: + BUG(SPECIAL_TRAVEL_500_GT_L_GT_300_EXCEEDS_GOTO_LIST); } - BUG(SPECIAL_TRAVEL_500_GT_L_GT_300_EXCEEDS_GOTO_LIST); } break; /* Leave L12 loop */ } } while (false); - - /* Execute a speak rule */ - rspeak(L_SPEAK(game.newloc)); - game.newloc = game.loc; - return true; } static bool closecheck(void)