dverb2.c

/* SAVE- SAVE GAME STATE */

/*COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142*/
/* ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED */
/* WRITTEN BY R. M. SUPNIK */

#include <stdio.h>
#include "funcs.h"
#include "vars.h"

/* DECLARATIONS */

static integer cxappl_ P((integer));

void savegm_()
{
   /* Local variables */
   integer i;
   FILE *e;

   prsvec_1.prswon = FALSE_;
   /* 						!DISABLE GAME. */
   /* Note: save file format is different for PDP vs. non-PDP versions */

   if ((e = fopen("dsave.dat", BINWRITE)) == NULL)
      goto L100;

   gttime_(&i);
   /* 						!GET TIME. */

#define do_uio(i, zbuf, cbytes) \
   (void) fwrite((const char *)(zbuf), (cbytes), (i), e)

   do_uio(1, &vers_1.vmaj, sizeof(integer));
   do_uio(1, &vers_1.vmin, sizeof(integer));
   do_uio(1, &vers_1.vedit, sizeof(integer));

   do_uio(1, &play_1.winner, sizeof(integer));
   do_uio(1, &play_1.here, sizeof(integer));
   do_uio(1, &hack_1.thfpos, sizeof(integer));
   do_uio(1, &play_1.telflg, sizeof(logical));
   do_uio(1, &hack_1.thfflg, sizeof(logical));
   do_uio(1, &hack_1.thfact, sizeof(logical));
   do_uio(1, &hack_1.swdact, sizeof(logical));
   do_uio(1, &hack_1.swdsta, sizeof(integer));
   do_uio(64, &puzzle_1.cpvec[0], sizeof(integer));

   do_uio(1, &i, sizeof(integer));
   do_uio(1, &state_1.moves, sizeof(integer));
   do_uio(1, &state_1.deaths, sizeof(integer));
   do_uio(1, &state_1.rwscor, sizeof(integer));
   do_uio(1, &state_1.egscor, sizeof(integer));
   do_uio(1, &state_1.mxload, sizeof(integer));
   do_uio(1, &state_1.ltshft, sizeof(integer));
   do_uio(1, &state_1.bloc, sizeof(integer));
   do_uio(1, &state_1.mungrm, sizeof(integer));
   do_uio(1, &state_1.hs, sizeof(integer));
   do_uio(1, &screen_1.fromdr, sizeof(integer));
   do_uio(1, &screen_1.scolrm, sizeof(integer));
   do_uio(1, &screen_1.scolac, sizeof(integer));

   do_uio(220, &objcts_1.odesc1[0], sizeof(integer));
   do_uio(220, &objcts_1.odesc2[0], sizeof(integer));
   do_uio(220, &objcts_1.oflag1[0], sizeof(integer));
   do_uio(220, &objcts_1.oflag2[0], sizeof(integer));
   do_uio(220, &objcts_1.ofval[0], sizeof(integer));
   do_uio(220, &objcts_1.otval[0], sizeof(integer));
   do_uio(220, &objcts_1.osize[0], sizeof(integer));
   do_uio(220, &objcts_1.ocapac[0], sizeof(integer));
   do_uio(220, &objcts_1.oroom[0], sizeof(integer));
   do_uio(220, &objcts_1.oadv[0], sizeof(integer));
   do_uio(220, &objcts_1.ocan[0], sizeof(integer));

   do_uio(200, &rooms_1.rval[0], sizeof(integer));
   do_uio(200, &rooms_1.rflag[0], sizeof(integer));

   do_uio(4, &advs_1.aroom[0], sizeof(integer));
   do_uio(4, &advs_1.ascore[0], sizeof(integer));
   do_uio(4, &advs_1.avehic[0], sizeof(integer));
   do_uio(4, &advs_1.astren[0], sizeof(integer));
   do_uio(4, &advs_1.aflag[0], sizeof(integer));

   do_uio(46, &flags[0], sizeof(logical));
   do_uio(22, &switch_[0], sizeof(integer));
   do_uio(4, &vill_1.vprob[0], sizeof(integer));
   do_uio(25, &cevent_1.cflag[0], sizeof(logical));
   do_uio(25, &cevent_1.ctick[0], sizeof(integer));

#undef do_uio

   if (fclose(e) == EOF)
      goto L100;

   rspeak_(597);
   return;

L100:
   rspeak_(598);
   /* 						!CANT DO IT. */
} /* savegm_ */

/* RESTORE- RESTORE GAME STATE */

/* DECLARATIONS */

void rstrgm_()
{
   /* Local variables */
   integer i, j, k;
   FILE *e;

   prsvec_1.prswon = FALSE_;
   /* 						!DISABLE GAME. */
   /* Note: save file format is different for PDP vs. non-PDP versions */

   if ((e = fopen("dsave.dat", BINREAD)) == NULL)
      goto L100;

#define do_uio(i, zbuf, cbytes) \
   (void)fread((char *)(zbuf), (cbytes), (i), e)

   do_uio(1, &i, sizeof(integer));
   do_uio(1, &j, sizeof(integer));
   do_uio(1, &k, sizeof(integer));

   if (i != vers_1.vmaj | j != vers_1.vmin) {
      goto L200;
   }

   do_uio(1, &play_1.winner, sizeof(integer));
   do_uio(1, &play_1.here, sizeof(integer));
   do_uio(1, &hack_1.thfpos, sizeof(integer));
   do_uio(1, &play_1.telflg, sizeof(logical));
   do_uio(1, &hack_1.thfflg, sizeof(logical));
   do_uio(1, &hack_1.thfact, sizeof(logical));
   do_uio(1, &hack_1.swdact, sizeof(logical));
   do_uio(1, &hack_1.swdsta, sizeof(integer));
   do_uio(64, &puzzle_1.cpvec[0], sizeof(integer));

   do_uio(1, &time_1.pltime, sizeof(integer));
   do_uio(1, &state_1.moves, sizeof(integer));
   do_uio(1, &state_1.deaths, sizeof(integer));
   do_uio(1, &state_1.rwscor, sizeof(integer));
   do_uio(1, &state_1.egscor, sizeof(integer));
   do_uio(1, &state_1.mxload, sizeof(integer));
   do_uio(1, &state_1.ltshft, sizeof(integer));
   do_uio(1, &state_1.bloc, sizeof(integer));
   do_uio(1, &state_1.mungrm, sizeof(integer));
   do_uio(1, &state_1.hs, sizeof(integer));
   do_uio(1, &screen_1.fromdr, sizeof(integer));
   do_uio(1, &screen_1.scolrm, sizeof(integer));
   do_uio(1, &screen_1.scolac, sizeof(integer));

   do_uio(220, &objcts_1.odesc1[0], sizeof(integer));
   do_uio(220, &objcts_1.odesc2[0], sizeof(integer));
   do_uio(220, &objcts_1.oflag1[0], sizeof(integer));
   do_uio(220, &objcts_1.oflag2[0], sizeof(integer));
   do_uio(220, &objcts_1.ofval[0], sizeof(integer));
   do_uio(220, &objcts_1.otval[0], sizeof(integer));
   do_uio(220, &objcts_1.osize[0], sizeof(integer));
   do_uio(220, &objcts_1.ocapac[0], sizeof(integer));
   do_uio(220, &objcts_1.oroom[0], sizeof(integer));
   do_uio(220, &objcts_1.oadv[0], sizeof(integer));
   do_uio(220, &objcts_1.ocan[0], sizeof(integer));

   do_uio(200, &rooms_1.rval[0], sizeof(integer));
   do_uio(200, &rooms_1.rflag[0], sizeof(integer));

   do_uio(4, &advs_1.aroom[0], sizeof(integer));
   do_uio(4, &advs_1.ascore[0], sizeof(integer));
   do_uio(4, &advs_1.avehic[0], sizeof(integer));
   do_uio(4, &advs_1.astren[0], sizeof(integer));
   do_uio(4, &advs_1.aflag[0], sizeof(integer));

   do_uio(46, &flags[0], sizeof(logical));
   do_uio(22, &switch_[0], sizeof(integer));
   do_uio(4, &vill_1.vprob[0], sizeof(integer));
   do_uio(25, &cevent_1.cflag[0], sizeof(logical));
   do_uio(25, &cevent_1.ctick[0], sizeof(integer));

   (void)fclose(e);

   rspeak_(599);
   return;

L100:
   rspeak_(598);
   /* 						!CANT DO IT. */
   return;

L200:
   rspeak_(600);
   /* 						!OBSOLETE VERSION */
   (void)fclose(e);
} /* rstrgm_ */

/* WALK- MOVE IN SPECIFIED DIRECTION */

/* DECLARATIONS */

logical walk_()
{
   /* System generated locals */
   logical ret_val;

   ret_val = TRUE_;
   /* 						!ASSUME WINS. */
   if (play_1.winner != aindex_1.player || lit_(play_1.here) || prob_(25,
            25)) {
      goto L500;
   }
   if (! findxt_(prsvec_1.prso, play_1.here)) {
      goto L450;
   }
   /* 						!INVALID EXIT? GRUE */
   /* 						! */
   switch (curxt_1.xtype) {
   case 1:  goto L400;
   case 2:  goto L200;
   case 3:  goto L100;
   case 4:  goto L300;
   }
   /* 						!DECODE EXIT TYPE. */
   bug_(9, curxt_1.xtype);

L100:
   if (cxappl_(curxt_1.xactio) != 0) {
      goto L400;
   }
   /* 						!CEXIT... RETURNED ROOM? */
   if (flags[*xflag - 1]) {
      goto L400;
   }
   /* 						!NO, FLAG ON? */
L200:
   jigsup_(523);
   /* 						!BAD EXIT, GRUE */
   /* 						! */
   return ret_val;

L300:
   if (cxappl_(curxt_1.xactio) != 0) {
      goto L400;
   }
   /* 						!DOOR... RETURNED ROOM? */
   if ((objcts_1.oflag2[curxt_1.xobj - 1] & OPENBT) != 0) {
      goto L400;
   }
   /* 						!NO, DOOR OPEN? */
   jigsup_(523);
   /* 						!BAD EXIT, GRUE */
   /* 						! */
   return ret_val;

L400:
   if (lit_(curxt_1.xroom1)) {
      goto L900;
   }
   /* 						!VALID ROOM, IS IT LIT? */
L450:
   jigsup_(522);
   /* 						!NO, GRUE */
   /* 						! */
   return ret_val;

   /* ROOM IS LIT, OR WINNER IS NOT PLAYER (NO GRUE). */

L500:
   if (findxt_(prsvec_1.prso, play_1.here)) {
      goto L550;
   }
   /* 						!EXIT EXIST? */
L525:
   curxt_1.xstrng = 678;
   /* 						!ASSUME WALL. */
   if (prsvec_1.prso == xsrch_1.xup) {
      curxt_1.xstrng = 679;
   }
   /* 						!IF UP, CANT. */
   if (prsvec_1.prso == xsrch_1.xdown) {
      curxt_1.xstrng = 680;
   }
   /* 						!IF DOWN, CANT. */
   if ((rooms_1.rflag[play_1.here - 1] & RNWALL) != 0) {
      curxt_1.xstrng = 524;
   }
   rspeak_(curxt_1.xstrng);
   prsvec_1.prscon = 1;
   /* 						!STOP CMD STREAM. */
   return ret_val;

L550:
   switch (curxt_1.xtype) {
   case 1:  goto L900;
   case 2:  goto L600;
   case 3:  goto L700;
   case 4:  goto L800;
   }
   /* 						!BRANCH ON EXIT TYPE. */
   bug_(9, curxt_1.xtype);

L700:
   if (cxappl_(curxt_1.xactio) != 0) {
      goto L900;
   }
   /* 						!CEXIT... RETURNED ROOM? */
   if (flags[*xflag - 1]) {
      goto L900;
   }
   /* 						!NO, FLAG ON? */
L600:
   if (curxt_1.xstrng == 0) {
      goto L525;
   }
   /* 						!IF NO REASON, USE STD. */
   rspeak_(curxt_1.xstrng);
   /* 						!DENY EXIT. */
   prsvec_1.prscon = 1;
   /* 						!STOP CMD STREAM. */
   return ret_val;

L800:
   if (cxappl_(curxt_1.xactio) != 0) {
      goto L900;
   }
   /* 						!DOOR... RETURNED ROOM? */
   if ((objcts_1.oflag2[curxt_1.xobj - 1] & OPENBT) != 0) {
      goto L900;
   }
   /* 						!NO, DOOR OPEN? */
   if (curxt_1.xstrng == 0) {
      curxt_1.xstrng = 525;
   }
   /* 						!IF NO REASON, USE STD. */
   rspsub_(curxt_1.xstrng, objcts_1.odesc2[curxt_1.xobj - 1]);
   prsvec_1.prscon = 1;
   /* 						!STOP CMD STREAM. */
   return ret_val;

L900:
   ret_val = moveto_(curxt_1.xroom1, play_1.winner);
   /* 						!MOVE TO ROOM. */
   if (ret_val) {
      ret_val = rmdesc_(0);
   }
   /* 						!DESCRIBE ROOM. */
   return ret_val;
} /* walk_ */

/* CXAPPL- CONDITIONAL EXIT PROCESSORS */

/* DECLARATIONS */

static integer cxappl_(ri)
integer ri;
{
   /* System generated locals */
   integer ret_val, i__1;

   /* Local variables */
   integer i, j, k;
   integer nxt;
   integer ldir;

   ret_val = 0;
   /* 						!NO RETURN. */
   if (ri == 0) {
      return ret_val;
   }
   /* 						!IF NO ACTION, DONE. */
   switch (ri) {
   case 1:  goto L1000;
   case 2:  goto L2000;
   case 3:  goto L3000;
   case 4:  goto L4000;
   case 5:  goto L5000;
   case 6:  goto L6000;
   case 7:  goto L7000;
   case 8:  goto L8000;
   case 9:  goto L9000;
   case 10:  goto L10000;
   case 11:  goto L11000;
   case 12:  goto L12000;
   case 13:  goto L13000;
   case 14:  goto L14000;
   }
   bug_(5, ri);

   /* C1- COFFIN-CURE */

L1000:
   findex_1.egyptf = objcts_1.oadv[oindex_1.coffi - 1] != play_1.winner;
   /* 						!T IF NO COFFIN. */
   return ret_val;

   /* C2- CAROUSEL EXIT */
   /* C5- CAROUSEL OUT */

L2000:
   if (findex_1.caroff) {
      return ret_val;
   }
   /* 						!IF FLIPPED, NOTHING. */
L2500:
   rspeak_(121);
   /* 						!SPIN THE COMPASS. */
L5000:
   i = xpars_1.xelnt[xpars_1.xcond - 1] * rnd_(8);
   /* 						!CHOOSE RANDOM EXIT. */
   curxt_1.xroom1 = exits_1.travel[rooms_1.rexit[play_1.here - 1] + i - 1] & 
      xpars_1.xrmask;
   ret_val = curxt_1.xroom1;
   /* 						!RETURN EXIT. */
   return ret_val;

   /* C3- CHIMNEY FUNCTION */

L3000:
   findex_1.litldf = FALSE_;
   /* 						!ASSUME HEAVY LOAD. */
   j = 0;
   i__1 = objcts_1.olnt;
   for (i = 1; i <= i__1; ++i) {
      /* 						!COUNT OBJECTS. */
      if (objcts_1.oadv[i - 1] == play_1.winner) {
         ++j;
      }
      /* L3100: */
   }

   if (j > 2) {
      return ret_val;
   }
   /* 						!CARRYING TOO MUCH? */
   curxt_1.xstrng = 446;
   /* 						!ASSUME NO LAMP. */
   if (objcts_1.oadv[oindex_1.lamp - 1] != play_1.winner) {
      return ret_val;
   }
   /* 						!NO LAMP? */
   findex_1.litldf = TRUE_;
   /* 						!HE CAN DO IT. */
   if ((objcts_1.oflag2[oindex_1.door - 1] & OPENBT) == 0) {
      objcts_1.oflag2[oindex_1.door - 1] &= ~ TCHBT;
   }
   return ret_val;

   /* C4-	FROBOZZ FLAG (MAGNET ROOM, FAKE EXIT) */
   /* C6-	FROBOZZ FLAG (MAGNET ROOM, REAL EXIT) */

L4000:
   if (findex_1.caroff) {
      goto L2500;
   }
   /* 						!IF FLIPPED, GO SPIN. */
   findex_1.frobzf = FALSE_;
   /* 						!OTHERWISE, NOT AN EXIT. */
   return ret_val;

L6000:
   if (findex_1.caroff) {
      goto L2500;
   }
   /* 						!IF FLIPPED, GO SPIN. */
   findex_1.frobzf = TRUE_;
   /* 						!OTHERWISE, AN EXIT. */
   return ret_val;

   /* C7-	FROBOZZ FLAG (BANK ALARM) */

L7000:
   findex_1.frobzf = objcts_1.oroom[oindex_1.bills - 1] != 0 & 
      objcts_1.oroom[oindex_1.portr - 1] != 0;
   return ret_val;
   /* CXAPPL, PAGE 3 */

   /* C8-	FROBOZZ FLAG (MRGO) */

L8000:
   findex_1.frobzf = FALSE_;
   /* 						!ASSUME CANT MOVE. */
   if (findex_1.mloc != curxt_1.xroom1) {
      goto L8100;
   }
   /* 						!MIRROR IN WAY? */
   if (prsvec_1.prso == xsrch_1.xnorth || prsvec_1.prso == xsrch_1.xsouth) {
      goto L8200;
   }
   if (findex_1.mdir % 180 != 0) {
      goto L8300;
   }
   /* 						!MIRROR MUST BE N-S. */
   curxt_1.xroom1 = (curxt_1.xroom1 - rindex_1.mra << 1) + rindex_1.mrae;
   /* 						!CALC EAST ROOM. */
   if (prsvec_1.prso > xsrch_1.xsouth) {
      ++curxt_1.xroom1;
   }
   /* 						!IF SW/NW, CALC WEST. */
L8100:
   ret_val = curxt_1.xroom1;
   return ret_val;

L8200:
   curxt_1.xstrng = 814;
   /* 						!ASSUME STRUC BLOCKS. */
   if (findex_1.mdir % 180 == 0) {
      return ret_val;
   }
   /* 						!IF MIRROR N-S, DONE. */
L8300:
   ldir = findex_1.mdir;
   /* 						!SEE WHICH MIRROR. */
   if (prsvec_1.prso == xsrch_1.xsouth) {
      ldir = 180;
   }
   curxt_1.xstrng = 815;
   /* 						!MIRROR BLOCKS. */
   if (ldir > 180 && ! findex_1.mr1f || ldir < 180 && ! findex_1.mr2f) {
      curxt_1.xstrng = 816;
   }
   return ret_val;

   /* C9-	FROBOZZ FLAG (MIRIN) */

L9000:
   if (mrhere_(play_1.here) != 1) {
      goto L9100;
   }
   /* 						!MIRROR 1 HERE? */
   if (findex_1.mr1f) {
      curxt_1.xstrng = 805;
   }
   /* 						!SEE IF BROKEN. */
   findex_1.frobzf = findex_1.mropnf;
   /* 						!ENTER IF OPEN. */
   return ret_val;

L9100:
   findex_1.frobzf = FALSE_;
   /* 						!NOT HERE, */
   curxt_1.xstrng = 817;
   /* 						!LOSE. */
   return ret_val;
   /* CXAPPL, PAGE 4 */

   /* C10-	FROBOZZ FLAG (MIRROR EXIT) */

L10000:
   findex_1.frobzf = FALSE_;
   /* 						!ASSUME CANT. */
   ldir = (prsvec_1.prso - xsrch_1.xnorth) / xsrch_1.xnorth * 45;
   /* 						!XLATE DIR TO DEGREES. */
   if (! findex_1.mropnf || (findex_1.mdir + 270) % 360 != ldir && 
         prsvec_1.prso != xsrch_1.xexit) {
      goto L10200;
   }
   curxt_1.xroom1 = (findex_1.mloc - rindex_1.mra << 1) + rindex_1.mrae + 1 
      - findex_1.mdir / 180;
   /* 						!ASSUME E-W EXIT. */
   if (findex_1.mdir % 180 == 0) {
      goto L10100;
   }
   /* 						!IF N-S, OK. */
   curxt_1.xroom1 = findex_1.mloc + 1;
   /* 						!ASSUME N EXIT. */
   if (findex_1.mdir > 180) {
      curxt_1.xroom1 = findex_1.mloc - 1;
   }
   /* 						!IF SOUTH. */
L10100:
   ret_val = curxt_1.xroom1;
   return ret_val;

L10200:
   if (! findex_1.wdopnf || (findex_1.mdir + 180) % 360 != ldir && 
         prsvec_1.prso != xsrch_1.xexit) {
      return ret_val;
   }
   curxt_1.xroom1 = findex_1.mloc + 1;
   /* 						!ASSUME N. */
   if (findex_1.mdir == 0) {
      curxt_1.xroom1 = findex_1.mloc - 1;
   }
   /* 						!IF S. */
   rspeak_(818);
   /* 						!CLOSE DOOR. */
   findex_1.wdopnf = FALSE_;
   ret_val = curxt_1.xroom1;
   return ret_val;

   /* C11-	MAYBE DOOR.  NORMAL MESSAGE IS THAT DOOR IS CLOSED. */
   /* 	BUT IF LCELL.NE.4, DOOR ISNT THERE. */

L11000:
   if (findex_1.lcell != 4) {
      curxt_1.xstrng = 678;
   }
   /* 						!SET UP MSG. */
   return ret_val;

   /* C12-	FROBZF (PUZZLE ROOM MAIN ENTRANCE) */

L12000:
   findex_1.frobzf = TRUE_;
   /* 						!ALWAYS ENTER. */
   findex_1.cphere = 10;
   /* 						!SET SUBSTATE. */
   return ret_val;

   /* C13-	CPOUTF (PUZZLE ROOM SIZE ENTRANCE) */

L13000:
   findex_1.cphere = 52;
   /* 						!SET SUBSTATE. */
   return ret_val;
   /* CXAPPL, PAGE 5 */

   /* C14-	FROBZF (PUZZLE ROOM TRANSITIONS) */

L14000:
   findex_1.frobzf = FALSE_;
   /* 						!ASSSUME LOSE. */
   if (prsvec_1.prso != xsrch_1.xup) {
      goto L14100;
   }
   /* 						!UP? */
   if (findex_1.cphere != 10) {
      return ret_val;
   }
   /* 						!AT EXIT? */
   curxt_1.xstrng = 881;
   /* 						!ASSUME NO LADDER. */
   if (puzzle_1.cpvec[findex_1.cphere] != -2) {
      return ret_val;
   }
   /* 						!LADDER HERE? */
   rspeak_(882);
   /* 						!YOU WIN. */
   findex_1.frobzf = TRUE_;
   /* 						!LET HIM OUT. */
   return ret_val;

L14100:
   if (findex_1.cphere != 52 || prsvec_1.prso != xsrch_1.xwest || ! 
         findex_1.cpoutf) {
      goto L14200;
   }
   findex_1.frobzf = TRUE_;
   /* 						!YES, LET HIM OUT. */
   return ret_val;

L14200:
   for (i = 1; i <= 16; i += 2) {
      /* 						!LOCATE EXIT. */
      if (prsvec_1.prso == puzzle_1.cpdr[i - 1]) {
         goto L14400;
      }
      /* L14300: */
   }
   return ret_val;
   /* 						!NO SUCH EXIT. */

L14400:
   j = puzzle_1.cpdr[i];
   /* 						!GET DIRECTIONAL OFFSET. */
   nxt = findex_1.cphere + j;
   /* 						!GET NEXT STATE. */
   k = 8;
   /* 						!GET ORTHOGONAL DIR. */
   if (j < 0) {
      k = -8;
   }
   if ((abs(j) == 1 || abs(j) == 8 || (puzzle_1.cpvec[findex_1.cphere + k - 
               1] == 0 || puzzle_1.cpvec[nxt - k - 1] == 0)) && puzzle_1.cpvec[
         nxt - 1] == 0) {
      goto L14500;
   }
   return ret_val;

L14500:
   cpgoto_(nxt);
   /* 						!MOVE TO STATE. */
   curxt_1.xroom1 = rindex_1.cpuzz;
   /* 						!STAY IN ROOM. */
   ret_val = curxt_1.xroom1;
   return ret_val;

} /* cxappl_ */