home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / advman.for < prev    next >
Text File  |  1990-11-13  |  2KB  |  71 lines
  1. C  ADVENTURE MAIN PROGRAM
  2.       SUBROUTINE MAINP
  3. C ADVENTURES
  4. C
  5. C MODIFIED BY KENT BLACKETT
  6. C             ENGINEERING SYSTEMS GROUP
  7. C             DIGITAL EQUIPMENT CORP.
  8. C             15-JUL-77
  9. C ORIGINAL VERSION WAS FOR DECSYSTEM-10
  10. C THIS VERSION IS FOR FORTRAN IV-PLUS UNDER
  11. C THE IAS OPERATING SYSTEM ON THE PDP-11/70
  12. C NOTE THAT IT MUST BE COMPILED WITH THE
  13. C /WF:3/I4 SWITCHES...
  14. C
  15. C
  16. C  CURRENT LIMITS
  17. C       750 TRAVEL OPTIONS (TRAVEL, TRVSIZ).
  18. C       300 VOCABULARY WORDS (KTAB, ATAB, TABSIZ).
  19. C       150 LOCATIONS (LTEXT, STEXT, KEY, COND, ABB, ATLOC, LOCSIZ)
  20. C       100 OBJECTS (PLAC, PLACE, FIXD, FIXED, LINK (TWICE), PTEXT, PROP).
  21. C        35 "ACTION" VERBS (ACTSPK, VRBSIZ).
  22. C       205 RANDOM MESSAGES (RTEXT, TRXSIZ).
  23. C        12 DIFFERENT PLAYER CLASSIFICATIONS (CTEXT, CVAL, CLSMAX).
  24. C        20 HINTS, LESS 3 (HINTLC, HINTED, HINTS, HNTSIZ).
  25. C        35 MAGIC MESSAGES (MTEXT, MAGSIZ).
  26. C  THERE ARE ALSO LIMITS WHICH CANNOT BE EXCEEDED DUE TO THE STRUCTURE OF
  27. C  THE DATABASE.  (E.G., THE VOCABULARY USES N/1000 TO DETERMINE WORD TYPE,
  28. C  SO THERE CAN'T BE MORE THAN 1000 WORDS.)  THESE UPPER LIMITS ARE:
  29. C       1000 NON-SYNONYMOUS VOCABULARY WORDS
  30. C        300 LOCATIONS
  31. C        100 OBJECTS
  32. C
  33. C  INCLUDE DEFINED COMMONS
  34.       INCLUDE 'ADVCOM.COM'
  35.       INCLUDE 'NEWCOM.COM'
  36. C
  37. C
  38.       INCLUDE 'FUNCT.H'
  39.       INCLUDE 'DATAB.H'
  40.       
  41. C  START-UP, DWARF STUFF
  42.  
  43.     1 DEMO=START(0)
  44.       CALL MOTD(.FALSE.)
  45.       I=RAN(0)
  46.       HINTED(3)=YES(65,1,0)
  47.       NEWLOC=1
  48.       LOC=NEWLOC
  49.       SETUP=3
  50.       LIMIT=330
  51.       IF(HINTED(3)) LIMIT=1000
  52.      
  53. C  CAN'T LEAVE CAVE ONCE IT'S CLOSING (EXCEPT BY MAIN OFFICE).
  54.     2 CONTINUE
  55.       CALL DWARFS(IRET)
  56. C
  57. C  NOW CALL MAIN PROCESSING
  58.       CALL SEARCH(IRET)
  59. C
  60. C  UPON RETURN, CHECK FOR EXIT OR CONTINUE
  61.       GOTO (2,25000,26000), IRET
  62. C
  63. C  EXIT REQUESTED.  THE ADVENTURE IS OVER.
  64. 25000 CONTINUE
  65.       RETURN
  66. C
  67. C  MAINTENANCE MODE REQUESTED.  CALL MAINT
  68. 26000 CALL MAINT
  69.       GOTO 2
  70.       END
  71.