home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / games / volume15 / dinkum / part04 / monster.c < prev   
C/C++ Source or Header  |  1993-01-27  |  24KB  |  684 lines
  1. #define MNSTR
  2. #include "dink_sym.h"
  3. #include "dink_glb.h"
  4.  
  5. void monster(i_n, old_n)
  6. /********************************************************************/
  7. /*                                                                  */
  8. /*                  --- The Monster Subroutine ---                  */
  9. /*                                                                  */
  10. /*  monster_flag is a global variable input parameters              */
  11. /*                                                                  */
  12. /*  Software by Gary A. Allen, Jr.    7 Sept. 1989, Version: Mk 1.5 */
  13. /*           (c) Copyright 1989 by Gary A. Allen, Jr.               */
  14. /*                                                                  */
  15. /********************************************************************/
  16. int *i_n, *old_n ;
  17. {
  18. #ifdef __TURBOC__
  19. void ender(int), long_descp(int), hold_it(void), boom(void) ;
  20. #endif
  21.  
  22. register int i, j ;
  23. int n, sw_chasing, sw_local, j_chase, j_local ;
  24. static int sw_snaked = FALSE, sw_hoop = FALSE, bear_flag = 0 ;
  25. static int old_n_1, old_n_2, sw_replaced = FALSE, sw_wombat = FALSE ;
  26. static int sw_nogo = FALSE, sw_guarded = TRUE, sw_letter = FALSE ;
  27. static int count_down = 0 ;
  28.  
  29. /* set up some of the input variables */
  30. n = *i_n ;
  31. sw_chasing = FALSE ; /* turn off the chasing monster switch */
  32. sw_local = FALSE ;   /* turn off the local monster switch */
  33.  
  34. /* There can be no active monsters while in the closet */
  35. if (n == R_closet) {
  36.     monster_flag = F_no_monster ;
  37.     if (sw_letter == TRUE) {
  38.         sw_letter = FALSE ;
  39.         sw_nogo = TRUE ;
  40. printf("\nYou hear a loud \"BOOM!\" from the Prayer Room followed\n");
  41. printf("by the sounds of people shouting and cursing in Farsi. I\n");
  42. printf("think it is definitely time that we leave.\n") ;
  43.     }
  44.     return ;
  45. }
  46.  
  47. /* scan the enemy table for the local and/or chasing monsters */
  48. for (j = 0; j <= enemy_max; j++) {
  49.     if (enemy[j][E_location] == n) {
  50.         sw_local = TRUE;
  51.         j_local = j ;
  52.     }
  53.     else if (enemy[j][E_status] != F_asleep){
  54.         if ((N_mullah == j)||(N_guards == j)||((N_ned == j)&&
  55.         (enemy[j][E_status] == F_stealing))) continue ;
  56.         sw_chasing = TRUE;
  57.         j_chase = j ;
  58.     }
  59. } 
  60.  
  61. /* see if the monster is local */
  62. if (sw_local) {
  63. /* deal with case of being chased by monster to another monster */
  64. if (sw_chasing) {
  65.  
  66.     switch(j_chase) {
  67. /* Mutant wombat scares off the local monser */
  68.     case N_wombat:
  69. /* put the local monster to sleep and swap location with wombat  */
  70.     enemy[j_local][E_status] = F_asleep ;
  71.     enemy[j_local][E_location] = enemy[N_wombat][E_location] ;
  72.     goto chaser ;
  73.  
  74. /* Hoop Snake breaks off the chase */
  75.     case 6:
  76.     case 7:
  77.     case 8:
  78.     case 9:
  79.     case 10:
  80.     case 11:
  81.     case 12:
  82.     case 13:
  83. printf("                     ---- What a relief!! ---- \n") ;
  84. printf("           The dreaded hoop snake has broken off pursuit.\n");
  85. printf("                         But what is this!!\n\n") ;
  86. printf("You see yet another terrible creature!\n");
  87.     sw_replaced = TRUE  ;
  88.     break ;
  89.     }
  90.  
  91.     /* put the chasing monster to sleep */
  92.     monster_flag = F_no_monster ;
  93.     enemy[j_chase][E_status] = F_asleep ;
  94.     sw_chasing = FALSE;
  95. }
  96.  
  97. /* local monster routines */
  98. j = j_local ;
  99. switch(j) {
  100.  
  101. /* Revolutionary Guard local (only) behavior */
  102. case N_guards:
  103. monster_flag = F_monster_active ;
  104.  
  105. /* guards always kill after the letter bomb has exploded */
  106. if (sw_nogo) {
  107. printf("\nWith you are three men dressed in ripped and shredded ");
  108. printf("clothes which have\nbeen blackened by an explosion.  They ") ;
  109. printf("are armed to the teeth and insane\nwith rage.  They take ");
  110. printf("one look at you and proceed to cut you to pieces with\n");
  111. printf("their automatic weapons!\n\n");
  112.     ender(F_died) ;
  113. }
  114.  
  115. /* guards always kill if they see a rifle */
  116. if (object[O_rifle][J_loc] == B_have) {
  117. printf("With you are four men dressed in rather shabby clothes. ");
  118. printf("Three of them\nare clutching AK-47 assault rifles while ");
  119. printf("the fourth one is holding an Uzi\nmachine gun. They ") ;
  120. printf("take one look at the M-16 rifle which you are clutching,\n");
  121. printf("point their own weapons at you and proceed to hose you ");
  122. printf("with a hail of\nlead!  Ten seconds later you look like ");
  123. printf("a piece of Swiss cheese.\n\n") ;
  124.     ender(F_died) ;
  125. }
  126.  
  127. switch (enemy[N_guards][E_status]) {
  128.     case F_asleep:
  129.         enemy[N_guards][E_status] = F_passive ;
  130. printf("With you are four men dressed in rather shabby clothes. ");
  131. printf("Three of them\nare clutching AK-47 assault rifles while ");
  132. printf("the fourth one is holding an Uzi\nmachine gun. They ") ;
  133. printf("search you but find nothing that is obviously a\n") ;
  134. printf("weapon.  They are in a quandary on what to do with ") ;
  135. printf("you, since you\nliterally appeared out of thin air.\n");
  136.         return ;
  137.     
  138.     case F_passive:
  139.         if (enemy[N_mullah][E_status] == F_asleep) {
  140. printf("\nThe four men have concluded that the best thing to do\n");
  141. printf("with you is to take you to their superiors.  Two of the men\n");
  142. printf("roughly grab hold of you and fling you bodily through the\n");
  143. printf("doorway to the east.\n\n") ;
  144.         *i_n = R_prayer;
  145.         long_descp(R_prayer) ;
  146.         goto tossed ;
  147.         }
  148.         if (sw_guarded) {
  149. printf("\nAll of the guards are currently in the prayer room.\n") ;
  150.             sw_guarded = FALSE ;
  151.         }
  152.         return ;
  153.  
  154.     case F_aggressive:
  155.         enemy[N_guards][E_status] = F_killing ;
  156. printf("\nThe four guards grab you by the arms and legs, and frog\n");
  157. printf("march you back into the prayer room.\n");
  158.         *i_n = R_prayer;
  159.         return ;
  160.  
  161.     case F_killing:
  162. printf("\nThe guards are tired of fooling with you.  One of them\n") ;
  163. printf("hits you on the head with the butt of his rifle.  Then the\n");
  164. printf("other two guards drag you outside where you are executed\n");
  165. printf("before a jeering mob of 30,000 people!\n\n") ;
  166.         ender(F_died) ;
  167.  
  168. } /* end of the Guards local routine and switch block */
  169.  
  170.  
  171. /* Chief Mullah local (only) behaivor */
  172. case N_mullah:
  173. switch (enemy[N_mullah][E_status]) {
  174.     case F_asleep:
  175. tossed:
  176.         printf("\n") ;
  177.         hold_it() ;
  178.         enemy[N_mullah][E_status] = F_aggressive ;
  179.         enemy[N_guards][E_status] = F_aggressive ;
  180.  
  181. printf("The chief Mullah (or whatever he is) who is sitting on the\n");
  182. printf("dias glares in your direction and begins expounding in a\n");
  183. printf("long monologue in Farsi. One of his Revolutionary Guards\n") ;
  184. printf("starts translating the Mullah's words into fairly good\n");
  185. printf("English (with an American accent!). Here is what he said:\n") ;
  186. printf("\n\"I can see by your slouch hat, singlet and short pants\n");
  187. printf("that you are a good-for-nothing satanic Australian. I am\n");
  188. printf("compelled to point out that your sort is most unwelcomed in\n");
  189.  
  190. /* see if the user has any valuables or the letter */
  191.         for (i = 0; i <= objcnt; i++) { 
  192.             if ((object[i][J_loc] == B_have)&& 
  193.     ((O_letter == i)||(object[i][J_value] > 0))) {
  194.  
  195. /* Player has something the Mullah wants, so he lives */
  196. printf("this holy precinct.  Unless you can provide some good\n");
  197. printf("reasons (preferably financial ones) to the contrary, I\n");
  198. printf("shall order you to be executed immediately for the\n");
  199. printf("amusement and edification of the local populace!\"\n") ;
  200.                 count_down = 0 ;
  201.                 return ;    
  202.             }
  203.         }
  204. /* Player has no valuables and doesn't have the letter so he dies */
  205. printf("this holy precinct.  Since you have nothing of value, our\n");
  206. printf("usual practice would be to take you hostage and extract a\n");
  207. printf("ransom from your government.  However the Ozzie Dollar\n") ;
  208. printf("doesn't buy all that much anymore, so we'll just execute\n");
  209. printf("you and leave it at that.\"\n") ;
  210.         goto mullah_kills ;
  211.  
  212.     case F_aggressive:
  213.         if (object[O_letter][J_loc]==R_prayer) goto see_letter;
  214.         count_down++ ;
  215.         switch(count_down) {
  216.         case 1:
  217. printf("\nThe mullah is waiting for you to give him something.\n") ;
  218.             return ;
  219.         case 2:
  220. printf("\nThe mullah is becoming quite impaitent.  You had better\n") ;
  221. printf("do something soon!\n") ;
  222.         enemy[N_mullah][E_status] = F_killing ;
  223.         }
  224.         return ;
  225.  
  226.     case F_passive:
  227.         count_down++ ;
  228.         switch(count_down) {
  229.  
  230.         case 1:
  231. printf("\nThe mullah is examining the envelope of Muammar's letter.\n");
  232.             return ;
  233.  
  234.         case 2:
  235. printf("\nThe mullah has turned the envelope over and is just\n") ;
  236. printf("about to open it.\n") ;
  237.             return ;
  238.  
  239.         case 3:
  240.             boom() ;
  241. printf("The mullah opened the letter.  Needless to say, the letter\n") ;
  242. printf("was a bomb.  The good news is the nasty old mullah died.\n");
  243. printf("The bad news is you died in the explosion as well!\n\n") ;
  244.             ender(F_died) ;
  245.         }
  246.  
  247.     case F_killing:
  248.         if (object[O_letter][J_loc]==R_prayer) goto see_letter;
  249. printf("\"You are a brainless idiot!\" screams the Mullah!\n") ;
  250.         goto mullah_kills ;
  251. } /* end of mullah status switch block */
  252.  
  253. /* The mullah sees Gaddafi's letter */
  254. see_letter:
  255. printf("\nThe Mullah gives the letter a casual glance, then\n");
  256. printf("suddenly his face lights up and he claps his hands with\n") ;
  257. printf("glee.\n\n") ;
  258. printf("\"It's a letter from my old friend Muammar!\", he exclaims!\n");
  259. printf("\"This is an occasion for much jubulation.  As a token of\n");
  260. printf("my esteem take this ancient gong clapper made of gold and\n");
  261. printf("ivory.  It was recovered from the personal collection of\n") ;
  262. printf("the deposed Shah. It once belonged to the ancient Persian\n") ;
  263. printf("King Cyrus and is priceless!\"\n\n") ;
  264. printf("With this glad tiding the Mullah hands you the ancient\n") ;
  265. printf("clapper and then reaches down to pick up the letter from\n") ;
  266. printf("his old friend.\n") ;
  267.  
  268. enemy[N_mullah][E_status] = F_passive ;
  269. enemy[N_guards][E_status] = F_passive ;
  270. object[O_letter][J_loc] = B_destroyed ;
  271. --room[R_prayer][M_obj_cnt] ;
  272. object[O_clapper][J_loc] = B_have ;
  273. object[O_detector][J_loc] = R_guard ;
  274. ++room[R_guard][M_obj_cnt] ;
  275. sw_letter = TRUE ;
  276. count_down = 0 ;
  277. return ;
  278. /* end of the mullah local behavior routine */
  279.  
  280. /* Ned Kelly local behavior */
  281. case N_ned:
  282. if (monster_flag == F_no_monster) {
  283. printf("\nAs you approached the entrance of Ned Kelly's hide out, a ") ;
  284. printf("man walked out\n") ;
  285. printf("the front door and prevented you from entering.  He is ");
  286. printf("wearing an iron\n") ;
  287. printf("helmet with thin eye slits which completely covers ");
  288. printf("his head.  He has\n") ;
  289. printf("body armour made of thin sheets of iron that covers ");
  290. printf("his chest and abdomen.\n") ;
  291. printf("He is holding a 12 guage double barrel shotgun ");
  292. printf("and has a pistol on\nhis hip.  ") ;
  293. printf("I could be wrong but I think this is Ned Kelly!\n\n");
  294.     *i_n = R_hideout_entr ;
  295.     monster_flag = F_monster_active ;
  296.     enemy[N_ned][E_status] = F_passive ;
  297.     return ;
  298. }
  299. else {
  300.     if (enemy[N_ned][E_status] == F_killing) goto ned_kills ;
  301. printf("\nNed is not about to allow you to enter his hide out.  He ");
  302. printf("is now expressing\n") ;
  303. printf("his displeasure with your continued presence by cocking both ");
  304. printf("of the hammers on\n") ;
  305. printf("his shotgun and pointing it at your head.  I believe it is ");
  306. printf("time to go!!\n\n") ;
  307.     *i_n = R_hideout_entr ;
  308.     enemy[N_ned][E_status] = F_killing ;
  309.     return ;
  310. }
  311.  
  312. /* Mutant Wombat monster behavior */
  313. case N_wombat:
  314. sw_replaced = FALSE ; 
  315. if (monster_flag == F_no_monster) {
  316. printf("\n                        ----- OH NO!! -----\n") ;
  317. printf("                  You are in ***SERIOUS TROUBLE*** !!!\n") ;
  318. printf("Forget about hoop snakes, and forget about drop bears.  This ");
  319. printf("is the WORST\n") ;
  320. printf("thing that can be found in the ACME Mine.  You see before ");
  321. printf("you the awful\n") ;
  322. printf("spawn of the Pommy nuclear weapon's tests. Its ancestors ");
  323. printf("were inoffensive\n") ;
  324. printf("creatures, but gamma radiation has transformed this into...\n");
  325. printf("                      The Dreadful Mutant Wombat!! \n") ;
  326. printf("Normally I would advise you to run for your life.  However ");
  327. printf("there's really\n");
  328. printf("no point.  You can not out run this thing, and it's almost ");
  329. printf("impossible to\n");
  330. printf("kill.  You might as well just stand here and let it finish ");
  331. printf("you off as\n") ;
  332. printf("quickly and painlessly as possible.\n\n") ;
  333.     monster_flag = F_monster_active ;
  334.     enemy[N_wombat][E_status] = F_aggressive ;
  335.     old_n_1 = n ; 
  336.     old_n_2 = 0 ; /* zero out the previous location */
  337.     *old_n = old_n_2 ;
  338.     return ;
  339. }
  340. else {
  341.     if (enemy[N_wombat][E_status] == F_aggressive) {
  342. printf("\nThe wombat is approaching you.  Its mouth is wide open ") ;
  343. printf("showing its\n") ;
  344. printf("enormous canines.  Its claws are fully extended.  The ") ;
  345. printf("wombat sees\n") ;
  346. printf("you as an easy meal and is preparing to feast.\n") ;
  347.         enemy[N_wombat][E_status] = F_killing ;
  348.         return ;
  349.     }
  350.     if (enemy[N_wombat][E_status] == F_killing) goto wombat_kills ;
  351. }
  352.  
  353. /* Drop Bear monster behavior */
  354. case 2:
  355. case 3:
  356. case 4:
  357. case 5:
  358. sw_replaced = FALSE ; 
  359. if (monster_flag == F_no_monster) {
  360.     switch(bear_flag) {
  361. case 0:
  362. printf("\nAs you walk in, you see something that looks vaguely like") ;
  363. printf(" a koala bear\n") ;
  364. printf("sitting in the middle of the floor.  However this \"koala\"") ;
  365. printf(" has vampire\n") ;
  366. printf("teeth and blood drooling down the sides of its mouth. The") ;
  367. printf(" bear takes\n") ;
  368. printf("one look at you and climbs up the wall onto the ceiling.") ;
  369. printf(" It \n") ;
  370. printf("clings to the ceiling much like a fly and seems to be") ;
  371. printf(" positioning\n") ;
  372. printf("itself to be directly over you.  I could be wrong but I") ;
  373. printf(" think this is\n") ;
  374. printf("the deadly DROP BEAR! \n\n") ;
  375.     bear_flag = 1 ;
  376.     break ;
  377.  
  378. case 1:
  379. printf("\nJust as you walk in, a drop bear flashes by and hits") ;
  380. printf(" the ground with\n");
  381. printf("a THUNK.  That was close!  Had it hit you, and caught ") ;
  382. printf("hold with its\n");
  383. printf("claws, you would have been finished.  The dreaded ");
  384. printf("beast is now\n") ;
  385. printf("running up the wall towards the ceiling to give it ") ;
  386. printf("another go. I\n");
  387. printf("think we had better leave and soon!\n\n") ;;
  388.     bear_flag = 2 ;
  389.     break ;
  390.  
  391. case 2:
  392. printf("\nAs you walk in, you see a drop bear lounging lazily in") ;
  393. printf(" the middle of\n");
  394. printf("the floor. It rolls over and takes one look at you, ") ;
  395. printf("runs towards\n");
  396. printf("the wall and scampers up to the ceiling.  It is now ");
  397. printf("positioning\n") ;
  398. printf("itself to be directly over you.\n\n") ;
  399.     bear_flag = 1 ;
  400.     }
  401.  
  402. monster_flag = F_monster_active ;
  403. enemy[j][E_status] = F_aggressive ;
  404. return ;
  405. }
  406. else {
  407.     if (enemy[j][E_status] == F_aggressive) {
  408. printf("\nThe drop bear is now positioned directly above you.  It is") ;
  409. printf(" hanging batlike\n") ;
  410. printf("by its rear paws, with its front arms reaching out with");
  411. printf(" claws fully \n") ;
  412. printf("extended.  Its mouth is wide open with its vampire teeth ");
  413. printf("clearly visible.\n") ;
  414. printf("I think this thing means business!  Let's make a hasty ");
  415. printf("departure!!\n") ;
  416.         enemy[j][E_status] = F_killing ;
  417.         return ;
  418.     }
  419.     if (enemy[j][E_status] == F_killing) goto bear_kills ;
  420. }
  421.  
  422. /* Hoop Snake monster behavior */
  423. case 6:
  424. case 7:
  425. case 8:
  426. case 9:
  427. case 10:
  428. case 11:
  429. case 12:
  430. case 13:
  431. if (monster_flag == F_no_monster) {
  432.     if (sw_replaced) { 
  433.         sw_replaced = FALSE  ;
  434. printf("\nA new and rested hoop snake rolls into view.  The ");
  435. printf("snake sees you, lets go of\n") ;
  436. printf("its tail and starts slithering towards you with fangs ");
  437. printf("at the ready. \n\n");
  438.     }
  439.     else {
  440.         if (!sw_hoop) {
  441. printf("\nSomething that looks vaguely like a barrel hoop rolls into ");
  442. printf("the passage. You \n") ;
  443. printf("suddenly realize to your horror that this is no hoop but a ");
  444. printf("snake biting its \n") ;
  445. printf("own tail.  The snake lets go of its tail and starts to ");
  446. printf("slither towards you \n") ;
  447. printf("like a regular, highly aggressive snake. \n\n");
  448.             sw_hoop = TRUE ;
  449.         }
  450.         else {
  451. printf("\nA hoop snake rolls towards you.  It lets go of its ");
  452. printf("tail and starts slithering\n") ;
  453. printf("in your direction. \n\n");
  454.         }
  455.     }
  456.     monster_flag = F_monster_active ;
  457.     enemy[j][E_status] = F_aggressive ;
  458.     old_n_1 = n ; 
  459.     old_n_2 = 0 ; /* zero out the previous location */
  460.     *old_n = old_n_2 ;
  461.     return ;
  462. }
  463. else {
  464.     if (enemy[j][E_status] == F_aggressive) {
  465. printf("\nThe hoop snake is coiling up in front of you and ") ;
  466. printf("hissing very aggressively. \n") ;
  467. printf("Venom is dripping from its sharp fangs and seems ") ;
  468. printf("to be burning holes into\n") ;
  469. printf("the stone floor.\n\n") ;
  470. printf("I think it would be wise for us to leave....  Quickly!!\n") ;
  471.         enemy[j][E_status] = F_killing ;
  472.         return ;
  473.     }
  474.     if (enemy[j][E_status] == F_killing) goto snake_kills ;
  475. }
  476. } /* end of the local monster switch group */
  477. }
  478.  
  479. /* chasing monster routines */
  480. chaser: 
  481. j = j_chase ;
  482. switch(j) {
  483. /* Ned Kelly */
  484. case N_ned:
  485.     if (n == R_hideout_entr) {
  486.     if (enemy[N_ned][E_status] == F_passive) {
  487. printf("\nNed Kelly is standing in front of you and is holding a ");
  488. printf("12 guage shotgun\n") ;
  489. printf("in a rather menacing manner.  This guy is really game!\n\n") ;
  490. printf("I suggest we leave.....   and quickly!!\n\n") ;
  491.         enemy[N_ned][E_status] = F_aggressive ;
  492.         return ;
  493.     }
  494.     if (enemy[N_ned][E_status] == F_aggressive) {
  495. printf("\nNed seems to be getting impaitent with you.  He is now ");
  496. printf("expressing his\n") ;
  497. printf("displeasure with your continued presence by cocking both ");
  498. printf("of the hammers on\n") ;
  499. printf("his shotgun and pointing it at your head.  I really think ");
  500. printf("we should be\n") ;
  501. printf("making a hasty departure!!\n\n") ;
  502.         enemy[N_ned][E_status] = F_killing ;
  503.         return ;
  504.     }
  505.     if (enemy[N_ned][E_status] != F_killing) break ;
  506.         else goto ned_kills ;
  507.     }
  508.     else break ;
  509.  
  510. /* Mutant wombat chases */
  511. case N_wombat:
  512.     if (n == R_lift_inside) {
  513. printf("\nYou run as fast as you can into the lift.  You've made it,") ;
  514. printf(" you're in the\n") ;
  515. printf("lift! However as you turn around, you realize to your horror") ;
  516. printf(" that the\n") ;
  517. printf("wombat has also made it inside the lift, and the door ");
  518. printf("is closing!!\n\n") ;
  519. printf("                     Ah, Stuff of Nightmares!!!\n") ;
  520. printf("          ---Trapped in a Lift with a Mutant Wombat!!!---\n\n");
  521. printf("This is just too horrible.  Let it suffice... You died. \n");
  522.     ender(F_died) ;
  523.     }
  524.     if (n == old_n_2) {
  525. printf("The wombat is in that direction.  You can't go that way!\n");
  526.         *i_n = old_n_1 ;
  527.         return ;
  528.     }
  529.     if (!sw_wombat) {
  530. printf("\nAs you flee down the passage, you hear the ");
  531. printf("\"THUD, THUD, THUD\" of the wombat\n") ;
  532. printf("trudging down the passage.  The horrible thing is after") ;
  533. printf(" you!  Give up\n") ;
  534. printf("all hope!  The wombat is driven by nuclear energy and") ;
  535. printf(" will never stop.\n\n") ;
  536.     sw_wombat = TRUE ;
  537.     }
  538.     else { 
  539. printf("\nThe wombat is still chasing you and not tiring. \n") ;
  540.     }
  541.     monster_flag = F_monster_active ;
  542.     enemy[j][E_status] = F_aggressive ;
  543.     --room[enemy[j][E_location]][M_monster] ;
  544.     ++room[n][M_monster] ;
  545.     enemy[j][E_location] = n ;
  546.     old_n_2 = old_n_1 ;
  547.     old_n_1 = n ;
  548.     *old_n = old_n_2 ;
  549.     return ;
  550.  
  551. /* Hoop Snake chases */
  552. case 6:
  553. case 7:
  554. case 8:
  555. case 9:
  556. case 10:
  557. case 11:
  558. case 12:
  559. case 13:
  560.     if (n == R_lift_inside) {
  561. printf("\nYou seek refuge from the hoop snake by fleeing into the ") ;
  562. printf("lift.  Just as you\n") ;
  563. printf("enter the lift, its door begins to close.  Unfortunately the") ;
  564. printf(" hoop snake\n") ;
  565. printf("rolls in the instant before the door is fully closed.\n\n") ;
  566. printf("We will not describe the unpleasant events that occur behind");
  567. printf(" the closed door\n");
  568. printf("of the lift. However one can hear screams, curses, futile ");
  569. printf("banging on the\n");
  570. printf("lift door and loud snake hissing.  After a few minutes ");
  571. printf("there is again silence.\n");
  572. printf("The lift door opens and the hoop snake rolls out and away. ");
  573. printf("A peek inside the\n");
  574. printf("lift reveals your corpse which is in the early phases of ");
  575. printf("rigor mortis.\n") ;
  576.     ender(F_died) ;
  577.     }
  578.     if (n == old_n_2) {
  579.         if (enemy[j][E_status] == F_killing) {
  580. printf("The hoop snake is in that direction.  ") ;
  581. printf("You can't go that way!\n");
  582.         *i_n = old_n_1 ;
  583.         return ;
  584.         }
  585.         else {
  586. printf("You have run back the way you came and passed the hoop ");
  587. printf("snake, which\n") ;
  588. printf("is still biting its tail and rolling like a hoop. The ") ;
  589. printf("vile creature\n") ;
  590. printf("hisses in frustration and does a U-turn to continue ") ;
  591. printf("the chase.\n\n") ;
  592.         }
  593.     }
  594.     else {
  595.         if (!sw_snaked) {
  596. printf("\nAs you flee down the passage, you hear the characteristic ") ;
  597. printf("sound of reptilian\n") ;
  598. printf("scales rubbing the stone floor.  You look over your shoulder") ;
  599. printf(" and see the\n") ;
  600. printf("hoop snake is rolling along right behind you! The dreaded") ;
  601. printf(" thing is chasing you!!\n\n") ;
  602.             sw_snaked = TRUE ;
  603.         }
  604.         else {
  605. printf("\nThe hoop snake is rolling along behind you, and still") ;
  606. printf(" in hot pursuit!\n\n") ;
  607.         }
  608.     }
  609.     monster_flag = F_monster_active ;
  610.     enemy[j][E_status] = F_aggressive ;
  611.     --room[enemy[j][E_location]][M_monster] ;
  612.     ++room[n][M_monster] ;
  613.     enemy[j][E_location] = n ;
  614.     old_n_2 = old_n_1 ;
  615.     old_n_1 = n ;
  616.     *old_n = old_n_2 ;
  617.     return ;
  618. } /* end of the chasing monster switch group */
  619.  
  620. /* player has fled the monster, so turn it off */
  621. monster_flag = F_no_monster ;
  622. enemy[j][E_status] = F_asleep ;
  623. return ;
  624.  
  625. /* Ned Kelly kills the player */
  626. ned_kills:
  627. printf("\nWith an air of professional detachment, Ned Kelly pulls ");
  628. printf("both triggers\n") ;
  629. printf("on his shotgun and blows your head clean off your ") ;
  630. printf("shoulders. \n\n") ;
  631. ender(F_died) ;
  632.  
  633. /* The Mutant Wombat kills the player */
  634. wombat_kills:
  635. printf("\nThe obscene creature has grasped you with its terrible ");
  636. printf("claws!  First the\n");
  637. printf("wombat rips off your right arm with a single jerk and ");
  638. printf("tosses it down its\n");
  639. printf("throat like it was an appetizer (which it was!).  Next ");
  640. printf("the monster studies\n");
  641. printf("you for a moment and then twists off your left leg and ") ; 
  642. printf("chews on it like\n") ;
  643. printf("a turkey drumstick.  After savoring your left leg, it ");
  644. printf("opens its mouth wide\n");
  645. printf("and stuffs you in head first!  Your last memory was ") ;
  646. printf("hearing the crunching\n");
  647. printf("of your own bones as the wombat's jaws clamped down!\n") ;
  648. ender(F_died) ;
  649.  
  650. /* The Hoop Snake kills the player */
  651. snake_kills:
  652. printf("\nThe hoop snake strikes and bites you right on the nose!") ;
  653. printf("\n\nYou begin to thrash around ") ;
  654. printf("like a Baygon sprayed cocky.  The nerve poison \n") ;
  655. printf("makes you jerk around onto your back with your arms and ") ;
  656. printf("legs flailing about\n") ;
  657. printf("in the air.  With time your spasmodic twitching reduces") ;
  658. printf(" in frequency.  You\n") ;
  659. printf("slowly grind down to a halt with the coming of death. \n") ;
  660. ender(F_died) ;
  661.  
  662. /* The drop bear kills the player */
  663. bear_kills:
  664. printf("\nThe drop bear drops on top of you.  First it grabs hold ") ;
  665. printf("of you with its \n") ;
  666. printf("sharp claws that sink deep into your flesh.  Then it bites ");
  667. printf("into your neck \n") ; 
  668. printf("at the jugular vein and begins sucking your blood.  You ");
  669. printf("try desperately \n") ;
  670. printf("to pull the horrible monster off, but it only clamps on ");
  671. printf("harder and sucks \n") ; 
  672. printf("more vigorously.  Soon you grow weak from lack of blood, ");
  673. printf("and lapse into death. \n") ;
  674. ender(F_died) ;
  675.  
  676. /* The Mullah kills the player */
  677. mullah_kills:
  678. printf("\nWith that pronouncement, the chief Mullah claps his hands\n");
  679. printf("twice.  Two Revolutionary Guards drag you outside where you\n");
  680. printf("are executed before a jeering mob of 30,000 people!\n") ;
  681. ender(F_died) ;
  682.  
  683. } /* --- end of the "monster" subroutine --- */
  684.