Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!zephyr.ens.tek.com!tekred!saab!billr
From: billr@saab.CNA.TEK.COM (Bill Randle)
Newsgroups: comp.sources.games
Subject: v11i036:  vcraps - display-oriented craps game, Patch1
Message-ID: <6202@tekred.CNA.TEK.COM>
Date: 24 Aug 90 18:09:42 GMT
Sender: news@tekred.CNA.TEK.COM
Lines: 107
Approved: billr@saab.CNA.TEK.COM

Submitted-by: Robert Steven Glickstein <bobg+@andrew.cmu.edu>
Posting-number: Volume 11, Issue 36
Archive-name: vcraps/Patch1
Patch-To: vcraps: Volume 11, Issue 34-35

[[This patch adds the '$' keystroke to the list of commands.  '$'
tallies up the players wagers and reports the total.]]

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  patches01
# Wrapped by billr@saab on Fri Aug 24 11:07:27 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'patches01' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'patches01'\"
else
echo shar: Extracting \"'patches01'\" \(2062 characters\)
sed "s/^X//" >'patches01' <<'END_OF_FILE'
X*** dist/vcraps.c	Thu Aug 23 16:30:41 1990
X--- vcraps.c	Thu Aug 23 16:25:29 1990
X***************
X*** 159,168 ****
X  	Update(fullupdate);
X  	bcopy(&Table, &OldTable, (sizeof(CrapsTable_t)));
X  	fullupdate = 0;
X! 	Prompt("Command [12345689abcdfhprtX?]:");
X  	wclear(commandwin);
X  	wrefresh(commandwin);
X! 	c = Getch("12345689abcdfhprtX?", 1);
X  	switch (c) {
X  	    case '1':
X  		Prompt("[012]:");
X--- 159,168 ----
X  	Update(fullupdate);
X  	bcopy(&Table, &OldTable, (sizeof(CrapsTable_t)));
X  	fullupdate = 0;
X! 	Prompt("Command [12345689abcdfhprt$X?]:");
X  	wclear(commandwin);
X  	wrefresh(commandwin);
X! 	c = Getch("12345689abcdfhprt$X?", 1);
X  	switch (c) {
X  	    case '1':
X  		Prompt("[012]:");
X***************
X*** 870,875 ****
X--- 870,878 ----
X  			break;
X  		}
X  		break;
X+ 	    case '$':
X+ 		ShowTotal();
X+ 		break;
X  	    case 'X':
X  		return (0);
X  	    case '?':
X***************
X*** 1694,1702 ****
X      addstr("4dc - don't-come odds on 4    4dp - don't place 4\n\n");
X      addstr("Bets are taken down by typing t followed by one of the\n");
X      addstr("bet commands above.\n\n");
X!     addstr("X   - Exit program\n");
X!     addstr("                                         continue...");
X      refresh();
X      getch();
X      longjmp(LoopEnv, 2);
X  }
X--- 1697,1716 ----
X      addstr("4dc - don't-come odds on 4    4dp - don't place 4\n\n");
X      addstr("Bets are taken down by typing t followed by one of the\n");
X      addstr("bet commands above.\n\n");
X!     addstr("$   - show total bets         X   - Exit program\n");
X!     addstr("                                                    continue...");
X      refresh();
X      getch();
X      longjmp(LoopEnv, 2);
X+ }
X+ 
X+ ShowTotal()
X+ {
X+     int i, total = 0;
X+     char buf[80];
X+ 
X+     for (i = craps_PassLine; i < craps_Bets; ++i)
X+ 	total += Craps_GetBet(&Table, i);
X+     sprintf(buf, "Wagers on table total $%d", total);
X+     Message(buf);
X  }
X
X*** /dev/null	Fri Aug 24 11:00:03 1990
X--- patchlevel.h	Fri Aug 24 11:04:33 1990
X***************
X*** 0 ****
X--- 1 ----
X+ #define PATCHLEVEL	1
END_OF_FILE
if test 2062 -ne `wc -c <'patches01'`; then
    echo shar: \"'patches01'\" unpacked with wrong size!
fi
# end of 'patches01'
fi
echo shar: End of shell archive.
exit 0