home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / head1.h < prev    next >
Text File  |  1990-11-13  |  3KB  |  78 lines
  1. C ADVENTURES
  2. C
  3. C MODIFIED BY KENT BLACKETT
  4. C             ENGINEERING SYSTEMS GROUP
  5. C             DIGITAL EQUIPMENT CORP.
  6. C             15-JUL-77
  7. C ORIGINAL VERSION WAS FOR DECSYSTEM-10
  8. C THIS VERSION IS FOR FORTRAN IV-PLUS UNDER
  9. C THE IAS OPERATING SYSTEM ON THE PDP-11/70
  10. C NOTE THAT IT MUST BE COMPILED WITH THE
  11. C /WF:3/I4 SWITCHES...
  12. C
  13. C
  14. C  CURRENT LIMITS
  15. C       750 TRAVEL OPTIONS (TRAVEL, TRVSIZ).
  16. C       300 VOCABULARY WORDS (KTAB, ATAB, TABSIZ).
  17. C       150 LOCATIONS (LTEXT, STEXT, KEY, COND, ABB, ATLOC, LOCSIZ)
  18. C       100 OBJECTS (PLAC, PLACE, FIXD, FIXED, LINK (TWICE), PTEXT, PROP).
  19. C        35 "ACTION" VERBS (ACTSPK, VRBSIZ).
  20. C       205 RANDOM MESSAGES (RTEXT, TRXSIZ).
  21. C        12 DIFFERENT PLAYER CLASSIFICATIONS (CTEXT, CVAL, CLSMAX).
  22. C        20 HINTS, LESS 3 (HINTLC, HINTED, HINTS, HNTSIZ).
  23. C        35 MAGIC MESSAGES (MTEXT, MAGSIZ).
  24. C  THERE ARE ALSO LIMITS WHICH CANNOT BE EXCEEDED DUE TO THE STRUCTURE OF
  25. C  THE DATABASE.  (E.G., THE VOCABULARY USES N/1000 TO DETERMINE WORD TYPE,
  26. C  SO THERE CAN'T BE MORE THAN 1000 WORDS.)  THESE UPPER LIMITS ARE:
  27. C       1000 NON-SYNONYMOUS VOCABULARY WORDS
  28. C        300 LOCATIONS
  29. C        100 OBJECTS
  30. C
  31.       IMPLICIT INTEGER*4 (A-Z)
  32. C     INTEGER*2 KTAB,LTEXT,STEXT,KEY,COND,ABB,ATLOC,PLAC,
  33. C    1PLACE,FIXD,FIXED,LINK,PTEXT,PROP,ACTSPK,RTEXT,CTEXT,CVAL,
  34. C    2HINTLC,HINTS,MTEXT,TK,DLOC,ODLOC,ASCVAR
  35.       LOGICAL DSEEN,BLKLIN,HINTED,YES,START
  36.       LOGICAL TOTING,HERE,AT,BITSET,DARK,WZDARK,LMWARN,CLOSNG,PANIC,
  37.      1        CLOSED,GAVEUP,SCORNG,DEMO,YEA,WIZ
  38.      
  39.       COMMON /TXTCOM/ RTEXT,LINES,ASCVAR
  40.       COMMON /BLKCOM/ BLKLIN
  41.       COMMON /VOCCOM/ KTAB,ATAB,TABSIZ
  42.       COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
  43.       COMMON /MTXCOM/ MTEXT
  44.       COMMON /PTXCOM/ PTEXT
  45.       COMMON /ABBCOM/ ABB
  46.       COMMON /WIZCOM/ WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,
  47.      1        SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP,WIZ
  48.       COMMON /MISCOM/ LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,TK,NEWLOC,
  49.      1        KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
  50.      2        HINTLC,CHLOC,CHLOC2,DSEEN,DFLAG,DLOC,DALTLC,KEYS,LAMP,
  51.      3        GRATE,CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,
  52.      4        TABLET,CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,
  53.      5        OIL,PLANT,PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,
  54.      6        BEAR,MESSAG,VEND,BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,
  55.      7        VASE,EMRALD,PYRAM,PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,
  56.      8        ENTRNC,DPRSSN,SAY,LOCK,THROW,FIND,INVENT,TURNS,LMWARN,
  57.      9        IWEST,KNFLOC,DETAIL,ABBNUM,NUMDIE,MAXDIE,DKILL,FOOBAR,
  58.      1        BONUS,CLOCK1,CLOCK2,CLOSNG,PANIC,CLOSED,GAVEUP,SCORNG
  59.       COMMON /MISC2/ I,TRXSIZ,CLSMAX,MAGSIZ,LOCSIZ,CTEXT,STEXT,LTEXT,
  60.      1        SECT,TRAVEL,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,MAXTRS,
  61.      2        HINTED,HNTLOC,KK
  62.      
  63.       DIMENSION LINES(18)
  64.       DIMENSION TRAVEL(750)
  65.       DIMENSION KTAB(300),ATAB(300)
  66.       DIMENSION LTEXT(150),STEXT(150),KEY(150),COND(150),ABB(150),
  67.      1          ATLOC(150)
  68.       DIMENSION PLAC(100),PLACE(100),FIXD(100),FIXED(100),LINK(200),
  69.      1          PTEXT(100),PROP(100)
  70.       DIMENSION ACTSPK(35)
  71.       DIMENSION RTEXT(205)
  72.       DIMENSION CTEXT(12),CVAL(12)
  73.       DIMENSION HINTLC(20),HINTED(20),HINTS(20,4)
  74.       DIMENSION MTEXT(35)
  75.       DIMENSION TK(20),DSEEN(6),DLOC(6),ODLOC(6),HNAME(4)
  76.       
  77.  
  78.