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