home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
You can browse this item here: nobs2
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 100%
| dexvert
| Internet Message Format (text/imf)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news, ASCII text
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| dexmagic
| PrintFox/Pagefox WEAK
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| message/news
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 75 75 | 6e 65 74 21 68 75 73 63 |Path: uu|net!husc|
|00000010| 36 21 62 6c 6f 6f 6d 2d | 62 65 61 63 6f 6e 21 6d |6!bloom-|beacon!m|
|00000020| 69 74 2d 65 64 64 69 65 | 21 75 77 2d 62 65 61 76 |it-eddie|!uw-beav|
|00000030| 65 72 21 74 65 6b 74 72 | 6f 6e 69 78 21 74 65 6b |er!tektr|onix!tek|
|00000040| 67 65 6e 21 74 65 6b 72 | 65 64 21 67 61 6d 65 73 |gen!tekr|ed!games|
|00000050| 0a 46 72 6f 6d 3a 20 67 | 61 6d 65 73 40 74 65 6b |.From: g|ames@tek|
|00000060| 72 65 64 2e 54 45 4b 2e | 43 4f 4d 0a 4e 65 77 73 |red.TEK.|COM.News|
|00000070| 67 72 6f 75 70 73 3a 20 | 63 6f 6d 70 2e 73 6f 75 |groups: |comp.sou|
|00000080| 72 63 65 73 2e 67 61 6d | 65 73 0a 53 75 62 6a 65 |rces.gam|es.Subje|
|00000090| 63 74 3a 20 76 30 34 69 | 30 31 33 3a 20 20 6e 6f |ct: v04i|013: no|
|000000a0| 62 73 32 20 2d 20 75 70 | 64 61 74 65 64 20 76 65 |bs2 - up|dated ve|
|000000b0| 72 73 69 6f 6e 20 6f 66 | 20 6e 6f 62 73 20 63 72 |rsion of| nobs cr|
|000000c0| 69 62 62 61 67 65 20 67 | 61 6d 65 0a 4b 65 79 77 |ibbage g|ame.Keyw|
|000000d0| 6f 72 64 73 3a 20 63 72 | 69 62 62 61 67 65 20 67 |ords: cr|ibbage g|
|000000e0| 61 6d 65 0a 4d 65 73 73 | 61 67 65 2d 49 44 3a 20 |ame.Mess|age-ID: |
|000000f0| 3c 32 35 34 31 40 74 65 | 6b 72 65 64 2e 54 45 4b |<2541@te|kred.TEK|
|00000100| 2e 43 4f 4d 3e 0a 44 61 | 74 65 3a 20 32 30 20 4d |.COM>.Da|te: 20 M|
|00000110| 61 79 20 38 38 20 32 32 | 3a 32 38 3a 32 31 20 47 |ay 88 22|:28:21 G|
|00000120| 4d 54 0a 53 65 6e 64 65 | 72 3a 20 62 69 6c 6c 72 |MT.Sende|r: billr|
|00000130| 40 74 65 6b 72 65 64 2e | 54 45 4b 2e 43 4f 4d 0a |@tekred.|TEK.COM.|
|00000140| 4c 69 6e 65 73 3a 20 31 | 36 38 33 0a 41 70 70 72 |Lines: 1|683.Appr|
|00000150| 6f 76 65 64 3a 20 62 69 | 6c 6c 72 40 73 61 61 62 |oved: bi|llr@saab|
|00000160| 2e 43 4e 41 2e 54 45 4b | 2e 43 4f 4d 0a 0a 53 75 |.CNA.TEK|.COM..Su|
|00000170| 62 6d 69 74 74 65 64 20 | 62 79 3a 20 69 68 6e 70 |bmitted |by: ihnp|
|00000180| 34 21 6f 64 79 73 73 65 | 79 21 67 6c 73 20 28 67 |4!odysse|y!gls (g|
|00000190| 2e 6c 2e 73 69 63 68 65 | 72 6d 61 6e 29 0a 43 6f |.l.siche|rman).Co|
|000001a0| 6d 70 2e 73 6f 75 72 63 | 65 73 2e 67 61 6d 65 73 |mp.sourc|es.games|
|000001b0| 3a 20 56 6f 6c 75 6d 65 | 20 34 2c 20 49 73 73 75 |: Volume| 4, Issu|
|000001c0| 65 20 31 33 0a 41 72 63 | 68 69 76 65 2d 6e 61 6d |e 13.Arc|hive-nam|
|000001d0| 65 3a 20 6e 6f 62 73 32 | 0a 0a 09 5b 54 68 69 73 |e: nobs2|...[This|
|000001e0| 20 69 73 20 61 6e 20 75 | 70 64 61 74 65 20 6f 66 | is an u|pdate of|
|000001f0| 20 61 20 70 72 65 76 69 | 6f 75 73 6c 79 20 70 6f | a previ|ously po|
|00000200| 73 74 65 64 20 6e 6f 62 | 73 20 67 61 6d 65 0a 09 |sted nob|s game..|
|00000210| 20 28 76 30 34 69 30 30 | 32 29 2e 20 2d 62 72 5d | (v04i00|2). -br]|
|00000220| 0a 0a 23 21 20 2f 62 69 | 6e 2f 73 68 0a 23 20 54 |..#! /bi|n/sh.# T|
|00000230| 68 69 73 20 69 73 20 61 | 20 73 68 65 6c 6c 20 61 |his is a| shell a|
|00000240| 72 63 68 69 76 65 2e 20 | 20 52 65 6d 6f 76 65 20 |rchive. | Remove |
|00000250| 61 6e 79 74 68 69 6e 67 | 20 62 65 66 6f 72 65 20 |anything| before |
|00000260| 74 68 69 73 20 6c 69 6e | 65 2c 20 74 68 65 6e 20 |this lin|e, then |
|00000270| 75 6e 70 61 63 6b 0a 23 | 20 69 74 20 62 79 20 73 |unpack.#| it by s|
|00000280| 61 76 69 6e 67 20 69 74 | 20 69 6e 74 6f 20 61 20 |aving it| into a |
|00000290| 66 69 6c 65 20 61 6e 64 | 20 74 79 70 69 6e 67 20 |file and| typing |
|000002a0| 22 73 68 20 66 69 6c 65 | 22 2e 20 20 54 6f 20 6f |"sh file|". To o|
|000002b0| 76 65 72 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |verwrite| existin|
|000002c0| 67 0a 23 20 66 69 6c 65 | 73 2c 20 74 79 70 65 20 |g.# file|s, type |
|000002d0| 22 73 68 20 66 69 6c 65 | 20 2d 63 22 2e 20 20 59 |"sh file| -c". Y|
|000002e0| 6f 75 20 63 61 6e 20 61 | 6c 73 6f 20 66 65 65 64 |ou can a|lso feed|
|000002f0| 20 74 68 69 73 20 61 73 | 20 73 74 61 6e 64 61 72 | this as| standar|
|00000300| 64 20 69 6e 70 75 74 20 | 76 69 61 0a 23 20 75 6e |d input |via.# un|
|00000310| 73 68 61 72 2c 20 6f 72 | 20 62 79 20 74 79 70 69 |shar, or| by typi|
|00000320| 6e 67 20 22 73 68 20 3c | 66 69 6c 65 22 2c 20 65 |ng "sh <|file", e|
|00000330| 2e 67 2e 2e 20 20 49 66 | 20 74 68 69 73 20 61 72 |.g.. If| this ar|
|00000340| 63 68 69 76 65 20 69 73 | 20 63 6f 6d 70 6c 65 74 |chive is| complet|
|00000350| 65 2c 20 79 6f 75 0a 23 | 20 77 69 6c 6c 20 73 65 |e, you.#| will se|
|00000360| 65 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |e the fo|llowing |
|00000370| 6d 65 73 73 61 67 65 20 | 61 74 20 74 68 65 20 65 |message |at the e|
|00000380| 6e 64 3a 0a 23 09 09 22 | 45 6e 64 20 6f 66 20 61 |nd:.#.."|End of a|
|00000390| 72 63 68 69 76 65 20 31 | 20 28 6f 66 20 31 29 2e |rchive 1| (of 1).|
|000003a0| 22 0a 23 20 43 6f 6e 74 | 65 6e 74 73 3a 20 20 52 |".# Cont|ents: R|
|000003b0| 45 41 44 4d 45 20 4d 41 | 4e 49 46 45 53 54 20 4d |EADME MA|NIFEST M|
|000003c0| 61 6b 65 66 69 6c 65 20 | 64 65 61 6c 2e 63 20 64 |akefile |deal.c d|
|000003d0| 65 66 73 2e 68 20 67 61 | 6d 65 73 63 6f 72 65 2e |efs.h ga|mescore.|
|000003e0| 63 20 67 6c 6f 62 73 2e | 63 0a 23 20 20 20 67 6c |c globs.|c.# gl|
|000003f0| 6f 62 73 2e 68 20 68 75 | 6d 61 6e 2e 63 20 6c 6f |obs.h hu|man.c lo|
|00000400| 67 61 75 78 2e 63 20 6c | 6f 67 67 6c 6f 62 73 2e |gaux.c l|ogglobs.|
|00000410| 63 20 6c 6f 67 67 6c 6f | 62 73 2e 68 20 6e 6f 62 |c logglo|bs.h nob|
|00000420| 73 2e 36 20 6e 6f 62 73 | 2e 63 0a 23 20 20 20 70 |s.6 nobs|.c.# p|
|00000430| 65 67 73 2e 63 20 70 6c | 61 79 2e 63 20 70 6c 61 |egs.c pl|ay.c pla|
|00000440| 79 73 63 6f 72 65 2e 63 | 20 70 72 6f 67 61 75 78 |yscore.c| progaux|
|00000450| 2e 63 20 70 72 6f 67 72 | 61 6d 2e 63 20 73 68 6f |.c progr|am.c sho|
|00000460| 77 2e 63 20 73 68 75 66 | 2e 63 0a 23 20 20 20 76 |w.c shuf|.c.# v|
|00000470| 65 72 73 69 6f 6e 2e 63 | 20 77 67 6c 6f 62 73 2e |ersion.c| wglobs.|
|00000480| 63 20 77 69 6e 64 6f 77 | 2e 63 20 77 69 6e 64 6f |c window|.c windo|
|00000490| 77 2e 68 0a 23 20 57 72 | 61 70 70 65 64 20 62 79 |w.h.# Wr|apped by|
|000004a0| 20 62 69 6c 6c 72 40 73 | 61 61 62 20 6f 6e 20 46 | billr@s|aab on F|
|000004b0| 72 69 20 4d 61 79 20 32 | 30 20 31 34 3a 35 35 3a |ri May 2|0 14:55:|
|000004c0| 31 32 20 31 39 38 38 0a | 50 41 54 48 3d 2f 62 69 |12 1988.|PATH=/bi|
|000004d0| 6e 3a 2f 75 73 72 2f 62 | 69 6e 3a 2f 75 73 72 2f |n:/usr/b|in:/usr/|
|000004e0| 75 63 62 20 3b 20 65 78 | 70 6f 72 74 20 50 41 54 |ucb ; ex|port PAT|
|000004f0| 48 0a 69 66 20 74 65 73 | 74 20 2d 66 20 52 45 41 |H.if tes|t -f REA|
|00000500| 44 4d 45 20 2d 61 20 22 | 24 7b 31 7d 22 20 21 3d |DME -a "|${1}" !=|
|00000510| 20 22 2d 63 22 20 3b 20 | 74 68 65 6e 20 0a 20 20 | "-c" ; |then . |
|00000520| 65 63 68 6f 20 73 68 61 | 72 3a 20 57 69 6c 6c 20 |echo sha|r: Will |
|00000530| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|00000540| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 5c 22 52 |xisting |file \"R|
|00000550| 45 41 44 4d 45 5c 22 0a | 65 6c 73 65 0a 65 63 68 |EADME\".|else.ech|
|00000560| 6f 20 73 68 61 72 3a 20 | 45 78 74 72 61 63 74 69 |o shar: |Extracti|
|00000570| 6e 67 20 5c 22 52 45 41 | 44 4d 45 5c 22 20 5c 28 |ng \"REA|DME\" \(|
|00000580| 31 30 38 38 20 63 68 61 | 72 61 63 74 65 72 73 5c |1088 cha|racters\|
|00000590| 29 0a 73 65 64 20 22 73 | 2f 5e 58 2f 2f 22 20 3e |).sed "s|/^X//" >|
|000005a0| 52 45 41 44 4d 45 20 3c | 3c 27 45 4e 44 5f 4f 46 |README <|<'END_OF|
|000005b0| 5f 52 45 41 44 4d 45 27 | 0a 58 20 20 20 20 54 68 |_README'|.X Th|
|000005c0| 69 73 20 69 73 20 43 20 | 76 65 72 73 69 6f 6e 20 |is is C |version |
|000005d0| 31 2e 31 20 6f 66 20 74 | 68 65 20 43 6f 6c 6f 6e |1.1 of t|he Colon|
|000005e0| 65 6c 27 73 20 43 72 69 | 62 62 61 67 65 0a 58 50 |el's Cri|bbage.XP|
|000005f0| 72 6f 67 72 61 6d 2e 20 | 20 28 49 74 20 6f 72 69 |rogram. | (It ori|
|00000600| 67 69 6e 61 6c 6c 79 20 | 72 61 6e 20 69 6e 20 46 |ginally |ran in F|
|00000610| 4f 52 54 52 41 4e 20 49 | 56 20 6f 6e 20 61 20 43 |ORTRAN I|V on a C|
|00000620| 44 43 2c 0a 58 62 61 63 | 6b 20 69 6e 20 74 68 65 |DC,.Xbac|k in the|
|00000630| 20 37 30 27 73 2e 29 20 | 20 43 72 69 62 62 61 67 | 70's.) | Cribbag|
|00000640| 65 20 69 73 20 61 20 63 | 61 72 64 20 67 61 6d 65 |e is a c|ard game|
|00000650| 20 69 6e 76 65 6e 74 65 | 64 0a 58 62 79 20 53 69 | invente|d.Xby Si|
|00000660| 72 20 4a 6f 68 6e 20 53 | 75 63 6b 6c 69 6e 67 20 |r John S|uckling |
|00000670| 28 31 36 30 39 2d 31 36 | 34 32 29 2c 20 61 6e 64 |(1609-16|42), and|
|00000680| 20 69 66 20 79 6f 75 20 | 64 6f 6e 27 74 20 6b 6e | if you |don't kn|
|00000690| 6f 77 0a 58 74 68 65 20 | 72 75 6c 65 73 2c 20 74 |ow.Xthe |rules, t|
|000006a0| 68 69 73 20 70 72 6f 67 | 72 61 6d 20 77 69 6c 6c |his prog|ram will|
|000006b0| 20 65 69 74 68 65 72 20 | 64 65 6c 69 67 68 74 20 | either |delight |
|000006c0| 79 6f 75 20 6f 72 0a 58 | 67 69 76 65 20 79 6f 75 |you or.X|give you|
|000006d0| 20 61 20 68 65 61 64 61 | 63 68 65 2c 20 64 65 70 | a heada|che, dep|
|000006e0| 65 6e 64 69 6e 67 20 6f | 6e 20 79 6f 75 72 20 74 |ending o|n your t|
|000006f0| 65 6d 70 65 72 61 6d 65 | 6e 74 2e 0a 58 0a 58 20 |emperame|nt..X.X |
|00000700| 20 20 20 43 68 61 6e 67 | 65 73 20 66 72 6f 6d 20 | Chang|es from |
|00000710| 76 65 72 73 69 6f 6e 20 | 31 2e 30 3a 0a 58 0a 58 |version |1.0:.X.X|
|00000720| 31 2e 20 41 64 64 20 2d | 68 20 6f 70 74 69 6f 6e |1. Add -|h option|
|00000730| 2e 0a 58 32 2e 20 52 65 | 66 69 6e 65 20 64 69 73 |..X2. Re|fine dis|
|00000740| 63 61 72 64 20 61 6c 67 | 6f 72 69 74 68 6d 20 74 |card alg|orithm t|
|00000750| 6f 20 61 67 72 65 65 20 | 77 69 74 68 20 74 68 65 |o agree |with the|
|00000760| 20 6f 72 69 67 69 6e 61 | 6c 2e 0a 58 33 2e 20 46 | origina|l..X3. F|
|00000770| 69 78 20 61 6e 64 20 74 | 77 65 61 6b 20 73 63 72 |ix and t|weak scr|
|00000780| 65 65 6e 20 69 6e 74 65 | 72 66 61 63 65 20 62 75 |een inte|rface bu|
|00000790| 67 73 2e 0a 58 34 2e 20 | 46 69 78 20 62 75 67 20 |gs..X4. |Fix bug |
|000007a0| 69 6e 20 73 63 6f 72 69 | 6e 67 20 70 61 69 72 73 |in scori|ng pairs|
|000007b0| 20 6f 66 20 61 63 65 73 | 2e 0a 58 35 2e 20 41 64 | of aces|..X5. Ad|
|000007c0| 64 20 4f 2e 53 2e 20 61 | 6e 64 20 72 65 6c 61 74 |d O.S. a|nd relat|
|000007d0| 65 64 20 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ed confi|guration|
|000007e0| 20 6f 70 74 69 6f 6e 73 | 20 74 6f 20 4d 61 6b 65 | options| to Make|
|000007f0| 66 69 6c 65 2e 0a 58 0a | 58 20 20 20 20 41 6c 6c |file..X.|X All|
|00000800| 20 63 6f 6e 66 69 67 75 | 72 61 62 6c 65 73 20 61 | configu|rables a|
|00000810| 72 65 20 69 6e 20 74 68 | 65 20 4d 61 6b 65 66 69 |re in th|e Makefi|
|00000820| 6c 65 2e 20 20 42 65 73 | 69 64 65 73 20 74 68 65 |le. Bes|ides the|
|00000830| 0a 58 4f 53 20 64 65 70 | 65 6e 64 65 6e 63 69 65 |.XOS dep|endencie|
|00000840| 73 2c 20 74 68 65 72 65 | 20 61 72 65 20 74 77 6f |s, there| are two|
|00000850| 20 69 6e 73 74 61 6c 6c | 61 74 69 6f 6e 20 6f 70 | install|ation op|
|00000860| 74 69 6f 6e 73 3a 0a 58 | 0a 58 31 2e 20 53 75 70 |tions:.X|.X1. Sup|
|00000870| 70 72 65 73 73 20 74 68 | 65 20 2d 68 20 28 68 69 |press th|e -h (hi|
|00000880| 6e 74 29 20 63 6f 6d 6d | 61 6e 64 2d 6c 69 6e 65 |nt) comm|and-line|
|00000890| 20 6f 70 74 69 6f 6e 2e | 0a 58 32 2e 20 55 73 65 | option.|.X2. Use|
|000008a0| 20 27 67 27 20 69 6e 73 | 74 65 61 64 20 6f 66 20 | 'g' ins|tead of |
|000008b0| 63 61 72 72 69 61 67 65 | 2d 72 65 74 75 72 6e 20 |carriage|-return |
|000008c0| 77 68 65 6e 20 64 69 73 | 63 61 72 64 69 6e 67 2e |when dis|carding.|
|000008d0| 0a 58 0a 58 49 66 20 79 | 6f 75 20 72 75 6e 20 75 |.X.XIf y|ou run u|
|000008e0| 6e 64 65 72 20 58 65 6e | 69 78 2c 20 79 6f 75 20 |nder Xen|ix, you |
|000008f0| 77 69 6c 6c 20 70 72 6f | 62 61 62 6c 79 20 6e 65 |will pro|bably ne|
|00000900| 65 64 20 6f 70 74 69 6f | 6e 20 32 2e 0a 58 54 68 |ed optio|n 2..XTh|
|00000910| 69 73 20 72 65 6c 65 61 | 73 65 20 77 6f 72 6b 73 |is relea|se works|
|00000920| 20 75 6e 64 65 72 20 55 | 6c 74 72 69 78 3b 20 74 | under U|ltrix; t|
|00000930| 68 65 20 70 72 65 76 69 | 6f 75 73 20 72 65 6c 65 |he previ|ous rele|
|00000940| 61 73 65 20 64 69 64 0a | 58 6e 6f 74 2e 0a 58 0a |ase did.|Xnot..X.|
|00000950| 58 20 20 20 20 41 73 20 | 62 65 66 6f 72 65 2c 20 |X As |before, |
|00000960| 66 65 65 64 20 62 61 63 | 6b 20 74 6f 20 69 68 6e |feed bac|k to ihn|
|00000970| 70 34 21 6f 64 79 73 73 | 65 79 21 67 6c 73 2e 20 |p4!odyss|ey!gls. |
|00000980| 20 42 75 67 20 72 65 70 | 6f 72 74 73 0a 58 61 72 | Bug rep|orts.Xar|
|00000990| 65 20 77 65 6c 63 6f 6d | 65 2e 20 20 53 75 67 67 |e welcom|e. Sugg|
|000009a0| 65 73 74 69 6f 6e 73 20 | 66 6f 72 20 65 6e 68 61 |estions |for enha|
|000009b0| 6e 63 65 6d 65 6e 74 73 | 20 6d 61 79 20 62 65 20 |ncements| may be |
|000009c0| 77 65 6c 63 6f 6d 65 2c | 0a 58 62 75 74 20 62 65 |welcome,|.Xbut be|
|000009d0| 6c 6c 73 20 61 6e 64 20 | 77 68 69 73 74 6c 65 73 |lls and |whistles|
|000009e0| 20 77 6f 75 6c 64 20 62 | 65 20 6f 75 74 20 6f 66 | would b|e out of|
|000009f0| 20 70 6c 61 63 65 2e 0a | 58 0a 58 52 65 64 20 48 | place..|X.XRed H|
|00000a00| 69 6c 6c 20 52 6f 61 64 | 0a 58 41 70 72 69 6c 20 |ill Road|.XApril |
|00000a10| 39 2c 20 31 39 38 38 0a | 45 4e 44 5f 4f 46 5f 52 |9, 1988.|END_OF_R|
|00000a20| 45 41 44 4d 45 0a 69 66 | 20 74 65 73 74 20 31 30 |EADME.if| test 10|
|00000a30| 38 38 20 2d 6e 65 20 60 | 77 63 20 2d 63 20 3c 52 |88 -ne `|wc -c <R|
|00000a40| 45 41 44 4d 45 60 3b 20 | 74 68 65 6e 0a 20 20 20 |EADME`; |then. |
|00000a50| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 5c 22 52 45 | echo sh|ar: \"RE|
|00000a60| 41 44 4d 45 5c 22 20 75 | 6e 70 61 63 6b 65 64 20 |ADME\" u|npacked |
|00000a70| 77 69 74 68 20 77 72 6f | 6e 67 20 73 69 7a 65 21 |with wro|ng size!|
|00000a80| 0a 66 69 0a 23 20 65 6e | 64 20 6f 66 20 6f 76 65 |.fi.# en|d of ove|
|00000a90| 72 77 72 69 74 69 6e 67 | 20 63 68 65 63 6b 0a 66 |rwriting| check.f|
|00000aa0| 69 0a 69 66 20 74 65 73 | 74 20 2d 66 20 4d 41 4e |i.if tes|t -f MAN|
|00000ab0| 49 46 45 53 54 20 2d 61 | 20 22 24 7b 31 7d 22 20 |IFEST -a| "${1}" |
|00000ac0| 21 3d 20 22 2d 63 22 20 | 3b 20 74 68 65 6e 20 0a |!= "-c" |; then .|
|00000ad0| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 57 69 6c | echo s|har: Wil|
|00000ae0| 6c 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 65 |l not ov|er-write|
|00000af0| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 5c | existin|g file \|
|00000b00| 22 4d 41 4e 49 46 45 53 | 54 5c 22 0a 65 6c 73 65 |"MANIFES|T\".else|
|00000b10| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 45 78 74 72 |.echo sh|ar: Extr|
|00000b20| 61 63 74 69 6e 67 20 5c | 22 4d 41 4e 49 46 45 53 |acting \|"MANIFES|
|00000b30| 54 5c 22 20 5c 28 38 36 | 34 20 63 68 61 72 61 63 |T\" \(86|4 charac|
|00000b40| 74 65 72 73 5c 29 0a 73 | 65 64 20 22 73 2f 5e 58 |ters\).s|ed "s/^X|
|00000b50| 2f 2f 22 20 3e 4d 41 4e | 49 46 45 53 54 20 3c 3c |//" >MAN|IFEST <<|
|00000b60| 27 45 4e 44 5f 4f 46 5f | 4d 41 4e 49 46 45 53 54 |'END_OF_|MANIFEST|
|00000b70| 27 0a 58 20 20 20 46 69 | 6c 65 20 4e 61 6d 65 09 |'.X Fi|le Name.|
|00000b80| 09 41 72 63 68 69 76 65 | 20 23 09 44 65 73 63 72 |.Archive| #.Descr|
|00000b90| 69 70 74 69 6f 6e 0a 58 | 2d 2d 2d 2d 2d 2d 2d 2d |iption.X|--------|
|00000ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bd0| 2d 2d 2d 0a 58 20 4d 41 | 4e 49 46 45 53 54 20 20 |---.X MA|NIFEST |
|00000be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000bf0| 31 09 54 68 69 73 20 73 | 68 69 70 70 69 6e 67 20 |1.This s|hipping |
|00000c00| 6c 69 73 74 0a 58 20 4d | 61 6b 65 66 69 6c 65 20 |list.X M|akefile |
|00000c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c20| 20 31 09 0a 58 20 52 45 | 41 44 4d 45 20 20 20 20 | 1..X RE|ADME |
|00000c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c40| 31 09 0a 58 20 64 65 61 | 6c 2e 63 20 20 20 20 20 |1..X dea|l.c |
|00000c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 31 | | 1|
|00000c60| 09 0a 58 20 64 65 66 73 | 2e 68 20 20 20 20 20 20 |..X defs|.h |
|00000c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 31 09 | | 1.|
|00000c80| 0a 58 20 67 61 6d 65 73 | 63 6f 72 65 2e 63 20 20 |.X games|core.c |
|00000c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 31 09 0a | | 1..|
|00000ca0| 58 20 67 6c 6f 62 73 2e | 63 20 20 20 20 20 20 20 |X globs.|c |
|00000cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 31 09 0a 58 | | 1..X|
|00000cc0| 20 67 6c 6f 62 73 2e 68 | 20 20 20 20 20 20 20 20 | globs.h| |
|00000cd0| 20 20 20 20 20 20 20 20 | 20 20 20 31 09 0a 58 20 | | 1..X |
|00000ce0| 68 75 6d 61 6e 2e 63 20 | 20 20 20 20 20 20 20 20 |human.c | |
|00000cf0| 20 20 20 20 20 20 20 20 | 20 20 31 09 0a 58 20 6c | | 1..X l|
|00000d00| 6f 67 61 75 78 2e 63 20 | 20 20 20 20 20 20 20 20 |ogaux.c | |
|00000d10| 20 20 20 20 20 20 20 20 | 20 31 09 0a 58 20 6c 6f | | 1..X lo|
|00000d20| 67 67 6c 6f 62 73 2e 63 | 20 20 20 20 20 20 20 20 |gglobs.c| |
|00000d30| 20 20 20 20 20 20 20 20 | 31 09 0a 58 20 6c 6f 67 | |1..X log|
|00000d40| 67 6c 6f 62 73 2e 68 20 | 20 20 20 20 20 20 20 20 |globs.h | |
|00000d50| 20 20 20 20 20 20 20 31 | 09 0a 58 20 6e 6f 62 73 | 1|..X nobs|
|00000d60| 2e 36 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.6 | |
|00000d70| 20 20 20 20 20 20 31 09 | 0a 58 20 6e 6f 62 73 2e | 1.|.X nobs.|
|00000d80| 63 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |c | |
|00000d90| 20 20 20 20 20 31 09 0a | 58 20 70 65 67 73 2e 63 | 1..|X pegs.c|
|00000da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000db0| 20 20 20 20 31 09 0a 58 | 20 70 6c 61 79 2e 63 20 | 1..X| play.c |
|00000dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000dd0| 20 20 20 31 09 0a 58 20 | 70 6c 61 79 73 63 6f 72 | 1..X |playscor|
|00000de0| 65 2e 63 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e.c | |
|00000df0| 20 20 31 09 0a 58 20 70 | 72 6f 67 61 75 78 2e 63 | 1..X p|rogaux.c|
|00000e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e10| 20 31 09 0a 58 20 70 72 | 6f 67 72 61 6d 2e 63 20 | 1..X pr|ogram.c |
|00000e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e30| 31 09 0a 58 20 73 68 6f | 77 2e 63 20 20 20 20 20 |1..X sho|w.c |
|00000e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 31 | | 1|
|00000e50| 09 0a 58 20 73 68 75 66 | 2e 63 20 20 20 20 20 20 |..X shuf|.c |
|00000e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 31 09 | | 1.|
|00000e70| 0a 58 20 76 65 72 73 69 | 6f 6e 2e 63 20 20 20 20 |.X versi|on.c |
|00000e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 31 09 0a | | 1..|
|00000e90| 58 20 77 67 6c 6f 62 73 | 2e 63 20 20 20 20 20 20 |X wglobs|.c |
|00000ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 31 09 0a 58 | | 1..X|
|00000eb0| 20 77 69 6e 64 6f 77 2e | 63 20 20 20 20 20 20 20 | window.|c |
|00000ec0| 20 20 20 20 20 20 20 20 | 20 20 20 31 09 0a 58 20 | | 1..X |
|00000ed0| 77 69 6e 64 6f 77 2e 68 | 20 20 20 20 20 20 20 20 |window.h| |
|00000ee0| 20 20 20 20 20 20 20 20 | 20 20 31 09 0a 45 4e 44 | | 1..END|
|00000ef0| 5f 4f 46 5f 4d 41 4e 49 | 46 45 53 54 0a 69 66 20 |_OF_MANI|FEST.if |
|00000f00| 74 65 73 74 20 38 36 34 | 20 2d 6e 65 20 60 77 63 |test 864| -ne `wc|
|00000f10| 20 2d 63 20 3c 4d 41 4e | 49 46 45 53 54 60 3b 20 | -c <MAN|IFEST`; |
|00000f20| 74 68 65 6e 0a 20 20 20 | 20 65 63 68 6f 20 73 68 |then. | echo sh|
|00000f30| 61 72 3a 20 5c 22 4d 41 | 4e 49 46 45 53 54 5c 22 |ar: \"MA|NIFEST\"|
|00000f40| 20 75 6e 70 61 63 6b 65 | 64 20 77 69 74 68 20 77 | unpacke|d with w|
|00000f50| 72 6f 6e 67 20 73 69 7a | 65 21 0a 66 69 0a 23 20 |rong siz|e!.fi.# |
|00000f60| 65 6e 64 20 6f 66 20 6f | 76 65 72 77 72 69 74 69 |end of o|verwriti|
|00000f70| 6e 67 20 63 68 65 63 6b | 0a 66 69 0a 69 66 20 74 |ng check|.fi.if t|
|00000f80| 65 73 74 20 2d 66 20 4d | 61 6b 65 66 69 6c 65 20 |est -f M|akefile |
|00000f90| 2d 61 20 22 24 7b 31 7d | 22 20 21 3d 20 22 2d 63 |-a "${1}|" != "-c|
|00000fa0| 22 20 3b 20 74 68 65 6e | 20 0a 20 20 65 63 68 6f |" ; then| . echo|
|00000fb0| 20 73 68 61 72 3a 20 57 | 69 6c 6c 20 6e 6f 74 20 | shar: W|ill not |
|00000fc0| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00000fd0| 69 6e 67 20 66 69 6c 65 | 20 5c 22 4d 61 6b 65 66 |ing file| \"Makef|
|00000fe0| 69 6c 65 5c 22 0a 65 6c | 73 65 0a 65 63 68 6f 20 |ile\".el|se.echo |
|00000ff0| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|00001000| 20 5c 22 4d 61 6b 65 66 | 69 6c 65 5c 22 20 5c 28 | \"Makef|ile\" \(|
|00001010| 31 37 35 37 20 63 68 61 | 72 61 63 74 65 72 73 5c |1757 cha|racters\|
|00001020| 29 0a 73 65 64 20 22 73 | 2f 5e 58 2f 2f 22 20 3e |).sed "s|/^X//" >|
|00001030| 4d 61 6b 65 66 69 6c 65 | 20 3c 3c 27 45 4e 44 5f |Makefile| <<'END_|
|00001040| 4f 46 5f 4d 61 6b 65 66 | 69 6c 65 27 0a 58 23 09 |OF_Makef|ile'.X#.|
|00001050| 4d 61 6b 65 66 69 6c 65 | 20 66 6f 72 20 6e 6f 62 |Makefile| for nob|
|00001060| 73 2e 0a 58 23 09 47 2e | 20 4c 2e 20 53 69 63 68 |s..X#.G.| L. Sich|
|00001070| 65 72 6d 61 6e 20 28 69 | 68 6e 70 34 21 6f 64 79 |erman (i|hnp4!ody|
|00001080| 73 73 65 79 21 67 6c 73 | 29 2e 20 20 4d 61 72 63 |ssey!gls|). Marc|
|00001090| 68 20 31 39 38 38 2e 20 | 20 41 70 72 69 6c 20 31 |h 1988. | April 1|
|000010a0| 39 38 38 2e 0a 58 23 09 | 42 53 44 20 66 69 78 65 |988..X#.|BSD fixe|
|000010b0| 73 20 62 79 20 73 61 61 | 62 21 62 69 6c 6c 72 2e |s by saa|b!billr.|
|000010c0| 0a 58 23 09 58 65 6e 69 | 78 20 66 69 78 65 73 20 |.X#.Xeni|x fixes |
|000010d0| 62 79 20 31 73 6f 6c 61 | 72 69 61 21 67 6f 72 64 |by 1sola|ria!gord|
|000010e0| 6f 6e 2e 0a 58 23 2d 2d | 2d 2d 2d 2d 2d 0a 58 23 |on..X#--|-----.X#|
|000010f0| 20 43 4f 4e 46 49 47 55 | 52 41 42 4c 45 20 50 41 | CONFIGU|RABLE PA|
|00001100| 52 41 4d 45 54 45 52 53 | 3a 0a 58 0a 58 23 20 44 |RAMETERS|:.X.X# D|
|00001110| 65 66 69 6e 65 20 64 65 | 73 74 69 6e 61 74 69 6f |efine de|stinatio|
|00001120| 6e 73 20 66 6f 72 20 65 | 78 65 63 75 74 61 62 6c |ns for e|xecutabl|
|00001130| 65 20 61 6e 64 20 6d 61 | 6e 70 61 67 65 3a 0a 58 |e and ma|npage:.X|
|00001140| 42 49 4e 44 45 53 54 3d | 24 24 48 4f 4d 45 2f 62 |BINDEST=|$$HOME/b|
|00001150| 69 6e 2f 6e 6f 62 73 0a | 58 4d 41 4e 44 45 53 54 |in/nobs.|XMANDEST|
|00001160| 3d 24 24 48 4f 4d 45 2f | 6d 61 6e 2f 6e 6f 62 73 |=$$HOME/|man/nobs|
|00001170| 2e 36 0a 58 0a 58 23 20 | 44 65 66 69 6e 65 20 42 |.6.X.X# |Define B|
|00001180| 53 44 20 66 6f 72 20 42 | 65 72 6b 65 6c 65 79 2c |SD for B|erkeley,|
|00001190| 20 53 75 6e 2c 20 58 65 | 6e 69 78 2c 20 65 74 63 | Sun, Xe|nix, etc|
|000011a0| 2e 0a 58 23 20 42 53 44 | 46 4c 41 47 3d 20 2d 44 |..X# BSD|FLAG= -D|
|000011b0| 42 53 44 0a 58 42 53 44 | 46 4c 41 47 3d 0a 58 0a |BSD.XBSD|FLAG=.X.|
|000011c0| 58 23 20 44 65 66 69 6e | 65 20 46 4c 4f 41 54 20 |X# Defin|e FLOAT |
|000011d0| 66 6f 72 20 73 79 73 74 | 65 6d 73 20 74 68 61 74 |for syst|ems that|
|000011e0| 20 6e 65 65 64 20 61 20 | 66 6c 6f 61 74 69 6e 67 | need a |floating|
|000011f0| 2d 70 6f 69 6e 74 0a 58 | 23 20 69 6e 74 65 72 70 |-point.X|# interp|
|00001200| 72 65 74 65 72 20 6c 69 | 6e 6b 65 64 20 69 6e 2e |reter li|nked in.|
|00001210| 20 20 28 33 62 35 2c 20 | 55 6e 69 78 28 54 4d 29 | (3b5, |Unix(TM)|
|00001220| 20 50 43 20 28 3f 29 2c | 20 65 74 63 2e 29 0a 58 | PC (?),| etc.).X|
|00001230| 23 20 46 4c 4f 41 54 3d | 20 2d 66 0a 58 46 4c 4f |# FLOAT=| -f.XFLO|
|00001240| 41 54 3d 0a 58 0a 58 23 | 20 49 66 20 42 53 44 20 |AT=.X.X#| If BSD |
|00001250| 6f 72 20 58 65 6e 69 78 | 2c 20 79 6f 75 20 6e 65 |or Xenix|, you ne|
|00001260| 65 64 20 2d 6c 74 65 72 | 6d 63 61 70 2e 0a 58 23 |ed -lter|mcap..X#|
|00001270| 20 49 66 20 58 65 6e 69 | 78 2c 20 79 6f 75 20 6e | If Xeni|x, you n|
|00001280| 65 65 64 20 2d 6c 78 2e | 0a 58 23 20 4c 49 42 3d |eed -lx.|.X# LIB=|
|00001290| 20 2d 6c 63 75 72 73 65 | 73 20 2d 6c 74 65 72 6d | -lcurse|s -lterm|
|000012a0| 63 61 70 20 2d 6c 78 0a | 58 4c 49 42 3d 20 2d 6c |cap -lx.|XLIB= -l|
|000012b0| 63 75 72 73 65 73 0a 58 | 0a 58 23 20 49 66 20 58 |curses.X|.X# If X|
|000012c0| 65 6e 69 78 2c 20 79 6f | 75 20 6e 65 65 64 20 2d |enix, yo|u need -|
|000012d0| 4d 6d 20 61 6e 64 20 2d | 46 20 32 30 30 30 2e 0a |Mm and -|F 2000..|
|000012e0| 58 23 20 58 46 4c 47 53 | 3d 20 2d 4d 6d 20 2d 46 |X# XFLGS|= -Mm -F|
|000012f0| 20 32 30 30 30 0a 58 58 | 46 4c 47 53 3d 0a 58 0a | 2000.XX|FLGS=.X.|
|00001300| 58 23 20 44 65 66 69 6e | 65 20 4e 4f 48 49 4e 54 |X# Defin|e NOHINT|
|00001310| 20 74 6f 20 64 69 73 61 | 62 6c 65 20 74 68 65 20 | to disa|ble the |
|00001320| 2d 68 20 6f 70 74 69 6f | 6e 2e 0a 58 23 20 4e 4f |-h optio|n..X# NO|
|00001330| 48 49 4e 54 46 4c 41 47 | 3d 20 2d 44 4e 4f 48 49 |HINTFLAG|= -DNOHI|
|00001340| 4e 54 0a 58 4e 4f 48 49 | 4e 54 46 4c 41 47 3d 20 |NT.XNOHI|NTFLAG= |
|00001350| 0a 58 0a 58 23 20 44 65 | 66 69 6e 65 20 47 44 49 |.X.X# De|fine GDI|
|00001360| 53 43 20 74 6f 20 64 69 | 73 63 61 72 64 20 77 69 |SC to di|scard wi|
|00001370| 74 68 20 27 67 27 20 69 | 6e 73 74 65 61 64 20 6f |th 'g' i|nstead o|
|00001380| 66 20 43 52 2e 0a 58 23 | 20 47 44 49 53 43 46 4c |f CR..X#| GDISCFL|
|00001390| 41 47 3d 20 2d 44 47 44 | 49 53 43 0a 58 47 44 49 |AG= -DGD|ISC.XGDI|
|000013a0| 53 43 46 4c 41 47 3d 0a | 58 0a 58 23 20 45 6e 64 |SCFLAG=.|X.X# End|
|000013b0| 20 6f 66 20 63 6f 6e 66 | 69 67 75 72 61 62 6c 65 | of conf|igurable|
|000013c0| 20 70 61 72 61 6d 65 74 | 65 72 73 2e 20 20 47 6f | paramet|ers. Go|
|000013d0| 6f 64 20 6c 75 63 6b 21 | 0a 58 0a 58 43 46 4c 41 |od luck!|.X.XCFLA|
|000013e0| 47 53 3d 20 2d 4f 20 24 | 28 42 53 44 46 4c 41 47 |GS= -O $|(BSDFLAG|
|000013f0| 29 20 24 28 46 4c 4f 41 | 54 29 20 24 28 58 46 4c |) $(FLOA|T) $(XFL|
|00001400| 47 53 29 20 24 28 47 44 | 49 53 43 46 4c 41 47 29 |GS) $(GD|ISCFLAG)|
|00001410| 20 24 28 4e 4f 48 49 4e | 54 46 4c 41 47 29 0a 58 | $(NOHIN|TFLAG).X|
|00001420| 0a 58 4f 42 4a 53 20 3d | 20 6e 6f 62 73 2e 6f 20 |.XOBJS =| nobs.o |
|00001430| 6c 6f 67 67 6c 6f 62 73 | 2e 6f 20 77 69 6e 64 6f |logglobs|.o windo|
|00001440| 77 2e 6f 20 67 61 6d 65 | 73 63 6f 72 65 2e 6f 20 |w.o game|score.o |
|00001450| 64 65 61 6c 2e 6f 20 73 | 68 75 66 2e 6f 20 70 6c |deal.o s|huf.o pl|
|00001460| 61 79 2e 6f 20 68 75 6d | 61 6e 2e 6f 20 5c 0a 58 |ay.o hum|an.o \.X|
|00001470| 20 20 20 70 65 67 73 2e | 6f 20 70 72 6f 67 72 61 | pegs.|o progra|
|00001480| 6d 2e 6f 20 70 6c 61 79 | 73 63 6f 72 65 2e 6f 20 |m.o play|score.o |
|00001490| 73 68 6f 77 2e 6f 20 70 | 72 6f 67 61 75 78 2e 6f |show.o p|rogaux.o|
|000014a0| 20 6c 6f 67 61 75 78 2e | 6f 20 77 67 6c 6f 62 73 | logaux.|o wglobs|
|000014b0| 2e 6f 20 67 6c 6f 62 73 | 2e 6f 20 5c 0a 58 20 20 |.o globs|.o \.X |
|000014c0| 20 76 65 72 73 69 6f 6e | 2e 6f 0a 58 0a 58 53 48 | version|.o.X.XSH|
|000014d0| 41 52 53 20 3d 20 6e 6f | 62 73 2e 63 20 6c 6f 67 |ARS = no|bs.c log|
|000014e0| 67 6c 6f 62 73 2e 63 20 | 77 69 6e 64 6f 77 2e 63 |globs.c |window.c|
|000014f0| 20 67 61 6d 65 73 63 6f | 72 65 2e 63 20 64 65 61 | gamesco|re.c dea|
|00001500| 6c 2e 63 20 73 68 75 66 | 2e 63 20 70 6c 61 79 2e |l.c shuf|.c play.|
|00001510| 63 20 68 75 6d 61 6e 2e | 63 20 5c 0a 58 20 20 20 |c human.|c \.X |
|00001520| 70 65 67 73 2e 63 20 70 | 72 6f 67 72 61 6d 2e 63 |pegs.c p|rogram.c|
|00001530| 20 70 6c 61 79 73 63 6f | 72 65 2e 63 20 73 68 6f | playsco|re.c sho|
|00001540| 77 2e 63 20 70 72 6f 67 | 61 75 78 2e 63 20 6c 6f |w.c prog|aux.c lo|
|00001550| 67 61 75 78 2e 63 20 77 | 67 6c 6f 62 73 2e 63 20 |gaux.c w|globs.c |
|00001560| 5c 0a 58 20 20 20 67 6c | 6f 62 73 2e 63 20 76 65 |\.X gl|obs.c ve|
|00001570| 72 73 69 6f 6e 2e 63 20 | 64 65 66 73 2e 68 20 67 |rsion.c |defs.h g|
|00001580| 6c 6f 62 73 2e 68 20 6c | 6f 67 67 6c 6f 62 73 2e |lobs.h l|ogglobs.|
|00001590| 68 20 77 69 6e 64 6f 77 | 2e 68 20 6e 6f 62 73 2e |h window|.h nobs.|
|000015a0| 36 20 4d 61 6b 65 66 69 | 6c 65 20 52 45 41 44 4d |6 Makefi|le READM|
|000015b0| 45 0a 58 0a 58 61 6c 6c | 3a 20 6e 6f 62 73 0a 58 |E.X.Xall|: nobs.X|
|000015c0| 6e 6f 62 73 3a 20 24 28 | 4f 42 4a 53 29 0a 58 09 |nobs: $(|OBJS).X.|
|000015d0| 63 63 20 24 28 43 46 4c | 41 47 53 29 20 2d 6f 20 |cc $(CFL|AGS) -o |
|000015e0| 6e 6f 62 73 20 24 28 4f | 42 4a 53 29 20 24 28 4c |nobs $(O|BJS) $(L|
|000015f0| 49 42 29 0a 58 24 28 4f | 42 4a 53 29 3a 20 64 65 |IB).X$(O|BJS): de|
|00001600| 66 73 2e 68 20 67 6c 6f | 62 73 2e 68 0a 58 6c 6f |fs.h glo|bs.h.Xlo|
|00001610| 67 2e 6f 20 70 72 6f 67 | 61 75 78 2e 6f 20 70 72 |g.o prog|aux.o pr|
|00001620| 6f 67 72 61 6d 2e 6f 3a | 20 6c 6f 67 67 6c 6f 62 |ogram.o:| logglob|
|00001630| 73 2e 68 0a 58 70 6c 61 | 79 2e 6f 20 70 72 6f 67 |s.h.Xpla|y.o prog|
|00001640| 72 61 6d 2e 6f 20 68 75 | 6d 61 6e 2e 6f 20 67 61 |ram.o hu|man.o ga|
|00001650| 6d 65 73 63 6f 72 65 2e | 6f 20 70 65 67 73 2e 6f |mescore.|o pegs.o|
|00001660| 20 77 69 6e 64 6f 77 2e | 6f 20 73 68 6f 77 2e 6f | window.|o show.o|
|00001670| 3a 20 77 69 6e 64 6f 77 | 2e 68 0a 58 0a 58 69 6e |: window|.h.X.Xin|
|00001680| 73 74 61 6c 6c 3a 20 6e | 6f 62 73 20 6e 6f 62 73 |stall: n|obs nobs|
|00001690| 2e 36 0a 58 09 72 6d 20 | 2d 66 20 24 28 42 49 4e |.6.X.rm |-f $(BIN|
|000016a0| 44 45 53 54 29 20 24 28 | 4d 41 4e 44 45 53 54 29 |DEST) $(|MANDEST)|
|000016b0| 0a 58 09 63 70 20 6e 6f | 62 73 20 24 28 42 49 4e |.X.cp no|bs $(BIN|
|000016c0| 44 45 53 54 29 0a 58 09 | 65 63 68 6f 20 22 2e 64 |DEST).X.|echo ".d|
|000016d0| 73 20 6e 68 20 24 28 4e | 4f 48 49 4e 54 46 4c 41 |s nh $(N|OHINTFLA|
|000016e0| 47 29 22 20 3e 20 24 28 | 4d 41 4e 44 45 53 54 29 |G)" > $(|MANDEST)|
|000016f0| 0a 58 09 63 61 74 20 6e | 6f 62 73 2e 36 20 3e 3e |.X.cat n|obs.6 >>|
|00001700| 20 24 28 4d 41 4e 44 45 | 53 54 29 0a 58 0a 58 73 | $(MANDE|ST).X.Xs|
|00001710| 68 61 72 3a 20 6e 6f 62 | 73 2e 73 68 61 72 0a 58 |har: nob|s.shar.X|
|00001720| 6e 6f 62 73 2e 73 68 61 | 72 3a 20 24 28 53 48 41 |nobs.sha|r: $(SHA|
|00001730| 52 53 29 0a 58 09 73 68 | 61 72 20 24 28 53 48 41 |RS).X.sh|ar $(SHA|
|00001740| 52 53 29 20 3e 20 24 40 | 0a 58 0a 58 63 6c 65 61 |RS) > $@|.X.Xclea|
|00001750| 6e 3a 0a 58 09 72 6d 20 | 2d 66 20 6e 6f 62 73 20 |n:.X.rm |-f nobs |
|00001760| 2a 2e 6f 20 6e 6f 62 73 | 2e 73 68 61 72 0a 45 4e |*.o nobs|.shar.EN|
|00001770| 44 5f 4f 46 5f 4d 61 6b | 65 66 69 6c 65 0a 69 66 |D_OF_Mak|efile.if|
|00001780| 20 74 65 73 74 20 31 37 | 35 37 20 2d 6e 65 20 60 | test 17|57 -ne `|
|00001790| 77 63 20 2d 63 20 3c 4d | 61 6b 65 66 69 6c 65 60 |wc -c <M|akefile`|
|000017a0| 3b 20 74 68 65 6e 0a 20 | 20 20 20 65 63 68 6f 20 |; then. | echo |
|000017b0| 73 68 61 72 3a 20 5c 22 | 4d 61 6b 65 66 69 6c 65 |shar: \"|Makefile|
|000017c0| 5c 22 20 75 6e 70 61 63 | 6b 65 64 20 77 69 74 68 |\" unpac|ked with|
|000017d0| 20 77 72 6f 6e 67 20 73 | 69 7a 65 21 0a 66 69 0a | wrong s|ize!.fi.|
|000017e0| 23 20 65 6e 64 20 6f 66 | 20 6f 76 65 72 77 72 69 |# end of| overwri|
|000017f0| 74 69 6e 67 20 63 68 65 | 63 6b 0a 66 69 0a 69 66 |ting che|ck.fi.if|
|00001800| 20 74 65 73 74 20 2d 66 | 20 64 65 61 6c 2e 63 20 | test -f| deal.c |
|00001810| 2d 61 20 22 24 7b 31 7d | 22 20 21 3d 20 22 2d 63 |-a "${1}|" != "-c|
|00001820| 22 20 3b 20 74 68 65 6e | 20 0a 20 20 65 63 68 6f |" ; then| . echo|
|00001830| 20 73 68 61 72 3a 20 57 | 69 6c 6c 20 6e 6f 74 20 | shar: W|ill not |
|00001840| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00001850| 69 6e 67 20 66 69 6c 65 | 20 5c 22 64 65 61 6c 2e |ing file| \"deal.|
|00001860| 63 5c 22 0a 65 6c 73 65 | 0a 65 63 68 6f 20 73 68 |c\".else|.echo sh|
|00001870| 61 72 3a 20 45 78 74 72 | 61 63 74 69 6e 67 20 5c |ar: Extr|acting \|
|00001880| 22 64 65 61 6c 2e 63 5c | 22 20 5c 28 32 31 38 20 |"deal.c\|" \(218 |
|00001890| 63 68 61 72 61 63 74 65 | 72 73 5c 29 0a 73 65 64 |characte|rs\).sed|
|000018a0| 20 22 73 2f 5e 58 2f 2f | 22 20 3e 64 65 61 6c 2e | "s/^X//|" >deal.|
|000018b0| 63 20 3c 3c 27 45 4e 44 | 5f 4f 46 5f 64 65 61 6c |c <<'END|_OF_deal|
|000018c0| 2e 63 27 0a 58 23 69 6e | 63 6c 75 64 65 20 22 64 |.c'.X#in|clude "d|
|000018d0| 65 66 73 2e 68 22 0a 58 | 23 69 6e 63 6c 75 64 65 |efs.h".X|#include|
|000018e0| 20 22 67 6c 6f 62 73 2e | 68 22 0a 58 0a 58 64 65 | "globs.|h".X.Xde|
|000018f0| 61 6c 28 29 0a 58 7b 0a | 58 09 69 6e 74 20 69 3b |al().X{.|X.int i;|
|00001900| 0a 58 09 43 41 52 44 20 | 2a 70 61 63 6b 70 3b 0a |.X.CARD |*packp;.|
|00001910| 58 09 73 68 75 66 28 29 | 3b 0a 58 09 70 61 63 6b |X.shuf()|;.X.pack|
|00001920| 70 20 3d 20 70 61 63 6b | 2b 33 39 3b 09 2f 2a 20 |p = pack|+39;./* |
|00001930| 4f 6e 6c 79 20 74 68 65 | 20 6c 61 73 74 20 31 33 |Only the| last 13|
|00001940| 20 63 61 72 64 73 20 2a | 2f 0a 58 09 66 6f 72 20 | cards *|/.X.for |
|00001950| 28 69 3d 30 3b 20 69 3c | 36 3b 20 69 2b 2b 29 20 |(i=0; i<|6; i++) |
|00001960| 7b 0a 58 09 09 68 61 6e | 64 5b 30 5d 5b 69 5d 20 |{.X..han|d[0][i] |
|00001970| 3d 20 2a 70 61 63 6b 70 | 2b 2b 3b 0a 58 09 09 68 |= *packp|++;.X..h|
|00001980| 61 6e 64 5b 31 5d 5b 69 | 5d 20 3d 20 2a 70 61 63 |and[1][i|] = *pac|
|00001990| 6b 70 2b 2b 3b 0a 58 09 | 7d 0a 58 09 63 75 74 20 |kp++;.X.|}.X.cut |
|000019a0| 3d 20 2a 70 61 63 6b 70 | 3b 0a 58 7d 0a 45 4e 44 |= *packp|;.X}.END|
|000019b0| 5f 4f 46 5f 64 65 61 6c | 2e 63 0a 69 66 20 74 65 |_OF_deal|.c.if te|
|000019c0| 73 74 20 32 31 38 20 2d | 6e 65 20 60 77 63 20 2d |st 218 -|ne `wc -|
|000019d0| 63 20 3c 64 65 61 6c 2e | 63 60 3b 20 74 68 65 6e |c <deal.|c`; then|
|000019e0| 0a 20 20 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |. ech|o shar: |
|000019f0| 5c 22 64 65 61 6c 2e 63 | 5c 22 20 75 6e 70 61 63 |\"deal.c|\" unpac|
|00001a00| 6b 65 64 20 77 69 74 68 | 20 77 72 6f 6e 67 20 73 |ked with| wrong s|
|00001a10| 69 7a 65 21 0a 66 69 0a | 23 20 65 6e 64 20 6f 66 |ize!.fi.|# end of|
|00001a20| 20 6f 76 65 72 77 72 69 | 74 69 6e 67 20 63 68 65 | overwri|ting che|
|00001a30| 63 6b 0a 66 69 0a 69 66 | 20 74 65 73 74 20 2d 66 |ck.fi.if| test -f|
|00001a40| 20 64 65 66 73 2e 68 20 | 2d 61 20 22 24 7b 31 7d | defs.h |-a "${1}|
|00001a50| 22 20 21 3d 20 22 2d 63 | 22 20 3b 20 74 68 65 6e |" != "-c|" ; then|
|00001a60| 20 0a 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 57 | . echo| shar: W|
|00001a70| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|00001a80| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|00001a90| 20 5c 22 64 65 66 73 2e | 68 5c 22 0a 65 6c 73 65 | \"defs.|h\".else|
|00001aa0| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 45 78 74 72 |.echo sh|ar: Extr|
|00001ab0| 61 63 74 69 6e 67 20 5c | 22 64 65 66 73 2e 68 5c |acting \|"defs.h\|
|00001ac0| 22 20 5c 28 37 32 36 20 | 63 68 61 72 61 63 74 65 |" \(726 |characte|
|00001ad0| 72 73 5c 29 0a 73 65 64 | 20 22 73 2f 5e 58 2f 2f |rs\).sed| "s/^X//|
|00001ae0| 22 20 3e 64 65 66 73 2e | 68 20 3c 3c 27 45 4e 44 |" >defs.|h <<'END|
|00001af0| 5f 4f 46 5f 64 65 66 73 | 2e 68 27 0a 58 2f 2a 0a |_OF_defs|.h'.X/*.|
|00001b00| 58 20 2a 09 64 65 66 73 | 2e 68 20 2d 20 64 65 66 |X *.defs|.h - def|
|00001b10| 69 6e 69 74 69 6f 6e 73 | 2e 0a 58 20 2a 2f 0a 58 |initions|..X */.X|
|00001b20| 0a 58 2f 2a 09 53 75 69 | 74 20 68 61 73 20 33 20 |.X/*.Sui|t has 3 |
|00001b30| 62 69 74 73 2c 20 73 6f | 20 77 65 20 63 61 6e 20 |bits, so| we can |
|00001b40| 75 73 65 20 74 68 65 20 | 67 72 65 65 6e 20 73 75 |use the |green su|
|00001b50| 69 74 20 66 6f 72 20 65 | 73 74 69 6d 61 74 69 6e |it for e|stimatin|
|00001b60| 67 20 74 68 65 20 63 75 | 74 2e 0a 58 20 2a 2f 0a |g the cu|t..X */.|
|00001b70| 58 23 64 65 66 69 6e 65 | 20 52 41 4e 4b 28 78 29 |X#define| RANK(x)|
|00001b80| 20 28 28 78 29 26 30 30 | 31 37 29 0a 58 23 64 65 | ((x)&00|17).X#de|
|00001b90| 66 69 6e 65 09 53 55 49 | 54 28 78 29 20 28 28 28 |fine.SUI|T(x) (((|
|00001ba0| 78 29 26 30 31 36 30 29 | 3e 3e 34 29 0a 58 23 64 |x)&0160)|>>4).X#d|
|00001bb0| 65 66 69 6e 65 09 53 41 | 4d 45 52 41 4e 4b 28 78 |efine.SA|MERANK(x|
|00001bc0| 2c 79 29 20 28 21 28 28 | 78 5e 79 29 26 30 30 31 |,y) (!((|x^y)&001|
|00001bd0| 37 29 29 0a 58 23 64 65 | 66 69 6e 65 09 53 41 4d |7)).X#de|fine.SAM|
|00001be0| 45 53 55 49 54 28 78 2c | 79 29 20 28 21 28 28 78 |ESUIT(x,|y) (!((x|
|00001bf0| 5e 79 29 26 30 31 36 30 | 29 29 0a 58 23 64 65 66 |^y)&0160|)).X#def|
|00001c00| 69 6e 65 09 4d 41 4b 45 | 43 41 52 44 28 72 2c 73 |ine.MAKE|CARD(r,s|
|00001c10| 29 20 28 28 72 29 7c 28 | 28 73 29 3c 3c 34 29 29 |) ((r)|(|(s)<<4))|
|00001c20| 0a 58 0a 58 74 79 70 65 | 64 65 66 09 63 68 61 72 |.X.Xtype|def.char|
|00001c30| 09 50 4c 41 59 45 52 3b | 0a 58 0a 58 23 64 65 66 |.PLAYER;|.X.X#def|
|00001c40| 69 6e 65 09 50 52 4f 47 | 52 41 4d 09 30 0a 58 23 |ine.PROG|RAM.0.X#|
|00001c50| 64 65 66 69 6e 65 09 48 | 55 4d 41 4e 09 31 0a 58 |define.H|UMAN.1.X|
|00001c60| 0a 58 23 64 65 66 69 6e | 65 09 53 43 4f 52 45 55 |.X#defin|e.SCOREU|
|00001c70| 50 28 61 2c 62 29 20 7b | 69 66 20 28 73 63 6f 72 |P(a,b) {|if (scor|
|00001c80| 65 75 70 28 28 61 29 2c | 28 62 29 29 29 20 7b 67 |eup((a),|(b))) {g|
|00001c90| 61 6d 65 6f 76 65 72 2b | 2b 3b 20 72 65 74 75 72 |ameover+|+; retur|
|00001ca0| 6e 3b 7d 7d 0a 58 23 64 | 65 66 69 6e 65 09 43 41 |n;}}.X#d|efine.CA|
|00001cb0| 42 42 41 47 45 09 34 0a | 58 23 64 65 66 69 6e 65 |BBAGE.4.|X#define|
|00001cc0| 09 53 50 41 44 45 09 33 | 0a 58 23 64 65 66 69 6e |.SPADE.3|.X#defin|
|00001cd0| 65 09 48 45 41 52 54 09 | 32 0a 58 23 64 65 66 69 |e.HEART.|2.X#defi|
|00001ce0| 6e 65 09 44 49 41 4d 4f | 4e 44 09 31 0a 58 23 64 |ne.DIAMO|ND.1.X#d|
|00001cf0| 65 66 69 6e 65 09 43 4c | 55 42 09 30 0a 58 0a 58 |efine.CL|UB.0.X.X|
|00001d00| 23 64 65 66 69 6e 65 09 | 4b 49 4e 47 09 31 33 0a |#define.|KING.13.|
|00001d10| 58 23 64 65 66 69 6e 65 | 09 51 55 45 45 4e 09 31 |X#define|.QUEEN.1|
|00001d20| 32 0a 58 23 64 65 66 69 | 6e 65 09 4b 4e 41 56 45 |2.X#defi|ne.KNAVE|
|00001d30| 09 31 31 0a 58 23 64 65 | 66 69 6e 65 09 54 45 4e |.11.X#de|fine.TEN|
|00001d40| 09 31 30 0a 58 23 64 65 | 66 69 6e 65 09 4e 49 4e |.10.X#de|fine.NIN|
|00001d50| 45 09 39 0a 58 23 64 65 | 66 69 6e 65 09 45 49 47 |E.9.X#de|fine.EIG|
|00001d60| 48 54 09 38 0a 58 23 64 | 65 66 69 6e 65 09 53 45 |HT.8.X#d|efine.SE|
|00001d70| 56 45 4e 09 37 0a 58 23 | 64 65 66 69 6e 65 09 53 |VEN.7.X#|define.S|
|00001d80| 49 58 09 36 0a 58 23 64 | 65 66 69 6e 65 09 46 49 |IX.6.X#d|efine.FI|
|00001d90| 56 45 09 35 0a 58 23 64 | 65 66 69 6e 65 09 46 4f |VE.5.X#d|efine.FO|
|00001da0| 55 52 09 34 0a 58 23 64 | 65 66 69 6e 65 09 54 52 |UR.4.X#d|efine.TR|
|00001db0| 45 59 09 33 0a 58 23 64 | 65 66 69 6e 65 09 44 45 |EY.3.X#d|efine.DE|
|00001dc0| 55 43 45 09 32 0a 58 23 | 64 65 66 69 6e 65 09 41 |UCE.2.X#|define.A|
|00001dd0| 43 45 09 31 0a 58 0a 58 | 74 79 70 65 64 65 66 09 |CE.1.X.X|typedef.|
|00001de0| 63 68 61 72 09 43 41 52 | 44 3b 0a 58 0a 58 76 6f |char.CAR|D;.X.Xvo|
|00001df0| 69 64 09 73 68 75 66 28 | 29 3b 0a 45 4e 44 5f 4f |id.shuf(|);.END_O|
|00001e00| 46 5f 64 65 66 73 2e 68 | 0a 69 66 20 74 65 73 74 |F_defs.h|.if test|
|00001e10| 20 37 32 36 20 2d 6e 65 | 20 60 77 63 20 2d 63 20 | 726 -ne| `wc -c |
|00001e20| 3c 64 65 66 73 2e 68 60 | 3b 20 74 68 65 6e 0a 20 |<defs.h`|; then. |
|00001e30| 20 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 5c 22 | echo |shar: \"|
|00001e40| 64 65 66 73 2e 68 5c 22 | 20 75 6e 70 61 63 6b 65 |defs.h\"| unpacke|
|00001e50| 64 20 77 69 74 68 20 77 | 72 6f 6e 67 20 73 69 7a |d with w|rong siz|
|00001e60| 65 21 0a 66 69 0a 23 20 | 65 6e 64 20 6f 66 20 6f |e!.fi.# |end of o|
|00001e70| 76 65 72 77 72 69 74 69 | 6e 67 20 63 68 65 63 6b |verwriti|ng check|
|00001e80| 0a 66 69 0a 69 66 20 74 | 65 73 74 20 2d 66 20 67 |.fi.if t|est -f g|
|00001e90| 61 6d 65 73 63 6f 72 65 | 2e 63 20 2d 61 20 22 24 |amescore|.c -a "$|
|00001ea0| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|00001eb0| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen . e|cho shar|
|00001ec0| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d |: Will n|ot over-|
|00001ed0| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|00001ee0| 69 6c 65 20 5c 22 67 61 | 6d 65 73 63 6f 72 65 2e |ile \"ga|mescore.|
|00001ef0| 63 5c 22 0a 65 6c 73 65 | 0a 65 63 68 6f 20 73 68 |c\".else|.echo sh|
|00001f00| 61 72 3a 20 45 78 74 72 | 61 63 74 69 6e 67 20 5c |ar: Extr|acting \|
|00001f10| 22 67 61 6d 65 73 63 6f | 72 65 2e 63 5c 22 20 5c |"gamesco|re.c\" \|
|00001f20| 28 33 34 35 35 20 63 68 | 61 72 61 63 74 65 72 73 |(3455 ch|aracters|
|00001f30| 5c 29 0a 73 65 64 20 22 | 73 2f 5e 58 2f 2f 22 20 |\).sed "|s/^X//" |
|00001f40| 3e 67 61 6d 65 73 63 6f | 72 65 2e 63 20 3c 3c 27 |>gamesco|re.c <<'|
|00001f50| 45 4e 44 5f 4f 46 5f 67 | 61 6d 65 73 63 6f 72 65 |END_OF_g|amescore|
|00001f60| 2e 63 27 0a 58 23 69 6e | 63 6c 75 64 65 20 22 64 |.c'.X#in|clude "d|
|00001f70| 65 66 73 2e 68 22 0a 58 | 23 69 6e 63 6c 75 64 65 |efs.h".X|#include|
|00001f80| 20 22 67 6c 6f 62 73 2e | 68 22 0a 58 23 69 6e 63 | "globs.|h".X#inc|
|00001f90| 6c 75 64 65 20 22 77 69 | 6e 64 6f 77 2e 68 22 0a |lude "wi|ndow.h".|
|00001fa0| 58 0a 58 67 61 6d 65 73 | 63 6f 72 65 28 29 0a 58 |X.Xgames|core().X|
|00001fb0| 7b 0a 58 09 73 6c 65 65 | 70 28 32 29 3b 0a 58 09 |{.X.slee|p(2);.X.|
|00001fc0| 68 61 6e 64 73 63 6f 72 | 65 28 21 64 65 61 6c 65 |handscor|e(!deale|
|00001fd0| 72 29 3b 0a 58 09 69 66 | 20 28 21 67 61 6d 65 6f |r);.X.if| (!gameo|
|00001fe0| 76 65 72 29 20 7b 0a 58 | 09 09 73 6c 65 65 70 28 |ver) {.X|..sleep(|
|00001ff0| 32 29 3b 0a 58 09 09 68 | 61 6e 64 73 63 6f 72 65 |2);.X..h|andscore|
|00002000| 28 64 65 61 6c 65 72 29 | 3b 0a 58 09 7d 0a 58 09 |(dealer)|;.X.}.X.|
|00002010| 69 66 20 28 21 67 61 6d | 65 6f 76 65 72 29 20 7b |if (!gam|eover) {|
|00002020| 0a 58 09 09 73 6c 65 65 | 70 28 31 29 3b 0a 58 09 |.X..slee|p(1);.X.|
|00002030| 09 77 65 72 61 73 65 28 | 50 73 63 6f 72 65 29 3b |.werase(|Pscore);|
|00002040| 0a 58 09 09 77 65 72 61 | 73 65 28 48 73 63 6f 72 |.X..wera|se(Hscor|
|00002050| 65 29 3b 0a 58 09 09 65 | 78 70 6f 73 65 63 72 69 |e);.X..e|xposecri|
|00002060| 62 28 29 3b 0a 58 09 09 | 73 6c 65 65 70 28 32 29 |b();.X..|sleep(2)|
|00002070| 3b 0a 58 09 09 63 72 69 | 62 73 63 6f 72 65 28 29 |;.X..cri|bscore()|
|00002080| 3b 0a 58 09 7d 0a 58 7d | 0a 58 0a 58 68 61 6e 64 |;.X.}.X}|.X.Xhand|
|00002090| 73 63 6f 72 65 28 77 68 | 6f 29 0a 58 69 6e 74 20 |score(wh|o).Xint |
|000020a0| 77 68 6f 3b 0a 58 7b 0a | 58 09 69 6e 74 20 69 3b |who;.X{.|X.int i;|
|000020b0| 0a 58 09 43 41 52 44 20 | 64 75 6d 6d 79 5b 35 5d |.X.CARD |dummy[5]|
|000020c0| 3b 0a 58 09 66 6f 72 20 | 28 69 3d 30 3b 20 69 3c |;.X.for |(i=0; i<|
|000020d0| 34 3b 20 69 2b 2b 29 20 | 64 75 6d 6d 79 5b 69 5d |4; i++) |dummy[i]|
|000020e0| 3d 68 61 6e 64 5b 77 68 | 6f 5d 5b 69 5d 3b 0a 58 |=hand[wh|o][i];.X|
|000020f0| 09 64 75 6d 6d 79 5b 34 | 5d 3d 63 75 74 3b 0a 58 |.dummy[4|]=cut;.X|
|00002100| 09 65 76 61 6c 68 61 6e | 64 28 64 75 6d 6d 79 2c |.evalhan|d(dummy,|
|00002110| 20 30 2c 20 77 68 6f 29 | 3b 0a 58 7d 0a 58 0a 58 | 0, who)|;.X}.X.X|
|00002120| 63 72 69 62 73 63 6f 72 | 65 28 29 0a 58 7b 0a 58 |cribscor|e().X{.X|
|00002130| 09 69 6e 74 20 69 3b 0a | 58 09 43 41 52 44 20 64 |.int i;.|X.CARD d|
|00002140| 75 6d 6d 79 5b 35 5d 3b | 0a 58 09 66 6f 72 20 28 |ummy[5];|.X.for (|
|00002150| 69 3d 30 3b 20 69 3c 34 | 3b 20 69 2b 2b 29 20 64 |i=0; i<4|; i++) d|
|00002160| 75 6d 6d 79 5b 69 5d 3d | 63 72 69 62 5b 69 5d 3b |ummy[i]=|crib[i];|
|00002170| 0a 58 09 64 75 6d 6d 79 | 5b 34 5d 3d 63 75 74 3b |.X.dummy|[4]=cut;|
|00002180| 0a 58 09 65 76 61 6c 68 | 61 6e 64 28 64 75 6d 6d |.X.evalh|and(dumm|
|00002190| 79 2c 20 31 2c 20 64 65 | 61 6c 65 72 29 3b 0a 58 |y, 1, de|aler);.X|
|000021a0| 7d 0a 58 0a 58 69 6e 74 | 0a 58 65 76 61 6c 68 61 |}.X.Xint|.Xevalha|
|000021b0| 6e 64 28 65 68 61 6e 64 | 2c 20 69 73 63 72 69 62 |nd(ehand|, iscrib|
|000021c0| 2c 20 77 68 6f 73 63 6f | 72 65 29 0a 58 43 41 52 |, whosco|re).XCAR|
|000021d0| 44 20 65 68 61 6e 64 5b | 5d 3b 0a 58 69 6e 74 20 |D ehand[|];.Xint |
|000021e0| 69 73 63 72 69 62 3b 0a | 58 69 6e 74 20 77 68 6f |iscrib;.|Xint who|
|000021f0| 73 63 6f 72 65 3b 09 2f | 2a 20 2d 31 20 6d 65 61 |score;./|* -1 mea|
|00002200| 6e 73 20 73 69 6c 65 6e | 74 20 2a 2f 0a 58 7b 0a |ns silen|t */.X{.|
|00002210| 58 2f 2a 0a 58 20 2a 09 | 49 66 20 69 73 63 72 69 |X/*.X *.|If iscri|
|00002220| 62 20 69 73 20 6f 6e 2c | 20 64 6f 6e 27 74 20 61 |b is on,| don't a|
|00002230| 6c 6c 6f 77 20 66 6f 75 | 72 2d 66 6c 75 73 68 65 |llow fou|r-flushe|
|00002240| 73 2e 0a 58 20 2a 2f 0a | 58 09 69 6e 74 20 69 2c |s..X */.|X.int i,|
|00002250| 20 6a 2c 20 6d 61 73 6b | 2c 20 62 69 74 2c 20 68 | j, mask|, bit, h|
|00002260| 6d 61 73 6b 2c 20 73 75 | 6d 2c 20 68 63 6f 75 6e |mask, su|m, hcoun|
|00002270| 74 3b 0a 58 09 63 68 61 | 72 20 2a 72 75 6e 6e 61 |t;.X.cha|r *runna|
|00002280| 6d 65 3b 0a 58 09 69 6e | 74 20 72 75 6e 76 61 6c |me;.X.in|t runval|
|00002290| 3b 0a 58 09 73 68 6f 72 | 74 20 72 65 70 5b 31 35 |;.X.shor|t rep[15|
|000022a0| 5d 3b 09 09 2f 2a 20 45 | 78 74 72 61 20 7a 65 72 |];../* E|xtra zer|
|000022b0| 6f 65 73 20 6d 61 6b 65 | 20 69 74 20 65 61 73 69 |oes make| it easi|
|000022c0| 65 72 20 2a 2f 0a 58 09 | 57 49 4e 44 4f 57 20 2a |er */.X.|WINDOW *|
|000022d0| 57 69 6e 3b 0a 58 09 69 | 66 20 28 77 68 6f 73 63 |Win;.X.i|f (whosc|
|000022e0| 6f 72 65 3d 3d 31 29 20 | 57 69 6e 3d 48 73 63 6f |ore==1) |Win=Hsco|
|000022f0| 72 65 3b 0a 58 09 65 6c | 73 65 20 69 66 20 28 77 |re;.X.el|se if (w|
|00002300| 68 6f 73 63 6f 72 65 3d | 3d 30 29 20 57 69 6e 3d |hoscore=|=0) Win=|
|00002310| 50 73 63 6f 72 65 3b 0a | 58 09 69 66 20 28 69 73 |Pscore;.|X.if (is|
|00002320| 63 72 69 62 20 26 26 20 | 77 68 6f 73 63 6f 72 65 |crib && |whoscore|
|00002330| 3e 3d 30 29 20 7b 0a 58 | 09 09 77 70 72 69 6e 74 |>=0) {.X|..wprint|
|00002340| 77 28 57 69 6e 2c 20 22 | 25 73 20 43 72 69 62 3a |w(Win, "|%s Crib:|
|00002350| 5c 6e 22 2c 20 77 68 6f | 73 63 6f 72 65 3f 20 22 |\n", who|score? "|
|00002360| 59 6f 75 72 22 3a 20 22 | 4d 79 22 29 3b 0a 58 09 |Your": "|My");.X.|
|00002370| 09 77 72 65 66 72 65 73 | 68 28 57 69 6e 29 3b 0a |.wrefres|h(Win);.|
|00002380| 58 09 09 73 6c 65 65 70 | 28 31 29 3b 0a 58 09 7d |X..sleep|(1);.X.}|
|00002390| 0a 58 09 68 63 6f 75 6e | 74 3d 30 3b 0a 58 09 66 |.X.hcoun|t=0;.X.f|
|000023a0| 6f 72 20 28 6d 61 73 6b | 3d 31 3b 20 6d 61 73 6b |or (mask|=1; mask|
|000023b0| 3c 33 32 3b 20 6d 61 73 | 6b 2b 2b 29 20 7b 0a 58 |<32; mas|k++) {.X|
|000023c0| 09 09 68 6d 61 73 6b 3d | 6d 61 73 6b 3b 0a 58 09 |..hmask=|mask;.X.|
|000023d0| 09 73 75 6d 3d 30 3b 0a | 58 09 09 66 6f 72 20 28 |.sum=0;.|X..for (|
|000023e0| 62 69 74 3d 30 3b 20 62 | 69 74 3c 35 3b 20 62 69 |bit=0; b|it<5; bi|
|000023f0| 74 2b 2b 29 20 7b 0a 58 | 09 09 09 69 66 20 28 31 |t++) {.X|...if (1|
|00002400| 26 68 6d 61 73 6b 29 0a | 58 09 09 09 09 73 75 6d |&hmask).|X....sum|
|00002410| 2b 3d 72 61 6e 6b 76 61 | 6c 75 65 5b 52 41 4e 4b |+=rankva|lue[RANK|
|00002420| 28 65 68 61 6e 64 5b 62 | 69 74 5d 29 5d 3b 0a 58 |(ehand[b|it])];.X|
|00002430| 09 09 09 68 6d 61 73 6b | 20 3e 3e 3d 20 31 3b 0a |...hmask| >>= 1;.|
|00002440| 58 09 09 7d 0a 58 09 09 | 69 66 20 28 73 75 6d 3d |X..}.X..|if (sum=|
|00002450| 3d 31 35 29 20 7b 0a 58 | 09 09 09 68 63 6f 75 6e |=15) {.X|...hcoun|
|00002460| 74 20 2b 3d 20 32 3b 0a | 58 09 09 09 69 66 20 28 |t += 2;.|X...if (|
|00002470| 77 68 6f 73 63 6f 72 65 | 3e 3d 30 29 20 7b 0a 58 |whoscore|>=0) {.X|
|00002480| 09 09 09 09 77 70 72 69 | 6e 74 77 28 57 69 6e 2c |....wpri|ntw(Win,|
|00002490| 20 22 46 69 66 74 65 65 | 6e 2d 25 64 5c 6e 22 2c | "Fiftee|n-%d\n",|
|000024a0| 20 68 63 6f 75 6e 74 29 | 3b 0a 58 09 09 09 09 77 | hcount)|;.X....w|
|000024b0| 72 65 66 72 65 73 68 28 | 57 69 6e 29 3b 0a 58 09 |refresh(|Win);.X.|
|000024c0| 09 09 09 73 6c 65 65 70 | 28 31 29 3b 0a 58 09 09 |...sleep|(1);.X..|
|000024d0| 09 7d 0a 58 09 09 7d 0a | 58 2f 2a 0a 58 20 2a 09 |.}.X..}.|X/*.X *.|
|000024e0| 4e 65 65 64 20 77 65 20 | 61 64 64 20 61 6e 79 20 |Need we |add any |
|000024f0| 63 61 72 64 73 3f 0a 58 | 20 2a 2f 0a 58 09 09 69 |cards?.X| */.X..i|
|00002500| 66 20 28 73 75 6d 20 3e | 3d 20 31 35 29 20 6d 61 |f (sum >|= 15) ma|
|00002510| 73 6b 20 7c 3d 20 6d 61 | 73 6b 2d 31 3b 0a 58 09 |sk |= ma|sk-1;.X.|
|00002520| 7d 0a 58 2f 2a 0a 58 20 | 2a 09 43 6f 75 6e 74 20 |}.X/*.X |*.Count |
|00002530| 74 68 65 20 72 61 6e 6b | 73 2e 0a 58 20 2a 2f 0a |the rank|s..X */.|
|00002540| 58 09 66 6f 72 20 28 69 | 3d 30 3b 20 69 3c 31 35 |X.for (i|=0; i<15|
|00002550| 3b 20 69 2b 2b 29 20 72 | 65 70 5b 69 5d 3d 30 3b |; i++) r|ep[i]=0;|
|00002560| 0a 58 09 66 6f 72 20 28 | 69 3d 30 3b 20 69 3c 35 |.X.for (|i=0; i<5|
|00002570| 3b 20 69 2b 2b 29 20 72 | 65 70 5b 52 41 4e 4b 28 |; i++) r|ep[RANK(|
|00002580| 65 68 61 6e 64 5b 69 5d | 29 5d 2b 3d 31 3b 0a 58 |ehand[i]|)]+=1;.X|
|00002590| 2f 2a 0a 58 20 2a 09 4c | 6f 6f 6b 20 66 6f 72 20 |/*.X *.L|ook for |
|000025a0| 69 73 6f 6c 61 74 65 64 | 20 70 61 69 72 73 2c 20 |isolated| pairs, |
|000025b0| 65 74 63 2e 0a 58 20 2a | 2f 0a 58 09 66 6f 72 20 |etc..X *|/.X.for |
|000025c0| 28 69 3d 31 3b 20 69 3c | 31 34 3b 20 69 2b 2b 29 |(i=1; i<|14; i++)|
|000025d0| 20 69 66 20 28 72 65 70 | 5b 69 5d 3e 31 29 20 7b | if (rep|[i]>1) {|
|000025e0| 0a 58 09 09 69 66 20 28 | 21 28 72 65 70 5b 69 2d |.X..if (|!(rep[i-|
|000025f0| 31 5d 20 26 26 20 28 72 | 65 70 5b 69 2d 32 5d 20 |1] && (r|ep[i-2] |
|00002600| 7c 7c 20 72 65 70 5b 69 | 2b 31 5d 29 20 7c 7c 0a ||| rep[i|+1]) ||.|
|00002610| 58 09 09 72 65 70 5b 69 | 2b 31 5d 20 26 26 20 72 |X..rep[i|+1] && r|
|00002620| 65 70 5b 69 2b 32 5d 29 | 29 20 7b 0a 58 09 09 09 |ep[i+2])|) {.X...|
|00002630| 68 63 6f 75 6e 74 20 2b | 3d 20 70 61 69 72 76 61 |hcount +|= pairva|
|00002640| 6c 75 65 5b 72 65 70 5b | 69 5d 5d 3b 0a 58 09 09 |lue[rep[|i]];.X..|
|00002650| 09 69 66 20 28 77 68 6f | 73 63 6f 72 65 3e 3d 30 |.if (who|score>=0|
|00002660| 29 20 7b 0a 58 09 09 09 | 09 77 70 72 69 6e 74 77 |) {.X...|.wprintw|
|00002670| 28 57 69 6e 2c 20 22 61 | 6e 64 20 61 20 25 73 20 |(Win, "a|nd a %s |
|00002680| 69 73 20 25 64 5c 6e 22 | 2c 20 0a 58 09 09 09 09 |is %d\n"|, .X....|
|00002690| 70 61 69 72 6e 61 6d 65 | 5b 72 65 70 5b 69 5d 5d |pairname|[rep[i]]|
|000026a0| 2c 20 68 63 6f 75 6e 74 | 29 3b 0a 58 09 09 09 09 |, hcount|);.X....|
|000026b0| 77 72 65 66 72 65 73 68 | 28 57 69 6e 29 3b 0a 58 |wrefresh|(Win);.X|
|000026c0| 09 09 09 09 73 6c 65 65 | 70 28 31 29 3b 0a 58 09 |....slee|p(1);.X.|
|000026d0| 09 09 7d 0a 58 09 09 7d | 0a 58 09 7d 0a 58 2f 2a |..}.X..}|.X.}.X/*|
|000026e0| 0a 58 20 2a 09 4c 6f 6f | 6b 20 66 6f 72 20 72 75 |.X *.Loo|k for ru|
|000026f0| 6e 73 2c 20 69 6e 63 6c | 75 64 69 6e 67 20 6d 75 |ns, incl|uding mu|
|00002700| 6c 74 69 70 6c 65 73 2e | 0a 58 20 2a 2f 0a 58 09 |ltiples.|.X */.X.|
|00002710| 66 6f 72 20 28 69 3d 31 | 3b 20 69 3c 31 32 3b 20 |for (i=1|; i<12; |
|00002720| 69 2b 2b 29 20 69 66 20 | 28 72 65 70 5b 69 5d 29 |i++) if |(rep[i])|
|00002730| 20 7b 0a 58 09 09 69 66 | 20 28 21 72 65 70 5b 69 | {.X..if| (!rep[i|
|00002740| 2b 32 5d 29 20 7b 0a 58 | 09 09 09 69 2b 3d 32 3b |+2]) {.X|...i+=2;|
|00002750| 0a 58 09 09 09 63 6f 6e | 74 69 6e 75 65 3b 0a 58 |.X...con|tinue;.X|
|00002760| 09 09 7d 0a 58 09 09 69 | 66 20 28 21 72 65 70 5b |..}.X..i|f (!rep[|
|00002770| 69 2b 31 5d 29 20 7b 0a | 58 09 09 09 69 2b 3d 31 |i+1]) {.|X...i+=1|
|00002780| 3b 0a 58 09 09 09 63 6f | 6e 74 69 6e 75 65 3b 0a |;.X...co|ntinue;.|
|00002790| 58 09 09 7d 0a 58 2f 2a | 0a 58 20 2a 09 57 65 20 |X..}.X/*|.X *.We |
|000027a0| 68 61 76 65 20 61 20 72 | 75 6e 21 0a 58 20 2a 2f |have a r|un!.X */|
|000027b0| 0a 58 09 09 69 66 20 28 | 72 65 70 5b 69 2b 33 5d |.X..if (|rep[i+3]|
|000027c0| 29 20 7b 0a 58 09 09 09 | 69 66 20 28 72 65 70 5b |) {.X...|if (rep[|
|000027d0| 69 2b 34 5d 29 20 7b 0a | 58 09 09 09 09 72 75 6e |i+4]) {.|X....run|
|000027e0| 6e 61 6d 65 3d 22 53 65 | 71 75 65 6e 63 65 20 6f |name="Se|quence o|
|000027f0| 66 20 46 69 76 65 5c 6e | 22 3b 0a 58 09 09 09 09 |f Five\n|";.X....|
|00002800| 72 75 6e 76 61 6c 3d 35 | 3b 0a 58 09 09 09 7d 0a |runval=5|;.X...}.|
|00002810| 58 09 09 09 65 6c 73 65 | 20 7b 0a 58 09 09 09 09 |X...else| {.X....|
|00002820| 72 75 6e 6e 61 6d 65 3d | 22 53 65 71 75 65 6e 63 |runname=|"Sequenc|
|00002830| 65 20 6f 66 20 46 6f 75 | 72 5c 6e 22 3b 0a 58 09 |e of Fou|r\n";.X.|
|00002840| 09 09 09 72 75 6e 76 61 | 6c 3d 34 3b 0a 58 09 09 |...runva|l=4;.X..|
|00002850| 09 09 66 6f 72 20 28 6a | 3d 69 3b 20 6a 3c 69 2b |..for (j|=i; j<i+|
|00002860| 34 3b 20 6a 2b 2b 29 20 | 69 66 20 28 72 65 70 5b |4; j++) |if (rep[|
|00002870| 6a 5d 3e 31 29 20 7b 0a | 58 09 09 09 09 09 72 75 |j]>1) {.|X.....ru|
|00002880| 6e 6e 61 6d 65 3d 22 44 | 6f 75 62 6c 65 20 53 65 |nname="D|ouble Se|
|00002890| 71 75 65 6e 63 65 5c 6e | 20 6f 66 20 46 6f 75 72 |quence\n| of Four|
|000028a0| 22 3b 0a 58 09 09 09 09 | 09 72 75 6e 76 61 6c 3d |";.X....|.runval=|
|000028b0| 31 30 3b 0a 58 09 09 09 | 09 09 62 72 65 61 6b 3b |10;.X...|..break;|
|000028c0| 0a 58 09 09 09 09 7d 0a | 58 09 09 09 7d 0a 58 09 |.X....}.|X...}.X.|
|000028d0| 09 7d 0a 58 09 09 65 6c | 73 65 20 7b 0a 58 09 09 |.}.X..el|se {.X..|
|000028e0| 09 66 6f 72 20 28 73 75 | 6d 3d 30 2c 20 6a 3d 69 |.for (su|m=0, j=i|
|000028f0| 3b 20 6a 3c 69 2b 33 3b | 20 6a 2b 2b 29 20 7b 0a |; j<i+3;| j++) {.|
|00002900| 58 09 09 09 09 69 66 20 | 28 72 65 70 5b 6a 5d 3d |X....if |(rep[j]=|
|00002910| 3d 33 29 20 7b 0a 58 09 | 09 09 09 09 72 75 6e 6e |=3) {.X.|....runn|
|00002920| 61 6d 65 3d 22 54 72 69 | 70 6c 65 20 53 65 71 75 |ame="Tri|ple Sequ|
|00002930| 65 6e 63 65 22 3b 0a 58 | 09 09 09 09 09 72 75 6e |ence";.X|.....run|
|00002940| 76 61 6c 3d 31 35 3b 0a | 58 09 09 09 09 09 67 6f |val=15;.|X.....go|
|00002950| 74 6f 20 73 63 6f 72 65 | 72 75 6e 3b 0a 58 09 09 |to score|run;.X..|
|00002960| 09 09 7d 0a 58 09 09 09 | 09 73 75 6d 20 2b 3d 20 |..}.X...|.sum += |
|00002970| 72 65 70 5b 6a 5d 2d 31 | 3b 0a 58 09 09 09 7d 0a |rep[j]-1|;.X...}.|
|00002980| 58 09 09 09 72 75 6e 6e | 61 6d 65 3d 64 72 75 6e |X...runn|ame=drun|
|00002990| 6e 61 6d 65 5b 73 75 6d | 5d 3b 0a 58 09 09 09 72 |name[sum|];.X...r|
|000029a0| 75 6e 76 61 6c 3d 64 72 | 75 6e 76 61 6c 5b 73 75 |unval=dr|unval[su|
|000029b0| 6d 5d 3b 0a 58 09 09 7d | 0a 58 73 63 6f 72 65 72 |m];.X..}|.Xscorer|
|000029c0| 75 6e 3a 0a 58 09 09 68 | 63 6f 75 6e 74 20 2b 3d |un:.X..h|count +=|
|000029d0| 20 72 75 6e 76 61 6c 3b | 0a 58 09 09 69 66 20 28 | runval;|.X..if (|
|000029e0| 77 68 6f 73 63 6f 72 65 | 3e 3d 30 29 20 7b 0a 58 |whoscore|>=0) {.X|
|000029f0| 09 09 09 77 70 72 69 6e | 74 77 28 57 69 6e 2c 20 |...wprin|tw(Win, |
|00002a00| 22 61 6e 64 20 61 20 25 | 73 20 69 73 20 25 64 5c |"and a %|s is %d\|
|00002a10| 6e 22 2c 20 72 75 6e 6e | 61 6d 65 2c 20 68 63 6f |n", runn|ame, hco|
|00002a20| 75 6e 74 29 3b 0a 58 09 | 09 09 77 72 65 66 72 65 |unt);.X.|..wrefre|
|00002a30| 73 68 28 57 69 6e 29 3b | 0a 58 09 09 09 73 6c 65 |sh(Win);|.X...sle|
|00002a40| 65 70 28 31 29 3b 0a 58 | 09 09 7d 0a 58 09 09 62 |ep(1);.X|..}.X..b|
|00002a50| 72 65 61 6b 3b 09 09 2f | 2a 20 59 6f 75 20 63 61 |reak;../|* You ca|
|00002a60| 6e 27 74 20 68 61 76 65 | 20 74 77 6f 20 72 75 6e |n't have| two run|
|00002a70| 73 20 2a 2f 0a 58 09 7d | 0a 58 2f 2a 0a 58 20 2a |s */.X.}|.X/*.X *|
|00002a80| 09 43 68 65 63 6b 20 66 | 6f 72 20 66 6c 75 73 68 |.Check f|or flush|
|00002a90| 65 73 2e 0a 58 20 2a 2f | 0a 58 09 66 6f 72 20 28 |es..X */|.X.for (|
|00002aa0| 69 3d 31 3b 20 69 3c 34 | 3b 20 69 2b 2b 29 20 69 |i=1; i<4|; i++) i|
|00002ab0| 66 20 28 21 53 41 4d 45 | 53 55 49 54 28 65 68 61 |f (!SAME|SUIT(eha|
|00002ac0| 6e 64 5b 69 5d 2c 65 68 | 61 6e 64 5b 30 5d 29 29 |nd[i],eh|and[0]))|
|00002ad0| 20 67 6f 74 6f 20 65 6e | 64 66 6c 75 73 68 3b 0a | goto en|dflush;.|
|00002ae0| 58 09 69 66 20 28 53 41 | 4d 45 53 55 49 54 28 65 |X.if (SA|MESUIT(e|
|00002af0| 68 61 6e 64 5b 34 5d 2c | 20 65 68 61 6e 64 5b 30 |hand[4],| ehand[0|
|00002b00| 5d 29 29 20 7b 0a 58 09 | 09 68 63 6f 75 6e 74 20 |])) {.X.|.hcount |
|00002b10| 2b 3d 20 35 3b 0a 58 09 | 09 69 66 20 28 77 68 6f |+= 5;.X.|.if (who|
|00002b20| 73 63 6f 72 65 3e 3d 30 | 29 20 7b 0a 58 09 09 09 |score>=0|) {.X...|
|00002b30| 77 70 72 69 6e 74 77 28 | 57 69 6e 2c 20 22 61 6e |wprintw(|Win, "an|
|00002b40| 64 20 61 20 46 6c 75 73 | 68 20 6f 66 20 46 69 76 |d a Flus|h of Fiv|
|00002b50| 65 20 69 73 20 25 64 5c | 6e 22 2c 20 68 63 6f 75 |e is %d\|n", hcou|
|00002b60| 6e 74 29 3b 0a 58 09 09 | 09 77 72 65 66 72 65 73 |nt);.X..|.wrefres|
|00002b70| 68 28 57 69 6e 29 3b 0a | 58 09 09 09 73 6c 65 65 |h(Win);.|X...slee|
|00002b80| 70 28 31 29 3b 0a 58 09 | 09 7d 0a 58 09 7d 0a 58 |p(1);.X.|.}.X.}.X|
|00002b90| 09 65 6c 73 65 20 69 66 | 20 28 21 69 73 63 72 69 |.else if| (!iscri|
|00002ba0| 62 29 20 7b 0a 58 09 09 | 68 63 6f 75 6e 74 20 2b |b) {.X..|hcount +|
|00002bb0| 3d 20 34 3b 0a 58 09 09 | 69 66 20 28 77 68 6f 73 |= 4;.X..|if (whos|
|00002bc0| 63 6f 72 65 3e 3d 30 29 | 20 7b 0a 58 09 09 09 77 |core>=0)| {.X...w|
|00002bd0| 70 72 69 6e 74 77 28 57 | 69 6e 2c 20 22 61 6e 64 |printw(W|in, "and|
|00002be0| 20 61 20 46 6c 75 73 68 | 20 69 73 20 25 64 5c 6e | a Flush| is %d\n|
|00002bf0| 22 2c 20 68 63 6f 75 6e | 74 29 3b 0a 58 09 09 09 |", hcoun|t);.X...|
|00002c00| 77 72 65 66 72 65 73 68 | 28 57 69 6e 29 3b 0a 58 |wrefresh|(Win);.X|
|00002c10| 09 09 09 73 6c 65 65 70 | 28 31 29 3b 0a 58 09 09 |...sleep|(1);.X..|
|00002c20| 7d 0a 58 09 7d 0a 58 65 | 6e 64 66 6c 75 73 68 3a |}.X.}.Xe|ndflush:|
|00002c30| 0a 58 09 66 6f 72 20 28 | 69 3d 30 3b 20 69 3c 34 |.X.for (|i=0; i<4|
|00002c40| 3b 20 69 2b 2b 29 0a 58 | 09 69 66 20 28 52 41 4e |; i++).X|.if (RAN|
|00002c50| 4b 28 65 68 61 6e 64 5b | 69 5d 29 3d 3d 4b 4e 41 |K(ehand[|i])==KNA|
|00002c60| 56 45 20 26 26 20 53 41 | 4d 45 53 55 49 54 28 65 |VE && SA|MESUIT(e|
|00002c70| 68 61 6e 64 5b 69 5d 2c | 20 65 68 61 6e 64 5b 34 |hand[i],| ehand[4|
|00002c80| 5d 29 29 20 7b 0a 58 09 | 09 68 63 6f 75 6e 74 20 |])) {.X.|.hcount |
|00002c90| 2b 3d 20 31 3b 0a 58 09 | 09 69 66 20 28 77 68 6f |+= 1;.X.|.if (who|
|00002ca0| 73 63 6f 72 65 3e 3d 30 | 29 20 7b 0a 58 09 09 09 |score>=0|) {.X...|
|00002cb0| 77 70 72 69 6e 74 77 28 | 57 69 6e 2c 20 22 61 6e |wprintw(|Win, "an|
|00002cc0| 64 20 4f 6e 65 20 66 6f | 72 20 48 69 73 20 4e 6f |d One fo|r His No|
|00002cd0| 62 73 20 69 73 20 25 64 | 5c 6e 22 2c 68 63 6f 75 |bs is %d|\n",hcou|
|00002ce0| 6e 74 29 3b 0a 58 09 09 | 09 77 72 65 66 72 65 73 |nt);.X..|.wrefres|
|00002cf0| 68 28 57 69 6e 29 3b 0a | 58 09 09 09 73 6c 65 65 |h(Win);.|X...slee|
|00002d00| 70 28 31 29 3b 0a 58 09 | 09 7d 0a 58 09 09 62 72 |p(1);.X.|.}.X..br|
|00002d10| 65 61 6b 3b 0a 58 09 7d | 0a 58 2f 2a 0a 58 20 2a |eak;.X.}|.X/*.X *|
|00002d20| 09 46 69 6e 61 6c 20 72 | 65 63 6b 6f 6e 69 6e 67 |.Final r|eckoning|
|00002d30| 2c 20 69 66 20 77 61 6e | 74 65 64 2e 0a 58 20 2a |, if wan|ted..X *|
|00002d40| 2f 0a 58 09 69 66 20 28 | 77 68 6f 73 63 6f 72 65 |/.X.if (|whoscore|
|00002d50| 3e 3d 30 29 20 7b 0a 58 | 09 09 73 6c 65 65 70 28 |>=0) {.X|..sleep(|
|00002d60| 31 29 3b 0a 58 09 09 69 | 66 20 28 68 63 6f 75 6e |1);.X..i|f (hcoun|
|00002d70| 74 29 20 53 43 4f 52 45 | 55 50 28 77 68 6f 73 63 |t) SCORE|UP(whosc|
|00002d80| 6f 72 65 2c 20 68 63 6f | 75 6e 74 29 3b 0a 58 09 |ore, hco|unt);.X.|
|00002d90| 7d 0a 58 09 72 65 74 75 | 72 6e 20 68 63 6f 75 6e |}.X.retu|rn hcoun|
|00002da0| 74 3b 0a 58 7d 0a 45 4e | 44 5f 4f 46 5f 67 61 6d |t;.X}.EN|D_OF_gam|
|00002db0| 65 73 63 6f 72 65 2e 63 | 0a 69 66 20 74 65 73 74 |escore.c|.if test|
|00002dc0| 20 33 34 35 35 20 2d 6e | 65 20 60 77 63 20 2d 63 | 3455 -n|e `wc -c|
|00002dd0| 20 3c 67 61 6d 65 73 63 | 6f 72 65 2e 63 60 3b 20 | <gamesc|ore.c`; |
|00002de0| 74 68 65 6e 0a 20 20 20 | 20 65 63 68 6f 20 73 68 |then. | echo sh|
|00002df0| 61 72 3a 20 5c 22 67 61 | 6d 65 73 63 6f 72 65 2e |ar: \"ga|mescore.|
|00002e00| 63 5c 22 20 75 6e 70 61 | 63 6b 65 64 20 77 69 74 |c\" unpa|cked wit|
|00002e10| 68 20 77 72 6f 6e 67 20 | 73 69 7a 65 21 0a 66 69 |h wrong |size!.fi|
|00002e20| 0a 23 20 65 6e 64 20 6f | 66 20 6f 76 65 72 77 72 |.# end o|f overwr|
|00002e30| 69 74 69 6e 67 20 63 68 | 65 63 6b 0a 66 69 0a 69 |iting ch|eck.fi.i|
|00002e40| 66 20 74 65 73 74 20 2d | 66 20 67 6c 6f 62 73 2e |f test -|f globs.|
|00002e50| 63 20 2d 61 20 22 24 7b | 31 7d 22 20 21 3d 20 22 |c -a "${|1}" != "|
|00002e60| 2d 63 22 20 3b 20 74 68 | 65 6e 20 0a 20 20 65 63 |-c" ; th|en . ec|
|00002e70| 68 6f 20 73 68 61 72 3a | 20 57 69 6c 6c 20 6e 6f |ho shar:| Will no|
|00002e80| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00002e90| 73 74 69 6e 67 20 66 69 | 6c 65 20 5c 22 67 6c 6f |sting fi|le \"glo|
|00002ea0| 62 73 2e 63 5c 22 0a 65 | 6c 73 65 0a 65 63 68 6f |bs.c\".e|lse.echo|
|00002eb0| 20 73 68 61 72 3a 20 45 | 78 74 72 61 63 74 69 6e | shar: E|xtractin|
|00002ec0| 67 20 5c 22 67 6c 6f 62 | 73 2e 63 5c 22 20 5c 28 |g \"glob|s.c\" \(|
|00002ed0| 31 30 31 34 20 63 68 61 | 72 61 63 74 65 72 73 5c |1014 cha|racters\|
|00002ee0| 29 0a 73 65 64 20 22 73 | 2f 5e 58 2f 2f 22 20 3e |).sed "s|/^X//" >|
|00002ef0| 67 6c 6f 62 73 2e 63 20 | 3c 3c 27 45 4e 44 5f 4f |globs.c |<<'END_O|
|00002f00| 46 5f 67 6c 6f 62 73 2e | 63 27 0a 58 2f 2a 0a 58 |F_globs.|c'.X/*.X|
|00002f10| 20 2a 09 67 6c 6f 62 73 | 20 2d 20 67 6c 6f 62 61 | *.globs| - globa|
|00002f20| 6c 20 76 61 72 69 61 62 | 6c 65 73 2e 0a 58 20 2a |l variab|les..X *|
|00002f30| 2f 0a 58 0a 58 23 69 6e | 63 6c 75 64 65 20 22 64 |/.X.X#in|clude "d|
|00002f40| 65 66 73 2e 68 22 0a 58 | 0a 58 73 68 6f 72 74 09 |efs.h".X|.Xshort.|
|00002f50| 63 6f 75 6e 74 3b 0a 58 | 43 41 52 44 09 63 72 69 |count;.X|CARD.cri|
|00002f60| 62 5b 36 5d 3b 0a 58 43 | 41 52 44 09 63 75 74 3b |b[6];.XC|ARD.cut;|
|00002f70| 0a 58 69 6e 74 09 64 65 | 61 6c 65 72 3b 0a 58 69 |.Xint.de|aler;.Xi|
|00002f80| 6e 74 09 28 2a 64 73 63 | 66 75 6e 63 5b 32 5d 29 |nt.(*dsc|func[2])|
|00002f90| 28 29 3b 0a 58 63 68 61 | 72 09 67 61 6d 65 6f 76 |();.Xcha|r.gameov|
|00002fa0| 65 72 3b 0a 58 43 41 52 | 44 09 67 6f 5b 38 5d 3b |er;.XCAR|D.go[8];|
|00002fb0| 0a 58 73 68 6f 72 74 09 | 67 6f 63 6f 75 6e 74 3b |.Xshort.|gocount;|
|00002fc0| 0a 58 43 41 52 44 09 68 | 61 6e 64 5b 32 5d 5b 36 |.XCARD.h|and[2][6|
|00002fd0| 5d 3b 0a 58 63 68 61 72 | 09 68 61 6e 64 6f 76 65 |];.Xchar|.handove|
|00002fe0| 72 3b 0a 58 73 68 6f 72 | 74 09 68 66 6c 61 67 20 |r;.Xshor|t.hflag |
|00002ff0| 3d 20 30 3b 0a 58 73 68 | 6f 72 74 09 6e 63 72 69 |= 0;.Xsh|ort.ncri|
|00003000| 62 3b 0a 58 73 68 6f 72 | 74 09 6e 6c 65 66 74 5b |b;.Xshor|t.nleft[|
|00003010| 32 5d 3b 0a 58 43 41 52 | 44 09 70 61 63 6b 5b 35 |2];.XCAR|D.pack[5|
|00003020| 32 5d 3b 0a 58 69 6e 74 | 09 70 61 63 6b 6d 61 64 |2];.Xint|.packmad|
|00003030| 65 20 3d 20 30 3b 0a 58 | 73 68 6f 72 74 09 70 65 |e = 0;.X|short.pe|
|00003040| 67 5b 32 5d 5b 32 5d 3b | 0a 58 63 68 61 72 09 70 |g[2][2];|.Xchar.p|
|00003050| 6c 61 79 65 64 5b 32 5d | 5b 34 5d 3b 0a 58 50 4c |layed[2]|[4];.XPL|
|00003060| 41 59 45 52 09 70 6c 61 | 79 65 72 74 79 70 65 5b |AYER.pla|yertype[|
|00003070| 32 5d 3b 0a 58 63 68 61 | 72 09 71 75 69 74 66 6c |2];.Xcha|r.quitfl|
|00003080| 61 67 3b 0a 58 73 68 6f | 72 74 09 73 63 6f 72 65 |ag;.Xsho|rt.score|
|00003090| 5b 32 5d 3b 0a 58 73 68 | 6f 72 74 09 77 68 6f 73 |[2];.Xsh|ort.whos|
|000030a0| 65 67 6f 3b 0a 58 63 68 | 61 72 09 77 68 6f 73 65 |ego;.Xch|ar.whose|
|000030b0| 74 75 72 6e 3b 0a 58 0a | 58 63 68 61 72 09 2a 64 |turn;.X.|Xchar.*d|
|000030c0| 72 75 6e 6e 61 6d 65 5b | 33 5d 20 3d 20 7b 22 53 |runname[|3] = {"S|
|000030d0| 65 71 75 65 6e 63 65 22 | 2c 22 44 6f 75 62 6c 65 |equence"|,"Double|
|000030e0| 20 53 65 71 75 65 6e 63 | 65 22 2c 0a 58 09 09 22 | Sequenc|e",.X.."|
|000030f0| 51 75 61 64 72 75 70 6c | 65 20 53 65 71 75 65 6e |Quadrupl|e Sequen|
|00003100| 63 65 22 7d 3b 0a 58 73 | 68 6f 72 74 09 64 72 75 |ce"};.Xs|hort.dru|
|00003110| 6e 76 61 6c 5b 33 5d 20 | 3d 20 7b 33 2c 20 38 2c |nval[3] |= {3, 8,|
|00003120| 20 31 36 7d 3b 0a 58 63 | 68 61 72 09 2a 70 61 69 | 16};.Xc|har.*pai|
|00003130| 72 6e 61 6d 65 5b 35 5d | 20 3d 20 7b 22 30 22 2c |rname[5]| = {"0",|
|00003140| 22 30 22 2c 22 50 61 69 | 72 22 2c 22 50 61 69 72 |"0","Pai|r","Pair|
|00003150| 20 52 6f 79 61 6c 22 2c | 22 44 6f 75 62 6c 65 20 | Royal",|"Double |
|00003160| 50 61 69 72 20 52 6f 79 | 61 6c 22 7d 3b 0a 58 73 |Pair Roy|al"};.Xs|
|00003170| 68 6f 72 74 09 70 61 69 | 72 76 61 6c 75 65 5b 35 |hort.pai|rvalue[5|
|00003180| 5d 20 3d 20 7b 30 2c 30 | 2c 32 2c 36 2c 31 32 7d |] = {0,0|,2,6,12}|
|00003190| 3b 0a 58 63 68 61 72 09 | 2a 72 61 6e 6b 6e 61 6d |;.Xchar.|*ranknam|
|000031a0| 65 5b 31 34 5d 20 3d 20 | 7b 22 30 22 2c 20 22 41 |e[14] = |{"0", "A|
|000031b0| 63 65 22 2c 22 44 65 75 | 63 65 22 2c 22 54 72 65 |ce","Deu|ce","Tre|
|000031c0| 79 22 2c 22 46 6f 75 72 | 22 2c 0a 58 09 09 09 22 |y","Four|",.X..."|
|000031d0| 46 69 76 65 22 2c 22 53 | 69 78 22 2c 22 53 65 76 |Five","S|ix","Sev|
|000031e0| 65 6e 22 2c 22 45 69 67 | 68 74 22 2c 22 4e 69 6e |en","Eig|ht","Nin|
|000031f0| 65 22 2c 22 54 65 6e 22 | 2c 0a 58 09 09 09 22 4b |e","Ten"|,.X..."K|
|00003200| 6e 61 76 65 22 2c 22 51 | 75 65 65 6e 22 2c 22 4b |nave","Q|ueen","K|
|00003210| 69 6e 67 22 7d 3b 0a 58 | 63 68 61 72 09 2a 72 61 |ing"};.X|char.*ra|
|00003220| 6e 6b 72 64 72 5b 31 34 | 5d 20 3d 20 7b 22 30 22 |nkrdr[14|] = {"0"|
|00003230| 2c 20 22 41 22 2c 0a 58 | 09 09 22 32 22 2c 22 33 |, "A",.X|.."2","3|
|00003240| 22 2c 22 34 22 2c 22 35 | 22 2c 22 36 22 2c 22 37 |","4","5|","6","7|
|00003250| 22 2c 22 38 22 2c 22 39 | 22 2c 22 31 30 22 2c 22 |","8","9|","10","|
|00003260| 4a 22 2c 22 51 22 2c 22 | 4b 22 7d 3b 0a 58 73 68 |J","Q","|K"};.Xsh|
|00003270| 6f 72 74 09 72 61 6e 6b | 76 61 6c 75 65 5b 31 34 |ort.rank|value[14|
|00003280| 5d 20 3d 20 7b 30 2c 20 | 31 2c 20 32 2c 20 33 2c |] = {0, |1, 2, 3,|
|00003290| 20 34 2c 20 35 2c 20 36 | 2c 20 37 2c 20 38 2c 20 | 4, 5, 6|, 7, 8, |
|000032a0| 39 2c 20 31 30 2c 20 31 | 30 2c 20 31 30 2c 20 31 |9, 10, 1|0, 10, 1|
|000032b0| 30 7d 3b 0a 58 63 68 61 | 72 09 2a 73 75 69 74 6e |0};.Xcha|r.*suitn|
|000032c0| 61 6d 65 5b 35 5d 20 3d | 20 7b 22 43 6c 75 62 73 |ame[5] =| {"Clubs|
|000032d0| 22 2c 20 22 44 69 61 6d | 6f 6e 64 73 22 2c 20 22 |", "Diam|onds", "|
|000032e0| 48 65 61 72 74 73 22 2c | 20 22 53 70 61 64 65 73 |Hearts",| "Spades|
|000032f0| 22 2c 20 22 43 61 62 62 | 61 67 65 73 22 7d 3b 0a |", "Cabb|ages"};.|
|00003300| 58 63 68 61 72 09 2a 73 | 75 69 74 72 64 72 5b 35 |Xchar.*s|uitrdr[5|
|00003310| 5d 20 3d 20 7b 22 63 22 | 2c 22 64 22 2c 22 68 22 |] = {"c"|,"d","h"|
|00003320| 2c 22 73 22 2c 22 78 22 | 7d 3b 0a 45 4e 44 5f 4f |,"s","x"|};.END_O|
|00003330| 46 5f 67 6c 6f 62 73 2e | 63 0a 69 66 20 74 65 73 |F_globs.|c.if tes|
|00003340| 74 20 31 30 31 34 20 2d | 6e 65 20 60 77 63 20 2d |t 1014 -|ne `wc -|
|00003350| 63 20 3c 67 6c 6f 62 73 | 2e 63 60 3b 20 74 68 65 |c <globs|.c`; the|
|00003360| 6e 0a 20 20 20 20 65 63 | 68 6f 20 73 68 61 72 3a |n. ec|ho shar:|
|00003370| 20 5c 22 67 6c 6f 62 73 | 2e 63 5c 22 20 75 6e 70 | \"globs|.c\" unp|
|00003380| 61 63 6b 65 64 20 77 69 | 74 68 20 77 72 6f 6e 67 |acked wi|th wrong|
|00003390| 20 73 69 7a 65 21 0a 66 | 69 0a 23 20 65 6e 64 20 | size!.f|i.# end |
|000033a0| 6f 66 20 6f 76 65 72 77 | 72 69 74 69 6e 67 20 63 |of overw|riting c|
|000033b0| 68 65 63 6b 0a 66 69 0a | 69 66 20 74 65 73 74 20 |heck.fi.|if test |
|000033c0| 2d 66 20 67 6c 6f 62 73 | 2e 68 20 2d 61 20 22 24 |-f globs|.h -a "$|
|000033d0| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|000033e0| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen . e|cho shar|
|000033f0| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d |: Will n|ot over-|
|00003400| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|00003410| 69 6c 65 20 5c 22 67 6c | 6f 62 73 2e 68 5c 22 0a |ile \"gl|obs.h\".|
|00003420| 65 6c 73 65 0a 65 63 68 | 6f 20 73 68 61 72 3a 20 |else.ech|o shar: |
|00003430| 45 78 74 72 61 63 74 69 | 6e 67 20 5c 22 67 6c 6f |Extracti|ng \"glo|
|00003440| 62 73 2e 68 5c 22 20 5c | 28 37 38 32 20 63 68 61 |bs.h\" \|(782 cha|
|00003450| 72 61 63 74 65 72 73 5c | 29 0a 73 65 64 20 22 73 |racters\|).sed "s|
|00003460| 2f 5e 58 2f 2f 22 20 3e | 67 6c 6f 62 73 2e 68 20 |/^X//" >|globs.h |
|00003470| 3c 3c 27 45 4e 44 5f 4f | 46 5f 67 6c 6f 62 73 2e |<<'END_O|F_globs.|
|00003480| 68 27 0a 58 2f 2a 0a 58 | 20 2a 09 67 6c 6f 62 73 |h'.X/*.X| *.globs|
|00003490| 2e 68 20 2d 20 67 6c 6f | 62 61 6c 20 76 61 72 69 |.h - glo|bal vari|
|000034a0| 61 62 6c 65 73 2e 0a 58 | 20 2a 2f 0a 58 0a 58 65 |ables..X| */.X.Xe|
|000034b0| 78 74 65 72 6e 09 73 68 | 6f 72 74 09 63 6f 75 6e |xtern.sh|ort.coun|
|000034c0| 74 3b 0a 58 65 78 74 65 | 72 6e 09 43 41 52 44 09 |t;.Xexte|rn.CARD.|
|000034d0| 63 72 69 62 5b 36 5d 3b | 0a 58 65 78 74 65 72 6e |crib[6];|.Xextern|
|000034e0| 09 43 41 52 44 09 63 75 | 74 3b 0a 58 65 78 74 65 |.CARD.cu|t;.Xexte|
|000034f0| 72 6e 09 69 6e 74 09 64 | 65 61 6c 65 72 3b 0a 58 |rn.int.d|ealer;.X|
|00003500| 65 78 74 65 72 6e 09 63 | 68 61 72 09 2a 64 72 75 |extern.c|har.*dru|
|00003510| 6e 6e 61 6d 65 5b 5d 3b | 0a 58 65 78 74 65 72 6e |nname[];|.Xextern|
|00003520| 09 73 68 6f 72 74 09 64 | 72 75 6e 76 61 6c 5b 5d |.short.d|runval[]|
|00003530| 3b 0a 58 65 78 74 65 72 | 6e 09 69 6e 74 09 28 2a |;.Xexter|n.int.(*|
|00003540| 64 73 63 66 75 6e 63 5b | 5d 29 28 29 3b 0a 58 65 |dscfunc[|])();.Xe|
|00003550| 78 74 65 72 6e 09 63 68 | 61 72 09 67 61 6d 65 6f |xtern.ch|ar.gameo|
|00003560| 76 65 72 3b 0a 58 65 78 | 74 65 72 6e 09 43 41 52 |ver;.Xex|tern.CAR|
|00003570| 44 09 67 6f 5b 38 5d 3b | 0a 58 65 78 74 65 72 6e |D.go[8];|.Xextern|
|00003580| 09 73 68 6f 72 74 09 67 | 6f 63 6f 75 6e 74 3b 0a |.short.g|ocount;.|
|00003590| 58 65 78 74 65 72 6e 09 | 43 41 52 44 09 68 61 6e |Xextern.|CARD.han|
|000035a0| 64 5b 32 5d 5b 36 5d 3b | 0a 58 65 78 74 65 72 6e |d[2][6];|.Xextern|
|000035b0| 09 63 68 61 72 09 68 61 | 6e 64 6f 76 65 72 3b 0a |.char.ha|ndover;.|
|000035c0| 58 65 78 74 65 72 6e 09 | 73 68 6f 72 74 09 68 66 |Xextern.|short.hf|
|000035d0| 6c 61 67 3b 0a 58 65 78 | 74 65 72 6e 09 73 68 6f |lag;.Xex|tern.sho|
|000035e0| 72 74 09 6e 63 72 69 62 | 3b 0a 58 65 78 74 65 72 |rt.ncrib|;.Xexter|
|000035f0| 6e 09 73 68 6f 72 74 09 | 6e 6c 65 66 74 5b 32 5d |n.short.|nleft[2]|
|00003600| 3b 0a 58 65 78 74 65 72 | 6e 09 43 41 52 44 09 70 |;.Xexter|n.CARD.p|
|00003610| 61 63 6b 5b 35 32 5d 3b | 0a 58 65 78 74 65 72 6e |ack[52];|.Xextern|
|00003620| 09 69 6e 74 09 70 61 63 | 6b 6d 61 64 65 3b 0a 58 |.int.pac|kmade;.X|
|00003630| 65 78 74 65 72 6e 09 63 | 68 61 72 09 2a 70 61 69 |extern.c|har.*pai|
|00003640| 72 6e 61 6d 65 5b 5d 3b | 0a 58 65 78 74 65 72 6e |rname[];|.Xextern|
|00003650| 09 73 68 6f 72 74 09 70 | 61 69 72 76 61 6c 75 65 |.short.p|airvalue|
|00003660| 5b 5d 3b 0a 58 65 78 74 | 65 72 6e 09 73 68 6f 72 |[];.Xext|ern.shor|
|00003670| 74 09 70 65 67 5b 32 5d | 5b 32 5d 3b 0a 58 65 78 |t.peg[2]|[2];.Xex|
|00003680| 74 65 72 6e 09 63 68 61 | 72 09 70 6c 61 79 65 64 |tern.cha|r.played|
|00003690| 5b 32 5d 5b 34 5d 3b 0a | 58 65 78 74 65 72 6e 09 |[2][4];.|Xextern.|
|000036a0| 50 4c 41 59 45 52 09 70 | 6c 61 79 65 72 74 79 70 |PLAYER.p|layertyp|
|000036b0| 65 5b 32 5d 3b 0a 58 65 | 78 74 65 72 6e 09 63 68 |e[2];.Xe|xtern.ch|
|000036c0| 61 72 09 71 75 69 74 66 | 6c 61 67 3b 0a 58 65 78 |ar.quitf|lag;.Xex|
|000036d0| 74 65 72 6e 09 63 68 61 | 72 09 2a 72 61 6e 6b 6e |tern.cha|r.*rankn|
|000036e0| 61 6d 65 5b 31 34 5d 3b | 0a 58 65 78 74 65 72 6e |ame[14];|.Xextern|
|000036f0| 09 63 68 61 72 09 2a 72 | 61 6e 6b 72 64 72 5b 31 |.char.*r|ankrdr[1|
|00003700| 34 5d 3b 0a 58 65 78 74 | 65 72 6e 09 73 68 6f 72 |4];.Xext|ern.shor|
|00003710| 74 09 72 61 6e 6b 76 61 | 6c 75 65 5b 31 34 5d 3b |t.rankva|lue[14];|
|00003720| 0a 58 65 78 74 65 72 6e | 09 73 68 6f 72 74 09 73 |.Xextern|.short.s|
|00003730| 63 6f 72 65 5b 32 5d 3b | 0a 58 65 78 74 65 72 6e |core[2];|.Xextern|
|00003740| 09 63 68 61 72 09 2a 73 | 75 69 74 6e 61 6d 65 5b |.char.*s|uitname[|
|00003750| 35 5d 3b 0a 58 65 78 74 | 65 72 6e 09 63 68 61 72 |5];.Xext|ern.char|
|00003760| 09 2a 73 75 69 74 72 64 | 72 5b 35 5d 3b 0a 58 65 |.*suitrd|r[5];.Xe|
|00003770| 78 74 65 72 6e 09 63 68 | 61 72 09 76 65 72 73 69 |xtern.ch|ar.versi|
|00003780| 6f 6e 5b 5d 3b 0a 58 65 | 78 74 65 72 6e 09 73 68 |on[];.Xe|xtern.sh|
|00003790| 6f 72 74 09 77 68 6f 73 | 65 67 6f 3b 0a 58 65 78 |ort.whos|ego;.Xex|
|000037a0| 74 65 72 6e 09 63 68 61 | 72 09 77 68 6f 73 65 74 |tern.cha|r.whoset|
|000037b0| 75 72 6e 3b 0a 45 4e 44 | 5f 4f 46 5f 67 6c 6f 62 |urn;.END|_OF_glob|
|000037c0| 73 2e 68 0a 69 66 20 74 | 65 73 74 20 37 38 32 20 |s.h.if t|est 782 |
|000037d0| 2d 6e 65 20 60 77 63 20 | 2d 63 20 3c 67 6c 6f 62 |-ne `wc |-c <glob|
|000037e0| 73 2e 68 60 3b 20 74 68 | 65 6e 0a 20 20 20 20 65 |s.h`; th|en. e|
|000037f0| 63 68 6f 20 73 68 61 72 | 3a 20 5c 22 67 6c 6f 62 |cho shar|: \"glob|
|00003800| 73 2e 68 5c 22 20 75 6e | 70 61 63 6b 65 64 20 77 |s.h\" un|packed w|
|00003810| 69 74 68 20 77 72 6f 6e | 67 20 73 69 7a 65 21 0a |ith wron|g size!.|
|00003820| 66 69 0a 23 20 65 6e 64 | 20 6f 66 20 6f 76 65 72 |fi.# end| of over|
|00003830| 77 72 69 74 69 6e 67 20 | 63 68 65 63 6b 0a 66 69 |writing |check.fi|
|00003840| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 68 75 6d 61 |.if test| -f huma|
|00003850| 6e 2e 63 20 2d 61 20 22 | 24 7b 31 7d 22 20 21 3d |n.c -a "|${1}" !=|
|00003860| 20 22 2d 63 22 20 3b 20 | 74 68 65 6e 20 0a 20 20 | "-c" ; |then . |
|00003870| 65 63 68 6f 20 73 68 61 | 72 3a 20 57 69 6c 6c 20 |echo sha|r: Will |
|00003880| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|00003890| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 5c 22 68 |xisting |file \"h|
|000038a0| 75 6d 61 6e 2e 63 5c 22 | 0a 65 6c 73 65 0a 65 63 |uman.c\"|.else.ec|
|000038b0| 68 6f 20 73 68 61 72 3a | 20 45 78 74 72 61 63 74 |ho shar:| Extract|
|000038c0| 69 6e 67 20 5c 22 68 75 | 6d 61 6e 2e 63 5c 22 20 |ing \"hu|man.c\" |
|000038d0| 5c 28 33 30 39 35 20 63 | 68 61 72 61 63 74 65 72 |\(3095 c|haracter|
|000038e0| 73 5c 29 0a 73 65 64 20 | 22 73 2f 5e 58 2f 2f 22 |s\).sed |"s/^X//"|
|000038f0| 20 3e 68 75 6d 61 6e 2e | 63 20 3c 3c 27 45 4e 44 | >human.|c <<'END|
|00003900| 5f 4f 46 5f 68 75 6d 61 | 6e 2e 63 27 0a 58 23 69 |_OF_huma|n.c'.X#i|
|00003910| 6e 63 6c 75 64 65 20 22 | 64 65 66 73 2e 68 22 0a |nclude "|defs.h".|
|00003920| 58 23 69 6e 63 6c 75 64 | 65 20 22 67 6c 6f 62 73 |X#includ|e "globs|
|00003930| 2e 68 22 0a 58 23 69 6e | 63 6c 75 64 65 20 22 77 |.h".X#in|clude "w|
|00003940| 69 6e 64 6f 77 2e 68 22 | 0a 58 0a 58 23 69 66 64 |indow.h"|.X.X#ifd|
|00003950| 65 66 09 42 53 44 0a 58 | 23 69 6e 63 6c 75 64 65 |ef.BSD.X|#include|
|00003960| 20 3c 63 74 79 70 65 2e | 68 3e 0a 58 23 65 6e 64 | <ctype.|h>.X#end|
|00003970| 69 66 0a 58 0a 58 73 74 | 61 74 69 63 09 63 68 61 |if.X.Xst|atic.cha|
|00003980| 72 20 73 65 6c 65 63 74 | 65 64 5b 36 5d 3b 0a 58 |r select|ed[6];.X|
|00003990| 73 74 61 74 69 63 09 69 | 6e 74 20 6e 73 65 6c 65 |static.i|nt nsele|
|000039a0| 63 74 65 64 3b 0a 58 0a | 58 68 75 6d 61 6e 64 69 |cted;.X.|Xhumandi|
|000039b0| 73 63 61 72 64 28 68 61 | 6e 64 2c 20 6d 79 64 65 |scard(ha|nd, myde|
|000039c0| 61 6c 29 0a 58 43 41 52 | 44 20 68 61 6e 64 5b 5d |al).XCAR|D hand[]|
|000039d0| 3b 0a 58 69 6e 74 20 6d | 79 64 65 61 6c 3b 0a 58 |;.Xint m|ydeal;.X|
|000039e0| 7b 0a 58 09 69 6e 74 20 | 6a 2c 20 6a 31 2c 20 6a |{.X.int |j, j1, j|
|000039f0| 32 3b 0a 58 09 63 68 61 | 72 20 6b 3b 0a 58 09 66 |2;.X.cha|r k;.X.f|
|00003a00| 6f 72 20 28 6a 3d 30 3b | 20 6a 3c 36 3b 20 6a 2b |or (j=0;| j<6; j+|
|00003a10| 2b 29 20 6d 76 77 61 64 | 64 63 68 28 53 65 6c 65 |+) mvwad|dch(Sele|
|00003a20| 63 74 2c 20 30 2c 20 35 | 2a 6a 2b 32 2c 20 27 61 |ct, 0, 5|*j+2, 'a|
|00003a30| 27 2b 6a 29 3b 0a 58 09 | 77 72 65 66 72 65 73 68 |'+j);.X.|wrefresh|
|00003a40| 28 53 65 6c 65 63 74 29 | 3b 0a 58 09 6d 76 77 70 |(Select)|;.X.mvwp|
|00003a50| 72 69 6e 74 77 28 0a 58 | 09 50 72 6f 6d 70 74 2c |rintw(.X|.Prompt,|
|00003a60| 20 30 2c 20 30 2c 20 6d | 79 64 65 61 6c 3f 20 22 | 0, 0, m|ydeal? "|
|00003a70| 49 74 20 69 73 20 79 6f | 75 72 20 63 72 69 62 2e |It is yo|ur crib.|
|00003a80| 5c 6e 22 3a 20 22 49 74 | 20 69 73 20 6d 79 20 63 |\n": "It| is my c|
|00003a90| 72 69 62 2e 5c 6e 22 29 | 3b 0a 58 23 69 66 64 65 |rib.\n")|;.X#ifde|
|00003aa0| 66 20 47 44 49 53 43 0a | 58 09 6d 76 77 70 72 69 |f GDISC.|X.mvwpri|
|00003ab0| 6e 74 77 28 50 72 6f 6d | 70 74 2c 20 31 2c 20 30 |ntw(Prom|pt, 1, 0|
|00003ac0| 2c 20 22 53 65 6c 65 63 | 74 20 32 20 63 61 72 64 |, "Selec|t 2 card|
|00003ad0| 73 2e 20 20 54 79 70 65 | 20 5c 22 67 5c 22 20 74 |s. Type| \"g\" t|
|00003ae0| 6f 20 64 69 73 63 61 72 | 64 2e 5c 6e 22 29 3b 0a |o discar|d.\n");.|
|00003af0| 58 23 65 6c 73 65 0a 58 | 09 6d 76 77 70 72 69 6e |X#else.X|.mvwprin|
|00003b00| 74 77 28 50 72 6f 6d 70 | 74 2c 20 31 2c 20 30 2c |tw(Promp|t, 1, 0,|
|00003b10| 20 22 53 65 6c 65 63 74 | 20 32 20 63 61 72 64 73 | "Select| 2 cards|
|00003b20| 2e 20 20 54 79 70 65 20 | 52 45 54 55 52 4e 20 74 |. Type |RETURN t|
|00003b30| 6f 20 64 69 73 63 61 72 | 64 2e 5c 6e 22 29 3b 0a |o discar|d.\n");.|
|00003b40| 58 23 65 6e 64 69 66 0a | 58 09 69 66 20 28 68 66 |X#endif.|X.if (hf|
|00003b50| 6c 61 67 29 20 7b 0a 58 | 09 09 6d 76 77 70 72 69 |lag) {.X|..mvwpri|
|00003b60| 6e 74 77 28 48 73 63 6f | 72 65 2c 20 30 2c 20 30 |ntw(Hsco|re, 0, 0|
|00003b70| 2c 20 22 54 79 70 65 20 | 5c 22 68 5c 22 20 66 6f |, "Type |\"h\" fo|
|00003b80| 72 20 68 69 6e 74 5c 6e | 22 29 3b 0a 58 09 09 77 |r hint\n|");.X..w|
|00003b90| 72 65 66 72 65 73 68 28 | 48 73 63 6f 72 65 29 3b |refresh(|Hscore);|
|00003ba0| 0a 58 09 7d 0a 58 09 66 | 6f 72 20 28 6a 3d 30 3b |.X.}.X.f|or (j=0;|
|00003bb0| 20 6a 3c 36 3b 20 6a 2b | 2b 29 20 73 65 6c 65 63 | j<6; j+|+) selec|
|00003bc0| 74 65 64 5b 6a 5d 3d 30 | 3b 0a 58 09 6e 73 65 6c |ted[j]=0|;.X.nsel|
|00003bd0| 65 63 74 65 64 20 3d 20 | 30 3b 0a 58 09 66 6f 72 |ected = |0;.X.for|
|00003be0| 20 28 3b 3b 29 20 7b 0a | 58 09 09 6d 76 77 61 64 | (;;) {.|X..mvwad|
|00003bf0| 64 63 68 28 50 72 6f 6d | 70 74 2c 20 31 2c 20 34 |dch(Prom|pt, 1, 4|
|00003c00| 31 2c 20 27 5c 6e 27 29 | 3b 0a 58 09 09 77 6d 6f |1, '\n')|;.X..wmo|
|00003c10| 76 65 28 50 72 6f 6d 70 | 74 2c 20 31 2c 20 34 31 |ve(Promp|t, 1, 41|
|00003c20| 29 3b 0a 58 09 09 77 72 | 65 66 72 65 73 68 28 50 |);.X..wr|efresh(P|
|00003c30| 72 6f 6d 70 74 29 3b 0a | 58 09 09 6b 20 3d 20 77 |rompt);.|X..k = w|
|00003c40| 67 65 74 63 68 28 50 72 | 6f 6d 70 74 29 3b 0a 58 |getch(Pr|ompt);.X|
|00003c50| 09 09 6b 20 3d 20 74 6f | 6c 6f 77 65 72 28 6b 29 |..k = to|lower(k)|
|00003c60| 3b 0a 58 23 69 66 64 65 | 66 20 47 44 49 53 43 0a |;.X#ifde|f GDISC.|
|00003c70| 58 09 09 69 66 20 28 27 | 67 27 3d 3d 6b 29 20 7b |X..if ('|g'==k) {|
|00003c80| 0a 58 23 65 6c 73 65 0a | 58 09 09 69 66 20 28 27 |.X#else.|X..if ('|
|00003c90| 5c 6e 27 3d 3d 6b 20 7c | 7c 20 27 5c 72 27 3d 3d |\n'==k ||| '\r'==|
|00003ca0| 6b 29 20 7b 0a 58 23 65 | 6e 64 69 66 0a 58 09 09 |k) {.X#e|ndif.X..|
|00003cb0| 09 69 66 20 28 6e 73 65 | 6c 65 63 74 65 64 20 3d |.if (nse|lected =|
|00003cc0| 3d 20 32 29 20 62 72 65 | 61 6b 3b 0a 58 09 09 09 |= 2) bre|ak;.X...|
|00003cd0| 62 65 65 70 28 29 3b 0a | 58 09 09 09 63 6f 6e 74 |beep();.|X...cont|
|00003ce0| 69 6e 75 65 3b 0a 58 09 | 09 7d 0a 58 09 09 69 66 |inue;.X.|.}.X..if|
|00003cf0| 20 28 68 66 6c 61 67 20 | 26 26 20 6b 20 3d 3d 20 | (hflag |&& k == |
|00003d00| 27 68 27 29 20 7b 0a 58 | 09 09 09 68 69 6e 74 28 |'h') {.X|...hint(|
|00003d10| 68 61 6e 64 2c 20 6d 79 | 64 65 61 6c 29 3b 0a 58 |hand, my|deal);.X|
|00003d20| 09 09 09 63 6f 6e 74 69 | 6e 75 65 3b 0a 58 09 09 |...conti|nue;.X..|
|00003d30| 7d 0a 58 09 09 69 66 20 | 28 6b 20 3e 20 27 66 27 |}.X..if |(k > 'f'|
|00003d40| 20 7c 7c 20 6b 20 3c 20 | 27 61 27 29 20 7b 0a 58 | || k < |'a') {.X|
|00003d50| 09 09 09 62 65 65 70 28 | 29 3b 0a 58 09 09 09 63 |...beep(|);.X...c|
|00003d60| 6f 6e 74 69 6e 75 65 3b | 0a 58 09 09 7d 0a 58 09 |ontinue;|.X..}.X.|
|00003d70| 09 6e 73 65 6c 65 63 74 | 65 64 20 2d 3d 20 73 65 |.nselect|ed -= se|
|00003d80| 6c 65 63 74 65 64 5b 6b | 2d 27 61 27 5d 3b 0a 58 |lected[k|-'a'];.X|
|00003d90| 09 09 6e 73 65 6c 65 63 | 74 65 64 20 2b 3d 20 28 |..nselec|ted += (|
|00003da0| 73 65 6c 65 63 74 65 64 | 5b 6b 2d 27 61 27 5d 20 |selected|[k-'a'] |
|00003db0| 5e 3d 20 31 29 3b 0a 58 | 09 09 6d 76 77 61 64 64 |^= 1);.X|..mvwadd|
|00003dc0| 63 68 28 48 75 6d 61 6e | 68 61 6e 64 2c 20 32 2c |ch(Human|hand, 2,|
|00003dd0| 20 35 2a 28 6b 2d 27 61 | 27 29 2b 33 2c 0a 58 09 | 5*(k-'a|')+3,.X.|
|00003de0| 09 09 73 65 6c 65 63 74 | 65 64 5b 6b 2d 27 61 27 |..select|ed[k-'a'|
|00003df0| 5d 3f 20 27 2a 27 3a 20 | 27 20 27 29 3b 0a 58 09 |]? '*': |' ');.X.|
|00003e00| 09 77 72 65 66 72 65 73 | 68 28 48 75 6d 61 6e 68 |.wrefres|h(Humanh|
|00003e10| 61 6e 64 29 3b 0a 58 09 | 7d 0a 58 09 69 66 20 28 |and);.X.|}.X.if (|
|00003e20| 68 66 6c 61 67 29 20 7b | 0a 58 09 09 77 65 72 61 |hflag) {|.X..wera|
|00003e30| 73 65 28 48 73 63 6f 72 | 65 29 3b 0a 58 09 09 77 |se(Hscor|e);.X..w|
|00003e40| 72 65 66 72 65 73 68 28 | 48 73 63 6f 72 65 29 3b |refresh(|Hscore);|
|00003e50| 0a 58 09 7d 0a 58 09 77 | 65 72 61 73 65 28 53 65 |.X.}.X.w|erase(Se|
|00003e60| 6c 65 63 74 29 3b 0a 58 | 09 77 65 72 61 73 65 28 |lect);.X|.werase(|
|00003e70| 50 72 6f 6d 70 74 29 3b | 0a 58 09 77 72 65 66 72 |Prompt);|.X.wrefr|
|00003e80| 65 73 68 28 53 65 6c 65 | 63 74 29 3b 0a 58 09 77 |esh(Sele|ct);.X.w|
|00003e90| 72 65 66 72 65 73 68 28 | 50 72 6f 6d 70 74 29 3b |refresh(|Prompt);|
|00003ea0| 0a 58 09 66 6f 72 20 28 | 6a 3d 30 3b 20 6a 3c 36 |.X.for (|j=0; j<6|
|00003eb0| 3b 20 6a 2b 2b 29 20 69 | 66 20 28 73 65 6c 65 63 |; j++) i|f (selec|
|00003ec0| 74 65 64 5b 6a 5d 29 20 | 7b 0a 58 09 09 6a 31 20 |ted[j]) |{.X..j1 |
|00003ed0| 3d 20 6a 32 3b 09 2f 2a | 20 61 6e 64 20 79 6f 75 |= j2;./*| and you|
|00003ee0| 20 6b 6e 6f 77 20 4c 69 | 6e 74 20 77 6f 6e 27 74 | know Li|nt won't|
|00003ef0| 20 6c 69 6b 65 20 74 68 | 69 73 21 20 2a 2f 0a 58 | like th|is! */.X|
|00003f00| 09 09 6a 32 20 3d 20 6a | 3b 0a 58 09 7d 0a 58 09 |..j2 = j|;.X.}.X.|
|00003f10| 6d 61 6b 65 64 69 73 63 | 61 72 64 28 68 61 6e 64 |makedisc|ard(hand|
|00003f20| 2c 20 6a 31 2c 20 6a 32 | 29 3b 0a 58 7d 0a 58 0a |, j1, j2|);.X}.X.|
|00003f30| 58 68 69 6e 74 28 69 68 | 61 6e 64 2c 20 6d 79 64 |Xhint(ih|and, myd|
|00003f40| 65 61 6c 29 0a 58 7b 0a | 58 09 69 6e 74 20 61 2c |eal).X{.|X.int a,|
|00003f50| 20 62 2c 20 6b 3b 0a 58 | 09 62 65 73 74 64 69 73 | b, k;.X|.bestdis|
|00003f60| 28 69 68 61 6e 64 2c 20 | 6d 79 64 65 61 6c 2c 20 |(ihand, |mydeal, |
|00003f70| 26 61 2c 20 26 62 29 3b | 0a 58 09 66 6f 72 20 28 |&a, &b);|.X.for (|
|00003f80| 6b 3d 30 3b 20 6b 3c 36 | 3b 20 6b 2b 2b 29 20 7b |k=0; k<6|; k++) {|
|00003f90| 0a 58 09 09 73 65 6c 65 | 63 74 65 64 5b 6b 5d 20 |.X..sele|cted[k] |
|00003fa0| 3d 20 6b 3d 3d 61 20 7c | 7c 20 6b 3d 3d 62 3b 0a |= k==a ||| k==b;.|
|00003fb0| 58 09 09 6d 76 77 61 64 | 64 63 68 28 48 75 6d 61 |X..mvwad|dch(Huma|
|00003fc0| 6e 68 61 6e 64 2c 20 32 | 2c 20 35 2a 6b 2b 33 2c |nhand, 2|, 5*k+3,|
|00003fd0| 20 73 65 6c 65 63 74 65 | 64 5b 6b 5d 3f 20 27 2a | selecte|d[k]? '*|
|00003fe0| 27 3a 20 27 20 27 29 3b | 0a 58 09 7d 0a 58 09 6e |': ' ');|.X.}.X.n|
|00003ff0| 73 65 6c 65 63 74 65 64 | 20 3d 20 32 3b 0a 58 09 |selected| = 2;.X.|
|00004000| 77 65 72 61 73 65 28 48 | 73 63 6f 72 65 29 3b 0a |werase(H|score);.|
|00004010| 58 09 77 72 65 66 72 65 | 73 68 28 48 75 6d 61 6e |X.wrefre|sh(Human|
|00004020| 68 61 6e 64 29 3b 0a 58 | 09 77 72 65 66 72 65 73 |hand);.X|.wrefres|
|00004030| 68 28 48 73 63 6f 72 65 | 29 3b 0a 58 7d 0a 58 0a |h(Hscore|);.X}.X.|
|00004040| 58 68 75 6d 61 6e 70 6c | 61 79 28 29 0a 58 7b 0a |Xhumanpl|ay().X{.|
|00004050| 58 09 63 68 61 72 20 6b | 3b 0a 58 09 69 6e 74 20 |X.char k|;.X.int |
|00004060| 73 63 6f 3b 0a 58 09 69 | 66 20 28 77 68 6f 73 65 |sco;.X.i|f (whose|
|00004070| 67 6f 20 3d 3d 20 77 68 | 6f 73 65 74 75 72 6e 29 |go == wh|oseturn)|
|00004080| 20 7b 0a 58 2f 2a 0a 58 | 20 2a 09 49 74 20 69 73 | {.X/*.X| *.It is|
|00004090| 20 6d 79 20 67 6f 2e 20 | 20 43 61 6e 20 49 20 70 | my go. | Can I p|
|000040a0| 6c 61 79 3f 0a 58 20 2a | 2f 0a 58 09 09 69 66 20 |lay?.X *|/.X..if |
|000040b0| 28 67 6f 6f 64 67 6f 28 | 77 68 6f 73 65 74 75 72 |(goodgo(|whosetur|
|000040c0| 6e 29 29 20 7b 0a 58 09 | 09 09 53 43 4f 52 45 55 |n)) {.X.|..SCOREU|
|000040d0| 50 28 77 68 6f 73 65 74 | 75 72 6e 2c 20 31 29 3b |P(whoset|urn, 1);|
|000040e0| 0a 58 09 09 09 72 65 73 | 65 74 67 6f 28 29 3b 0a |.X...res|etgo();.|
|000040f0| 58 09 09 09 68 61 6e 64 | 6f 76 65 72 20 3d 20 21 |X...hand|over = !|
|00004100| 6e 6c 65 66 74 5b 30 5d | 20 26 26 20 21 6e 6c 65 |nleft[0]| && !nle|
|00004110| 66 74 5b 31 5d 3b 0a 58 | 09 09 09 72 65 74 75 72 |ft[1];.X|...retur|
|00004120| 6e 3b 0a 58 09 09 7d 0a | 58 09 09 65 6c 73 65 20 |n;.X..}.|X..else |
|00004130| 6d 76 77 70 72 69 6e 74 | 77 28 50 72 6f 6d 70 74 |mvwprint|w(Prompt|
|00004140| 2c 20 31 2c 20 30 2c 20 | 22 53 65 6c 65 63 74 20 |, 1, 0, |"Select |
|00004150| 61 20 63 61 72 64 2e 5c | 6e 22 29 3b 0a 58 09 7d |a card.\|n");.X.}|
|00004160| 0a 58 09 65 6c 73 65 20 | 69 66 20 28 21 6e 6c 65 |.X.else |if (!nle|
|00004170| 66 74 5b 77 68 6f 73 65 | 74 75 72 6e 5d 29 20 7b |ft[whose|turn]) {|
|00004180| 0a 58 09 09 68 61 6e 64 | 6f 76 65 72 20 3d 20 21 |.X..hand|over = !|
|00004190| 6e 6c 65 66 74 5b 30 5d | 20 26 26 20 21 6e 6c 65 |nleft[0]| && !nle|
|000041a0| 66 74 5b 31 5d 3b 0a 58 | 09 09 69 66 20 28 68 61 |ft[1];.X|..if (ha|
|000041b0| 6e 64 6f 76 65 72 29 20 | 53 43 4f 52 45 55 50 28 |ndover) |SCOREUP(|
|000041c0| 77 68 6f 73 65 74 75 72 | 6e 2c 20 31 29 3b 0a 58 |whosetur|n, 1);.X|
|000041d0| 09 09 72 65 74 75 72 6e | 3b 0a 58 09 7d 0a 58 09 |..return|;.X.}.X.|
|000041e0| 65 6c 73 65 20 69 66 20 | 28 77 68 6f 73 65 67 6f |else if |(whosego|
|000041f0| 20 3d 3d 20 21 77 68 6f | 73 65 74 75 72 6e 29 20 | == !who|seturn) |
|00004200| 72 65 74 75 72 6e 3b 0a | 58 09 65 6c 73 65 20 6d |return;.|X.else m|
|00004210| 76 77 70 72 69 6e 74 77 | 28 50 72 6f 6d 70 74 2c |vwprintw|(Prompt,|
|00004220| 20 31 2c 20 30 2c 20 22 | 53 65 6c 65 63 74 20 61 | 1, 0, "|Select a|
|00004230| 20 63 61 72 64 2c 20 6f | 72 20 74 79 70 65 20 5c | card, o|r type \|
|00004240| 22 67 5c 22 20 66 6f 72 | 20 67 6f 2e 22 29 3b 0a |"g\" for| go.");.|
|00004250| 58 09 66 6f 72 20 28 3b | 3b 29 20 7b 0a 58 09 09 |X.for (;|;) {.X..|
|00004260| 6d 76 77 61 64 64 63 68 | 28 50 72 6f 6d 70 74 2c |mvwaddch|(Prompt,|
|00004270| 20 31 2c 20 34 31 2c 20 | 27 5c 6e 27 29 3b 0a 58 | 1, 41, |'\n');.X|
|00004280| 09 09 77 72 65 66 72 65 | 73 68 28 50 72 6f 6d 70 |..wrefre|sh(Promp|
|00004290| 74 29 3b 0a 58 09 09 6b | 20 3d 20 77 67 65 74 63 |t);.X..k| = wgetc|
|000042a0| 68 28 50 72 6f 6d 70 74 | 29 3b 0a 58 09 09 6b 20 |h(Prompt|);.X..k |
|000042b0| 3d 20 74 6f 6c 6f 77 65 | 72 28 6b 29 3b 0a 58 09 |= tolowe|r(k);.X.|
|000042c0| 09 69 66 20 28 6b 20 3d | 3d 20 27 67 27 29 20 7b |.if (k =|= 'g') {|
|000042d0| 0a 58 09 09 09 69 66 20 | 28 67 6f 6f 64 67 6f 28 |.X...if |(goodgo(|
|000042e0| 77 68 6f 73 65 74 75 72 | 6e 29 29 20 7b 0a 58 09 |whosetur|n)) {.X.|
|000042f0| 09 09 09 77 68 6f 73 65 | 67 6f 20 3d 20 21 77 68 |...whose|go = !wh|
|00004300| 6f 73 65 74 75 72 6e 3b | 0a 58 09 09 09 09 72 65 |oseturn;|.X....re|
|00004310| 74 75 72 6e 3b 0a 58 09 | 09 09 7d 0a 58 09 09 09 |turn;.X.|..}.X...|
|00004320| 65 6c 73 65 20 62 65 65 | 70 28 29 3b 0a 58 09 09 |else bee|p();.X..|
|00004330| 7d 0a 58 09 09 65 6c 73 | 65 20 69 66 20 28 6b 20 |}.X..els|e if (k |
|00004340| 3c 20 27 61 27 20 7c 7c | 20 6b 20 3e 20 27 64 27 |< 'a' ||| k > 'd'|
|00004350| 29 20 62 65 65 70 28 29 | 3b 0a 58 09 09 65 6c 73 |) beep()|;.X..els|
|00004360| 65 20 69 66 20 28 67 6f | 6f 64 70 6c 61 79 28 77 |e if (go|odplay(w|
|00004370| 68 6f 73 65 74 75 72 6e | 2c 20 6b 2d 27 61 27 29 |hoseturn|, k-'a')|
|00004380| 29 20 62 72 65 61 6b 3b | 0a 58 09 09 65 6c 73 65 |) break;|.X..else|
|00004390| 20 62 65 65 70 28 29 3b | 0a 58 09 7d 0a 58 09 77 | beep();|.X.}.X.w|
|000043a0| 65 72 61 73 65 28 50 72 | 6f 6d 70 74 29 3b 0a 58 |erase(Pr|ompt);.X|
|000043b0| 09 70 6c 61 79 65 64 5b | 77 68 6f 73 65 74 75 72 |.played[|whosetur|
|000043c0| 6e 5d 5b 6b 2d 27 61 27 | 5d 20 3d 20 31 3b 0a 58 |n][k-'a'|] = 1;.X|
|000043d0| 09 63 6f 75 6e 74 20 2b | 3d 20 72 61 6e 6b 76 61 |.count +|= rankva|
|000043e0| 6c 75 65 5b 52 41 4e 4b | 28 68 61 6e 64 5b 77 68 |lue[RANK|(hand[wh|
|000043f0| 6f 73 65 74 75 72 6e 5d | 5b 6b 2d 27 61 27 5d 29 |oseturn]|[k-'a'])|
|00004400| 5d 3b 0a 58 09 67 6f 5b | 67 6f 63 6f 75 6e 74 2b |];.X.go[|gocount+|
|00004410| 2b 5d 20 3d 20 68 61 6e | 64 5b 77 68 6f 73 65 74 |+] = han|d[whoset|
|00004420| 75 72 6e 5d 5b 6b 2d 27 | 61 27 5d 3b 0a 58 09 6e |urn][k-'|a'];.X.n|
|00004430| 6c 65 66 74 5b 77 68 6f | 73 65 74 75 72 6e 5d 20 |left[who|seturn] |
|00004440| 2d 3d 20 31 3b 0a 58 09 | 73 63 6f 20 3d 20 70 6c |-= 1;.X.|sco = pl|
|00004450| 61 79 73 63 6f 72 65 28 | 29 3b 0a 58 09 73 68 6f |ayscore(|);.X.sho|
|00004460| 77 68 70 6c 61 79 28 6b | 2d 27 61 27 2c 20 73 63 |whplay(k|-'a', sc|
|00004470| 6f 29 3b 0a 58 09 69 66 | 20 28 73 63 6f 29 20 53 |o);.X.if| (sco) S|
|00004480| 43 4f 52 45 55 50 28 77 | 68 6f 73 65 74 75 72 6e |COREUP(w|hoseturn|
|00004490| 2c 20 73 63 6f 29 3b 0a | 58 09 68 61 6e 64 6f 76 |, sco);.|X.handov|
|000044a0| 65 72 20 3d 20 21 6e 6c | 65 66 74 5b 30 5d 20 26 |er = !nl|eft[0] &|
|000044b0| 26 20 21 6e 6c 65 66 74 | 5b 31 5d 3b 0a 58 09 69 |& !nleft|[1];.X.i|
|000044c0| 66 20 28 63 6f 75 6e 74 | 3d 3d 33 31 29 20 72 65 |f (count|==31) re|
|000044d0| 73 65 74 67 6f 28 29 3b | 0a 58 09 65 6c 73 65 20 |setgo();|.X.else |
|000044e0| 69 66 20 28 68 61 6e 64 | 6f 76 65 72 29 20 7b 0a |if (hand|over) {.|
|000044f0| 58 09 09 6d 76 77 70 72 | 69 6e 74 77 28 50 72 6f |X..mvwpr|intw(Pro|
|00004500| 6d 70 74 2c 20 30 2c 20 | 30 2c 20 22 54 68 61 74 |mpt, 0, |0, "That|
|00004510| 27 73 20 61 20 47 6f 5c | 6e 22 29 3b 0a 58 09 09 |'s a Go\|n");.X..|
|00004520| 53 43 4f 52 45 55 50 28 | 77 68 6f 73 65 74 75 72 |SCOREUP(|whosetur|
|00004530| 6e 2c 20 31 29 3b 0a 58 | 09 7d 0a 58 09 73 6c 65 |n, 1);.X|.}.X.sle|
|00004540| 65 70 28 31 29 3b 0a 58 | 7d 0a 58 0a 58 2f 2a 0a |ep(1);.X|}.X.X/*.|
|00004550| 58 20 2a 09 54 68 69 73 | 20 69 73 20 70 72 65 2d |X *.This| is pre-|
|00004560| 64 65 66 69 6e 65 64 20 | 69 6e 20 56 72 32 20 63 |defined |in Vr2 c|
|00004570| 75 72 73 65 73 2c 20 62 | 75 74 20 49 27 6c 6c 20 |urses, b|ut I'll |
|00004580| 6a 75 73 74 20 64 65 66 | 69 6e 65 20 69 74 20 61 |just def|ine it a|
|00004590| 6e 79 77 61 79 2e 0a 58 | 20 2a 2f 0a 58 62 65 65 |nyway..X| */.Xbee|
|000045a0| 70 28 29 0a 58 7b 0a 58 | 09 70 75 74 63 68 61 72 |p().X{.X|.putchar|
|000045b0| 28 27 5c 30 30 37 27 29 | 3b 0a 58 7d 0a 45 4e 44 |('\007')|;.X}.END|
|000045c0| 5f 4f 46 5f 68 75 6d 61 | 6e 2e 63 0a 69 66 20 74 |_OF_huma|n.c.if t|
|000045d0| 65 73 74 20 33 30 39 35 | 20 2d 6e 65 20 60 77 63 |est 3095| -ne `wc|
|000045e0| 20 2d 63 20 3c 68 75 6d | 61 6e 2e 63 60 3b 20 74 | -c <hum|an.c`; t|
|000045f0| 68 65 6e 0a 20 20 20 20 | 65 63 68 6f 20 73 68 61 |hen. |echo sha|
|00004600| 72 3a 20 5c 22 68 75 6d | 61 6e 2e 63 5c 22 20 75 |r: \"hum|an.c\" u|
|00004610| 6e 70 61 63 6b 65 64 20 | 77 69 74 68 20 77 72 6f |npacked |with wro|
|00004620| 6e 67 20 73 69 7a 65 21 | 0a 66 69 0a 23 20 65 6e |ng size!|.fi.# en|
|00004630| 64 20 6f 66 20 6f 76 65 | 72 77 72 69 74 69 6e 67 |d of ove|rwriting|
|00004640| 20 63 68 65 63 6b 0a 66 | 69 0a 69 66 20 74 65 73 | check.f|i.if tes|
|00004650| 74 20 2d 66 20 6c 6f 67 | 61 75 78 2e 63 20 2d 61 |t -f log|aux.c -a|
|00004660| 20 22 24 7b 31 7d 22 20 | 21 3d 20 22 2d 63 22 20 | "${1}" |!= "-c" |
|00004670| 3b 20 74 68 65 6e 20 0a | 20 20 65 63 68 6f 20 73 |; then .| echo s|
|00004680| 68 61 72 3a 20 57 69 6c | 6c 20 6e 6f 74 20 6f 76 |har: Wil|l not ov|
|00004690| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|000046a0| 67 20 66 69 6c 65 20 5c | 22 6c 6f 67 61 75 78 2e |g file \|"logaux.|
|000046b0| 63 5c 22 0a 65 6c 73 65 | 0a 65 63 68 6f 20 73 68 |c\".else|.echo sh|
|000046c0| 61 72 3a 20 45 78 74 72 | 61 63 74 69 6e 67 20 5c |ar: Extr|acting \|
|000046d0| 22 6c 6f 67 61 75 78 2e | 63 5c 22 20 5c 28 31 37 |"logaux.|c\" \(17|
|000046e0| 33 20 63 68 61 72 61 63 | 74 65 72 73 5c 29 0a 73 |3 charac|ters\).s|
|000046f0| 65 64 20 22 73 2f 5e 58 | 2f 2f 22 20 3e 6c 6f 67 |ed "s/^X|//" >log|
|00004700| 61 75 78 2e 63 20 3c 3c | 27 45 4e 44 5f 4f 46 5f |aux.c <<|'END_OF_|
|00004710| 6c 6f 67 61 75 78 2e 63 | 27 0a 58 23 69 6e 63 6c |logaux.c|'.X#incl|
|00004720| 75 64 65 20 22 64 65 66 | 73 2e 68 22 0a 58 0a 58 |ude "def|s.h".X.X|
|00004730| 69 6e 74 0a 58 63 69 6e | 64 65 78 28 61 2c 20 62 |int.Xcin|dex(a, b|
|00004740| 29 0a 58 43 41 52 44 20 | 61 2c 20 62 3b 0a 58 7b |).XCARD |a, b;.X{|
|00004750| 0a 58 09 72 65 67 69 73 | 74 65 72 20 74 2c 20 75 |.X.regis|ter t, u|
|00004760| 3b 0a 58 09 74 20 3d 20 | 52 41 4e 4b 28 61 29 3b |;.X.t = |RANK(a);|
|00004770| 0a 58 09 75 20 3d 20 52 | 41 4e 4b 28 62 29 3b 0a |.X.u = R|ANK(b);.|
|00004780| 58 09 69 66 20 28 74 20 | 3c 20 75 29 20 7b 0a 58 |X.if (t |< u) {.X|
|00004790| 09 09 74 20 3d 20 52 41 | 4e 4b 28 62 29 3b 0a 58 |..t = RA|NK(b);.X|
|000047a0| 09 09 75 20 3d 20 52 41 | 4e 4b 28 61 29 3b 0a 58 |..u = RA|NK(a);.X|
|000047b0| 09 7d 0a 58 09 72 65 74 | 75 72 6e 20 75 20 2d 20 |.}.X.ret|urn u - |
|000047c0| 31 20 2b 20 28 74 20 2a | 20 28 74 2d 31 29 29 2f |1 + (t *| (t-1))/|
|000047d0| 32 3b 0a 58 7d 0a 45 4e | 44 5f 4f 46 5f 6c 6f 67 |2;.X}.EN|D_OF_log|
|000047e0| 61 75 78 2e 63 0a 69 66 | 20 74 65 73 74 20 31 37 |aux.c.if| test 17|
|000047f0| 33 20 2d 6e 65 20 60 77 | 63 20 2d 63 20 3c 6c 6f |3 -ne `w|c -c <lo|
|00004800| 67 61 75 78 2e 63 60 3b | 20 74 68 65 6e 0a 20 20 |gaux.c`;| then. |
|00004810| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 5c 22 6c | echo s|har: \"l|
|00004820| 6f 67 61 75 78 2e 63 5c | 22 20 75 6e 70 61 63 6b |ogaux.c\|" unpack|
|00004830| 65 64 20 77 69 74 68 20 | 77 72 6f 6e 67 20 73 69 |ed with |wrong si|
|00004840| 7a 65 21 0a 66 69 0a 23 | 20 65 6e 64 20 6f 66 20 |ze!.fi.#| end of |
|00004850| 6f 76 65 72 77 72 69 74 | 69 6e 67 20 63 68 65 63 |overwrit|ing chec|
|00004860| 6b 0a 66 69 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |k.fi.if |test -f |
|00004870| 6c 6f 67 67 6c 6f 62 73 | 2e 63 20 2d 61 20 22 24 |logglobs|.c -a "$|
|00004880| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|00004890| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen . e|cho shar|
|000048a0| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d |: Will n|ot over-|
|000048b0| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|000048c0| 69 6c 65 20 5c 22 6c 6f | 67 67 6c 6f 62 73 2e 63 |ile \"lo|gglobs.c|
|000048d0| 5c 22 0a 65 6c 73 65 0a | 65 63 68 6f 20 73 68 61 |\".else.|echo sha|
|000048e0| 72 3a 20 45 78 74 72 61 | 63 74 69 6e 67 20 5c 22 |r: Extra|cting \"|
|000048f0| 6c 6f 67 67 6c 6f 62 73 | 2e 63 5c 22 20 5c 28 31 |logglobs|.c\" \(1|
|00004900| 31 33 36 20 63 68 61 72 | 61 63 74 65 72 73 5c 29 |136 char|acters\)|
|00004910| 0a 73 65 64 20 22 73 2f | 5e 58 2f 2f 22 20 3e 6c |.sed "s/|^X//" >l|
|00004920| 6f 67 67 6c 6f 62 73 2e | 63 20 3c 3c 27 45 4e 44 |ogglobs.|c <<'END|
|00004930| 5f 4f 46 5f 6c 6f 67 67 | 6c 6f 62 73 2e 63 27 0a |_OF_logg|lobs.c'.|
|00004940| 58 66 6c 6f 61 74 09 64 | 69 73 74 61 62 6c 65 5b |Xfloat.d|istable[|
|00004950| 32 5d 5b 39 31 5d 20 3d | 20 7b 0a 58 36 2e 32 39 |2][91] =| {.X6.29|
|00004960| 30 2c 35 2e 30 32 38 2c | 36 2e 34 39 30 2c 35 2e |0,5.028,|6.490,5.|
|00004970| 30 39 32 2c 37 2e 32 35 | 36 2c 36 2e 37 34 34 2c |092,7.25|6,6.744,|
|00004980| 35 2e 37 37 36 2c 35 2e | 32 39 37 2c 35 2e 39 31 |5.776,5.|297,5.91|
|00004990| 37 2c 36 2e 36 39 39 2c | 36 2e 30 38 33 2c 36 2e |7,6.699,|6.083,6.|
|000049a0| 31 38 31 2c 0a 58 36 2e | 37 33 34 2c 37 2e 32 32 |181,.X6.|734,7.22|
|000049b0| 32 2c 39 2e 34 36 33 2c | 34 2e 39 39 33 2c 35 2e |2,9.463,|4.993,5.|
|000049c0| 30 36 38 2c 34 2e 39 30 | 39 2c 35 2e 32 37 37 2c |068,4.90|9,5.277,|
|000049d0| 37 2e 35 32 38 2c 37 2e | 31 35 32 2c 35 2e 31 37 |7.528,7.|152,5.17|
|000049e0| 37 2c 35 2e 31 34 35 2c | 35 2e 30 37 30 2c 0a 58 |7,5.145,|5.070,.X|
|000049f0| 34 2e 39 36 39 2c 37 2e | 30 36 31 2c 36 2e 35 30 |4.969,7.|061,6.50|
|00004a00| 33 2c 37 2e 34 35 31 2c | 34 2e 39 35 34 2c 34 2e |3,7.451,|4.954,4.|
|00004a10| 39 37 30 2c 34 2e 39 36 | 33 2c 34 2e 39 32 32 2c |970,4.96|3,4.922,|
|00004a20| 36 2e 32 38 33 2c 35 2e | 39 35 31 2c 38 2e 31 30 |6.283,5.|951,8.10|
|00004a30| 33 2c 36 2e 38 30 38 2c | 0a 58 34 2e 37 32 35 2c |3,6.808,|.X4.725,|
|00004a40| 34 2e 38 31 30 2c 34 2e | 38 32 36 2c 34 2e 37 34 |4.810,4.|826,4.74|
|00004a50| 35 2c 36 2e 31 37 30 2c | 36 2e 34 33 34 2c 35 2e |5,6.170,|6.434,5.|
|00004a60| 34 30 32 2c 35 2e 39 35 | 39 2c 36 2e 35 33 36 2c |402,5.95|9,6.536,|
|00004a70| 34 2e 35 30 34 2c 34 2e | 36 31 30 2c 34 2e 35 38 |4.504,4.|610,4.58|
|00004a80| 36 2c 0a 58 34 2e 34 38 | 35 2c 37 2e 34 37 36 2c |6,.X4.48|5,7.476,|
|00004a90| 34 2e 33 33 32 2c 34 2e | 34 36 35 2c 35 2e 30 34 |4.332,4.|465,5.04|
|00004aa0| 33 2c 35 2e 35 36 38 2c | 36 2e 31 31 34 2c 34 2e |3,5.568,|6.114,4.|
|00004ab0| 37 38 36 2c 34 2e 38 39 | 33 2c 34 2e 38 36 39 2c |786,4.89|3,4.869,|
|00004ac0| 34 2e 37 36 37 2c 37 2e | 37 35 38 2c 0a 58 34 2e |4.767,7.|758,.X4.|
|00004ad0| 36 31 35 2c 34 2e 38 32 | 36 2c 34 2e 36 37 38 2c |615,4.82|6,4.678,|
|00004ae0| 35 2e 31 34 30 2c 35 2e | 34 37 38 2c 36 2e 36 36 |5.140,5.|478,6.66|
|00004af0| 36 2c 34 2e 33 36 30 2c | 34 2e 34 36 37 2c 34 2e |6,4.360,|4.467,4.|
|00004b00| 34 34 33 2c 34 2e 33 34 | 31 2c 37 2e 33 33 32 2c |443,4.34|1,7.332,|
|00004b10| 34 2e 31 38 39 2c 0a 58 | 34 2e 34 30 30 2c 34 2e |4.189,.X|4.400,4.|
|00004b20| 33 31 30 2c 34 2e 30 38 | 39 2c 34 2e 35 36 34 2c |310,4.08|9,4.564,|
|00004b30| 35 2e 33 35 39 2c 35 2e | 38 32 34 2c 34 2e 32 31 |5.359,5.|824,4.21|
|00004b40| 31 2c 34 2e 33 31 38 2c | 34 2e 32 39 34 2c 34 2e |1,4.318,|4.294,4.|
|00004b50| 31 39 32 2c 37 2e 31 38 | 34 2c 34 2e 30 34 30 2c |192,7.18|4,4.040,|
|00004b60| 0a 58 34 2e 32 35 31 2c | 34 2e 31 36 32 2c 34 2e |.X4.251,|4.162,4.|
|00004b70| 30 31 39 2c 33 2e 37 36 | 33 2c 34 2e 36 35 30 2c |019,3.76|3,4.650,|
|00004b80| 34 2e 32 39 30 2c 35 2e | 35 32 36 2c 35 2e 35 38 |4.290,5.|526,5.58|
|00004b90| 30 2c 34 2e 33 33 39 2c | 35 2e 39 36 36 2c 34 2e |0,4.339,|5.966,4.|
|00004ba0| 35 38 35 2c 37 2e 31 38 | 33 2c 0a 58 36 2e 31 30 |585,7.18|3,.X6.10|
|00004bb0| 32 2c 35 2e 35 39 36 2c | 34 2e 35 34 35 2c 34 2e |2,5.596,|4.545,4.|
|00004bc0| 38 39 32 2c 35 2e 38 30 | 38 2c 35 2e 35 36 32 2c |892,5.80|8,5.562,|
|00004bd0| 35 2e 35 38 33 2c 36 2e | 30 33 39 2c 36 2e 35 30 |5.583,6.|039,6.50|
|00004be0| 31 2c 38 2e 39 30 39 2c | 33 2e 38 36 38 2c 33 2e |1,8.909,|3.868,3.|
|00004bf0| 38 37 36 2c 0a 58 33 2e | 38 33 39 2c 33 2e 38 31 |876,.X3.|839,3.81|
|00004c00| 38 2c 36 2e 35 33 38 2c | 35 2e 38 34 36 2c 33 2e |8,6.538,|5.846,3.|
|00004c10| 37 38 34 2c 33 2e 38 35 | 36 2c 33 2e 36 37 38 2c |784,3.85|6,3.678,|
|00004c20| 33 2e 37 39 37 2c 35 2e | 39 38 36 2c 34 2e 37 39 |3.797,5.|986,4.79|
|00004c30| 35 2c 35 2e 39 34 35 2c | 33 2e 37 33 30 2c 0a 58 |5,5.945,|3.730,.X|
|00004c40| 33 2e 36 34 34 2c 33 2e | 38 37 39 2c 33 2e 38 33 |3.644,3.|879,3.83|
|00004c50| 30 2c 35 2e 34 39 30 2c | 34 2e 34 34 38 2c 36 2e |0,5.490,|4.448,6.|
|00004c60| 35 33 35 2c 35 2e 33 38 | 30 2c 33 2e 34 35 33 2c |535,5.38|0,3.453,|
|00004c70| 33 2e 37 38 30 2c 33 2e | 38 32 38 2c 33 2e 37 38 |3.780,3.|828,3.78|
|00004c80| 30 2c 35 2e 34 37 37 2c | 0a 58 35 2e 32 33 34 2c |0,5.477,|.X5.234,|
|00004c90| 33 2e 39 34 30 2c 34 2e | 35 33 31 2c 35 2e 32 35 |3.940,4.|531,5.25|
|00004ca0| 39 2c 33 2e 34 36 32 2c | 33 2e 36 30 32 2c 33 2e |9,3.462,|3.602,3.|
|00004cb0| 36 35 30 2c 33 2e 36 30 | 31 2c 36 2e 37 32 35 2c |650,3.60|1,6.725,|
|00004cc0| 33 2e 30 38 39 2c 33 2e | 30 36 39 2c 33 2e 37 34 |3.089,3.|069,3.74|
|00004cd0| 32 2c 0a 58 34 2e 31 33 | 30 2c 34 2e 38 37 38 2c |2,.X4.13|0,4.878,|
|00004ce0| 33 2e 37 34 36 2c 33 2e | 38 38 36 2c 33 2e 39 33 |3.746,3.|886,3.93|
|00004cf0| 34 2c 33 2e 38 38 35 2c | 37 2e 30 30 39 2c 33 2e |4,3.885,|7.009,3.|
|00004d00| 33 37 32 2c 33 2e 34 30 | 36 2c 33 2e 33 34 38 2c |372,3.40|6,3.348,|
|00004d10| 33 2e 39 33 33 2c 34 2e | 35 33 30 2c 0a 58 35 2e |3.933,4.|530,.X5.|
|00004d20| 34 33 35 2c 33 2e 35 33 | 34 2c 33 2e 36 37 33 2c |435,3.53|4,3.673,|
|00004d30| 33 2e 37 32 32 2c 33 2e | 36 37 32 2c 36 2e 37 39 |3.722,3.|672,6.79|
|00004d40| 37 2c 33 2e 31 36 30 2c | 33 2e 31 39 34 2c 33 2e |7,3.160,|3.194,3.|
|00004d50| 31 39 34 2c 33 2e 30 38 | 36 2c 33 2e 33 33 36 2c |194,3.08|6,3.336,|
|00004d60| 34 2e 38 35 38 2c 0a 58 | 35 2e 30 30 35 2c 33 2e |4.858,.X|5.005,3.|
|00004d70| 35 33 31 2c 33 2e 36 37 | 31 2c 33 2e 37 31 39 2c |531,3.67|1,3.719,|
|00004d80| 33 2e 36 37 30 2c 36 2e | 37 39 34 2c 33 2e 31 35 |3.670,6.|794,3.15|
|00004d90| 38 2c 33 2e 31 39 32 2c | 33 2e 31 39 31 2c 33 2e |8,3.192,|3.191,3.|
|00004da0| 31 32 36 2c 32 2e 38 38 | 39 2c 34 2e 30 33 31 2c |126,2.88|9,4.031,|
|00004db0| 0a 58 33 2e 34 36 39 2c | 35 2e 30 30 33 0a 58 7d |.X3.469,|5.003.X}|
|00004dc0| 3b 0a 45 4e 44 5f 4f 46 | 5f 6c 6f 67 67 6c 6f 62 |;.END_OF|_logglob|
|00004dd0| 73 2e 63 0a 69 66 20 74 | 65 73 74 20 31 31 33 36 |s.c.if t|est 1136|
|00004de0| 20 2d 6e 65 20 60 77 63 | 20 2d 63 20 3c 6c 6f 67 | -ne `wc| -c <log|
|00004df0| 67 6c 6f 62 73 2e 63 60 | 3b 20 74 68 65 6e 0a 20 |globs.c`|; then. |
|00004e00| 20 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 5c 22 | echo |shar: \"|
|00004e10| 6c 6f 67 67 6c 6f 62 73 | 2e 63 5c 22 20 75 6e 70 |logglobs|.c\" unp|
|00004e20| 61 63 6b 65 64 20 77 69 | 74 68 20 77 72 6f 6e 67 |acked wi|th wrong|
|00004e30| 20 73 69 7a 65 21 0a 66 | 69 0a 23 20 65 6e 64 20 | size!.f|i.# end |
|00004e40| 6f 66 20 6f 76 65 72 77 | 72 69 74 69 6e 67 20 63 |of overw|riting c|
|00004e50| 68 65 63 6b 0a 66 69 0a | 69 66 20 74 65 73 74 20 |heck.fi.|if test |
|00004e60| 2d 66 20 6c 6f 67 67 6c | 6f 62 73 2e 68 20 2d 61 |-f loggl|obs.h -a|
|00004e70| 20 22 24 7b 31 7d 22 20 | 21 3d 20 22 2d 63 22 20 | "${1}" |!= "-c" |
|00004e80| 3b 20 74 68 65 6e 20 0a | 20 20 65 63 68 6f 20 73 |; then .| echo s|
|00004e90| 68 61 72 3a 20 57 69 6c | 6c 20 6e 6f 74 20 6f 76 |har: Wil|l not ov|
|00004ea0| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00004eb0| 67 20 66 69 6c 65 20 5c | 22 6c 6f 67 67 6c 6f 62 |g file \|"logglob|
|00004ec0| 73 2e 68 5c 22 0a 65 6c | 73 65 0a 65 63 68 6f 20 |s.h\".el|se.echo |
|00004ed0| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|00004ee0| 20 5c 22 6c 6f 67 67 6c | 6f 62 73 2e 68 5c 22 20 | \"loggl|obs.h\" |
|00004ef0| 5c 28 33 30 20 63 68 61 | 72 61 63 74 65 72 73 5c |\(30 cha|racters\|
|00004f00| 29 0a 73 65 64 20 22 73 | 2f 5e 58 2f 2f 22 20 3e |).sed "s|/^X//" >|
|00004f10| 6c 6f 67 67 6c 6f 62 73 | 2e 68 20 3c 3c 27 45 4e |logglobs|.h <<'EN|
|00004f20| 44 5f 4f 46 5f 6c 6f 67 | 67 6c 6f 62 73 2e 68 27 |D_OF_log|globs.h'|
|00004f30| 0a 58 65 78 74 65 72 6e | 09 66 6c 6f 61 74 09 64 |.Xextern|.float.d|
|00004f40| 69 73 74 61 62 6c 65 5b | 32 5d 5b 39 31 5d 3b 0a |istable[|2][91];.|
|00004f50| 45 4e 44 5f 4f 46 5f 6c | 6f 67 67 6c 6f 62 73 2e |END_OF_l|ogglobs.|
|00004f60| 68 0a 69 66 20 74 65 73 | 74 20 33 30 20 2d 6e 65 |h.if tes|t 30 -ne|
|00004f70| 20 60 77 63 20 2d 63 20 | 3c 6c 6f 67 67 6c 6f 62 | `wc -c |<logglob|
|00004f80| 73 2e 68 60 3b 20 74 68 | 65 6e 0a 20 20 20 20 65 |s.h`; th|en. e|
|00004f90| 63 68 6f 20 73 68 61 72 | 3a 20 5c 22 6c 6f 67 67 |cho shar|: \"logg|
|00004fa0| 6c 6f 62 73 2e 68 5c 22 | 20 75 6e 70 61 63 6b 65 |lobs.h\"| unpacke|
|00004fb0| 64 20 77 69 74 68 20 77 | 72 6f 6e 67 20 73 69 7a |d with w|rong siz|
|00004fc0| 65 21 0a 66 69 0a 23 20 | 65 6e 64 20 6f 66 20 6f |e!.fi.# |end of o|
|00004fd0| 76 65 72 77 72 69 74 69 | 6e 67 20 63 68 65 63 6b |verwriti|ng check|
|00004fe0| 0a 66 69 0a 69 66 20 74 | 65 73 74 20 2d 66 20 6e |.fi.if t|est -f n|
|00004ff0| 6f 62 73 2e 36 20 2d 61 | 20 22 24 7b 31 7d 22 20 |obs.6 -a| "${1}" |
|00005000| 21 3d 20 22 2d 63 22 20 | 3b 20 74 68 65 6e 20 0a |!= "-c" |; then .|
|00005010| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 57 69 6c | echo s|har: Wil|
|00005020| 6c 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 65 |l not ov|er-write|
|00005030| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 5c | existin|g file \|
|00005040| 22 6e 6f 62 73 2e 36 5c | 22 0a 65 6c 73 65 0a 65 |"nobs.6\|".else.e|
|00005050| 63 68 6f 20 73 68 61 72 | 3a 20 45 78 74 72 61 63 |cho shar|: Extrac|
|00005060| 74 69 6e 67 20 5c 22 6e | 6f 62 73 2e 36 5c 22 20 |ting \"n|obs.6\" |
|00005070| 5c 28 37 34 32 20 63 68 | 61 72 61 63 74 65 72 73 |\(742 ch|aracters|
|00005080| 5c 29 0a 73 65 64 20 22 | 73 2f 5e 58 2f 2f 22 20 |\).sed "|s/^X//" |
|00005090| 3e 6e 6f 62 73 2e 36 20 | 3c 3c 27 45 4e 44 5f 4f |>nobs.6 |<<'END_O|
|000050a0| 46 5f 6e 6f 62 73 2e 36 | 27 0a 58 2e 64 65 20 51 |F_nobs.6|'.X.de Q|
|000050b0| 55 0a 58 2e 69 65 20 74 | 20 60 60 5c 5c 24 31 27 |U.X.ie t| ``\\$1'|
|000050c0| 27 5c 5c 24 32 0a 58 2e | 65 6c 20 22 5c 5c 24 31 |'\\$2.X.|el "\\$1|
|000050d0| 22 5c 5c 24 32 0a 58 2e | 2e 0a 58 2e 54 48 20 4e |"\\$2.X.|..X.TH N|
|000050e0| 4f 42 53 20 36 20 22 32 | 33 20 4d 61 72 63 68 20 |OBS 6 "2|3 March |
|000050f0| 31 39 38 38 22 20 22 22 | 20 22 4c 6f 63 61 6c 20 |1988" ""| "Local |
|00005100| 55 4e 49 58 20 50 72 6f | 67 72 61 6d 6d 65 72 27 |UNIX Pro|grammer'|
|00005110| 73 20 4d 61 6e 75 61 6c | 22 0a 58 2e 53 48 20 4e |s Manual|".X.SH N|
|00005120| 41 4d 45 0a 58 6e 6f 62 | 73 20 5c 2d 20 63 72 69 |AME.Xnob|s \- cri|
|00005130| 62 62 61 67 65 20 67 61 | 6d 65 0a 58 2e 53 48 20 |bbage ga|me.X.SH |
|00005140| 53 59 4e 4f 50 53 49 53 | 0a 58 2e 42 20 6e 6f 62 |SYNOPSIS|.X.B nob|
|00005150| 73 0a 58 5b 0a 58 2e 69 | 66 20 27 5c 2a 28 6e 68 |s.X[.X.i|f '\*(nh|
|00005160| 27 27 20 5c 7b 5c 0a 58 | 2e 42 20 5c 2d 68 0a 58 |'' \{\.X|.B \-h.X|
|00005170| 5d 20 5b 5c 7d 0a 58 2e | 42 20 5c 2d 76 0a 58 5d |] [\}.X.|B \-v.X]|
|00005180| 0a 58 2e 53 48 20 44 45 | 53 43 52 49 50 54 49 4f |.X.SH DE|SCRIPTIO|
|00005190| 4e 0a 58 57 69 74 68 20 | 6e 6f 20 61 72 67 75 6d |N.XWith |no argum|
|000051a0| 65 6e 74 73 2c 0a 58 2e | 49 20 6e 6f 62 73 0a 58 |ents,.X.|I nobs.X|
|000051b0| 70 6c 61 79 73 20 73 63 | 72 65 65 6e 2d 6f 72 69 |plays sc|reen-ori|
|000051c0| 65 6e 74 65 64 20 67 61 | 6d 65 73 20 6f 66 20 63 |ented ga|mes of c|
|000051d0| 72 69 62 62 61 67 65 20 | 77 69 74 68 20 79 6f 75 |ribbage |with you|
|000051e0| 2e 0a 58 59 6f 75 20 73 | 65 6c 65 63 74 20 63 61 |..XYou s|elect ca|
|000051f0| 72 64 73 20 62 79 20 74 | 79 70 69 6e 67 20 61 20 |rds by t|yping a |
|00005200| 6c 65 74 74 65 72 20 66 | 72 6f 6d 0a 58 2e 51 55 |letter f|rom.X.QU|
|00005210| 20 61 0a 58 74 6f 0a 58 | 2e 51 55 20 66 20 2e 0a | a.Xto.X|.QU f ..|
|00005220| 58 54 68 65 20 70 72 6f | 67 72 61 6d 20 6b 65 65 |XThe pro|gram kee|
|00005230| 70 73 20 73 63 6f 72 65 | 2e 0a 58 47 61 6d 65 20 |ps score|..XGame |
|00005240| 69 73 20 31 32 31 20 70 | 6f 69 6e 74 73 2e 0a 58 |is 121 p|oints..X|
|00005250| 2e 50 50 0a 58 2e 69 66 | 20 27 5c 2a 28 6e 68 27 |.PP.X.if| '\*(nh'|
|00005260| 27 20 5c 7b 5c 0a 58 49 | 66 20 79 6f 75 20 73 70 |' \{\.XI|f you sp|
|00005270| 65 63 69 66 79 0a 58 2e | 42 52 20 5c 2d 68 20 2c |ecify.X.|BR \-h ,|
|00005280| 0a 58 2e 49 20 6e 6f 62 | 73 0a 58 77 69 6c 6c 20 |.X.I nob|s.Xwill |
|00005290| 6f 66 66 65 72 20 79 6f | 75 20 68 69 6e 74 73 20 |offer yo|u hints |
|000052a0| 6f 6e 20 64 69 73 63 61 | 72 64 69 6e 67 2e 5c 7d |on disca|rding.\}|
|000052b0| 0a 58 49 66 20 79 6f 75 | 20 73 70 65 63 69 66 79 |.XIf you| specify|
|000052c0| 0a 58 2e 42 52 20 5c 2d | 76 20 2c 0a 58 2e 49 20 |.X.BR \-|v ,.X.I |
|000052d0| 6e 6f 62 73 0a 58 70 72 | 69 6e 74 73 20 74 68 65 |nobs.Xpr|ints the|
|000052e0| 20 76 65 72 73 69 6f 6e | 20 6e 75 6d 62 65 72 20 | version| number |
|000052f0| 61 6e 64 20 65 78 69 74 | 73 2e 0a 58 2e 53 48 20 |and exit|s..X.SH |
|00005300| 57 41 52 4e 49 4e 47 0a | 58 54 68 69 73 20 70 72 |WARNING.|XThis pr|
|00005310| 6f 67 72 61 6d 20 68 61 | 73 20 62 65 65 6e 20 61 |ogram ha|s been a|
|00005320| 72 6f 75 6e 64 20 61 20 | 6c 6f 6e 67 20 74 69 6d |round a |long tim|
|00005330| 65 2c 20 68 61 76 69 6e | 67 20 73 74 61 72 74 65 |e, havin|g starte|
|00005340| 64 20 6f 75 74 20 0a 58 | 69 6e 20 46 4f 52 54 52 |d out .X|in FORTR|
|00005350| 41 4e 20 6f 6e 20 61 20 | 43 44 43 20 36 34 30 30 |AN on a |CDC 6400|
|00005360| 2e 0a 58 49 74 20 69 73 | 20 61 20 64 61 6e 67 65 |..XIt is| a dange|
|00005370| 72 6f 75 73 20 6f 70 70 | 6f 6e 65 6e 74 2e 0a 58 |rous opp|onent..X|
|00005380| 2e 53 48 20 41 55 54 48 | 4f 52 0a 58 47 2e 20 4c |.SH AUTH|OR.XG. L|
|00005390| 2e 20 53 69 63 68 65 72 | 6d 61 6e 20 20 28 69 68 |. Sicher|man (ih|
|000053a0| 6e 70 34 5c 5e 21 5c 5e | 6f 64 79 73 73 65 79 5c |np4\^!\^|odyssey\|
|000053b0| 5e 21 5c 5e 67 6c 73 29 | 0a 45 4e 44 5f 4f 46 5f |^!\^gls)|.END_OF_|
|000053c0| 6e 6f 62 73 2e 36 0a 69 | 66 20 74 65 73 74 20 37 |nobs.6.i|f test 7|
|000053d0| 34 32 20 2d 6e 65 20 60 | 77 63 20 2d 63 20 3c 6e |42 -ne `|wc -c <n|
|000053e0| 6f 62 73 2e 36 60 3b 20 | 74 68 65 6e 0a 20 20 20 |obs.6`; |then. |
|000053f0| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 5c 22 6e 6f | echo sh|ar: \"no|
|00005400| 62 73 2e 36 5c 22 20 75 | 6e 70 61 63 6b 65 64 20 |bs.6\" u|npacked |
|00005410| 77 69 74 68 20 77 72 6f | 6e 67 20 73 69 7a 65 21 |with wro|ng size!|
|00005420| 0a 66 69 0a 23 20 65 6e | 64 20 6f 66 20 6f 76 65 |.fi.# en|d of ove|
|00005430| 72 77 72 69 74 69 6e 67 | 20 63 68 65 63 6b 0a 66 |rwriting| check.f|
|00005440| 69 0a 69 66 20 74 65 73 | 74 20 2d 66 20 6e 6f 62 |i.if tes|t -f nob|
|00005450| 73 2e 63 20 2d 61 20 22 | 24 7b 31 7d 22 20 21 3d |s.c -a "|${1}" !=|
|00005460| 20 22 2d 63 22 20 3b 20 | 74 68 65 6e 20 0a 20 20 | "-c" ; |then . |
|00005470| 65 63 68 6f 20 73 68 61 | 72 3a 20 57 69 6c 6c 20 |echo sha|r: Will |
|00005480| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|00005490| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 5c 22 6e |xisting |file \"n|
|000054a0| 6f 62 73 2e 63 5c 22 0a | 65 6c 73 65 0a 65 63 68 |obs.c\".|else.ech|
|000054b0| 6f 20 73 68 61 72 3a 20 | 45 78 74 72 61 63 74 69 |o shar: |Extracti|
|000054c0| 6e 67 20 5c 22 6e 6f 62 | 73 2e 63 5c 22 20 5c 28 |ng \"nob|s.c\" \(|
|000054d0| 38 30 31 20 63 68 61 72 | 61 63 74 65 72 73 5c 29 |801 char|acters\)|
|000054e0| 0a 73 65 64 20 22 73 2f | 5e 58 2f 2f 22 20 3e 6e |.sed "s/|^X//" >n|
|000054f0| 6f 62 73 2e 63 20 3c 3c | 27 45 4e 44 5f 4f 46 5f |obs.c <<|'END_OF_|
|00005500| 6e 6f 62 73 2e 63 27 0a | 58 2f 2a 0a 58 20 2a 09 |nobs.c'.|X/*.X *.|
|00005510| 6e 6f 62 73 20 2d 20 70 | 6c 61 79 20 63 72 69 62 |nobs - p|lay crib|
|00005520| 62 61 67 65 2e 0a 58 20 | 2a 2f 0a 58 0a 58 23 69 |bage..X |*/.X.X#i|
|00005530| 6e 63 6c 75 64 65 20 3c | 73 74 64 69 6f 2e 68 3e |nclude <|stdio.h>|
|00005540| 0a 58 23 69 6e 63 6c 75 | 64 65 20 22 64 65 66 73 |.X#inclu|de "defs|
|00005550| 2e 68 22 0a 58 23 69 6e | 63 6c 75 64 65 20 22 67 |.h".X#in|clude "g|
|00005560| 6c 6f 62 73 2e 68 22 0a | 58 0a 58 65 78 74 65 72 |lobs.h".|X.Xexter|
|00005570| 6e 09 69 6e 74 09 70 72 | 6f 67 72 61 6d 64 69 73 |n.int.pr|ogramdis|
|00005580| 63 61 72 64 28 29 3b 0a | 58 65 78 74 65 72 6e 09 |card();.|Xextern.|
|00005590| 69 6e 74 09 68 75 6d 61 | 6e 64 69 73 63 61 72 64 |int.huma|ndiscard|
|000055a0| 28 29 3b 0a 58 0a 58 75 | 73 61 67 65 28 29 0a 58 |();.X.Xu|sage().X|
|000055b0| 7b 0a 58 23 69 66 64 65 | 66 09 4e 4f 48 49 4e 54 |{.X#ifde|f.NOHINT|
|000055c0| 0a 58 09 66 70 72 69 6e | 74 66 28 73 74 64 65 72 |.X.fprin|tf(stder|
|000055d0| 72 2c 22 75 73 61 67 65 | 3a 20 6e 6f 62 73 20 5b |r,"usage|: nobs [|
|000055e0| 2d 76 5d 5c 6e 22 29 3b | 0a 58 23 65 6c 73 65 0a |-v]\n");|.X#else.|
|000055f0| 58 09 66 70 72 69 6e 74 | 66 28 73 74 64 65 72 72 |X.fprint|f(stderr|
|00005600| 2c 22 75 73 61 67 65 3a | 20 6e 6f 62 73 20 5b 2d |,"usage:| nobs [-|
|00005610| 68 5d 20 5b 2d 76 5d 5c | 6e 22 29 3b 0a 58 23 65 |h] [-v]\|n");.X#e|
|00005620| 6e 64 69 66 0a 58 09 65 | 78 69 74 28 2d 31 29 3b |ndif.X.e|xit(-1);|
|00005630| 0a 58 7d 0a 58 0a 58 6d | 61 69 6e 28 61 72 67 63 |.X}.X.Xm|ain(argc|
|00005640| 2c 61 72 67 76 29 0a 58 | 69 6e 74 20 61 72 67 63 |,argv).X|int argc|
|00005650| 3b 0a 58 63 68 61 72 20 | 2a 2a 61 72 67 76 3b 0a |;.Xchar |**argv;.|
|00005660| 58 7b 0a 58 09 77 68 69 | 6c 65 20 28 2d 2d 61 72 |X{.X.whi|le (--ar|
|00005670| 67 63 29 20 7b 0a 58 09 | 09 69 66 20 28 27 2d 27 |gc) {.X.|.if ('-'|
|00005680| 3d 3d 2a 2a 2b 2b 61 72 | 67 76 29 20 73 77 69 74 |==**++ar|gv) swit|
|00005690| 63 68 28 2a 2b 2b 2a 61 | 72 67 76 29 20 7b 0a 58 |ch(*++*a|rgv) {.X|
|000056a0| 09 09 63 61 73 65 20 27 | 76 27 3a 0a 58 09 09 09 |..case '|v':.X...|
|000056b0| 70 72 69 6e 74 66 28 22 | 4e 6f 62 73 20 56 65 72 |printf("|Nobs Ver|
|000056c0| 73 69 6f 6e 20 25 73 5c | 6e 22 2c 20 76 65 72 73 |sion %s\|n", vers|
|000056d0| 69 6f 6e 29 3b 0a 58 09 | 09 09 65 78 69 74 28 30 |ion);.X.|..exit(0|
|000056e0| 29 3b 0a 58 23 69 66 6e | 64 65 66 09 4e 4f 48 49 |);.X#ifn|def.NOHI|
|000056f0| 4e 54 0a 58 09 09 63 61 | 73 65 20 27 68 27 3a 0a |NT.X..ca|se 'h':.|
|00005700| 58 09 09 09 68 66 6c 61 | 67 20 3d 20 31 3b 0a 58 |X...hfla|g = 1;.X|
|00005710| 09 09 09 62 72 65 61 6b | 3b 0a 58 23 65 6e 64 69 |...break|;.X#endi|
|00005720| 66 0a 58 09 09 64 65 66 | 61 75 6c 74 3a 0a 58 09 |f.X..def|ault:.X.|
|00005730| 09 09 75 73 61 67 65 28 | 29 3b 0a 58 09 09 7d 0a |..usage(|);.X..}.|
|00005740| 58 09 09 65 6c 73 65 20 | 62 72 65 61 6b 3b 0a 58 |X..else |break;.X|
|00005750| 09 7d 0a 58 09 69 66 20 | 28 61 72 67 63 29 20 75 |.}.X.if |(argc) u|
|00005760| 73 61 67 65 28 29 3b 0a | 58 09 69 6e 69 74 72 61 |sage();.|X.initra|
|00005770| 6e 64 28 29 3b 0a 58 09 | 69 6e 69 74 77 69 6e 73 |nd();.X.|initwins|
|00005780| 28 29 3b 0a 58 09 64 65 | 61 6c 65 72 20 3d 20 72 |();.X.de|aler = r|
|00005790| 61 6e 64 69 6e 74 28 32 | 29 3b 0a 58 09 70 6c 61 |andint(2|);.X.pla|
|000057a0| 79 65 72 74 79 70 65 5b | 30 5d 20 3d 20 50 52 4f |yertype[|0] = PRO|
|000057b0| 47 52 41 4d 3b 0a 58 09 | 70 6c 61 79 65 72 74 79 |GRAM;.X.|playerty|
|000057c0| 70 65 5b 31 5d 20 3d 20 | 48 55 4d 41 4e 3b 0a 58 |pe[1] = |HUMAN;.X|
|000057d0| 09 64 73 63 66 75 6e 63 | 5b 50 52 4f 47 52 41 4d |.dscfunc|[PROGRAM|
|000057e0| 5d 20 3d 20 70 72 6f 67 | 72 61 6d 64 69 73 63 61 |] = prog|ramdisca|
|000057f0| 72 64 3b 0a 58 09 64 73 | 63 66 75 6e 63 5b 48 55 |rd;.X.ds|cfunc[HU|
|00005800| 4d 41 4e 5d 20 3d 20 68 | 75 6d 61 6e 64 69 73 63 |MAN] = h|umandisc|
|00005810| 61 72 64 3b 0a 58 09 66 | 6f 72 20 28 71 75 69 74 |ard;.X.f|or (quit|
|00005820| 66 6c 61 67 3d 30 3b 20 | 21 71 75 69 74 66 6c 61 |flag=0; |!quitfla|
|00005830| 67 3b 20 29 20 70 6c 61 | 79 67 61 6d 65 28 29 3b |g; ) pla|ygame();|
|00005840| 0a 58 09 74 65 72 6d 77 | 69 6e 73 28 29 3b 0a 58 |.X.termw|ins();.X|
|00005850| 09 65 78 69 74 28 30 29 | 3b 0a 58 7d 0a 45 4e 44 |.exit(0)|;.X}.END|
|00005860| 5f 4f 46 5f 6e 6f 62 73 | 2e 63 0a 69 66 20 74 65 |_OF_nobs|.c.if te|
|00005870| 73 74 20 38 30 31 20 2d | 6e 65 20 60 77 63 20 2d |st 801 -|ne `wc -|
|00005880| 63 20 3c 6e 6f 62 73 2e | 63 60 3b 20 74 68 65 6e |c <nobs.|c`; then|
|00005890| 0a 20 20 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |. ech|o shar: |
|000058a0| 5c 22 6e 6f 62 73 2e 63 | 5c 22 20 75 6e 70 61 63 |\"nobs.c|\" unpac|
|000058b0| 6b 65 64 20 77 69 74 68 | 20 77 72 6f 6e 67 20 73 |ked with| wrong s|
|000058c0| 69 7a 65 21 0a 66 69 0a | 23 20 65 6e 64 20 6f 66 |ize!.fi.|# end of|
|000058d0| 20 6f 76 65 72 77 72 69 | 74 69 6e 67 20 63 68 65 | overwri|ting che|
|000058e0| 63 6b 0a 66 69 0a 69 66 | 20 74 65 73 74 20 2d 66 |ck.fi.if| test -f|
|000058f0| 20 70 65 67 73 2e 63 20 | 2d 61 20 22 24 7b 31 7d | pegs.c |-a "${1}|
|00005900| 22 20 21 3d 20 22 2d 63 | 22 20 3b 20 74 68 65 6e |" != "-c|" ; then|
|00005910| 20 0a 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 57 | . echo| shar: W|
|00005920| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|00005930| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|00005940| 20 5c 22 70 65 67 73 2e | 63 5c 22 0a 65 6c 73 65 | \"pegs.|c\".else|
|00005950| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 45 78 74 72 |.echo sh|ar: Extr|
|00005960| 61 63 74 69 6e 67 20 5c | 22 70 65 67 73 2e 63 5c |acting \|"pegs.c\|
|00005970| 22 20 5c 28 31 31 38 31 | 20 63 68 61 72 61 63 74 |" \(1181| charact|
|00005980| 65 72 73 5c 29 0a 73 65 | 64 20 22 73 2f 5e 58 2f |ers\).se|d "s/^X/|
|00005990| 2f 22 20 3e 70 65 67 73 | 2e 63 20 3c 3c 27 45 4e |/" >pegs|.c <<'EN|
|000059a0| 44 5f 4f 46 5f 70 65 67 | 73 2e 63 27 0a 58 23 69 |D_OF_peg|s.c'.X#i|
|000059b0| 6e 63 6c 75 64 65 20 22 | 64 65 66 73 2e 68 22 0a |nclude "|defs.h".|
|000059c0| 58 23 69 6e 63 6c 75 64 | 65 20 22 67 6c 6f 62 73 |X#includ|e "globs|
|000059d0| 2e 68 22 0a 58 23 69 6e | 63 6c 75 64 65 20 22 77 |.h".X#in|clude "w|
|000059e0| 69 6e 64 6f 77 2e 68 22 | 0a 58 0a 58 69 6e 74 0a |indow.h"|.X.Xint.|
|000059f0| 58 70 65 67 63 6f 6c 28 | 6e 29 0a 58 69 6e 74 20 |Xpegcol(|n).Xint |
|00005a00| 6e 3b 0a 58 7b 0a 58 09 | 69 66 20 28 6e 3d 3d 30 |n;.X{.X.|if (n==0|
|00005a10| 29 20 72 65 74 75 72 6e | 20 30 3b 0a 58 09 65 6c |) return| 0;.X.el|
|00005a20| 73 65 20 69 66 20 28 6e | 3c 33 31 29 20 72 65 74 |se if (n|<31) ret|
|00005a30| 75 72 6e 20 6e 2b 28 6e | 2b 34 29 2f 35 3b 0a 58 |urn n+(n|+4)/5;.X|
|00005a40| 09 65 6c 73 65 20 72 65 | 74 75 72 6e 20 37 34 2d |.else re|turn 74-|
|00005a50| 6e 2d 28 6e 2b 34 29 2f | 35 3b 0a 58 7d 0a 58 0a |n-(n+4)/|5;.X}.X.|
|00005a60| 58 72 65 73 65 74 70 65 | 67 73 28 29 0a 58 7b 0a |Xresetpe|gs().X{.|
|00005a70| 58 09 69 6e 74 20 69 2c | 20 6a 3b 0a 58 09 66 6f |X.int i,| j;.X.fo|
|00005a80| 72 20 28 69 3d 30 3b 20 | 69 3c 32 3b 20 69 2b 2b |r (i=0; |i<2; i++|
|00005a90| 29 20 66 6f 72 20 28 6a | 3d 30 3b 20 6a 3c 32 3b |) for (j|=0; j<2;|
|00005aa0| 20 6a 2b 2b 29 20 7b 0a | 58 09 09 69 66 20 28 70 | j++) {.|X..if (p|
|00005ab0| 65 67 5b 69 5d 5b 6a 5d | 20 21 3d 20 30 29 20 7b |eg[i][j]| != 0) {|
|00005ac0| 0a 58 09 09 09 6d 76 77 | 61 64 64 63 68 28 42 6f |.X...mvw|addch(Bo|
|00005ad0| 61 72 64 2c 20 32 2a 69 | 2c 20 70 65 67 63 6f 6c |ard, 2*i|, pegcol|
|00005ae0| 28 70 65 67 5b 69 5d 5b | 6a 5d 29 2c 20 27 3a 27 |(peg[i][|j]), ':'|
|00005af0| 29 3b 0a 58 09 09 09 70 | 65 67 5b 69 5d 5b 6a 5d |);.X...p|eg[i][j]|
|00005b00| 20 3d 20 30 3b 0a 58 09 | 09 7d 0a 58 09 7d 0a 58 | = 0;.X.|.}.X.}.X|
|00005b10| 09 66 6f 72 20 28 69 3d | 30 3b 20 69 3c 32 3b 20 |.for (i=|0; i<2; |
|00005b20| 69 2b 2b 29 20 6d 76 77 | 61 64 64 63 68 28 42 6f |i++) mvw|addch(Bo|
|00005b30| 61 72 64 2c 20 32 2a 69 | 2c 20 30 2c 20 27 7c 27 |ard, 2*i|, 0, '|'|
|00005b40| 29 3b 0a 58 09 77 72 65 | 66 72 65 73 68 28 42 6f |);.X.wre|fresh(Bo|
|00005b50| 61 72 64 29 3b 0a 58 7d | 0a 58 0a 58 73 65 74 70 |ard);.X}|.X.Xsetp|
|00005b60| 65 67 73 28 77 68 6f 29 | 0a 58 50 4c 41 59 45 52 |egs(who)|.XPLAYER|
|00005b70| 09 77 68 6f 3b 0a 58 7b | 0a 58 2f 2a 0a 58 20 2a |.who;.X{|.X/*.X *|
|00005b80| 09 54 68 65 20 66 69 72 | 73 74 20 70 65 67 20 69 |.The fir|st peg i|
|00005b90| 6e 20 74 68 65 20 61 72 | 72 61 79 20 69 73 20 74 |n the ar|ray is t|
|00005ba0| 68 65 20 66 6f 72 77 61 | 72 64 20 70 65 67 2e 0a |he forwa|rd peg..|
|00005bb0| 58 20 2a 2f 0a 58 0a 58 | 2f 2a 09 50 69 63 6b 20 |X */.X.X|/*.Pick |
|00005bc0| 75 70 20 74 68 65 20 68 | 69 6e 64 77 61 72 64 20 |up the h|indward |
|00005bd0| 70 65 67 2e 20 20 2a 2f | 0a 58 09 69 66 20 28 70 |peg. */|.X.if (p|
|00005be0| 65 67 5b 77 68 6f 5d 5b | 30 5d 20 3d 3d 20 30 29 |eg[who][|0] == 0)|
|00005bf0| 20 6d 76 77 61 64 64 63 | 68 28 42 6f 61 72 64 2c | mvwaddc|h(Board,|
|00005c00| 20 32 2a 77 68 6f 2c 20 | 30 2c 20 77 68 6f 3f 20 | 2*who, |0, who? |
|00005c10| 27 21 27 3a 20 27 3b 27 | 29 3b 0a 58 09 65 6c 73 |'!': ';'|);.X.els|
|00005c20| 65 20 69 66 20 28 70 65 | 67 5b 77 68 6f 5d 5b 31 |e if (pe|g[who][1|
|00005c30| 5d 20 2b 20 70 65 67 5b | 77 68 6f 5d 5b 30 5d 20 |] + peg[|who][0] |
|00005c40| 3d 3d 20 36 31 29 0a 58 | 09 09 6d 76 77 61 64 64 |== 61).X|..mvwadd|
|00005c50| 63 68 28 42 6f 61 72 64 | 2c 20 32 2a 77 68 6f 2c |ch(Board|, 2*who,|
|00005c60| 20 70 65 67 63 6f 6c 28 | 70 65 67 5b 77 68 6f 5d | pegcol(|peg[who]|
|00005c70| 5b 31 5d 29 2c 0a 58 09 | 09 28 70 65 67 5b 77 68 |[1]),.X.|.(peg[wh|
|00005c80| 6f 5d 5b 31 5d 3e 33 30 | 29 3d 3d 77 68 6f 3f 20 |o][1]>30|)==who? |
|00005c90| 27 3b 27 3a 20 27 21 27 | 29 3b 0a 58 09 65 6c 73 |';': '!'|);.X.els|
|00005ca0| 65 20 6d 76 77 61 64 64 | 63 68 28 42 6f 61 72 64 |e mvwadd|ch(Board|
|00005cb0| 2c 20 32 2a 77 68 6f 2c | 20 70 65 67 63 6f 6c 28 |, 2*who,| pegcol(|
|00005cc0| 70 65 67 5b 77 68 6f 5d | 5b 31 5d 29 2c 20 27 3a |peg[who]|[1]), ':|
|00005cd0| 27 29 3b 0a 58 2f 2a 0a | 58 20 2a 09 50 75 74 20 |');.X/*.|X *.Put |
|00005ce0| 69 74 20 64 6f 77 6e 20 | 61 67 61 69 6e 2e 0a 58 |it down |again..X|
|00005cf0| 20 2a 2f 0a 58 09 70 65 | 67 5b 77 68 6f 5d 5b 31 | */.X.pe|g[who][1|
|00005d00| 5d 20 3d 20 70 65 67 5b | 77 68 6f 5d 5b 30 5d 3b |] = peg[|who][0];|
|00005d10| 0a 58 09 69 66 20 28 73 | 63 6f 72 65 5b 77 68 6f |.X.if (s|core[who|
|00005d20| 5d 20 3e 20 31 32 30 29 | 20 70 65 67 5b 77 68 6f |] > 120)| peg[who|
|00005d30| 5d 5b 30 5d 20 3d 20 30 | 3b 0a 58 09 65 6c 73 65 |][0] = 0|;.X.else|
|00005d40| 20 70 65 67 5b 77 68 6f | 5d 5b 30 5d 20 3d 20 31 | peg[who|][0] = 1|
|00005d50| 2b 28 73 63 6f 72 65 5b | 77 68 6f 5d 2d 31 29 25 |+(score[|who]-1)%|
|00005d60| 36 30 3b 0a 58 09 69 66 | 20 28 70 65 67 5b 77 68 |60;.X.if| (peg[wh|
|00005d70| 6f 5d 5b 30 5d 3d 3d 30 | 29 20 6d 76 77 61 64 64 |o][0]==0|) mvwadd|
|00005d80| 63 68 28 42 6f 61 72 64 | 2c 20 32 2a 77 68 6f 2c |ch(Board|, 2*who,|
|00005d90| 20 30 2c 20 77 68 6f 3f | 20 27 21 27 3a 20 27 3b | 0, who?| '!': ';|
|00005da0| 27 29 3b 0a 58 09 65 6c | 73 65 20 69 66 20 28 70 |');.X.el|se if (p|
|00005db0| 65 67 5b 77 68 6f 5d 5b | 30 5d 20 2b 20 70 65 67 |eg[who][|0] + peg|
|00005dc0| 5b 77 68 6f 5d 5b 31 5d | 20 3d 3d 20 36 31 29 0a |[who][1]| == 61).|
|00005dd0| 58 09 09 6d 76 77 61 64 | 64 63 68 28 42 6f 61 72 |X..mvwad|dch(Boar|
|00005de0| 64 2c 20 32 2a 77 68 6f | 2c 20 70 65 67 63 6f 6c |d, 2*who|, pegcol|
|00005df0| 28 70 65 67 5b 77 68 6f | 5d 5b 30 5d 29 2c 20 27 |(peg[who|][0]), '|
|00005e00| 7c 27 29 3b 0a 58 09 65 | 6c 73 65 20 6d 76 77 61 ||');.X.e|lse mvwa|
|00005e10| 64 64 63 68 28 42 6f 61 | 72 64 2c 20 32 2a 77 68 |ddch(Boa|rd, 2*wh|
|00005e20| 6f 2c 20 70 65 67 63 6f | 6c 28 70 65 67 5b 77 68 |o, pegco|l(peg[wh|
|00005e30| 6f 5d 5b 30 5d 29 2c 0a | 58 09 09 28 70 65 67 5b |o][0]),.|X..(peg[|
|00005e40| 77 68 6f 5d 5b 30 5d 3e | 33 30 29 3d 3d 77 68 6f |who][0]>|30)==who|
|00005e50| 3f 20 27 21 27 3a 20 27 | 3b 27 29 3b 0a 58 09 77 |? '!': '|;');.X.w|
|00005e60| 72 65 66 72 65 73 68 28 | 42 6f 61 72 64 29 3b 0a |refresh(|Board);.|
|00005e70| 58 09 73 6c 65 65 70 28 | 31 29 3b 0a 58 7d 0a 45 |X.sleep(|1);.X}.E|
|00005e80| 4e 44 5f 4f 46 5f 70 65 | 67 73 2e 63 0a 69 66 20 |ND_OF_pe|gs.c.if |
|00005e90| 74 65 73 74 20 31 31 38 | 31 20 2d 6e 65 20 60 77 |test 118|1 -ne `w|
|00005ea0| 63 20 2d 63 20 3c 70 65 | 67 73 2e 63 60 3b 20 74 |c -c <pe|gs.c`; t|
|00005eb0| 68 65 6e 0a 20 20 20 20 | 65 63 68 6f 20 73 68 61 |hen. |echo sha|
|00005ec0| 72 3a 20 5c 22 70 65 67 | 73 2e 63 5c 22 20 75 6e |r: \"peg|s.c\" un|
|00005ed0| 70 61 63 6b 65 64 20 77 | 69 74 68 20 77 72 6f 6e |packed w|ith wron|
|00005ee0| 67 20 73 69 7a 65 21 0a | 66 69 0a 23 20 65 6e 64 |g size!.|fi.# end|
|00005ef0| 20 6f 66 20 6f 76 65 72 | 77 72 69 74 69 6e 67 20 | of over|writing |
|00005f00| 63 68 65 63 6b 0a 66 69 | 0a 69 66 20 74 65 73 74 |check.fi|.if test|
|00005f10| 20 2d 66 20 70 6c 61 79 | 2e 63 20 2d 61 20 22 24 | -f play|.c -a "$|
|00005f20| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|00005f30| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen . e|cho shar|
|00005f40| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d |: Will n|ot over-|
|00005f50| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|00005f60| 69 6c 65 20 5c 22 70 6c | 61 79 2e 63 5c 22 0a 65 |ile \"pl|ay.c\".e|
|00005f70| 6c 73 65 0a 65 63 68 6f | 20 73 68 61 72 3a 20 45 |lse.echo| shar: E|
|00005f80| 78 74 72 61 63 74 69 6e | 67 20 5c 22 70 6c 61 79 |xtractin|g \"play|
|00005f90| 2e 63 5c 22 20 5c 28 31 | 38 32 33 20 63 68 61 72 |.c\" \(1|823 char|
|00005fa0| 61 63 74 65 72 73 5c 29 | 0a 73 65 64 20 22 73 2f |acters\)|.sed "s/|
|00005fb0| 5e 58 2f 2f 22 20 3e 70 | 6c 61 79 2e 63 20 3c 3c |^X//" >p|lay.c <<|
|00005fc0| 27 45 4e 44 5f 4f 46 5f | 70 6c 61 79 2e 63 27 0a |'END_OF_|play.c'.|
|00005fd0| 58 23 69 6e 63 6c 75 64 | 65 20 22 64 65 66 73 2e |X#includ|e "defs.|
|00005fe0| 68 22 0a 58 23 69 6e 63 | 6c 75 64 65 20 22 67 6c |h".X#inc|lude "gl|
|00005ff0| 6f 62 73 2e 68 22 0a 58 | 23 69 6e 63 6c 75 64 65 |obs.h".X|#include|
|00006000| 20 22 77 69 6e 64 6f 77 | 2e 68 22 0a 58 0a 58 73 | "window|.h".X.Xs|
|00006010| 74 61 74 69 63 09 74 61 | 6b 65 74 75 72 6e 28 29 |tatic.ta|keturn()|
|00006020| 3b 0a 58 0a 58 70 6c 61 | 79 67 61 6d 65 28 29 0a |;.X.Xpla|ygame().|
|00006030| 58 7b 0a 58 09 63 68 61 | 72 20 6b 3b 0a 58 09 73 |X{.X.cha|r k;.X.s|
|00006040| 63 6f 72 65 5b 30 5d 3d | 73 63 6f 72 65 5b 31 5d |core[0]=|score[1]|
|00006050| 3d 30 3b 0a 58 09 72 65 | 73 65 74 70 65 67 73 28 |=0;.X.re|setpegs(|
|00006060| 29 3b 0a 58 09 66 6f 72 | 20 28 67 61 6d 65 6f 76 |);.X.for| (gameov|
|00006070| 65 72 3d 30 3b 20 21 67 | 61 6d 65 6f 76 65 72 3b |er=0; !g|ameover;|
|00006080| 20 29 20 70 6c 61 79 68 | 61 6e 64 28 29 3b 0a 58 | ) playh|and();.X|
|00006090| 09 6d 76 77 70 72 69 6e | 74 77 28 50 72 6f 6d 70 |.mvwprin|tw(Promp|
|000060a0| 74 2c 20 30 2c 20 30 2c | 20 73 63 6f 72 65 5b 30 |t, 0, 0,| score[0|
|000060b0| 5d 3e 31 32 30 3f 20 22 | 49 20 77 69 6e 2e 5c 6e |]>120? "|I win.\n|
|000060c0| 22 3a 20 22 59 6f 75 20 | 77 69 6e 2e 5c 6e 22 29 |": "You |win.\n")|
|000060d0| 3b 0a 58 09 77 72 65 66 | 72 65 73 68 28 50 72 6f |;.X.wref|resh(Pro|
|000060e0| 6d 70 74 29 3b 0a 58 09 | 73 6c 65 65 70 28 32 29 |mpt);.X.|sleep(2)|
|000060f0| 3b 0a 58 09 6d 76 77 70 | 72 69 6e 74 77 28 50 72 |;.X.mvwp|rintw(Pr|
|00006100| 6f 6d 70 74 2c 20 31 2c | 20 30 2c 20 22 41 6e 6f |ompt, 1,| 0, "Ano|
|00006110| 74 68 65 72 20 67 61 6d | 65 3f 5c 6e 22 29 3b 0a |ther gam|e?\n");.|
|00006120| 58 09 77 6d 6f 76 65 28 | 50 72 6f 6d 70 74 2c 20 |X.wmove(|Prompt, |
|00006130| 31 2c 20 34 31 29 3b 0a | 58 09 77 72 65 66 72 65 |1, 41);.|X.wrefre|
|00006140| 73 68 28 50 72 6f 6d 70 | 74 29 3b 0a 58 09 6b 20 |sh(Promp|t);.X.k |
|00006150| 3d 20 77 67 65 74 63 68 | 28 50 72 6f 6d 70 74 29 |= wgetch|(Prompt)|
|00006160| 3b 0a 58 09 69 66 20 28 | 6b 20 21 3d 20 27 79 27 |;.X.if (|k != 'y'|
|00006170| 20 26 26 20 6b 20 21 3d | 20 27 59 27 29 20 71 75 | && k !=| 'Y') qu|
|00006180| 69 74 66 6c 61 67 20 3d | 20 31 3b 0a 58 7d 0a 58 |itflag =| 1;.X}.X|
|00006190| 0a 58 70 6c 61 79 68 61 | 6e 64 28 29 0a 58 7b 0a |.Xplayha|nd().X{.|
|000061a0| 58 09 69 6e 74 20 69 2c | 20 6a 3b 0a 58 09 64 65 |X.int i,| j;.X.de|
|000061b0| 61 6c 65 72 20 3d 20 21 | 64 65 61 6c 65 72 3b 0a |aler = !|dealer;.|
|000061c0| 58 09 64 65 61 6c 28 29 | 3b 0a 58 09 77 65 72 61 |X.deal()|;.X.wera|
|000061d0| 73 65 28 50 73 63 6f 72 | 65 29 3b 0a 58 09 77 65 |se(Pscor|e);.X.we|
|000061e0| 72 61 73 65 28 48 73 63 | 6f 72 65 29 3b 0a 58 09 |rase(Hsc|ore);.X.|
|000061f0| 73 68 6f 77 68 61 6e 64 | 28 29 3b 0a 58 09 6e 63 |showhand|();.X.nc|
|00006200| 72 69 62 3d 30 3b 0a 58 | 09 66 6f 72 20 28 69 3d |rib=0;.X|.for (i=|
|00006210| 30 3b 20 69 3c 32 3b 20 | 69 2b 2b 29 20 7b 0a 58 |0; i<2; |i++) {.X|
|00006220| 09 09 28 2a 64 73 63 66 | 75 6e 63 5b 70 6c 61 79 |..(*dscf|unc[play|
|00006230| 65 72 74 79 70 65 5b 69 | 5d 5d 29 28 68 61 6e 64 |ertype[i|]])(hand|
|00006240| 5b 69 5d 2c 20 69 3d 3d | 64 65 61 6c 65 72 29 3b |[i], i==|dealer);|
|00006250| 0a 58 09 7d 0a 58 09 73 | 68 6f 77 66 6f 75 72 28 |.X.}.X.s|howfour(|
|00006260| 29 3b 0a 58 09 73 68 6f | 77 63 75 74 28 29 3b 0a |);.X.sho|wcut();.|
|00006270| 58 09 69 66 20 28 52 41 | 4e 4b 28 63 75 74 29 3d |X.if (RA|NK(cut)=|
|00006280| 3d 4b 4e 41 56 45 29 20 | 7b 0a 58 09 09 6d 76 77 |=KNAVE) |{.X..mvw|
|00006290| 70 72 69 6e 74 77 28 50 | 72 6f 6d 70 74 2c 20 31 |printw(P|rompt, 1|
|000062a0| 2c 20 30 2c 20 22 54 77 | 6f 20 66 6f 72 20 48 69 |, 0, "Tw|o for Hi|
|000062b0| 73 20 48 65 65 6c 73 5c | 6e 22 29 3b 0a 58 09 09 |s Heels\|n");.X..|
|000062c0| 77 72 65 66 72 65 73 68 | 28 50 72 6f 6d 70 74 29 |wrefresh|(Prompt)|
|000062d0| 3b 0a 58 09 09 73 6c 65 | 65 70 28 32 29 3b 0a 58 |;.X..sle|ep(2);.X|
|000062e0| 09 09 53 43 4f 52 45 55 | 50 28 64 65 61 6c 65 72 |..SCOREU|P(dealer|
|000062f0| 2c 20 32 29 3b 0a 58 09 | 09 73 6c 65 65 70 28 31 |, 2);.X.|.sleep(1|
|00006300| 29 3b 0a 58 09 7d 0a 58 | 09 77 68 6f 73 65 74 75 |);.X.}.X|.whosetu|
|00006310| 72 6e 20 3d 20 64 65 61 | 6c 65 72 3b 09 2f 2a 20 |rn = dea|ler;./* |
|00006320| 74 6f 20 62 65 20 72 65 | 76 65 72 73 65 64 20 2a |to be re|versed *|
|00006330| 2f 0a 58 09 68 61 6e 64 | 6f 76 65 72 20 3d 20 30 |/.X.hand|over = 0|
|00006340| 3b 0a 58 09 6e 6c 65 66 | 74 5b 30 5d 3d 6e 6c 65 |;.X.nlef|t[0]=nle|
|00006350| 66 74 5b 31 5d 3d 34 3b | 0a 58 09 72 65 73 65 74 |ft[1]=4;|.X.reset|
|00006360| 67 6f 28 29 3b 0a 58 09 | 66 6f 72 20 28 69 3d 30 |go();.X.|for (i=0|
|00006370| 3b 20 69 3c 32 3b 20 69 | 2b 2b 29 20 66 6f 72 20 |; i<2; i|++) for |
|00006380| 28 6a 3d 30 3b 20 6a 3c | 34 3b 20 6a 2b 2b 29 20 |(j=0; j<|4; j++) |
|00006390| 70 6c 61 79 65 64 5b 69 | 5d 5b 6a 5d 3d 30 3b 0a |played[i|][j]=0;.|
|000063a0| 58 09 77 68 69 6c 65 20 | 28 21 67 61 6d 65 6f 76 |X.while |(!gameov|
|000063b0| 65 72 20 26 26 20 21 68 | 61 6e 64 6f 76 65 72 29 |er && !h|andover)|
|000063c0| 20 74 61 6b 65 74 75 72 | 6e 28 29 3b 0a 58 09 69 | taketur|n();.X.i|
|000063d0| 66 20 28 67 61 6d 65 6f | 76 65 72 29 20 72 65 74 |f (gameo|ver) ret|
|000063e0| 75 72 6e 3b 0a 58 09 67 | 61 6d 65 73 63 6f 72 65 |urn;.X.g|amescore|
|000063f0| 28 29 3b 0a 58 7d 0a 58 | 0a 58 73 74 61 74 69 63 |();.X}.X|.Xstatic|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
