sw/adventure/work/SAVEGM.FT

   1 C  SAVE/RESTORE PROCESSOR
   2 C
   3 C WRITTEN BY    BOB SUPNIK
   4 C               DISK ENGINEERING
   5 C               25-AUG-78
   6 C
   7 C  CURRENT LIMITS:
   8 C       750 TRAVEL OPTIONS (TRAVEL, TRVSIZ).
   9 C       300 VOCABULARY WORDS (KTAB, ATAB, TABSIZ).
  10 C       150 LOCATIONS (LTEXT, STEXT, KEY, COND, ABB, ATLOC, LOCSIZ).
  11 C       100 OBJECTS (PLAC, PLACE, FIXD, FIXED, LINK (TWICE), PTEXT, PROP).
  12 C        35 "ACTION" VERBS (ACTSPK, VRBSIZ).
  13 C       205 RANDOM MESSAGES (RTEXT, RTXSIZ).
  14 C        12 DIFFERENT PLAYER CLASSIFICATIONS (CTEXT, CVAL, CLSMAX).
  15 C        20 HINTS, LESS 3 (HINTLC, HINTED, HINTS, HNTSIZ).
  16 C  THERE ARE ALSO LIMITS WHICH CANNOT BE EXCEEDED DUE TO THE STRUCTURE OF
  17 C  THE DATABASE.  (E.G., THE VOCABULARY USES N/1000 TO DETERMINE WORD TYPE,
  18 C  SO THERE CAN'T BE MORE THAN 1000 WORDS.)  THESE UPPER LIMITS ARE:
  19 C       1000 NON-SYNONYMOUS VOCABULARY WORDS
  20 C       300 LOCATIONS
  21 C       100 OBJECTS
  22 C
  23         SUBROUTINE SAVEGM(F1,F2)
  24         LOGICAL F1
  25         INTEGER F2
  26 C       IMPLICIT INTEGER (A-Z)
  27         LOGICAL LMWARN,CLOSNG,PANIC,HINTED,
  28      1          CLOSED,GAVEUP,SCORNG,DSEEN
  29 C
  30         COMMON /VERSN/ VMAJ, VMIN, VEDIT
  31         INTEGER VMAJ, VMIN, VEDIT
  32         COMMON /FILES/ INDXNM, TEXTNM, SAVENM
  33         INTEGER INDXNM(3), TEXTNM(3), SAVENM(3)
  34         COMMON /TXTCOM/ RTEXT,LINES,ASCVAR,TXTLOC,DATA
  35         COMMON /VOCCOM/ KTAB,ATAB,TABSIZ
  36         COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
  37         COMMON /PTXCOM/ PTEXT
  38         COMMON /ABBCOM/ ABB
  39         COMMON /MISCOM/ LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,TK,NEWLOC,
  40      1  KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
  41      2  HINTLC,CHLOC,CHLOC2,DSEEN,DFLAG,DLOC,DALTLC,KEYS,LAMP,GRATE
  42         COMMON /MISCOM/
  43      3  CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,TABLET,
  44      4  CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,OIL,PLANT,
  45      5  PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,BEAR,MESSAG,VEND,
  46      6  BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,VASE,EMRALD,PYRAM
  47         COMMON /MISCOM/
  48      7  PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY,LOCK,
  49      8  THROW,FIND,INVENT,TURNS,LMWARN,KNFLOC,DETAIL,ABBNUM,
  50      9  NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2,
  51      1  CLOSNG,PANIC,CLOSED,GAVEUP,SCORNG,ODLOC,STREAM,SPICES
  52         COMMON /MISC2/ I,RTXSIZ,CLSMAX,LOCSIZ,CTEXT,STEXT,LTEXT,
  53      1  SECT,TRAVEL,TRVCON,TRVLOC,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,
  54      2  MAXTRS,HINTED,HNTLOC,KK
  55         COMMON/MISC3/ATTACK,DTOTAL,OLDLC2,LIMIT,MXSCOR,SCORE,
  56      1  STICK,WZDARK
  57 C
  58         INTEGER LINES(12),DATA(78)
  59 C       The TRAVEL, TRVCON, and TRVLOC arrays are
  60 C       Packed with words 0,1,2 holding the data. Saves lots
  61 C       of wasted space at the expense of some complexity.
  62         INTEGER TRAVEL(250), TRVCON(250), TRVLOC(250), TRVSIZ
  63         INTEGER KTAB(300),ATAB(300),TABSIZ
  64         INTEGER LTEXT(150),STEXT(150),KEY(150),COND(150),ABB(150),
  65      1  ATLOC(150)
  66         INTEGER PLAC(100),PLACE(100),FIXD(100),FIXED(100),LINK(200),
  67      1  PTEXT(100),PROP(100),HOLDNG
  68         INTEGER ACTSPK(35)
  69         INTEGER RTEXT(205)
  70         INTEGER CTEXT(12),CVAL(12)
  71         INTEGER HINTLC(20),HINTS(20,4)
  72         DIMENSION HINTED(20)
  73         INTEGER TK(20),DLOC(6),ODLOC(6)
  74         DIMENSION DSEEN(6)
  75         INTEGER ASCVAR, TXTLOC, TRVS, CLSSES, OLDLOC
  76         INTEGER HNTSIZ, HNTMAX, TALLY, TALLY2, CHLOC, CHLOC2, DFLAG
  77         INTEGER DALTLC,GRATE,CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE
  78         INTEGER FISSUR,TABLET,CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE
  79         INTEGER WATER,OIL,PLANT,PLANT2,AXE,MIRROR,DRAGON,CHASM,EMRALD
  80         INTEGER BEAR,MESSAG,VEND,BATTER,COINS,CHEST,EGGS,TRIDNT,VASE
  81         INTEGER PYRAM,PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN
  82         INTEGER SAY,LOCK,THROW,FIND,INVENT,TURNS,KNFLOC,DETAIL,ABBNUM
  83         INTEGER NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2
  84         INTEGER TROLL,TROLL2,STREAM,SPICES
  85         INTEGER RTXSIZ,CLSMAX,LOCSIZ,SECT,TABNDX,OBJ
  86         INTEGER VERB,HNTLOC,KK
  87         INTEGER ATTACK,DTOTAL,OLDLC2,LIMIT,MXSCOR,SCORE,STICK,WZDARK
  88 C
  89         IF (F1) GOTO 10
  90 C
  91 C       Normal setup, open AINDX.DA for output
  92 C
  93         CALL USR(7,INDXNM,3,IERR)
  94         IF (IERR .EQ. 0) GO TO 20
  95         CALL SIXOUT('C]AN''T OPEN ',6,2)
  96         CALL SIXOUT(INDXNM, 9, 3)
  97         CALL SIXOUT(' ]FOR OUTPUT',6,1)
  98         F2 = -1
  99         RETURN
 100 C
 101 C       Saving game
 102 C
 103 10      CALL USR(7,SAVENM,3,IERR)
 104         IF (IERR.EQ.0) GOTO 20
 105         CALL SIXOUT('C]AN''T OPEN ',6,2)
 106         CALL SIXOUT(SAVENM,9,3)
 107         CALL SIXOUT(' ]FOR OUTPUT',6,1)
 108         F2 = -1
 109         RETURN
 110 C
 111 20      WRITE(7) VMAJ,VMIN,VEDIT
 112         WRITE(7) RTEXT,KTAB,ATAB
 113         WRITE(7) ATLOC,LINK,PLACE,FIXED,HOLDNG
 114         WRITE(7) PTEXT,ABB,LINUSE,TRVS,CLSSES
 115         WRITE(7) OLDLOC,LOC,CVAL,NEWLOC,KEY
 116         WRITE(7) PLAC,FIXD,ACTSPK,COND,HINTS
 117         WRITE(7) HNTMAX,PROP,TALLY,TALLY2,HINTLC
 118         WRITE(7) CHLOC,CHLOC2,DSEEN,DFLAG,DLOC,DALTLC
 119         WRITE(7) TURNS,LMWARN,KNFLOC,DETAIL,ABBNUM
 120         WRITE(7) NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS
 121         WRITE(7) CLOCK1,CLOCK2,CLOSNG,PANIC,CLOSED
 122         WRITE(7) GAVEUP,SCORNG,ODLOC,CTEXT,STEXT,LTEXT
 123         WRITE(7) TRAVEL,TRVCON,TRVLOC,MAXTRS,HINTED,HNTLOC
 124         WRITE(7) ATTACK,DTOTAL,OLDLC2,LIMIT,MXSCOR,SCORE,STICK,WZDARK
 125 C
 126         IF(F1) CALL SIXOUT('S]AVED.',3, 0)
 127 C
 128 C Close the output file
 129 C
 130         IF(F1) CALL USR(7,SAVENM, 4, IERR)
 131         IF(.NOT.F1) CALL USR(7, INDXNM, 4, IERR)
 132         F2=0
 133         RETURN
 134         END
 135 \f