home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jumbo 2,500 Game Pack
/
DDVDAV937D1.iso
/
sharewarefin
/
PRESIDNT.ZIP
/
HAMMER.RU_
/
HAMMER.RU
Wrap
Text File
|
1997-06-26
|
919b
|
33 lines
; Play my 2's if there is only one other card value
2 NumDiffVals = 1
; If there are two players left (including me) and I can skip to get lead, then do it
L* PlayersLeft = 2 MatchesUpCard = 1
;High card out at end of game
HQ PlayersLeft < 3
HT PlayersLeft < 3
HP PlayersLeft < 3
H PlayersLeft < 3
; Play lowest values but dont break up sets
LQ
LT
LP
L
; Break up sets as needed if I am on top, but never break up a pair of 3's
L* HigherPlayer < 3 CardVal ! 3
; If I am at a low position then break up the high sets at the end of the game
L* PlayersLeft < 4 CardVal > 10
; Play a 2 to get the lead since I probably have the most 2's
2 TotMyTwos > 1 TwosLeft < 4 Lead = 0 HigherPlayers < 3
;Skip to get lead near end of game
L* PlayersLeft < 3 MatchesUpCard = 1
; Play a 2 if I have a spare one after 40% of the cards are out
2 %Played > 40 TotMyTwos > 1