home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / volume15 / dinkum2 / part06 < prev    next >
Encoding:
Internet Message Format  |  1993-01-26  |  45.8 KB
  1. Path: uunet!news.tek.com!master!saab!billr
  2. From: billr@saab.CNA.TEK.COM (Bill Randle)
  3. Newsgroups: comp.sources.games
  4. Subject: v15i041:  dinkum2 - australian text adventure game, Part06/07
  5. Message-ID: <4197@master.CNA.TEK.COM>
  6. Date: 14 Jan 93 03:26:19 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 1412
  9. Approved: billr@saab.CNA.TEK.COM
  10. Xref: uunet comp.sources.games:1540
  11.  
  12. Submitted-by: Gary Allen <gary@sun.mech.uq.oz.au>
  13. Posting-number: Volume 15, Issue 41
  14. Archive-name: dinkum2/Part06
  15. Supersedes: dinkum: Volume 15, Issue 21-26
  16. Environment: Unix, DOS
  17.  
  18.  
  19.  
  20. #! /bin/sh
  21. # This is a shell archive.  Remove anything before this line, then unpack
  22. # it by saving it into a file and typing "sh file".  To overwrite existing
  23. # files, type "sh file -c".  You can also feed this as standard input via
  24. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  25. # will see the following message at the end:
  26. #        "End of archive 6 (of 7)."
  27. # Contents:  describe.c parse.c
  28. # Wrapped by billr@saab on Wed Jan 13 19:20:19 1993
  29. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  30. if test -f 'describe.c' -a "${1}" != "-c" ; then 
  31.   echo shar: Will not clobber existing file \"'describe.c'\"
  32. else
  33. echo shar: Extracting \"'describe.c'\" \(26018 characters\)
  34. sed "s/^X//" >'describe.c' <<'END_OF_FILE'
  35. X#define DSCRB
  36. X#include "dink_sym.h"
  37. X#include "dink_glb.h"
  38. X 
  39. Xvoid describe(n)
  40. X/*********************************************************/
  41. X/*                                                       */
  42. X/*           --- Room Description and Path ---           */
  43. X/*                                                       */
  44. X/*      Program by Gary A. Allen, Jr.  6 June 1989       */
  45. X/*        (c) Copyright 1992 by Gary A. Allen, Jr.       */
  46. X/*                                                       */
  47. X/*********************************************************/
  48. Xint n ;         
  49. X{
  50. X
  51. Xstatic int old_n, dark_count, sw_hint = FALSE ;
  52. Xchar chr ;
  53. X
  54. X/* room description */
  55. Xstatic char *descript[] = {
  56. X"are in a grassy meadow that stretches out in all directions",  /* 0 */
  57. X"are on a path next to the meadow.  To the east is a road.",    /* 1 */
  58. X"are approaching a thickly wooded forest full of gum trees.",   /* 2 */
  59. X"have hiked a short distance and then climbed up onto a river dike.",
  60. X"are next to a wide murky river that looks dangerous.",         /* 4 */
  61. X"--- marker for drowing in river",                              /* 5 */
  62. X"are next to a billabong with a stream feeding into it.",       /* 6 */
  63. X"feel something slimey under the water wraping itself around your leg.",
  64. X"--- marker for the bunyip",                                    /* 8 */
  65. X"are back on top of the dike next to a great meandering river.", 
  66. X"are waist deep in the stream, the water is cool and refreshing.",
  67. X"are in a thickly wooded forest. There is a rich eucalyptus smell",
  68. X"are deeper into the gum tree forest and getting disoriented.",
  69. X"are deep in a gum tree forest and appear to be ***lost***.",   /* 13 */
  70. X"are wading in the billabong.  The water is stagnant and smelly.",
  71. X"approach an area with high grass. You can only see in a few metres.",
  72. X"are deep in the grass, which is waist high.",                  /* 16 */
  73. X"see snakes slither by in the grass.  Some are quite big.",     /* 17 */
  74. X"--- marker for the Taipan",                                    /* 18 */
  75. X"leave the grassy area and head towards the meadow.",           /* 19 */
  76. X"are on a road.  Far to the east are some deserted buildings.", /* 20 */
  77. X"are on a narrow one lane road stretching out to the horizon.", /* 21 */
  78. X"are west from the head gear of the abandoned ACME Gold Mine.", /* 22 */
  79. X"are in an orange desert with bulldust swirling about you.",    /* 23 */
  80. X"are in a desert full of high sand dunes.",                     /* 24 */
  81. X"are in between two sand dunes and can see only sand.",         /* 25 */
  82. X"are in a sandy desert with large thorny spinifexes rolling by you.",
  83. X"are west of the mine shaft lift.  The mine tower looms over head.",
  84. X"are walking away from a forest of sweet smelling gum trees. ", /* 28 */
  85. X"find yourself on a narrow potholed bitumen road with soft shoulders.",
  86. X"are southwest of the mine lift.  To the south is desert.",     /* 30 */
  87. X"are southeast of the mine lift.  To the south is desert.",     /* 31 */
  88. X"are east of the mine tower between the lift and the office.",  /* 32 */
  89. X"are east of the mine office building.  There is no door here.",
  90. X"are at the north eastern corner of the office building.",      /* 34 */
  91. X"are at the north western corner of the office building.",      /* 35 */
  92. X"are west of the ACME Gold Mine office building entrance.",     /* 36 */
  93. X"are in the entry hall.  There are doors to the north, south and west.",
  94. X"are in the Site Manager's office.  The only exit is to the south.",
  95. X"are in the western section of the Geologist's Office.",        /* 39 */
  96. X"are in the store room. The only exit is to the south.",    /* 40 */
  97. X"are in the eastern section of the Geologist's Office.",        /* 41 */
  98. X"continue walking on the narrow road which has only one lane.", /* 42 */
  99. X"are inside the mine lift.  The doorway is to the west.",
  100. X"are in a dimly lit tunnel going west.  To the east is the lift.",
  101. X"are in a poorly lit tunnel going east, west and south.",       /* 45 */
  102. X"are in a dimly lit tunnel going north.  To the east is the lift.",
  103. X"are in a pasture.  To the east is a road and west is a billabong.",
  104. X"are in a T-section going north, south or east.",               /* 48 */
  105. X"are in a T-section going north, south or west.",               /* 49 */
  106. X"are in a T-section going north, west or east.",                /* 50 */
  107. X"are in a T-section going east, west or south.",                /* 51 */
  108. X"are in a T-section going northeast, northwest, or southwest.", /* 52 */
  109. X"are in a T-section going northeast, northwest, or southeast.", /* 53 */
  110. X"are in a T-section going northeast, southeast, or southwest.",
  111. X"are in a tunnel going north and south.",                       /* 55 */
  112. X"are in a tunnel going east and west.",                         /* 56 */
  113. X"are in a tunnel going northwest and southeast.",               /* 57 */
  114. X"are in a tunnel going northeast and southwest.",               /* 58 */
  115. X"are in a tunnel that has a hole in the ground and goes east/west.",
  116. X"are in an L-section going southeast or up through a hole in the roof.",
  117. X"are in an L-section that goes south or up through a hole in the roof.",
  118. X"are in an L-section that goes east or up through a hole in the roof.",
  119. X"are in an L-section that goes west or up through a hole in the roof.",
  120. X"are in a Y-section that goes north, southeast, or southwest.", /* 64 */
  121. X"are in a Y-section that goes south, northeast, or northwest.", /* 65 */
  122. X"are in a Y-section that goes west, northeast, or southeast.",  /* 66 */
  123. X"are in a Y-section that goes east, northwest, or southwest.",  /* 67 */
  124. X"are in a Y-section that goes north, south, or southwest.",     /* 68 */
  125. X"are in a Y-section that goes south, north, or northwest.",     /* 69 */
  126. X"are in a Y-section that goes west, east, or southeast.",       /* 70 */
  127. X"are in a Y-section that goes east, west, or southwest.",       /* 71 */
  128. X"are in a Y-section that goes north, south, or southeast.",     /* 72 */
  129. X"are in a Y-section that goes south, north, or northeast.",     /* 73 */
  130. X"are in a Y-section that goes west, east, or northeast.",       /* 74 */
  131. X"are in a Y-section that goes east, west, or northwest.",       /* 75 */
  132. X"are in a Y-section that goes down a manhole, northwest, or southwest.",
  133. X"are in a Y-section that goes down a manhole, northeast, or southeast.",
  134. X"are at a tunnel crossing.  You can go north, east, south, or west.",
  135. X"are at a tunnel crossing going nw, ne, sw, and se.",           /* 79 */
  136. X"are in a tunnel corner that goes south and west.",             /* 80 */
  137. X"are in a tunnel corner that goes south and east.",             /* 81 */
  138. X"are in a tunnel corner that goes north and west.",             /* 82 */
  139. X"are in a tunnel corner that goes north and east.",             /* 83 */
  140. X"are in a tunnel corner that goes southeast and southwest.",    /* 84 */
  141. X"are in a tunnel corner that goes southeast and northeast.",    /* 85 */
  142. X"are in a tunnel corner that goes northwest and southwest.",    /* 86 */
  143. X"are in a tunnel corner that goes northwest and northeast.",    /* 87 */
  144. X"are in a tunnel going southwest with a stairway going down.",  /* 88 */
  145. X"are in a tunnel going northeast with a stairway going up.",    /* 89 */
  146. X"are at a deadend.",                                            /* 90 */
  147. X"are in the ventilation equipment room. The exit is to the west.",
  148. X"are in the worker's lunch room. The exit is to the north.",
  149. X"are at the stope face with the hydraulic jacks still in place.",
  150. X"are in an ore storage area with exits to the south and west.",
  151. X"are in a T-section going northwest, southeast, or southwest.",
  152. X"are in a tunnel going northeast/southwest, with a hole in the roof.",
  153. X"are in a corner going north and east, with a manhole going down.",
  154. X"are in a tunnel going west with a stairway going up.",         /* 98 */
  155. X"are in a tunnel going east with a stairway going down.",       /* 99 */
  156. X"can go north or climb down a man hole.",                       /*100 */
  157. X"are at a caved in section of tunnel which is now a dead end.", /*101 */
  158. X"are in a bleak and forbidding desert of bare flat stone.",     /*102 */
  159. X"are on a narrow one lane road with gum trees on either side.", /*103 */
  160. X"are in a flat and boring desert.",                /*104 */
  161. X"are in front of Ned Kelly's desert hide out.",            /*105 */
  162. X"are in a vast desert of dry salt lakes shimmering with mirages.",
  163. X"are inside Ned Kelly's hide out.  The only way out is to the west.",
  164. X"are north of a grassy area and within the bend of a great river.", 
  165. X"are south of a grassy area and on the edge of a gum tree forest.",
  166. X"can go east or climb down a man hole.",            /*110 */
  167. X"can go east, west or climb up through a hole in the roof.",    /*111 */
  168. X"are at the Level #67 Shift Foreman's office. You can go west.",
  169. X"are at the spacecraft's end.  You can go north, south and west.",
  170. X"are near the spacecraft's fin. You can go south or north-east.",
  171. X"are next to the ship's wing.  You can go south-west or south-east.",
  172. X"are beside the ship's window.  You can go north-west or south.",
  173. X"are next to the spacecraft's Mach probe.  You can north or south.",
  174. X"are facing the access hatch.  You can go up, north, or south-west.",
  175. X"are beside the landing gear.  You can go north-east or north-west.",
  176. X"are beside the wing's edge.  You can go north or south-east.",
  177. X"are in the spacecraft's airlock.  You can go down or north.",
  178. X"are in the central access way.  You can east, west, or south.",
  179. X"are on the flight deck of an ancient spacecraft.  You can go west.",
  180. X"are at a mysterious control panel.  You can east or west.",    /* 124 */
  181. X"are in the chamber with glowing hexagons. The only exit is east.",
  182. X"are in a room with a tank full of dark blue liquid.  You can go west.",
  183. X"are in a cavernous room with a huge silver gong in the middle.",
  184. X"are in a room with a warning on the wall going north, south and west.",
  185. X"are in a closet stinking of moth balls. The only exit is north.",
  186. X"are in the guard room. The closet is south, the main doorway is east.",
  187. X"are in the prayer room of the Iranian Parliament. The guard room is west.",
  188. X"are in a tunnel going east and west with a message on the wall.",
  189. X"are on a narrow country road.  There is a dead kangaroo by the road.",
  190. X"are on a road with a low rise ahead of you.  You hear a distant rumbling.",
  191. X"--- marker for getting hit by a road train.",                  /* 135 */
  192. X"are on a narrow country road.  There is a dead red kangaroo by the road."
  193. X}  ;
  194. X
  195. X#if (PROTOTYPE)
  196. Xvoid ender(int) ;
  197. Xchar getch(void) ;
  198. X#endif
  199. X
  200. X/* give the short description */
  201. Xif (((object[O_torch][J_loc] == B_have)&&object[O_torch][J_property])|| 
  202. X    (n < 186)||(n > 202)) { 
  203. X/* Deal with the possibility of a hint for the safe */
  204. X    if (n == R_office_mang) {
  205. X        if ((!sw_active)&&(object[O_rifle][J_property] != 0)&&
  206. X(Ned->Location == B_destroyed)&&(!sw_hint)) {
  207. X            sw_hint = TRUE ;
  208. Xprintf("For half of the bullets in your M-16 rifle I will\n") ;
  209. Xprintf("give you a hint on how to get into the safe.\n") ;
  210. Xprintf("             Are you interested? \n") ;
  211. X
  212. X            for (;;) {
  213. X
  214. X#ifndef __TURBOC__
  215. X                do {
  216. Xprintf("(Answer:  Yes or No) ") ; 
  217. X                } while ('\n' == (chr = getchar())) ;
  218. X
  219. X                while ('\n' != getchar()) ;
  220. X#endif
  221. X
  222. X#ifdef __TURBOC__
  223. X                printf("\n") ;
  224. X                do {
  225. Xprintf("(Answer:  Yes or No) ") ; 
  226. X                } while ('\n' == (chr = getch())) ;
  227. X                printf("\n") ;
  228. X#endif
  229. X
  230. X                if (('n' == chr)||
  231. X('N' == chr)||('y' == chr)||('Y' == chr)) {
  232. X                    if (('y' == chr)||
  233. X                        ('Y' == chr)) { 
  234. X                object[O_rifle][J_property] /= 2 ;
  235. Xprintf("\nTake the missing word in the sentence:\n") ;
  236. Xprintf("                      \"The chook **** an egg.\"\n");
  237. Xprintf("and spell it backwards.  Then look very carefully at the\n") ;
  238. Xprintf("map which you found in the manager's office.  Also, you\n") ;
  239. Xprintf("now have %d bullets in your rifle.\n",
  240. X                object[O_rifle][J_property]) ;
  241. X                    }
  242. X                break ;
  243. X                }
  244. X            }
  245. X            printf("\n") ;
  246. X        }
  247. X    }
  248. Xprintf ("You %s \n",descript[room[n][M_descp]]);
  249. X    old_n = n;
  250. X    dark_count = 0 ;
  251. X
  252. X}
  253. X
  254. X/* deal with dark rooms */
  255. Xelse {
  256. X    if (n == 186) {
  257. Xprintf("You have entered a north/south passage which does not have\n") ;
  258. Xprintf("electric lighting.  There is some light coming in from the\n");
  259. Xprintf("north, but the tunnel to the south is completely dark.\n");
  260. X        return;
  261. X    }
  262. X    if (n == 187) {
  263. Xprintf("The tunnel you are in is pitch black.  There is a little\n");
  264. Xprintf("light coming in from the north.  If you keep going you will\n");
  265. Xprintf("probably fall down a hole.\n") ;
  266. X        return ;
  267. X    }
  268. X    if ((n >= 188)&&(n <= 202)) {
  269. X        if ((dark_count==0)||(old_n == n)) {
  270. Xprintf("You are in a mine tunnel in total darkness, which is \n") ;
  271. Xprintf("extremely dangerous.  I have no clue where we are going.\n") ;
  272. Xprintf("Let's go back to where there is some light!\n") ;
  273. X            ++dark_count ;
  274. X            old_n = n;
  275. X        }
  276. X        else {
  277. Xprintf("Twit!!  You have fallen down a hole and broken your neck!\n");
  278. X        ender(F_died) ;
  279. X        }
  280. X        return ;
  281. X    }
  282. X}
  283. X} /* end of the "describe" subroutine */
  284. X 
  285. Xvoid rdtxt(k)
  286. X/*********************************************************/
  287. X/*                                                       */
  288. X/*     --- Text for the "Read"/"Describe" Command ---    */
  289. X/*                                                       */
  290. X/*       Program by Gary A. Allen, Jr.  21 February 1989 */
  291. X/*         (c) Copyright 1992 by Gary A. Allen, Jr.      */
  292. X/*                                                       */
  293. X/*********************************************************/
  294. Xint k;
  295. X{
  296. Xswitch(k) {
  297. X
  298. X/* text for the map fragment in the manager's office */
  299. Xcase O_map_frag:
  300. Xprintf("______________________________________________________ \n");
  301. Xprintf("|..................................................... \n");
  302. Xprintf("|...._______________________.......................... \n");
  303. Xprintf("|...|  Current Operational  |........................ \n");
  304. Xprintf("|...|  Levels are:          |......D--W--W--W--W--W- \n");
  305. Xprintf("|...|     0, 49, 67, 82     |......|................ \n");
  306. Xprintf("|...| Level #67 is depicted |......S................ \n");
  307. Xprintf("|...._______________________.......|................ \n");
  308. Xprintf("|..................................S............... \n");
  309. Xprintf("|..................................|............... \n");
  310. Xprintf("|......................S--W--W--D--W.............. \n");
  311. Xprintf("|......................|........|................. \n");
  312. Xprintf("|......................S........E--E--E--E--E--E- \n");
  313. Xprintf("|......................|.......................... \n");
  314. Xprintf("|.......[dead end]--W--*--E--[dead end].......... \n");
  315. Xprintf("|......................|........................ \n");
  316. Xprintf("|......................S......................");
  317. Xprintf("       The rest of the map\n");
  318. Xprintf("|......................|.....................");
  319. Xprintf("        has turned into dust.\n");
  320. Xprintf("|.........[false dead end (partition)]......\n");
  321. Xprintf("|...........^..........|................. \n");
  322. Xprintf("|.{use an explosive}...S.............. \n");
  323. Xprintf("|......................|.... \n");
  324. Xprintf("|.............. \n");
  325. X    break;
  326. X
  327. X/* Can of Fourex Beer */
  328. Xcase O_can:
  329. Xprintf("You see an aluminum beer can with a hole in the bottom. The\n");
  330. Xprintf("can is coloured yellow-orange.  Written in red letters\n");
  331. Xprintf("across the can's front is the following:\n\n") ;
  332. Xprintf("                  \"CASTLEMAINE\"\n") ;
  333. Xprintf("                      XXXX\n") ;
  334. Xprintf("                   BITTER ALE\n\n") ;
  335. Xprintf("There's a picture of Fourex's Milton brewery in the middle.\n");
  336. X    break ;
  337. X
  338. X/* Atropine pills */
  339. Xcase O_pills:
  340. Xprintf("You're holding a packet which once contained ") ;
  341. Xprintf("30 pills but now\nholds only") ;
  342. Xprintf(" %d pills.  On the back of the packet is written:\n\n",
  343. X    pill_count) ;
  344. Xprintf("                       ATROPINE PILLS\n");
  345. Xprintf("The pills in this packet will protect the user against ") ;
  346. Xprintf("poisoning\nby organo-phosphorous ") ;
  347. Xprintf("compounds, i.e. VX nerve gas.\n") ;
  348. Xprintf("    Dosage:  Take ONE pill when poisoning symptons occur.\n");
  349. Xprintf("    Warning:  Atropine is itself a poison.  An overdose can\n");
  350. Xprintf("              be lethal!\n\n") ;
  351. X    break ;
  352. X
  353. X
  354. X/* description of Qaddafi's letter bomb */
  355. Xcase O_letter:
  356. Xprintf("___________________________________________________________\n");
  357. Xprintf("|                                               +-----+   |\n");
  358. Xprintf("| Col. M. Gaddafi                               |Libya|   |\n");
  359. Xprintf("| Azizya Barracks                Postage Due    |5 zl.|   |\n");
  360. Xprintf("| Tripoli, Libya                   $1.50        | -o- |   |\n");
  361. Xprintf("|                                               +-----+   |\n");
  362. Xprintf("|                 Sam Cohen                               |\n");
  363. Xprintf("|                 Level #67 Shift Boss                    |\n");
  364. Xprintf("|                 ACME Mine Ltd.                          |\n");
  365. Xprintf("|                 Birdsville, Queensland 4482             |\n");
  366. Xprintf("|  AIR MAIL                   Australia                   |\n");
  367. Xprintf("|                                                         |\n");
  368. Xprintf("___________________________________________________________\n");
  369. Xprintf("\n\nThe envelope must be opened before the ");
  370. Xprintf("letter can be read.\n\n") ;
  371. X    break;
  372. X
  373. X/* text for the paper found in the safe */
  374. Xcase O_paper:
  375. Xprintf("                             Congratulations!!! \n");
  376. Xprintf("You got the safe open!  Now you can start scoring points for ");
  377. Xprintf("treasure.\n") ;
  378. Xprintf("Credit is awarded **only** for treasure put into the safe. ");
  379. Xprintf("Beware of fell\nbush ") ;
  380. Xprintf("rangers who steal treasure (and sometimes kill adventurers).") ;
  381. Xprintf("\n\n                        ---  Concerning Gleeps ---\n");
  382. Xprintf("Gleeps are potent adjuncts which are credited separately from");
  383. Xprintf(" treasure.  Gleeps\n") ;
  384. Xprintf("will reproduce if left undisturbed in special locations ") ;
  385. Xprintf("underground. However\n") ;
  386. Xprintf("in most locations they will remain dormant. Credit ");
  387. Xprintf("for gleeps is awarded \n") ;
  388. Xprintf("only for those placed in a \"gleep tank\". While anyone ");
  389. Xprintf("can gather treasure, the\n") ;
  390. Xprintf("ability to cultivate and collect gleeps is the mark of a ");
  391. Xprintf("fair dinkum master.\n") ;
  392. Xprintf("                               Have Fun !!\n");
  393. X    break;
  394. X
  395. X/* description of the rifle */
  396. Xcase O_rifle:
  397. Xprintf("--- You are looking at a Colt M16 infantry rifle. --- \n");
  398. Xprintf("This fully automatic weapon is supplied bullets from a \n") ;
  399. Xprintf("detachable magazine which can hold up to 200 rounds. \n") ;
  400. Xprintf("The rifle has a selector knob that can place the weapon \n") ;
  401. Xprintf("into one of four possible firing modes: \n\n") ;
  402. Xprintf("     SAFE = Rifle can't fire, even if dropped \n") ;
  403. Xprintf("     I    = Single fire mode. Shoots one bullet at a time \n");
  404. Xprintf("     III  = Triple fire mode. Shoots three bullets rapidly \n");
  405. Xprintf("            every time the trigger is pulled. \n") ;
  406. Xprintf("     AUTO = Fully automatic, firing bullets at a rate of \n") ;
  407. Xprintf("            660 rounds/min. when trigger is pulled. \n\n") ;
  408. Xif (rifle_flag == F_safety)
  409. Xprintf("The rifle is currently set in the SAFE mode. \n") ;
  410. Xif (rifle_flag == F_single)
  411. Xprintf
  412. X  ("The rifle is currently set in the \"I\" or single fire mode.\n");
  413. Xif (rifle_flag == F_triple)
  414. Xprintf("The rifle is now set in the \"III\" or triple fire mode.\n");
  415. Xif (rifle_flag == F_auto)
  416. Xprintf("The rifle is currently set in the AUTO mode. \n") ;
  417. Xif (clip_flag == F_no_clip)
  418. Xprintf("The rifle does not have an ammunition clip attached to it.\n") ;
  419. Xif (clip_flag == F_normal_clip) {
  420. X    printf("The rifle has a standard ammunition clip attached ") ;
  421. X    printf("which contains %d rounds.\n",
  422. X                object[O_rifle][J_property]) ;
  423. X}
  424. Xif (clip_flag == F_org_clip) {
  425. X    printf("The rifle has an orange ammunition clip attached ") ;
  426. X    printf("which contains %d rounds.\n",
  427. X                object[O_rifle][J_property]) ;
  428. X}
  429. X    break ;
  430. X 
  431. X/* description of the safe */
  432. Xcase O_safe:
  433. Xprintf("You see a conventional combination dial type wall safe \n");
  434. Xprintf("fixed immovably into the wall.  The dial is black with \n");
  435. Xprintf("white numbers written onto it.  The numbers range from \n");
  436. Xprintf("one to one hundred. Attached to the upper right hand \n");
  437. Xprintf("corner of the safe is a manufacturer's label which reads:\n\n");
  438. Xprintf("                     _____________________________  \n") ;
  439. Xprintf("                    |     Kryptonite Safe Co.     | \n") ;
  440. Xprintf("                    |  Model Number:  C-3283      | \n") ; 
  441. Xprintf("                    |  Serial Number: 10149167182 | \n") ;
  442. Xprintf("                    |      Made in Australia      | \n") ;
  443. Xprintf("                     _____________________________  \n") ;
  444. X    break ;
  445. X 
  446. X/* Message from Indiana Jones */
  447. Xcase O_message:
  448. Xprintf("You've read this message before.  It says:\n\n") ;
  449. Xprintf("Dear Treasure Hunter:\n") ;
  450. Xprintf("There was lots of treasure on this level when I first\n") ;
  451. Xprintf("discovered this mine.  However I have since carted it all\n") ;
  452. Xprintf("away.  You might try looking on another level.") ;
  453. Xprintf("\n\n                            Good Luck!\n") ;
  454. Xprintf("                         Dr. I. Jones, Ph.D.\n\n") ;
  455. Xreturn ;
  456. X 
  457. X/* description of the save script recorder */
  458. Xcase O_recorder:
  459. Xprintf("  --- You are holding a Fair Dinkum data recorder. ---\n") ;
  460. Xprintf("This device is a metal box with three coloured buttons.  The\n") ;
  461. Xprintf("buttons have the following functions:\n\n") ;
  462. Xprintf("Green Button:\n") ;
  463. Xprintf("When the green button is pressed the recorder will query the user\n") ;
  464. Xprintf("for a data file name.  Once the name has been provided, every\n") ;
  465. Xprintf("move made after will be recorded in the named file.  The recording\n") ;
  466. Xprintf("session will end when the red button is pressed.\n\n") ;
  467. Xprintf("White Button:\n") ;
  468. Xprintf("When the white button is pressed the recorder will query the user\n") ;
  469. Xprintf("for a data file name.  Once the name for an existing data file has\n") ;
  470. Xprintf("been provided, then all the moves listed in that file will be\n") ;
  471. Xprintf("played back with the player acting accordingly.\n\n") ;
  472. Xprintf("Red Button:\n") ;
  473. Xprintf("When the red button is pressed a recording or play back session\n") ;
  474. Xprintf("is ended.  Otherwise nothing happens.\n\n") ;
  475. Xprintf("Warning:  Things Change!  A file which worked for one situation\n") ;
  476. Xprintf("could become lethal for another.\n") ;
  477. X    break ;
  478. X 
  479. X/* description of the Semtex detector*/
  480. Xcase O_detector:
  481. Xprintf("You see an olive green box with a yellow button in its\n");
  482. Xprintf("centre, a yellow light in its upper right hand corner and\n");
  483. Xprintf("Cryllic writing all over it.  Below the Cryllic letters\n") ;
  484. Xprintf("is a translation in English which reads:\n\n") ;
  485. Xprintf("              Mk 5.12 Semtex Explosive Detector\n") ;
  486. Xprintf("This device is used in detecting explosive weapons such as\n");
  487. Xprintf("antipersonal mines which utilize the high velocity plastic\n") ;
  488. Xprintf("explosive Semtex.  To operate this device merely press the\n") ;
  489. Xprintf("yellow button and an air sample will be taken. If trace\n");
  490. Xprintf("amounts of Semtex are detected then a warning beeper will\n");
  491. Xprintf("be activated.   If there is no detectable Semtex then a\n") ;
  492. Xprintf("yellow light will flash.\n\n") ;
  493. Xprintf("               Made in the Czeckoslovak Socialist Republic\n") ;
  494. X    break ;
  495. X 
  496. X/* description of the black cube with the blue button */
  497. Xcase O_cube:
  498. Xprintf("You're holding a cube made of dull black metal which is about\n") ;
  499. Xprintf("6 cm across each face.  There is a strange alien writing much\n") ;
  500. Xprintf("like Sanskrit stamped into the metal.  On one cube face is a\n") ;
  501. Xprintf("large iridescent blue push button projecting out from the surface.\n") ;
  502. Xbreak ;
  503. X 
  504. X/* description of the normal ammunition clip */
  505. Xcase O_clip:
  506. Xprintf("You see a conventional M16 ammunition clip.  It is olive "); 
  507. Xprintf(" green\n") ;
  508. Xprintf("in colour and about 30 centimetres long.\n"); 
  509. X
  510. Xif (object[O_clip][J_property] == 0)
  511. X    printf("\nThe clip is EMPTY with NO bullets.\n") ;
  512. Xelse {
  513. Xif (object[O_clip][J_property] == 1)
  514. X    printf("\nThe clip contains one bullet.\n") ;
  515. Xelse
  516. Xprintf("\nThe clip contains %d bullets.\n", object[O_clip][J_property]) ;
  517. X}
  518. Xbreak ;
  519. X 
  520. X/* description of the orange clip */
  521. Xcase O_org_clip:
  522. Xprintf("You see an M16 ammunition clip which has been painted bright");
  523. Xprintf(" orange.\n") ;
  524. Xprintf("A strange blue glow seems to be radiating from the clip. ");
  525. Xprintf("There is\n") ;
  526. Xprintf("a placard attached to the side of the clip which reads:\n\n") ;
  527. Xprintf("     ____________________________________________________ \n");
  528. Xprintf("    |    Hypertoxic 0.223 Caliber Ammunition Magazine    |\n");
  529. Xprintf("    |                                                    |\n");
  530. Xprintf("    | The ammunition contained in this magazine is       |\n");
  531. Xprintf("    | manufactured from spent nuclear fuel rods composed |\n");
  532. Xprintf("    | of uranium and plutonium metal.  The bullets have  |\n");
  533. Xprintf("    | been hollowed out and filled with mercury metal.   |\n");
  534. Xprintf("    | The exterior of each bullet has been striated and  |\n");
  535. Xprintf("    | impregnated with VX nerve gas and anthrax bacillus.|\n");
  536. Xprintf("    | The use of this ammunition violates the Geneva     |\n");
  537. Xprintf("    | Convention on the Rules of War, the International  |\n");
  538. Xprintf("    | Moratorium on Biological Weapons, and the United   |\n");
  539. Xprintf("    | Nations Charter.  Close proximity to this          |\n");
  540. Xprintf("    | ammunition can be harmful to your health.          |\n");
  541. Xprintf("    |                                                    |\n");
  542. Xprintf("    |    Developed under DOE Contract: LLNL 89-5632/Z    |\n");
  543. Xprintf("    |                  Patent Pending                    |\n");
  544. Xprintf("     ____________________________________________________ \n");
  545. X
  546. Xif (object[O_org_clip][J_property] == 0)
  547. X    printf("\nThe orange clip is EMPTY with NO bullets.\n") ;
  548. Xelse {
  549. Xif (object[O_org_clip][J_property] == 1)
  550. X    printf("\nThe orange clip contains one bullet.\n") ;
  551. Xelse printf("\nThe orange clip contains %d bullets.\n",
  552. X    object[O_org_clip][J_property]) ;
  553. X}
  554. X    break ;
  555. X}
  556. X} /* --- end of "rdtxt" subroutine --- */
  557. END_OF_FILE
  558. if test 26018 -ne `wc -c <'describe.c'`; then
  559.     echo shar: \"'describe.c'\" unpacked with wrong size!
  560. fi
  561. # end of 'describe.c'
  562. fi
  563. if test -f 'parse.c' -a "${1}" != "-c" ; then 
  564.   echo shar: Will not clobber existing file \"'parse.c'\"
  565. else
  566. echo shar: Extracting \"'parse.c'\" \(17330 characters\)
  567. sed "s/^X//" >'parse.c' <<'END_OF_FILE'
  568. X#define PARSE
  569. X#include "dink_sym.h"
  570. X#include "dink_glb.h"
  571. X#include <string.h>
  572. X 
  573. Xvoid parse()
  574. X/*********************************************************/
  575. X/*                                                       */
  576. X/*      --- English Language Parsing Subroutine ---      */
  577. X/*                                                       */
  578. X/*  This subroutine parses a sentence of up to nineteen  */
  579. X/*  words and decodes the words into integers and passes */
  580. X/*  a twenty element vector back to the calling          */
  581. X/*  program.  The digit 0, implies an unused word.  The  */
  582. X/*  digit -1 (V_LINE_END), indicates end of sentence.    */
  583. X/*                                                       */
  584. X/*      Program by Gary A. Allen, Jr.  17 December 1992  */
  585. X/*        (c) Copyright 1992 by Gary A. Allen, Jr.       */
  586. X/*                                                       */
  587. X/*********************************************************/
  588. X{
  589. X#if (PROTOTYPE)
  590. Xchar getche(void) ;
  591. Xint synonym(int) ;
  592. Xvoid purge(int, int*) ;
  593. X#endif
  594. X
  595. Xregister int i, j ;
  596. X
  597. Xint m, n, jacc, i_ws, sw_purge, j_purge, sw_loop, sw_decode ;
  598. X
  599. X/* a sentence can have 19 words of 15 letters */ 
  600. Xchar words[20][15], word[15] ;
  601. Xchar letter, buffer[300], *pnt ;
  602. X
  603. X/* flush the "sent vector" */
  604. Xfor (i = 0; i <= 19; i++) sent[i] = 0 ;
  605. X
  606. X/* flush the tag vector */
  607. Xfor (i = 0; i <= tag_max; i++) tag[i] = FALSE ;
  608. X
  609. X/* Outer infinite "for" loop to parse and load in the words */
  610. Xfor(;;) {
  611. X
  612. X/* Keyboard input "for" loop */
  613. Xfor (i = 0; i <= 299; i++) {
  614. X    if (sw_playing) {
  615. X        if (feof(fp)) {
  616. X            sw_playing = FALSE ;
  617. X            continue ;
  618. X        }
  619. X        letter = fgetc(fp) ;
  620. X        putchar(letter) ;
  621. X    }
  622. X    else {
  623. X#ifndef __TURBOC__
  624. X        letter = getchar() ;    
  625. X#endif
  626. X#ifdef __TURBOC__
  627. X        letter = getche() ;    
  628. X#endif
  629. X        if (sw_recording) {
  630. X            if ((letter == '\n') || (letter == 13)) {
  631. X                fprintf(fp,"\n") ;
  632. X            }
  633. X            else fputc(letter, fp) ;
  634. X        }
  635. X    }
  636. X
  637. X    buffer[i] = letter ;
  638. X
  639. X    /* First pass "switch" block */
  640. X    switch(letter) {
  641. X
  642. X    /* Carriage return */
  643. X    case '\n':
  644. X    case 13:
  645. X        break ;
  646. X
  647. X    /* Backspace */
  648. X    case 8:
  649. X        i -= 2 ;
  650. X        if (i < 0) {
  651. X            i = -1 ;
  652. X#ifdef __TURBOC__
  653. X            putchar(0x07) ; /* ring bell */
  654. X/* "{" --- this is to balance the parenthesis below for Vi */
  655. X        }
  656. X        putchar(' ') ;
  657. X        putchar(0x08) ;
  658. X#endif
  659. X#ifndef __TURBOC__
  660. X        }
  661. X#endif
  662. X        continue ;
  663. X
  664. X    default:
  665. X        continue ;
  666. X    } /* end of the first pass "switch" block */
  667. X    break ;
  668. X} /* end of keyboard input "for" loop */
  669. X
  670. X/* Deal with goofy long strings */
  671. Xif (i > 299) {
  672. X    printf("\n\nHuh? That last sentence was a long one!\n") ;
  673. X    printf("Try making it a bit shorter.\n\n") ;
  674. X    continue ;
  675. X}
  676. X
  677. Xsw_loop = FALSE ;
  678. Xsw_decode = FALSE ;
  679. Xpnt = buffer ;
  680. X
  681. X/* Outer word counting "for" loop */
  682. Xfor (i = 0; i <= 18; i++) {
  683. X    /* Inner letter counting "for" loop */
  684. X    for (j = 0; j <= 14; j++) {
  685. X        /* Letter type "switch" block */
  686. X        switch (letter = *(pnt++)) {
  687. X            case '\n':
  688. X            case 13 :
  689. X                sw_loop = TRUE ;
  690. X                if ((i == 0) && (j == 0)) break ;
  691. X                words[i][j] = '\0' ;  
  692. X                sw_decode = TRUE ; 
  693. X                break ;
  694. X
  695. X            /* White spaces and punctuation for cutting out words */
  696. X            case '\"':
  697. X            case ' ':
  698. X            case ',':
  699. X            case '.':
  700. X            case ';':
  701. X            case ':':
  702. X            case '?':
  703. X            case '!':
  704. X            case '&':
  705. X            case '{':
  706. X            case '}':
  707. X            case '[':
  708. X            case ']':
  709. X            case ')':
  710. X            case '(':
  711. X            case '\'':
  712. X            case '`':
  713. X            case '\t':
  714. X                words[i][j] = '\0' ;  
  715. X                break;
  716. X
  717. X            default:
  718. X                words[i][j] = letter ;
  719. X                continue ;
  720. X        } /* end of letter type "switch" block */
  721. X        break ;
  722. X    } /* end of inner letter counting "for" loop */
  723. X    if (sw_loop) break ;
  724. X    if (j > 14) {
  725. Xprintf("\nYou're saying nonsense! Type the sentence again. \n");
  726. X        break ;
  727. X    }
  728. X    if (j == 0) i-- ;
  729. X} /* end of outer word counting "for" loop */
  730. X
  731. X/* Bad sentence handling block */
  732. Xif (!sw_decode) {
  733. X    if (sw_loop) continue ;
  734. X
  735. X    if (i > 18) 
  736. Xprintf ("\nYour sentence is too long. Type something shorter! \n") ;
  737. X
  738. X#ifndef __TURBOC__
  739. X    /* Purge the input buffer */
  740. X    for (;;) if ('\n' == getchar()) break ;
  741. X#endif
  742. X
  743. X    continue ; /* resume the infinite "for" loop */
  744. X} /* end of bad sentence handling block */
  745. X
  746. X#ifdef __TURBOC__
  747. Xprintf("\n") ;
  748. X#endif
  749. X
  750. X/* Decode the words from the known vocabulary */
  751. Xm = i ;
  752. Xjacc = 0;
  753. Xfor (i = 0; i <= m; i++) {
  754. X    for (j = 0; j <= 14; j++) {
  755. X        word[j] = words[i][j] ; 
  756. X    }
  757. X    for (j = 0; j <= letmax; j++) {
  758. X        n = strcmp (word,vocab[j]);
  759. X        if (n == 0) {
  760. X            if ((j > 9)&&(j < 20)) j -= 10;
  761. X            sent[jacc++] = j+1 ;
  762. X            break; 
  763. X        }
  764. X    }
  765. X} /* end of vobaulary decode block */
  766. X
  767. Xif (jacc == 0) {
  768. X    printf ("Nothing you said was understandable! Try again. \n");
  769. X    continue ;
  770. X}
  771. X 
  772. X/* mark last word */
  773. Xsent[jacc] = V_LINE_END ;
  774. X 
  775. X/* Check to see if this is a simple move command */
  776. Xif (sent[0] <= 10) {
  777. X    tag[V_MOVE] = TRUE ;
  778. X    tag[V_DIRECTION] = TRUE ;
  779. X    verb = sent[0] ;
  780. X    return ; 
  781. X} /* end of the simple move block */
  782. X 
  783. X/* adjective and "in/out" preposition "for" loop */
  784. Xsw_purge = FALSE ;
  785. Xfor (j = 0; j <= jacc-1; j++) {
  786. X
  787. X    /* check for adjectives */
  788. X    for (i = 0; i <= adj_max; i++) {
  789. X        if (sent[j] == adjective[i][Aj_adj]) {
  790. X
  791. X        /* Does a noun have to be ignored ? */
  792. X        if ((adjective[i][Aj_adj_cmd] == F_ignore) &&
  793. X            (adjective[i][Aj_trig_noun] != sent[j+1])) break ;
  794. X
  795. X        /* Does a noun have to be replaced? */
  796. X        if ((adjective[i][Aj_adj_cmd] == F_replace) &&
  797. X            (adjective[i][Aj_trig_noun] == sent[j+1])) {
  798. X                sent[j+1] = adjective[i][Aj_act_noun] ;
  799. X        }
  800. X        sw_purge = TRUE ;
  801. X        j_purge = j ;
  802. X        }
  803. X    } 
  804. X} /* end of adjective and "in/out" preposition "for" loop */
  805. X
  806. X/* purge processed adjective from sentence */
  807. Xif (sw_purge) purge(j_purge, &jacc) ;
  808. X 
  809. X/* Verb grammer check "for" loop */
  810. X/* see if the sentence is of a command sentax */
  811. Xsw_loop = FALSE ;
  812. Xfor (i = 0; i <= verb_max; i++) {
  813. X    if (sent[0] == verb_table[i]) {
  814. X        if (synonym(jacc)) {
  815. X            sw_loop = TRUE ;
  816. X            break ;
  817. X        }
  818. X        return ;
  819. X    }
  820. X} /* end of verb grammer check "for" loop */
  821. Xif (sw_loop) continue ;
  822. X
  823. X/* First word is not a verb so check to see if this is a "question" sentence */
  824. Xfor (i = 0; i <= quest_max; i++) {
  825. X    if (sent[0] == quest[i]) {
  826. X        /* shift the sentence over and load in "question" */ 
  827. X        for (j = jacc; j >= 0; j--) sent[j+1] = sent[j] ;
  828. X        sent[0] = V_QUESTION ;
  829. X        tag[V_QUESTION] = TRUE ; 
  830. X        if (++jacc == 2) {
  831. X        /* Sentence is a one word command */
  832. X            tag[V_VERB_ONLY] = TRUE ;
  833. X            tag[sent[1]] = TRUE ;
  834. X            verb = V_QUESTION ;
  835. X            return ;
  836. X        }
  837. X        if (synonym(jacc)) {
  838. X            sw_loop = TRUE ;
  839. X            break ;
  840. X        }
  841. X        return ;
  842. X    } 
  843. X} /* end of first word not a verb so check if "question" block */
  844. Xif (sw_loop) continue ;
  845. X 
  846. X/* This is not a question and the first word is --not-- a verb. */
  847. X/*     Therefore a verb is embedded and must be swapped in. */
  848. Xif (jacc != 1) for (j = 1; j <= jacc-1; j++) {
  849. X    /* Check to see if the word is a move command */
  850. X    if (sent[j] <= 10) {
  851. X        tag[V_MOVE] = TRUE ;
  852. X        i_ws = sent[0] ;
  853. X        sent[0] = sent[j] ;
  854. X        sent[j] = i_ws ;
  855. X        if (synonym(jacc)) {
  856. X            sw_loop = TRUE ;
  857. X            break ;
  858. X        }
  859. X        return ;
  860. X    } /* end of simple move command block */
  861. X
  862. X    /* if not a move command then check the verb table */
  863. X    for (i = 0; i <= verb_max; i++) {
  864. X        if (sent[j] == verb_table[i]) {
  865. X            i_ws = sent[0] ;
  866. X            sent[0] = sent[j] ;
  867. X            sent[j] = i_ws ;
  868. X            if (synonym(jacc)) {
  869. X                sw_loop = TRUE ;
  870. X                break ;
  871. X            }
  872. X            return ;
  873. X        }
  874. X    }
  875. X    if (sw_loop) break ;
  876. X} /* end of verb is embedded and must be swapped in block */
  877. Xif (sw_loop) continue ;
  878. X
  879. X/* Verb error routine */
  880. Xprintf ("If there was a verb in that sentence, I didn't understand ") ;
  881. Xprintf ("it.\n") ;
  882. X
  883. X} /* end of outer most infinite "for" loop to parse in the words */
  884. X
  885. X} /* --- end of "parse" subroutine --- */
  886. X
  887. X
  888. Xint synonym(jacc)
  889. X/**************************************/
  890. X/*                                    */
  891. X/*         Synonym Function           */
  892. X/*                                    */
  893. X/* Version: Mk 1.0    6 December 1992 */
  894. X/*                                    */
  895. X/**************************************/
  896. X
  897. Xint jacc ;
  898. X
  899. X{
  900. Xregister int i, j ;
  901. Xint j_point ;
  902. Xint sw_movement, sw_adverb, sw_adverb_fnd ;
  903. X
  904. X#if (PROTOTYPE)
  905. Xvoid purge(int, int*) ;
  906. X#endif
  907. X
  908. X/* prescan for verb connected movement commands */
  909. Xswitch(sent[0]) { 
  910. Xcase V_go:
  911. Xcase V_move:
  912. Xcase V_walk:
  913. Xcase V_run:
  914. Xcase V_jump:
  915. Xcase V_bop:
  916. Xcase V_hop:
  917. Xcase V_stroll:
  918. Xcase V_saunter:
  919. Xcase V_swagger:
  920. X    sw_movement = TRUE ;
  921. X    break ;
  922. Xdefault:
  923. X    sw_movement = FALSE ;
  924. X}
  925. X
  926. X/* adverb scan, sent[0] is the verb */
  927. Xsw_adverb = FALSE ;
  928. Xsw_adverb_fnd = FALSE ;
  929. Xfor (i = 0; i <= adv_max; i++) {
  930. X    for (j = 1; j <= jacc-1; j++) {
  931. X        /* see if this is an adverb */
  932. X        if (sent[j] == adverb[i][Av_adv]) {
  933. X            j_point = j ;
  934. X            sw_adverb = TRUE ;
  935. X
  936. X            /* does the sentence have the companion verb? */
  937. X            if (adverb[i][Av_verb_old] == sent[0]) {
  938. X                sent[0] = adverb[i][Av_verb_new] ;
  939. X                sw_adverb = FALSE ;
  940. X                sw_adverb_fnd = TRUE ;
  941. X
  942. X            /* purge processed adverb from sentence */
  943. X                purge(j, &jacc) ;
  944. X            }
  945. X        }
  946. X    }
  947. X}
  948. X
  949. X/* purge unprocessed adverb from sentence */
  950. Xif (sw_adverb && (!sw_movement)) purge(j_point, &jacc) ;
  951. X 
  952. X/* scan the sentence for the movement direction */
  953. Xif ((!sw_adverb_fnd) && sw_movement) {
  954. X    for (j = 0; j <= jacc-1; j++) {
  955. X        if (sent[j] <= 10) {
  956. X            tag[V_MOVE] = TRUE ;
  957. X            tag[V_DIRECTION] = TRUE ;
  958. X            verb = sent[j] ;
  959. X            return(FALSE) ;
  960. X        }
  961. X        if (sent[j] == V_LINE_END) break ;
  962. X    }
  963. X    printf("Where to?  In what direction?\n") ;
  964. X    return(TRUE) ;
  965. X} 
  966. X
  967. Xtag[sent[0]] = TRUE ;  /* activate the tag for the verb */
  968. X 
  969. Xif (jacc == 1) {
  970. X/* Sentence is a one word command */
  971. X    tag[V_VERB_ONLY] = TRUE ;
  972. X    verb = sent[0] ;
  973. X    if (sent[0] <= 4) return(FALSE) ; /* first 5 elements are reserved */
  974. X    return(FALSE) ;
  975. X}
  976. X
  977. X/* Load the "tag" matrix for detected words and synonyms */
  978. Xfor (j = 1; j <= 19; j++) {
  979. X    if (sent[j] == V_LINE_END) break ;
  980. X    if (sent[j] <= 10) tag[V_DIRECTION] = TRUE ;
  981. X    if (sent[j] <= 4) continue ; /* first 5 elements are reserved */
  982. X    tag[sent[j]] = TRUE ;  /* activate an element for each word */
  983. X
  984. X    /* Deal with synonym nouns */
  985. X    switch(sent[j]) {
  986. X
  987. X    case V_automatic:
  988. X    case V_AUTO:
  989. X        tag[V_auto] = TRUE ;
  990. X        continue ;
  991. X 
  992. X    case V_bar:
  993. X        tag[V_gold] = TRUE ;
  994. X        continue ;
  995. X
  996. X    case V_beer:
  997. X    case V_fourex:
  998. X    case V_Fourex:
  999. X        tag[V_can] = TRUE ;
  1000. X        continue ;
  1001. X
  1002. X    case V_cockroaches:
  1003. X        tag[V_PLURAL] = TRUE ;
  1004. X        tag[V_cockroach] = TRUE ;
  1005. X        continue ;
  1006. X 
  1007. X    case V_diamond:
  1008. X        tag[V_ring] = TRUE ;
  1009. X        continue ;
  1010. X 
  1011. X    case V_doormat:
  1012. X        tag[V_mat] = TRUE ;
  1013. X        continue ;
  1014. X
  1015. X    case V_drop:
  1016. X        tag[V_bear] = TRUE ;
  1017. X        continue ;
  1018. X
  1019. X    case V_everything:
  1020. X        tag[V_all] = TRUE ;
  1021. X        continue ;
  1022. X
  1023. X    case V_lager:
  1024. X        tag[V_bottle] = TRUE ;
  1025. X        continue ;
  1026. X
  1027. X    case V_fuze:
  1028. X    case V_fuse:
  1029. X        tag[V_cap] = TRUE ;
  1030. X        continue ;
  1031. X
  1032. X    case V_gleeps:
  1033. X        tag[V_PLURAL] = TRUE ;
  1034. X        tag[V_gleep] = TRUE ;
  1035. X        continue ;
  1036. X
  1037. X    case V_hoop:
  1038. X        tag[V_snake] = TRUE ;
  1039. X        continue ;
  1040. X
  1041. X    case V_M16:
  1042. X    case V_m16:
  1043. X    case V_gun:
  1044. X        tag[V_rifle] = TRUE ;
  1045. X        continue ;
  1046. X
  1047. X    case V_kangaroos:
  1048. X        tag[V_PLURAL] = TRUE ;
  1049. X        tag[V_kangaroo] = TRUE ;
  1050. X        continue ;
  1051. X
  1052. X    case V_magazine:
  1053. X    case V_ammo:
  1054. X        tag[V_clip] = TRUE ;
  1055. X        continue ;
  1056. X
  1057. X    case V_mail:
  1058. X    case V_envelope:
  1059. X        tag[V_letter] = TRUE ;
  1060. X        continue ;
  1061. X
  1062. X    case V_matchbox:
  1063. X        tag[V_matches] = TRUE ;
  1064. X    case V_matches:
  1065. X        tag[V_PLURAL] = TRUE ;
  1066. X        tag[V_match] = TRUE ;
  1067. X        continue ;
  1068. X
  1069. X    case V_Ned:
  1070. X    case V_kelly:
  1071. X    case V_Kelly:
  1072. X        tag[V_ned] = TRUE ;
  1073. X        continue ;
  1074. X
  1075. X    case V_off_q:
  1076. X        tag[V_off] = TRUE ;
  1077. X        continue ;
  1078. X
  1079. X    case V_on_q:
  1080. X        tag[V_on] = TRUE ;
  1081. X        continue ;
  1082. X 
  1083. X    case V_plan:
  1084. X        tag[V_map] = TRUE ;
  1085. X        continue ;
  1086. X
  1087. X    case V_painting:
  1088. X        tag[V_picture] = TRUE ;
  1089. X        continue ;
  1090. X
  1091. X    case V_picture:
  1092. X        tag[V_photo] = TRUE ;
  1093. X        continue ;
  1094. X
  1095. X    case V_doors:
  1096. X        tag[V_PLURAL] = TRUE ;
  1097. X        tag[V_door] = TRUE ;
  1098. X        continue ;
  1099. X
  1100. X    case V_pills:
  1101. X    case V_packet:
  1102. X        tag[V_PLURAL] = TRUE ;
  1103. X    case V_atropine:
  1104. X        tag[V_pill] = TRUE ;
  1105. X        continue ;
  1106. X
  1107. X    case V_safety:
  1108. X    case V_SAFE:
  1109. X        tag[V_safe] = TRUE ;
  1110. X        continue ;
  1111. X 
  1112. X    case V_silver:
  1113. X        tag[V_coin] = TRUE ;
  1114. X        continue ;
  1115. X
  1116. X    case V_spinifexes:
  1117. X        tag[V_PLURAL] = TRUE ;
  1118. X        tag[V_spinifex] = TRUE ;
  1119. X        continue ;
  1120. X
  1121. X    case V_stick:
  1122. X        tag[V_dynamite] = TRUE ;
  1123. X        continue ;
  1124. X
  1125. X    case V_switch:
  1126. X        tag[V_button] = TRUE ;
  1127. X        continue ;
  1128. X
  1129. X    case V_treasure:
  1130. X        tag[V_all] = TRUE ;
  1131. X        continue ;
  1132. X
  1133. X    case V_I:
  1134. X        tag[V_single] = TRUE ;
  1135. X        continue ;
  1136. X
  1137. X    case V_III:
  1138. X        tag[V_triple] = TRUE ;
  1139. X        continue ;
  1140. X
  1141. X    case V_zero:
  1142. X        tag[V_0] = TRUE ;
  1143. X        continue ;
  1144. X
  1145. X    case V_forty_nine:
  1146. X        tag[V_49] = TRUE ;
  1147. X        continue ;
  1148. X
  1149. X    case V_sixty_seven:
  1150. X        tag[V_67] = TRUE ;
  1151. X        continue ;
  1152. X
  1153. X    case V_eighty_two:
  1154. X        tag[V_82] = TRUE ;
  1155. X        continue ;
  1156. X
  1157. X    default:
  1158. X        continue ;
  1159. X    }
  1160. X} /* end of sentence tag word scan */
  1161. Xverb = sent[0] ;
  1162. Xreturn(FALSE) ;
  1163. X
  1164. X} /* --- end of "synonym" subroutine --- */
  1165. X
  1166. Xvoid purge(k_start, k_finish)
  1167. X/***********************************/
  1168. X/*                                 */
  1169. X/*   Sentence Purging Subroutine   */
  1170. X/*                                 */
  1171. X/* Version: Mk 1.0  3 March 1990   */
  1172. X/*                                 */
  1173. X/***********************************/
  1174. X
  1175. Xint k_start, *k_finish ;
  1176. X{
  1177. Xregister int k ;
  1178. Xint k_end ;
  1179. X
  1180. Xk_end = *k_finish ;
  1181. Xfor (k = k_start; k <= k_end-1; k++) sent[k] = sent[k+1] ;
  1182. X*k_finish = --k_end ;
  1183. X} /* --- end of "purge" subroutine --- */
  1184. X
  1185. Xvoid filler()
  1186. X/***********************************/
  1187. X/*                                 */
  1188. X/*        Looker Subroutine        */
  1189. X/*                                 */
  1190. X/* Version: Mk 1.0  18 August 1989 */
  1191. X/*                                 */
  1192. X/***********************************/
  1193. X{
  1194. X
  1195. Xif (tag[V_VERB_ONLY]) {
  1196. X    printf("Fill what?\n") ;
  1197. X    return ;
  1198. X}
  1199. Xif (tag[V_can]) {
  1200. X    if (object[O_can][J_loc] != B_have) 
  1201. Xprintf("You don't have the Fourex can in your possession!\n") ;
  1202. Xelse printf("I can't do it!  There's a hole in the can's bottom.\n") ;
  1203. X    return ;
  1204. X}
  1205. Xif (tag[V_bottle]) {
  1206. X    if (object[O_bottle][J_loc] != B_have) 
  1207. Xprintf("You don't have the bottle in your possession!\n") ;
  1208. Xelse printf("I can't do it!  The bottle has a crack in it's bottom.\n");
  1209. X    return ;
  1210. X}
  1211. Xprintf("I can't fill that!\n") ;
  1212. X} /* --- end of the "filler" subroutine --- */
  1213. X
  1214. Xvoid looker(n)
  1215. X/***********************************/
  1216. X/*                                 */
  1217. X/*        Looker Subroutine        */
  1218. X/*                                 */
  1219. X/* Version: Mk 1.0  18 August 1989 */
  1220. X/*                                 */
  1221. X/***********************************/
  1222. Xint n ;
  1223. X{
  1224. Xint m ;
  1225. X
  1226. X#if (PROTOTYPE)
  1227. Xvoid long_descp(int), describe(int), objlooker(int), gleeper(int) ;
  1228. Xvoid actor(int), rdtxt(int) ;
  1229. X#endif
  1230. X
  1231. X/* an isolated "look" means to just look at the room */
  1232. Xif (tag[V_VERB_ONLY]) { 
  1233. X    /* Check for long description */
  1234. X    if ((room[n][M_rm_type] == T_was_long)||(n == R_lift_inside))
  1235. X       long_descp(n);
  1236. X    else describe (n) ;
  1237. X    objlooker(n) ; /* Check if there are objects in the room */
  1238. X    gleeper(n) ;   /* check for gleeps and update the gleep count */
  1239. X    /* describe unmovable action objects and status */
  1240. X    if (room[n][M_rm_type] == T_action_obj) actor(n) ;
  1241. X    return ;
  1242. X}
  1243. X
  1244. X/* Gleep tank */
  1245. Xif (tag[V_tank]) {
  1246. X    if (n == R_gleep_tank) {
  1247. Xprintf("You look inside the gleep tank and see a blue fluid which\n") ;
  1248. Xprintf("smells of chlorine") ;
  1249. X        if (gleep_score == 0) {
  1250. Xprintf(".\n") ;
  1251. X            return ;
  1252. X        }
  1253. X        if (gleep_score == 1) {
  1254. Xprintf(" and a single gleep submerged in the fluid.\n") ;
  1255. X            return ;
  1256. X        }
  1257. Xprintf(" and %d gleeps submerged in the fluid.\n",
  1258. X        gleep_score) ;
  1259. X        return ;
  1260. X    }
  1261. X    else {
  1262. X        printf("There is no gleep tank here!\n") ;
  1263. X        return ;
  1264. X    }
  1265. X}
  1266. X
  1267. X/* wall safe */
  1268. Xif (tag[V_safe]) {
  1269. X    if ((n == R_office_mang)&&
  1270. X        (room[R_office_mang][M_rm_status] >= S_revealed)) {
  1271. X        m = O_safe ;
  1272. X        rdtxt(m);
  1273. X    }
  1274. X    else printf("I see no safe here for me to describe.\n");
  1275. X    return ;
  1276. X}
  1277. X
  1278. Xfor (;;) {
  1279. X    /* map from the manager's office */
  1280. X    if (tag[V_map]) {
  1281. X        m = O_map_frag ;
  1282. X        break ;
  1283. X    }
  1284. X
  1285. X    /* Fourex can */
  1286. X    if (tag[V_can]) {
  1287. X        m = O_can ;
  1288. X        break ;
  1289. X    }
  1290. X
  1291. X    /* recorder */
  1292. X    if (tag[V_recorder]) {
  1293. X        m = O_recorder ;
  1294. X        break ;
  1295. X    }
  1296. X
  1297. X    /* Atropine pills */
  1298. X    if (tag[V_pill]) {
  1299. X        m = O_pills ;
  1300. X        break ;
  1301. X    }
  1302. X
  1303. X    /* Qadaffi's letter bomb */
  1304. X    if (tag[V_letter]) {
  1305. X        m = O_letter ;
  1306. X        break ;
  1307. X    }
  1308. X
  1309. X    /* paper from the safe */
  1310. X    if (tag[V_paper]) {
  1311. X         m = O_paper ;
  1312. X        break ;
  1313. X    }
  1314. X
  1315. X    /* cube */            
  1316. X    if (tag[V_cube]) {
  1317. X        m = O_cube ;
  1318. X        break ;
  1319. X    }
  1320. X
  1321. X    /* ammo clip */            
  1322. X    if (tag[V_clip]) {
  1323. X        m = O_clip ;
  1324. X        break ;
  1325. X    }
  1326. X
  1327. X    /* orange clip */
  1328. X    if (tag[V_org_clip]) {
  1329. X        m = O_org_clip ;
  1330. X        break ;
  1331. X    }
  1332. X
  1333. X    /* rifle */
  1334. X    if (tag[V_rifle]) {
  1335. X        m = O_rifle ;
  1336. X        break ;
  1337. X    }
  1338. X
  1339. X    /* Semtex detector */
  1340. X    if (tag[V_detector]) {
  1341. X        m = O_detector ;
  1342. X        break ;
  1343. X    }
  1344. X 
  1345. X    /* Deal with unreadable objects */
  1346. X    printf("There is nothing more that I can describe about it.\n");
  1347. X    return ;
  1348. X} /* end of infinite for block */
  1349. X
  1350. Xif (object[m][J_loc] == B_have) rdtxt(m);
  1351. Xelse 
  1352. Xprintf("I can examine an object only if it is in my possession.\n");
  1353. X
  1354. X} /* --- end of the "looker" subroutine --- */
  1355. X
  1356. Xvoid pass()
  1357. X/***********************************/
  1358. X/*                                 */
  1359. X/*        Password Subroutine      */
  1360. X/*                                 */
  1361. X/* Version: Mk 1.0  29 July 1989   */
  1362. X/*                                 */
  1363. X/***********************************/
  1364. X{
  1365. Xregister int i ;
  1366. Xchar chr ;
  1367. Xstatic char *passwd = "2Xngootx7Ysd4Du9" ;
  1368. X
  1369. X#if (PROTOTYPE)
  1370. Xvoid exit(int);
  1371. Xchar getch(void) ;
  1372. X#endif
  1373. X
  1374. X/* Request password */
  1375. Xprintf("Enter password:  ") ;
  1376. X
  1377. X#ifndef __TURBOC__
  1378. Xfor (i = 2; i <= 7; i++) {
  1379. X    chr = getchar() ;
  1380. X    if (chr+i-1 != passwd[i]) exit(0) ;
  1381. X}    
  1382. Xif (getchar() != '\n') exit(0) ;
  1383. Xprintf(".\n") ;  /* indicate that the password was accepted */
  1384. X#endif
  1385. X
  1386. X#ifdef __TURBOC__
  1387. Xfor (i = 2; i <= 7; i++) {
  1388. X    chr = getch() ;
  1389. X    if (chr+i-1 != passwd[i]) { 
  1390. X        for (;;) if (getch() == 3) break ;
  1391. X        printf("\r                    \n") ;
  1392. X        exit(0) ;
  1393. X    }
  1394. X}
  1395. Xprintf("\r.                     \n") ;
  1396. X#endif
  1397. X
  1398. Xsw_wizard = TRUE ; /* toggle wizard switch */
  1399. X
  1400. X} /* --- end of the "pass" subroutine */
  1401. END_OF_FILE
  1402. if test 17330 -ne `wc -c <'parse.c'`; then
  1403.     echo shar: \"'parse.c'\" unpacked with wrong size!
  1404. fi
  1405. # end of 'parse.c'
  1406. fi
  1407. echo shar: End of archive 6 \(of 7\).
  1408. cp /dev/null ark6isdone
  1409. MISSING=""
  1410. for I in 1 2 3 4 5 6 7 ; do
  1411.     if test ! -f ark${I}isdone ; then
  1412.     MISSING="${MISSING} ${I}"
  1413.     fi
  1414. done
  1415. if test "${MISSING}" = "" ; then
  1416.     echo You have unpacked all 7 archives.
  1417.     rm -f ark[1-9]isdone
  1418. else
  1419.     echo You still need to unpack the following archives:
  1420.     echo "        " ${MISSING}
  1421. fi
  1422. ##  End of shell archive.
  1423. exit 0
  1424.