home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / volume17 / dinkum3 / part07 < prev    next >
Encoding:
Internet Message Format  |  1993-03-20  |  43.5 KB
  1. Path: uunet!paladin.american.edu!howland.reston.ans.net!spool.mu.edu!uwm.edu!ogicse!news.tek.com!master!saab!billr
  2. From: billr@saab.CNA.TEK.COM (Bill Randle)
  3. Newsgroups: comp.sources.games
  4. Subject: v17i012:  dinkum3 - australian text adventure game, V2.12, Part07/07
  5. Message-ID: <4523@master.CNA.TEK.COM>
  6. Date: 9 Feb 93 20:03:01 GMT
  7. Article-I.D.: master.4523
  8. Sender: news@master.CNA.TEK.COM
  9. Lines: 1051
  10. Approved: billr@saab.CNA.TEK.COM
  11. Xref: uunet comp.sources.games:1691
  12.  
  13. Submitted-by: Gary Allen <gary@sun.mech.uq.oz.au>
  14. Posting-number: Volume 17, Issue 12
  15. Archive-name: dinkum3/Part07
  16. Supersedes: dinkum2: Volume 15, Issue 36-43
  17. Environment: Unix, DOS
  18.  
  19.  
  20.  
  21. #! /bin/sh
  22. # This is a shell archive.  Remove anything before this line, then unpack
  23. # it by saving it into a file and typing "sh file".  To overwrite existing
  24. # files, type "sh file -c".  You can also feed this as standard input via
  25. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  26. # will see the following message at the end:
  27. #        "End of archive 7 (of 7)."
  28. # Contents:  longdsc.c objlook.c
  29. # Wrapped by billr@saab on Mon Feb  8 13:40:52 1993
  30. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  31. if test -f 'longdsc.c' -a "${1}" != "-c" ; then 
  32.   echo shar: Will not clobber existing file \"'longdsc.c'\"
  33. else
  34. echo shar: Extracting \"'longdsc.c'\" \(23619 characters\)
  35. sed "s/^X//" >'longdsc.c' <<'END_OF_FILE'
  36. X#define LONG_DESCP
  37. X#include "dink_sym.h"
  38. X#include "dink_glb.h"
  39. X
  40. X#if (PROTOTYPE)
  41. Xvoid long_descp(int n)
  42. X#else
  43. Xvoid long_descp(n)
  44. Xint n ;
  45. X#endif
  46. X/*********************************************************************/
  47. X/*                                                                   */
  48. X/*               --- Long Description Subroutine ---                 */
  49. X/*                                                                   */
  50. X/* Software by Gary A. Allen, Jr. 23 December 1992  Version: Mk 2.0  */
  51. X/*            (c) Copyright 1992 by Gary A. Allen, Jr.               */
  52. X/*                                                                   */
  53. X/*********************************************************************/
  54. X{
  55. Xstatic int sw_bend = TRUE, sw_mob = TRUE ;
  56. X
  57. X#if (PROTOTYPE)
  58. Xvoid boom(void), describe(int), ender(int) ;
  59. X#endif
  60. X
  61. Xif (((Torch->Location == B_have) && Torch->Status)|| 
  62. X    (n < 186)||(n > 202)) { 
  63. X
  64. X/* See if player entered the killing passage in the end game */
  65. Xif ((n >= 218)&&(n <= 227)) {
  66. Xprintf("As you're walking down the passage you feel the slight\n") ;
  67. Xprintf("tug of a trip wire on your leg.  Out the corner of your\n");
  68. Xprintf("eye you see the trip wire is connected to an olive green\n") ;
  69. Xprintf("cylinder attached to the wall of the tunnel....\n\n") ;
  70. Xboom() ;
  71. Xprintf("\nIn case you're wondering that was a booby trap which you\n") ;
  72. Xprintf("set off!\n") ;
  73. Xender(F_died) ;
  74. X}
  75. X
  76. X/* Select individual rooms */
  77. Xswitch (n) {
  78. Xcase R_river:      /* drowing in the river description */
  79. Xprintf ("As you approach the edge of the dike, there is a small\n");
  80. Xprintf ("earth slide which pitches you into the river.  You\n");
  81. Xprintf ("flounder around in the water for a short while.  Luckily\n");
  82. Xprintf ("before you have the chance to drown, a crocodile pulls\n") ;
  83. Xprintf ("you under, bringing you to a rather quick though painful\n");
  84. Xprintf ("end. \n") ;
  85. Xreturn ;
  86. X
  87. Xcase R_bunyip:      /* getting eaten by the bunyip */
  88. Xprintf ("The slimey tentacle suddenly tightens around your leg, and\n");
  89. Xprintf ("the water in the billabong starts to churn furiously. Then\n");
  90. Xprintf ("surfaces the one thing that all Australians fear the most...");
  91. Xprintf ("\n\nBefore you stands an enormous sickly green Queensland\n") ;
  92. Xprintf ("Bunyip in all its awesome horror. It does not make a quick\n");
  93. Xprintf ("end of you....  Such is not the way of Bunyips.  First it \n");
  94. Xprintf ("peels off your skin as if you were a banana.  After much\n");
  95. Xprintf ("fearful agony, comes release as you pass into death.\n");
  96. Xreturn ;
  97. X
  98. Xcase R_road_kill_n:  /* getting run over by a road train */
  99. Xcase R_road_kill_s: 
  100. Xprintf("The distant rumble becomes a loud roar.  Suddenly a huge Mack\n") ;
  101. Xprintf("truck pulling three carriages packed with cattle leaps over the\n") ;
  102. Xprintf("low rise, filling the narrow country road.  You stand terrified\n") ;
  103. Xprintf("in the middle of the road with the metal monster bearing down\n") ;
  104. Xprintf("at 120 km/hr.  The last thing you see before being flattened\n") ;
  105. Xprintf("like a cockroach is a sign on the truck's roo bar saying:\n") ;
  106. Xprintf("                 \"CAUTION:  ROAD TRAIN\"\n\n") ;
  107. Xreturn ;
  108. X
  109. Xcase R_forest:
  110. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  111. Xprintf("You are in a forest thickly wooded with gum trees.  The forest\n") ;
  112. Xprintf("floor is covered with long thin leaves from gum trees mixed\n") ;
  113. Xprintf("with their seed pods.  There is a strong eucalytus smell in the\n") ;
  114. Xprintf("air.  Up in the forest canopy you can hear kookaburras engaged\n") ;
  115. Xprintf("in their raucous cackling.\n") ;
  116. Xreturn ;
  117. X
  118. Xcase R_bend:
  119. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  120. Xprintf("You are north of the grassy area in the bend of a great meandering\n") ;
  121. Xprintf("river.  All around you are the tall black fronds of grass trees.\n") ;
  122. Xif (sw_bend) {
  123. X    sw_bend = FALSE ;
  124. Xprintf("Off in the distance you can see a mob of emus striding out of\n") ;
  125. Xprintf("sight.\n") ;
  126. X}
  127. Xreturn ;
  128. X
  129. Xcase R_bitumen:
  130. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  131. Xprintf("You are on a narrow country road made out of potholed bitumen.\n") ;
  132. Xprintf("The road's shoulders are of soft red earth which could cause\n") ;
  133. Xprintf("a driver to lose control of his car if he took a wheel off the\n") ;
  134. Xprintf("bitumen.  ") ;
  135. Xif (sw_mob) {
  136. X    sw_mob = FALSE ;
  137. Xprintf("A few metres away is a mob of grey kangroos grazing\n") ;
  138. Xprintf("on grass by the road.  A huge buck looks up at you and doesn't\n") ;
  139. Xprintf("like what he sees.  He bounds off with the rest of the mob\n") ;
  140. Xprintf("following.  You can see the heads of joeys protruding from\n") ;
  141. Xprintf("their mother's pouches as the mob leaps off into the bush and\n") ;
  142. Xprintf("out of sight.\n") ;
  143. X}
  144. Xelse printf("\n") ;
  145. Xreturn ;
  146. X
  147. Xcase R_stream:
  148. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  149. Xprintf("You approach a billabong with a small stream flowing into it.\n") ;
  150. Xprintf("Cane toads can be heard croaking nearby and you see countless\n") ;
  151. Xprintf("numbers of their tadpoles swimming in the stream.\n") ;
  152. Xreturn ;
  153. X
  154. Xcase R_taipan:      /* getting bitten by a taipan */
  155. Xprintf("As you wander aimlessly in the grass, you accidently step\n");
  156. Xprintf("upon a taipan which is perhaps the most poisonous of Oz's \n");
  157. Xprintf("snakes. The snake strikes upwards and bites you in the\n");
  158. Xprintf("worst possible place.  You thrash around for a short while\n");
  159. Xprintf("and then the venom takes hold. Your body begins to decompose");
  160. Xprintf("\nbefore your very eyes.  Death comes only after an hour \n");
  161. Xprintf("of the worst possible agony.  \n");
  162. Xreturn ;
  163. X
  164. Xcase R_mine_head:  /* Front of ACME Mine */
  165. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  166. Xprintf ("East of you is a large iron open truss tower, topped with \n");
  167. Xprintf ("two rusting wheels holding a pair of thick steel cables.  \n");
  168. Xprintf ("This is the head gear of the once highly successful ACME \n"); 
  169. Xprintf ("Gold Mine, which now is completely mined out.  Where \n");
  170. Xprintf ("there were once rich veins of gold is now a honeycomb of \n");
  171. Xprintf ("tunnels and caverns.  There are stories about strange \n");
  172. Xprintf ("events in the old tunnels of the ACME mine and only fools \n");
  173. Xprintf ("or reckless adventurers would dare explore them. \n");
  174. Xprintf ("To the north is the old office building.  Rumor has it \n");
  175. Xprintf ("the safe in this building once had millions of dollars in \n");
  176. Xprintf ("gold processed from the rich ore of the ACME mine.  To \n");
  177. Xprintf ("the south is the mine lift, which once transported up to \n");
  178. Xprintf ("twenty miners at a time down the long mine shaft to the \n");
  179. Xprintf ("working tunnels deep under the earth below.\n");
  180. Xreturn ;
  181. X
  182. Xcase R_office_mang:  /* Manager's office */
  183. Xroom[n][M_rm_type] = T_short_descp ;   /* disable long description  */
  184. Xprintf("You are in the Manager's office of the ACME Mine.  In \n");
  185. Xprintf("former times this room saw many lively meetings between \n"); 
  186. Xprintf("the Site Manager and Shift Bosses.  Fixed to the wall are\n");
  187. Xprintf("old production schedules and organizational charts. In\n");
  188. Xprintf("the middle of the room is a beautiful silky oak desk.\n");
  189. Xprintf("Unfortunately it is too heavy to move.  Attached to\n"); 
  190. Xprintf("the far wall is a curious picture of a platypus wearing a \n");
  191. Xprintf("hat with old wine corks dangling from the hat's brim. The\n");
  192. Xprintf("only exit is to the south.\n\n") ;
  193. Xreturn ;
  194. X
  195. Xcase R_geo_w:  /* Geologist's office */
  196. Xroom[n][M_rm_type] = T_short_descp ;   /* disable long description  */
  197. Xprintf("As you entered this room, huge cockroaches scuttled off ");
  198. Xprintf("in every \n"); 
  199. Xprintf("direction. On the far wall is a rather tasteless poster ");
  200. Xprintf("depicting \n");
  201. Xprintf("an extremely well endowed (unclad) young woman holding a ");
  202. Xprintf("mining \n"); 
  203. Xprintf("drill.  This office was once occupied by the mine ");
  204. Xprintf("geologist.  One \n");
  205. Xprintf("can still see traces of the office's former occupant.  ");
  206. Xprintf("There are only \n");
  207. Xprintf("two doors to this room.  Both go to the north. You entered ");
  208. Xprintf("through \n");
  209. Xprintf("the west door.  However there is another door in ");
  210. Xprintf("the eastern section \nof the office. \n");
  211. Xreturn ;
  212. X 
  213. X/* lift compartment */
  214. Xcase R_lift_inside:
  215. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  216. Xprintf("You are inside the lift, which has only one ");   
  217. Xprintf("entrance doorway to the west. \n");
  218. Xprintf("To the left of the door is a panel of buttons.  Most of "); 
  219. Xprintf("the buttons are \ninoperative with tape over them.  However ");
  220. Xprintf("there are four buttons \nthat still work. Each of the four ");
  221. Xprintf("buttons have a number stamped on them.  \nThe numbers are ");
  222. Xprintf("zero, forty-nine, sixty-seven, and eighty-two. \n \n");
  223. Xreturn ;
  224. X 
  225. Xcase R_hideout_entr:  /* Ned Kelly's Hide Out */
  226. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  227. X
  228. Xif (monster_flag == F_no_monster) {
  229. Xprintf ("Before you is a Queensland house with large verandas. ") ;
  230. Xprintf ("The front of\nthe house is to the east. The house ") ;
  231. Xprintf ("is painted fluorescent orange.\nOn the roof of the house is ");
  232. Xprintf ("a large, bright flashing neon sign which reads: \n\n");
  233. Xprintf("___________________________________________________________\n");
  234. Xprintf("|                                                         |\n");
  235. Xprintf("|            Ned Kelly's ---SECRET--- Hide Out            |\n");
  236. Xprintf("| Policemen, troopers, law enforcement officers and all   |\n");
  237. Xprintf("| other minions of the law and public decency are advised |\n");
  238. Xprintf("| to look else where for bush rangers, thieves, and other |\n");
  239. Xprintf("| larrikins, since ***only*** honest, law abiding         |\n");
  240. Xprintf("| Australians (loyal to Queen and Country) live here.     |\n");
  241. Xprintf("|                                                         |\n");
  242. Xprintf("___________________________________________________________\n");
  243. X}
  244. Xelse describe(n) ;
  245. Xreturn ;
  246. X
  247. Xcase R_foreman:
  248. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  249. Xprintf("You have entered the office of the Level #67 Foreman. In ");
  250. Xprintf("the middle of the\nroom is the Foreman's large and immovable ");
  251. Xprintf("desk.  To one side can be seen an\nempty file cabinet and ");
  252. Xprintf("a series of pidgeon holes for holding mine worker's\nmail. ");
  253. Xprintf("The only exit is to the west.\n\n") ;
  254. Xreturn ;
  255. X
  256. Xcase R_no_treasure:
  257. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  258. Xprintf("You are in a tunnel going east and west. Crude letters have\n");
  259. Xprintf("been scratched into the wall of the tunnel.  The following\n") ;
  260. Xprintf("was written:\n\n") ;
  261. Xprintf("Dear Treasure Hunter:\n") ;
  262. Xprintf("There was lots of treasure on this level when I first\n") ;
  263. Xprintf("discovered this mine.  However I have since carted it all\n") ;
  264. Xprintf("away.  You might try looking on another level.") ;
  265. Xprintf("\n\n                            Good Luck!\n") ;
  266. Xprintf("                         Dr. I. Jones, Ph.D.\n\n") ;
  267. Xreturn ;
  268. X
  269. Xcase R_gleep_tank:
  270. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  271. Xprintf("You have walked into a room with a large plastic tank set "); 
  272. Xprintf("in the middle.\nThe tank is about two metres deep and ");
  273. Xprintf("full of dark blue liquid which\nsmells strongly of chlorine.");
  274. Xprintf(" The words \"Gleep Tank\" have been crudely\n");
  275. Xprintf("spray painted on the wall.\n") ;
  276. Xreturn ;
  277. X 
  278. Xcase R_ufo_e:
  279. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  280. Xprintf("You crawl under a long thin sting that projects from the ");
  281. Xprintf("front of the\nspacecraft.  It's made from a different metal ");
  282. Xprintf("(stainless steel?), and appears\nto have been retractable. ");
  283. Xprintf("This was probably a Mach probe for measuring flight\n") ;
  284. Xprintf("speed. You can go north or south.\n") ;
  285. Xreturn ;
  286. X 
  287. Xcase R_ufo_w:
  288. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  289. Xprintf("Before you is perhaps the real reason why the ACME Mine ");
  290. Xprintf("was closed. You see\nthe bent and twisted remains of what ");
  291. Xprintf("could only be an ancient spacecraft. It\nsits ") ;
  292. Xprintf("embedded within a gold bearing");
  293. Xprintf(" reef of conglomerate stone from the\nPrecambrain Period ");
  294. Xprintf("(hundreds of millions of years old).  The old spacecraft\n") ;
  295. Xprintf("was based on a delta wing design which the miners had ");
  296. Xprintf("chiped free from\nthe rock. You can see clearly the interior ");
  297. Xprintf("of the engine exhaust ducts.  The\nvehicle has air inlets ");
  298. Xprintf("so it must have been air breathing when it flew in\nthe ");
  299. Xprintf("atmosphere. ") ;
  300. Xprintf("The edges of the ducts appear to be made of titanium ");
  301. Xprintf("and are\nabout six centimetres thick. No wonder it could ");
  302. Xprintf("survive millions of years\nunder tons of stone. ") ;
  303. Xprintf("This spacecraft is literally built like a battleship!\nYou ") ;
  304. Xprintf("can climb over the vehicle to the north or go south.\n\n");
  305. Xreturn ;
  306. X 
  307. Xcase R_ufo_n:
  308. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  309. Xprintf("You're now doing a tight squeeze between the tunnel wall ");
  310. Xprintf("and the leading\nedge of the wing.  You can see the titanium");
  311. Xprintf(" surface is covered with many\nregularly placed little ");
  312. Xprintf("holes, each about half a millimetre in diameter.\nThis ");
  313. Xprintf("was probably part of the wing's cooling system for ") ;
  314. Xprintf("atmospheric entry\nfrom orbit. You can go south-east or ");
  315. Xprintf("south-west.\n\n");
  316. Xreturn ;
  317. X 
  318. Xcase R_ufo_s:
  319. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  320. Xprintf("You're crawling under the wing and next to the spacecraft's ");
  321. Xprintf("landing gear.\nThe landing gear strut is almost snapped ");
  322. Xprintf("off.  The tyre has long ago turned\nto dust, but the tyre ");
  323. Xprintf("rim is still in place.  The braking system used is\nquite ");
  324. Xprintf("odd.  The brake rotor is basicly a ring being gripped by ");
  325. Xprintf("a caliper with\nconcave brake pads.  You ") ;
  326. Xprintf("can go north-west or north-east.\n") ;
  327. Xreturn ;
  328. X 
  329. Xcase R_ufo_ne:
  330. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  331. Xprintf("You are now near the nose of the derelict spacecraft.  You ");
  332. Xprintf("see a quartz\nwindow in the side of the vehicle.  It has been");
  333. Xprintf(" so scratched by the\ncenturies that it is now opaque.  ");
  334. Xprintf("You can go north-west or south.\n") ;
  335. Xreturn ;
  336. X 
  337. Xcase R_ufo_nw:
  338. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  339. Xprintf("As you scrambled over the old derelict, you passed under ");
  340. Xprintf("the vertical\nstabilizer which centuries of geological ") ;
  341. Xprintf("forces had bent into what\nlooks like a sagging shark's ");
  342. Xprintf("fin. You can go south or do a tight squeeze\nto the ");
  343. Xprintf("north-east.\n\n");
  344. Xreturn ;
  345. X 
  346. Xcase R_ufo_se:
  347. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  348. Xprintf("You are under the forward section of the spacecraft. ");
  349. Xprintf("Above you is an\nopened access hatch which leads into the ");
  350. Xprintf("dark interior of the derelict.\n");
  351. Xprintf("You can go north, up or crawl under the wing to the ");
  352. Xprintf("south-west\n") ;
  353. Xreturn ;
  354. X 
  355. Xcase R_ufo_sw:
  356. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  357. Xprintf("You are hunching over as you scramble underneath the ");
  358. Xprintf("spacecraft's wing.\nNear the trailing edge of the wing ");
  359. Xprintf("you can see what is left of the\nwing flaps.  The flap ");
  360. Xprintf("was actuated by a very conventional hydraulic system.\n");
  361. Xprintf("Some of the metal tubing for the actuaters are still in ");
  362. Xprintf("place, though\nthe hydraulic fluid has long since ") ;
  363. Xprintf("fossilized into stone. You can\ngo north or south-east.\n") ;
  364. Xreturn ;
  365. X 
  366. Xcase R_air_lock:
  367. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  368. Xprintf("You are inside what is obviously an airlock.  There are ");
  369. Xprintf("two hatchways\ninto this airlock.  One leads to the exterior ");
  370. Xprintf("while the other goes into\nthe spacecraft's interior.  Both ");
  371. Xprintf("hatches appear to have originally been\nleft open and not ");
  372. Xprintf("forced by the miners (the hinges are immovable). ");
  373. Xprintf("It\nappears that the ship's crew left in a hurry. ") ;
  374. Xprintf("You can go north or down.\n") ;
  375. Xreturn ;
  376. X
  377. Xcase R_ship_passage:
  378. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  379. Xprintf("You've entered the intercompartment access passage.  To the ") ;
  380. Xprintf("south is an\nopen air tight door leading to the airlock. ");
  381. Xprintf("The access door to the east\nis open and recessed into the ");
  382. Xprintf("wall. The access door to the west has been\nforced open ");
  383. Xprintf("with a cutting torch and folded back with a pneumatic\n") ;
  384. Xprintf("hammer (obviously the work of the miners). ") ;
  385. Xprintf("The passage itself has about\nten centimetres of silt on the") ;
  386. Xprintf(" bottom and has the appearance of ancient\ndilapidation.\n") ;
  387. Xreturn ;
  388. X
  389. Xcase R_flight_deck:
  390. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  391. Xprintf("You have made it to the flight deck. Unfortunately ");
  392. Xprintf("it's not much to\nwrite home about. Since the access door ");
  393. Xprintf("was open, this area has been full\nof water and silt for ");
  394. Xprintf("millennia.  The miners have shoveled out most of it.\nOnce ");
  395. Xprintf("the wall panels were covered with some kind of plastic which");
  396. Xprintf(" has long\nsince turned to dust.  There are three corroded ");
  397. Xprintf("frames which were once crew\nseats. The beings that flew ") ;
  398. Xprintf("this machine were taller and wider than humans\nbut they ");
  399. Xprintf("had anthropoid form. The flight controls are still here");
  400. Xprintf(" but they\nare so heavily corroded that they can no longer "); 
  401. Xprintf("be moved.  The only way out\nis to the west.\n\n") ;
  402. Xreturn ;
  403. X
  404. Xcase R_panel:
  405. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  406. Xprintf("You are in a compartment that seems brand new, which is ");
  407. Xprintf("unbelievable.  Perhaps\nthe machinery in this ship was once ");
  408. Xprintf("self repairing.  Before you is a control\npanel with CRT type");
  409. Xprintf(" displays and buttons that still work.  Beneath each button\n");
  410. Xprintf("is a description written in a strange alien script ");
  411. Xprintf("vaguely like Sanskrit.\nI wouldn't dare ") ;
  412. Xprintf("press any button except for a gray button.  Beneath\n");
  413. Xprintf("this button is some masking tape that was obviously placed ") ;
  414. Xprintf("there by the miners.\nSomeone has written \"TEHR.\" on the ") ;
  415. Xprintf("masking tape with a pencil.\n\n") ;
  416. Xreturn ;
  417. X
  418. Xcase R_transporter:
  419. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  420. Xprintf("You have walked into an elevated chamber with strange ") ;
  421. Xprintf("glowing hexagons on\nthe floor which are about half a ") ;
  422. Xprintf("metre across.  The hexagon pattern on the\nfloor is ");
  423. Xprintf("matched by one on the ceiling which is also glowing.\n\n") ;
  424. Xreturn ;
  425. X
  426. Xcase R_prayer:
  427. Xroom[n][M_rm_type] = T_short_descp ;   /* disable long description  */
  428. Xprintf("You are in a large and very grand room with walls made of\n");
  429. Xprintf("polished mahogany, and crystal chandeliers hanging from an\n");
  430. Xprintf("ornate ceiling.  There is a mihrab incongruously set in the\n");
  431. Xprintf("western wall of the building.  Also there are quotations\n");
  432. Xprintf("from the Quram written in golden letters along the top of\n") ;
  433. Xprintf("the walls near the ceiling.  On the floor are sumptuous\n") ;
  434. Xprintf("cushions made of silk and fine green velvet. Sitting on the\n");
  435. Xprintf("cushions are old men wearing black pajamas with white\n");
  436. Xprintf("towels wrapped around their heads. In the middle of the\n");
  437. Xprintf("floor is a raised dais, upon which is sitting a rather\n");
  438. Xprintf("stately old man wearing similar clothing. In the far corner\n");
  439. Xprintf("of the room is standing a wax dummy of the Ayatolla\n") ;
  440. Xprintf("Khomeini. His right arm is upright much like the Statue of\n") ;
  441. Xprintf("Liberty and in his right hand is a glowing 100 watt light\n") ;
  442. Xprintf("bulb.  I think this is the prayer room for the Iranian\n") ;
  443. Xprintf("Parliament!  You'll have to go west if you wish to leave.\n\n") ;
  444. Xreturn ;
  445. X 
  446. Xcase R_guard:
  447. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  448. Xprintf("You are in a rather small room with a table in the ");
  449. Xprintf("middle that is covered\nwith half filled cups of tea, dirty ") ;
  450. Xprintf("ash trays, and a newspaper written in\nwhat appears to be ") ;
  451. Xprintf("Arabic.  There is ") ;
  452. Xprintf("a brightly coloured poster on the\nwall depicting the Kaba ") ;
  453. Xprintf("Stone of Mecca with a calendar below it.  The only\n") ;
  454. Xprintf("exits are through an open doorway to the east and through");
  455. Xprintf(" a curtain covered\ndoorway to the south.\n\n") ;
  456. Xreturn ;
  457. X 
  458. Xcase R_closet:
  459. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  460. Xprintf("You are in a closet full of grubby, nondescript things not\n") ;
  461. Xprintf("worth taking. The closet stinks of moth balls. The only way\n");
  462. Xprintf("out is through a curtain covered doorway to the north.\n\n");
  463. Xreturn ;
  464. X 
  465. Xcase R_gong:
  466. Xroom[n][M_rm_type] = T_short_descp ;   /* disable long description  */
  467. Xprintf("You have entered an enormous room which is walled with\n");
  468. Xprintf("polished black granite supported by vast curving arches\n");
  469. Xprintf("much like a gothic cathedral.  The cavernous room is a seven\n");
  470. Xprintf("sided polygon in layout with huge flaming torches set in\n");
  471. Xprintf("brass holders in every corner of the room.  In the flickering\n");
  472. Xprintf("light of the torches you see an enormous silver gong\n");
  473. Xprintf("weighing at least a ton.  The huge gong is suspended from\n");
  474. Xprintf("a finely polished red cedar frame, the top of which is\n");
  475. Xprintf("about four metres above the floor.  The room is deathly\n");
  476. Xprintf("quiet like an ancient tomb. The only sound you can hear is\n");
  477. Xprintf("your own heart beating.\n") ;
  478. Xreturn ;
  479. X 
  480. Xcase R_warning:
  481. Xroom[n][M_rm_type] = T_was_long;   /* long description only on request  */
  482. Xprintf("You have entered a passage with exits to the north, south,\n");
  483. Xprintf("and west.  There is a poster glued to the wall which reads:\n");
  484. Xprintf("+---------------------------------------------------------+\n");
  485. Xprintf("|                                                         |\n");
  486. Xprintf("|              ACME MINE IS UNFAIR TO WORKERS!!           |\n");
  487. Xprintf("|                                                         |\n");
  488. Xprintf("|                       ON STRIKE!!                       |\n");
  489. Xprintf("|                                                         |\n");
  490. Xprintf("| The Loyal Brotherhood of Australian Miners and Under-   |\n");
  491. Xprintf("| ground Workers is on strike against Acme Mines Ltd. due |\n");
  492. Xprintf("| to unfair treatment of its workers.  Our Union demands  |\n");
  493. Xprintf("| the following:  Worker's wages be increased by 30%%, the |");
  494. Xprintf("\n") ;
  495. Xprintf("| week shall have only 4 working days, the working day    |\n");
  496. Xprintf("| shall be reduced to 5 hours, triple wages for overtime  |\n");
  497. Xprintf("| work and immunity from sacking for all Union members.   |\n");
  498. Xprintf("| To discourage scabs and other strike breakers from      |\n");
  499. Xprintf("| working during the strike, we have planted booby traps  |\n");
  500. Xprintf("| through out the tunnels on this level.  We do hope you  |\n");
  501. Xprintf("| don't mind the mine being mined so it won't be mined.   |\n");
  502. Xprintf("+---------------------------------------------------------+\n");
  503. X    return ;
  504. X 
  505. X    } 
  506. X}
  507. Xelse describe(n) ;
  508. X
  509. X} /* --- end of long_descp subroutine --- */
  510. END_OF_FILE
  511. if test 23619 -ne `wc -c <'longdsc.c'`; then
  512.     echo shar: \"'longdsc.c'\" unpacked with wrong size!
  513. fi
  514. # end of 'longdsc.c'
  515. fi
  516. if test -f 'objlook.c' -a "${1}" != "-c" ; then 
  517.   echo shar: Will not clobber existing file \"'objlook.c'\"
  518. else
  519. echo shar: Extracting \"'objlook.c'\" \(17654 characters\)
  520. sed "s/^X//" >'objlook.c' <<'END_OF_FILE'
  521. X#define OBJLKR
  522. X#include "dink_sym.h"
  523. X#include "dink_glb.h"
  524. X
  525. X#if (PROTOTYPE)
  526. Xvoid objlooker(int n)
  527. X#else
  528. Xvoid objlooker(n)
  529. Xint n ;
  530. X#endif
  531. X/*********************************************************/
  532. X/*                                                       */
  533. X/*    --- Object in Room Examination Subroutine ---      */
  534. X/*                                                       */
  535. X/*      Program by Gary A. Allen, Jr.  18 May 1990       */
  536. X/*        (c) Copyright 1992 by Gary A. Allen, Jr.       */
  537. X/*                                                       */
  538. X/*********************************************************/
  539. X{
  540. Xregister int i ;
  541. XOBJECT_STRUCT *pnt ;
  542. X
  543. X#if (PROTOTYPE)
  544. Xvoid objector(OBJECT_STRUCT*) ;
  545. X#endif
  546. X
  547. Xif (((Torch->Location == B_have) && Torch->Status) || 
  548. X   (n < 186) || (n > 202)) { 
  549. X    if (room[n][M_obj_cnt] == 1) {
  550. X        pnt = object ; /* initialize the pointer */
  551. X        for (i = 0; i < Objcnt; i++) {
  552. X            if ((pnt->Location == n)&&(pnt->Type != Z_unmovable)) {
  553. X                if (n == R_office_mang) {
  554. X                    printf("On the floor you see ") ;
  555. X                    objector(pnt) ;
  556. X                    printf (".\n") ;
  557. X                }
  558. X                else {
  559. X                     printf("You see ") ;
  560. X                    objector(pnt) ;
  561. X                    printf (".\n") ;
  562. X                }
  563. X            }
  564. X            pnt++ ;
  565. X        }
  566. X    }
  567. X    if (room[n][M_obj_cnt] > 1) {
  568. X        if (n == R_office_mang) 
  569. Xprintf ("You see the following on the floor: \n");
  570. X        else printf ("You see the following: \n");
  571. X        pnt = object ; /* initialize the pointer */
  572. X        for (i = 0; i < Objcnt; i++) {
  573. X            if ((pnt->Location == n)&&(pnt->Type != Z_unmovable)) {
  574. X                printf ("        ") ;
  575. X                objector(pnt) ;
  576. X                printf ("\n") ;
  577. X            }
  578. X            pnt++ ;
  579. X        }
  580. X    }
  581. X}
  582. X} /* end of "objlooker" subroutine */
  583. X 
  584. X#if (PROTOTYPE)
  585. Xvoid kelly(int n)
  586. X#else
  587. Xvoid kelly(n) 
  588. Xint n ;
  589. X#endif
  590. X/********************************************************************/
  591. X/*                                                                  */
  592. X/*                  --- Ned Kelly Subroutine --                     */
  593. X/*                                                                  */
  594. X/* Software by Gary A. Allen, Jr. 5 November 1989  Version: Mk 1.2  */
  595. X/*           (c) Copyright 1989 by Gary A. Allen, Jr.               */
  596. X/*                                                                  */
  597. X/********************************************************************/
  598. X{
  599. Xregister int i, k ;
  600. Xstatic int ned_look = 0, sw_fiddle = TRUE ;
  601. Xint  sw_ned_look, sw_ned_set ;
  602. XOBJECT_STRUCT *pnt ;
  603. X
  604. X/* check if Ned  Kelly is dead */
  605. Xif (Ned->Location == B_destroyed) return ;
  606. X
  607. X/* this switch is for Ned looking for treasure once per cycle */
  608. Xsw_ned_look = FALSE ;
  609. Xsw_ned_set = FALSE ;
  610. X
  611. X/* check if player is in Ned's trigger rooms */
  612. Xswitch (n) {
  613. X/* Cause Ned Kelly to steal */
  614. Xcase R_lift_inside:
  615. X    /* are there valuables in the safe and the safe open? */
  616. X    if ((score > 0) && (Safe->Status != S_closed)) {
  617. X    /* is the office building open? */
  618. X        if ((ned_look > 3)||(Door->Status == S_open)
  619. X                ||(Door->Status == S_kicked)
  620. X                ||(Door->Status == S_unlocked)) {
  621. X
  622. X            if (ned_look > 3) {
  623. X                Door->Status = S_kicked ;
  624. X                room[R_office_entr][2] = R_office_hall ;
  625. X            }
  626. X
  627. X/* scan the object list for treasure in safe and transfer to hideout */
  628. X            pnt = object ; /* initialize the pointer */
  629. X            for (i = 0; i < Objcnt; i++) {
  630. X                if ((pnt->Location == B_in_safe)
  631. X                        && (pnt->Value > 0)) {
  632. X                    ++room[R_hideout][M_obj_cnt] ;
  633. X                    pnt->Location = R_hideout; 
  634. X                    sw_ned_set = TRUE ;
  635. X                    Picture->Status = S_open ;
  636. X                }
  637. X                pnt++ ;
  638. X            }    
  639. X        }
  640. X/* the safe is open with treasure but the door is locked */
  641. X        else {
  642. X            ++ned_look ;
  643. X            sw_ned_look = TRUE ;
  644. X        }
  645. X    } /* end of the block concerning Ned and the safe */
  646. X
  647. X    if (sw_valuable) {
  648. X        pnt = object ; /* initialize the pointer */
  649. X        for (i = 0; i < Objcnt; i++) {
  650. X/* scan for treasure laying around outside the building on surface */
  651. X            for (k = 22; k <= 36; k++) { 
  652. X                if ((pnt->Location == k)
  653. X                    &&(pnt->Value > 0)) {
  654. X                    ++room[R_hideout][M_obj_cnt] ;
  655. X                    --room[k][M_obj_cnt] ;
  656. X                    pnt->Location = R_hideout; 
  657. X                    sw_ned_set = TRUE ;
  658. X                    sw_valuable = FALSE ;
  659. X                    break ;
  660. X                }
  661. X            }    
  662. X            for (k = 144; k <= 145; k++) {
  663. X                if ((pnt->Location == k)&&
  664. X                    (pnt->Value > 0)) {
  665. X                    ++room[R_hideout][M_obj_cnt] ;
  666. X                    --room[k][M_obj_cnt] ;
  667. X                    pnt->Location = R_hideout; 
  668. X                    sw_valuable = FALSE ;
  669. X                    sw_ned_set = TRUE ;
  670. X                    break ;
  671. X                }
  672. X            }    
  673. X        /* scan the office building for treasure on the floor */
  674. X            for (k = 37; k <= 41; k++) { 
  675. X                if ((pnt->Location == k)&&
  676. X                    (pnt->Value > 0)) {
  677. X/* if the office bldg. door is open then Ned Kelly steals treasure */
  678. X        if ((Door->Status == S_open)||(Door->Status == S_unlocked)
  679. X                ||(Door->Status == S_kicked)) {
  680. X            ++room[R_hideout][M_obj_cnt] ;
  681. X            --room[k][M_obj_cnt] ;
  682. X            pnt->Location = R_hideout; 
  683. X            sw_valuable = FALSE ;
  684. X            sw_ned_set = TRUE ;
  685. X            break ;
  686. X        }
  687. X/* if Ned Kelly sees locked treasure four times, he kicks in the door */
  688. X        if (ned_look > 3) {
  689. X            Door->Status = S_kicked ;
  690. X            room[R_office_entr][2] = R_office_hall ;
  691. X            ++room[R_hideout][M_obj_cnt] ;
  692. X            --room[k][M_obj_cnt] ;
  693. X            pnt->Location = R_hideout; 
  694. X            sw_valuable = FALSE ;
  695. X            sw_ned_set = TRUE ;
  696. X        }
  697. X        else {
  698. X            if (!sw_ned_look) ++ned_look ;
  699. X            sw_ned_look = TRUE ;
  700. X            break ; /* conclude the office bldg. loop */
  701. X        }
  702. X        break ;
  703. X                }
  704. X            }    
  705. X            pnt++ ;
  706. X        }    
  707. X    } /* end of block concerning Ned and loose treasure */
  708. X
  709. X    if (sw_ned_set) {
  710. X        Ned->Status = F_stealing ; 
  711. X        Ned->Location = R_hideout ;
  712. X        room[R_hideout][M_monster] = 1 ;
  713. X        sw_ned_set = FALSE ;
  714. X    }
  715. X    return ;
  716. X
  717. Xcase R_office_entr:
  718. X/* Cause Ned Kelly to run away with treasure */
  719. X    if (Ned->Status == F_stealing) {
  720. X        Ned->Status = F_asleep ;
  721. Xprintf("There is an odd looking character with an iron bucket on his ");
  722. Xprintf("head and a swag\n");
  723. Xprintf("bag over his shoulder running away from the ");
  724. Xprintf("office building towards\nthe desert. \n\n") ;
  725. X        return ;
  726. X    }
  727. X    if ((ned_look == 2) && sw_fiddle && (Door->Status != S_open)
  728. X            &&(Door->Status != S_kicked)
  729. X            &&(Door->Status != S_unlocked)) {
  730. X        sw_fiddle = FALSE ;
  731. Xprintf("As you approach the office building's door, you see a\n");
  732. Xprintf("strange looking character with a bucket on his head and\n") ;
  733. Xprintf("wearing an iron breast plate.  He is on his knees before\n") ;
  734. Xprintf("the door trying to pick the lock with a bit of coat hanger\n") ;
  735. Xprintf("wire. Suddenly, he turns and sees you coming. With amazing\n"); 
  736. Xprintf("speed, he throws away his wire and runs off towards the\n") ;
  737. Xprintf("open desert.\n\n") ;
  738. X        return ;
  739. X    }
  740. X} /* end of the ned kelly room switch block */
  741. X} /* --- end of the "kelly" subroutine  --- */ 
  742. X
  743. X#if (PROTOTYPE)
  744. Xvoid sounder(int n)
  745. X#else
  746. Xvoid sounder(n) 
  747. Xint n ;
  748. X#endif
  749. X/********************************************************************/
  750. X/*                                                                  */
  751. X/*                  --- Gong Sounding Subroutine --                 */
  752. X/*                                                                  */
  753. X/* Software by Gary A. Allen, Jr. 21 June 1989     Version: Mk 1.0  */
  754. X/*           (c) Copyright 1989 by Gary A. Allen, Jr.               */
  755. X/*                                                                  */
  756. X/********************************************************************/
  757. X{
  758. X#if (PROTOTYPE)
  759. Xvoid exit(int), hold_it(void) ;
  760. Xvoid los_angeles(void) ;
  761. Xchar getche(void) ;
  762. X#endif
  763. X
  764. Xchar letter ;
  765. X
  766. X/* see if player is in the gong room */
  767. Xif (n != R_gong) {
  768. X    if (tag[V_gong]) printf("I don't see a gong here.\n") ;
  769. X    else printf("I don't see how you can do that.\n") ;
  770. X    return ;
  771. X}
  772. X
  773. X/* The player is in the gong room. Does he have the clapper? */
  774. Xif (tag[V_clapper]) {
  775. X    if (Clapper->Location == B_have) {
  776. X        if (!tag[V_gong]) {
  777. Xprintf("With what are you going to do that with the clapper?\n") ;
  778. X            return ;
  779. X        }
  780. Xprintf
  781. X("\n  GGGGGGGG       OOOOOOOO     NN       NN     GGGGGGGG     !!!\n") ;
  782. Xprintf
  783. X("GG        GG   OO        OO   NNN      NN   GG        GG   !!!\n") ;
  784. Xprintf
  785. X("GG             OO        OO   NN N     NN   GG             !!!\n") ;
  786. Xprintf
  787. X("GG             OO        OO   NN  N    NN   GG             !!!\n") ;
  788. Xprintf
  789. X("GG   GGGGGGG   OO        OO   NN   N   NN   GG    GGGGGG   !!!\n") ;
  790. Xprintf
  791. X("GG        GG   OO        OO   NN    N  NN   GG        GG   !!!\n") ;
  792. Xprintf
  793. X("GG        GG   OO        OO   NN     N NN   GG        GG\n") ;
  794. Xprintf
  795. X("GG        GG   OO        OO   NN      NNN   GG        GG   000\n") ;
  796. Xprintf
  797. X("  GGGGGGGG       OOOOOOOO     NN       NN     GGGGGGGG     000\n\n") ;
  798. X
  799. X/* see if the "end game" can begine */
  800. X        /* Check to see if the recorder was used */
  801. X        if (Gong->Status == S_recorder) {
  802. Xprintf("You hear an ethereal voice which says:\n\n") ;
  803. Xprintf("Sorry Mate!  You used the bloody data recorder which gave you\n") ;
  804. Xprintf("an unfair advantage.  If you want to be admitted into the final\n") ;
  805. Xprintf("part of Dinkum and have a chance at winning then you must find\n") ;
  806. Xprintf("all the treasure, come back here and sound the gong WITHOUT having\n") ;
  807. Xprintf("started Dinkum with the command switch \"-S\" (NO data recorder).\n\n");
  808. Xprintf("You did however put in a good effort.  Better luck next time!\n") ;
  809. X            Gong->Status = S_told ;
  810. X            return ;
  811. X        }
  812. X        if (Gong->Status == S_told) {
  813. X            printf("Nothing happened.\n") ;
  814. X            return ;
  815. X        }
  816. X
  817. X        /* No recorder so admit player to endgame */
  818. X        if ((score < max_score)||(Tank->Status == 0)) {
  819. Xprintf("You hear an ethereal voice which says:\n\n") ;
  820. X            if (score < max_score) {
  821. Xprintf("Sorry Mate!  You haven't put all of the treasure in the\n") ;
  822. Xprintf("safe yet.  Find the rest, and then the secret of the gong\n") ;
  823. Xprintf("will be revealed.\n") ;
  824. X                return ;
  825. X            }
  826. X            if (Tank->Status == 0) {
  827. Xprintf("Good on you Mate!  You've found all of the treasure.\n") ;
  828. Xprintf("However you haven't put a single gleep in the gleep tank!\n");
  829. Xprintf("You're not a Fair Dinkum Adventurer until you've put at\n") ;
  830. Xprintf("least one gleep in the tank.\n") ;
  831. X                return ;
  832. X            }
  833. X        }
  834. X        /* Begin the End Game */
  835. Xprintf("There is a loud \"Fromp!\" as a portcullis crashes down and\n");
  836. Xprintf("seals the northern (and only) exit.  The lights go dim and\n");
  837. Xprintf("a hazy fog appears in the room.  Slowly this fog coalesces\n") ;
  838. Xif (sw_warned) {
  839. Xprintf("into the now familiar form of Banjo Patterson.  For some\n") ;
  840. Xprintf("odd reason Banjo is holding in his right hand a sword of\n") ;
  841. Xprintf("fire such as one reads about in Genesis. The deathly quiet\n");
  842. Xprintf("is broken when Banjo begins to speak:\n") ;
  843. X}
  844. Xelse {
  845. Xprintf("into a ghostly human form.  This ethereal being is wearing\n") ;
  846. Xprintf("a grey flannel suit, a bowler hat, and has a gold pocket\n") ;
  847. Xprintf("watch chain looped across the front of his waist coat.  He\n");
  848. Xprintf("is holding in his right hand a sword of fire such as one\n") ;
  849. Xprintf("reads about in Genesis.  You can hear \"Waltzing Matilda\"\n");
  850. Xprintf("being played softly in the background.  You know what?\n");
  851. Xprintf("I think this ethereal being is none other than the ghost\n") ;
  852. Xprintf("of Banjo Patterson!  With this realization Banjo begins to\n") ;
  853. Xprintf("speak:\n") ;
  854. X}
  855. X        hold_it() ;
  856. Xprintf("\"Good on you, Fair Dinkum Adventurer!  You have braved\n") ; 
  857. Xprintf("the perils of hoop snakes, drop bears, and mutant wombats.\n") ;
  858. Xprintf("You have solved many riddles, collected much treasure and\n") ;
  859. Xprintf("encountered true evil and dealt with it appropriately.\n");
  860. Xprintf("However it has occured to us that you might not be one of\n") ;
  861. Xprintf("the chosen few who can be admitted into the Land of the\n") ;
  862. Xprintf("Blessed.  The possibility remains that you could be a\n") ;
  863. Xprintf("whinging Pom or a bleeding Yank.  Therefore you will be\n") ;
  864. Xprintf("tested with three questions.  If you answer correctly, you\n") ;
  865. Xprintf("will be admitted into paradise. However should you answer\n");
  866. Xprintf("falsely, you will be sent to another place, an abode of\n");
  867. Xprintf("darkness and dread.  So answer wisely, for you will not be\n") ;
  868. Xprintf("given a second chance!\"\n\n") ;
  869. X
  870. Xprintf("What is the capital of Australia?\n\n") ;
  871. Xprintf("     A) Sydney\n") ;
  872. Xprintf("     B) Canberra\n") ;
  873. Xprintf("     C) Melbourne\n\n") ;
  874. Xprintf("Answer A, B, or C:  ") ;
  875. X#ifndef __TURBOC__
  876. X        for(;;) {
  877. X            letter = getchar() ;
  878. X            if ((letter != '\n')&&(letter != ' ')) break ;
  879. X        }
  880. X        if (('b' == letter)||('B' == letter)) 
  881. X            printf("\nCorrect!\n\n") ;
  882. X#endif
  883. X
  884. X#ifdef __TURBOC__
  885. X        for(;;) {
  886. X            letter = getche() ;
  887. X            if ((letter != '\n')&&(letter != ' ')) break ;
  888. X        }
  889. X        if (('b' == letter)||('B' == letter)) 
  890. X            printf("\n\nCorrect!\n\n") ;
  891. X#endif
  892. X        else {
  893. X            los_angeles() ;
  894. X            return ;
  895. X        }
  896. X
  897. Xprintf("In the Australian emblem there appears two animals on\n") ;
  898. Xprintf("either side of a shield.  One of the two animals is a\n") ;
  899. Xprintf("kangaroo.  What species is the other animal?\n\n") ;
  900. Xprintf("     A) Koala Bear\n") ;
  901. Xprintf("     B) Platypus\n") ;
  902. Xprintf("     C) Emu\n\n") ;
  903. Xprintf("Answer A, B, or C:  ") ;
  904. X#ifndef __TURBOC__
  905. X        for(;;) {
  906. X            letter = getchar() ;
  907. X            if ((letter != '\n')&&(letter != ' ')) break ;
  908. X        }
  909. X        if (('c' == letter)||('C' == letter)) 
  910. X            printf("\nCorrect!\n\n") ;
  911. X#endif
  912. X
  913. X#ifdef __TURBOC__
  914. X        for(;;) {
  915. X            letter = getche() ;
  916. X            if ((letter != '\n')&&(letter != ' ')) break ;
  917. X        }
  918. X        if (('c' == letter)||('C' == letter)) 
  919. X            printf("\n\nCorrect!\n\n") ;
  920. X#endif
  921. X        else {
  922. X            los_angeles() ;
  923. X            return ;
  924. X        }
  925. X
  926. Xprintf("Which place is a state in Australia?\n\n") ;
  927. Xprintf("     A) Arcadia\n") ;
  928. Xprintf("     B) Patagonia\n") ;
  929. Xprintf("     C) Tasmania\n\n") ;
  930. Xprintf("Answer A, B, or C:  ") ;
  931. X#ifndef __TURBOC__
  932. X        for(;;) {
  933. X            letter = getchar() ;
  934. X            if ((letter != '\n')&&(letter != ' ')) break ;
  935. X        }
  936. X        if (('c' == letter)||('C' == letter)) 
  937. X            printf("\nCorrect!\n\n") ;
  938. X#endif
  939. X
  940. X#ifdef __TURBOC__
  941. X        for(;;) {
  942. X            letter = getche() ;
  943. X            if ((letter != '\n')&&(letter != ' ')) break ;
  944. X        }
  945. X        if (('c' == letter)||('C' == letter)) 
  946. X            printf("\n\nCorrect!\n\n") ;
  947. X#endif
  948. X        else {
  949. X            los_angeles() ;
  950. X            return ;
  951. X        }
  952. X
  953. X/* Player has won the game */
  954. Xprintf("You see Banjo Patterson with a beatific smile.  He waves\n") ;
  955. Xprintf("his firey sword with a florish and the scene around you\n") ;
  956. Xprintf("dissolves into a million tiny motes of light.  You now\n") ;
  957. Xprintf("find yourself wearing swimming togs.  You are being carried\n");
  958. Xprintf("by a guard of honour made up of four sumptuous shielas\n") ;
  959. Xprintf("dressed in string bikinis and four handsome lifeguards.\n") ;
  960. Xprintf("They carry you to a perfect beach on South Stradbroke\n") ;
  961. Xprintf("Island.  Off in the distance on the Queensland mainland\n") ;
  962. Xprintf("you see the Gold Coast which vaguely resembles the Emerald\n") ;
  963. Xprintf("City of the classic movie.  Your guard of honour sets you\n") ;
  964. Xprintf("down and hands you a can of Power's Bitter.  Three\n") ;
  965. Xprintf("beautiful white pelicans float over head in a clear blue\n") ;
  966. Xprintf("sky completing a scene of exquisite beauty.\n\n") ;
  967. Xprintf("You're in paradise Mate and you've also won the game!\n\n") ;
  968. X
  969. X/* deal with final gleep announcement */
  970. Xif (Tank->Status == 1) {
  971. Xprintf("---- A hint for those who want to go on playing Dinkum ----\n");
  972. Xprintf("In this game you only put the minimum single gleep in the\n");
  973. Xprintf("gleep tank.  In future games try seeding fertile tunnels\n");
  974. Xprintf("with gleeps and reproducing them.  Build up as many gleeps\n");
  975. Xprintf("as you can and then hit the gong before Dinkum times out.\n");
  976. X}
  977. Xelse {
  978. Xprintf("You won this game with %d gleeps in the gleep tank.\n\n",
  979. X    Tank->Status) ;
  980. X}
  981. X        if (sw_wizard) return ;
  982. X        else exit(0) ;
  983. X    }
  984. X    else {
  985. X        printf("I don't have a clapper to hit it with! \n") ;
  986. X        return ;
  987. X    }
  988. X}
  989. Xelse {
  990. X    printf("\nThud!\n\n") ;
  991. X    printf("Nothing happened.\n") ;
  992. Xprintf("I think you'd have more success if you used a gong clapper.\n");
  993. X    return ;
  994. X}
  995. X} /* --- end of the "sounder" subroutine  --- */ 
  996. X
  997. X#if (PROTOTYPE)
  998. Xvoid los_angeles(void)
  999. X#else
  1000. Xvoid los_angeles()
  1001. X#endif
  1002. X/********************************************************************/
  1003. X/*                                                                  */
  1004. X/*                 --- Los Angeles Subroutine --                    */
  1005. X/*                                                                  */
  1006. X/*       Player enters false answer and goes to Los Angeles.        */
  1007. X/*                                                                  */
  1008. X/* Software by Gary A. Allen, Jr. 7 December 1992  Version: Mk 1.0  */
  1009. X/*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  1010. X/*                                                                  */
  1011. X/********************************************************************/
  1012. X{
  1013. X#if (PROTOTYPE)
  1014. Xvoid exit(int) ;
  1015. X#endif
  1016. X
  1017. Xprintf("\n        -!-!-!-!-!-     Wrong!    -!-!-!-!-!-\n\n") ;
  1018. Xprintf("Banjo Patterson brings down the sword of fire onto your\n");
  1019. Xprintf("head. The scene around you disappears in a flash and you\n");
  1020. Xprintf("find yourself transported to.....\n\n") ;
  1021. Xprintf("             Pico Blvd., West Los Angeles\n\n") ;
  1022. Xprintf("L.A. is having a stage three smog alert.  The air is so\n");
  1023. Xprintf("foul you can taste it.  A Los Angeles municipal bus roars\n");
  1024. Xprintf("by covering you in soot.  Across the street you see a\n");
  1025. Xprintf("modern day Neanderthal selling vials of Crack to children.\n"); 
  1026. Xprintf("The person next to you has taken a definite physical\n");
  1027. Xprintf("interest in you.  She/he is wearing a short skirt and has a\n");
  1028. Xprintf("beehive hairdo.  He/she also has a five o'clock shadow, and\n");
  1029. Xprintf("bicepts so thick that he could collapse your skull with a\n");
  1030. Xprintf("single thump.\n\n") ; 
  1031. Xprintf("We now leave this unhappy scene.  Since you were sent to\n") ;
  1032. Xprintf("Los Angeles your score has been zeroed.\n\n") ; 
  1033. Xprintf("So ends yet another unsuccessful session at Dinkum!\n") ;
  1034. X
  1035. Xif (sw_wizard) return ;
  1036. Xelse exit(0) ;
  1037. X
  1038. X} /* --- end of the "los_angeles" subroutine  --- */ 
  1039. X
  1040. X
  1041. END_OF_FILE
  1042. if test 17654 -ne `wc -c <'objlook.c'`; then
  1043.     echo shar: \"'objlook.c'\" unpacked with wrong size!
  1044. fi
  1045. # end of 'objlook.c'
  1046. fi
  1047. echo shar: End of archive 7 \(of 7\).
  1048. cp /dev/null ark7isdone
  1049. MISSING=""
  1050. for I in 1 2 3 4 5 6 7 ; do
  1051.     if test ! -f ark${I}isdone ; then
  1052.     MISSING="${MISSING} ${I}"
  1053.     fi
  1054. done
  1055. if test "${MISSING}" = "" ; then
  1056.     echo You have unpacked all 7 archives.
  1057.     rm -f ark[1-9]isdone
  1058. else
  1059.     echo You still need to unpack the following archives:
  1060.     echo "        " ${MISSING}
  1061. fi
  1062. ##  End of shell archive.
  1063. exit 0
  1064.