home *** CD-ROM | disk | FTP | other *** search
/ 500 Game Surplus / XSurplus.iso / 371 / ULTRA.RU_ / ULTRA.RU
Text File  |  1997-06-26  |  1KB  |  49 lines
  1. ; Play my twos if there's only one other card value
  2. 2    NumDiffVals = 1
  3.  
  4. ; If I've got a two and two other values, play the highest - but don't split
  5. HQ    NumDiffVals = 2        TotMyTwos > 0
  6. HT    NumDiffVals = 2        TotMyTwos > 0
  7. HP    NumDiffVals = 2        TotMyTwos > 0
  8. H    NumDiffVals = 2        TotMyTwos > 0
  9.  
  10. ; If I've got two 2's, and two different kinds of cards, get the lead
  11. 2    Lead = 0    TotMyTwos = 2    NumDiffVals = 2
  12. 2    Lead = 0    TotMyTwos = 3    NumDiffVals = 3
  13.  
  14. ; If there are two players (including me) and I can skip to get the lead, do it
  15. ; Even if I have to split something up
  16. L*    PlayersLeft = 2        MatchesUpCard = 1
  17.  
  18. ; If I only have two kinds of cards, then play the lowest - even if I have to split
  19. L*    NumDiffVals = 2
  20.  
  21. ; Get aggressive (and the lead) if I have lots of twos 
  22. 2     Lead = 0    TotMyTwos > 1        TwosLeft < 2
  23. 2    PlayersLeft < 4        Lead = 0    TotMyTwos > 1
  24. 2    Lead = 0    TotMyTwos = 3        TotMyCards < 6
  25. 2    Lead = 0    TotMyTwos = 2         TotMyCards < 5
  26.  
  27. ; If the odds are low that I can be followed, and I don't have the lead, play the high card
  28. H*    Lead = 0    FollowOdds < 20
  29.  
  30. ; Always follow or lead a quad or trip, regardless
  31. LQ    
  32. LT    
  33.  
  34. ; And always follow a low pair
  35. LP    Lead = 0    CardVal < 10
  36.  
  37. ; Or follow a card if it's of low value
  38. L    Lead = 0    CardVal < 10
  39.  
  40. ; If I have a mediocre hand, pass
  41. P    Lead = 0    HandValue < 7    TotMyTwos < 2
  42. P    Lead = 0    HandValue < 9    TotMyTwos = 0
  43.  
  44. ; Play anything to try and get the lead - without splitting, first
  45. LP
  46. L
  47.  
  48. ; But split if I have to 
  49. L*