home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / volume15 / dinkum2 / part05 < prev    next >
Encoding:
Internet Message Format  |  1993-01-26  |  52.4 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: v15i040:  dinkum2 - australian text adventure game, Part05/07
  5. Message-ID: <4196@master.CNA.TEK.COM>
  6. Date: 14 Jan 93 03:26:08 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 1479
  9. Approved: billr@saab.CNA.TEK.COM
  10. Xref: uunet comp.sources.games:1539
  11.  
  12. Submitted-by: Gary Allen <gary@sun.mech.uq.oz.au>
  13. Posting-number: Volume 15, Issue 40
  14. Archive-name: dinkum2/Part05
  15. Supersedes: dinkum: Volume 15, Issue 21-26
  16. Environment: Unix, DOS
  17.  
  18.  
  19.  
  20. #! /bin/sh
  21. # This is a shell archive.  Remove anything before this line, then unpack
  22. # it by saving it into a file and typing "sh file".  To overwrite existing
  23. # files, type "sh file -c".  You can also feed this as standard input via
  24. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  25. # will see the following message at the end:
  26. #        "End of archive 5 (of 7)."
  27. # Contents:  longdsc.c opener.c
  28. # Wrapped by billr@saab on Wed Jan 13 19:20:19 1993
  29. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  30. if test -f 'longdsc.c' -a "${1}" != "-c" ; then 
  31.   echo shar: Will not clobber existing file \"'longdsc.c'\"
  32. else
  33. echo shar: Extracting \"'longdsc.c'\" \(23440 characters\)
  34. sed "s/^X//" >'longdsc.c' <<'END_OF_FILE'
  35. X#define LONG_DESCP
  36. X#include "dink_sym.h"
  37. X#include "dink_glb.h"
  38. X
  39. Xvoid long_descp(n)
  40. X/*********************************************************************/
  41. X/*                                                                   */
  42. X/*               --- Long Description Subroutine ---                 */
  43. X/*                                                                   */
  44. X/* Software by Gary A. Allen, Jr. 23 December 1992  Version: Mk 2.0  */
  45. X/*            (c) Copyright 1992 by Gary A. Allen, Jr.               */
  46. X/*                                                                   */
  47. X/*********************************************************************/
  48. X
  49. Xint n ;
  50. X{
  51. Xstatic int sw_bend = TRUE, sw_mob = TRUE ;
  52. X
  53. X#if (PROTOTYPE)
  54. Xvoid boom(void), describe(int), ender(int) ;
  55. X#endif
  56. X
  57. Xif (((object[O_torch][J_loc] == B_have)&&object[O_torch][J_property])|| 
  58. X    (n < 186)||(n > 202)) { 
  59. X
  60. X/* See if player entered the killing passage in the end game */
  61. Xif ((n >= 218)&&(n <= 227)) {
  62. Xprintf("As you're walking down the passage you feel the slight\n") ;
  63. Xprintf("tug of a trip wire on your leg.  Out the corner of your\n");
  64. Xprintf("eye you see the trip wire is connected to an olive green\n") ;
  65. Xprintf("cylinder attached to the wall of the tunnel....\n\n") ;
  66. Xboom() ;
  67. Xprintf("\nIn case you're wondering that was a booby trap which you\n") ;
  68. Xprintf("set off!\n") ;
  69. Xender(F_died) ;
  70. X}
  71. X
  72. X/* Select individual rooms */
  73. Xswitch (n) {
  74. Xcase R_river:      /* drowing in the river description */
  75. Xprintf ("As you approach the edge of the dike, there is a small\n");
  76. Xprintf ("earth slide which pitches you into the river.  You\n");
  77. Xprintf ("flounder around in the water for a short while.  Luckily\n");
  78. Xprintf ("before you have the chance to drown, a crocodile pulls\n") ;
  79. Xprintf ("you under, bringing you to a rather quick though painful\n");
  80. Xprintf ("end. \n") ;
  81. Xreturn ;
  82. X
  83. Xcase R_bunyip:      /* getting eaten by the bunyip */
  84. Xprintf ("The slimey tentacle suddenly tightens around your leg, and\n");
  85. Xprintf ("the water in the billabong starts to churn furiously. Then\n");
  86. Xprintf ("surfaces the one thing that all Australians fear the most...");
  87. Xprintf ("\n\nBefore you stands an enormous sickly green Queensland\n") ;
  88. Xprintf ("Bunyip in all its awesome horror. It does not make a quick\n");
  89. Xprintf ("end of you....  Such is not the way of Bunyips.  First it \n");
  90. Xprintf ("peels off your skin as if you where a banana.  After much\n");
  91. Xprintf ("fearful agony, comes release as you pass into death.\n");
  92. Xreturn ;
  93. X
  94. Xcase R_road_kill_n:  /* getting run over by a road train */
  95. Xcase R_road_kill_s: 
  96. Xprintf("The distant rumble becomes a loud roar.  Suddenly a huge Mack\n") ;
  97. Xprintf("truck pulling three carriages packed with cattle leaps over the\n") ;
  98. Xprintf("low rise, filling the narrow country road.  You stand terrified\n") ;
  99. Xprintf("in the middle of the road with the metal monster bearing down\n") ;
  100. Xprintf("at 120 km/hr.  The last thing you see before being flattened\n") ;
  101. Xprintf("like a cockroach is a sign on the truck's roo bar saying:\n") ;
  102. Xprintf("                 \"CAUTION:  ROAD TRAIN\"\n\n") ;
  103. Xreturn ;
  104. X
  105. Xcase R_forest:
  106. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  107. Xprintf("You are in a forest thickly wooded with gum trees.  The forest\n") ;
  108. Xprintf("floor is covered with long thin leaves from gum trees mixed\n") ;
  109. Xprintf("with their seed pods.  There is a strong eucalytus smell in the\n") ;
  110. Xprintf("air.  Up in the forest canopy you can hear kookaburras engaged\n") ;
  111. Xprintf("in their raucous cackling.\n") ;
  112. Xreturn ;
  113. X
  114. Xcase R_bend:
  115. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  116. Xprintf("You are north of the grassy area in the bend of a great meandering\n") ;
  117. Xprintf("river.  All around you are the tall black fronds of grass trees.\n") ;
  118. Xif (sw_bend) {
  119. X    sw_bend = FALSE ;
  120. Xprintf("Off in the distance you can see a mob of emus striding out of\n") ;
  121. Xprintf("sight.\n") ;
  122. X}
  123. Xreturn ;
  124. X
  125. Xcase R_bitumen:
  126. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  127. Xprintf("You are on a narrow country road made out of potholed bitumen.\n") ;
  128. Xprintf("The road's shoulders are of soft red earth which could cause\n") ;
  129. Xprintf("a driver to lose control of his car if he took a wheel off the\n") ;
  130. Xprintf("bitumen.  ") ;
  131. Xif (sw_mob) {
  132. X    sw_mob = FALSE ;
  133. Xprintf("A few metres away is a mob of grey kangroos grazing\n") ;
  134. Xprintf("on grass by the road.  A huge buck looks up at you and doesn't\n") ;
  135. Xprintf("like what he sees.  He bounds off with the rest of the mob\n") ;
  136. Xprintf("following.  You can see the heads of joeys protruding from\n") ;
  137. Xprintf("their mother's pouches as the mob leaps off into the bush and\n") ;
  138. Xprintf("out of sight.\n") ;
  139. X}
  140. Xelse printf("\n") ;
  141. Xreturn ;
  142. X
  143. Xcase R_stream:
  144. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  145. Xprintf("You approach a billabong with a small stream flowing into it.\n") ;
  146. Xprintf("Cane toads can be heard croaking nearby and you see countless\n") ;
  147. Xprintf("numbers of their tadpoles swimming in the stream.\n") ;
  148. Xreturn ;
  149. X
  150. Xcase R_taipan:      /* getting bitten by a taipan */
  151. Xprintf("As you wander aimlessly in the grass, you accidently step\n");
  152. Xprintf("upon a taipan which is perhaps the most poisonous of Oz's \n");
  153. Xprintf("snakes. The snake strikes upwards and bites you in the\n");
  154. Xprintf("worst possible place.  You thrash around for a short while\n");
  155. Xprintf("and then the venom takes hold. Your body begins to decompose");
  156. Xprintf("\nbefore your very eyes.  Death comes only after an hour \n");
  157. Xprintf("of the worst possible agony.  \n");
  158. Xreturn ;
  159. X
  160. Xcase R_mine_head:  /* Front of ACME Mine */
  161. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  162. Xprintf ("East of you is a large iron open truss tower, topped with \n");
  163. Xprintf ("two rusting wheels holding a pair of thick steel cables.  \n");
  164. Xprintf ("This is the head gear of the once highly successful ACME \n"); 
  165. Xprintf ("Gold Mine, which now is completely mined out.  Where \n");
  166. Xprintf ("there were once rich veins of gold is now a honeycomb of \n");
  167. Xprintf ("tunnels and caverns.  There are stories about strange \n");
  168. Xprintf ("events in the old tunnels of the ACME mine and only fools \n");
  169. Xprintf ("or reckless adventurers would dare explore them. \n");
  170. Xprintf ("To the north is the old office building.  Rumor has it \n");
  171. Xprintf ("the safe in this building once had millions of dollars in \n");
  172. Xprintf ("gold processed from the rich ore of the ACME mine.  To \n");
  173. Xprintf ("the south is the mine lift, which once transported up to \n");
  174. Xprintf ("twenty miners at a time down the long mine shaft to the \n");
  175. Xprintf ("working tunnels deep under the earth below.\n");
  176. Xreturn ;
  177. X
  178. Xcase R_office_mang:  /* Manager's office */
  179. Xroom[n][M_rm_type] = T_action_obj ;
  180. Xprintf("You are in the Manager's office of the ACME Mine.  In \n");
  181. Xprintf("former times this room saw many lively meetings between \n"); 
  182. Xprintf("the Site Manager and Shift Bosses.  Fixed to the wall are\n");
  183. Xprintf("old production schedules and organizational charts. In\n");
  184. Xprintf("the middle of the room is a beautiful silky oak desk.\n");
  185. Xprintf("Unfortunately it is too heavy to move.  Attached to\n"); 
  186. Xprintf("the far wall is a curious picture of a platypus wearing a \n");
  187. Xprintf("hat with old wine corks dangling from the hat's brim. The\n");
  188. Xprintf("only exit is to the south.\n\n") ;
  189. Xreturn ;
  190. X
  191. Xcase R_geo_w:  /* Geologist's office */
  192. Xroom[n][M_rm_type] = T_unmovable_obj ;
  193. Xprintf("As you entered this room, huge cockroaches scuttled off ");
  194. Xprintf("in every \n"); 
  195. Xprintf("direction. On the far wall is a rather tasteless poster ");
  196. Xprintf("depicting \n");
  197. Xprintf("an extremely well endowed (unclad) young woman holding a ");
  198. Xprintf("mining \n"); 
  199. Xprintf("drill.  This office was once occupied by the mine ");
  200. Xprintf("geologist.  One \n");
  201. Xprintf("can still see traces of the office's former occupant.  ");
  202. Xprintf("There are only \n");
  203. Xprintf("two doors to this room.  Both go to the north. You entered ");
  204. Xprintf("through \n");
  205. Xprintf("the west door.  However there is another door in ");
  206. Xprintf("the eastern section \nof the office. \n");
  207. Xreturn ;
  208. X 
  209. X/* lift compartment */
  210. Xcase R_lift_inside:
  211. Xroom[n][M_rm_type] = T_action_obj ;
  212. Xprintf("You are inside the lift, which has only one ");   
  213. Xprintf("entrance doorway to the west. \n");
  214. Xprintf("To the left of the door is a panel of buttons.  Most of "); 
  215. Xprintf("the buttons are \ninoperative with tape over them.  However ");
  216. Xprintf("there are four buttons \nthat still work. Each of the four ");
  217. Xprintf("buttons have a number stamped on them.  \nThe numbers are ");
  218. Xprintf("zero, forty-nine, sixty-seven, and eighty-two. \n \n");
  219. Xreturn ;
  220. X 
  221. Xcase R_hideout_entr:  /* Ned Kelly's Hide Out */
  222. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  223. X
  224. Xif (monster_flag == F_no_monster) {
  225. Xprintf ("Before you is a Queensland house with large verandas. ") ;
  226. Xprintf ("The front of\nthe house is to the east. The house ") ;
  227. Xprintf ("is painted fluorescent orange.\nOn the roof of the house is ");
  228. Xprintf ("a large, bright flashing neon sign which reads: \n\n");
  229. Xprintf("___________________________________________________________\n");
  230. Xprintf("|                                                         |\n");
  231. Xprintf("|            Ned Kelly's ---SECRET--- Hide Out            |\n");
  232. Xprintf("| Policemen, troopers, law enforcement officers and all   |\n");
  233. Xprintf("| other minions of the law and public decency are advised |\n");
  234. Xprintf("| to look else where for bush rangers, thieves, and other |\n");
  235. Xprintf("| larrikins, since ***only*** honest, law abiding         |\n");
  236. Xprintf("| Australians (loyal to Queen and Country) live here.     |\n");
  237. Xprintf("|                                                         |\n");
  238. Xprintf("___________________________________________________________\n");
  239. X}
  240. Xelse describe(n) ;
  241. Xreturn ;
  242. X
  243. Xcase R_foreman:
  244. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  245. Xprintf("You have entered the office of the Level #67 Foreman. In ");
  246. Xprintf("the middle of the\nroom is the Foreman's large and immovable ");
  247. Xprintf("desk.  To one side can be seen an\nempty file cabinet and ");
  248. Xprintf("a series of pidgeon holes for holding mine worker's\nmail. ");
  249. Xprintf("The only exit is to the west.\n\n") ;
  250. Xreturn ;
  251. X
  252. Xcase R_no_treasure:
  253. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  254. Xprintf("You are in a tunnel going east and west. Crude letters have\n");
  255. Xprintf("been scratched into the wall of the tunnel.  The following\n") ;
  256. Xprintf("was written:\n\n") ;
  257. Xprintf("Dear Treasure Hunter:\n") ;
  258. Xprintf("There was lots of treasure on this level when I first\n") ;
  259. Xprintf("discovered this mine.  However I have since carted it all\n") ;
  260. Xprintf("away.  You might try looking on another level.") ;
  261. Xprintf("\n\n                            Good Luck!\n") ;
  262. Xprintf("                         Dr. I. Jones, Ph.D.\n\n") ;
  263. Xreturn ;
  264. X
  265. Xcase R_gleep_tank:
  266. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  267. Xprintf("You have walked into a room with a large plastic tank set "); 
  268. Xprintf("in the middle.\nThe tank is about two metres deep and ");
  269. Xprintf("full of dark blue liquid which\nsmells strongly of chlorine.");
  270. Xprintf(" The words \"Gleep Tank\" have been crudely\n");
  271. Xprintf("spray painted on the wall.\n") ;
  272. Xreturn ;
  273. X 
  274. Xcase R_ufo_e:
  275. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  276. Xprintf("You crawl under a long thin sting that projects from the ");
  277. Xprintf("front of the\nspacecraft.  It's made from a different metal ");
  278. Xprintf("(stainless steel?), and appears\nto have been retractable. ");
  279. Xprintf("This was probably a Mach probe for measuring flight\n") ;
  280. Xprintf("speed. You can go north or south.\n") ;
  281. Xreturn ;
  282. X 
  283. Xcase R_ufo_w:
  284. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  285. Xprintf("Before you is perhaps the real reason why the ACME Mine ");
  286. Xprintf("was closed. You see\nthe bent and twisted remains of what ");
  287. Xprintf("could only be an ancient spacecraft. It\nsits ") ;
  288. Xprintf("embedded within a gold bearing");
  289. Xprintf(" reef of conglomerate stone from the\nPrecambrain Period ");
  290. Xprintf("(hundreds of millions of years old).  The old spacecraft\n") ;
  291. Xprintf("was based on a delta wing design which the miners had ");
  292. Xprintf("chiped free from\nthe rock. You can see clearly the interior ");
  293. Xprintf("of the engine exhaust ducts.  The\nvehicle has air inlets ");
  294. Xprintf("so it must have been air breathing when it flew in\nthe ");
  295. Xprintf("atmosphere. ") ;
  296. Xprintf("The edges of the ducts appear to be made of titanium ");
  297. Xprintf("and are\nabout six centimetres thick. No wonder it could ");
  298. Xprintf("survive millions of years\nunder tons of stone. ") ;
  299. Xprintf("This spacecraft is literally built like a battleship!\nYou ") ;
  300. Xprintf("can climb over the vehicle to the north or go south.\n\n");
  301. Xreturn ;
  302. X 
  303. Xcase R_ufo_n:
  304. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  305. Xprintf("You're now doing a tight squeeze between the tunnel wall ");
  306. Xprintf("and the leading\nedge of the wing.  You can see the titanium");
  307. Xprintf(" surface is covered with many\nregularly placed little ");
  308. Xprintf("holes, each about half a millimetre in diameter.\nThis ");
  309. Xprintf("was probably part of the wing's cooling system for ") ;
  310. Xprintf("atmospheric entry\nfrom orbit. You can go south-east or ");
  311. Xprintf("south-west.\n\n");
  312. Xreturn ;
  313. X 
  314. Xcase R_ufo_s:
  315. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  316. Xprintf("You're crawling under the wing and next to the spacecraft's ");
  317. Xprintf("landing gear.\nThe landing gear strut is almost snapped ");
  318. Xprintf("off.  The tyre has long ago turned\nto dust, but the tyre ");
  319. Xprintf("rim is still in place.  The braking system used is\nquite ");
  320. Xprintf("odd.  The brake rotor is basicly a ring being gripped by ");
  321. Xprintf("a caliper with\nconcave brake pads.  You ") ;
  322. Xprintf("can go north-west or north-east.\n") ;
  323. Xreturn ;
  324. X 
  325. Xcase R_ufo_ne:
  326. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  327. Xprintf("You are now near the nose of the derelict spacecraft.  You ");
  328. Xprintf("see a quartz\nwindow in the side of the vehicle.  It has been");
  329. Xprintf(" so scratched by the\ncenturies that it is now opaque.  ");
  330. Xprintf("You can go north-west or south.\n") ;
  331. Xreturn ;
  332. X 
  333. Xcase R_ufo_nw:
  334. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  335. Xprintf("As you scrambled over the old derelict, you passed under ");
  336. Xprintf("the vertical\nstabilizer which centuries of geological ") ;
  337. Xprintf("forces had bent into what\nlooks like a sagging shark's ");
  338. Xprintf("fin. You can go south or do a tight squeeze\nto the ");
  339. Xprintf("north-east.\n\n");
  340. Xreturn ;
  341. X 
  342. Xcase R_ufo_se:
  343. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  344. Xprintf("You are under the forward section of the spacecraft. ");
  345. Xprintf("Above you is an\nopened access hatch which leads into the ");
  346. Xprintf("dark interior of the derelict.\n");
  347. Xprintf("You can go north, up or crawl under the wing to the ");
  348. Xprintf("south-west\n") ;
  349. Xreturn ;
  350. X 
  351. Xcase R_ufo_sw:
  352. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  353. Xprintf("You are hunching over as you scramble underneath the ");
  354. Xprintf("spacecraft's wing.\nNear the trailing edge of the wing ");
  355. Xprintf("you can see what is left of the\nwing flaps.  The flap ");
  356. Xprintf("was actuated by a very conventional hydraulic system.\n");
  357. Xprintf("Some of the metal tubing for the actuaters are still in ");
  358. Xprintf("place, though\nthe hydraulic fluid has long since ") ;
  359. Xprintf("fossilized into stone. You can\ngo north or south-east.\n") ;
  360. Xreturn ;
  361. X 
  362. Xcase R_air_lock:
  363. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  364. Xprintf("You are inside what is obviously an airlock.  There are ");
  365. Xprintf("two hatchways\ninto this airlock.  One leads to the exterior ");
  366. Xprintf("while the other goes into\nthe spacecraft's interior.  Both ");
  367. Xprintf("hatches appear to have originally been\nleft open and not ");
  368. Xprintf("forced by the miners (the hinges are immovable). ");
  369. Xprintf("It\nappears that the ship's crew left in a hurry. ") ;
  370. Xprintf("You can go north or down.\n") ;
  371. Xreturn ;
  372. X
  373. Xcase R_ship_passage:
  374. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  375. Xprintf("You've entered the intercompartment access passage.  To the ") ;
  376. Xprintf("south is an\nopen air tight door leading to the airlock. ");
  377. Xprintf("The access door to the east\nis open and recessed into the ");
  378. Xprintf("wall. The access door to the west has been\nforced open ");
  379. Xprintf("with a cutting torch and folded back with a pneumatic\n") ;
  380. Xprintf("hammer (obviously the work of the miners). ") ;
  381. Xprintf("The passage itself has about\nten centimetres of silt on the") ;
  382. Xprintf(" bottom and has the appearance of ancient\ndilapidation.\n") ;
  383. Xreturn ;
  384. X
  385. Xcase R_flight_deck:
  386. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  387. Xprintf("You have made it to the flight deck. Unfortunately ");
  388. Xprintf("it's not much to\nwrite home about. Since the access door ");
  389. Xprintf("was open, this area has been full\nof water and silt for ");
  390. Xprintf("millennia.  The miners have shoveled out most of it.\nOnce ");
  391. Xprintf("the wall panels were covered with some kind of plastic which");
  392. Xprintf(" has long\nsince turned to dust.  There are three corroded ");
  393. Xprintf("frames which were once crew\nseats. The beings that flew ") ;
  394. Xprintf("this machine were taller and wider than humans\nbut they ");
  395. Xprintf("had anthropoid form. The flight controls are still here");
  396. Xprintf(" but they\nare so heavily corroded that they can no longer "); 
  397. Xprintf("be moved.  The only way out\nis to the west.\n\n") ;
  398. Xreturn ;
  399. X
  400. Xcase R_panel:
  401. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  402. Xprintf("You are in a compartment that seems brand new, which is ");
  403. Xprintf("unbelievable.  Perhaps\nthe machinery in this ship was once ");
  404. Xprintf("self repairing.  Before you is a control\npanel with CRT type");
  405. Xprintf(" displays and buttons that still work.  Beneath each button\n");
  406. Xprintf("is a description written in a strange alien script ");
  407. Xprintf("vaguely like Sanskrit.\nI wouldn't dare ") ;
  408. Xprintf("press any button except for a gray button.  Beneath\n");
  409. Xprintf("this button is some masking tape that was obviously placed ") ;
  410. Xprintf("there by the miners.\nSomeone has written \"TEHR.\" on the ") ;
  411. Xprintf("masking tape with a pencil.\n\n") ;
  412. Xreturn ;
  413. X
  414. Xcase R_transport:
  415. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  416. Xprintf("You have walked into an elevated chamber with strange ") ;
  417. Xprintf("glowing hexagons on\nthe floor which are about half a ") ;
  418. Xprintf("metre across.  The hexagon pattern on the\nfloor is ");
  419. Xprintf("matched by one on the ceiling which is also glowing.\n\n") ;
  420. Xreturn ;
  421. X
  422. Xcase R_prayer:
  423. Xroom[n][M_rm_type] = T_short_descp ;   /* disable long description  */
  424. Xprintf("You are in a large and very grand room with walls made of\n");
  425. Xprintf("polished mahogany, and crystal chandeliers hanging from an\n");
  426. Xprintf("ornate ceiling.  There is a mihrab incongruously set in the\n");
  427. Xprintf("western wall of the building.  Also there are quotations\n");
  428. Xprintf("from the Quram written in golden letters along the top of\n") ;
  429. Xprintf("the walls near the ceiling.  On the floor are sumptuous\n") ;
  430. Xprintf("cushions made of silk and fine green velvet. Sitting on the\n");
  431. Xprintf("cushions are old men wearing black pajamas with white\n");
  432. Xprintf("towels wrapped around their heads. In the middle of the\n");
  433. Xprintf("floor is a raised dais, upon which is sitting a rather\n");
  434. Xprintf("stately old man wearing similar clothing. In the far corner\n");
  435. Xprintf("of the room is standing a wax dummy of the Ayatolla\n") ;
  436. Xprintf("Khomeini. His right arm is upright much like the Statue of\n") ;
  437. Xprintf("Liberty and in his right hand is a glowing 100 watt light\n") ;
  438. Xprintf("bulb.  I think this is the prayer room for the Iranian\n") ;
  439. Xprintf("Parliament!  You'll have to go west if you wish to leave.\n\n") ;
  440. Xreturn ;
  441. X 
  442. Xcase R_guard:
  443. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  444. Xprintf("You are in a rather small room with a table in the ");
  445. Xprintf("middle that is covered\nwith half filled cups of tea, dirty ") ;
  446. Xprintf("ash trays, and a newspaper written in\nwhat appears to be ") ;
  447. Xprintf("Arabic.  There is ") ;
  448. Xprintf("a brightly coloured poster on the\nwall depicting the Kaba ") ;
  449. Xprintf("Stone of Mecca with a calendar below it.  The only\n") ;
  450. Xprintf("exits are through an open doorway to the east and through");
  451. Xprintf(" a curtain covered\ndoorway to the south.\n\n") ;
  452. Xreturn ;
  453. X 
  454. Xcase R_closet:
  455. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  456. Xprintf("You are in a closet full of grubby, nondescript things not\n") ;
  457. Xprintf("worth taking. The closet stinks of moth balls. The only way\n");
  458. Xprintf("out is through a curtain covered doorway to the north.\n\n");
  459. Xreturn ;
  460. X 
  461. Xcase R_gong:
  462. Xroom[n][M_rm_type] = T_unmovable_obj ;
  463. Xprintf("You have entered an enormous room which is walled with\n");
  464. Xprintf("polished black granite supported by vast curving arches\n");
  465. Xprintf("much like a gothic cathedral.  The cavernous room is a seven\n");
  466. Xprintf("sided polygon in layout with huge flaming torches set in\n");
  467. Xprintf("brass holders in every corner of the room.  In the flickering\n");
  468. Xprintf("light of the torches you see an enormous silver gong\n");
  469. Xprintf("weighing at least a ton.  The huge gong is suspended from\n");
  470. Xprintf("a finely polished red cedar frame, the top of which is\n");
  471. Xprintf("about four metres above the floor.  The room is deathly\n");
  472. Xprintf("quiet like an ancient tomb. The only sound you can hear is\n");
  473. Xprintf("your own heart beating.\n") ;
  474. Xreturn ;
  475. X 
  476. Xcase R_warning:
  477. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  478. Xprintf("You have entered a passage with exits to the north, south,\n");
  479. Xprintf("and west.  There is a poster glued to the wall which reads:\n");
  480. Xprintf("+---------------------------------------------------------+\n");
  481. Xprintf("|                                                         |\n");
  482. Xprintf("|              ACME MINE IS UNFAIR TO WORKERS!!           |\n");
  483. Xprintf("|                                                         |\n");
  484. Xprintf("|                       ON STRIKE!!                       |\n");
  485. Xprintf("|                                                         |\n");
  486. Xprintf("| The Loyal Brotherhood of Australian Miners and Under-   |\n");
  487. Xprintf("| ground Workers is on strike against Acme Mines Ltd. due |\n");
  488. Xprintf("| to unfair treatment of its workers.  Our Union demands  |\n");
  489. Xprintf("| the following:  Worker's wages be increased by 30%%, the |");
  490. Xprintf("\n") ;
  491. Xprintf("| week shall have only 4 working days, the working day    |\n");
  492. Xprintf("| shall be reduced to 5 hours, triple wages for overtime  |\n");
  493. Xprintf("| work and immunity from sacking for all Union members.   |\n");
  494. Xprintf("| To discourage scabs and other strike breakers from      |\n");
  495. Xprintf("| working during the strike, we have planted booby traps  |\n");
  496. Xprintf("| through out the tunnels on this level.  We do hope you  |\n");
  497. Xprintf("| don't mind the mine being mined so it won't be mined.   |\n");
  498. Xprintf("+---------------------------------------------------------+\n");
  499. X    return ;
  500. X 
  501. X    } 
  502. X}
  503. Xelse describe(n) ;
  504. X
  505. X} /* end of long_descp subroutine */
  506. END_OF_FILE
  507. if test 23440 -ne `wc -c <'longdsc.c'`; then
  508.     echo shar: \"'longdsc.c'\" unpacked with wrong size!
  509. fi
  510. # end of 'longdsc.c'
  511. fi
  512. if test -f 'opener.c' -a "${1}" != "-c" ; then 
  513.   echo shar: Will not clobber existing file \"'opener.c'\"
  514. else
  515. echo shar: Extracting \"'opener.c'\" \(26609 characters\)
  516. sed "s/^X//" >'opener.c' <<'END_OF_FILE'
  517. X#define OPNR
  518. X#include "dink_sym.h"
  519. X#include "dink_glb.h"
  520. X
  521. Xvoid dialer(n)
  522. X/*****************************/
  523. X/*      "dial" command"      */
  524. X/*     Version:  Mk 1.1      */
  525. X/*      29 October 1989      */
  526. X/*****************************/
  527. Xint n ;
  528. X{
  529. X
  530. X/* deal with the question of "What is the combination?" */
  531. Xif (tag[V_what]) {
  532. Xprintf("I really don't know.  You might try looking around for a\n") ;
  533. Xprintf("series of numbers. Sometimes that can be a clue to the\n") ;
  534. Xprintf("actual combination.\n") ;
  535. X    return ;
  536. X}
  537. X
  538. X/* See if the combination was dialed in the right place */
  539. Xif ((n == R_office_mang)&&
  540. X    (room[R_office_mang][M_rm_status] >= S_revealed)) {
  541. X    if (tag[V_0] && tag[V_49] && tag[V_67] && tag[V_82]) {
  542. X        printf ("Click!! \n");
  543. X        room[R_office_mang][M_rm_status] = S_dialed ;
  544. X        return ; 
  545. X    }
  546. Xprintf ("You turned the dial but nothing happened.  I think you \n");   
  547. Xprintf ("dialed the wrong thing. \n");
  548. X    return ; 
  549. X}
  550. Xprintf ("How am I supposed to dial that? \n");
  551. X} /* --- end of the "dialer" subroutine --- */
  552. X
  553. X 
  554. Xvoid inventer()
  555. X/*****************************/
  556. X/*   "inventory" command     */
  557. X/*     Version:  Mk 1.0      */
  558. X/*       11 March 1989       */
  559. X/*****************************/
  560. X{
  561. X#if (PROTOTYPE)
  562. Xvoid objector(int) ;
  563. X#endif
  564. X
  565. Xregister int i;
  566. Xint i_ws, j_ws ;
  567. X 
  568. Xi_ws = 0 ;
  569. Xj_ws = 0 ;
  570. Xfor (i = 0; i <= objcnt; i++) if (object[i][J_loc] == B_have)  {
  571. X    ++j_ws;
  572. X    i_ws = i ;
  573. X    } ;
  574. Xif ((j_ws == 0)&&(gleep_count == 0)) {
  575. X    printf("You've got NOTHING!! \n") ;
  576. X    return ;
  577. X}
  578. Xif (j_ws >= 1) {
  579. X    if (j_ws == 1) {
  580. X        printf("You are carrying ") ;
  581. X        objector(i_ws);
  582. X        printf ("\n") ;
  583. X    }
  584. X    else {
  585. X        printf ("You are carrying the following: \n");
  586. X        for (i = 0; i <= objcnt; i++) {
  587. X            if (object[i][J_loc] == B_have) {
  588. X                printf ("        ") ;
  589. X                objector(i);
  590. X                printf ("\n") ;
  591. X            }
  592. X        }
  593. X    }
  594. X}
  595. Xif (gleep_count > 0) {
  596. X    if (gleep_count == 1) {
  597. X        printf("You have one gleep.\n") ;
  598. X        return ;
  599. X    }
  600. X    printf("You are carrying %d gleeps. \n",gleep_count) ;
  601. X}
  602. X
  603. X} /* --- end of the "inventor" subroutine --- */
  604. X 
  605. Xvoid drinker()
  606. X/*****************************/
  607. X/*     "drink" command       */
  608. X/*     Version:  Mk 1.0      */
  609. X/*       11 March 1989       */
  610. X/*****************************/
  611. X{
  612. X#if (PROTOTYPE)
  613. Xvoid no_booze(void) ;
  614. X#endif
  615. X
  616. Xif (tag[V_can]) {
  617. X    if (object[O_can][J_loc] == B_have) {
  618. X        printf("The XXXX keeps on coming on ? \n") ;
  619. Xprintf("I think not, for there is no Fourex left for me to drink!\n") ;
  620. X    }
  621. X    else no_booze() ;
  622. X    return ;
  623. X}
  624. X
  625. Xif (tag[V_bottle]) {
  626. X    if (object[O_bottle][J_loc] == B_have) {
  627. Xprintf("Some greedy larrikin has drunk up all of the Black Swan! \n") ;
  628. X    printf("Bad on Him! There is none left for me! \n") ;
  629. X    return ;
  630. X    }
  631. X    no_booze() ;
  632. X    return ;
  633. X}
  634. X
  635. Xif (tag[V_water]) {
  636. X    printf("There is no water here that I am willing to drink.\n") ;
  637. X    return ;
  638. X}
  639. X    
  640. Xprintf ("What exactly do you want me to drink? \n");
  641. Xreturn; 
  642. X
  643. X} /* --- end of the "drinker" subroutine --- */
  644. X
  645. Xvoid no_booze()
  646. X/*****************************/
  647. X/*     Version:  Mk 1.0      */
  648. X/*     7 December 1992       */
  649. X/*****************************/
  650. X{
  651. Xprintf ("You don't have it in your possession to drink!\n");
  652. Xreturn ;
  653. X} /* --- end of the "no_booze" subroutine --- */
  654. X
  655. X 
  656. Xvoid reader(n)
  657. X/*****************************/
  658. X/*      "read" command       */
  659. X/*     Version:  Mk 1.2      */
  660. X/*      23 December 1992     */
  661. X/*****************************/
  662. X
  663. Xint n ;
  664. X{
  665. Xint k ;
  666. X
  667. X#if (PROTOTYPE)
  668. Xvoid rdtxt(int) ;
  669. X#endif
  670. X
  671. X/* reject an isolated "read" command */
  672. Xif (tag[V_VERB_ONLY]) { 
  673. X        printf ("What exactly do you want me to read? \n");
  674. X        return;
  675. X}
  676. X
  677. Xfor (;;) {
  678. X    /* map from the manager's office */
  679. X    if (tag[V_map]) {
  680. X        k = O_map_frag ;
  681. X        break;
  682. X    }
  683. X
  684. X    /* Qadaffi's letter */
  685. X    if (tag[V_letter]) {
  686. X        k = O_letter ;
  687. X        break ;
  688. X    }
  689. X
  690. X    /* paper from the safe */
  691. X    if (tag[V_paper]) {
  692. X        k = O_paper ;
  693. X        break;
  694. X    }
  695. X
  696. X    /* Message on wall */
  697. X    if ((tag[V_message] || tag[V_wall]) && (n == R_no_treasure)) {
  698. X        k = O_message ;
  699. X        rdtxt(k) ;
  700. X        return ;
  701. X    }
  702. X
  703. X    /* Deal with unreadable objects */
  704. X    printf("There is no way in which I can read that. \n");
  705. X        return ;
  706. X} /* end of the infinite for loop */
  707. X
  708. Xif (object[k][J_loc] == B_have) rdtxt(k) ;
  709. Xelse printf ("I can't read it because it isn't in my possession. \n");
  710. X}         /* --- end of the subroutine "reader" --- */
  711. X
  712. Xvoid unlocker(n)
  713. X/*****************************/
  714. X/*     "unlock" command      */
  715. X/*      Version: Mk 1.1      */
  716. X/*      16 September 1989    */
  717. X/*****************************/
  718. Xint n ;
  719. X{
  720. X 
  721. Xif (tag[V_VERB_ONLY]) {
  722. X    printf ("What do you want me to unlock? \n");
  723. X    return; 
  724. X}
  725. X
  726. Xif (room[n][M_rm_type] == T_action_obj) {
  727. X    switch (n) {
  728. X
  729. X    /* Managers office */
  730. X    case R_office_mang:
  731. X        if (tag[V_safe]) {
  732. Xprintf("This is a combination type safe (no key hole).  You must\n");
  733. Xprintf("dial a combination in order to open this safe. \n");
  734. X        }
  735. X        else 
  736. Xprintf("You're wasting your time.  You can't unlock that! \n");
  737. X        return;
  738. X
  739. X    /* office entrance */
  740. X    case R_office_entr:
  741. X    if (tag[V_door]) {
  742. X        if (room[R_office_entr][M_rm_status] == S_open) {
  743. X            printf("The door is already open! \n");
  744. X            return;
  745. X        }
  746. X        if (room[R_office_entr][M_rm_status] == S_kicked) {
  747. X            printf("The door has been kicked in! \n");
  748. X            return;
  749. X        }
  750. X        if (room[R_office_entr][M_rm_status] == S_unlocked) {
  751. Xprintf("The door is already unlocked.  However it is still closed! \n");
  752. X            return;
  753. X        }
  754. X        /* The door has to still be unlocked */
  755. X        if (tag[V_key]) {
  756. X        if (object[O_key][J_loc] != B_have) {
  757. Xprintf("You don't have the key to this door in your possession! \n");
  758. X        }
  759. X        else {
  760. X            printf("You turn the key in the lock and ") ;
  761. X            printf("hear a satisfying \"click\".\n");
  762. X            room[R_office_entr][M_rm_status] = S_unlocked ;
  763. X        }
  764. X        }
  765. X        else printf ("With what shall I unlock the door? \n");
  766. X        return; 
  767. X    }
  768. X
  769. X    default:
  770. Xprintf("I don't think that is the sort of thing one unlocks.\n") ;
  771. X    }  /* end of "unlock" room scan switch */
  772. X} /* end of "unmovable action device" block */
  773. Xelse printf("There is nothing here that can be unlocked! \n");
  774. Xreturn ;
  775. X}  /* --- end of the "unlocker" subroutine --- */
  776. X
  777. Xvoid closer(n)
  778. X/*****************************/
  779. X/*     "close" command       */
  780. X/*     Version:  Mk 1.0      */
  781. X/*     12 November 1988      */
  782. X/*****************************/
  783. Xint n ;
  784. X{
  785. X 
  786. X/* scan "close" sentence */
  787. Xif (room[n][M_rm_type] != T_action_obj) {
  788. Xprintf("There is nothing here that can be closed! \n");
  789. X    return; 
  790. X}
  791. X
  792. Xif (tag[V_VERB_ONLY]) {
  793. X    printf ("What exactly do you want me to close? \n");
  794. X    return; 
  795. X}
  796. X
  797. Xswitch (n) {
  798. X    /* office door */
  799. X    case R_office_entr:
  800. X        if (!tag[V_door]) break ;
  801. X        if (room[R_office_entr][M_rm_status] == S_kicked) {
  802. Xprintf("The door has been kicked in!  It'll never be closed again.\n");
  803. X            return;
  804. X        }
  805. X        if (room[R_office_entr][M_rm_status] == S_open) {
  806. X        printf("The office door closes with a slam. \n");
  807. X            room[R_office_entr][2] = R_wall ;
  808. X            room[R_office_entr][M_rm_status] = S_closed ;
  809. X            return ;
  810. X        }
  811. X        else printf("The office door is already closed! \n");
  812. X        return ;
  813. X
  814. X    /* managers office */
  815. X    case R_office_mang:
  816. X    if ((!tag[V_picture])&&(!tag[V_safe])) break;
  817. X    if (tag[V_safe]) {
  818. X        if (room[R_office_mang][M_rm_status] < S_dialed) 
  819. X        printf("The safe is already closed. \n");
  820. X        else {
  821. X    printf("The safe door closes and locks with a \"click\". \n");
  822. X            room[R_office_mang][M_rm_status] = S_revealed ;
  823. X        }
  824. X    }
  825. X    if (tag[V_picture]) {
  826. X        if (room[R_office_mang][M_rm_status] == S_closed) 
  827. X        printf("The platypus picture is already closed. \n");
  828. X        else  {
  829. Xprintf("The picture swings flush against the wall, hiding the safe.\n");
  830. X            room[R_office_mang][M_rm_status] = S_closed ;
  831. X        }
  832. X    }
  833. X    return ;
  834. X
  835. X} /* end of the "close" switch */
  836. Xprintf ("I really don't see how one would close that? \n");
  837. Xreturn; 
  838. X} /* --- end of the "closer" subroutine --- */
  839. X
  840. Xvoid opener(n)
  841. X/*****************************/
  842. X/*      "open" command       */
  843. X/*     Version:  Mk 2.1      */
  844. X/*     25 April 1990         */
  845. X/*****************************/
  846. Xint n ;
  847. X{
  848. Xregister int i ;
  849. X
  850. X#if (PROTOTYPE)
  851. Xvoid boom(void), ender(int), objector(int) ;
  852. X#endif
  853. X
  854. X/* deal with a terse command */
  855. Xif (tag[V_VERB_ONLY]) {
  856. X    printf ("What exactly do you want me to open? \n");
  857. X    return;
  858. X}
  859. X 
  860. Xif (tag[V_can]) {
  861. X    if (object[O_can][J_loc] == B_have) 
  862. Xprintf("Some bugger has already drunk it up. The stubee is empty!\n");
  863. X    else printf("You don't have a can to open! \n") ;
  864. X    return; 
  865. X}
  866. X
  867. Xif (tag[V_letter]) {
  868. X    if (object[O_letter][J_loc] == B_have) {
  869. X        boom() ; /* cause an explosion */
  870. Xprintf("It's not polite to read other people's mail!!  As you lay\n") ;
  871. Xprintf("bleeding on the floor with your hands and arms blown away,\n") ;
  872. Xprintf("you realize that envelope actually contained a letter bomb!\n");
  873. Xprintf("(A trick widely used by terrorists in the 1970s).  However\n");
  874. Xprintf("the knowledge does you little good since your spirit soon\n");
  875. Xprintf("departs this mortal coil.\n");
  876. X        ender(F_died) ;
  877. X    }
  878. X    else printf("You don't have a letter to open!\n") ;
  879. X    return ;
  880. X}
  881. X
  882. Xif (tag[V_bottle]) {
  883. X    if (object[O_bottle][J_loc] == B_have)
  884. Xprintf("Some bugger has already drunk it up. The bottle is Empty! \n");
  885. X    else printf("You don't have a bottle to open! \n") ;
  886. X    return; 
  887. X}
  888. X
  889. Xif (tag[V_umbrella]) {
  890. X    if (object[O_umbrella][J_loc] == B_have) {
  891. Xprintf("You open the umbrella but find it's full of holes and\n");
  892. Xprintf("its clasp is broken.  As soon as you release it, the\n");
  893. Xprintf("umbrella snaps shut.\n") ;
  894. X    }
  895. X    else printf("You don't have an umbrella to open! \n") ;
  896. X    return; 
  897. X}
  898. X 
  899. X/* Now check to see if the location is consistent with the command */
  900. Xif (room[n][M_rm_type] != T_action_obj) { 
  901. X    printf ("I don't understand what you want me to open. \n") ;
  902. X    return ;
  903. X}
  904. X
  905. Xswitch (n) {
  906. X    /* office entrance (door) */
  907. X    case R_office_entr:
  908. X        if (tag[V_door]) {
  909. X        switch (room[R_office_entr][M_rm_status]) {
  910. X            case S_kicked:
  911. Xprintf("The door has been kicked in!  You don't need to open it.\n");
  912. X                return;
  913. X        
  914. X            case S_open:
  915. X                printf("The door is already open! \n");
  916. X                return ;
  917. X        
  918. X            case S_unlocked:
  919. Xprintf("As you push open the office door, the rusty hinges creak \n");
  920. Xprintf("from long disuse.  Darkness and stale air seem to exude \n");
  921. Xprintf("from the vacant office.  The way is free for you to enter. \n");
  922. X                room[R_office_entr][2] = R_office_hall ;
  923. X            room[R_office_entr][M_rm_status] = S_open ;
  924. X                return ;
  925. X        
  926. X            case S_closed:
  927. Xprintf("The office door is locked tight.");
  928. Xprintf("  You need to unlock it with a key. \n");
  929. X                return ;
  930. X        } /* end of room status switch */
  931. X        } /* end of the door "if" block */
  932. X        break ;
  933. X
  934. X    /* managers office */
  935. X    case R_office_mang:
  936. X        if ((!tag[V_picture])&&(!tag[V_safe])) {
  937. Xprintf("I don't understand how I would open that.\n") ;
  938. X            return ;
  939. X        }
  940. X
  941. X        if (tag[V_picture]) {
  942. X        switch (room[R_office_mang][M_rm_status]) {
  943. X        case S_closed:
  944. Xprintf("You swing open the platypus picture revealing a large wall \n");
  945. Xprintf("safe with a combination dial. \n");
  946. X            room[R_office_mang][M_rm_status] = S_revealed ;
  947. X            break ;
  948. X        default:
  949. Xprintf("The picture is already swung out.  The problem is to open \n");
  950. Xprintf("the safe!!  Hint:  Dial in a combination. \n");
  951. X            return ;
  952. X        }
  953. X        } /* end of the picture "if" block */
  954. X
  955. X        if (tag[V_safe]) {
  956. X        switch (room[R_office_mang][M_rm_status]) {
  957. X        case S_closed:
  958. Xprintf("I can see no safe in this office for me to open.  Perhaps\n");
  959. Xprintf("there is a safe hidden in this office somewhere.\n");
  960. X            return ;
  961. X
  962. X        case S_revealed:
  963. Xprintf("The safe is locked.  You must first dial the combination\n");
  964. Xprintf("in order to open it.  See if you can find the combination. \n");
  965. X            return ;
  966. X        
  967. X        case S_dialed:
  968. X    printf("The safe door swings open smoothly and easily. \n");
  969. X            room[R_office_mang][M_rm_status] = S_open ;
  970. X            sw_active = TRUE ;
  971. X            for (i=0; i <= objcnt; i++) 
  972. X            if (object[i][J_loc] == B_in_safe) {
  973. Xprintf ("Inside the safe, you see the following: \n");
  974. X                for (i=0; i <= objcnt; i++) {
  975. X                if (object[i][J_loc] == B_in_safe) {
  976. X                    printf ("        ") ;
  977. X                    objector(i);
  978. X                    printf ("\n") ;
  979. X                }
  980. X                }                
  981. X                return ;
  982. X            }
  983. X        printf("---The safe is empty.--- \n");
  984. X            return ;
  985. X
  986. X        case S_open:
  987. X            printf("The safe is already open! \n");
  988. X            return ;
  989. X        } /* end of the "safe" status switch */
  990. X        } /* end of the safe "if" block */
  991. X        return ; /* this return statement must remain */
  992. X
  993. X    /* Lift door(s) */
  994. X    case R_lift_entr:
  995. X        if (tag[V_door]||tag[V_lift]) {
  996. Xprintf("It is not exactly clear how I would open these doors.\n") ;
  997. Xprintf("However I see a push button next to the lift doors.\n") ;
  998. Xprintf("Perhaps if I pressed the button something would happen.\n") ;
  999. X        }
  1000. X        else printf("I'm confused about what I should open.\n");
  1001. X        return ;
  1002. X        
  1003. X} /* end of the "open" room switch */
  1004. Xprintf ("I see nothing here that I can open. \n") ;
  1005. X} /* --- end of the "opener" subroutine --- */
  1006. X
  1007. Xvoid boom()
  1008. X{
  1009. Xprintf("\n\n");
  1010. Xprintf("BBBBBB      OOOOO        OOOOO      MM        MM      !!!\n");
  1011. Xprintf("B    BB   OO     OO    OO     OO    M M      M M      !!!\n");
  1012. Xprintf("B    BB   OO     OO    OO     OO    M  M    M  M      !!!\n");
  1013. Xprintf("BBBBBB    OO     OO    OO     OO    M   M  M   M      !!!\n");
  1014. Xprintf("B    BB   OO     OO    OO     OO    M    MM    M      !!!\n");
  1015. Xprintf("B    BB   OO     OO    OO     OO    M          M\n");
  1016. Xprintf("BBBBBB      OOOOO        OOOOO      M          M      !!!\n\n");
  1017. X} /* --- end of the "boom" subroutine --- */
  1018. X
  1019. Xvoid gleeper(n) 
  1020. X/********************************************/
  1021. X/*                                          */
  1022. X/*           Gleeper Subroutine             */
  1023. X/*                                          */
  1024. X/*     Software by Gary A. Allen, Jr.       */
  1025. X/*           Version: Mk 1.00               */
  1026. X/* (c) Copyright 1989 by Gary A. Allen, Jr. */
  1027. X/*                                          */
  1028. X/********************************************/
  1029. Xint n ;
  1030. X{
  1031. Xregister int i ;
  1032. Xint count ;
  1033. Xstatic int sw_glp_st = FALSE, cnt_down = 0 ;
  1034. X
  1035. X/* Gleep display routine */
  1036. Xcount = room[n][M_gleep] ;
  1037. X
  1038. Xif (((object[O_torch][J_loc] == B_have)&&object[O_torch][J_property])|| 
  1039. X    (n < 186)||(n > 202)) { 
  1040. X    if (count != 0) {
  1041. X        sw_glp_st = TRUE ; /*  gleeps can now multiply */
  1042. X        if (count != 1) 
  1043. X               printf("There are %d gleeps here. \n",count) ;
  1044. X        else printf("There is a gleep here. \n") ;
  1045. X        return ;
  1046. X    }
  1047. X}
  1048. X
  1049. X/* Gleep reproduction routine */
  1050. Xif (sw_glp_st == TRUE) {
  1051. X    if (++cnt_down > 5) {
  1052. X        cnt_down = 0 ;
  1053. X        for (i = 0; i <= 9; i++) {
  1054. X            if (room[gleep_spot[i]][M_gleep] == 0) continue;
  1055. X            if (room[gleep_spot[i]][M_gleep] > 10000) 
  1056. X                ++room[gleep_spot[i]][M_gleep] ;
  1057. X            else room[gleep_spot[i]][M_gleep] <<= 1 ;
  1058. X        }
  1059. X    }
  1060. X}
  1061. X} /* --- end of "gleeper" subroutine --- */
  1062. X
  1063. Xvoid clip_in(ammo_flag)
  1064. X/********************************************/
  1065. X/*                                          */
  1066. X/*            Clip_In Subroutine            */
  1067. X/*                                          */
  1068. X/*     Software by Gary A. Allen, Jr.       */
  1069. X/*           Version: Mk 2.00               */
  1070. X/* (c) Copyright 1990 by Gary A. Allen, Jr. */
  1071. X/*                                          */
  1072. X/********************************************/
  1073. X
  1074. Xint ammo_flag ;
  1075. X{
  1076. X/* ammo clip insertion routine */
  1077. Xif (object[O_rifle][J_loc] != B_have) {
  1078. Xprintf("Galah!!  You don't have a rifle to put an ammo clip into.\n");
  1079. X    return ;
  1080. X}
  1081. Xif (clip_flag != F_no_clip) {
  1082. Xprintf("There is already an ammo clip in the rifle. \n") ;
  1083. X    return ;
  1084. X}
  1085. Xif (((object[O_clip][J_loc] != B_have)&&(ammo_flag == F_normal_clip))||
  1086. X((object[O_org_clip][J_loc] != B_have)&&(ammo_flag == F_org_clip))) {
  1087. Xprintf("You don't possess an ammo clip to put into the rifle.\n");
  1088. X    return ;
  1089. X}
  1090. X/* actually load the clip into the rifle */
  1091. Xobject[O_rifle][J_type] = Z_alias ;
  1092. Xcarry_count-- ;
  1093. Xcarry_weight -= object[O_clip][J_weight]  ;
  1094. Xif (ammo_flag == F_normal_clip) {
  1095. X    object[O_clip][J_loc] = B_unmade ;
  1096. X    clip_flag = F_normal_clip ;
  1097. X    object[O_rifle][J_property]  = object[O_clip][J_property] ;
  1098. X}
  1099. Xelse {
  1100. X    object[O_org_clip][J_loc] = B_unmade ;
  1101. X    clip_flag = F_org_clip ;
  1102. X    object[O_rifle][J_property] = object[O_org_clip][J_property] ;
  1103. X}
  1104. Xprintf("The ammunition clip slides into the rifle with a \"click\".\n");
  1105. Xprintf("You have %d bullets in the clip \n",
  1106. X            object[O_rifle][J_property]) ;
  1107. Xif (object[O_rifle][J_property] > 0) 
  1108. X    printf("You cycle the M16's bolt once to chamber a round.\n");
  1109. Xreturn ;
  1110. X} /* --- end of the "clip_in" subroutine --- */
  1111. X
  1112. Xvoid clip_out(n)
  1113. X/********************************************/
  1114. X/*                                          */
  1115. X/*           Clip_Out Subroutine            */
  1116. X/*                                          */
  1117. X/*     Software by Gary A. Allen, Jr.       */
  1118. X/*           Version: Mk 1.00               */
  1119. X/* (c) Copyright 1989 by Gary A. Allen, Jr. */
  1120. X/*                                          */
  1121. X/********************************************/
  1122. Xint n ;
  1123. X{
  1124. Xint ammo_flag ; 
  1125. X
  1126. X/* remove clip from rifle */
  1127. Xif (object[O_rifle][J_loc] != B_have) {
  1128. X    printf("You Bloody Galah!  ") ;
  1129. X    printf("You don't have a rifle in your possession!\n");
  1130. Xreturn ;
  1131. X}
  1132. Xif (clip_flag == F_no_clip) {
  1133. X    printf("There is no clip in the rifle. \n") ;
  1134. Xreturn ;
  1135. X}
  1136. X/* eject the clip from the rifle */
  1137. Xobject[O_rifle][J_type] = Z_normal ;
  1138. Xif (clip_flag == F_normal_clip) {
  1139. X    object[O_clip][J_loc] = n ;
  1140. X    ammo_flag = F_normal_clip ;
  1141. X}
  1142. Xelse {
  1143. X    object[O_org_clip][J_loc] = n ;
  1144. X    ammo_flag = F_org_clip ;
  1145. X}
  1146. X++room[n][M_obj_cnt] ;
  1147. Xclip_flag = F_no_clip ;
  1148. Xprintf("You press the \"eject\" button on the rifle and the ") ;
  1149. Xprintf("magazine falls to the ground.\n") ;
  1150. Xif (object[O_rifle][J_property] > 0) {
  1151. Xprintf("You then cycle the M16's bolt once to clear the chamber. ");
  1152. Xprintf("The unfired round\n") ;
  1153. Xprintf("is ejected from the breech and rolls out of sight. \n") ;
  1154. X    if (ammo_flag == F_normal_clip) 
  1155. X        object[O_clip][J_property] = 
  1156. X            --object[O_rifle][J_property] ;
  1157. X        else object[O_org_clip][J_property] = 
  1158. X                --object[O_rifle][J_property] ;
  1159. X    object[O_rifle][J_property] = 0 ;
  1160. X}
  1161. Xreturn ;
  1162. X} /* --- end of the "clip_out" subroutine --- */
  1163. X
  1164. Xvoid igniter(n)
  1165. X/********************************************/
  1166. X/*                                          */
  1167. X/*           Igniter Subroutine             */
  1168. X/*                                          */
  1169. X/*     Software by Gary A. Allen, Jr.       */
  1170. X/*           Version: Mk 1.00               */
  1171. X/* (c) Copyright 1989 by Gary A. Allen, Jr. */
  1172. X/*                                          */
  1173. X/********************************************/
  1174. X
  1175. Xint n ;
  1176. X{
  1177. X#if (PROTOTYPE)
  1178. Xvoid switcher(int) ;
  1179. Xlong time(int) ;
  1180. X#endif
  1181. X
  1182. X/* reject single verb command */
  1183. Xif (tag[V_VERB_ONLY]) {
  1184. X    printf("What exactly do you want me to set alight?\n") ;
  1185. X    return ;
  1186. X}
  1187. X
  1188. X/* deal with 'light torch' command */
  1189. Xif (tag[V_torch]) {
  1190. X    switcher(n) ;
  1191. X    return ;
  1192. X}
  1193. X
  1194. X/* see if the player has or requested matches */
  1195. Xif (!tag[V_match]) {
  1196. Xprintf("What am I to light it with?\n") ;
  1197. Xprintf("(I am not prepared to rub two sticks together.)\n") ;
  1198. X    return ;
  1199. X}
  1200. Xif (object[O_matches][J_loc] != B_have) {
  1201. Xprintf("I have no matches!\n") ;
  1202. X    return ;
  1203. X}
  1204. Xelse {
  1205. X/* reject spurious "ignite" command */
  1206. X    if ((!tag[V_cap])&&(!tag[V_dynamite])&&
  1207. X        (sent[2] != V_LINE_END)) {
  1208. Xprintf("It would be a fire hazard to set that alight.\n");
  1209. X        return ;
  1210. X    }
  1211. X
  1212. X/* deal with spurious "light dynamite with match" */
  1213. Xif (tag[V_dynamite]&&(object[O_dynamite][J_loc] != B_have)) {
  1214. Xprintf("You have no dynamite to ignite.\n") ;
  1215. X    return ;
  1216. X}
  1217. X
  1218. X/* deal with spurious "light cap with match" */
  1219. Xif (tag[V_cap]&&(object[O_dynamite][J_loc] != B_have)&& 
  1220. X    (object[O_cap][J_loc] != B_have)) {
  1221. Xprintf("You don't have one to ignite.\n") ;
  1222. X    return ;
  1223. X}
  1224. X
  1225. X/* light up the match(es) */
  1226. X    if (tag[V_PLURAL]) {
  1227. Xprintf("You open up the match box and strike ALL of the matches.\n");
  1228. X        object[O_matches][J_loc] = B_destroyed ;
  1229. X    }
  1230. X    else {
  1231. Xprintf("You take one match from the match box and ignite it.\n") ;
  1232. X    }
  1233. X}
  1234. X
  1235. X/* see if player selected burnable objects */
  1236. Xif (tag[V_cap]&&(object[O_cap][J_loc] == B_have)) {
  1237. Xprintf("You then ignite the fuse of the blasting cap.\n\n"); 
  1238. Xprintf("Ssssssssssssssssssssssss........\n");
  1239. X    clock_explode = time(0) + 11 ;
  1240. X    sw_clock = TRUE ;
  1241. X    flag_clock = V_cap ;
  1242. X    return ;
  1243. X}
  1244. X
  1245. Xif ((tag[V_cap]||tag[V_dynamite])&&
  1246. X    (object[O_dynamite][J_loc] == B_have)) {
  1247. X    if (object[O_dynamite][J_type] == Z_alias) {
  1248. Xprintf("You then ignite the fuse of the dynamite's blasting cap....\n");
  1249. Xprintf("You need to very quickly get very far away from this thing!!");
  1250. Xprintf("\n\nSsssssssssssssssssssssss........\n");
  1251. X        clock_explode = time(0) + 11 ;
  1252. X        sw_clock = TRUE ;
  1253. X        flag_clock = V_dynamite ;
  1254. X         return ;
  1255. X    }
  1256. X    else {
  1257. Xprintf("You then ignite the dynamite. Which is an odd thing\n"); 
  1258. Xprintf("to do since it doesn't have a blasting cap in it.  The\n");
  1259. Xprintf
  1260. X  ("\"dynamite\" (which is actually a very safe mining explosive)\n");
  1261. Xprintf("burns for a few minutes, billowing out smelly black smoke\n");
  1262. Xprintf("and eventually goes out leaving a few scant ashes behind.\n") ;
  1263. X        object[O_dynamite][J_loc] = B_destroyed ;
  1264. X         return ;
  1265. X    }
  1266. X}
  1267. X
  1268. X} /* -- end of the "igniter" subroutine --- */
  1269. X
  1270. Xvoid hold_it()
  1271. X/********************************************/
  1272. X/*                                          */
  1273. X/*            Wait Subroutine               */
  1274. X/*                                          */
  1275. X/*     Software by Gary A. Allen, Jr.       */
  1276. X/*           Version: Mk 1.00               */
  1277. X/* (c) Copyright 1989 by Gary A. Allen, Jr. */
  1278. X/*                                          */
  1279. X/********************************************/
  1280. X
  1281. X{
  1282. X#if (PROTOTYPE)
  1283. Xchar getch(void) ;
  1284. X#endif
  1285. X
  1286. X#ifdef __TURBOC__
  1287. X/* Stop scrolling the screen until the user is ready */
  1288. Xprintf("               [Press any key to continue]\r") ;
  1289. Xgetch() ;
  1290. Xprintf("                                          \n") ;
  1291. X#endif
  1292. X
  1293. X#ifndef __TURBOC__
  1294. Xprintf("               [Press RETURN to continue]\n") ;
  1295. Xgetchar() ;
  1296. X#endif
  1297. X
  1298. X} /* --- end of the "hold_it" subroutine --- */
  1299. X
  1300. Xvoid eater()
  1301. X/********************************************/
  1302. X/*                                          */
  1303. X/*            Eater Subroutine              */
  1304. X/*                                          */
  1305. X/*     Software by Gary A. Allen, Jr.       */
  1306. X/*           Version: Mk 1.00               */
  1307. X/* (c) Copyright 1989 by Gary A. Allen, Jr. */
  1308. X/*                                          */
  1309. X/********************************************/
  1310. X{
  1311. X
  1312. X#if (PROTOTYPE)
  1313. Xvoid ender(int) ;
  1314. X#endif
  1315. X
  1316. X/* reject single verb command */
  1317. Xif (tag[V_VERB_ONLY]) {
  1318. X    printf("What exactly do you want me to swallow?\n") ;
  1319. X    return ;
  1320. X}
  1321. X
  1322. X/* deal with "eat (atropine) pill(s)" command */
  1323. Xif (tag[V_pill]) {
  1324. X    if (object[O_pills][J_loc] != B_have) {
  1325. Xprintf("You don't have the atropine pills in your possesion!\n") ;
  1326. X        return ;
  1327. X    }
  1328. X    if (tag[V_PLURAL]) {
  1329. Xprintf("You remove ALL of the pills from the packet and swallow\n");
  1330. Xprintf("the lot.  For a couple of minutes nothing happens, then you\n");
  1331. Xprintf("start seeing double and have nervous twitches. You then\n");
  1332. Xprintf("start shaking violently and collapse to the ground.\n") ;
  1333. Xprintf("Eventually you pass out and expire from atropine poisoning.\n");
  1334. X        ender(F_died) ;
  1335. X    }
  1336. X    if (--pill_count <= 0 ) {
  1337. X        object[O_pills][J_loc] = B_destroyed ;
  1338. X        carry_count-- ;
  1339. X        carry_weight -= object[O_pills][J_weight]  ;
  1340. Xprintf("You swallow the last atropine pill and throw away the empty\n");
  1341. Xprintf("packet which disappears from sight.  ") ;
  1342. X    }
  1343. Xelse printf("You swallow one atropine pill.  ") ;
  1344. X        i_poison += 10 ;
  1345. X        if (i_poison >= 30) {
  1346. Xprintf("\nAfter a moment you have a violent seizure and die.\n") ;
  1347. X            ender(F_died) ;
  1348. X        }
  1349. X        if (i_poison >= 20) {
  1350. Xprintf("\nYou begin to shake violently and can barely stand.\n") ;
  1351. X            return ;
  1352. X        }
  1353. X        if (i_poison >= 15) {
  1354. Xprintf("\nYour hands become a bit jittery and your vision blurred.\n") ;
  1355. X            return ;
  1356. X        }
  1357. X        printf("The drug has no ill effect.\n") ;
  1358. X    return ;
  1359. X}
  1360. Xelse 
  1361. Xprintf("I am not inclined towards putting that into my mouth!\n") ;
  1362. X
  1363. X} /* --- end of the "eater" subroutine --- */
  1364. X
  1365. Xvoid ender(i_quit)
  1366. X/********************************************/
  1367. X/*                                          */
  1368. X/*            Ender Subroutine              */
  1369. X/*                                          */
  1370. X/*     Software by Gary A. Allen, Jr.       */
  1371. X/*           Version: Mk 1.00               */
  1372. X/* (c) Copyright 1989 by Gary A. Allen, Jr. */
  1373. X/*                                          */
  1374. X/********************************************/
  1375. X 
  1376. Xint i_quit ;
  1377. X{
  1378. X#if (PROTOTYPE)
  1379. Xvoid hold_it(void), new_score(void), exit(int) ;
  1380. X#endif
  1381. X
  1382. X/* get last score */
  1383. Xnew_score() ;
  1384. X
  1385. Xif (gleep_score != 0) sw_active = TRUE ; 
  1386. X
  1387. Xif (i_quit == F_died) { 
  1388. X    hold_it() ;
  1389. X    score -= 100 ;
  1390. Xprintf ("\nOh Dear!  You've just turned yourself into a corpse! \n\n");
  1391. Xprintf ("For getting killed you lose 100 points. \n\n") ;
  1392. X}
  1393. X
  1394. X/* Scoring Block */
  1395. Xfor(;;) {
  1396. Xif (!sw_active) {
  1397. X    if (score == 0) { 
  1398. X        printf("You concluded the game with no points.  ") ; 
  1399. X        printf("What a pitiful performance!!\n") ;
  1400. X    }
  1401. X    else {
  1402. Xprintf("You concluded the game with a miserable negative score\n") ;
  1403. Xprintf("of %d points.  Your score was better BEFORE you \n",score);
  1404. Xprintf("started playing (need I say more on how this reflects\n");
  1405. Xprintf("upon your limited aptitude at Dinkum).\n") ;
  1406. X    }
  1407. X    break ;  /* drop out of the scoring block */
  1408. X}
  1409. X
  1410. Xif (score == 0)  {
  1411. Xprintf("You concluded the game with no points ") ;
  1412. X    if (gleep_score == 0) { 
  1413. Xprintf("and didn't drop a single gleep\n") ;
  1414. Xprintf("into the gleep tank. The word \"embarrassing\" sums it up!\n") ;
  1415. X    }
  1416. X    else {
  1417. X        if (gleep_score > 1) {
  1418. Xprintf("but you did put %d gleeps\n",gleep_score) ;
  1419. Xprintf("into the gleep tank.\n") ;
  1420. X        }
  1421. X        else {
  1422. Xprintf("but you did manage to find a gleep\n") ;
  1423. Xprintf("and put it in the gleep tank, (Hah!! What an achievement!).\n");
  1424. X        }
  1425. X    }
  1426. X}
  1427. X
  1428. Xelse {
  1429. Xif (score > 0)
  1430. Xprintf ("You concluded the game with %d points",score);
  1431. Xelse {
  1432. Xprintf("You concluded the game with a miserable negative score\n") ;
  1433. Xprintf("of %d points.  Your score was better BEFORE you \n",score);
  1434. Xprintf("started playing (need I say more on how this reflects\n");
  1435. Xprintf("upon your limited aptitude at Dinkum).  You ") ;
  1436. X    if (gleep_score == 0) { 
  1437. Xprintf("also failed to\nget any gleeps into the tank.  At least ");
  1438. Xprintf("you're consistent.\n\n") ;
  1439. X    }
  1440. X    else {
  1441. Xprintf("managed\nto get something into the gleep tank.  However ");
  1442. Xprintf("it hardly\nmatters, considering your poor score.\n\n") ;
  1443. X    }
  1444. X    break ;  /* drop out of the scoring block */
  1445. X}
  1446. X    if (gleep_score == 0) 
  1447. Xprintf(".\nHowever you placed no gleeps in the gleep tank.\n") ;
  1448. X    else {
  1449. X        if (gleep_score > 1) {
  1450. Xprintf (" and placed %d gleeps\n",gleep_score) ;
  1451. Xprintf ("in the gleep tank.  Good on you, Mate!\n") ;
  1452. X        }
  1453. X        else {
  1454. Xprintf(" but you did manage to find a gleep\n") ;
  1455. Xprintf("and put it in the gleep tank.\n") ;
  1456. X        }
  1457. X    }
  1458. X}
  1459. Xbreak ;  /* drop out of the scoring block */
  1460. X} /* end of the scoring block */
  1461. X
  1462. X/* Closing Remark */
  1463. Xprintf("\nDinkum has ended.  If you are interested in more ") ;
  1464. Xprintf("information\nabout this program type:    dinkum -h\n") ;
  1465. Xexit(0);
  1466. X
  1467. X} /* --- end of "ender" routine --- */
  1468. END_OF_FILE
  1469. if test 26609 -ne `wc -c <'opener.c'`; then
  1470.     echo shar: \"'opener.c'\" unpacked with wrong size!
  1471. fi
  1472. # end of 'opener.c'
  1473. fi
  1474. echo shar: End of archive 5 \(of 7\).
  1475. cp /dev/null ark5isdone
  1476. MISSING=""
  1477. for I in 1 2 3 4 5 6 7 ; do
  1478.     if test ! -f ark${I}isdone ; then
  1479.     MISSING="${MISSING} ${I}"
  1480.     fi
  1481. done
  1482. if test "${MISSING}" = "" ; then
  1483.     echo You have unpacked all 7 archives.
  1484.     rm -f ark[1-9]isdone
  1485. else
  1486.     echo You still need to unpack the following archives:
  1487.     echo "        " ${MISSING}
  1488. fi
  1489. ##  End of shell archive.
  1490. exit 0
  1491.