home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 240_01 / bg1.c < prev    next >
Text File  |  1987-07-30  |  6KB  |  270 lines
  1. /*
  2. **  bg1.c  - globals and utilities
  3. */
  4.  
  5. #include "backgmmn.h"
  6. #include <alloc.h>
  7. #include <stdarg.h>
  8.  
  9.  
  10.  
  11.  
  12. /* Utilities */
  13.  
  14.  
  15.  
  16.  
  17. unsigned acg() {  /* additive congruential generator for pseudo-random numbers */
  18. static unsigned arg[] = {
  19.           4292,     60,     4947,     3972,     4489,
  20.           1917,     3916,   7579,     3048,     6856,
  21.           1832,     7589,   1798,     4954,     2880,
  22.           5142,     5187,   3045,     1529,     3110,
  23.           4333,     167,    5556,     7237,     5906,
  24.           5419,     6632,   5833,     3760,     1081,
  25.           1434,     80,     6212,     344,      7303,
  26.           3044,     7675,   5420,     457,      3434,
  27.           2657,     700,    6777,     4436,     620,
  28.           2129,     629,    3550,     1639,     4546,
  29.           1220,     6469,   862,      3280,     4664
  30.      };
  31. static int rp1 = 0, rp2 = 32;
  32.  
  33.      rp1++; 
  34.      rp2++;  
  35.      rp1 %= 55; 
  36.      rp2 %= 55;
  37.      arg[rp1] += arg[rp2];
  38.      return ( arg[rp1] );
  39.  
  40. } /* end: acg */
  41.  
  42.  
  43.  
  44.  
  45. int contains( p, q ) char *p, *q;  /* TRUE iff some char from q is in p */
  46. {
  47.      char *k;
  48.      k = strpbrk( p,q );
  49.      return (k != NULL);
  50. }
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57. /*
  58. **  special sound effects for backgammon
  59. */
  60.  
  61.  
  62.  
  63.  
  64. void voice( n ) int n;
  65. {
  66.      switch (n)
  67.      {
  68.           case 0: { blopbloop(); break; }
  69.           case 1: { bopbleet();  break; }
  70.           case 2: { thurb();     break; }
  71.           default:  bopbleet();
  72.      } 
  73. }
  74.  
  75.  
  76.  
  77. void beep()
  78. {
  79.      voice ( level );
  80. }
  81.  
  82.  
  83.  
  84. /* 
  85. ** normal set of playing tokens
  86. */
  87.  
  88. char *get2tkn() 
  89. {
  90.     return ("^1()^");
  91. }
  92.  
  93. char *get1tkn() 
  94. {
  95.     return ("^2[]^"); 
  96. }
  97.  
  98. char *get3tkn() 
  99. {
  100.     return ("^2▀▀^");
  101. }
  102.  
  103. char *get4tkn() 
  104. {
  105.     return ("^1≡≡^"); 
  106. }
  107.  
  108.  
  109.  
  110.  
  111. /*
  112. ** hilited alternate set of playing tokens
  113. */
  114.  
  115. char *get6tkn() 
  116. {
  117.     return ("^2()^");
  118. }
  119.  
  120. char *get5tkn() 
  121. {
  122.     return ("^1[]^"); 
  123. }
  124.  
  125. char *get7tkn() 
  126. {
  127.     return ("^1▄▄^");
  128. }
  129.  
  130. char *get8tkn() 
  131. {
  132.     return ("^2≡≡^"); 
  133. }
  134.  
  135.  
  136.  
  137. /*
  138. **  Gammon IV version, logo, title
  139. */
  140.  
  141. void msg( x,y,p ) int x,y; char *p;  /* variable args, works like wprintf */
  142. {
  143.      va_list arg_ptr;
  144.      char *buff;
  145.  
  146.      gotoxy( x,y ); 
  147.      buff = malloc( 128 );
  148.      va_start(arg_ptr, p);
  149.      vsprintf( buff, p, arg_ptr );
  150.      va_end( arg_ptr );
  151.      wputs( buff );
  152.      free( buff );
  153.      clr_eol();
  154.      on_cursor(); /* expect user response */
  155. }
  156.  
  157.  
  158. void title()
  159. {
  160.    clr_screen();
  161.    setwindow( 13,3,65,18 );
  162.    clrwindow();
  163.    gotoxy(0,15);
  164.    wprintf("%s\n\n",logoname);
  165.    wputs("┌────────────────────────────────────────────────┐\n");
  166.    wputs("│░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓│\n");
  167.    wputs("╘══════════════════════════════════════════════╕░│\n");
  168.    wputs("┌─┐ █   ███ ██ █ ██  █   █ ███ █  ███ ███ ██ tm╘═╛\n");
  169.    wputs("│▓└─█─────█─█─██─█─█─█─────█───█───█──██──█─█────┐\n");
  170.    wputs("╘═══█═══███═█══█═██══█═══█═█═█═███═█══█═══███══╕▓│\n");
  171.    wputs("┌─┐ ███ ███ █  █ █   ███ █ ███ █ █ █  ███ █  █ ╘═╛\n");
  172.    wputs("│░└──────────────────────────────────────────────┐\n");
  173.    wputs("│▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░│\n");
  174.    wputs("╘════════════════════════════════════════════════╛\n\n");
  175.    wputs("Copyright (c) 1986 by The LampLighter Software Co.^");
  176.    sleep(1);
  177.    fullscreen();
  178. }
  179.  
  180.  
  181. /* 
  182. **  bg2.c  - globals, chooseplayer()
  183. */
  184.  
  185.  
  186.  
  187.  
  188. /*======================================================================
  189.  
  190.   Choose Player -- A little scenario, in which to select level of play
  191.  
  192. ========================================================================*/
  193.  
  194. void dissemble() {
  195. static int line;
  196. static char *story[] =
  197. {
  198.  "You are a passenger in the \"Orion\" bound for STAR WELL, a slightly disreputable\n",
  199.  "planetoid in the Flammarion Rift, where you have a scheduled layover of several\n",
  200.  "hours.  You enter the Casino there, desperately bored.  Your attention is \n",
  201.  "immediately drawn to an unusual trio.  Your instinct for good company (they \n",
  202.  "are playing Backgammon) leads you easily into a round of introductions:\n",
  203.  "\n",
  204.  "^φLOUISA PARINI^ -- A young woman who gives you the uncomfortable feeling that she\n",
  205.  "is even younger than she looks.  In fact, she is the offspring of a clan of\n",
  206.  "noted interstellar jewel thieves and con artists, on her way to a famous\n",
  207.  "girl's finishing school on Nashua.  She has larceny in her soul, but she is on\n",
  208.  "holiday.  Do not underestimate her.  (But you will, of course.  You must.)\n",
  209.  "\n",
  210.  "^φANTHONY VILLIERS^ -- A mysterious young fop with impeccable manners, and (you\n",
  211.  "notice) an even more impeccable dueling saber at his side.  There is something\n",
  212.  "between Louisa and him.  His conversation is light, witty and just slightly\n",
  213.  "cynical, but you are not wrong to conclude that this is someone you can trust.\n",
  214.  "\n",
  215.  "^φTORVE THE TROG^ --  This blue-eyed, golden-furred entity is a member of the most\n",
  216.  "dangerous and unpredictable race in the galaxy (aside from humans).  You are \n",
  217.  "amazed that this one is allowed to travel. (In fact, Torve's papers were forged\n",
  218.  "by a member of Louisa's family and procured for him by Villiers).  Torve is\n",
  219.  "lost in some inner rapture, emitting soft \"Thurb\"-like noises.\n"
  220. };
  221.  
  222.      clr_screen();
  223.      for ( line = 0; line < 22; line++ )
  224.      {
  225.           wprintf( story[ line ] );
  226.      }
  227.      wprintf ( "(Hit any key to continue)");
  228.      keyin( acg );
  229.      for ( line = 0; line < 25; line++ ) 
  230.      {
  231.           wink('\b');
  232.      }
  233.      clr_eol();
  234.     
  235.      wprintf("\nYou suggest a friendly game of backgammon, at small stakes, and your\n");
  236.      wprintf("companions agree instantly.");
  237.      beep();
  238.      wprintf("  Who will be your opponent?  (L, V, or T) ");
  239.  
  240. } /* end: dissemble */
  241.  
  242.  
  243.  
  244. char *chooseplayer() {
  245. int ch; char *q;
  246.  
  247.      dissemble();
  248. loo: ch = keyin( acg );
  249.      ch = toupper(ch);
  250.      switch (ch) {
  251.           case 'A':
  252.           case 'V': { level = 0; break; }
  253.           case 'L':
  254.           case 'P': { level = 1; break; }
  255.           case 'T': { level = 2; break; }
  256.           default:  goto loo;
  257.      }
  258.      q = backtalk[ level ];
  259.      clr_screen(); draw_board(q);
  260.      return(q);
  261.  
  262. } /* end: chooseplayer */
  263.  
  264.  
  265.  
  266.  
  267.  
  268. /* eof: bg1.c */
  269.  
  270.