From: Eric S. Raymond <esr@thyrsus.com>
Date: Fri, 9 Jun 2017 06:12:59 +0000 (-0400)
Subject: More vocabulary handlers.
X-Git-Tag: 1.1~489
X-Git-Url: https://jxself.org/git/?p=open-adventure.git;a=commitdiff_plain;h=21adfe080742ef004d4570cbb84814faca608850

More vocabulary handlers.
---

diff --git a/actions2.c b/actions2.c
index 5b0bd86..72bd0b0 100644
--- a/actions2.c
+++ b/actions2.c
@@ -7,6 +7,15 @@
 
 int carry(long obj)
 {
+    if (obj == INTRANSITIVE) {
+	/*  Carry, no object given yet.  OK if only one object present. */
+	if(game.atloc[game.loc] == 0 ||
+	   game.link[game.atloc[game.loc]] != 0 ||
+	   ATDWRF(game.loc) > 0)
+	    return(8000);
+	obj=game.atloc[game.loc];
+    }
+
     if (TOTING(obj)) return(2011);
     SPK=25;
     if (obj == PLANT && game.prop[PLANT] <= 0)SPK=115;
diff --git a/advent.h b/advent.h
index e33d66a..90b25c6 100644
--- a/advent.h
+++ b/advent.h
@@ -11,6 +11,7 @@
 #define MAXTRS		79
 #define MAXPARMS	25
 #define INVLIMIT	7
+#define INTRANSITIVE	-1	/* illegal object number */
 
 typedef struct lcg_state
 {