home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / volume15 / dinkum / part02 < prev    next >
Encoding:
Internet Message Format  |  1993-01-26  |  52.7 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: v15i022:  dinkum - australian text adventure game, Part02/06
  5. Message-ID: <3980@master.CNA.TEK.COM>
  6. Date: 29 Nov 92 20:30:50 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 1383
  9. Approved: billr@saab.CNA.TEK.COM
  10. Xref: uunet comp.sources.games:1521
  11.  
  12. Submitted-by: Gary Allen <gary@sun.mech.uq.oz.au>
  13. Posting-number: Volume 15, Issue 22
  14. Archive-name: dinkum/Part02
  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 2 (of 6)."
  26. # Contents:  longdsc.c makefile objlook.c
  27. # Wrapped by billr@saab on Sun Nov 29 12:25:48 1992
  28. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  29. if test -f 'longdsc.c' -a "${1}" != "-c" ; then 
  30.   echo shar: Will not clobber existing file \"'longdsc.c'\"
  31. else
  32. echo shar: Extracting \"'longdsc.c'\" \(33573 characters\)
  33. sed "s/^X//" >'longdsc.c' <<'END_OF_FILE'
  34. X#define LONG_DESCP
  35. X#include "dink_sym.h"
  36. X#include "dink_glb.h"
  37. X
  38. Xvoid long_descp(n)
  39. X/* long description routine */
  40. Xint n ;
  41. X{
  42. X#ifdef __TURBOC__
  43. Xvoid boom(void), describe(int), ender(int) ;
  44. X#endif
  45. X
  46. Xif (((object[O_torch][J_loc] == B_have)&&object[O_torch][J_property])|| 
  47. X    (n < 186)||(n > 202)) { 
  48. X
  49. X/* See if player entered the killing passage in the end game */
  50. Xif ((n >= 218)&&(n <= 227)) {
  51. Xprintf("As you're walking down the passage you feel the slight\n") ;
  52. Xprintf("tug of a trip wire on your leg.  Out the corner of your\n");
  53. Xprintf("eye you see the trip wire is connected to an olive green\n") ;
  54. Xprintf("cylinder attached to the wall of the tunnel....\n\n") ;
  55. Xboom() ;
  56. Xprintf("\nIn case you're wondering that was a booby trap which you\n") ;
  57. Xprintf("set off!\n") ;
  58. Xender(F_died) ;
  59. X}
  60. X
  61. X/* Select individual rooms */
  62. Xswitch (n) {
  63. Xcase R_river:      /* drowing in the river description */
  64. Xprintf ("As you approach the edge of the dike, there is a small\n");
  65. Xprintf ("earth slide which pitches you into the river.  You\n");
  66. Xprintf ("flounder around in the water for a short while.  Luckily\n");
  67. Xprintf ("before you have the chance to drown, a crocodile pulls\n") ;
  68. Xprintf ("you under, bringing you to a rather quick though painful\n");
  69. Xprintf ("end. \n") ;
  70. Xreturn ;
  71. X
  72. Xcase R_bunyip:      /* getting eaten by the bunyip */
  73. Xprintf ("The slimey tentacle suddenly tightens around your leg, and\n");
  74. Xprintf ("the water in the billabong starts to churn furiously. Then\n");
  75. Xprintf ("surfaces the one thing that all Australians fear the most...");
  76. Xprintf ("\n\nBefore you stands an enormous sickly green Queensland\n") ;
  77. Xprintf ("Bunyip in all its awesome horror. It does not make a quick\n");
  78. Xprintf ("end of you....  Such is not the way of Bunyips.  First it \n");
  79. Xprintf ("peels off your skin as if you where a banana.  After much\n");
  80. Xprintf ("fearful agony, comes release as you pass into death.\n");
  81. Xreturn ;
  82. X
  83. Xcase R_taipan:      /* getting bitten by a taipan */
  84. Xprintf ("As you wander aimlessly in the grass, you accidently step\n");
  85. Xprintf ("upon a taipan which is perhaps the most poisonous of Oz's \n");
  86. Xprintf ("snakes. The snake strikes upwards and bites you in the\n");
  87. Xprintf ("worst possible place.  You thrash around for a short while\n");
  88. Xprintf ("and then the venom takes hold. Your body begins to decompose");
  89. Xprintf ("\nbefore your very eyes.  Death comes only after an hour \n");
  90. Xprintf ("of the worst possible agony.  \n");
  91. Xreturn ;
  92. X
  93. Xcase R_mine_head:  /* Front of ACME Mine */
  94. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  95. Xprintf ("East of you is a large iron open truss tower, topped with \n");
  96. Xprintf ("two rusting wheels holding a pair of thick steel cables.  \n");
  97. Xprintf ("This is the head gear of the once highly successful ACME \n"); 
  98. Xprintf ("Gold Mine, which now is completely mined out.  Where \n");
  99. Xprintf ("there were once rich veins of gold is now a honeycomb of \n");
  100. Xprintf ("tunnels and caverns.  There are stories about strange \n");
  101. Xprintf ("events in the old tunnels of the ACME mine and only fools \n");
  102. Xprintf ("or reckless adventurers would dare explore them. \n");
  103. Xprintf ("To the north is the old office building.  Rumor has it \n");
  104. Xprintf ("the safe in this building once had millions of dollars in \n");
  105. Xprintf ("gold  processed from the rich ore of the ACME mine.  To \n");
  106. Xprintf ("the south is the mine lift, which once transported up to \n");
  107. Xprintf ("twenty miners at a time down the long mine shaft to the \n");
  108. Xprintf ("working tunnels deep under the earth below \n");
  109. Xreturn ;
  110. X
  111. Xcase R_office_mang:  /* Manager's office */
  112. Xroom[n][M_rm_type] = T_action_obj ;
  113. Xprintf("You are in the Manager's office of the ACME Mine.  In \n");
  114. Xprintf("former times this room saw many lively meetings between \n"); 
  115. Xprintf("the Site Manager and Shift Bosses.  Fixed to the wall are\n");
  116. Xprintf("old production schedules and organizational charts. In\n");
  117. Xprintf("the middle of the room is a beautiful silky oak desk.\n");
  118. Xprintf("Unfortunately it is too heavy to move.  Attached to\n"); 
  119. Xprintf("the far wall is a curious picture of a platypus wearing a \n");
  120. Xprintf("hat with old wine corks dangling from the hat's brim. The\n");
  121. Xprintf("only exit is to the south.\n\n") ;
  122. Xreturn ;
  123. X
  124. Xcase R_geo_w:  /* Geologist's office */
  125. Xroom[n][M_rm_type] = T_unmovable_obj ;
  126. Xprintf("As you entered this room, huge cockroaches scuttled off ");
  127. Xprintf("in every \n"); 
  128. Xprintf("direction. On the far wall is a rather tasteless poster ");
  129. Xprintf("depicting \n");
  130. Xprintf("an extremely well endowed (unclad) young woman holding a ");
  131. Xprintf("mining \n"); 
  132. Xprintf("drill.  This office was once occupied by the mine ");
  133. Xprintf("geologist.  One \n");
  134. Xprintf("can still see traces of the office's former occupant.  ");
  135. Xprintf("There are only \n");
  136. Xprintf("two doors to this room.  Both go to the north. You entered ");
  137. Xprintf("through \n");
  138. Xprintf("the west door.  However there is another door in ");
  139. Xprintf("the eastern section \nof the office. \n");
  140. Xreturn ;
  141. X 
  142. X/* lift compartment */
  143. Xcase R_lift_inside:
  144. Xroom[n][M_rm_type] = T_action_obj ;
  145. Xprintf("You are inside the lift, which has only one ");   
  146. Xprintf("entrance doorway to the west. \n");
  147. Xprintf("To the left of the door is a panel of buttons.  Most of "); 
  148. Xprintf("the buttons are \ninoperative with tape over them.  However ");
  149. Xprintf("there are four buttons \nthat still work. Each of the four ");
  150. Xprintf("buttons have a number stamped on them.  \nThe numbers are ");
  151. Xprintf("zero, forty-nine, sixty-seven, and eighty-two. \n \n");
  152. Xreturn ;
  153. X 
  154. Xcase R_hideout_entr:  /* Ned Kelly's Hide Out */
  155. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  156. X
  157. Xif (monster_flag == F_no_monster) {
  158. Xprintf ("Before you is a Queensland house with large verandas. ") ;
  159. Xprintf ("The front of\nthe house is to the east. The house ") ;
  160. Xprintf ("is painted fluorescent orange.\nOn the roof of the house is ");
  161. Xprintf ("a large, bright flashing neon sign which reads: \n\n");
  162. Xprintf("___________________________________________________________\n");
  163. Xprintf("|                                                         |\n");
  164. Xprintf("|            Ned Kelly's ---SECRET--- Hide Out            |\n");
  165. Xprintf("| Policemen, troopers, law enforcement officers and all   |\n");
  166. Xprintf("| other minions of the law and public decency are advised |\n");
  167. Xprintf("| to look else where for bush rangers, thieves, and other |\n");
  168. Xprintf("| larrikins, since ***only*** honest, law abiding         |\n");
  169. Xprintf("| Australians (loyal to Queen and Country) live here.     |\n");
  170. Xprintf("|                                                         |\n");
  171. Xprintf("___________________________________________________________\n");
  172. X}
  173. Xelse describe(n) ;
  174. Xreturn ;
  175. X
  176. Xcase R_foreman:
  177. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  178. Xprintf("You have entered the office of the Level #67 Foreman. In ");
  179. Xprintf("the middle of the\nroom is the Foreman's large and immovable ");
  180. Xprintf("desk.  To one side can be seen an\nempty file cabinet and ");
  181. Xprintf("a series of pidgeon holes for holding mine worker's\nmail. ");
  182. Xprintf("The only exit is to the west.\n\n") ;
  183. Xreturn ;
  184. X
  185. Xcase R_no_treasure:
  186. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  187. Xprintf("You are in a tunnel going east and west. Crude letters have\n");
  188. Xprintf("been scratched into the wall of the tunnel.  The following\n") ;
  189. Xprintf("was written:\n\n") ;
  190. Xprintf("Dear Treasure Hunter:\n") ;
  191. Xprintf("There was lots of treasure on this level when I first\n") ;
  192. Xprintf("discovered this mine.  However I have since carted it all\n") ;
  193. Xprintf("away.  You might try looking on another level.") ;
  194. Xprintf("\n\n                            Good Luck!\n") ;
  195. Xprintf("                         Dr. I. Jones, Ph.D.\n\n") ;
  196. Xreturn ;
  197. X
  198. Xcase R_gleep_tank:
  199. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  200. Xprintf("You have walked into a room with a large plastic tank set "); 
  201. Xprintf("in the middle.\nThe tank is about two meters deep and ");
  202. Xprintf("full of dark blue liquid which\nsmells strongly of chlorine.");
  203. Xprintf(" The words \"Gleep Tank\" have been crudely\n");
  204. Xprintf("spray painted on the wall.\n") ;
  205. Xreturn ;
  206. X 
  207. Xcase R_ufo_e:
  208. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  209. Xprintf("You crawl under a long thin sting that projects from the ");
  210. Xprintf("front of the\nspacecraft.  It's made from a different metal ");
  211. Xprintf("(stainless steel?), and appears\nto have been retractable. ");
  212. Xprintf("This was probably a Mach probe for measuring flight\n") ;
  213. Xprintf("speed. You can go north or south.\n") ;
  214. Xreturn ;
  215. X 
  216. Xcase R_ufo_w:
  217. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  218. Xprintf("Before you is perhaps the real reason why the ACME Mine ");
  219. Xprintf("was closed. You see\nthe bent and twisted remains of what ");
  220. Xprintf("could only be an ancient spacecraft. It\nsits ") ;
  221. Xprintf("embedded within a gold bearing");
  222. Xprintf(" reef of conglomerate stone from the\nPrecambrain Period ");
  223. Xprintf("(hundreds of millions of years old).  The old spacecraft\n") ;
  224. Xprintf("was based on a delta wing design which the miners had ");
  225. Xprintf("chiped free from\nthe rock. You can see clearly the interior ");
  226. Xprintf("of the engine exhaust ducts.  The\nvehicle has air inlets ");
  227. Xprintf("so it must have been air breathing when it flew in\nthe ");
  228. Xprintf("atmosphere. ") ;
  229. Xprintf("The edges of the ducts appear to be made of titanium ");
  230. Xprintf("and are\nabout six centimeters thick. No wonder it could ");
  231. Xprintf("survive millions of years\nunder tons of stone. ") ;
  232. Xprintf("This spacecraft is literally built like a battleship!\nYou ") ;
  233. Xprintf("can climb over the vehicle to the north or go south.\n\n");
  234. Xreturn ;
  235. X 
  236. Xcase R_ufo_n:
  237. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  238. Xprintf("You're now doing a tight squeeze between the tunnel wall ");
  239. Xprintf("and the leading\nedge of the wing.  You can see the titanium");
  240. Xprintf(" surface is covered with many\nregularly placed little ");
  241. Xprintf("holes, each about half a millimeter in diameter.\nThis ");
  242. Xprintf("was probably part of the wing's cooling system for ") ;
  243. Xprintf("atmospheric entry\nfrom orbit. You can go south-east or ");
  244. Xprintf("south-west.\n\n");
  245. Xreturn ;
  246. X 
  247. Xcase R_ufo_s:
  248. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  249. Xprintf("You're crawling under the wing and next to the spacecraft's ");
  250. Xprintf("landing gear.\nThe landing gear strut is almost snapped ");
  251. Xprintf("off.  The tyre has long ago turned\nto dust, but the tyre ");
  252. Xprintf("rim is still in place.  The braking system used is\nquite ");
  253. Xprintf("odd.  The brake rotor is basicly a ring being gripped by ");
  254. Xprintf("a caliper with\nconcave brake pads.  You ") ;
  255. Xprintf("can go north-west or north-east.\n") ;
  256. Xreturn ;
  257. X 
  258. Xcase R_ufo_ne:
  259. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  260. Xprintf("You are now near the nose of the derelict spacecraft.  You ");
  261. Xprintf("see a quartz\nwindow in the side of the vehicle.  It has been");
  262. Xprintf(" so scratched by the\ncenturies that it is now opaque.  ");
  263. Xprintf("You can go north-west or south.\n") ;
  264. Xreturn ;
  265. X 
  266. Xcase R_ufo_nw:
  267. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  268. Xprintf("As you scrambled over the old derelict, you passed under ");
  269. Xprintf("the vertical\nstabilizer which centuries of geological ") ;
  270. Xprintf("forces had bent into what\nlooks like a sagging shark's ");
  271. Xprintf("fin. You can go south or do a tight squeeze\nto the ");
  272. Xprintf("north-east.\n\n");
  273. Xreturn ;
  274. X 
  275. Xcase R_ufo_se:
  276. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  277. Xprintf("You are under the forward section of the spacecraft. ");
  278. Xprintf("Above you is an\nopened access hatch which leads into the ");
  279. Xprintf("dark interior of the derelict.\n");
  280. Xprintf("You can go north, up or crawl under the wing to the ");
  281. Xprintf("south-west\n") ;
  282. Xreturn ;
  283. X 
  284. Xcase R_ufo_sw:
  285. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  286. Xprintf("You are hunching over as you scramble underneath the ");
  287. Xprintf("spacecraft's wing.\nNear the trailing edge of the wing ");
  288. Xprintf("you can see what is left of the\nwing flaps.  The flap ");
  289. Xprintf("was actuated by a very conventional hydraulic system.\n");
  290. Xprintf("Some of the metal tubing for the actuaters are still in ");
  291. Xprintf("place, though\nthe hydraulic fluid has long since ") ;
  292. Xprintf("fossilized into stone. You can\ngo north or south-east.\n") ;
  293. Xreturn ;
  294. X 
  295. Xcase R_air_lock:
  296. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  297. Xprintf("You are inside what is obviously an airlock.  There are ");
  298. Xprintf("two hatchways\ninto this airlock.  One leads to the exterior ");
  299. Xprintf("while the other goes into\nthe spacecraft's interior.  Both ");
  300. Xprintf("hatches appear to have originally been\nleft open and not ");
  301. Xprintf("forced by the miners (the hinges are immovable). ");
  302. Xprintf("It\nappears that the ship's crew left in a hurry. ") ;
  303. Xprintf("You can go north or down.\n") ;
  304. Xreturn ;
  305. X
  306. Xcase R_ship_passage:
  307. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  308. Xprintf("You've entered the intercompartment access passage.  To the ") ;
  309. Xprintf("south is an\nopen air tight door leading to the airlock. ");
  310. Xprintf("The access door to the east\nis open and recessed into the ");
  311. Xprintf("wall. The access door to the west has been\nforced open ");
  312. Xprintf("with a cutting torch and folded back with a pneumatic\n") ;
  313. Xprintf("hammer (obviously the work of the miners). ") ;
  314. Xprintf("The passage itself has about\nten centimeters of silt on the") ;
  315. Xprintf(" bottom and has the appearance of ancient\ndilapidation.\n") ;
  316. Xreturn ;
  317. X
  318. Xcase R_flight_deck:
  319. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  320. Xprintf("You have made it to the flight deck. Unfortunately ");
  321. Xprintf("it's not much to\nwrite home about. Since the access door ");
  322. Xprintf("was open, this area has been full\nof water and silt for ");
  323. Xprintf("millennia.  The miners have shoveled out most of it.\nOnce ");
  324. Xprintf("the wall panels were covered with some kind of plastic which");
  325. Xprintf(" has long\nsince turned to dust.  There are three corroded ");
  326. Xprintf("frames which were once crew\nseats. The beings that flew ") ;
  327. Xprintf("this machine were taller and wider than humans\nbut they ");
  328. Xprintf("had anthropoid form. The flight controls are still here");
  329. Xprintf(" but they\nare so heavily corroded that they can no longer "); 
  330. Xprintf("be moved.  The only way out\nis to the west.\n\n") ;
  331. Xreturn ;
  332. X
  333. Xcase R_panel:
  334. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  335. Xprintf("You are in a compartment that seems brand new, which is ");
  336. Xprintf("unbelievable.  Perhaps\nthe machinery in this ship was once ");
  337. Xprintf("self repairing.  Before you is a control\npanel with CRT type");
  338. Xprintf(" displays and buttons that still work.  Beneath each button\n");
  339. Xprintf("is a description written in a strange alien script ");
  340. Xprintf("vaguely like Sanskrit.\nI wouldn't dare ") ;
  341. Xprintf("press any button except one glowing pale green.  Beneath\n");
  342. Xprintf("this button is some masking tape that was obviously placed ") ;
  343. Xprintf("here by the miners.\nSomeone has written \"TEHR.\" on the ") ;
  344. Xprintf("masking tape with a pencil.\n\n") ;
  345. Xreturn ;
  346. X
  347. Xcase R_transport:
  348. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  349. Xprintf("You have walked into an elevated chamber with strange ") ;
  350. Xprintf("glowing hexagons on\nthe floor which are about half a ") ;
  351. Xprintf("meter across.  The hexagon pattern on the\nfloor is ");
  352. Xprintf("matched by one on the ceiling which is also glowing.\n\n") ;
  353. Xreturn ;
  354. X
  355. Xcase R_prayer:
  356. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  357. Xprintf("You are in a large and very grand room with walls made of\n");
  358. Xprintf("polished mahogany, and crystal chandeliers hanging from an\n");
  359. Xprintf("ornate ceiling.  There is a mihrab incongruously set in the\n");
  360. Xprintf("western wall of the building.  Also there are quotations\n");
  361. Xprintf("from the Quram written in golden letters along the top of\n") ;
  362. Xprintf("the walls near the ceiling.  On the floor are sumptuous\n") ;
  363. Xprintf("cushions made of silk and fine green velvet. Sitting on the\n");
  364. Xprintf("cushions are old men wearing black pajamas with white\n");
  365. Xprintf("towels wrapped around their heads. In the middle of the\n");
  366. Xprintf("floor is a raised dais, upon which is sitting a rather\n");
  367. Xprintf("stately old man wearing similar clothing. In the far corner\n");
  368. Xprintf("of the room is standing a wax dummy of the Ayatolla\n") ;
  369. Xprintf("Khomeini. His right arm is upright much like the Statue of\n") ;
  370. Xprintf("Liberty and in his right hand is a glowing 100 watt light\n") ;
  371. Xprintf("bulb.  I think this is the prayer room for the Iranian\n") ;
  372. Xprintf("Parliament!  You'll have to go west if you wish to leave.\n") ;
  373. Xreturn ;
  374. X 
  375. Xcase R_guard:
  376. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  377. Xprintf("You are in a rather small room with a table in the ");
  378. Xprintf("middle that is covered\nwith half filled cups of tea, dirty ") ;
  379. Xprintf("ash trays, and a newspaper written in\nwhat appears to be ") ;
  380. Xprintf("Arabic.  There is ") ;
  381. Xprintf("a brightly coloured poster on the\nwall depicting the Kaba ") ;
  382. Xprintf("Stone of Mecca with a calendar below it.  The only\n") ;
  383. Xprintf("exits are through an open doorway to the east and through");
  384. Xprintf(" a curtain covered\ndoorway to the south.\n\n") ;
  385. Xreturn ;
  386. X 
  387. Xcase R_closet:
  388. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  389. Xprintf("You are in a closet full of grubby, nondescript things not\n") ;
  390. Xprintf("worth taking. The closet stinks of moth balls. The only way\n");
  391. Xprintf("out is through a curtain covered doorway to the north.\n\n");
  392. Xreturn ;
  393. X 
  394. Xcase R_gong:
  395. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  396. Xprintf("You have entered an enormous room which is walled with\n");
  397. Xprintf("polished black granite supported by vast curving arches\n");
  398. Xprintf("much like a gothic cathedral.  The cavernous room is\n");
  399. Xprintf("octogonal in layout with huge flaming torches set in brass\n");
  400. Xprintf("holders in every corner of the room.  In the flickering\n");
  401. Xprintf("light of the torches you see an enormous silver gong\n");
  402. Xprintf("weighing at least a ton.  The huge gong is suspended from\n");
  403. Xprintf("a finely polished red cedar frame, the top of which is\n");
  404. Xprintf("about four meters above the floor.  The room is deathly\n");
  405. Xprintf("quiet like an ancient tomb. The only sound you can hear is\n");
  406. Xprintf("your own heart beating.\n") ;
  407. Xreturn ;
  408. X 
  409. Xcase R_warning:
  410. Xroom[n][M_rm_type] = T_was_long;   /* turn off long description  */
  411. Xprintf("You have entered a passage with exits to the north, south,\n");
  412. Xprintf("and west.  There is a poster glued to the wall which reads:\n");
  413. Xprintf("+---------------------------------------------------------+\n");
  414. Xprintf("|                                                         |\n");
  415. Xprintf("|              ACME MINE IS UNFAIR TO WORKERS!!           |\n");
  416. Xprintf("|                                                         |\n");
  417. Xprintf("|                       ON STRIKE!!                       |\n");
  418. Xprintf("|                                                         |\n");
  419. Xprintf("| The Loyal Brotherhood of Australian Miners and Under-   |\n");
  420. Xprintf("| ground Workers is on strike against Acme Mines Ltd. due |\n");
  421. Xprintf("| to unfair treatment of its workers.  Our Union demands  |\n");
  422. Xprintf("| the following:  Worker's wages be increased by 30%%, the |");
  423. Xprintf("\n") ;
  424. Xprintf("| week shall have only 4 working days, the working day    |\n");
  425. Xprintf("| shall be reduced to 5 hours, triple wages for overtime  |\n");
  426. Xprintf("| work and immunity from sacking for all Union members.   |\n");
  427. Xprintf("| To discourage scabs and other strike breakers from      |\n");
  428. Xprintf("| working during the strike, we have planted booby traps  |\n");
  429. Xprintf("| through out the tunnels on this level.  We do hope you  |\n");
  430. Xprintf("| don't mind the mine being mined so it won't be mined.   |\n");
  431. Xprintf("+---------------------------------------------------------+\n");
  432. X    return ;
  433. X 
  434. X    } 
  435. X}
  436. Xelse describe(n) ;
  437. X
  438. X} /* end of long_descp subroutine */
  439. X 
  440. Xvoid pusher(n_arg) 
  441. X/********************************************************************/
  442. X/*                                                                  */
  443. X/*                  --- The Pusher Subroutine ---                   */
  444. X/*                                                                  */
  445. X/*  Software by Gary A. Allen, Jr. 14 June 1989,    Version: Mk 1.2 */
  446. X/*           (c) Copyright 1988 by Gary A. Allen, Jr.               */
  447. X/*                                                                  */
  448. X/********************************************************************/
  449. Xint *n_arg ;
  450. X{
  451. Xregister int i ;
  452. Xint n ;
  453. X 
  454. X/* pass the room pointer */
  455. Xn = *n_arg ;
  456. X
  457. X/* reject an isolated "push" command */
  458. Xif (tag[V_VERB_ONLY]) {
  459. X    printf ("What exactly do you want me to push? \n");
  460. X    return; 
  461. X}
  462. X
  463. Xswitch (n) {
  464. X 
  465. X    /* Lift entrance at the ground level */
  466. X    case R_lift_entr:
  467. X        if (tag[V_green_button]) goto no_green ;
  468. X        if (!tag[V_button]) {
  469. X            if (!tag[V_blue_button]) {
  470. Xprintf ("I don't see why I should push that! \n");
  471. X                return ; 
  472. X            }
  473. X            else goto nothing ;
  474. X        }
  475. X        if (room[R_lift_entr][M_rm_status] == S_flashing ) {
  476. Xprintf ("You push the call button and there is a loud \"whirr\" from ");
  477. Xprintf ("an electric motor. \nThe massive steel doors slide open ");
  478. Xprintf ("revealing a huge lift that could hold \ntwenty men at once. ");
  479. Xprintf ("The way is now open for you to enter. \n");
  480. X            room[R_lift_entr][M_rm_status] = S_open ;
  481. X            room[R_lift_entr][2] = R_lift_inside ;
  482. X            break ; }
  483. X        else {
  484. Xprintf("You pushed the lift call button, but nothing happened.\n");
  485. Xprintf("I think the electrical power has been turned off at the\n") ;
  486. Xprintf("circuit breaker.\n") ;
  487. X            break ; }
  488. X 
  489. X    /* Lift Compartment */
  490. X    case R_lift_inside:
  491. X        if (tag[V_green_button]) goto no_green ;
  492. X 
  493. X    /* scan push sentence */
  494. X        /* zero level */
  495. X        if (tag[V_0]) {
  496. X        if (room[R_lift_inside][M_rm_status]== S_L0) {
  497. Xprintf ("You pushed the flashing button, but nothing happened.\n");
  498. X        break ; }
  499. Xprintf ("The steel doors slam shut and you feel heavy as the lift ");
  500. Xprintf ("accelerates \nupwards.  Finally the lift jerks to a halt ");
  501. Xprintf ("and the doors whirr open.  \nSunlight is streaming in. ");
  502. Xprintf ("Once again you are breathing the fresh air.\n");
  503. X        room[R_lift_inside][M_rm_status] = S_L0;
  504. X        room[R_lift_inside][3] = R_lift_entr;
  505. X        room[R_lift_inside][7] = R_lift_entr;
  506. X        return ;
  507. X        }
  508. X 
  509. X        /* forty-ninth level */
  510. X        if (tag[V_49]) {
  511. X        if (room[R_lift_inside][M_rm_status]== S_L49) {
  512. Xprintf ("You pushed the forty-nine button, but nothing happened.\n");
  513. X            return ;
  514. X        }    
  515. X        room[R_lift_inside][M_rm_status] = S_L49 ;
  516. X        room[R_lift_inside][3] = R_L49_entr;
  517. X        room[R_lift_inside][7] = R_L49_entr;
  518. Xdecp2:
  519. Xprintf ("The steel doors slam shut and you feel the vibration of ");
  520. Xprintf ("the lift \nmoving in its shaft. Finally the lift jerks ");
  521. Xprintf ("to a halt and the doors whirr open. \n");
  522. X        return ;
  523. X        }
  524. X 
  525. X        /* sixty-seventh level */
  526. X        if (tag[V_67]) {
  527. X        if (room[R_lift_inside][M_rm_status]== S_L67) {
  528. Xprintf ("You pushed the sixty-seven button, but nothing happened.\n");
  529. X            return ;
  530. X        }    
  531. X        room[R_lift_inside][M_rm_status] = S_L67;
  532. X        room[R_lift_inside][3] = R_L67_entr;
  533. X        room[R_lift_inside][7] = R_L67_entr;
  534. X        goto decp2 ;
  535. X        }
  536. X
  537. X        /* eighty-second level */
  538. X        if (tag[V_82]) {
  539. X        if (room[R_lift_inside][M_rm_status]== S_L82) {
  540. Xprintf ("You pushed the eighty-two button, but nothing happened.\n");
  541. X            return ;
  542. X        }    
  543. X        room[R_lift_inside][M_rm_status] = S_L82;
  544. X        room[R_lift_inside][3] = R_L82_entr;
  545. X        room[R_lift_inside][7] = R_L82_entr;
  546. Xprintf ("The steel doors slam shut and you feel a sense of ");
  547. Xprintf ("weightlessness as \nthe lift plummets down the mine shaft. ");
  548. Xprintf ("Finally the lift comes to a halt \n");
  549. Xprintf ("and the doors whirr open. \n");
  550. X        return ;
  551. X        }
  552. X        if (tag[V_blue_button]) goto nothing ;
  553. Xprintf ("This lift can go only to levels 0, 49, 67, or 82 \n");
  554. X        return ;
  555. X
  556. X    /* inside the closet at the Iranian Parliament */
  557. X    case R_closet:
  558. X        if (tag[V_green_button]) goto no_green ;
  559. X        if (tag[V_blue_button]||tag[V_button]) {
  560. X            /* Is the command for the black cube */
  561. X            if (object[O_cube][J_loc] != B_have) 
  562. X                goto no_switch ;
  563. Xprintf("There is a bright flash of light! Then suddenly you are\n");
  564. Xprintf("back in the hexagon chamber of the ancient spaceship.\n\n");
  565. X            *n_arg = R_transport ;
  566. X            return ;
  567. X        }
  568. X        else goto no_switch ;
  569. X 
  570. X
  571. X    /* the transporter control panel room */
  572. X    case R_panel:
  573. X        if (tag[V_button]) {
  574. Xwhich_button:
  575. Xprintf("Which button do you want me to push? \n") ;
  576. X            return;
  577. X        }
  578. X        if (tag[V_blue_button]) {
  579. X            if (object[O_cube][J_loc]==B_have) goto cubic ;
  580. X            else goto no_cube ;
  581. X        }
  582. X        if (tag[V_green_button]) {
  583. X            if (sw_transport != TRUE) {
  584. Xprintf("Lots of the \"Sanskrit\" text is flashing by on the display\n");
  585. Xprintf("panel's CRTs.  There is a whirring noise coming out of the\n");
  586. Xprintf("equipment around you which is increasing in both loudness\n");
  587. Xprintf("and pitch. You've turned something on, that's for sure!\n") ;
  588. X                sw_transport = TRUE ;
  589. X                return ;
  590. X            }
  591. X            else goto nothing ;
  592. X        }
  593. X    default:
  594. X        /* Semtex explosive detector */
  595. X        if (tag[V_detector] || tag[V_yellow_button] ||
  596. X            ((object[O_cube][J_loc] != B_have) &&
  597. X            (object[O_detector][J_loc] == B_have))) { 
  598. X            if (object[O_detector][J_loc] == B_have) 
  599. X                goto semtex ;
  600. X            else {
  601. Xprintf("You don't have the detector in your possession.\n") ;
  602. X                return ;
  603. X            }
  604. X        }
  605. X        /* Transporter return device */
  606. X        if (object[O_cube][J_loc] == B_have) {
  607. X            if ((object[O_detector][J_loc] == B_have) && 
  608. X                (!tag[V_blue_button])) 
  609. X                    goto which_button ;
  610. X            goto cubic ;
  611. X        }
  612. X        if (tag[V_blue_button]) goto no_cube ;
  613. X        if (tag[V_green_button]) goto no_green ;
  614. X
  615. Xprintf ("You can push as much as you like, but nothing will happen.\n");
  616. X} /* end of the switch block */
  617. Xreturn; 
  618. X
  619. X/* press Semtex detector button */
  620. Xsemtex:
  621. Xprintf("You press the button on the Semtex explosive detector and\n");
  622. Xfor (i = 0; i <= 9; i++) if ((n == i+207)||(n == i+228)) {
  623. X    if (room[227-i][M_rm_type] == T_lethal) {
  624. X        printf("hear a \"beep, beep, beep\".\n") ;
  625. X        return ;
  626. X    }
  627. X}
  628. Xprintf("the yellow light flashed.\n") ;
  629. Xreturn; 
  630. X
  631. X/* press cube button in wrong place */
  632. Xcubic:
  633. Xprintf("You press the button on the cube but nothing happens.\n");
  634. Xreturn; 
  635. X
  636. X/*  no switch */
  637. Xno_switch:
  638. Xprintf("There is nothing here with a push button switch.\n");
  639. Xreturn; 
  640. X
  641. X/*  no cube */
  642. Xno_cube:
  643. Xprintf("You don't have the cube with the blue button in your") ;
  644. Xprintf(" possession!\n") ;
  645. Xreturn; 
  646. X
  647. X/*  no green button */
  648. Xno_green:
  649. Xprintf("I see no green button to push!\n");
  650. Xreturn; 
  651. X
  652. X/* black cube in wrong room routine or green button pushed twice */
  653. Xnothing:
  654. Xprintf("Nothing happens!\n");
  655. X} /* --- end of the "pusher" subroutine --- */
  656. X 
  657. X 
  658. Xvoid switcher(n) 
  659. X/********************************************************************/
  660. X/*                                                                  */
  661. X/*                --- The Switcher Subroutine ---                   */
  662. X/*                                                                  */
  663. X/*                                                                  */
  664. X/*  Software by Gary A. Allen, Jr. 29 October 1989  Version: Mk 1.4 */
  665. X/*           (c) Copyright 1988 by Gary A. Allen, Jr.               */
  666. X/*                                                                  */
  667. X/********************************************************************/
  668. Xint n ;
  669. X{
  670. Xint flag_switch, flag_rifle_md ;
  671. X
  672. X#ifdef __TURBOC__
  673. Xvoid dialer(int) ;
  674. X#endif
  675. X
  676. X/* deal with single verb commands */
  677. Xif (tag[V_VERB_ONLY]) {
  678. X    if (tag[V_turn]) printf("Turn what?\n") ;
  679. X    if (tag[V_set]) printf("Set what?\n") ;
  680. X    if (tag[V_select]) printf("Select what?\n") ;
  681. X    if (tag[V_switch]) printf("Switch what?\n") ;
  682. X    return ;
  683. X}
  684. X
  685. X/* Deal with changing the safety on the rifle */
  686. Xif (tag[V_safety]) {
  687. X    if (object[O_rifle][J_loc] == B_have) {
  688. X        if (tag[V_off]) {
  689. X            rifle_flag = F_single ;
  690. Xprintf("The M16 rifle is set to single shot mode ") ;
  691. Xprintf("with the safey off.\n") ;
  692. X            return ;
  693. X        }
  694. X        if (tag[V_on]) {
  695. X            rifle_flag = F_safety ;
  696. Xprintf("The M16 rifle's safety has been turned on.\n") ;
  697. X            return ;
  698. X        }
  699. X    printf("How do you want the safety set?\n") ;
  700. X    }
  701. X    else printf("You're not holding the rifle!\n") ;
  702. X    return ;
  703. X}
  704. X
  705. X/* deal with special case "turn (safe) dial 0 49 67 82" */
  706. Xif (tag[V_turn] && tag[V_dial] && (!tag[V_rifle])) {
  707. X    dialer(n) ;
  708. X    return ;
  709. X}
  710. X
  711. X/* deal with special case "turn safe ..." */
  712. Xif (tag[V_turn] && (!tag[V_dial]) && tag[V_safe]) {
  713. X    if (n != R_office_mang) {
  714. Xprintf("There is no safe here to turn!\n") ;
  715. X        return  ;
  716. X    }
  717. Xprintf("Since the safe is set in a concrete wall, turning it would\n");
  718. Xprintf("be rather difficult!  Perhaps I should turn the safe's\n") ;
  719. Xprintf("dial instead?\n") ;
  720. X    return ;
  721. X}
  722. X
  723. X/* initialize the local switches */
  724. Xflag_switch = F_no_argument ; 
  725. Xif (tag[V_on]) flag_switch = TRUE ;
  726. Xif (tag[V_off]) flag_switch = FALSE ;
  727. Xif (verb == V_light) flag_switch = TRUE ;
  728. X
  729. Xflag_rifle_md = F_no_argument ;
  730. Xif (tag[V_safe]) flag_rifle_md = F_safety ;
  731. Xif (tag[V_triple]) flag_rifle_md = F_triple ;
  732. Xif (tag[V_single]) flag_rifle_md = F_single ;
  733. Xif (tag[V_auto]) flag_rifle_md = F_auto ;
  734. X
  735. Xif ((flag_switch == F_no_argument)&&(flag_rifle_md == F_no_argument)) {
  736. Xprintf("You will have to be a little more specific than that. \n") ;
  737. X    return ;
  738. X}
  739. X
  740. X/* see if it is a simple "on/off" power equipment switch command */
  741. Xif ((!tag[V_torch])&&(!tag[V_rifle])&&
  742. X    (flag_rifle_md == F_no_argument)) {
  743. Xif (n == R_store_room) {
  744. X    /* The circuit breaker is switched off */
  745. X    if (flag_switch == FALSE) {
  746. X    if (room[R_store_room][M_rm_status] == S_off) {
  747. X    printf ("The circuit breaker is already turned off! \n");
  748. X    return ; }
  749. X    else {
  750. Xprintf ("As you pull the switch lever, there is a bright blue \n");
  751. Xprintf ("arc and then all of the lights go out. \n");
  752. X        room[R_store_room][M_rm_status] = S_off ;
  753. X        room[R_lift_entr][M_rm_status] = S_closed ;
  754. X        return; }
  755. X    }
  756. X    /* The circuit breaker is switched on */
  757. X    if (flag_switch == TRUE) {
  758. X    if (room[R_store_room][M_rm_status] == S_on) {
  759. X    printf ("The circuit breaker is already turned on! \n");
  760. X    return; }
  761. X    else {
  762. Xprintf ("As you pull the switch lever, there is a loud \"CLUNK\" \n");
  763. Xprintf ("and you see a POWER ON light glowing. \n");
  764. X        room[R_store_room][M_rm_status] = S_on ;
  765. X        room[R_lift_entr][M_rm_status] = S_flashing ;
  766. X        return; }
  767. X    }
  768. X}          
  769. Xgoto garbage_cmd ;
  770. X} /* end of the simple "on/off" switch group */
  771. X
  772. X/* the switch command is to select an M16 rifle firing mode */
  773. Xif (tag[V_rifle]) {
  774. X    if (object[O_rifle][J_loc] == B_have) {
  775. X
  776. X        /* turn the rifle on naively */
  777. X        if ((flag_switch==TRUE)||
  778. X               ((flag_rifle_md==F_safety)&&(flag_switch==FALSE))) {
  779. X            if (rifle_flag != F_safety) {
  780. Xprintf("The rifle's safety is already off! \n") ; 
  781. X                return;
  782. X            }
  783. X            rifle_flag = F_single ;
  784. Xprintf("The M16 rifle has been set to single shot mode. \n") ;
  785. X            return ;
  786. X        } 
  787. X/* turn on the safety */
  788. X    if ((flag_switch==FALSE)||
  789. X      ((flag_rifle_md==F_safety)&&((flag_switch==TRUE)||
  790. X      (flag_switch==F_no_argument)))) {
  791. X                if (rifle_flag == F_safety) {
  792. Xprintf("The rifle's safety is already on! \n") ; 
  793. X                return;
  794. X                }
  795. X            rifle_flag = F_safety ;
  796. Xprintf("The M16 rifle's safety has now been turned on. \n") ;
  797. X            return ;
  798. X    } 
  799. X        /* select single shot mode */  
  800. X        if (flag_rifle_md == F_single) {
  801. X            if (rifle_flag == F_single) {
  802. Xprintf("The rifle has already been set to single shot mode.\n");
  803. X                return;
  804. X            }
  805. X            rifle_flag = F_single ;
  806. Xprintf("The M16 rifle has been set to single shot mode. \n") ;
  807. X            return ;
  808. X        } 
  809. X        /* select triple fire mode */  
  810. X        if (flag_rifle_md == F_triple) {
  811. X            if (rifle_flag == F_triple) {
  812. Xprintf("The rifle has already been set to triple fire mode.\n");
  813. X                return;
  814. X            }
  815. X            rifle_flag = F_triple ;
  816. Xprintf("The M16 rifle has been set to triple fire mode. \n") ;
  817. X            return ;
  818. X        } 
  819. X        /* select to fully automatice mode */
  820. X        if (flag_rifle_md == F_auto) {
  821. X            if (rifle_flag == F_auto) {
  822. Xprintf("The rifle has already been set to fully automatic.\n");
  823. X                return;
  824. X            }
  825. X            rifle_flag = F_auto ;
  826. Xprintf("The M16 rifle has been set to fully automatic. \n") ;
  827. X            return ;
  828. X        } 
  829. X    }
  830. X    /* This is the rifle nonpossession error handler */
  831. X    else {
  832. Xprintf("You don't have a rifle in your possession! \n") ;
  833. X        return ;
  834. X    }
  835. X} /* end of the rifle mode switching block */
  836. X
  837. X/* the switch command is to turn the torch off or on. */
  838. Xif (tag[V_torch]) {
  839. X    if (object[O_torch][J_loc] == B_have) {
  840. X        /* "switch torch on" command */
  841. X        if (flag_switch==TRUE) {
  842. X            if (object[O_torch][J_property]) {
  843. Xprintf("The torch is already turned on.\n") ;
  844. X                return ;
  845. X            }
  846. Xprintf("An intense beam of light is projected from the torch.\n") ;
  847. X            object[O_torch][J_property] = TRUE ;
  848. X            return ;
  849. X        }
  850. X        /* "switch torch off" command */
  851. X        if (flag_switch==FALSE) {
  852. X            if (!object[O_torch][J_property]) {
  853. Xprintf("The torch isn't switched on.\n") ;
  854. X                return ;
  855. X            }
  856. Xprintf("The torch switches off with a \"click\".\n") ;
  857. X            object[O_torch][J_property] = FALSE ;
  858. X            return ;
  859. X        }
  860. X    }
  861. Xprintf("You don't have a torch in your possession to switch! \n") ;
  862. X    return ;
  863. X}
  864. X
  865. X/* Deal with a garbage command */
  866. Xgarbage_cmd :
  867. Xprintf("I don't understand what you want me to switch. \n") ;
  868. Xreturn ;
  869. X
  870. X} /* --- end of the "switcher" subroutine --- */
  871. X
  872. Xvoid new_score() 
  873. X/* This subroutine calculates the score based on treasure in the safe */
  874. X{
  875. Xint i ;
  876. X    score = 0 ;
  877. X for (i = 0; i <= objcnt; i++) if (object[i][J_loc] == B_in_safe)  {
  878. X        score += object[i][J_value] ;
  879. X    } ;
  880. X} /* --- end of the "new_score" subroutine --- */
  881. END_OF_FILE
  882. if test 33573 -ne `wc -c <'longdsc.c'`; then
  883.     echo shar: \"'longdsc.c'\" unpacked with wrong size!
  884. fi
  885. # end of 'longdsc.c'
  886. fi
  887. if test -f 'makefile' -a "${1}" != "-c" ; then 
  888.   echo shar: Will not clobber existing file \"'makefile'\"
  889. else
  890. echo shar: Extracting \"'makefile'\" \(701 characters\)
  891. sed "s/^X//" >'makefile' <<'END_OF_FILE'
  892. XCFLAGS =  -c
  893. XHEAD = dink_sym.h dink_glb.h
  894. XOBJECTS = dinkum.o describe.o longdsc.o objlook.o actor.o \
  895. Xmonster.o opener.o gleeper.o parse.o taker.o
  896. Xdinkum: $(OBJECTS)
  897. X    cc $(OBJECTS) -o dinkum
  898. Xdinkum.o: dinkum.c $(HEAD)
  899. X    cc $(CFLAGS) dinkum.c
  900. Xdescribe.o: describe.c $(HEAD)
  901. X    cc $(CFLAGS) describe.c
  902. Xlongdsc.o: longdsc.c $(HEAD)
  903. X    cc $(CFLAGS) longdsc.c
  904. Xobjlook.o: objlook.c $(HEAD)
  905. X    cc $(CFLAGS) objlook.c
  906. Xparse.o: parse.c $(HEAD)
  907. X    cc $(CFLAGS) parse.c
  908. Xactor.o: actor.c $(HEAD)
  909. X    cc $(CFLAGS) actor.c
  910. Xmonster.o: monster.c $(HEAD)
  911. X    cc $(CFLAGS) monster.c
  912. Xopener.o: opener.c $(HEAD)
  913. X    cc $(CFLAGS) opener.c
  914. Xgleeper.o: gleeper.c $(HEAD)
  915. X    cc $(CFLAGS) gleeper.c
  916. Xtaker.o: taker.c $(HEAD)
  917. X    cc $(CFLAGS) taker.c
  918. X
  919. END_OF_FILE
  920. if test 701 -ne `wc -c <'makefile'`; then
  921.     echo shar: \"'makefile'\" unpacked with wrong size!
  922. fi
  923. # end of 'makefile'
  924. fi
  925. if test -f 'objlook.c' -a "${1}" != "-c" ; then 
  926.   echo shar: Will not clobber existing file \"'objlook.c'\"
  927. else
  928. echo shar: Extracting \"'objlook.c'\" \(15834 characters\)
  929. sed "s/^X//" >'objlook.c' <<'END_OF_FILE'
  930. X#define OBJLKR
  931. X#include "dink_sym.h"
  932. X#include "dink_glb.h"
  933. X
  934. Xvoid objlooker(n)
  935. X/*********************************************************/
  936. X/*                                                       */
  937. X/*    --- Object in Room Examination Subroutine ---      */
  938. X/*                                                       */
  939. X/*      Program by Gary A. Allen, Jr.  18 May 1990       */
  940. X/*        (c) Copywrite 1989 by Gary A. Allen, Jr.       */
  941. X/*                                                       */
  942. X/*********************************************************/
  943. Xint n ;
  944. X{
  945. X#ifdef __TURBOC__
  946. Xvoid objector(int) ;
  947. X#endif
  948. X
  949. Xregister int i ;
  950. X
  951. Xif (((object[O_torch][J_loc] == B_have)&&object[O_torch][J_property])|| 
  952. X   (n < 186)||(n > 202)) { 
  953. X    if (room[n][M_obj_cnt] == 1) {
  954. X        for (i=0; i <= objcnt; i++) {
  955. X            if ((object[i][J_loc] == n) && 
  956. X                (object[i][J_type] != Z_unmovable)) {
  957. X                if (n == R_office_mang) {
  958. Xprintf ("On the floor you see ") ;
  959. X                    objector(i) ;
  960. X                    printf (".\n") ;
  961. X                }
  962. X                else {
  963. X                     printf ("You see ") ;
  964. X                    objector(i) ;
  965. X                    printf (".\n") ;
  966. X                }
  967. X            }
  968. X        }
  969. X    }
  970. X    if (room[n][M_obj_cnt] > 1) {
  971. X        if (n == R_office_mang) 
  972. Xprintf ("You see the following on the floor: \n");
  973. X        else printf ("You see the following: \n");
  974. X        for (i=0; i <= objcnt; i++) {
  975. X            if ((object[i][J_loc] == n) && 
  976. X                (object[i][J_type] != Z_unmovable)) {
  977. X                printf ("        ") ;
  978. X                objector(i) ;
  979. X                printf ("\n") ;
  980. X            }
  981. X        }
  982. X    }
  983. X}
  984. X} /* end of "objlooker" subroutine */
  985. X 
  986. Xvoid kelly(n) 
  987. X/********************************************************************/
  988. X/*                                                                  */
  989. X/*                  --- Ned Kelly Subroutine --                     */
  990. X/*                                                                  */
  991. X/* Software by Gary A. Allen, Jr. 5 November 1989  Version: Mk 1.2  */
  992. X/*           (c) Copyright 1989 by Gary A. Allen, Jr.               */
  993. X/*                                                                  */
  994. X/********************************************************************/
  995. Xint n ;
  996. X{
  997. Xregister int i, k ;
  998. Xstatic int ned_look = 0, sw_fiddle = TRUE ;
  999. Xint  sw_ned_look, sw_ned_set ;
  1000. X
  1001. X/* check if Ned  Kelly is dead */
  1002. Xif (enemy[N_ned][E_location] == B_destroyed) return ;
  1003. X
  1004. X/* this switch is for Ned looking for treasure once per cycle */
  1005. Xsw_ned_look = FALSE ;
  1006. Xsw_ned_set = FALSE ;
  1007. X
  1008. X/* check if player is in Ned's trigger rooms */
  1009. Xswitch (n) {
  1010. X/* Cause Ned Kelly to steal */
  1011. Xcase R_lift_inside:
  1012. X    /* are there valuables in the safe and the safe open? */
  1013. X    if ((score > 0)&&
  1014. X        (room[R_office_mang][M_rm_status] >= S_dialed)) {
  1015. X    /* is the office building open? */
  1016. X        if ((ned_look > 4)||
  1017. X            (room[R_office_entr][M_rm_status] == S_open)||
  1018. X            (room[R_office_entr][M_rm_status] == S_kicked)||
  1019. X        (room[R_office_entr][M_rm_status] == S_unlocked)) {
  1020. X
  1021. X            if (ned_look > 4) {
  1022. X            room[R_office_entr][M_rm_status] = S_kicked ;
  1023. X            room[R_office_entr][2] = R_office_hall ;
  1024. X            }
  1025. X/* scan the object list for treasure in safe and transfer to hideout */
  1026. X            for (i=0; i <= objcnt; i++) {
  1027. X    if ((object[i][J_loc] == B_in_safe)&&(object[i][J_value] > 0)) {
  1028. X                    ++room[R_hideout][M_obj_cnt] ;
  1029. X                    object[i][J_loc] = R_hideout; 
  1030. X                    sw_ned_set = TRUE ;
  1031. X                }
  1032. X            }    
  1033. X        }
  1034. X/* the safe is open with treasure but the door is locked */
  1035. X        else {
  1036. X            ++ned_look ;
  1037. X            sw_ned_look = TRUE ;
  1038. X        }
  1039. X    } /* end of the block concerning Ned and the safe */
  1040. X
  1041. X    if (sw_valuable) {
  1042. X        for (i=0; i <= objcnt; i++) {
  1043. X/* scan for treasure laying around outside the building on surface */
  1044. X            for (k = 22; k <= 36; k++) { 
  1045. X                if ((object[i][J_loc] == k)&&
  1046. X                    (object[i][J_value] > 0)) {
  1047. X                    ++room[R_hideout][M_obj_cnt] ;
  1048. X                    --room[k][M_obj_cnt] ;
  1049. X                    object[i][J_loc] = R_hideout; 
  1050. X                    sw_ned_set = TRUE ;
  1051. X                    sw_valuable = FALSE ;
  1052. X                    break ;
  1053. X                }
  1054. X            }    
  1055. X            for (k = 144; k <= 145; k++) {
  1056. X                if ((object[i][J_loc] == k)&&
  1057. X                    (object[i][J_value] > 0)) {
  1058. X                    ++room[R_hideout][M_obj_cnt] ;
  1059. X                    --room[k][M_obj_cnt] ;
  1060. X                    object[i][J_loc] = R_hideout; 
  1061. X                    sw_valuable = FALSE ;
  1062. X                    sw_ned_set = TRUE ;
  1063. X                    break ;
  1064. X                }
  1065. X            }    
  1066. X        /* scan the office building for treasure on the floor */
  1067. X            for (k = 37; k <= 41; k++) { 
  1068. X                if ((object[i][J_loc] == k)&&
  1069. X                    (object[i][J_value] > 0)) {
  1070. X/* if the office bldg. door is open then Ned Kelly steals treasure */
  1071. X        if ((room[R_office_entr][M_rm_status] == S_open)||
  1072. X            (room[R_office_entr][M_rm_status] == S_unlocked)||
  1073. X          (room[R_office_entr][M_rm_status] == S_kicked)) {
  1074. X            ++room[R_hideout][M_obj_cnt] ;
  1075. X            --room[k][M_obj_cnt] ;
  1076. X            object[i][J_loc] = R_hideout; 
  1077. X            sw_valuable = FALSE ;
  1078. X            sw_ned_set = TRUE ;
  1079. X            break ;
  1080. X        }
  1081. X/* if Ned Kelly sees locked treasure four times, he kicks in the door */
  1082. X        if (ned_look > 4) {
  1083. X            room[R_office_entr][M_rm_status] = S_kicked ;
  1084. X            room[R_office_entr][2] = R_office_hall ;
  1085. X            ++room[R_hideout][M_obj_cnt] ;
  1086. X            --room[k][M_obj_cnt] ;
  1087. X            object[i][J_loc] = R_hideout; 
  1088. X            sw_valuable = FALSE ;
  1089. X            sw_ned_set = TRUE ;
  1090. X        }
  1091. X        else {
  1092. X            if (!sw_ned_look) ++ned_look ;
  1093. X            sw_ned_look = TRUE ;
  1094. X            break ; /* conclude the office bldg. loop */
  1095. X        }
  1096. X        break ;
  1097. X                }
  1098. X            }    
  1099. X        }    
  1100. X    } /* end of block concerning Ned and loose treasure */
  1101. X
  1102. X    if (sw_ned_set) {
  1103. X        enemy[N_ned][E_status] = F_stealing ; 
  1104. X        enemy[N_ned][E_location] = R_hideout ;
  1105. X        room[R_hideout][M_monster] = 1 ;
  1106. X        sw_ned_set = FALSE ;
  1107. X    }
  1108. X    return ;
  1109. X
  1110. Xcase R_office_entr:
  1111. X/* Cause Ned Kelly to run away with treasure */
  1112. X    if (enemy[N_ned][E_status] == F_stealing) {
  1113. X        enemy[N_ned][E_status] = F_asleep ;
  1114. Xprintf("There is an odd looking character with an iron bucket on his ");
  1115. Xprintf("head and a swag\n");
  1116. Xprintf("bag over his shoulder running away from the ");
  1117. Xprintf("office building towards\nthe desert. \n\n") ;
  1118. X        return ;
  1119. X    }
  1120. X    if ((ned_look == 3) && sw_fiddle && 
  1121. X        (room[R_office_entr][M_rm_status] != S_open) &&
  1122. X        (room[R_office_entr][M_rm_status] != S_kicked) &&
  1123. X        (room[R_office_entr][M_rm_status] != S_unlocked)) {
  1124. X        sw_fiddle = FALSE ;
  1125. Xprintf("As you approach the office building's door, you see a\n");
  1126. Xprintf("strange looking character with a bucket on his head and\n") ;
  1127. Xprintf("wearing an iron breast plate.  He is on his knees before\n") ;
  1128. Xprintf("the door trying to pick the lock with a bit of coat hanger\n") ;
  1129. Xprintf("wire. Suddenly, he turns and sees you coming. With amazing\n"); 
  1130. Xprintf("speed, he throws away his wire and runs off towards the\n") ;
  1131. Xprintf("open desert.\n\n") ;
  1132. X        return ;
  1133. X    }
  1134. X} /* end of the ned kelly room switch block */
  1135. X} /* --- end of the "kelly" subroutine  --- */ 
  1136. X
  1137. Xvoid sounder(n) 
  1138. X/********************************************************************/
  1139. X/*                                                                  */
  1140. X/*                  --- Gong Sounding Subroutine --                 */
  1141. X/*                                                                  */
  1142. X/* Software by Gary A. Allen, Jr. 21 June 1989     Version: Mk 1.0  */
  1143. X/*           (c) Copyright 1989 by Gary A. Allen, Jr.               */
  1144. X/*                                                                  */
  1145. X/********************************************************************/
  1146. Xint n ;
  1147. X{
  1148. X#ifdef __TURBOC__
  1149. Xvoid exit(int), hold_it(void) ;
  1150. Xchar getche(void) ;
  1151. X#endif
  1152. X
  1153. Xchar letter ;
  1154. X
  1155. X/* see if player is in the gong room */
  1156. Xif (n != R_gong) {
  1157. X    if (tag[V_gong]) printf("I don't see a gong here.\n") ;
  1158. X    else printf("I don't see how you can do that.\n") ;
  1159. X    return ;
  1160. X}
  1161. X
  1162. X/* The player is in the gong room. Does he have the clapper? */
  1163. Xif (tag[V_clapper]) {
  1164. X    if (object[O_clapper][J_loc] == B_have) {
  1165. X        if (!tag[V_gong]) {
  1166. Xprintf("With what are you going to do that with the clapper?\n") ;
  1167. X            return ;
  1168. X        }
  1169. Xprintf
  1170. X("\n  GGGGGGGG       OOOOOOOO     NN       NN     GGGGGGGG     !!!\n") ;
  1171. Xprintf
  1172. X("GG        GG   OO        OO   NNN      NN   GG        GG   !!!\n") ;
  1173. Xprintf
  1174. X("GG             OO        OO   NN N     NN   GG             !!!\n") ;
  1175. Xprintf
  1176. X("GG             OO        OO   NN  N    NN   GG             !!!\n") ;
  1177. Xprintf
  1178. X("GG   GGGGGGG   OO        OO   NN   N   NN   GG    GGGGGG   !!!\n") ;
  1179. Xprintf
  1180. X("GG        GG   OO        OO   NN    N  NN   GG        GG   !!!\n") ;
  1181. Xprintf
  1182. X("GG        GG   OO        OO   NN     N NN   GG        GG\n") ;
  1183. Xprintf
  1184. X("GG        GG   OO        OO   NN      NNN   GG        GG   000\n") ;
  1185. Xprintf
  1186. X("  GGGGGGGG       OOOOOOOO     NN       NN     GGGGGGGG     000\n\n") ;
  1187. X
  1188. X/* see if the "end game" can begine */
  1189. X        if ((score < max_score)||(gleep_score == 0)) {
  1190. Xprintf("You hear an ethereal voice which says:\n\n") ;
  1191. X            if (score < max_score) {
  1192. Xprintf("Sorry Mate!  You haven't put all of the treasure in the\n") ;
  1193. Xprintf("safe yet.  Find the rest, and then the secret of the gong\n") ;
  1194. Xprintf("will be revealed.\n") ;
  1195. X                return ;
  1196. X            }
  1197. X            if (gleep_score == 0) {
  1198. Xprintf("Good on you Mate!  You've found all of the treasure.\n") ;
  1199. Xprintf("However you haven't put a single gleep in the gleep tank!\n");
  1200. Xprintf("You're not a Fair Dinkum Adventurer until you've put at\n") ;
  1201. Xprintf("least one gleep in the tank.\n") ;
  1202. X                return ;
  1203. X            }
  1204. X        }
  1205. X        /* Begin the End Game */
  1206. Xprintf("There is a loud \"Fromp!\" as a portcullis crashes down and\n");
  1207. Xprintf("seals the northern (and only) exit.  The lights go dim and\n");
  1208. Xprintf("a hazy fog appears in the room.  Slowly this fog coalesces\n") ;
  1209. Xif (sw_warned) {
  1210. Xprintf("into the now familiar form of Banjo Patterson.  For some\n") ;
  1211. Xprintf("odd reason Banjo is holding in his right hand a sword of\n") ;
  1212. Xprintf("fire such as one reads about in Genesis. The deathly quiet\n");
  1213. Xprintf("is broken when Banjo begins to speak:\n") ;
  1214. X}
  1215. Xelse {
  1216. Xprintf("into a ghostly human form.  This ethereal being is wearing\n") ;
  1217. Xprintf("a grey flannel suit, a bowler hat, and has a gold pocket\n") ;
  1218. Xprintf("watch chain looped across the front of his waist coat.  He\n");
  1219. Xprintf("is holding in his right hand a sword of fire such as one\n") ;
  1220. Xprintf("reads about in Genesis.  You can hear \"Waltzing Matilda\"\n");
  1221. Xprintf("being played softly in the background.  You know what?\n");
  1222. Xprintf("I think this ethereal being is none other than the ghost\n") ;
  1223. Xprintf("of Banjo Patterson!  With this realization Banjo begins to\n") ;
  1224. Xprintf("speak:\n") ;
  1225. X}
  1226. X        hold_it() ;
  1227. Xprintf("\"Good on you, Fair Dinkum Adventurer!  You have braved\n") ; 
  1228. Xprintf("the perils of hoop snakes, drop bears, and mutant wombats.\n") ;
  1229. Xprintf("You have solved many riddles, collected much treasure and\n") ;
  1230. Xprintf("encountered true evil and dealt with it appropriately.\n");
  1231. Xprintf("However it has occured to us that you might not be one of\n") ;
  1232. Xprintf("the chosen few who can be admitted into the Land of the\n") ;
  1233. Xprintf("Blessed.  The possibility remains that you could be a\n") ;
  1234. Xprintf("whinging Pom or a bleeding Yank.  Therefore you will be\n") ;
  1235. Xprintf("tested with three questions.  If you answer correctly, you\n") ;
  1236. Xprintf("will be admitted into paradise. However should you answer\n");
  1237. Xprintf("falsely, you will be sent to another place, an abode of\n");
  1238. Xprintf("darkness and dread.  So answer wisely, for you will not be\n") ;
  1239. Xprintf("given a second chance!\"\n\n") ;
  1240. X
  1241. Xprintf("What is the capital of Australia?\n\n") ;
  1242. Xprintf("     A) Sydney\n") ;
  1243. Xprintf("     B) Canberra\n") ;
  1244. Xprintf("     C) Melbourne\n\n") ;
  1245. Xprintf("Answer A, B, or C:  ") ;
  1246. Xquest1:
  1247. X#ifndef __TURBOC__
  1248. X        letter = getchar() ;
  1249. X        if ((letter == '\n')||(letter == ' ')) goto quest1 ;
  1250. X        if (('b' == letter)||('B' == letter)) 
  1251. X            printf("\nCorrect!\n\n") ;
  1252. X#endif
  1253. X
  1254. X#ifdef __TURBOC__
  1255. X        letter = getche() ;
  1256. X        if ((letter == '\n')||(letter == ' ')) goto quest1 ;
  1257. X        if (('b' == letter)||('B' == letter)) 
  1258. X            printf("\n\nCorrect!\n\n") ;
  1259. X#endif
  1260. X        else goto la ;
  1261. X
  1262. Xprintf("In the Australian emblem there appears two animals on\n") ;
  1263. Xprintf("either side of a shield.  One of the two animals is a\n") ;
  1264. Xprintf("kangaroo.  What species is the other animal?\n\n") ;
  1265. Xprintf("     A) Koala Bear\n") ;
  1266. Xprintf("     B) Platypus\n") ;
  1267. Xprintf("     C) Emu\n\n") ;
  1268. Xprintf("Answer A, B, or C:  ") ;
  1269. Xquest2:
  1270. X#ifndef __TURBOC__
  1271. X        letter = getchar() ;
  1272. X        if ((letter == '\n')||(letter == ' ')) goto quest2 ;
  1273. X        if (('c' == letter)||('C' == letter)) 
  1274. X            printf("\nCorrect!\n\n") ;
  1275. X#endif
  1276. X
  1277. X#ifdef __TURBOC__
  1278. X        letter = getche() ;
  1279. X        if ((letter == '\n')||(letter == ' ')) goto quest2 ;
  1280. X        if (('c' == letter)||('C' == letter)) 
  1281. X            printf("\n\nCorrect!\n\n") ;
  1282. X#endif
  1283. X        else goto la ;
  1284. X
  1285. Xprintf("Which place is a state in Australia?\n\n") ;
  1286. Xprintf("     A) Arcadia\n") ;
  1287. Xprintf("     B) Patagonia\n") ;
  1288. Xprintf("     C) Tasmania\n\n") ;
  1289. Xprintf("Answer A, B, or C:  ") ;
  1290. Xquest3:
  1291. X#ifndef __TURBOC__
  1292. X        letter = getchar() ;
  1293. X        if ((letter == '\n')||(letter == ' ')) goto quest3 ;
  1294. X        if (('c' == letter)||('C' == letter)) 
  1295. X            printf("\nCorrect!\n\n") ;
  1296. X#endif
  1297. X
  1298. X#ifdef __TURBOC__
  1299. X        letter = getche() ;
  1300. X        if ((letter == '\n')||(letter == ' ')) goto quest3 ;
  1301. X        if (('c' == letter)||('C' == letter)) 
  1302. X            printf("\n\nCorrect!\n\n") ;
  1303. X#endif
  1304. X        else goto la ;
  1305. X
  1306. X/* Player has won the game */
  1307. Xprintf("You see Banjo Patterson with a beatific smile.  He waves\n") ;
  1308. Xprintf("his firey sword with a florish and the scene around you\n") ;
  1309. Xprintf("disolves into a million tiny motes of light.  You now\n") ;
  1310. Xprintf("find yourself wearing swimming togs.  You are being carried\n");
  1311. Xprintf("by a guard of honor made up of four sumptuous shielas\n") ;
  1312. Xprintf("dressed in string bikinis and four handsome lifeguards.\n") ;
  1313. Xprintf("They carry you to a perfect beach on South Stradbroke\n") ;
  1314. Xprintf("Island.  Off in the distance on the Queensland mainland\n") ;
  1315. Xprintf("you see the Gold Coast which vaguely resembles the Emerald\n") ;
  1316. Xprintf("City of the classic movie.  Your guard of honor sets you\n") ;
  1317. Xprintf("down and hands you a can of Power's Bitter.  Three\n") ;
  1318. Xprintf("beautiful white pelicans float over head in a clear blue\n") ;
  1319. Xprintf("sky completing a scene of exquisite beauty.\n\n") ;
  1320. Xprintf("You're in paradise Mate and you've also won the game!\n\n") ;
  1321. X
  1322. X/* deal with final gleep announcement */
  1323. Xif (gleep_score == 1) {
  1324. Xprintf("---- A hint for those who want to go on playing Dinkum ----\n");
  1325. Xprintf("In this game you only put the minimum single gleep in the\n");
  1326. Xprintf("gleep tank.  In future games try seeding fertile tunnels\n");
  1327. Xprintf("with gleeps and reproducing them.  Build up as many gleeps\n");
  1328. Xprintf("as you can and then hit the gong before Dinkum times out.\n");
  1329. X}
  1330. Xelse {
  1331. Xprintf("You won this game with %d gleeps in the gleep tank.\n\n",
  1332. X    gleep_score) ;
  1333. X}
  1334. X        if (sw_wizard) return ;
  1335. X        else exit(0) ;
  1336. X
  1337. X/* Player enters false answer and goes to Los Angeles */
  1338. Xla:
  1339. Xprintf("\n        -!-!-!-!-!-     Wrong!    -!-!-!-!-!-\n\n") ;
  1340. Xprintf("Banjo Patterson brings down the sword of fire onto your\n");
  1341. Xprintf("head. The scene around you disappears in a flash and you\n");
  1342. Xprintf("find yourself transported to.....\n\n") ;
  1343. Xprintf("             Pico Blvd., West Los Angeles\n\n") ;
  1344. Xprintf("L.A. is having a stage three smog alert.  The air is so\n");
  1345. Xprintf("foul you can taste it.  A Los Angeles municipal bus roars\n");
  1346. Xprintf("by covering you in soot.  Across the street you see a\n");
  1347. Xprintf("modern day Neanderthal selling vials of Crack to children.\n"); 
  1348. Xprintf("The person next to you has taken a definite physical\n");
  1349. Xprintf("interest in you.  She/he is wearing a short skirt and has a\n");
  1350. Xprintf("beehive hairdo.  He/she also has a five o'clock shadow, and\n");
  1351. Xprintf("bicepts so thick that he could collapse your skull with a\n");
  1352. Xprintf("single thump.\n\n") ; 
  1353. Xprintf("We now leave this unhappy scene.  Since you were sent to\n") ;
  1354. Xprintf("Los Angeles your score has been zeroed.\n\n") ; 
  1355. Xprintf("So ends yet another unsuccessful session at Dinkum!\n") ;
  1356. X
  1357. X        if (sw_wizard) return ;
  1358. X        else exit(0) ;
  1359. X    }
  1360. X    else {
  1361. X        printf("I don't have a clapper to hit it with! \n") ;
  1362. X        return ;
  1363. X    }
  1364. X}
  1365. Xelse {
  1366. X    printf("Thud! \n") ;
  1367. X    printf("Nothing happened.\n") ;
  1368. Xprintf("I think you'd have more success if you used a gong clapper.\n");
  1369. X    return ;
  1370. X}
  1371. X} /* --- end of the "sounder" subroutine  --- */ 
  1372. END_OF_FILE
  1373. if test 15834 -ne `wc -c <'objlook.c'`; then
  1374.     echo shar: \"'objlook.c'\" unpacked with wrong size!
  1375. fi
  1376. # end of 'objlook.c'
  1377. fi
  1378. echo shar: End of archive 2 \(of 6\).
  1379. cp /dev/null ark2isdone
  1380. MISSING=""
  1381. for I in 1 2 3 4 5 6 ; do
  1382.     if test ! -f ark${I}isdone ; then
  1383.     MISSING="${MISSING} ${I}"
  1384.     fi
  1385. done
  1386. if test "${MISSING}" = "" ; then
  1387.     echo You have unpacked all 6 archives.
  1388.     rm -f ark[1-9]isdone
  1389. else
  1390.     echo You still need to unpack the following archives:
  1391.     echo "        " ${MISSING}
  1392. fi
  1393. ##  End of shell archive.
  1394. exit 0
  1395.