projects / open-adventure.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Handler for SAY.
[open-adventure.git] / actions1.c
diff --git a/actions1.c b/actions1.c
index 4ba3492177f85ffbb3ec839482478c4dd2305c1e..8b745d90225e5962f4d0c1158f0604a7eba79266 100644 (file)
--- a/actions1.c
+++ b/actions1.c
@@ -5,9 +5,39 @@
 
 /*
  * Action handlers.  Eventually we'll do lookup through a method table
- * that calls these.  Absolutely nothing like the original FORTRAN
+ * that calls these.  Absolutely nothing like the original FORTRAN.
  */
 
+static int bigwords(long foo)
+/*  FEE FIE FOE FOO (AND FUM).  Advance to next state if given in proper order.
+ *  Look up WD1 in section 3 of vocab to determine which word we've got.  Last
+ *  word zips the eggs back to the giant room (unless already there). */
+{
+    int k=VOCAB(foo,3);
+    SPK=42;
+    if(game.foobar != 1-k) {
+       if(game.foobar != 0)SPK=151;
+       return(2011);
+    } else {
+
+       game.foobar=k;
+       if(k != 4) return(2009);
+       game.foobar=0;
+       if(game.place[EGGS] == PLAC[EGGS] || (TOTING(EGGS) && game.loc == PLAC[EGGS])) 
+           return(2011);
+       /*  Bring back troll if we steal the eggs back from him before
+        *  crossing. */
+       if(game.place[EGGS]==0 && game.place[TROLL]==0 && game.prop[TROLL]==0)
+           game.prop[TROLL]=1;
+       k=2;
+       if(HERE(EGGS))k=1;
+       if(game.loc == PLAC[EGGS])k=0;
+       MOVE(EGGS,PLAC[EGGS]);
+       PSPEAK(EGGS,k);
+       return(2012);
+    }
+}
+
 static int bivalve(token_t verb, token_t obj)
 /* Clam/oyster actions */
 {
@@ -165,6 +195,38 @@ static int listen(void)
     return(2011);
 }
 
+static int pour(token_t obj)
+/*  Pour.  If no object, or object is bottle, assume contents of bottle.
+ *  special tests for pouring water or oil on plant or rusty door. */
+{
+    if(obj == BOTTLE || obj == 0)obj=LIQ(0);
+    if(obj == 0) return(8000);
+    if(!TOTING(obj)) return(2011);
+    SPK=78;
+    if(obj != OIL && obj != WATER) return(2011);
+    if(HERE(URN) && game.prop[URN] == 0)
+       return fill(URN);
+    game.prop[BOTTLE]=1;
+    game.place[obj]=0;
+    SPK=77;
+    if(!(AT(PLANT) || AT(DOOR)))
+       return(2011);
+    if(!AT(DOOR)) {
+       SPK=112;
+       if(obj != WATER) return(2011);
+       PSPEAK(PLANT,game.prop[PLANT]+3);
+       game.prop[PLANT]=MOD(game.prop[PLANT]+1,3);
+       game.prop[PLANT2]=game.prop[PLANT];
+       K=NUL;
+       return(8);
+    } else {
+       game.prop[DOOR]=0;
+       if(obj == OIL)game.prop[DOOR]=1;
+       SPK=113+game.prop[DOOR];
+       return(2011);
+    }
+}
+
 static int quit(FILE *input)
 /*  Quit.  Intransitive only.  Verify intent and exit if that's what he wants. */
 {
@@ -187,6 +249,23 @@ static int rub(token_t obj)
     return(2011);
 }
 
+static int say(void)
+/* SAY.  Echo WD2 (or WD1 if no WD2 (SAY WHAT?, etc.).)  Magic words override. */
+{
+    /* FIXME: ugly use of globals */
+    SETPRM(1,WD2,WD2X);
+    if(WD2 <= 0)SETPRM(1,WD1,WD1X);
+    if(WD2 > 0)WD1=WD2;
+    I=VOCAB(WD1,-1);
+    if(I == 62 || I == 65 || I == 71 || I == 2025 || I == 2034) goto L9035;
+    RSPEAK(258);
+    return(2012);
+
+L9035: WD2=0;
+    //obj=0;
+    return(2630);
+}
+
 static int vscore(void)
 /* Score.  Call scoring routine but tell it to return. */
 {
@@ -386,22 +465,10 @@ L8010:    if(game.atloc[game.loc] == 0 || game.link[game.atloc[game.loc]] != 0 || A
 
 /*  Transitive carry/drop are in separate file. */
 
-L9010: return(carry(obj));
-L9020: return(discard(obj, false));
+L9010: return carry(obj);
+L9020: return discard(obj, false);
 
-/*  SAY.  Echo WD2 (or WD1 if no WD2 (SAY WHAT?, etc.).)  Magic words override. */
-
-L9030: SETPRM(1,WD2,WD2X);
-       if(WD2 <= 0)SETPRM(1,WD1,WD1X);
-       if(WD2 > 0)WD1=WD2;
-       I=VOCAB(WD1,-1);
-       if(I == 62 || I == 65 || I == 71 || I == 2025 || I == 2034) goto L9035;
-       RSPEAK(258);
-        return(2012);
-
-L9035: WD2=0;
-       obj=0;
-        return(2630);
+L9030: return say();
 
 /*  Lock, unlock, no object given.  Assume various things if present. */
 
@@ -487,36 +554,7 @@ L9090: return wave(obj);
 
 L9120: return attack(input, verb, obj);
 
-/*  Pour.  If no object, or object is bottle, assume contents of bottle.
- *  special tests for pouring water or oil on plant or rusty door. */
-
-L9130: if(obj == BOTTLE || obj == 0)obj=LIQ(0);
-       if(obj == 0) return(8000);
-       if(!TOTING(obj)) return(2011);
-       SPK=78;
-       if(obj != OIL && obj != WATER) return(2011);
-       if(HERE(URN) && game.prop[URN] == 0) goto L9134;
-       game.prop[BOTTLE]=1;
-       game.place[obj]=0;
-       SPK=77;
-       if(!(AT(PLANT) || AT(DOOR))) return(2011);
-
-       if(AT(DOOR)) goto L9132;
-       SPK=112;
-       if(obj != WATER) return(2011);
-       PSPEAK(PLANT,game.prop[PLANT]+3);
-       game.prop[PLANT]=MOD(game.prop[PLANT]+1,3);
-       game.prop[PLANT2]=game.prop[PLANT];
-       K=NUL;
-        return(8);
-
-L9132: game.prop[DOOR]=0;
-       if(obj == OIL)game.prop[DOOR]=1;
-       SPK=113+game.prop[DOOR];
-        return(2011);
-
-L9134: obj=URN;
-        goto L9220;
+L9130: return pour(obj);
 
 /*  Eat.  Intransitive: assume food if present, else ask what.  Transitive: food
  *  ok, some things lose appetite, rest are ridiculous. */
@@ -552,30 +590,7 @@ L9230: return blast();
 
 L8240: return vscore();
 
-/*  FEE FIE FOE FOO (AND FUM).  Advance to next state if given in proper order.
- *  Look up WD1 in section 3 of vocab to determine which word we've got.  Last
- *  word zips the eggs back to the giant room (unless already there). */
-
-L8250: K=VOCAB(WD1,3);
-       SPK=42;
-       if(game.foobar == 1-K) goto L8252;
-       if(game.foobar != 0)SPK=151;
-        return(2011);
-
-L8252: game.foobar=K;
-       if(K != 4) return(2009);
-       game.foobar=0;
-       if(game.place[EGGS] == PLAC[EGGS] || (TOTING(EGGS) && game.loc == PLAC[EGGS])) 
-               return(2011);
-/*  Bring back troll if we steal the eggs back from him before crossing. */
-       if(game.place[EGGS] == 0 && game.place[TROLL] == 0 && game.prop[TROLL] ==
-               0)game.prop[TROLL]=1;
-       K=2;
-       if(HERE(EGGS))K=1;
-       if(game.loc == PLAC[EGGS])K=0;
-       MOVE(EGGS,PLAC[EGGS]);
-       PSPEAK(EGGS,K);
-        return(2012);
+L8250: return bigwords(WD1);
 
 L8260: return brief();
 
This code is a forward-port of the Crowther/Woods Adventure 2.5 from 1995, last version in the main line of Colossal Cave Adventure development written by the original authors. The authors have given permission and encouragement to this release.