home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / volume15 / dinkum / part03 < prev    next >
Encoding:
Internet Message Format  |  1993-01-26  |  53.6 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: v15i023:  dinkum - australian text adventure game, Part03/06
  5. Message-ID: <3981@master.CNA.TEK.COM>
  6. Date: 29 Nov 92 20:31:27 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 1543
  9. Approved: billr@saab.CNA.TEK.COM
  10. Xref: uunet comp.sources.games:1522
  11.  
  12. Submitted-by: Gary Allen <gary@sun.mech.uq.oz.au>
  13. Posting-number: Volume 15, Issue 23
  14. Archive-name: dinkum/Part03
  15. Environment: Unix, DOS
  16.  
  17.  
  18.  
  19. #! /bin/sh
  20. # This is a shell archive.  Remove anything before this line, then unpack
  21. # it by saving it into a file and typing "sh file".  To overwrite existing
  22. # files, type "sh file -c".  You can also feed this as standard input via
  23. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  24. # will see the following message at the end:
  25. #        "End of archive 3 (of 6)."
  26. # Contents:  describe.c taker.c
  27. # Wrapped by billr@saab on Sun Nov 29 12:25:49 1992
  28. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  29. if test -f 'describe.c' -a "${1}" != "-c" ; then 
  30.   echo shar: Will not clobber existing file \"'describe.c'\"
  31. else
  32. echo shar: Extracting \"'describe.c'\" \(23091 characters\)
  33. sed "s/^X//" >'describe.c' <<'END_OF_FILE'
  34. X#define DSCRB
  35. X#include "dink_sym.h"
  36. X#include "dink_glb.h"
  37. X 
  38. Xvoid describe(n)
  39. X/*********************************************************/
  40. X/*                                                       */
  41. X/*           --- Room Description and Path ---           */
  42. X/*                                                       */
  43. X/*      Program by Gary A. Allen, Jr.  6 June 1989       */
  44. X/*        (c) Copywrite 1989 by Gary A. Allen, Jr.       */
  45. X/*                                                       */
  46. X/*********************************************************/
  47. Xint n ;         
  48. X{
  49. X#ifdef __TURBOC__
  50. Xvoid ender(int) ;
  51. Xchar getch(void) ;
  52. X#endif
  53. X
  54. Xstatic int old_n, dark_count, sw_hint = FALSE ;
  55. Xchar chr ;
  56. X
  57. X/* room description */
  58. Xstatic char *descript[] = {
  59. X"are in a grassy meadow that stretches out in all directions",  /* 0 */
  60. X"are on a path next to the meadow.  To the east is a road.",    /* 1 */
  61. X"are approaching a thickly wooded forest full of gum trees.",   /* 2 */
  62. X"have hiked a short distance and then climbed up onto a river dike.",
  63. X"are next to a wide murky river that looks dangerous.",         /* 4 */
  64. X"--- marker for drowing in river",                              /* 5 */
  65. X"are next to a billabong with a stream feeding into it.",       /* 6 */
  66. X"feel something slimey under the water wraping itself around your leg.",
  67. X"--- marker for the bunyip",                                    /* 8 */
  68. X"are back on top of the dike next to a great meandering river.", 
  69. X"are waist deep in the stream, the water is cool and refreshing.",
  70. X"are in a thickly wooded forest. There is a rich eucalyptus smell",
  71. X"are deeper into the gum tree forest and getting disoriented.",
  72. X"are deep in a gum tree forest and appear to be ***lost***.",   /* 13 */
  73. X"are wading in the billabong.  The water is stagnant and smelly.",
  74. X"approach an area with high grass. There are grey kangaroos nearby.",
  75. X"are deep in the grass, which is waist high.",                  /* 16 */
  76. X"see snakes slither by in the grass.  Some are quite big.",     /* 17 */
  77. X"--- marker for the Taipan",                                    /* 18 */
  78. X"leave the grassy area and head towards the meadow.",           /* 19 */
  79. X"are on a road.  Far to the east are some deserted buildings.", /* 20 */
  80. X"are on a broad road that stretches out to the horizon.",       /* 21 */
  81. X"are west from the head gear of the abandoned ACME Gold Mine.", /* 22 */
  82. X"are in an orange desert with bulldust swirling about you.",    /* 23 */
  83. X"are in a desert full of high sand dunes.",                     /* 24 */
  84. X"are in between two sand dunes and can see only sand.",         /* 25 */
  85. X"are in a sandy desert with large thorny spinifexes rolling by you.",
  86. X"are west of the mine shaft lift.  The mine tower looms over head.",
  87. X"are walking away from a forest of sweet smelling gum trees. ", /* 28 */
  88. X"find yourself on a potholed bitumen road that seems to be endless.",
  89. X"are southwest of the mine lift.  To the south is desert.",     /* 30 */
  90. X"are southeast of the mine lift.  To the south is desert.",     /* 31 */
  91. X"are east of the mine tower between the lift and the office.",  /* 32 */
  92. X"are east of the mine office building.  There is no door here.",
  93. X"are at the north eastern corner of the office building.",      /* 34 */
  94. X"are at the north western corner of the office building.",      /* 35 */
  95. X"are west of the ACME Gold Mine office building entrance.",     /* 36 */
  96. X"are in the entry hall.  There are doors to the north, south and west.",
  97. X"are in the Site Manager's office.  The only exit is to the south.",
  98. X"are in the western section of the Geologist's Office.",        /* 39 */
  99. X"are in the store room. The only exit is to the south.",    /* 40 */
  100. X"are in the eastern section of the Geologist's Office.",        /* 41 */
  101. X"continue walking on the road, which seems to go nowhere.",     /* 42 */
  102. X"are inside the mine lift.  The doorway is to the west.",
  103. X"are in a dimly lit tunnel going west.  To the east is the lift.",
  104. X"are in a poorly lit tunnel going east, west and south.",       /* 45 */
  105. X"are in a dimly lit tunnel going north.  To the east is the lift.",
  106. X"are in a pasture.  To the east is a road and west is a billabong.",
  107. X"are in a T-section going north, south or east.",               /* 48 */
  108. X"are in a T-section going north, south or west.",               /* 49 */
  109. X"are in a T-section going north, west or east.",                /* 50 */
  110. X"are in a T-section going east, west or south.",                /* 51 */
  111. X"are in a T-section going northeast, northwest, or southwest.", /* 52 */
  112. X"are in a T-section going northeast, northwest, or southeast.", /* 53 */
  113. X"are in a T-section going northeast, southeast, or southwest.",
  114. X"are in a tunnel going north and south.",                       /* 55 */
  115. X"are in a tunnel going east and west.",                         /* 56 */
  116. X"are in a tunnel going northwest and southeast.",               /* 57 */
  117. X"are in a tunnel going northeast and southwest.",               /* 58 */
  118. X"are in a tunnel that has a hole in the ground and goes east/west.",
  119. X"are in an L-section going southeast or up through a hole in the roof.",
  120. X"are in an L-section that goes south or up through a hole in the roof.",
  121. X"are in an L-section that goes east or up through a hole in the roof.",
  122. X"are in an L-section that goes west or up through a hole in the roof.",
  123. X"are in a Y-section that goes north, southeast, or southwest.", /* 64 */
  124. X"are in a Y-section that goes south, northeast, or northwest.", /* 65 */
  125. X"are in a Y-section that goes west, northeast, or southeast.",  /* 66 */
  126. X"are in a Y-section that goes east, northwest, or southwest.",  /* 67 */
  127. X"are in a Y-section that goes north, south, or southwest.",     /* 68 */
  128. X"are in a Y-section that goes south, north, or northwest.",     /* 69 */
  129. X"are in a Y-section that goes west, east, or southeast.",       /* 70 */
  130. X"are in a Y-section that goes east, west, or southwest.",       /* 71 */
  131. X"are in a Y-section that goes north, south, or southeast.",     /* 72 */
  132. X"are in a Y-section that goes south, north, or northeast.",     /* 73 */
  133. X"are in a Y-section that goes west, east, or northeast.",       /* 74 */
  134. X"are in a Y-section that goes east, west, or northwest.",       /* 75 */
  135. X"are in a Y-section that goes down a manhole, northwest, or southwest.",
  136. X"are in a Y-section that goes down a manhole, northeast, or southeast.",
  137. X"are at a tunnel crossing.  You can go north, east, south, or west.",
  138. X"are at a tunnel crossing going nw, ne, sw, and se.",           /* 79 */
  139. X"are in a tunnel corner that goes south and west.",             /* 80 */
  140. X"are in a tunnel corner that goes south and east.",             /* 81 */
  141. X"are in a tunnel corner that goes north and west.",             /* 82 */
  142. X"are in a tunnel corner that goes north and east.",             /* 83 */
  143. X"are in a tunnel corner that goes southeast and southwest.",    /* 84 */
  144. X"are in a tunnel corner that goes southeast and northeast.",    /* 85 */
  145. X"are in a tunnel corner that goes northwest and southwest.",    /* 86 */
  146. X"are in a tunnel corner that goes northwest and northeast.",    /* 87 */
  147. X"are in a tunnel going southwest with a stairway going down.",  /* 88 */
  148. X"are in a tunnel going northeast with a stairway going up.",    /* 89 */
  149. X"are at a deadend.",                                            /* 90 */
  150. X"are in the ventilation equipment room. The exit is to the west.",
  151. X"are in the worker's lunch room. The exit is to the north.",
  152. X"are at the stope face with the hydraulic jacks still in place.",
  153. X"are in an ore storage area with exits to the south and west.",
  154. X"are in a T-section going northwest, southeast, or southwest.",
  155. X"are in a tunnel going northeast/southwest, with a hole in the roof.",
  156. X"are in a corner going north and east, with a manhole going down.",
  157. X"are in a tunnel going west with a stairway going up.",         /* 98 */
  158. X"are in a tunnel going east with a stairway going down.",       /* 99 */
  159. X"can go north or climb down a man hole.",                       /*100 */
  160. X"are at a caved in section of tunnel which is now a dead end.", /*101 */
  161. X"are in a bleak and forbidding desert of bare flat stone.",     /*102 */
  162. X"are on a two lane road with gum trees on either side.",        /*103 */
  163. X"are in a flat and boring desert.",                /*104 */
  164. X"are in front of Ned Kelly's desert hide out.",            /*105 */
  165. X"are in a vast desert of dry salt lakes shimmering with mirages.",
  166. X"are inside Ned Kelly's hide out.  The only way out is to the west.",
  167. X"are north of a grassy area and within the bend of a great river.", 
  168. X"are south of a grassy area and on the edge of a gum tree forest.",
  169. X"can go east or climb down a man hole.",            /*110 */
  170. X"can go east, west or climb up through a hole in the roof.",    /*111 */
  171. X"are at the Level #67 Shift Foreman's office. You can go west.",
  172. X"are at the spacecraft's end.  You can go north, south and west.",
  173. X"are near the spacecraft's fin. You can go south or north-east.",
  174. X"are next to the ship's wing.  You can go south-west or south-east.",
  175. X"are beside the ship's window.  You can go north-west or south.",
  176. X"are next to the spacecraft's Mach probe.  You can north or south.",
  177. X"are facing the access hatch.  You can go up, north, or south-west.",
  178. X"are beside the landing gear.  You can go north-east or north-west.",
  179. X"are beside the wing's edge.  You can go north or south-east.",
  180. X"are in the spacecraft's airlock.  You can go down or north.",
  181. X"are in the central access way.  You can east, west, or south.",
  182. X"are on the flight deck of an ancient spacecraft.  You can go west.",
  183. X"are at a mysterious control panel.  You can east or west.",    /*124 */
  184. X"are in the chamber with glowing hexagons. The only exit is east.",
  185. X"are in a room with a tank full of dark blue liquid.  You can go west.",
  186. X"are in a cavernous room with a huge silver gong in the middle.",
  187. X"are in a room with a warning on the wall going north, south and west.",
  188. X"are in a closet stinking of moth balls. The only exit is north.",
  189. X"are in the guard room. The closet is south, the main doorway is east.",
  190. X"are in the prayer room of the Iranian Parliament. To escape, go west.",
  191. X"are in a tunnel going east and west with a message on the wall."
  192. X}  ;
  193. X
  194. X/* give the short description */
  195. Xif (((object[O_torch][J_loc] == B_have)&&object[O_torch][J_property])|| 
  196. X    (n < 186)||(n > 202)) { 
  197. X/* Deal with the possibility of a hint for the safe */
  198. X    if (n == R_office_mang) {
  199. X        if ((!sw_active)&&(object[O_rifle][J_property] != 0)&&
  200. X(enemy[N_ned][E_location] == B_destroyed)&&(!sw_hint)) {
  201. X            sw_hint = TRUE ;
  202. Xprintf("For half of the bullets in your M-16 rifle I will\n") ;
  203. Xprintf("give you a hint on how to get into the safe.\n") ;
  204. Xprintf("             Are you interested? \n") ;
  205. X
  206. X            for (;;) {
  207. X
  208. X#ifndef __TURBOC__
  209. X                do {
  210. Xprintf("(Answer:  Yes or No) ") ; 
  211. X                } while ('\n' == (chr = getchar())) ;
  212. X
  213. X                while ('\n' != getchar()) ;
  214. X#endif
  215. X
  216. X#ifdef __TURBOC__
  217. X                printf("\n") ;
  218. X                do {
  219. Xprintf("(Answer:  Yes or No) ") ; 
  220. X                } while ('\n' == (chr = getch())) ;
  221. X                printf("\n") ;
  222. X#endif
  223. X
  224. X                if (('n' == chr)||
  225. X('N' == chr)||('y' == chr)||('Y' == chr)) {
  226. X                    if (('y' == chr)||
  227. X                        ('Y' == chr)) { 
  228. X                object[O_rifle][J_property] /= 2 ;
  229. Xprintf("\nTake the missing word in the sentence:\n") ;
  230. Xprintf("                      \"The Chook **** an egg.\"\n");
  231. Xprintf("and spell it backwards.  Then look very carefully at the\n") ;
  232. Xprintf("map which you found in the manager's office.  Also, you\n") ;
  233. Xprintf("now have %d bullets in your rifle.\n",
  234. X                object[O_rifle][J_property]) ;
  235. X                    }
  236. X                break ;
  237. X                }
  238. X            }
  239. X            printf("\n") ;
  240. X        }
  241. X    }
  242. Xprintf ("You %s \n",descript[room[n][M_descp]]);
  243. X    old_n = n;
  244. X    dark_count = 0 ;
  245. X
  246. X}
  247. X
  248. X/* deal with dark rooms */
  249. Xelse {
  250. X    if (n == 186) {
  251. Xprintf("You have entered a north/south passage which does not have\n") ;
  252. Xprintf("electric lighting.  There is some light coming in from the\n");
  253. Xprintf("north, but the tunnel to the south is completely dark.\n");
  254. X        return;
  255. X    }
  256. X    if (n == 187) {
  257. Xprintf("The tunnel you are in is pitch black.  There is a little\n");
  258. Xprintf("light coming in from the north.  If you keep going you will\n");
  259. Xprintf("probably fall down a hole.\n") ;
  260. X        return ;
  261. X    }
  262. X    if ((n >= 188)&&(n <= 202)) {
  263. X        if ((dark_count==0)||(old_n == n)) {
  264. Xprintf("You are in a mine tunnel in total darkness, which is \n") ;
  265. Xprintf("extremely dangerous.  I have no clue where we are going.\n") ;
  266. Xprintf("Let's go back to where there is some light!\n") ;
  267. X            ++dark_count ;
  268. X            old_n = n;
  269. X        }
  270. X        else {
  271. Xprintf("Twit!!  You have fallen down a hole and broken your neck!\n");
  272. X        ender(F_died) ;
  273. X        }
  274. X        return ;
  275. X    }
  276. X}
  277. X} /* end of the "describe" subroutine */
  278. X 
  279. Xvoid rdtxt(k)
  280. X/*********************************************************/
  281. X/*                                                       */
  282. X/*     --- Text for the "Read"/"Describe" Command ---    */
  283. X/*                                                       */
  284. X/*       Program by Gary A. Allen, Jr.  21 February 1989 */
  285. X/*         (c) Copywrite 1989 by Gary A. Allen, Jr.      */
  286. X/*                                                       */
  287. X/*********************************************************/
  288. Xint k;
  289. X{
  290. Xswitch(k) {
  291. X
  292. X/* text for the map fragment in the manager's office */
  293. Xcase O_map_frag:
  294. Xprintf("______________________________________________________ \n");
  295. Xprintf("|..................................................... \n");
  296. Xprintf("|...._______________________.......................... \n");
  297. Xprintf("|...|  Current Operational  |........................ \n");
  298. Xprintf("|...|  Levels are:          |......D--W--W--W--W--W- \n");
  299. Xprintf("|...|     0, 49, 67, 82     |......|................ \n");
  300. Xprintf("|...| Level #67 is depicted |......S................ \n");
  301. Xprintf("|...._______________________.......|................ \n");
  302. Xprintf("|..................................S............... \n");
  303. Xprintf("|..................................|............... \n");
  304. Xprintf("|......................S--W--W--D--W.............. \n");
  305. Xprintf("|......................|........|................. \n");
  306. Xprintf("|......................S........E--E--E--E--E--E- \n");
  307. Xprintf("|......................|.......................... \n");
  308. Xprintf("|.......[dead end]--W--*--E--[dead end].......... \n");
  309. Xprintf("|......................|........................ \n");
  310. Xprintf("|......................S......................");
  311. Xprintf("       The rest of the map\n");
  312. Xprintf("|......................|.....................");
  313. Xprintf("        has turned into dust.\n");
  314. Xprintf("|.........[false dead end (partition)]......\n");
  315. Xprintf("|...........^..........|................. \n");
  316. Xprintf("|.{use an explosive}...S.............. \n");
  317. Xprintf("|......................|.... \n");
  318. Xprintf("|.............. \n");
  319. X    break;
  320. X
  321. X/* Can of Fourex Beer */
  322. Xcase O_can:
  323. Xprintf("You see an aluminum beer can with a hole in the bottom. The\n");
  324. Xprintf("can is coloured yellow-orange.  Written in red letters\n");
  325. Xprintf("across the can's front is the following:\n\n") ;
  326. Xprintf("                  \"CASTLEMAINE\"\n") ;
  327. Xprintf("                      XXXX\n") ;
  328. Xprintf("                   BITTER ALE\n\n") ;
  329. Xprintf("There's a picture of Fourex's Milton brewery in the middle.\n");
  330. X    break ;
  331. X
  332. X/* Atropine pills */
  333. Xcase O_pills:
  334. Xprintf("You're holding a packet which once contained ") ;
  335. Xprintf("30 pills but now\nholds only") ;
  336. Xprintf(" %d pills.  On the back of the packet is written:\n\n",
  337. X    pill_count) ;
  338. Xprintf("                       ATROPINE PILLS\n");
  339. Xprintf("The pills in this packet will protect the user against ") ;
  340. Xprintf("poisoning\nby organo-phosphorous ") ;
  341. Xprintf("compounds, i.e. VX nerve gas.\n") ;
  342. Xprintf("    Dosage:  Take ONE pill when poisoning symptons occur.\n");
  343. Xprintf("    Warning:  Atropine is itself a poison.  An overdose can\n");
  344. Xprintf("              be lethal!\n\n") ;
  345. X    break ;
  346. X
  347. X
  348. X/* description of Qaddafi's letter bomb */
  349. Xcase O_letter:
  350. Xprintf("___________________________________________________________\n");
  351. Xprintf("|                                               +-----+   |\n");
  352. Xprintf("| Col. M. Gaddafi                               |Libya|   |\n");
  353. Xprintf("| Azizya Barracks                Postage Due    |5 zl.|   |\n");
  354. Xprintf("| Tripoli, Libya                   $1.50        | -o- |   |\n");
  355. Xprintf("|                                               +-----+   |\n");
  356. Xprintf("|                 Sam Cohen                               |\n");
  357. Xprintf("|                 Level #67 Shift Boss                    |\n");
  358. Xprintf("|                 ACME Mine Ltd.                          |\n");
  359. Xprintf("|                 Birdsville, Queensland 4123             |\n");
  360. Xprintf("|  AIR MAIL                   Australia                   |\n");
  361. Xprintf("|                                                         |\n");
  362. Xprintf("___________________________________________________________\n");
  363. Xprintf("\n\nThe envelope must be opened before the ");
  364. Xprintf("letter can be read.\n\n") ;
  365. X    break;
  366. X
  367. X/* text for the paper found in the safe */
  368. Xcase O_paper:
  369. Xprintf("                             Congratulations!!! \n");
  370. Xprintf("You got the safe open!  Now you can start scoring points for ");
  371. Xprintf("treasure.\n") ;
  372. Xprintf("Credit is awarded **only** for treasure put into the safe. ");
  373. Xprintf("Beware of fell\nbush ") ;
  374. Xprintf("rangers who steal treasure (and sometimes kill adventurers).") ;
  375. Xprintf("\n\n                        ---  Concerning Gleeps ---\n");
  376. Xprintf("Gleeps are potent adjuncts which are credited separately from");
  377. Xprintf(" treasure.  Gleeps\n") ;
  378. Xprintf("will reproduce if left undisturbed in special locations ") ;
  379. Xprintf("underground. However\n") ;
  380. Xprintf("in most locations they will remain dormant. Credit ");
  381. Xprintf("for gleeps is awarded \n") ;
  382. Xprintf("only for those placed in a \"gleep tank\". While anyone ");
  383. Xprintf("can gather treasure, the\n") ;
  384. Xprintf("ability to cultivate and collect gleeps is the mark of a ");
  385. Xprintf("fair dinkum master.\n") ;
  386. Xprintf("                               Have Fun !!\n");
  387. X    break;
  388. X
  389. X/* description of the rifle */
  390. Xcase O_rifle:
  391. Xprintf("--- You are looking at a Colt M16 infantry rifle. --- \n");
  392. Xprintf("This fully automatic weapon is supplied bullets from a \n") ;
  393. Xprintf("detachable magazine which can hold up to 200 rounds. \n") ;
  394. Xprintf("The rifle has a selector knob that can place the weapon \n") ;
  395. Xprintf("into one of four possible firing modes: \n\n") ;
  396. Xprintf("     SAFE = Rifle can't fire, even if dropped \n") ;
  397. Xprintf("     I    = Single fire mode. Shoots one bullet at a time \n");
  398. Xprintf("     III  = Triple fire mode. Shoots three bullets rapidly \n");
  399. Xprintf("            every time the trigger is pulled. \n") ;
  400. Xprintf("     AUTO = Fully automatic, firing bullets at a rate of \n") ;
  401. Xprintf("            660 rounds/min. when trigger is pulled. \n\n") ;
  402. Xif (rifle_flag == F_safety)
  403. Xprintf("The rifle is currently set in the SAFE mode. \n") ;
  404. Xif (rifle_flag == F_single)
  405. Xprintf
  406. X  ("The rifle is currently set in the \"I\" or single fire mode.\n");
  407. Xif (rifle_flag == F_triple)
  408. Xprintf("The rifle is now set in the \"III\" or triple fire mode.\n");
  409. Xif (rifle_flag == F_auto)
  410. Xprintf("The rifle is currently set in the AUTO mode. \n") ;
  411. Xif (clip_flag == F_no_clip)
  412. Xprintf("The rifle does not have an ammunition clip attached to it.\n") ;
  413. Xif (clip_flag == F_normal_clip) {
  414. X    printf("The rifle has a standard ammunition clip attached ") ;
  415. X    printf("which contains %d rounds.\n",
  416. X                object[O_rifle][J_property]) ;
  417. X}
  418. Xif (clip_flag == F_org_clip) {
  419. X    printf("The rifle has an orange ammunition clip attached ") ;
  420. X    printf("which contains %d rounds.\n",
  421. X                object[O_rifle][J_property]) ;
  422. X}
  423. X    break ;
  424. X 
  425. X/* description of the safe */
  426. Xcase O_safe:
  427. Xprintf("You see a conventional combination dial type wall safe \n");
  428. Xprintf("fixed immovably into the wall.  The dial is black with \n");
  429. Xprintf("white numbers written onto it.  The numbers range from \n");
  430. Xprintf("one to one hundred. Attached to the upper right hand \n");
  431. Xprintf("corner of the safe is a manufacturer's label which reads:\n\n");
  432. Xprintf("                     _____________________________  \n") ;
  433. Xprintf("                    |     Kryptonite Safe Co.     | \n") ;
  434. Xprintf("                    |  Model Number:  C-3283      | \n") ; 
  435. Xprintf("                    |  Serial Number: 10149167182 | \n") ;
  436. Xprintf("                    |      Made in Australia      | \n") ;
  437. Xprintf("                     _____________________________  \n") ;
  438. X    break ;
  439. X 
  440. X/* description of the Semtex detector*/
  441. Xcase O_detector:
  442. Xprintf("You see an olive green box with a yellow button in its\n");
  443. Xprintf("center, a yellow light in its upper right hand corner and\n");
  444. Xprintf("Cryllic writing all over it.  Below the Cryllic letters\n") ;
  445. Xprintf("is a translation in English which reads:\n\n") ;
  446. Xprintf("              Mk 5.12 Semtex Explosive Detector\n") ;
  447. Xprintf("This device is used in detecting explosive weapons such as\n");
  448. Xprintf("antipersonal mines which utilize the high velocity plastic\n") ;
  449. Xprintf("explosive Semtex.  To operate this device merely press the\n") ;
  450. Xprintf("yellow button and an air sample will be taken. If trace\n");
  451. Xprintf("amounts of Semtex are detected then a warning beeper will\n");
  452. Xprintf("be activated.   If there is no detectable Semtex then a\n") ;
  453. Xprintf("yellow light will flash.\n\n") ;
  454. Xprintf("               Made in the Czeckoslovak Socialist Republic\n") ;
  455. X    break ;
  456. X 
  457. X/* description of the normal ammunition clip */
  458. Xcase O_clip:
  459. Xprintf("You see a conventional M16 ammunition clip.  It is olive "); 
  460. Xprintf(" green\n") ;
  461. Xprintf("in colour and about 30 centimeters long.\n"); 
  462. Xbreak ;
  463. X 
  464. X/* description of the orange clip */
  465. Xcase O_org_clip:
  466. Xprintf("You see an M16 ammunition clip which has been painted bright");
  467. Xprintf(" orange.\n") ;
  468. Xprintf("A strange blue glow seems to be radiating from the clip. ");
  469. Xprintf("There is\n") ;
  470. Xprintf("a placard attached to the side of the clip which reads:\n\n") ;
  471. Xprintf("     ____________________________________________________ \n");
  472. Xprintf("    |    Hypertoxic 0.223 Caliber Ammunition Magazine    |\n");
  473. Xprintf("    |                                                    |\n");
  474. Xprintf("    | The ammunition contained in this magazine is       |\n");
  475. Xprintf("    | manufactured from spent nuclear fuel rods composed |\n");
  476. Xprintf("    | of uranium and plutonium metal.  The bullets have  |\n");
  477. Xprintf("    | been hollowed out and filled with mercury metal.   |\n");
  478. Xprintf("    | The exterior of each bullet has been striated and  |\n");
  479. Xprintf("    | impregnated with VX nerve gas and anthrax bacillus.|\n");
  480. Xprintf("    | The use of this ammunition violates the Geneva     |\n");
  481. Xprintf("    | Convention on the Rules of War, the International  |\n");
  482. Xprintf("    | Moratorium on Biological Weapons, and the United   |\n");
  483. Xprintf("    | Nations Charter.  Close proximity to this          |\n");
  484. Xprintf("    | ammunition can be harmful to your health.          |\n");
  485. Xprintf("    |                                                    |\n");
  486. Xprintf("    |    Developed under DOE Contract: LLNL 89-5632/Z    |\n");
  487. Xprintf("    |                  Patent Pending                    |\n");
  488. Xprintf("     ____________________________________________________ \n");
  489. X    break ;
  490. X}
  491. X} /* --- end of "rdtxt" subroutine --- */
  492. END_OF_FILE
  493. if test 23091 -ne `wc -c <'describe.c'`; then
  494.     echo shar: \"'describe.c'\" unpacked with wrong size!
  495. fi
  496. # end of 'describe.c'
  497. fi
  498. if test -f 'taker.c' -a "${1}" != "-c" ; then 
  499.   echo shar: Will not clobber existing file \"'taker.c'\"
  500. else
  501. echo shar: Extracting \"'taker.c'\" \(28165 characters\)
  502. sed "s/^X//" >'taker.c' <<'END_OF_FILE'
  503. X#define TAKER
  504. X#include "dink_sym.h"
  505. X#include "dink_glb.h"
  506. X 
  507. Xvoid taker(n)
  508. X/*********************************************************/
  509. X/*                                                       */
  510. X/*           --- Object Taking Subroutine ---            */
  511. X/*                                                       */
  512. X/*      Program by Gary A. Allen, Jr.   20 May 1990      */
  513. X/*        (c) Copywrite 1990 by Gary A. Allen, Jr.       */
  514. X/*                                                       */
  515. X/*********************************************************/
  516. Xint n ;
  517. X{
  518. X#ifdef __TURBOC__
  519. Xvoid clip_in(int), clip_out(int), ender(int), eater(int) ;
  520. X#endif
  521. X
  522. Xregister int i, j ;
  523. Xint  sw_done, gleep_holder, ammo_flag ;
  524. X
  525. X/* Alias in the object for the single word "take" command */
  526. Xif (tag[V_VERB_ONLY]) {
  527. X    j = 0 ;
  528. X    /* See if there is only one object on the floor */
  529. X    for (i = 0; i <= objcnt; i++) if (n == object[i][J_loc]) {
  530. X        j++ ;
  531. X        tag[object[i][J_parse_id]] = TRUE ;
  532. X    }
  533. X
  534. X    if (room[n][M_gleep] != 0) {
  535. X        j++ ;
  536. X        tag[V_gleep] = TRUE ;
  537. X        if (room[n][M_gleep] > 1) tag[V_PLURAL] = TRUE ;
  538. X    }
  539. X
  540. X    /* Complain if there isn't a single object on the ground */
  541. X    if (j > 1) {
  542. X        printf ("What exactly do you want me to take? \n");
  543. X        return ;
  544. X    }
  545. X}
  546. X
  547. Xammo_flag = F_no_clip ;
  548. Xif (tag[V_clip]) ammo_flag = F_normal_clip ;
  549. Xif (tag[V_org_clip]) ammo_flag = F_org_clip ;
  550. X
  551. X/* deal with special case of "orange clip" implied by its being alone */
  552. Xif (tag[V_clip]&&(object[O_clip][J_loc] != n)&&
  553. X   (object[O_org_clip][J_loc] == n)) {
  554. X    tag[V_org_clip] = TRUE ;
  555. X    tag[V_clip] = FALSE ;
  556. X    if (V_clip == sent[1]) sent[1] = V_org_clip ;
  557. X}
  558. X
  559. X/* deal with the verb "attach" */
  560. Xif (verb == V_attach) {
  561. X    if (tag[V_rifle]&&(ammo_flag != F_no_clip)) {
  562. X        clip_in(ammo_flag) ;
  563. X        return ;
  564. X    }
  565. X    if ((n != R_office_mang)&&(room[n][M_obj_cnt] <= 0)) {
  566. X        printf ("There is nothing here that I can attach!\n");
  567. X        return ;
  568. X    }
  569. X}
  570. X
  571. X/* Check to see if player already has the item */
  572. Xfor (i = 0; i <= objcnt; i++) { 
  573. X    if (object[i][J_parse_id] == sent[1]) {
  574. X        if (object[i][J_loc] == B_have) {
  575. Xprintf ("You already have a %s in your possession.\n",vocab[sent[1]-1]);
  576. X            return ;
  577. X        }
  578. X        else break ;
  579. X    }
  580. X}
  581. X
  582. Xsw_done = FALSE ;
  583. X
  584. Xif (tag[V_safe]) {
  585. X    if (n != R_office_mang) {
  586. X        printf("There is no safe here. \n") ;
  587. X        return ;
  588. X    }
  589. X    if (room[R_office_mang][M_rm_status] != S_open) {
  590. X        printf("I can't do it because the safe is closed. \n") ;
  591. X        return ;
  592. X    }
  593. X}
  594. X
  595. X/* Special case of "take pill" */
  596. Xif ((tag[V_pill])&&(object[O_pills][J_loc] == B_have)) {
  597. X    eater(n) ;
  598. X    return ;
  599. X}
  600. X
  601. X/* Reject "take" command when there is nothing to take */
  602. Xif ((n != R_office_mang)&&(verb != V_attach)&&(verb != V_remove)&&
  603. X    (room[n][M_obj_cnt] <= 0)&&(room[n][M_gleep] == 0)&&
  604. X    (!((n == R_gleep_tank)&&(gleep_score > 0)))&&
  605. X    (room[n][M_rm_type] != T_unmovable_obj)) {
  606. X    printf ("There is nothing here that you can take! \n");
  607. X    return ;
  608. X}
  609. X
  610. X/* player takes something from the gleep tank */
  611. Xif (tag[V_tank]) {
  612. X    if (n != R_gleep_tank) {
  613. Xprintf("I see no gleep tank to take anything from. \n") ;
  614. X        return ;
  615. X    }
  616. Xprintf("\nYou climb up onto the edge of the gleep tank and reach\n");
  617. Xprintf("into the dark blue fluid.  Suddenly the fluid begins a\n");
  618. Xprintf("furious boiling that instantly reduces your hand into\n") ;
  619. Xprintf("bleached white bones.  The shock and pain disturbs your\n");
  620. Xprintf("balance and you fall into the horrible stuff!!  There is\n");
  621. Xprintf("once again a furious boiling.  Eventually the fluid stills\n");
  622. Xprintf("and becomes clear again.  On the bottom of the tank can\n") ;
  623. Xprintf("be seen a white, clean, \"medical school quality\" human\n");
  624. Xprintf("skeleton.\n") ;
  625. X    ender(F_died) ;
  626. X}
  627. X 
  628. X/* gleep taking routine */
  629. Xif (tag[V_gleep]) {
  630. Xif (!tag[V_safe]) {
  631. X
  632. X    /* This block is for inaccessible or nonexistant gleeps */
  633. X    if ((room[n][M_gleep] == 0)&&(!((n == R_office_mang)&&
  634. X(room[R_office_mang][M_rm_status] == S_open)&&(gleep_safe != 0)))) {
  635. X
  636. X        if ((n != R_gleep_tank)||(gleep_score==0)) {
  637. Xprintf("There are no gleeps here to take!\n") ;
  638. X            return ;
  639. X        }
  640. X        else {
  641. Xprintf("There are no gleeps on the floor but I see ") ;
  642. X            if (gleep_score == 1) 
  643. X                printf("a gleep in the gleep tank.\n");
  644. X            else
  645. Xprintf("%d gleeps in the gleep tank.\n",gleep_score) ;
  646. X            return ;
  647. X        }
  648. X    }
  649. X
  650. X    /* This block is for accessible gleeps */
  651. X    if ((n == R_office_mang)&&
  652. X(room[R_office_mang][M_rm_status] == S_open)&&(gleep_safe != 0)) {
  653. X        gleep_holder = gleep_safe ;
  654. X    }
  655. X    else gleep_holder = 0 ;
  656. X
  657. X    if ((!tag[V_PLURAL])||
  658. X        (room[n][M_gleep]+gleep_holder == 1)) {
  659. X        printf("Gleep taken. \n") ; 
  660. X        ++gleep_count ;
  661. X        if (gleep_holder == 0) --room[n][M_gleep] ;
  662. X        else --gleep_holder ;
  663. X    }
  664. X    else {
  665. X        printf("Gleeps taken. \n") ; 
  666. X        gleep_count += room[n][M_gleep]+gleep_holder ;
  667. X        room[n][M_gleep] = 0 ;
  668. X        gleep_holder = 0 ;
  669. X    }
  670. X    gleep_safe = gleep_holder ;
  671. X    return ;
  672. X}
  673. Xelse {
  674. X    if ((n == R_office_mang)&&
  675. X(room[R_office_mang][M_rm_status] == S_open)&&(gleep_safe != 0)) { 
  676. X        if (tag[V_PLURAL]) {
  677. X            printf("Gleeps taken from safe. \n") ; 
  678. X            gleep_count += gleep_safe ;
  679. X            gleep_safe = 0 ;
  680. X        }
  681. X        else {
  682. X            printf("Gleep taken from safe. \n") ; 
  683. X            ++gleep_count ;
  684. X            --gleep_safe ;
  685. X        }
  686. X    }
  687. X    else printf("There are no gleeps in the safe!\n") ;
  688. X    return ;
  689. X}
  690. X} /* end of the gleep taking block */
  691. X
  692. X/* deal with the special case of the platypus picture */
  693. Xif ((n == R_office_mang) && tag[V_picture]) {
  694. Xprintf("The picture can not be removed.  It appears to be hinged ");
  695. Xprintf("to the wall. \n");
  696. X    return ;
  697. X}
  698. X
  699. X/* treat the verb "remove" in the context of "remove clip from rifle" */
  700. Xif (verb == V_remove) {
  701. X    if ((!tag[V_safe])&&(ammo_flag != F_no_clip)) {
  702. X        clip_out(n) ;
  703. X        return ;
  704. X    }
  705. X}
  706. X
  707. Xif (carry_count > 5) {
  708. Xprintf("I can't do it!\n") ;
  709. Xprintf("I'm holding so many things that I can't take anymore!\n") ;
  710. X    return ;
  711. X}
  712. X
  713. Xif (carry_weight >= 800) {
  714. Xprintf("I can't do it!\n") ;
  715. Xprintf("This junk I'm carrying is too heavy! I can't carry anymore!\n");
  716. X    return ;
  717. X}
  718. X
  719. X
  720. X/* find the object(s) in this room */
  721. Xfor (i = 0; i <= objcnt; i++) {
  722. X
  723. X    if ((carry_count > 5)||(carry_weight >= 800)) break ;
  724. X
  725. X    /* See if the object is in the safe and was requested */
  726. X    if ((n == R_office_mang)&&(object[i][J_loc] == B_in_safe)&&
  727. X        (tag[object[i][J_parse_id]]||tag[V_all])&&
  728. X    (room[R_office_mang][M_rm_status] == S_open)&&
  729. X    ((!tag[V_treasure])||(object[i][J_value] > 0))) {
  730. X        object[i][J_loc]= B_have; 
  731. X        carry_count++ ;
  732. X        carry_weight += object[i][J_weight] ; 
  733. X        sw_done = TRUE ;
  734. X    } 
  735. X    
  736. X    /* See if the object is in the room and was requested */
  737. X    if ((object[i][J_loc]==n)&&(tag[object[i][J_parse_id]]||
  738. X        tag[V_all])&&
  739. X        ((!tag[V_treasure])||(object[i][J_value] > 0))) {
  740. X        /* see if the object can be taken */
  741. X        if ((object[i][J_type] == Z_normal)||
  742. X            (object[i][J_type] == Z_alias)) {
  743. X            --room[n][M_obj_cnt] ;
  744. X            carry_count++ ;
  745. X            carry_weight += object[i][J_weight] ; 
  746. X            object[i][J_loc] = B_have; 
  747. X            sw_done = TRUE ;
  748. X        } 
  749. X
  750. X        /* see if this is a nonmovable, nonacting object */
  751. X        if ((object[i][J_type] == Z_unmovable) &&
  752. X            (object[i][J_loc]==n) && (!tag[V_all])) {
  753. X
  754. X            switch(object[i][J_parse_id]) {
  755. X            case V_bulldust:
  756. Xprintf("The bulldust is so fine that it wafts away with a touch.\n") ;
  757. X                return ;
  758. X
  759. X            /* Cockroach(es) */
  760. X            case V_cockroach:
  761. Xprintf("I will not touch the filthy things!\n") ;
  762. X                return ;
  763. X
  764. X            /* Kangaroo(s) */
  765. X            case V_kangaroo:
  766. Xprintf("You make a grab for the kangaroo but it leaps away!\n") ;
  767. X                return ;
  768. X
  769. X            case V_poster:
  770. Xprintf("I think this sort of poster is best left on the wall.\n") ;
  771. X                return ;
  772. X
  773. X            /* Spinifex(es) */
  774. X            case V_spinifex:
  775. Xprintf("The thorns on the spinifex are large and nasty.\n") ;
  776. Xprintf("I'll just leave them to roll about.\n") ;
  777. X                return ;
  778. X            } /* end of switch block */
  779. X        } /* end of nonmovable object block */ 
  780. X
  781. X        /* see if taking the object causes special action */
  782. X        if (object[i][J_type] == Z_transform) {
  783. X            switch(object[i][J_parse_id]) {
  784. X            /* ACME doormat */
  785. X            case V_mat:
  786. Xprintf("As you lift up the dirty old doormat, you find half \n") ;
  787. Xprintf("hidden in the dust....  a large brass key. \n") ;
  788. X                object[O_mat][J_type] = Z_normal ;
  789. X                carry_count++ ;
  790. X                carry_weight += object[O_mat][J_weight];
  791. X                object[O_mat][J_loc]= B_have;
  792. X                object[O_key][J_loc]=R_office_entr ;
  793. X                sw_done = TRUE ;
  794. X                return ;
  795. X
  796. X            /* Map of the ACME Mine */
  797. X            case V_map:
  798. Xprintf("As you picked up the old map from the floor, most of it");
  799. Xprintf(" crumbled into \ndust leaving only one small piece. \n") ;
  800. X                object[O_map][J_loc] = B_unmade ;
  801. X                object[O_map_frag][J_loc] = B_have ;
  802. X                carry_count++ ;
  803. X            carry_weight += object[O_map_frag][J_weight] ;
  804. X                --room[n][M_obj_cnt] ;
  805. X                sw_done = TRUE ;
  806. X                return ;
  807. X            }
  808. X        } /* end of the special action block */ 
  809. X    } 
  810. X} /* end of the object scan loop */
  811. X
  812. X/* take all gleeps if any */
  813. Xif (tag[V_all]&&(!tag[V_treasure])) {
  814. X    if (room[n][M_gleep] > 0) { 
  815. X        gleep_count += room[n][M_gleep] ;
  816. X        room[n][M_gleep] = 0 ;
  817. X        sw_done = TRUE ;
  818. X    }
  819. X    if ((gleep_safe != 0)&&(n == R_office_mang)&&
  820. X        (room[R_office_mang][M_rm_status] == S_open)) {
  821. X        gleep_count +=  gleep_safe ;
  822. X        gleep_safe = 0 ;
  823. X        sw_done = TRUE ;
  824. X    }
  825. X}
  826. X
  827. X/* Announce the "take" was successful */
  828. Xif (sw_done) {
  829. X    if (((carry_count > 5)||(carry_weight >= 800))&&(tag[V_all])) 
  830. X        printf("You've taken as much as you can.\n") ;
  831. X    else printf ("Done \n");
  832. X}
  833. X/* --or-- announce the "take" was unsuccessful */
  834. Xelse  {
  835. X    if (tag[V_all]) printf("I see nothing which I can take.\n") ;
  836. X    else { 
  837. X        if (tag[V_VERB_ONLY]) 
  838. X            printf("What exactly should I take?\n") ;
  839. X        else {
  840. X            printf ("I don't see a") ;
  841. X            if (tag[V_PLURAL]) printf("ny") ;
  842. X            printf (" %s around here. \n",vocab[sent[1]-1]);
  843. X        }
  844. X    }
  845. X}
  846. Xreturn ;
  847. X
  848. X} /* --- end of the "taker" subroutine --- */
  849. X
  850. Xvoid loader()
  851. X/*********************************************************/
  852. X/*                                                       */
  853. X/*           --- Rifle Loading Subroutine ---            */
  854. X/*                                                       */
  855. X/*      Program by Gary A. Allen, Jr.  29 April 1990     */
  856. X/*        (c) Copywrite 1990 by Gary A. Allen, Jr.       */
  857. X/*                                                       */
  858. X/*********************************************************/
  859. X{
  860. X
  861. X#ifdef __TURBOC__
  862. Xvoid clip_in(int) ;
  863. X#endif
  864. X
  865. Xint ammo_flag ;
  866. X
  867. X/* Reject single verb load command */
  868. Xif (tag[V_VERB_ONLY]) {
  869. Xprintf("What exactly do you want me to load?\n") ;
  870. X    return ;
  871. X}
  872. Xif (!tag[V_rifle]) {
  873. Xprintf("I don't know how I could load that.\n") ;
  874. X    return ;
  875. X}
  876. X
  877. X/* Deal with implied clip type command */
  878. Xif (!tag[V_clip]) {
  879. Xif ((object[O_clip][J_loc] != B_have)&&
  880. X    (object[O_org_clip][J_loc] == B_have)) ammo_flag = F_org_clip ;
  881. Xif ((object[O_clip][J_loc] == B_have)&&
  882. X     (object[O_org_clip][J_loc] != B_have)) ammo_flag = F_normal_clip ;
  883. X    /* the case were there is no clip is found in clip_in */
  884. X}
  885. X
  886. X/* Deal with specific "load [orange] clip" command */
  887. Xelse {
  888. X    if (tag[V_orange]) {
  889. X        if (object[O_org_clip][J_loc] == B_have) 
  890. X            ammo_flag = F_org_clip ;
  891. X        else {
  892. Xprintf("You don't possess the orange ammunition clip.\n") ;
  893. X            return ;
  894. X        }
  895. X    }
  896. X    else {
  897. X        if (object[O_clip][J_loc] == B_have)
  898. X            ammo_flag = F_normal_clip ;
  899. X
  900. X/* assume "load clip" with no normal clip implies orange clip */
  901. X        else {
  902. X            if (object[O_org_clip][J_loc] == B_have) 
  903. X                ammo_flag = F_org_clip ;
  904. X            else{
  905. Xprintf("You don't possess an ammunition clip to load.\n") ;
  906. X                return ;
  907. X            }
  908. X        }
  909. X    }
  910. X}
  911. X
  912. Xclip_in(ammo_flag) ;
  913. X} /* --- end of the "loader" subroutine --- */
  914. X
  915. Xvoid unloader(n)
  916. X/*********************************************************/
  917. X/*                                                       */
  918. X/*          --- Rifle Unloading Subroutine ---           */
  919. X/*                                                       */
  920. X/*      Program by Gary A. Allen, Jr.  29 April 1990     */
  921. X/*        (c) Copywrite 1990 by Gary A. Allen, Jr.       */
  922. X/*                                                       */
  923. X/*********************************************************/
  924. Xint n ;
  925. X{
  926. X#ifdef __TURBOC__
  927. Xvoid clip_out(int) ;
  928. X#endif
  929. X
  930. X/* Reject single verb load command */
  931. Xif (tag[V_VERB_ONLY]) {
  932. Xprintf("What exactly do you want me to unload?\n") ;
  933. X    return ;
  934. X}
  935. Xif (!tag[V_rifle]) {
  936. Xprintf("I don't know how I could unload that.\n") ;
  937. X    return ;
  938. X}
  939. Xclip_out(n) ;
  940. X} /* --- end of the "unloader" subroutine --- */
  941. X
  942. Xvoid dropper(n)
  943. X/*********************************************************/
  944. X/*                                                       */
  945. X/*          --- Object Dropping Subroutine ---           */
  946. X/*                                                       */
  947. X/*      Program by Gary A. Allen, Jr.  21 May 1990       */
  948. X/*        (c) Copywrite 1990 by Gary A. Allen, Jr.       */
  949. X/*                                                       */
  950. X/*********************************************************/
  951. Xint n ;
  952. X{
  953. X#ifdef __TURBOC__
  954. Xvoid clip_in(int), clip_out(int), boom(void) ;
  955. Xvoid objlooker(int), gleeper(int), unlocker(int) ;
  956. X#endif
  957. X
  958. Xregister int i, k ;
  959. Xint sw_possess, sw_done, ammo_flag, sw_object, i_10, i_fract, sw_shot ;
  960. X
  961. X/* respond to "verb only" command */
  962. Xif (tag[V_VERB_ONLY]) {
  963. X    printf ("You'll have to be more specific. \n");
  964. X    return ;
  965. X}
  966. X
  967. X/* deal with special case of "orange clip" implied by its being alone */
  968. Xif (tag[V_clip]&&(object[O_clip][J_loc] != B_have)&&
  969. X    (clip_flag != F_normal_clip)&&
  970. X   ((object[O_org_clip][J_loc] == B_have)||(clip_flag == F_org_clip))) {
  971. X    tag[V_org_clip] = TRUE ;
  972. X    tag[V_clip] = FALSE ;
  973. X    if (V_clip == sent[1]) sent[1] = V_org_clip ;
  974. X}
  975. X
  976. Xammo_flag = F_no_clip ;
  977. Xif (tag[V_clip])  ammo_flag = F_normal_clip ;
  978. Xif (tag[V_org_clip])  ammo_flag = F_org_clip ;
  979. X
  980. X/* deal with special cases of the verbs */
  981. Xswitch(verb) {
  982. Xcase V_put:
  983. X    /* special case of putting (destroying) an object in water */
  984. X    if (tag[V_tank]||tag[V_gleep]||tag[V_safe]||
  985. X        tag[V_river]||tag[V_billabong]||tag[V_stream]) break ;
  986. X
  987. X    /* special case of "put key in door(lock)" */
  988. X    if (tag[V_key] && tag[V_door]) {
  989. X        unlocker(n) ;
  990. X        return ;
  991. X    }
  992. X
  993. X    if (!tag[V_cap]) {
  994. X        if ((!tag[V_rifle])&&(ammo_flag != F_no_clip)) {
  995. X            printf("What am I to put the clip into? \n") ;
  996. X            return ;
  997. X        }
  998. X        if (tag[V_rifle]&&(ammo_flag != F_no_clip))  
  999. X                clip_in(ammo_flag) ;
  1000. X        else 
  1001. Xprintf("I don't understand what this is to be put into. \n") ;
  1002. X        return ;
  1003. X    }
  1004. X
  1005. Xcase V_insert:
  1006. X    if (tag[V_safe]) break ;
  1007. X    if (ammo_flag != F_no_clip) {
  1008. X        if (!tag[V_rifle]) {
  1009. Xprintf("What am I to insert the clip into? \n") ;
  1010. X        }
  1011. X        else {
  1012. X            clip_in(ammo_flag) ;
  1013. X        }
  1014. X        return ;
  1015. X    }
  1016. X    if (tag[V_cap]) {
  1017. X        if (!tag[V_dynamite]) {
  1018. Xprintf("I see no reason why I should put a blasting cap into that.\n") ;
  1019. X            return ;
  1020. X        }
  1021. X        else goto cap_in ;
  1022. X    }
  1023. Xprintf("I can think of some interesing places to insert this. \n") ;
  1024. Xprintf("However I shall not reduce myself to such vulgarity.\n");
  1025. X    return ;
  1026. X    
  1027. Xcase V_eject:
  1028. X/* Command "eject clip" ejects clip from rifle no matter what type*/
  1029. X    if ((ammo_flag == F_normal_clip)&&(clip_flag == F_org_clip)) 
  1030. X        ammo_flag = F_org_clip ; 
  1031. Xcase V_drop:
  1032. X    if (((ammo_flag == F_org_clip)&&(clip_flag == F_org_clip))|| 
  1033. X    ((ammo_flag == F_normal_clip)&&(clip_flag == F_normal_clip))) { 
  1034. X        clip_out(n) ;
  1035. X        return ;
  1036. X    }
  1037. X    break ;
  1038. X
  1039. X} /* end of switch */
  1040. X
  1041. X/* Deal with "drop" when user has no objects */
  1042. Xif (tag[V_all]&&(carry_count == 0)&&(gleep_count == 0)) {
  1043. X    printf("You dill!  You have nothing to drop!\n") ;
  1044. X    return ;
  1045. X}
  1046. X
  1047. X/* deal with "drop in safe ..." errors */
  1048. Xif (tag[V_safe]) {
  1049. X/* see if this is the managers office */
  1050. X    if (n != R_office_mang) {        
  1051. X        printf("There is no safe here! \n");
  1052. X        return ;
  1053. X    }
  1054. X/* See if the safe is open */
  1055. X    if (room[R_office_mang][M_rm_status] != S_open) {
  1056. X        printf ("I can't do it!  The safe is closed. \n");
  1057. X        return ;
  1058. X    }
  1059. X}
  1060. X 
  1061. X/* gleep droping routine */
  1062. Xif (tag[V_gleep]||tag[V_tank]) {
  1063. X    /* drop gleeps in a normal way */
  1064. X    if (!tag[V_tank]) {
  1065. X        if (gleep_count == 0) { 
  1066. X            printf("You have no gleeps to drop! \n") ;
  1067. X            return ;
  1068. X        }
  1069. X        if ((!tag[V_PLURAL])||(gleep_count == 1)) {
  1070. X            if (tag[V_safe]) {
  1071. X                printf("Gleep put into safe.\n") ;
  1072. X                ++gleep_safe ;
  1073. X                --gleep_count ;
  1074. X            }
  1075. X            else {
  1076. X                printf("Gleep dropped. \n") ; 
  1077. X                --gleep_count ;
  1078. X                ++room[n][M_gleep] ;
  1079. X            }
  1080. X        }
  1081. X        else {
  1082. X            if (tag[V_safe]) {
  1083. X                printf("Gleeps put into safe.\n") ;
  1084. X                gleep_safe += gleep_count ;
  1085. X                gleep_count = 0 ;
  1086. X            }
  1087. X            else {
  1088. X                printf("Gleeps dropped. \n") ; 
  1089. X                room[n][M_gleep] += gleep_count ;
  1090. X                gleep_count = 0 ;
  1091. X            }
  1092. X        }
  1093. X        gleep_drop = TRUE ;
  1094. X        return ;
  1095. X    }
  1096. X    /* drop objects(including gleeps) into a gleep tank */
  1097. X    else {
  1098. X        if (n != R_gleep_tank) {
  1099. X            printf("I don't see a gleep tank here. \n") ;
  1100. X            return ;
  1101. X        }
  1102. X        if (tag[V_gleep]) {
  1103. X            if (gleep_count <= 0) {
  1104. Xprintf("You have no gleeps to put in the tank. \n") ; 
  1105. X                return ;
  1106. X            }
  1107. X            if ((!tag[V_PLURAL])||(gleep_count == 1)) {
  1108. Xprintf("Your gleep falls into the tank with a \"plonk\".\n") ;
  1109. X                ++gleep_score ;
  1110. X                --gleep_count ;
  1111. X            }
  1112. X            if (tag[V_PLURAL]&&(gleep_count > 1)) {
  1113. Xprintf("Your gleeps fall into the tank causing a splash.\n") ;
  1114. X                gleep_score += gleep_count ;
  1115. X                gleep_count = 0 ;
  1116. X            }
  1117. X        }
  1118. X        /* drop non-gleeps into the tank */
  1119. X
  1120. X        /* the "drop all" routine */
  1121. X        if (tag[V_all]) {
  1122. X            sw_possess = FALSE ;
  1123. X            for (i = 0; i <= objcnt; i++) {
  1124. X                if ((object[i][J_loc] == B_have)&&
  1125. X                    ((!tag[V_treasure])||
  1126. X                    (object[i][J_value] > 0))) {
  1127. X                    sw_possess = TRUE ;
  1128. X                    object[i][J_loc] = B_destroyed; 
  1129. X                    carry_count-- ;
  1130. X                carry_weight -= object[i][J_weight] ;
  1131. X                }
  1132. X            }
  1133. X            if (gleep_count == 0) {
  1134. X                if (sw_possess) {
  1135. Xprintf("You dump everything into the gleep tank. There is a furious\n");
  1136. Xprintf("bubbling as the corrosive fluid of the tank turns the\n");
  1137. Xprintf("objects into NOTHING.\n") ;
  1138. X                }
  1139. X                else 
  1140. Xprintf("You've got nothing to throw into the tank.\n") ;
  1141. X            }
  1142. X            else {
  1143. X                if (sw_possess) {
  1144. Xprintf("You fling everything into the gleep tank.  The gleep");
  1145. X                if (gleep_count > 1) {
  1146. Xprintf("s\nsplash into the tank and settle to the bottom of the\n") ;
  1147. X                }
  1148. X                else {
  1149. Xprintf("\nplonks into the tank and settles to the bottom of the\n") ;
  1150. X                }
  1151. Xprintf("tank.  However the other objects begin to dissolve the\n");
  1152. Xprintf("moment the tank's fluid touches them.  Time passes and\n");
  1153. Xprintf("the objects dissolve into NOTHING.\n") ;
  1154. X                }
  1155. X                /* you possess no non-gleeps */
  1156. X                else {
  1157. X                if (gleep_count == 1) 
  1158. Xprintf("Your gleep falls into the tank with a \"plonk\".\n") ;
  1159. X                else
  1160. Xprintf("Your gleeps fall into the tank causing a splash.\n") ;
  1161. X                }
  1162. X            gleep_score += gleep_count ;
  1163. X            gleep_count = 0 ;
  1164. X            return ;
  1165. X            }
  1166. X        } /* end of the "drop all" if block */
  1167. X        /* Individual non-gleeps are dropped into the tank */
  1168. X
  1169. X        /* see if your are holding the object(s) */
  1170. X        for (i=0; i <= objcnt; i++) {
  1171. X             if (tag[object[i][J_parse_id]]) {
  1172. X                if (object[i][J_loc]== B_have) {
  1173. Xprintf ("You fling the %s into the gleep tank.  As soon as it\n",
  1174. X    vocab[object[i][J_parse_id]-1]);
  1175. Xprintf ("touched the tank's fluid there was a furious effervescence\n");
  1176. Xprintf ("as it began to dissolve.  With the passage of time, the\n") ;
  1177. Xprintf ("fluid stills and there is NOTHING left.\n") ;
  1178. X                    carry_count-- ;
  1179. X                carry_weight -= object[i][J_weight] ;
  1180. X                    object[i][J_loc] = B_destroyed; 
  1181. X                    return ;
  1182. X                }
  1183. X                else {
  1184. Xprintf("You don't have a %s to toss into the gleep tank.\n",
  1185. X    vocab[object[i][J_parse_id]-1]);
  1186. X                    return ;
  1187. X                }
  1188. X            }
  1189. X        } /* object scan "for" loop */
  1190. X        return ;
  1191. X    }
  1192. X}
  1193. X
  1194. Xsw_done = FALSE ;
  1195. X
  1196. X/* the "drop all" routine */
  1197. Xif (tag[V_all]) {
  1198. X
  1199. X    /* Deal with throwing stuff into water */
  1200. X    if(tag[V_stream]) {
  1201. X        if (n == R_stream) {
  1202. Xprintf("You fling everything into the stream.\n");
  1203. X            goto destroy_all ;
  1204. X        }
  1205. X        else
  1206. Xprintf("I see no stream to toss stuff into.\n") ;
  1207. X        return ;
  1208. X    }
  1209. X    if(tag[V_billabong]) {
  1210. X        if ((n == R_stream)||(n == R_slime)||
  1211. X            (n == R_billabong)) { 
  1212. Xprintf("You fling everything into the billabong.\n");
  1213. X            goto destroy_all ;
  1214. X        }
  1215. X        else
  1216. Xprintf("I see no billabong to toss stuff into.\n") ;
  1217. X        return ;
  1218. X    }
  1219. X    if(tag[V_river]) {
  1220. X        if ((n == R_dike)||(n == R_river_edge)||
  1221. X            (n == R_river_exit)) {
  1222. Xprintf("You fling everything into the river.\n");
  1223. X            goto destroy_all ;
  1224. X        }
  1225. X        else
  1226. Xprintf("I see no river to toss stuff into.\n") ;
  1227. X        return ;
  1228. X    }
  1229. X
  1230. X    if (!tag[V_safe]) {
  1231. X        /* normal drop */
  1232. X        if (room[n][M_rm_type] != T_looping) {
  1233. X            /* normal room */
  1234. X            for (i = 0; i <= objcnt; i++) {
  1235. X                if ((object[i][J_loc] == B_have)&&
  1236. X                    ((!tag[V_treasure])||
  1237. X                    (object[i][J_value] > 0))) {
  1238. X
  1239. X                    sw_done = TRUE ;
  1240. X
  1241. X/* see if the blasting cap was hard dropped */
  1242. Xif ((i == O_cap)&&(verb != V_slow_drop)) {
  1243. Xcap_drop:
  1244. Xprintf("Bang!! The blasting cap you were carrying detonated when\n") ;
  1245. Xprintf("it hit the ground.  Fortunately no damage was caused.\n") ;  
  1246. X    object[O_cap][J_loc] = B_destroyed; 
  1247. X    carry_count-- ;
  1248. X    carry_weight -= object[O_cap][J_weight] ;
  1249. X    return ;
  1250. X}
  1251. X
  1252. X/* see if the dynamite with blasting cap was hard dropped */
  1253. Xif ((i == O_dynamite)&&(object[O_dynamite][J_type] == Z_alias)&&
  1254. X    (verb != V_slow_drop)) {
  1255. Xdynamite_drop:
  1256. X    boom () ;
  1257. Xprintf("Dropping a stick of dynamite with a blasting cap in it\n");
  1258. Xprintf("ranks high as one of the dumbest things a person can do.\n") ;
  1259. Xprintf("Needless to say you were blown to bits.\n") ;
  1260. X    ender(F_died) ;
  1261. X}
  1262. X                    ++room[n][M_obj_cnt] ;
  1263. X                    carry_count-- ;
  1264. X                carry_weight -= object[i][J_weight] ;
  1265. X                    object[i][J_loc] = n; 
  1266. X/* set valuable switch if valuable object dropped in Ned's area */
  1267. X                    if (object[i][J_value] > 0) {
  1268. X                    for (k = 22; k <= 41; k++) 
  1269. X                    if (k == n) sw_valuable = TRUE;
  1270. X                    for (k = 144; k <= 146; k++) 
  1271. X                     if (k == n) sw_valuable = TRUE;
  1272. X                    }
  1273. X                }
  1274. X            }
  1275. X            /* drop all gleeps */
  1276. X            if ((gleep_count > 0)&&
  1277. X                    (!tag[V_treasure])) {
  1278. X                room[n][M_gleep] += gleep_count ;
  1279. X                gleep_count = 0 ;
  1280. X                sw_done = TRUE ;
  1281. X                gleep_drop = TRUE ;
  1282. X            }
  1283. X
  1284. X            if (sw_done) {
  1285. X                printf ("Done\n");
  1286. X                objlooker(n) ;
  1287. X                gleeper(n) ; 
  1288. X            } 
  1289. X            else printf("Don't have it to drop.\n") ;
  1290. X            return ;
  1291. X        }
  1292. X        /* object destroyer room */
  1293. X        else {
  1294. X        /* Code assumes that user has something to drop */
  1295. Xprintf ("You dropped everything you had in a heap, which \n");
  1296. Xprintf ("promptly vaporized into a bright blue flash followed \n");
  1297. Xprintf ("by a low \"BOOM\". \n") ; 
  1298. Xprintf ("       --- You've blown it Bozo!! ---\n") ;
  1299. Xdestroy_all:
  1300. X            gleep_count = 0 ;
  1301. X            carry_count = 0 ;
  1302. X            carry_weight = 0 ;
  1303. X            for (i = 0; i <= objcnt; i++) {
  1304. X                if (object[i][J_loc] == B_have) 
  1305. X                    object[i][J_loc] = B_destroyed; 
  1306. X            }
  1307. X            return ;
  1308. X        }
  1309. X    }
  1310. X    /* "drop all into the safe" routine */
  1311. X    else {
  1312. X        for (i = 0; i <= objcnt; i++) {
  1313. X            if ((object[i][J_loc] == B_have) &&
  1314. X                ((!tag[V_treasure])||
  1315. X                (object[i][J_value] > 0))) {
  1316. X                object[i][J_loc] = B_in_safe ;    
  1317. X                carry_count-- ;
  1318. X                carry_weight -= object[i][J_weight] ;
  1319. X                sw_done = TRUE ;
  1320. X            }
  1321. X        }
  1322. X        if (!tag[V_treasure]) {
  1323. X            gleep_safe += gleep_count ;
  1324. X            gleep_count = 0 ;
  1325. X            sw_done = TRUE ;
  1326. X        }
  1327. X        if (sw_done) printf ("Done \n");
  1328. X        else printf("You don't have it to put in the safe!\n") ;
  1329. X        return ;
  1330. X    }
  1331. X}
  1332. X
  1333. X/* see if your are holding the object(s) */
  1334. Xfor (i=0; i <= objcnt; i++) {
  1335. X    sw_object = FALSE ;
  1336. X    if (tag[object[i][J_parse_id]]) {
  1337. X        sw_object = TRUE ;
  1338. X         if (object[i][J_loc] == B_have) {
  1339. X            /* Safe storage routine */
  1340. X            if (tag[V_safe]) {
  1341. X                object[i][J_loc] = B_in_safe ;    
  1342. Xprintf ("The %s is now inside the safe. \n", 
  1343. X    vocab[object[i][J_parse_id]-1]);
  1344. X                sw_done = TRUE ;
  1345. X                carry_count-- ;
  1346. X                carry_weight -= object[i][J_weight] ;
  1347. X                continue ;
  1348. X            }
  1349. X 
  1350. X            /* Single 'drop' routine */
  1351. X            if (tag[V_river]||tag[V_billabong]||
  1352. X                tag[V_stream]) {
  1353. X        /* The object is to be dropped in water */
  1354. X                if(tag[V_stream]) {
  1355. X                    if (n == R_stream) {
  1356. Xprintf("You fling the %s into the stream.\n", 
  1357. X    vocab[object[i][J_parse_id]-1]);
  1358. X                    carry_count-- ;
  1359. X                carry_weight -= object[i][J_weight] ;
  1360. X                    object[i][J_loc] = B_destroyed; 
  1361. X                    return ;
  1362. X                    }
  1363. X                    else
  1364. Xprintf("I see no stream to toss it into.\n") ;
  1365. X                    return ;
  1366. X                }
  1367. X            if(tag[V_billabong]) {
  1368. X                if ((n == R_stream)||
  1369. X                (n == R_slime)||(n == R_billabong)) { 
  1370. Xprintf("You fling the %s into the billabong.\n",
  1371. X    vocab[object[i][J_parse_id]-1]);
  1372. X                    carry_count-- ;
  1373. X                carry_weight -= object[i][J_weight] ;
  1374. X                    object[i][J_loc] = B_destroyed; 
  1375. X                    return ;
  1376. X                }
  1377. X                else
  1378. Xprintf("I see no billabong to toss it into.\n") ;
  1379. X                return ;
  1380. X            }
  1381. X            if(tag[V_river]) {
  1382. X                if ((n == R_dike)||(n == R_river_edge)||
  1383. X                    (n == R_river_exit)) {
  1384. Xprintf("You fling the %s into the river.\n", 
  1385. X    vocab[object[i][J_parse_id]-1]);
  1386. X                    carry_count-- ;
  1387. X                carry_weight -= object[i][J_weight] ;
  1388. X                    object[i][J_loc] = B_destroyed; 
  1389. X                    return ;
  1390. X                }
  1391. X                else
  1392. Xprintf("I see no river to toss it into.\n") ;
  1393. X                return ;
  1394. X            }
  1395. X        }
  1396. X        /* Normal Drop */
  1397. X        else if (room[n][M_rm_type] != T_looping) {
  1398. X            if ((i == O_cap)&&(verb != V_slow_drop)) 
  1399. X                goto cap_drop ;
  1400. X            if ((i==O_dynamite)&&(verb != V_slow_drop)&&
  1401. X            (object[O_dynamite][J_type] == Z_alias)) 
  1402. X                goto dynamite_drop ;
  1403. X
  1404. X/* If the he rifle is dropped.  See if it kills the player */
  1405. Xif (i==O_rifle) {
  1406. X    sw_shot = FALSE ;
  1407. X    if ((clip_flag != F_no_clip) && 
  1408. X(object[O_rifle][J_property] > 0)) switch(rifle_flag) {
  1409. X    case F_safety:
  1410. X        break ;
  1411. X            
  1412. X    case F_single:
  1413. X        printf("\nBam!\n\n") ;
  1414. X        sw_shot = TRUE ;
  1415. X        break ;
  1416. X
  1417. X    case F_triple:
  1418. X        printf("\n") ;
  1419. X        if (object[O_rifle][J_property] >= 3) {
  1420. X            printf("Bam! Bam! Bam! \n\n") ;
  1421. X        }
  1422. X        else {
  1423. X        for (i = 1; i <= object[O_rifle][J_property]; i++) 
  1424. X            printf("Bam! ") ;
  1425. X        }
  1426. X        printf("\n") ;
  1427. X        sw_shot = TRUE ;
  1428. X        break ;
  1429. X
  1430. X    case F_auto:
  1431. X        printf("\n") ;
  1432. X        if (object[O_rifle][J_property] >= 30) {
  1433. X            for (i = 1; i <= 3; i++) 
  1434. Xprintf("Bam! Bam! Bam! Bam! Bam! Bam! Bam! Bam! Bam! Bam! \n") ;
  1435. X        }
  1436. X        else {
  1437. X            i_10 = object[O_rifle][J_property]/10 ;
  1438. X        i_fract = object[O_rifle][J_property]-(i_10*10) ;
  1439. X            for (i = 1; i <= i_10; i++) 
  1440. Xprintf("Bam! Bam! Bam! Bam! Bam! Bam! Bam! Bam! Bam! Bam! \n") ;
  1441. X            for (i = 1; i <= i_fract; i++) 
  1442. X                printf("Bam! ") ;
  1443. X        }
  1444. X        printf("\n") ;
  1445. X        sw_shot = TRUE ;
  1446. X        break ;
  1447. X    } /* end of the switch block */
  1448. X
  1449. X    if (sw_shot) {
  1450. Xprintf("Dropping a loaded and armed automatic rifle is a stupid way\n");
  1451. X        if ((object[O_rifle][J_property] == 1) || 
  1452. X            (rifle_flag == F_single)) {
  1453. Xprintf("to commit suicide.  Needless to say you were hit by the\n") ;
  1454. Xprintf("bullet after the rifle went off.\n") ;
  1455. X        }
  1456. X        else {
  1457. Xprintf("to commit suicide.  The bullets shot from the rifle fly\n") ;
  1458. Xprintf("around.  One of them bounces back and hits you!\n") ;
  1459. X        }
  1460. X        ender(F_died) ;
  1461. X    }
  1462. X} /* end of "drop rifle" block */
  1463. X
  1464. X            carry_count-- ;
  1465. X            carry_weight -= object[i][J_weight] ;
  1466. X            ++room[n][M_obj_cnt] ;
  1467. X            object[i][J_loc] = n; 
  1468. X            sw_done = TRUE ;
  1469. X/* set valuable switch if valuable object dropped in Ned's area */
  1470. X            if (object[i][J_value] > 0) {
  1471. X                for (k = 22; k <= 41; k++) 
  1472. X                    if (k == n) sw_valuable = TRUE ;
  1473. X                for (k = 144; k <= 146; k++) 
  1474. X                    if (k == n) sw_valuable = TRUE ;
  1475. X            }
  1476. X            continue ;
  1477. X        }
  1478. X        else {
  1479. Xprintf ("As the %s left your possession there was a bright \n",
  1480. X    vocab[object[i][J_parse_id]-1]);
  1481. Xprintf ("blue flash, followed by a low \"BOOM\" as it vaporized \n");
  1482. Xprintf ("into nonexistence. \n");
  1483. X            carry_count-- ;
  1484. X            carry_weight -= object[i][J_weight] ;
  1485. X            object[i][J_loc] = B_destroyed; 
  1486. X            return ;
  1487. X        }
  1488. X        }
  1489. X         if (object[i][J_loc] == B_unmade) continue ;
  1490. X    } /* end of the object requested block */
  1491. X    if ((!sw_done)&&sw_object) {
  1492. Xprintf("You do not possess a %s.\n", vocab[object[i][J_parse_id]-1]);
  1493. X        return ;
  1494. X    }
  1495. X} /* end of the object scan loop */
  1496. Xif (sw_done) {
  1497. X    printf ("Done \n");
  1498. X    objlooker(n) ;
  1499. X    gleeper(n) ; 
  1500. X} 
  1501. Xelse 
  1502. Xprintf("I don't understand what it is I'm supposed to drop.\n") ;
  1503. X
  1504. Xreturn ;
  1505. X
  1506. X/* cap insertion routine */
  1507. Xcap_in:
  1508. X/* see if your are holding the dynamite or the cap */
  1509. X    if ((object[O_cap][J_loc] != B_have)&&
  1510. X        (object[O_dynamite][J_loc] != B_have)) {
  1511. Xprintf("You bloody dill!  You have neither the dynamite or a ");
  1512. Xprintf("blasting cap.\n") ;
  1513. X        return ;
  1514. X    }
  1515. X    if (object[O_cap][J_loc] != B_have) {
  1516. Xprintf("You've got the dynamite but you need a blasing cap.\n") ;
  1517. X        return ;
  1518. X    }
  1519. X    if (object[O_dynamite][J_loc] != B_have) {
  1520. Xprintf("You've got the blasting cap but you need some dynamite.\n") ;
  1521. X        return ;
  1522. X    }
  1523. X/* transform the two objects into one */
  1524. Xprintf("With some trepidation, you slide the blasting cap into\n");
  1525. Xprintf("the dynamite.  What you are now holding is VERY dangerous.\n");
  1526. X    object[O_cap][J_loc] = B_unmade ; 
  1527. X    object[O_dynamite][J_type] = Z_alias ;
  1528. X    carry_weight -= object[O_cap][J_weight] ;
  1529. X    carry_count-- ;
  1530. X
  1531. X} /* --- end of the "dropper" subroutine --- */
  1532. END_OF_FILE
  1533. if test 28165 -ne `wc -c <'taker.c'`; then
  1534.     echo shar: \"'taker.c'\" unpacked with wrong size!
  1535. fi
  1536. # end of 'taker.c'
  1537. fi
  1538. echo shar: End of archive 3 \(of 6\).
  1539. cp /dev/null ark3isdone
  1540. MISSING=""
  1541. for I in 1 2 3 4 5 6 ; do
  1542.     if test ! -f ark${I}isdone ; then
  1543.     MISSING="${MISSING} ${I}"
  1544.     fi
  1545. done
  1546. if test "${MISSING}" = "" ; then
  1547.     echo You have unpacked all 6 archives.
  1548.     rm -f ark[1-9]isdone
  1549. else
  1550.     echo You still need to unpack the following archives:
  1551.     echo "        " ${MISSING}
  1552. fi
  1553. ##  End of shell archive.
  1554. exit 0
  1555.