home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / WWIVMODS / PRE412.ZIP / LOTTERY.C < prev    next >
Text File  |  1988-09-25  |  1KB  |  39 lines
  1. #include <ctype.h>
  2.  
  3. void lottery()                            /* DF */
  4. {
  5. char s[5], sr[5], s1[81];
  6. int notgood = 1, i, j, matches = 0;
  7.  
  8.   thisuser.gold -= 3.0;
  9.   while (notgood && !hangup)
  10.     {
  11.     notgood = 0;
  12.     prt(2, "Please enter your 4 digit lottery number:");
  13.     ansic(4);
  14.     input(s, 4);
  15.     if (strlen(s) < 4) notgood = 1;
  16.     for (i = 0; i <= 3; i++)
  17.       if (!isdigit(s[i])) notgood = 1;
  18.     if (notgood) pl("Please enter a 4 digit number only.");
  19.     }
  20.   for (i = 0; i <= 3; i++)
  21.     sr[i] = (rand() % 10) + '0';
  22.   sr[4] = 0;
  23.   for (i = 0; i <= 3; i++)
  24.     for (j = 0; j <= 3; j++)
  25.       if (sr[i] == s[j]) matches++;
  26.   sprintf(s1, "Your guess: %s, actual lottery numbers: %s, number of matches: %d.",
  27.       s, sr, matches);
  28.   pl(s1);
  29.   thisuser.gold += (float)(matches * matches * 2);
  30.   if (matches)
  31.     sprintf(s1, "You have just won %d gold pieces!", (matches * matches * 2));
  32.   else
  33.     sprintf(s1, "You did not win any gold. Try again next call.");
  34.   pl(s1);
  35.   sprintf(s1, "*** Played logoff lottery: Won: %d, Net gain: %d.",
  36.       (matches * matches * 2), (matches * matches * 2) - 3);
  37.   sysoplog(s1);
  38. }
  39.