home *** CD-ROM | disk | FTP | other *** search
/ 500 Game Surplus / XSurplus.iso / 371 / HAMMER.RU_ / HAMMER.RU
Text File  |  1997-06-26  |  919b  |  33 lines
  1. ; Play my 2's if there is only one other card value
  2. 2      NumDiffVals = 1
  3.  
  4. ; If there are two players left (including me) and I can skip to get lead, then do it
  5. L*    PlayersLeft = 2    MatchesUpCard = 1
  6.  
  7. ;High card out at end of game
  8. HQ    PlayersLeft < 3
  9. HT    PlayersLeft < 3
  10. HP    PlayersLeft < 3
  11. H    PlayersLeft < 3
  12.  
  13. ; Play lowest values but dont break up sets
  14. LQ       
  15. LT    
  16. LP  
  17. L
  18.  
  19. ; Break up sets as needed if I am on top, but never break up a pair of 3's
  20. L*    HigherPlayer < 3    CardVal ! 3           
  21.  
  22. ; If I am at a low position then break up the high sets at the end of the game
  23. L*    PlayersLeft < 4    CardVal > 10
  24.  
  25. ; Play a 2 to get the lead since I probably have the most 2's
  26. 2      TotMyTwos > 1   TwosLeft < 4    Lead = 0        HigherPlayers < 3    
  27.  
  28. ;Skip to get lead near end of game
  29. L*    PlayersLeft < 3     MatchesUpCard = 1
  30.  
  31. ; Play a 2 if I have a spare one after 40% of the cards are out
  32. 2    %Played > 40    TotMyTwos > 1    
  33.