home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / volume15 / dinkum2 / part02 < prev    next >
Encoding:
Text File  |  1993-01-26  |  53.9 KB  |  1,791 lines
  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: v15i037:  dinkum2 - australian text adventure game, Part02/07
  5. Message-ID: <4193@master.CNA.TEK.COM>
  6. Date: 14 Jan 93 03:25:43 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 1779
  9. Approved: billr@saab.CNA.TEK.COM
  10. Xref: uunet comp.sources.games:1536
  11.  
  12. Submitted-by: Gary Allen <gary@sun.mech.uq.oz.au>
  13. Posting-number: Volume 15, Issue 37
  14. Archive-name: dinkum2/Part02
  15. Supersedes: dinkum: Volume 15, Issue 21-26
  16. Environment: Unix, DOS
  17.  
  18.  
  19.  
  20. #! /bin/sh
  21. # This is a shell archive.  Remove anything before this line, then unpack
  22. # it by saving it into a file and typing "sh file".  To overwrite existing
  23. # files, type "sh file -c".  You can also feed this as standard input via
  24. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  25. # will see the following message at the end:
  26. #        "End of archive 2 (of 7)."
  27. # Contents:  dinkum.c pusher.c
  28. # Wrapped by billr@saab on Wed Jan 13 19:20:18 1993
  29. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  30. if test -f 'dinkum.c' -a "${1}" != "-c" ; then 
  31.   echo shar: Will not clobber existing file \"'dinkum.c'\"
  32. else
  33. echo shar: Extracting \"'dinkum.c'\" \(32399 characters\)
  34. sed "s/^X//" >'dinkum.c' <<'END_OF_FILE'
  35. X#define DINKUM.C
  36. X#include "dink_sym.h"
  37. X#include "dink_glb.h"
  38. X#include <stdlib.h>
  39. X#define Failed        0
  40. X#define Request        1
  41. X
  42. X/* ---------------- Version Date --------------- */
  43. Xchar *lb_date = "5 January 1993" ;
  44. X/* --------------------------------------------- */
  45. X
  46. X/*  ---- Version Number  ---- */
  47. Xchar *lb_version = "2.3" ;
  48. X/*  ------------------------- */
  49. X
  50. X/* ---------------- Version Type --------------- */
  51. Xchar *lb_share = "[GAMES.SOURCES Version]" ;
  52. X/* --------------------------------------------- */
  53. X
  54. X/*  ---- Serial Number  ---- */
  55. X#define S_number     1
  56. Xint serial = S_number ;
  57. X/*  ------------------------ */
  58. X 
  59. X/* Global variables local to this file only */
  60. Xint sw_help = FALSE, sw_null = FALSE, sw_number = FALSE, sw_standard = FALSE ;
  61. X
  62. X/* MAIN PROGRAM --- MAIN PROGRAM --- MAIN PROGRAM --- MAIN PROGRAM */
  63. Xvoid main(argc,argv)
  64. X/*********************************************************************/
  65. X/*                                                                   */
  66. X/*                   --- The Dinkum Program ---                      */
  67. X/*                                                                   */
  68. X/* Software by Gary A. Allen, Jr.  5 January 1993   Version: Mk 2.3  */
  69. X/*            (c) Copyright 1993 by Gary A. Allen, Jr.               */
  70. X/*                                                                   */
  71. X/*********************************************************************/
  72. X
  73. Xint argc ;
  74. Xchar *argv[] ;
  75. X{
  76. Xregister int i, j ;
  77. X
  78. Xint dig_1, dig_2, sw_loop ;
  79. Xint pnt, i_rand1, i_rand2, i_rand3, loc[3] ;
  80. Xlong l_pass, l_time, l_base, start_time, *time_arg = 0 ;
  81. Xchar chr, cmd[8] ;
  82. X
  83. Xstruct monster_struct *mnstr ;
  84. X
  85. X#if (PROTOTYPE)
  86. X/* Function prototypes */
  87. Xvoid cmd_switch(char[8], int, int, char *[]) ;
  88. Xvoid bugs(int), help(void) ;
  89. Xvoid kelly(int), long_descp(int), objlooker(int), killer(int) ;
  90. Xvoid gleeper(int), actor(int), ender(int), closer(int), opener(int) ;
  91. Xvoid dialer(int), taker(int), dropper(int), describe(int) ;
  92. Xvoid igniter(int), switcher(int), unlocker(int), sounder(int) ;
  93. Xvoid loader(void), eater(void), filler(void), looker(int), exit(int) ;
  94. Xvoid monster(int[3]), new_score(void), boom(void), parse(void) ;
  95. Xint mover(int,int[3]) ; 
  96. Xvoid inventer(void), drinker(void), reader(int), pusher(int*);
  97. Xvoid cheater(void) ; 
  98. Xvoid pass(void), unloader(int) ;
  99. Xlong time(long*) ;
  100. Xchar getch(void), getche(void) ;
  101. X#endif
  102. X
  103. X/* Software security */
  104. Xif (serial != S_number) exit(0) ;  /* abort if serial number changed */
  105. X
  106. X/* Scan the after the DOS/Unix command for switches or file name */
  107. Xif (argc > 1) {
  108. Xfor (i = 1; i <= argc-1; i++) {
  109. X    /* Flush command vector */
  110. X    for (j = 0; j <= 7; j++) cmd[j] = '\0' ;
  111. X    /* Get command vector */
  112. X    sscanf(argv[i],"%c%c%c%c%c%c%c%c%c", &chr, &cmd[0], &cmd[1],
  113. X        &cmd[2], &cmd[3], &cmd[4], &cmd[5], &cmd[6], &cmd[7]) ;
  114. X    sw_null = FALSE ;
  115. X    if (chr == '?') help() ;
  116. X    if (chr == '-') {
  117. X        for (j = 0; j <= 7; j++) {
  118. X            cmd_switch(cmd, j, i, argv) ;
  119. X            if (sw_number) {
  120. X                i++ ;
  121. X                sw_number = FALSE ;
  122. X                break ;
  123. X            }
  124. X            if (sw_null) break ;
  125. X        } /* end of command "for" loop */
  126. X
  127. X        if (j > 7) {
  128. Xprintf("\n!!!! Too many commands on one \"-\" switch group.\n") ;
  129. Xprintf("!!!! Break up the commands into several \"-\" switch groups.\n") ;
  130. X            bugs(Failed) ;
  131. X        }  
  132. X    } /* end of the "-" marker block */
  133. X
  134. X    /* Deal with garbage on the command line */
  135. X    else {
  136. Xprintf ("\n!!!! The following on the command line was not understood:  %s \n",
  137. X    argv[i]);
  138. X        bugs(Failed) ;
  139. X    } /* Nondefault scratch file opening block */
  140. X
  141. X} /* end of argument token "for" loop */
  142. X
  143. Xif (sw_help) help() ;
  144. X} /* end of the command switch block */
  145. X
  146. X/* Deal with someone cheating with switch "-s" */
  147. Xif (sw_standard && (!sw_wizard)) {
  148. X    printf("!!!! Command line switch -s is unknown.\n") ;
  149. X    bugs(Failed) ;
  150. X}
  151. X 
  152. X/* Software security */
  153. Xif (serial != S_number) exit(0) ;  /* abort if serial number changed */
  154. X
  155. X/* Initialize the program */
  156. Xsw_warned = FALSE ;
  157. Xl_time = time(time_arg) ;
  158. Xl_base = l_time/10 ;
  159. Xl_base *= 10 ;
  160. Xl_pass = l_time - l_base ;
  161. Xdig_1 = (int)l_pass ;
  162. Xloc[2] = 0 ;     /* zero out the "old" location */
  163. X
  164. Xprintf("                    ") ;
  165. Xprintf("                   --- Dinkum --- \n");
  166. Xprintf("                    ") ;
  167. Xprintf("     (c) Copyright 1993 by Gary A. Allen, Jr.\n") ;
  168. Xprintf("                    ") ;
  169. Xprintf("  All Rights Reserved. Version %s, %s\n\n",
  170. X    lb_version, lb_date);
  171. X
  172. Xprintf("Would like some initial help with Dinkum?\n") ;
  173. X
  174. Xfor (;;) {
  175. X
  176. X#ifndef __TURBOC__
  177. X    do {
  178. X        printf("(Answer:  Yes or No) ") ; 
  179. X    } while ('\n' == (chr = getchar())) ;
  180. X
  181. X    while ('\n' != getchar()) ;
  182. X#endif
  183. X
  184. X#ifdef __TURBOC__
  185. X    printf("\n") ;
  186. X    do {
  187. X        printf("(Answer:  Yes or No) ") ; 
  188. X    } while ('\n' == (chr = getch())) ;
  189. X    printf("\n") ;
  190. X#endif
  191. X
  192. X    if (('n' == chr)||('N' == chr)||('y' == chr)||('Y' == chr)) {
  193. X        if (('y' == chr)||('Y' == chr)) {
  194. Xprintf("\nG'day Mate!  Welcome to \"Dinkum\" the Australian adventure");
  195. Xprintf("\ngame.  In Dinkum you'll search for treasure in the\n") ;
  196. Xprintf("Australian Outback.  You give the commands and I'll do the\n");
  197. Xprintf("dangerous work. I understand most plain English sentences.\n");
  198. Xprintf("If you want me to go east then type \"Will you please go\n");
  199. Xprintf("east?\" and press the RETURN or ENTER key.  If you don't\n") ;
  200. Xprintf("enjoy typing then just type \"e\" and press RETURN.  I'll\n");
  201. Xprintf("still go east.  After you have gathered up some things\n") ;
  202. Xprintf("you can see what you have by typing \"inventory\".\n") ;
  203. Xprintf("Sometimes you can learn more about an object by typing\n");
  204. Xprintf("\"examine NAME-OF-OBJECT\".  I understand many other\n") ;
  205. Xprintf("commands and words.  However I'll let you have the fun of\n") ;
  206. Xprintf("finding out what I can and can not understand. Good luck!\n\n");
  207. X        }
  208. X        break ;
  209. X    }
  210. X}
  211. X
  212. X/* produce two random numbers ranging from 0-9 based on system clock*/
  213. Xl_time = time(time_arg) ;
  214. Xstart_time = l_time ;
  215. Xl_base = l_time/10 ;
  216. Xl_base *= 10 ;
  217. Xl_pass = l_time - l_base ;
  218. Xdig_2 = (int)l_pass ;
  219. X
  220. X/* generate the actual random array pointers */
  221. Xif (sw_standard) {
  222. X    i_rand1 = 2 ; 
  223. X    i_rand2 = 3 ;
  224. X    i_rand3 = 1 ;
  225. X}
  226. Xelse {
  227. X    i_rand3 = (dig_1 + dig_2)/2 ;
  228. X    i_rand2 = dig_2/3 ;
  229. X    i_rand1 = (dig_1/3) + 1 ;
  230. X}
  231. X
  232. Xprintf("\nIt's a hot summer day (in January) in ") ;
  233. Xprintf("Queensland, Australia.\n") ;
  234. Xloc[1] = R_meadow ;
  235. Xloc[0] = R_meadow ;
  236. X
  237. X/* Software security */
  238. Xif (serial != S_number) exit(0) ;  /* abort if serial number changed */
  239. X
  240. X/* load objects into the rooms */
  241. Xfor (i = 0; i <= obj_init_max; i++) 
  242. X    object[obj_init[i][0]][J_loc] = obj_init[i][i_rand1] ;
  243. X
  244. Xif (sw_script) object[O_recorder][J_loc] = R_meadow ;
  245. X
  246. Xcarry_count = 0 ;
  247. Xcarry_weight = 0 ;
  248. X
  249. Xfor (i = 0; i <= objcnt; i++) {
  250. X    j = object[i][J_loc] ;
  251. X    if ((j >= 0) && (object[i][J_type] != Z_unmovable))
  252. X         ++room[j][M_obj_cnt] ;
  253. X}
  254. X
  255. X/* Initialize the Monsters */
  256. Xif ((monster_start = (struct monster_struct *)calloc((unsigned)(enemy_max+1),
  257. X        sizeof(struct monster_struct))) == 0) {
  258. X    printf("\n---- PROBLEMS ----\n") ;
  259. X    printf("RAM memory is full!\n") ; 
  260. X    printf(" PROGRAM ABORTED\n") ;
  261. X    exit(0) ;
  262. X}
  263. X
  264. XNed = (monster_start + N_ned) ;        /* point to the Ned Kelly structure */
  265. XGuards = (monster_start + N_guards) ;  /* point to the Guards structure */
  266. XWombat = (monster_start + N_wombat) ;  /* point to the Wombat structure */
  267. XMullah = (monster_start + N_mullah) ;  /* point to the Mullah structure */
  268. X
  269. X/* Load up the monster data structure */
  270. Xfor (i = 0; i <= enemy_max; i++) { 
  271. X    mnstr = (monster_start + i) ;     /* point to the monster */
  272. X
  273. X     /* locate the monster */
  274. X    if (i == 0) mnstr->Location = B_unmade ;
  275. X    else mnstr->Location = mon_init[i-1][i_rand2] ;
  276. X
  277. X    /* All monsters are initially asleep */
  278. X    mnstr->Status = F_asleep ;
  279. X
  280. X    /* Load Type numbers for the different monsters */
  281. X    switch(i) {
  282. X    case 2:
  283. X    case 3:
  284. X    case 4:
  285. X    case 5:
  286. X        mnstr->Type = N_drop_bear ;
  287. X        break ;
  288. X    case 6:
  289. X    case 7:
  290. X    case 8:
  291. X    case 9:
  292. X    case 10:
  293. X    case 11:
  294. X    case 12:
  295. X    case 13:
  296. X        mnstr->Type = N_hoop_snake ;
  297. X        break ;
  298. X    default:
  299. X        mnstr->Type = i ;
  300. X    } /* end of the monster Type switch block */
  301. X
  302. X    /* Monsters are initially healthy */
  303. X    mnstr->Hits = 0 ;    
  304. X
  305. X    j = mnstr->Location ;
  306. X    if (j != B_unmade) ++room[j][M_monster] ;
  307. X} /* end of the monster data structure loadup "for" loop */
  308. X 
  309. X/* load the gleep reproductive locations and seed gleep */
  310. Xfor (i = 0; i <= 9; i++)  
  311. X    gleep_spot[i] = gleep_init[i][i_rand2] ;
  312. Xroom[gleep_spot[0]-1][M_gleep] = 1 ; /* seed a nonreproductive spot */ 
  313. X
  314. X/* load safe passage for end-game killing passages  */
  315. Xroom[218 + i_rand3][M_rm_type] = T_short_descp ;
  316. X
  317. X/* Beginning of outer infinite "for" loop */
  318. Xfor(;;) {
  319. X/* special action routine */
  320. Xnew_score() ;  /* update the score */
  321. X
  322. X/* See if the game has timed out */
  323. Xl_time = time(time_arg) ;
  324. Xif ((!sw_warned) && (l_time > start_time + 3300)) {
  325. X    sw_warned = TRUE ;
  326. X    start_time = l_time ;
  327. Xprintf("There's suddenly a puff of blue smoke which fills the room\n") ;
  328. Xprintf("with a hazy cloud.  Slowly this cloud coalesces into a\n") ;
  329. Xprintf("ghostly human form.  This ethereal being is wearing a grey\n") ;
  330. Xprintf("flannel suit, a bowler hat, and glancing at a gold pocket\n") ;
  331. Xprintf("watch which is attached to a long golden chain.  You can\n");
  332. Xprintf("hear \"Waltzing Matilda\" being played softly in the\n") ;
  333. Xprintf("background.  You know what?  I think this ethereal being\n") ;
  334. Xprintf("is none other than the ghost of Banjo Patterson!  With\n") ;
  335. Xprintf("this realization Banjo looks up in your direction and\n") ;
  336. Xprintf("begins to speak:\n\n") ;
  337. Xprintf("\"Sorry mate, you've been at this for too long!  You've\n") ;
  338. Xprintf("got five more minutes to go and then you're history!\"\n\n") ;
  339. Xprintf("Then just as suddenly Banjo Patterson dissolves back into\n") ;
  340. Xprintf("smoke and disappears from view.\n\n") ;
  341. X}
  342. Xif (sw_warned && (l_time > start_time + 300)) {
  343. Xprintf("You hear someone clearing his throat behind you.  You turn\n") ;
  344. Xprintf("around and see Banjo Patterson has appeared once again.  An\n");
  345. Xprintf("old brass chain is hanging from mid air next to Banjo.  On\n") ;
  346. Xprintf("the end of the chain is a white porcelain tear drop shaped\n");
  347. Xprintf("nob with the word \"PULL\" written on it in black letters.\n") ;
  348. Xprintf("Banjo reaches for the nob and says the following:\n\n\"Sorry") ;
  349. Xprintf(" mate, your time has come!  Better luck next time!\"\n\n");
  350. Xprintf("He gives the chain a quick jerk and everything around you\n") ;
  351. Xprintf("slowly fades from view.\n\n") ;
  352. X    ender(F_quit) ;
  353. X}
  354. X
  355. Xkelly(loc[0]) ; /* check if Ned Kelly can do something */
  356. X 
  357. X/* Check if there is a long description */
  358. Xif ((!((room[R_hideout][M_monster] > 0) && (loc[0] == R_hideout))) &&
  359. X    (!((monster_flag == F_monster_active) && (loc[2] == loc[0])))) {
  360. X
  361. X    loc[2] = 0 ;
  362. X
  363. X/* Check if there is to be a long room description */
  364. Xif (room[loc[0]][M_rm_type] == T_long_descp) long_descp(loc[0]) ;
  365. Xelse {
  366. X    describe(loc[0]) ;  /* short description */
  367. X
  368. X    /* describe unmovable action objects and status */
  369. X    if (room[loc[0]][M_rm_type] == T_action_obj) actor(loc[0]) ;
  370. X}
  371. X
  372. Xobjlooker(loc[0]) ; /* Check if there are objects in the room */
  373. Xgleeper(loc[0]) ;   /* check for gleeps and update the gleep count */
  374. X
  375. X/* see if the spaceship's transporter is active */
  376. Xif (sw_transport) {
  377. X    if (loc[0] == R_ship_passage) sw_transport = FALSE ;
  378. X    else if (loc[0] == R_transport) {
  379. X        loc[0] = R_closet ;
  380. X        sw_transport = FALSE ;
  381. Xprintf("\nSuddenly radiant energy seems to surge from the hexagons\n");
  382. Xprintf("around you.  Then there is a bright flash and you find\n");
  383. Xprintf("yourself in.....\n\n") ;
  384. Xprintf("A closet stinking of moth balls full of nondescript junk.\n") ;
  385. Xprintf("The only exit is to the north through a curtain hanging\n");
  386. Xprintf("over the entrance.\n\n") ; 
  387. X    }
  388. X} /* end of the "transporter" block */
  389. X} /* end of long description check block */
  390. X
  391. Xfor(;;) {
  392. Xsw_loop = FALSE ;
  393. X
  394. X/* monster check */
  395. Xif ((room[loc[0]][M_monster] > 0)||(monster_flag != F_no_monster)) {
  396. X    if (monster_flag == F_wounded) monster_flag = F_monster_active ;
  397. X    else monster(loc) ;
  398. X} /* end of the monster check block */
  399. X
  400. X/* parse in the command */
  401. Xparse();
  402. X
  403. X/* poison check */
  404. X/* remove atropine drug with each game cycle */
  405. Xif (i_poison > 0) --i_poison ;
  406. Xelse {
  407. X    /* accumulate poison if holding the orange clip */
  408. X    if (object[O_org_clip][J_loc] == B_have) {
  409. X        --i_poison ;
  410. X        switch (i_poison) {
  411. X        case -20:
  412. X    printf("You've developed a nervous tick near your eye.\n") ;
  413. X            break ;
  414. X        case -30:
  415. X    printf("You're hands are starting to shake ") ;
  416. X    printf("and you're sweating like a pig.\n") ;    
  417. X            break ;
  418. X        case -35:
  419. X    printf("You're shaking so bad you can barely stand and you ");
  420. X    printf("could lose your lunch\nat any moment.\n") ;
  421. X            break ;
  422. X        case -40:
  423. Xprintf("The toxic fumes coming off of the orange ammo clip you were ") ;
  424. Xprintf("carrying finally\ncaught up with you.  You fall over DEAD!\n") ;
  425. X            ender(F_died) ;
  426. X        }
  427. X    }
  428. X    /* remove poison after release of orange clip */
  429. X    else if (i_poison < 0) ++i_poison ;
  430. X} /* end of the poison check block */
  431. X
  432. X/* clock check */
  433. Xif (sw_clock) {
  434. X    switch (flag_clock) {
  435. X    /* see if the blasting cap is to explode */
  436. X    case V_cap:
  437. X        if (time(time_arg) > clock_explode) {
  438. X            if (object[O_cap][J_loc] == B_have) {
  439. Xprintf("                           POP!!\n") ;
  440. Xprintf("The blasting cap which you were stupidly holding in your\n") ;
  441. Xprintf("hand just blew up and took two of your fingers with it!\n") ;
  442. Xprintf("Good thing you've got another eight fingers to spare!\n\n") ;
  443. X                carry_count-- ;
  444. X                carry_weight -= object[O_cap][J_weight];
  445. X            }
  446. X            else {
  447. Xprintf("Far down the tunnel you hear a POP!\n") ;
  448. Xprintf("The blasting cap has finally exploded, not that it\n");
  449. Xprintf("achieved much except make a loud noise.\n\n") ;
  450. X            }
  451. X            object[O_cap][J_loc] = B_destroyed ;
  452. X            sw_clock = FALSE ;
  453. X        }
  454. X        break ;
  455. X    
  456. X    /* see if the dynamite is to explode */
  457. X    case V_dynamite:
  458. X        if (time(time_arg) > clock_explode) {
  459. X            /* player dies if he is holding the dynamite */
  460. X            if (object[O_dynamite][J_loc] == B_have) {
  461. X            boom() ;
  462. X
  463. Xprintf("The dynamite which you were holding and had earlier ignited\n");
  464. Xprintf("the fuse has finally exploded.  That was a rather noisy\n");
  465. Xprintf("and messy way to commit suicide!  Needless to say there is\n");
  466. Xprintf("nothing left of you but a greasy spot.\n") ;
  467. X            ender(F_died) ;
  468. X            }
  469. X            /* player dies if too close during explosion */
  470. X            else {
  471. X                if (((loc[0] <= 185) && (loc[0] >= 178))
  472. X                  || ((loc[0] <= 170) && (loc[0] >= 166))) {
  473. X                    boom() ;
  474. X
  475. Xprintf("You weren't far enough away from the dynamite when it\n");
  476. Xprintf("exploded!  The shock wave was still strong enough to blow\n");
  477. Xprintf("your brains out your ears.  Next time try to get to the\n") ;
  478. Xprintf("upper level before the dynamite goes off.\n") ;
  479. X                    ender(F_died) ;
  480. X                }
  481. X
  482. X                /* dynamite explodes and player survives */
  483. X                else {
  484. Xprintf("Far down the tunnel you hear a low BOOM!\n") ;
  485. Xprintf("That dynamite you set burning has finally exploded.\n\n");
  486. X
  487. X/* open up the passage to the UFO */
  488. Xif (object[O_dynamite][J_loc] == R_blast_point) {
  489. X    room[R_blast_point][1] = 186 ;
  490. X    room[R_blast_point][M_descp] = 55 ;
  491. X                    }
  492. X                }
  493. X            }
  494. X            object[O_dynamite][J_loc] = B_destroyed ;
  495. X            sw_clock = FALSE ;
  496. X        } /* end of the dynamite explodes block */
  497. X        break ;
  498. X    }
  499. X} /* end of the clock block */
  500. X
  501. X/* the command is a simple move command */
  502. Xif (tag[V_MOVE]) {
  503. X    if (mover(verb,loc)) break ;
  504. X    continue ;
  505. X} /* end of the "move" block */
  506. X
  507. X/* complicated command decoder */
  508. Xswitch (verb) {
  509. X 
  510. X/* "help" command */
  511. Xcase V_help:
  512. Xcase V_info:
  513. Xprintf("There is no help available.  You're on your own!\n") ;
  514. X    break ;
  515. X 
  516. X/* "quit" command */
  517. Xcase V_quit:
  518. X    ender(F_quit) ;
  519. X
  520. X/* "question" command */
  521. Xcase V_QUESTION:
  522. X    if (tag[V_VERB_ONLY]) {
  523. X        if (tag[V_how]) {
  524. Xprintf("That's for you to figure out.\n") ;
  525. X            break ;
  526. X        }
  527. Xprintf("I don't have a clue!\n") ;
  528. X        break ;
  529. X    }
  530. X
  531. X    /* Question "Where am I?" */
  532. X    if (tag[V_where] && tag[V_am]) {
  533. X        tag[V_VERB_ONLY] = TRUE ; /* This is for "looker" */
  534. X        looker(loc[0]) ;
  535. X        break ;
  536. X    }
  537. X
  538. X    /* Question "What have I got?" */
  539. X    if (tag[V_what] && tag[V_have]) {
  540. X        inventer() ;
  541. X        break ;
  542. X    }
  543. X
  544. X    /* Question which can't be processed */
  545. Xprintf("You asked a question.  Unfortunately I have no answers.\n") ;
  546. X    break ;
  547. X
  548. X/* "inventory" command */
  549. Xcase V_inventory: 
  550. Xcase V_invent:
  551. X    inventer() ;
  552. X    break;
  553. X
  554. X/* "close" command  */
  555. Xcase V_close:
  556. Xcase V_shut:
  557. X    closer(loc[0]) ;
  558. X    break;
  559. X
  560. X/* "open" command  */
  561. Xcase V_open:
  562. Xcase V_swing:
  563. X    opener(loc[0]) ;
  564. X    break;
  565. X
  566. X/* "dial" command  */
  567. Xcase V_dial:
  568. Xcase V_combination:
  569. X    dialer(loc[0]) ;
  570. X    break ;
  571. X 
  572. X/* "drink" command */
  573. Xcase V_drink: 
  574. X    drinker() ;
  575. X    break ;
  576. X
  577. X/* "ignite" command */
  578. Xcase V_ignite: 
  579. Xcase V_light: 
  580. X    igniter(loc[0]) ;
  581. X    break ;
  582. X
  583. X/* "read" command  */
  584. Xcase V_read:
  585. X    reader(loc[0]) ;
  586. X    break;
  587. X 
  588. X/* "push" command  */
  589. Xcase V_push:
  590. Xcase V_press:
  591. X    pusher(&loc[0]) ; 
  592. X    break ;
  593. X 
  594. X/* "turn", "switch" command */
  595. Xcase V_switch:
  596. Xcase V_turn:
  597. Xcase V_select:
  598. Xcase V_set:
  599. X    switcher(loc[0]) ;
  600. X    break ;
  601. X 
  602. X/* "shoot" command  */
  603. Xcase V_shoot:
  604. Xcase V_fire:
  605. Xcase V_kill:
  606. X    killer(loc[0]) ;
  607. X    break;
  608. X 
  609. X/* "unlock" command  */
  610. Xcase V_unlock:
  611. X    unlocker(loc[0]) ;
  612. X    break;
  613. X 
  614. X/* "eat" command  */
  615. Xcase V_eat:
  616. Xcase V_swallow:
  617. X    eater() ;
  618. X    break;
  619. X 
  620. X/* "fill" command  */
  621. Xcase V_fill:
  622. X    filler() ;
  623. X    break;
  624. X 
  625. X/* "sound" command  */
  626. Xcase V_sound:
  627. Xcase V_bang:
  628. Xcase V_hit:
  629. Xcase V_strike:
  630. X    sounder(loc[0]) ;
  631. X    break;
  632. X
  633. X/* "SVC" wizard move command */
  634. Xcase V_svc:
  635. X    if (sw_wizard) {
  636. X        printf ("Enter room coordinate number:  ");
  637. X        scanf ("%d",&loc[0]);
  638. X        sw_loop = TRUE ;
  639. X        break ;
  640. X    }
  641. X    else cheater() ;
  642. X
  643. X/* "STATS" game statistics */
  644. Xcase V_stats :
  645. X        printf("      --- Dinkum --- \n");
  646. X        printf("Version: %s, %s\n\n", lb_version, lb_date);
  647. X        printf("i_rand1 = %d, i_rand2 = %d, i_rand3 = %d\n",
  648. X            i_rand1, i_rand2, i_rand3) ;
  649. X        printf("Room Number = %d\n", loc[0]) ;
  650. X        printf("Room object count = %d \n",
  651. X            room[loc[0]][M_obj_cnt]) ;
  652. X        printf("Room monster count = %d\n",
  653. X            room[loc[0]][M_monster]) ; 
  654. X        printf("Gleeps on room's floor count = %d\n",
  655. X            room[loc[0]][M_gleep]) ;
  656. X        printf("Poison level = %d\n",i_poison) ;
  657. X        printf("Gleep count = %d\n", gleep_count) ;
  658. X        printf("carry_count = %d, carry_weight = %d\n",
  659. X            carry_count, carry_weight) ;
  660. X        break ;
  661. X
  662. X/* "SU" wizard initiation command */
  663. Xcase V_su:
  664. X    pass() ;
  665. X    break ;
  666. X
  667. X/* "JSYS" wizard command which deactivates a monster */
  668. Xcase V_jsys:
  669. X    if (sw_wizard) monster_flag = F_no_monster ;
  670. X    else cheater() ;
  671. X    break ;
  672. X
  673. X/* "score" command */
  674. Xcase V_score: 
  675. X    new_score() ;
  676. X    if ((gleep_score == 0)&&(score == 0)) {
  677. Xprintf("You haven't scored anything at all, Bozo! Try putting\n");
  678. Xprintf("a valuable into the safe or find some gleeps.\n") ;
  679. X        break ;
  680. X    }
  681. X    if (score == 0) { 
  682. X        if (gleep_score > 1) {
  683. Xprintf("You haven't scored any points but you splashed ") ;
  684. Xprintf ("%d gleeps into the gleep tank.\n",gleep_score) ;
  685. X        }
  686. X        else {
  687. Xprintf("You haven't scored any points at all but you did put a\n");
  688. Xprintf ("gleep in the gleep tank (big deal!).\n") ;
  689. X        }
  690. X    }
  691. X    else {
  692. Xprintf ("You scored %d points ",score) ;
  693. X        if (gleep_score == 0) 
  694. Xprintf ("but have yet to put any gleeps in the gleep tank.\n") ;
  695. X        else {
  696. X            if (gleep_score > 1) 
  697. Xprintf ("and put %d gleeps into the gleep tank.\n",gleep_score) ;
  698. X    
  699. X            else 
  700. Xprintf ("and put a gleep in the gleep tank.\n") ;
  701. X        }
  702. X    }
  703. X    break ;
  704. X 
  705. X/* "enter" command  */
  706. Xcase V_enter:
  707. Xswitch (loc[0]) {
  708. X 
  709. X    /* Lift entrance at the ground level */
  710. X    case R_lift_entr:
  711. X        if (room[R_lift_entr][2] == R_wall) {
  712. Xprintf("I can't do it!  The lift door needs to be opened.\n") ;
  713. X            continue ;
  714. X        }
  715. X        pnt = V_east ;
  716. X        break ;
  717. X    /* office door */
  718. X    case R_office_entr:
  719. X        if (room[R_office_entr][2] == R_wall) {
  720. Xprintf("I can't go in!  The office door needs to be opened.\n") ;
  721. X            continue ;
  722. X        }
  723. X        pnt = V_east ;
  724. X        break ;
  725. X    /* Lift entrance at level #49 */
  726. X    case R_L49_entr:
  727. X        pnt = V_east ;
  728. X        break ;
  729. X    /* Entrance to Ned Kelly's hideout */
  730. X    case R_hideout_entr:
  731. X        pnt = V_east ;
  732. X        break ;
  733. X
  734. X    /* Enter gleep tank (and suicide) */
  735. X    case R_gleep_tank:
  736. X        if (tag[V_tank]) {
  737. Xprintf("\nYou climb up onto the edge of the gleep tank and dip your\n");
  738. Xprintf("foot into the dark blue fluid.  Suddenly the fluid begins a\n");
  739. Xprintf("furious boiling that instantly reduces your foot into\n") ;
  740. Xprintf("bleached white bones.  The shock and pain disturbs your\n");
  741. Xprintf("balance and you fall into the horrible stuff!!  There is\n");
  742. Xprintf("once again a furious boiling.  Eventually the fluid stills\n");
  743. Xprintf("and becomes clear again.  On the bottom of the tank can\n") ;
  744. Xprintf("be seen a white, clean, \"medical school quality\" human\n");
  745. Xprintf("skeleton.\n") ;
  746. X            ender(F_died) ;
  747. X        }
  748. X 
  749. X    default:
  750. X    printf("I don't understand exactly how to enter. \n");
  751. X        continue ;
  752. X} /* end of the "enter" switch block */
  753. Xif (mover(pnt,loc)) sw_loop = TRUE ;
  754. Xbreak ;
  755. X
  756. X/* "exit" command  */
  757. Xcase V_exit:
  758. Xcase V_leave:
  759. Xcase V_depart:
  760. Xswitch (loc[0]) {
  761. X 
  762. X    /* Lift entrance at the ground level */
  763. X    case R_lift_inside:
  764. X        pnt = V_west ;
  765. X        break ;
  766. X    /* office door */
  767. X    case R_office_hall:
  768. X        pnt = V_west ;
  769. X        break ;
  770. X    /* Ned Kelly's hideout */
  771. X    case R_hideout :
  772. X        pnt = V_west ;
  773. X        break ;
  774. X    default:
  775. Xprintf("I don't understand exactly how you want to exit.\n");
  776. X        continue ;
  777. X} /* end of the "depart" switch block */
  778. Xif (mover(pnt,loc)) sw_loop = TRUE ;
  779. Xbreak ;
  780. X
  781. X/* "dig" command */
  782. Xcase V_dig:
  783. Xprintf("You get on your knees and scrape away at the ground for\n") ;
  784. Xprintf("awhile. Except for getting your hands dirty you didn't\n") ;
  785. Xprintf("achieve much.\n") ;
  786. X    break ;
  787. X
  788. X/* "stand" command */
  789. Xcase V_stand:
  790. Xprintf("You're standing there very nicely.  However you're not\n");
  791. Xprintf("achieving much by doing so.\n") ;
  792. X    break ;
  793. X
  794. X/* "load" rifle command */
  795. Xcase V_load:
  796. X    loader() ;
  797. X    break ;
  798. X
  799. X/* "unload" rifle command */
  800. Xcase V_unload:
  801. X    unloader(loc[0]) ;
  802. X    break ;
  803. X
  804. X/* "pull" command */
  805. Xcase V_pull:
  806. X    if (tag[V_trigger]) {
  807. X        /* alias in the "shoot" command */
  808. X        verb = V_shoot ;
  809. X        tag[V_VERB_ONLY] = TRUE ;
  810. X        killer(loc[0]) ;   /* "pull trigger" */
  811. X    }
  812. X    else  printf("I don't see how I could pull that.\n") ;
  813. X    break ;
  814. X
  815. X/* "climb" command */
  816. Xcase V_climb:
  817. Xprintf("I'm not climbing anything!  (I'm afraid of heights.)\n") ;
  818. X    break ;
  819. X
  820. X/* "swim" command */
  821. Xcase V_swim:
  822. Xprintf("I'm not going for a swim!  (I'm afraid of the water.)\n") ;
  823. X    break ;
  824. X
  825. X/* Go backwards to previous location */
  826. Xcase V_back:
  827. X    loc[0] = loc[1] ;
  828. X    sw_loop = TRUE ;
  829. X    break ;
  830. X 
  831. X/* "take", "get", "lift" command */
  832. Xcase V_take:
  833. Xcase V_get:
  834. Xcase V_lift:
  835. Xcase V_pick:
  836. Xcase V_grab:
  837. Xcase V_remove:
  838. Xcase V_attach:
  839. Xcase V_hold:
  840. X    taker(loc[0]) ;
  841. X    break ;
  842. X 
  843. X/* "drop", "throw", "put" command */
  844. Xcase V_drop:
  845. Xcase V_throw:
  846. Xcase V_put:
  847. Xcase V_fling:
  848. Xcase V_insert:
  849. Xcase V_give:
  850. Xcase V_eject:
  851. Xcase V_slow_drop:
  852. X    dropper(loc[0]) ;
  853. X    break ;
  854. X
  855. X/* "look" command */
  856. Xcase V_look:
  857. Xcase V_l:
  858. Xcase V_examine:
  859. Xcase V_describe:
  860. X    looker(loc[0]) ;
  861. X    break;
  862. X
  863. X/* gibberish command */
  864. Xdefault:
  865. Xprintf("Huh?  You will have to make yourself clearer! \n");
  866. X
  867. X} /* end of "decoder" switch */
  868. Xif (sw_loop) break ;
  869. X} /* end of the inner infinite "for" loop */
  870. X} /* end of the outer infinite "for" loop */
  871. X
  872. X} /* --- end of Main routine --- */
  873. X
  874. Xvoid cmd_switch(cmd, cmd_arg, i_point, argv)
  875. X/*****************************************************/
  876. X/*                                                   */
  877. X/*         --- Command line Switch Parser ---        */
  878. X/*                                                   */
  879. X/*  (c) Copyright 1992,   University of Queensland   */
  880. X/*        Program written by Gary A. Allen, Jr.      */
  881. X/*           Version:  Mk 1.1   24 February 1992     */
  882. X/*                                                   */
  883. X/*****************************************************/
  884. X
  885. Xchar cmd[8], *argv[] ;
  886. Xint cmd_arg, i_point ;
  887. X{
  888. X
  889. X#if (PROTOTYPE)
  890. Xvoid bugs(int)  ;
  891. X#endif
  892. X
  893. Xswitch (cmd[cmd_arg]) {
  894. Xcase '\0':
  895. Xcase -1:
  896. X    sw_null = TRUE ;
  897. X    return ;
  898. X
  899. X/* Activate save script capability */
  900. Xcase 's':
  901. Xcase 'S':
  902. X    sw_script = TRUE ;
  903. X    break ;
  904. X
  905. X/* Version verification command switch */
  906. Xcase 'v':
  907. X    if ((cmd[cmd_arg+1] == 'e')&&(cmd[cmd_arg+2] == 'r')) {
  908. X        printf("Version: %s, Serial Number: %06d %s \n", 
  909. X            lb_version, serial, lb_share) ;
  910. X        bugs(Request) ;
  911. X    }
  912. X    else {
  913. X        printf("!!!! Command line switch -v is unknown.\n") ;
  914. X        bugs(Failed) ;
  915. X    }
  916. X
  917. X/* Wizard mode command switch */
  918. Xcase 'w':
  919. Xcase 'W':
  920. X    pass() ;
  921. X    break ;
  922. X
  923. X/* Standard matrix load command switch */
  924. Xcase 'x':
  925. Xcase 'X':
  926. X    sw_standard = TRUE ;
  927. X    break ;
  928. X
  929. X/* Rubbish option to supress a warning */
  930. Xcase 'y':
  931. Xcase 'Y':
  932. X    sw_number = TRUE ;
  933. X    printf("y = %d\n", atoi(argv[i_point+1])) ;
  934. X    return ;
  935. X
  936. X/* Help option */
  937. Xcase '?':
  938. Xcase 'h':
  939. Xcase 'H':
  940. X    sw_help = TRUE ;
  941. X    return ;
  942. X
  943. Xcase ' ':
  944. Xcase '-':
  945. Xcase '1':
  946. Xcase '2':
  947. Xcase '3':
  948. Xcase '4':
  949. Xcase '5':
  950. Xcase '6':
  951. Xcase '7':
  952. Xcase '8':
  953. Xcase '9':
  954. X    return ;
  955. X
  956. Xdefault:
  957. Xprintf("!!!! Command line switch -%c is unknown.\n", cmd[cmd_arg]) ;
  958. X    bugs(Failed) ;
  959. X}
  960. X} /* --- end of the cmd_switch subroutine --- */
  961. X
  962. Xvoid bugs(i_type)
  963. X/***************************************************************/
  964. X/*                                                             */
  965. X/*       (c) Copyright 1992,   University of Queensland        */
  966. X/*            Program written by Gary A. Allen, Jr.            */
  967. X/*             Version:  Mk 1.0        24 April 1992           */
  968. X/*                                                             */
  969. X/***************************************************************/
  970. Xint i_type ;
  971. X{
  972. Xswitch(i_type) {
  973. Xcase Failed:
  974. X    printf("!!!! If confused, type:  dinkum -h \n");
  975. X    printf("!!!! --- Program ABORTED --- \n");
  976. X    break ;
  977. X
  978. Xcase Request:
  979. X    printf("Program terminated by user request.\n") ;
  980. X    break ;
  981. X}
  982. Xexit (0) ; 
  983. X} /* --- end of the "bugs" subroutine --- */
  984. X
  985. Xvoid help() 
  986. X/*****************************************************/
  987. X/*                                                   */
  988. X/*                    Help Routine                   */
  989. X/*                                                   */
  990. X/*  (c) Copyright 1992,   University of Queensland   */
  991. X/*        Program written by Gary A. Allen, Jr.      */
  992. X/*           Version:  Mk 1.0    24 April 1992       */
  993. X/*                                                   */
  994. X/*****************************************************/
  995. X{
  996. Xchar chr ;
  997. X
  998. Xprintf("                    --- Dinkum --- \n");
  999. Xprintf("       (c) Copyright 1993 by Gary A. Allen, Jr.\n") ;
  1000. Xprintf("   All Rights Reserved. Version: %s, %s\n\n", 
  1001. X        lb_version, lb_date);
  1002. X
  1003. Xprintf("      Dinkum is a text style \"adventure\" game.\n\n") ;
  1004. X
  1005. Xprintf("You are free to use, copy and distribute Dinkum provided:\n") ;
  1006. Xprintf("       NO FEE IS CHARGED FOR USE, COPYING OR DISTRIBUTION.\n") ;
  1007. Xprintf("       THIS PROGRAM IS FOR PRIVATE, NONCOMMERICAL USE ONLY.\n");
  1008. Xprintf("       THE PROGRAM MAY NOT BE MODIFIED IN ANY WAY.\n\n") ;
  1009. X
  1010. Xprintf("This program is provided AS IS without any warranty,\n") ;
  1011. Xprintf("expressed or implied, including but not limited to fitness\n") ;
  1012. Xprintf("for any particular purpose.\n\n") ;
  1013. X
  1014. X/* keep the screen from scrolling */
  1015. X#ifndef __TURBOC__
  1016. Xprintf("         [Press RETURN or ENTER to continue]") ;
  1017. Xchr = getchar() ;
  1018. X#endif
  1019. X
  1020. X#ifdef __TURBOC__
  1021. Xprintf("  [Press \"q\" to quit or any other key to continue]") ;
  1022. Xchr = getche() ;
  1023. Xprintf("\r                                                        \r") ;
  1024. X#endif
  1025. X
  1026. Xif ((chr == 'q')||(chr == 'Q')) exit (0) ;
  1027. X
  1028. Xprintf("If you start the game by typing \"dinkum -s\" rather than \n");
  1029. Xprintf("simply \"dinkum\" then the game creates a \"data recorder\" \n"); 
  1030. Xprintf("which appears in the beginning  of  the game.  The data \n"); 
  1031. Xprintf("recorder acts like a tape recorder allowing the user to \n"); 
  1032. Xprintf("save moves and play them back in the current  or  later \n"); 
  1033. Xprintf("games.  The generated file is in ASCII format  and  can \n"); 
  1034. Xprintf("be  edited  after  finishing  Dinkum.    Type  \"examine \n"); 
  1035. Xprintf("recorder\" after having taken it and Dinkum will explain \n"); 
  1036. Xprintf("how to use it.  This data  recorder  has  a  couple  of \n"); 
  1037. Xprintf("important  limitations:   Unlike  most adventure games, \n"); 
  1038. Xprintf("Dinkum is  dynamic,  viz.  the  game changes every time \n"); 
  1039. Xprintf("you play it.  So if you record  a  script  for  a  game \n"); 
  1040. Xprintf("which takes you to a room where you find a  weapon  and \n"); 
  1041. Xprintf("then to another room where you find a monster, then the \n"); 
  1042. Xprintf("next time you use  that script you may find the monster \n"); 
  1043. Xprintf("where you  previously  found  the  weapon (leading to a \n"); 
  1044. Xprintf("fairly short game). The other limitation  of  the  data \n"); 
  1045. Xprintf("recorder is if you use the \"dinkum -s\" switch then  you \n"); 
  1046. Xprintf("will  not  be  admitted  into  the  end  game  with the \n"); 
  1047. Xprintf("consequence being that  \"winning\" Dinkum is impossible. \n"); 
  1048. Xprintf("To win Dinkum you must  play  it  \"on your own\" without \n"); 
  1049. Xprintf("the unfair advantage of script files and data recorders.\n\n");
  1050. X
  1051. X/* keep the screen from scrolling */
  1052. X#ifndef __TURBOC__
  1053. Xprintf("         [Press RETURN or ENTER to continue]") ;
  1054. Xchr = getchar() ;
  1055. X#endif
  1056. X
  1057. X#ifdef __TURBOC__
  1058. Xprintf("  [Press \"q\" to quit or any other key to continue]") ;
  1059. Xchr = getche() ;
  1060. Xprintf("\r                                                        \r") ;
  1061. X#endif
  1062. X
  1063. Xif ((chr == 'q')||(chr == 'Q')) exit (0) ;
  1064. X
  1065. Xprintf("When corresponding please state the current version of\n") ;
  1066. Xprintf("Dinkum which you are using.  Contributions and questions\n") ;
  1067. Xprintf("about this program should be sent to the following address:\n\n") ;
  1068. Xprintf("          E-mail address:     gary@sun.mech.uq.oz.au\n\n") ;
  1069. Xprintf("          Postal address:     Gary A. Allen, Jr. \n");
  1070. Xprintf("                              P.O. Box 13\n") ;       
  1071. Xprintf("                              St. Lucia, Queensland  4067\n");
  1072. Xprintf("                              Australia\n") ;
  1073. X
  1074. Xexit(0);
  1075. X} /* ---- end of the "help" subroutine ---- */
  1076. X
  1077. Xvoid cheater() 
  1078. X/*****************************************************/
  1079. X/*                                                   */
  1080. X/*  (c) Copyright 1992,   University of Queensland   */
  1081. X/*        Program written by Gary A. Allen, Jr.      */
  1082. X/*           Version:  Mk 1.0   9 December 1992      */
  1083. X/*                                                   */
  1084. X/*****************************************************/
  1085. X{
  1086. Xprintf("Rather than cheat at this game by using a disassembler, you\n");
  1087. Xprintf("should send the author $150 and he'll gladly send you\n") ;
  1088. Xprintf("the source code.  If you just want a clue, then send $20\n") ;
  1089. Xprintf("with your question and he'll provide the answer.  You can find\n") ;
  1090. Xprintf("the author's address by typing:  dinkum -h\n") ;
  1091. X        exit(0) ;
  1092. X} /* ---- end of the "cheater" subroutine ---- */
  1093. X
  1094. Xint mover(direction,loc)
  1095. X/*****************************************************/
  1096. X/*                                                   */
  1097. X/*  (c) Copyright 1992,   University of Queensland   */
  1098. X/*        Program written by Gary A. Allen, Jr.      */
  1099. X/*           Version:  Mk 1.0  17 December 1992      */
  1100. X/*                                                   */
  1101. X/*****************************************************/
  1102. Xint direction, loc[3] ;
  1103. X{
  1104. X
  1105. X#if (PROTOTYPE)
  1106. X/* Function prototypes */
  1107. Xvoid long_descp(int), ender(int), boom(void) ;
  1108. X#endif
  1109. X
  1110. X/* see if this movement prohibits blasting caps */
  1111. Xif (((direction == V_u)||(direction == V_up)) &&
  1112. X        ((loc[0] == R_manhole_1)||(loc[0] == R_manhole_2))) {
  1113. X
  1114. X    if (object[O_cap][J_loc] == B_have) {
  1115. Xprintf("As you were climbing up through the hole in the ceiling,\n");
  1116. Xprintf("the blasting cap slipped from your grasp and fell to the\n") ;
  1117. Xprintf("floor below where it detonated on impact.  The explosion\n") ;
  1118. Xprintf("was deafening, but caused no damage.\n") ;
  1119. X        carry_count-- ;
  1120. X        carry_weight -= object[O_cap][J_weight] ;
  1121. X        object[O_cap][J_loc] = B_destroyed; 
  1122. X    }
  1123. X    else {
  1124. X        if ((object[O_dynamite][J_loc] == B_have)&&
  1125. X            (object[O_dynamite][J_type] == Z_alias)) {
  1126. X            boom() ;
  1127. X
  1128. Xprintf("As you were climbing up through the hole in the ceiling,\n");
  1129. Xprintf("the dynamite with the blasting cap inside slipped from\n") ;
  1130. Xprintf("your grasp and fell to the floor below where it detonated\n") ;
  1131. Xprintf("on impact.  At that point you literally became a human\n");
  1132. Xprintf("cannon ball as the shock wave carried you up the vertical\n");
  1133. Xprintf("passage and splattered you into protoplasmic jelly on the\n");
  1134. Xprintf("ceiling above.\n") ; 
  1135. X            ender(F_died) ;
  1136. X        }
  1137. X    }
  1138. X} /* end of the cap/manhole block */
  1139. X
  1140. Xdirection-- ;
  1141. Xif (room[loc[0]][direction] == R_wall) {
  1142. X    printf("You can't go that way. \n");
  1143. X    return(FALSE) ;
  1144. X}
  1145. X
  1146. X/* save previous location */
  1147. Xloc[1] = loc[0] ;
  1148. Xloc[0] = room[loc[0]][direction] ;
  1149. X
  1150. X/* See if player walked into a lethal room */
  1151. Xif (room[loc[0]][M_rm_type] == T_lethal) {
  1152. X    long_descp(loc[0]) ;
  1153. X    ender(F_died) ;
  1154. X}
  1155. Xreturn(TRUE) ;
  1156. X} /* --- end of the "mover" function --- */
  1157. END_OF_FILE
  1158. if test 32399 -ne `wc -c <'dinkum.c'`; then
  1159.     echo shar: \"'dinkum.c'\" unpacked with wrong size!
  1160. fi
  1161. # end of 'dinkum.c'
  1162. fi
  1163. if test -f 'pusher.c' -a "${1}" != "-c" ; then 
  1164.   echo shar: Will not clobber existing file \"'pusher.c'\"
  1165. else
  1166. echo shar: Extracting \"'pusher.c'\" \(18897 characters\)
  1167. sed "s/^X//" >'pusher.c' <<'END_OF_FILE'
  1168. X#define PUSHER
  1169. X#include "dink_sym.h"
  1170. X#include "dink_glb.h"
  1171. X
  1172. Xvoid pusher(n_arg) 
  1173. X/********************************************************************/
  1174. X/*                                                                  */
  1175. X/*                  --- The Pusher Subroutine ---                   */
  1176. X/*                                                                  */
  1177. X/*  Software by Gary A. Allen, Jr. 14 June 1989,    Version: Mk 1.2 */
  1178. X/*           (c) Copyright 1988 by Gary A. Allen, Jr.               */
  1179. X/*                                                                  */
  1180. X/********************************************************************/
  1181. Xint *n_arg ;
  1182. X{
  1183. Xregister int i ;
  1184. Xint n ;
  1185. Xchar file_name[80] ;
  1186. X
  1187. X#if (PROTOTYPE)
  1188. Xvoid which_button(void) ; 
  1189. Xvoid lift_moves(void) ; 
  1190. Xvoid nothing_happens(void) ; 
  1191. Xvoid cubic(void) ; 
  1192. Xvoid no_gray(void) ; 
  1193. Xvoid no_switch(void) ; 
  1194. Xvoid no_cube(void) ; 
  1195. X#endif
  1196. X 
  1197. X/* pass the room pointer */
  1198. Xn = *n_arg ;
  1199. X
  1200. X/* reject an isolated "push" command */
  1201. Xif (tag[V_VERB_ONLY]) {
  1202. X    printf ("What exactly do you want me to push? \n");
  1203. X    return; 
  1204. X}
  1205. X
  1206. X/* Deal with the recorder */
  1207. Xif ((tag[V_red_button] || tag[V_white_button] || tag[V_green_button])) {
  1208. X    if (sw_script) {
  1209. X    if (object[O_recorder][J_loc] == B_have) {
  1210. X        if (tag[V_red_button]) {
  1211. X            if (sw_recording || sw_playing) {
  1212. X                if (sw_recording) {
  1213. X                    sw_recording = FALSE;
  1214. Xprintf("--- The data recorder has stopped recording. ---\n") ;
  1215. X                }
  1216. X                else sw_playing = FALSE;
  1217. X                fclose(fp) ;
  1218. X            }
  1219. X            else printf("Nothing happened!\n") ;
  1220. X            return ;
  1221. X        }
  1222. X        if (tag[V_white_button]) {
  1223. X            printf("Type in the file name for reading from:  ") ;
  1224. X            scanf("%s",file_name) ;
  1225. X            if ((fp = fopen(file_name,"r")) == 0) {
  1226. Xprintf("I could not open the file:  %s \n",file_name);
  1227. Xprintf("This file probably doesn't exit.\n") ;
  1228. Xprintf("Try pressing the white button again and using a different name.\n") ;
  1229. X            }
  1230. X            else sw_playing = TRUE ;
  1231. X            return ;
  1232. X        }
  1233. X        if (tag[V_green_button]) {
  1234. X            printf("Type in the file name for writing to:  ") ;
  1235. X            scanf("%s",file_name) ;
  1236. X            if ((fp = fopen(file_name,"w")) == 0) {
  1237. Xprintf ("I could not open the file:  %s \n",file_name);
  1238. Xprintf("Try pressing the green button again and using a different name.\n") ;
  1239. X            }
  1240. X            else {
  1241. X                sw_recording = TRUE ;
  1242. X                printf("--- Recording ---\n") ;
  1243. X            }
  1244. X            return ;
  1245. X        }
  1246. X    }
  1247. X    else printf("You don't have the recorder in your possession!\n") ;
  1248. X    }
  1249. X    else printf("I have never seen a button of that color.\n") ;
  1250. X    return ;
  1251. X}
  1252. X
  1253. Xswitch (n) {
  1254. X/* Lift entrance at the ground level */
  1255. Xcase R_lift_entr:
  1256. X    if (tag[V_gray_button]) {
  1257. X        no_gray() ;
  1258. X        return ;
  1259. X    }
  1260. X    if (!tag[V_button]) {
  1261. X        if (!tag[V_blue_button]) {
  1262. X            printf ("I don't see why I should push that! \n");
  1263. X        }
  1264. X        else nothing_happens() ;
  1265. X        return ;
  1266. X    }
  1267. X    if (room[R_lift_entr][M_rm_status] == S_flashing ) {
  1268. Xprintf ("You push the call button and there is a loud \"whirr\" from ");
  1269. Xprintf ("an electric motor. \nThe massive steel doors slide open ");
  1270. Xprintf ("revealing a huge lift that could hold \ntwenty men at once. ");
  1271. Xprintf ("The way is now open for you to enter. \n");
  1272. X        room[R_lift_entr][M_rm_status] = S_open ;
  1273. X        room[R_lift_entr][2] = R_lift_inside ;
  1274. X        break ;
  1275. X    }
  1276. X    else {
  1277. X        if (room[R_lift_entr][M_rm_status] == S_open) {
  1278. Xprintf ("You push the call button and there is a loud \"whirr\" from ");
  1279. Xprintf ("an electric motor. \nThe massive steel doors slide shut, ");
  1280. Xprintf ("closing off access to the lift.\n");
  1281. X            room[R_lift_entr][M_rm_status] = S_flashing ;
  1282. X            room[R_lift_entr][2] = R_wall ;
  1283. X            break ;
  1284. X        }
  1285. X        else {
  1286. Xprintf("You pushed the lift call button, but nothing happened.\n");
  1287. Xprintf("I think the electrical power has been turned off at the\n") ;
  1288. Xprintf("circuit breaker.\n") ;
  1289. X        break ;
  1290. X        }
  1291. X    }
  1292. X 
  1293. X/* Lift Compartment */
  1294. Xcase R_lift_inside:
  1295. X    if (tag[V_gray_button]) {
  1296. X        no_gray() ;
  1297. X        return ;
  1298. X    }
  1299. X 
  1300. X    /* scan push sentence */
  1301. X    /* zero level */
  1302. X    if (tag[V_0]) {
  1303. X        if (room[R_lift_inside][M_rm_status]== S_L0) {
  1304. Xprintf ("You pushed the flashing button, but nothing happened.\n");
  1305. X            break ;
  1306. X        }
  1307. Xprintf ("The steel doors slam shut and you feel heavy as the lift ");
  1308. Xprintf ("accelerates \nupwards.  Finally the lift jerks to a halt ");
  1309. Xprintf ("and the doors whirr open.  \nSunlight is streaming in. ");
  1310. Xprintf ("Once again you are breathing the fresh air.\n");
  1311. X        room[R_lift_inside][M_rm_status] = S_L0;
  1312. X        room[R_lift_inside][3] = R_lift_entr;
  1313. X        room[R_lift_inside][7] = R_lift_entr;
  1314. X        return ;
  1315. X    }
  1316. X 
  1317. X    /* forty-ninth level */
  1318. X    if (tag[V_49]) {
  1319. X        if (room[R_lift_inside][M_rm_status]== S_L49) {
  1320. Xprintf ("You pushed the forty-nine button, but nothing happened.\n");
  1321. X            return ;
  1322. X        }    
  1323. X        room[R_lift_inside][M_rm_status] = S_L49 ;
  1324. X        room[R_lift_inside][3] = R_L49_entr;
  1325. X        room[R_lift_inside][7] = R_L49_entr;
  1326. X        lift_moves() ;
  1327. X        return ;
  1328. X    }
  1329. X 
  1330. X    /* sixty-seventh level */
  1331. X    if (tag[V_67]) {
  1332. X        if (room[R_lift_inside][M_rm_status]== S_L67) {
  1333. Xprintf ("You pushed the sixty-seven button, but nothing happened.\n");
  1334. X            return ;
  1335. X        }    
  1336. X        room[R_lift_inside][M_rm_status] = S_L67;
  1337. X        room[R_lift_inside][3] = R_L67_entr;
  1338. X        room[R_lift_inside][7] = R_L67_entr;
  1339. X        lift_moves() ;
  1340. X        return ;
  1341. X    }
  1342. X
  1343. X    /* eighty-second level */
  1344. X    if (tag[V_82]) {
  1345. X        if (room[R_lift_inside][M_rm_status]== S_L82) {
  1346. Xprintf ("You pushed the eighty-two button, but nothing happened.\n");
  1347. X            return ;
  1348. X        }    
  1349. X        room[R_lift_inside][M_rm_status] = S_L82;
  1350. X        room[R_lift_inside][3] = R_L82_entr;
  1351. X        room[R_lift_inside][7] = R_L82_entr;
  1352. Xprintf ("The steel doors slam shut and you feel a sense of ");
  1353. Xprintf ("weightlessness as \nthe lift plummets down the mine shaft. ");
  1354. Xprintf ("Finally the lift comes to a halt \n");
  1355. Xprintf ("and the doors whirr open. \n");
  1356. X        return ;
  1357. X    }
  1358. X    if (tag[V_blue_button]) {
  1359. X        nothing_happens() ;
  1360. X        return ;
  1361. X    }
  1362. Xprintf ("This lift can go only to levels 0, 49, 67, or 82 \n");
  1363. X    return ;
  1364. X
  1365. X/* inside the closet at the Iranian Parliament */
  1366. Xcase R_closet:
  1367. X    if (tag[V_gray_button]) {
  1368. X        no_gray() ;
  1369. X        return ;
  1370. X    }
  1371. X    if (tag[V_blue_button] || tag[V_button]) {
  1372. X        /* Is the command for the black cube */
  1373. X        if (object[O_cube][J_loc] != B_have) {
  1374. X            no_switch() ;
  1375. X        }
  1376. Xprintf("There is a bright flash of light! Then suddenly you are\n");
  1377. Xprintf("back in the hexagon chamber of the ancient spaceship.\n\n");
  1378. X        *n_arg = R_transport ;
  1379. X    }
  1380. X    else no_switch() ;
  1381. X    return ;
  1382. X 
  1383. X
  1384. X/* the transporter control panel room */
  1385. Xcase R_panel:
  1386. X    if (tag[V_button]) {
  1387. X        which_button() ;
  1388. X        return;
  1389. X    }
  1390. X    if (tag[V_blue_button]) {
  1391. X        if (object[O_cube][J_loc]==B_have) cubic() ;
  1392. X        else no_cube() ;
  1393. X        return ;
  1394. X    }
  1395. X    if (tag[V_gray_button]) {
  1396. X        if (sw_transport != TRUE) {
  1397. Xprintf("Lots of the \"Sanskrit\" text is flashing by on the display\n");
  1398. Xprintf("panel's CRTs.  There is a whirring noise coming out of the\n");
  1399. Xprintf("equipment around you which is increasing in both loudness\n");
  1400. Xprintf("and pitch. You've turned something on, that's for sure!\n") ;
  1401. X            sw_transport = TRUE ;
  1402. X        }
  1403. X        else nothing_happens() ;
  1404. X        return ;
  1405. X    }
  1406. Xdefault:
  1407. X    /* Semtex explosive detector */
  1408. X    if (tag[V_detector] || tag[V_yellow_button] ||
  1409. X        ((object[O_cube][J_loc] != B_have) &&
  1410. X        (object[O_detector][J_loc] == B_have))) { 
  1411. X            if (object[O_detector][J_loc] == B_have) {
  1412. X                /* press Semtex detector button */
  1413. Xprintf("You press the button on the Semtex explosive detector and\n");
  1414. X                for (i = 0; i <= 9; i++) {
  1415. X                    if ((n == i+207)||(n == i+228)) {
  1416. Xif (room[227-i][M_rm_type] == T_lethal) {
  1417. X    printf("hear a \"beep, beep, beep\".\n") ;
  1418. X    return ;
  1419. X}
  1420. X                    }
  1421. X                }
  1422. X                printf("the yellow light flashed.\n") ;
  1423. X            }
  1424. X            else {
  1425. Xprintf("You don't have the detector in your possession.\n") ;
  1426. X            }
  1427. X            return ;
  1428. X        }
  1429. X        /* Transporter return device */
  1430. X        if (object[O_cube][J_loc] == B_have) {
  1431. X            if ((object[O_detector][J_loc] == B_have) && 
  1432. X                (!tag[V_blue_button])) {
  1433. X                    which_button() ;
  1434. X                    return;
  1435. X            }
  1436. X            cubic() ;
  1437. X            return ;
  1438. X        }
  1439. X        if (tag[V_blue_button]) {
  1440. X            no_cube() ;
  1441. X            return ;
  1442. X        }
  1443. X        if (tag[V_gray_button]) {
  1444. X            no_gray() ;
  1445. X            return ;
  1446. X        }
  1447. X
  1448. Xprintf ("You can push as much as you like, but nothing will happen.\n");
  1449. X} /* end of the switch block */
  1450. Xreturn; 
  1451. X
  1452. X} /* --- end of the "pusher" subroutine --- */
  1453. X
  1454. Xvoid which_button() 
  1455. X/********************************************************************/
  1456. X/*                                                                  */
  1457. X/*  Software by Gary A. Allen, Jr. 8 December 1992  Version: Mk 1.0 */
  1458. X/*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  1459. X/*                                                                  */
  1460. X/********************************************************************/
  1461. X{
  1462. Xprintf("Which button do you want me to push? \n") ;
  1463. Xreturn; 
  1464. X} /* --- end of the "which_button" subroutine --- */
  1465. X
  1466. Xvoid lift_moves() 
  1467. X/********************************************************************/
  1468. X/*                                                                  */
  1469. X/*  Software by Gary A. Allen, Jr. 8 December 1992  Version: Mk 1.0 */
  1470. X/*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  1471. X/*                                                                  */
  1472. X/********************************************************************/
  1473. X{
  1474. Xprintf ("The steel doors slam shut and you feel the vibration of ");
  1475. Xprintf ("the lift \nmoving in its shaft. Finally the lift jerks ");
  1476. Xprintf ("to a halt and the doors whirr open. \n");
  1477. Xreturn; 
  1478. X} /* --- end of the "lift_moves" subroutine --- */
  1479. X
  1480. Xvoid nothing_happens() 
  1481. X/********************************************************************/
  1482. X/*                                                                  */
  1483. X/*  Software by Gary A. Allen, Jr. 8 December 1992  Version: Mk 1.0 */
  1484. X/*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  1485. X/*                                                                  */
  1486. X/********************************************************************/
  1487. X{
  1488. Xprintf("Nothing happens!\n");
  1489. Xreturn; 
  1490. X} /* --- end of the "nothing_happens" subroutine --- */
  1491. X 
  1492. Xvoid cubic() 
  1493. X/********************************************************************/
  1494. X/*                                                                  */
  1495. X/*              Press cube button in wrong place.                   */
  1496. X/*                                                                  */
  1497. X/*  Software by Gary A. Allen, Jr. 8 December 1992  Version: Mk 1.0 */
  1498. X/*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  1499. X/*                                                                  */
  1500. X/********************************************************************/
  1501. X{
  1502. Xprintf("You press the button on the cube but nothing happens.\n");
  1503. Xreturn; 
  1504. X} /* --- end of the "cubic" subroutine --- */
  1505. X 
  1506. Xvoid no_gray() 
  1507. X/********************************************************************/
  1508. X/*                                                                  */
  1509. X/*  Software by Gary A. Allen, Jr. 8 December 1992  Version: Mk 1.0 */
  1510. X/*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  1511. X/*                                                                  */
  1512. X/********************************************************************/
  1513. X{
  1514. Xprintf("I see no gray button to push!\n");
  1515. Xreturn; 
  1516. X} /* --- end of the "no_gray" subroutine --- */
  1517. X 
  1518. Xvoid no_switch() 
  1519. X/********************************************************************/
  1520. X/*                                                                  */
  1521. X/*  Software by Gary A. Allen, Jr. 8 December 1992  Version: Mk 1.0 */
  1522. X/*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  1523. X/*                                                                  */
  1524. X/********************************************************************/
  1525. X{
  1526. Xprintf("There is nothing here with a push button switch.\n");
  1527. Xreturn; 
  1528. X} /* --- end of the "no_switch" subroutine --- */
  1529. X 
  1530. Xvoid no_cube() 
  1531. X/********************************************************************/
  1532. X/*                                                                  */
  1533. X/*  Software by Gary A. Allen, Jr. 8 December 1992  Version: Mk 1.0 */
  1534. X/*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  1535. X/*                                                                  */
  1536. X/********************************************************************/
  1537. X{
  1538. Xprintf("You don't have the black cube with the blue button in your") ;
  1539. Xprintf(" possession!\n") ;
  1540. Xreturn; 
  1541. X} /* --- end of the "no_cube" subroutine --- */
  1542. X 
  1543. X 
  1544. Xvoid switcher(n) 
  1545. X/********************************************************************/
  1546. X/*                                                                  */
  1547. X/*                --- The Switcher Subroutine ---                   */
  1548. X/*                                                                  */
  1549. X/*                                                                  */
  1550. X/*  Software by Gary A. Allen, Jr. 29 October 1989  Version: Mk 1.4 */
  1551. X/*           (c) Copyright 1988 by Gary A. Allen, Jr.               */
  1552. X/*                                                                  */
  1553. X/********************************************************************/
  1554. Xint n ;
  1555. X{
  1556. Xint flag_switch, flag_rifle_md ;
  1557. X
  1558. X#if (PROTOTYPE)
  1559. Xvoid dialer(int) ;
  1560. X#endif
  1561. X
  1562. X/* deal with single verb commands */
  1563. Xif (tag[V_VERB_ONLY]) {
  1564. X    if (tag[V_turn]) printf("Turn what?\n") ;
  1565. X    if (tag[V_set]) printf("Set what?\n") ;
  1566. X    if (tag[V_select]) printf("Select what?\n") ;
  1567. X    if (tag[V_switch]) printf("Switch what?\n") ;
  1568. X    return ;
  1569. X}
  1570. X
  1571. X/* Deal with changing the safety on the rifle */
  1572. Xif (tag[V_safety]) {
  1573. X    if (object[O_rifle][J_loc] == B_have) {
  1574. X        if (tag[V_off]) {
  1575. X            rifle_flag = F_single ;
  1576. Xprintf("The M16 rifle is set to single shot mode ") ;
  1577. Xprintf("with the safey off.\n") ;
  1578. X            return ;
  1579. X        }
  1580. X        if (tag[V_on]) {
  1581. X            rifle_flag = F_safety ;
  1582. Xprintf("The M16 rifle's safety has been turned on.\n") ;
  1583. X            return ;
  1584. X        }
  1585. X    printf("How do you want the safety set?\n") ;
  1586. X    }
  1587. X    else printf("You're not holding the rifle!\n") ;
  1588. X    return ;
  1589. X}
  1590. X
  1591. X/* deal with special case "turn (safe) dial 0 49 67 82" */
  1592. Xif (tag[V_turn] && tag[V_dial] && (!tag[V_rifle])) {
  1593. X    dialer(n) ;
  1594. X    return ;
  1595. X}
  1596. X
  1597. X/* deal with special case "turn safe ..." */
  1598. Xif (tag[V_turn] && (!tag[V_dial]) && tag[V_safe]) {
  1599. X    if (n != R_office_mang) {
  1600. Xprintf("There is no safe here to turn!\n") ;
  1601. X        return  ;
  1602. X    }
  1603. Xprintf("Since the safe is set in a concrete wall, turning it would\n");
  1604. Xprintf("be rather difficult!  Perhaps I should turn the safe's\n") ;
  1605. Xprintf("dial instead?\n") ;
  1606. X    return ;
  1607. X}
  1608. X
  1609. X/* initialize the local switches */
  1610. Xflag_switch = F_no_argument ; 
  1611. Xif (tag[V_on]) flag_switch = TRUE ;
  1612. Xif (tag[V_off]) flag_switch = FALSE ;
  1613. Xif (verb == V_light) flag_switch = TRUE ;
  1614. X
  1615. Xflag_rifle_md = F_no_argument ;
  1616. Xif (tag[V_safe]) flag_rifle_md = F_safety ;
  1617. Xif (tag[V_triple]) flag_rifle_md = F_triple ;
  1618. Xif (tag[V_single]) flag_rifle_md = F_single ;
  1619. Xif (tag[V_auto]) flag_rifle_md = F_auto ;
  1620. X
  1621. Xif ((flag_switch == F_no_argument)&&(flag_rifle_md == F_no_argument)) {
  1622. Xprintf("You will have to be a little more specific than that. \n") ;
  1623. X    return ;
  1624. X}
  1625. X
  1626. X/* see if it is a simple "on/off" power equipment switch command */
  1627. Xif ((!tag[V_torch])&&(!tag[V_rifle])&&
  1628. X    (flag_rifle_md == F_no_argument)) {
  1629. Xif (n == R_store_room) {
  1630. X    /* The circuit breaker is switched off */
  1631. X    if (flag_switch == FALSE) {
  1632. X    if (room[R_store_room][M_rm_status] == S_off) {
  1633. X        printf ("The circuit breaker is already turned off! \n");
  1634. X    }
  1635. X    else {
  1636. Xprintf ("As you pull the switch lever, there is a bright blue \n");
  1637. Xprintf ("arc and then all of the lights go out. \n");
  1638. X        room[R_store_room][M_rm_status] = S_off ;
  1639. X        room[R_lift_entr][M_rm_status] = S_closed ;
  1640. X    }
  1641. X    return;
  1642. X    }
  1643. X    /* The circuit breaker is switched on */
  1644. X    if (flag_switch == TRUE) {
  1645. X    if (room[R_store_room][M_rm_status] == S_on) {
  1646. X    printf ("The circuit breaker is already turned on! \n");
  1647. X    }
  1648. X    else {
  1649. Xprintf ("As you pull the switch lever, there is a loud \"CLUNK\" \n");
  1650. Xprintf ("and you see a POWER ON light glowing. \n");
  1651. X        room[R_store_room][M_rm_status] = S_on ;
  1652. X        room[R_lift_entr][M_rm_status] = S_flashing ;
  1653. X    }
  1654. X    return;
  1655. X    }
  1656. X}          
  1657. X
  1658. X/* Deal with a garbage command */
  1659. Xprintf("I don't understand what you want me to switch. \n") ;
  1660. Xreturn ;
  1661. X} /* end of the simple "on/off" switch group */
  1662. X
  1663. X/* the switch command is to select an M16 rifle firing mode */
  1664. Xif (tag[V_rifle]) {
  1665. X    if (object[O_rifle][J_loc] == B_have) {
  1666. X
  1667. X        /* turn the rifle on naively */
  1668. X        if ((flag_switch==TRUE)||
  1669. X               ((flag_rifle_md==F_safety)&&(flag_switch==FALSE))) {
  1670. X            if (rifle_flag != F_safety) {
  1671. Xprintf("The rifle's safety is already off! \n") ; 
  1672. X                return;
  1673. X            }
  1674. X            rifle_flag = F_single ;
  1675. Xprintf("The M16 rifle has been set to single shot mode. \n") ;
  1676. X            return ;
  1677. X        } 
  1678. X/* turn on the safety */
  1679. X    if ((flag_switch==FALSE)||
  1680. X      ((flag_rifle_md==F_safety)&&((flag_switch==TRUE)||
  1681. X      (flag_switch==F_no_argument)))) {
  1682. X                if (rifle_flag == F_safety) {
  1683. Xprintf("The rifle's safety is already on! \n") ; 
  1684. X                return;
  1685. X                }
  1686. X            rifle_flag = F_safety ;
  1687. Xprintf("The M16 rifle's safety has now been turned on. \n") ;
  1688. X            return ;
  1689. X    } 
  1690. X        /* select single shot mode */  
  1691. X        if (flag_rifle_md == F_single) {
  1692. X            if (rifle_flag == F_single) {
  1693. Xprintf("The rifle has already been set to single shot mode.\n");
  1694. X                return;
  1695. X            }
  1696. X            rifle_flag = F_single ;
  1697. Xprintf("The M16 rifle has been set to single shot mode. \n") ;
  1698. X            return ;
  1699. X        } 
  1700. X        /* select triple fire mode */  
  1701. X        if (flag_rifle_md == F_triple) {
  1702. X            if (rifle_flag == F_triple) {
  1703. Xprintf("The rifle has already been set to triple fire mode.\n");
  1704. X                return;
  1705. X            }
  1706. X            rifle_flag = F_triple ;
  1707. Xprintf("The M16 rifle has been set to triple fire mode. \n") ;
  1708. X            return ;
  1709. X        } 
  1710. X        /* select to fully automatice mode */
  1711. X        if (flag_rifle_md == F_auto) {
  1712. X            if (rifle_flag == F_auto) {
  1713. Xprintf("The rifle has already been set to fully automatic.\n");
  1714. X                return;
  1715. X            }
  1716. X            rifle_flag = F_auto ;
  1717. Xprintf("The M16 rifle has been set to fully automatic. \n") ;
  1718. X            return ;
  1719. X        } 
  1720. X    }
  1721. X    /* This is the rifle nonpossession error handler */
  1722. X    else {
  1723. Xprintf("You don't have a rifle in your possession! \n") ;
  1724. X        return ;
  1725. X    }
  1726. X} /* end of the rifle mode switching block */
  1727. X
  1728. X/* the switch command is to turn the torch off or on. */
  1729. Xif (tag[V_torch]) {
  1730. X    if (object[O_torch][J_loc] == B_have) {
  1731. X        /* "switch torch on" command */
  1732. X        if (flag_switch==TRUE) {
  1733. X            if (object[O_torch][J_property]) {
  1734. Xprintf("The torch is already turned on.\n") ;
  1735. X                return ;
  1736. X            }
  1737. Xprintf("An intense beam of light is projected from the torch.\n") ;
  1738. X            object[O_torch][J_property] = TRUE ;
  1739. X            return ;
  1740. X        }
  1741. X        /* "switch torch off" command */
  1742. X        if (flag_switch==FALSE) {
  1743. X            if (!object[O_torch][J_property]) {
  1744. Xprintf("The torch isn't switched on.\n") ;
  1745. X                return ;
  1746. X            }
  1747. Xprintf("The torch switches off with a \"click\".\n") ;
  1748. X            object[O_torch][J_property] = FALSE ;
  1749. X            return ;
  1750. X        }
  1751. X    }
  1752. Xprintf("You don't have a torch in your possession to switch! \n") ;
  1753. X    return ;
  1754. X}
  1755. X
  1756. X} /* --- end of the "switcher" subroutine --- */
  1757. X
  1758. Xvoid new_score() 
  1759. X/* This subroutine calculates the score based on treasure in the safe */
  1760. X{
  1761. Xint i ;
  1762. X    score = 0 ;
  1763. X for (i = 0; i <= objcnt; i++) if (object[i][J_loc] == B_in_safe)  {
  1764. X        score += object[i][J_value] ;
  1765. X    } ;
  1766. X} /* --- end of the "new_score" subroutine --- */
  1767. X
  1768. END_OF_FILE
  1769. if test 18897 -ne `wc -c <'pusher.c'`; then
  1770.     echo shar: \"'pusher.c'\" unpacked with wrong size!
  1771. fi
  1772. # end of 'pusher.c'
  1773. fi
  1774. echo shar: End of archive 2 \(of 7\).
  1775. cp /dev/null ark2isdone
  1776. MISSING=""
  1777. for I in 1 2 3 4 5 6 7 ; do
  1778.     if test ! -f ark${I}isdone ; then
  1779.     MISSING="${MISSING} ${I}"
  1780.     fi
  1781. done
  1782. if test "${MISSING}" = "" ; then
  1783.     echo You have unpacked all 7 archives.
  1784.     rm -f ark[1-9]isdone
  1785. else
  1786.     echo You still need to unpack the following archives:
  1787.     echo "        " ${MISSING}
  1788. fi
  1789. ##  End of shell archive.
  1790. exit 0
  1791.