|
|
1.1 ! root 1: .th BJ VI 3/15/72 ! 2: .sh NAME ! 3: bj \*- the game of black jack ! 4: .sh SYNOPSIS ! 5: .bd /usr/games/bj ! 6: .sh DESCRIPTION ! 7: .it Bj ! 8: is a serious attempt at ! 9: simulating the dealer ! 10: in the game of black jack (or twenty-one) ! 11: as might be found in Reno. ! 12: The following rules apply: ! 13: .s3 ! 14: .lp +5 5 ! 15: The bet is $2 every hand. ! 16: .s3 ! 17: A player `natural' (black jack) pays $3. ! 18: A dealer natural loses $2. ! 19: Both dealer and player naturals ! 20: is a `push' (no money exchange). ! 21: .s3 ! 22: If the dealer has an ace up, ! 23: the player is allowed to make an `insurance' ! 24: bet against the chance of a dealer natural. ! 25: If this bet is not taken, play resumes as normal. ! 26: If the bet is taken, it is a side bet ! 27: where the player wins $2 if the dealer has ! 28: a natural and loses $1 if the dealer does not. ! 29: .s3 ! 30: If the player is dealt two cards ! 31: of the same value, he is allowed to ! 32: `double'. ! 33: He is allowed to play two ! 34: hands, each with one of these cards. ! 35: (The bet is doubled also; $2 on each hand.) ! 36: .s3 ! 37: If a dealt hand ! 38: has a total of ten or eleven, ! 39: the player may `double down'. ! 40: He may double the bet ($2 to $4) ! 41: and receive exactly one more card on that hand. ! 42: .s3 ! 43: Under normal play, ! 44: the player may `hit' (draw a card) ! 45: as long as his total is not over twenty-one. ! 46: If the player `busts' (goes over twenty-one), ! 47: the dealer wins the bet. ! 48: .s3 ! 49: When the player `stands' (decides not to hit), ! 50: the dealer hits until he attains ! 51: a total of seventeen or more. ! 52: If the dealer busts, the player wins the bet. ! 53: .s3 ! 54: If both player and dealer stand, ! 55: the one with the largest total wins. ! 56: A tie is a push. ! 57: .s3 ! 58: .i0 ! 59: The machine deals and keeps score. ! 60: The following questions will be asked at ! 61: appropriate times. ! 62: Each question is ! 63: answered by ! 64: .bd y ! 65: followed by a new line for `yes', ! 66: or just new line for `no'. ! 67: .s3 ! 68: ? (means, ``do you want a hit?'') ! 69: .br ! 70: Insurance? ! 71: .br ! 72: Double down? ! 73: .s3 ! 74: Every time the deck is shuffled, ! 75: the dealer so states and the `action' (total bet) ! 76: and `standing' (total won or lost) ! 77: is printed. ! 78: To exit, hit the interrupt key (DEL) ! 79: and the action and standing will be printed. ! 80: .sh BUGS ! 81: Be careful of the random number generator.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.