+/*
+ * Action handlers. Eventually we'll do lookup through a method table
+ * that calls these. Absolutely nothing like the original FORTRAN
+ */
+
+static int chain(int verb)
+{
+ if(verb != LOCK) {
+ SPK=171;
+ if(game.prop[BEAR] == 0)SPK=41;
+ if(game.prop[CHAIN] == 0)SPK=37;
+ if(SPK != 171) return(2011);
+ game.prop[CHAIN]=0;
+ game.fixed[CHAIN]=0;
+ if(game.prop[BEAR] != 3)game.prop[BEAR]=2;
+ game.fixed[BEAR]=2-game.prop[BEAR];
+ return(2011);
+ } else {
+ SPK=172;
+ if(game.prop[CHAIN] != 0)SPK=34;
+ if(game.loc != PLAC[CHAIN])SPK=173;
+ if(SPK != 172) return(2011);
+ game.prop[CHAIN]=2;
+ if(TOTING(CHAIN))DROP(CHAIN,game.loc);
+ game.fixed[CHAIN]= -1;
+ return(2011);
+ }
+}
+