FORTRAN line numbers returned from action() become action symbols.

[open-adventure.git] / advent.h

diff --git a/advent.h b/advent.h
index e831a0a9086e69d2f377d0f6017324ab89937967..6e3c56b2649e56116499195569e656f123380e89 100644 (file)
--- a/advent.h
+++ b/advent.h
@@ -89,7 +89,6 @@ extern lcg_state lcgstate;
 extern void* xmalloc(size_t);
 extern void packed_to_token(long, char token[6]);
 extern void newspeak(char*);
-extern void SPEAK(vocab_t);
 extern void PSPEAK(vocab_t,int);
 extern void RSPEAK(vocab_t);
 extern void SETPRM(long,long,long);
@@ -170,11 +169,25 @@ extern long AMBER, ATTACK, AXE, BACK, BATTER, BEAR,
    RESER, ROD, ROD2, RUBY, RUG, SAPPH, SAY, SIGN, SNAKE,
    STEPS, STICK, STREAM, THROW, TRIDNT, TROLL, TROLL2,
    URN, VASE, VEND, VOLCAN, WATER;
-/* everything else */
-extern long K, SPK, WD1, WD1X, WD2, WD2X;
 
 enum speechpart {unknown, intransitive, transitive};
 
+/* Phase codes for action returns. 
+ * These were at one time FORTRAN line numbers.
+ */
+#define GO_TERMINATE   2
+#define GO_MOVE                8
+#define GO_TOP         2000
+#define GO_CLEAROBJ    2012
+#define GO_CHECKHINT   2600
+#define GO_CHECKFOO    2607
+#define GO_DIRECTION   2620
+#define GO_LOOKUP      2630
+#define GO_WORD2       2800
+#define GO_UNKNOWN     8000
+#define GO_DWARFWAKE   19000
+#define GO_ACTION      40000
+
 /* hack to ignore GCC Unused Result */
 #define IGNORE(r) do{if (r){}}while(0)