|
Routines |
| Prev: 37697 | Up: Map | Next: 37742 |
|
Used by the routine at CheckStraightFlush.
|
||||
|
Check if there is a four-of-a-kind.
|
||||
| CheckFourOfAKind | 37721 | CALL Handler_FourOfAKind | Call Handler_FourOfAKind. | |
| 37724 | JR NZ,CheckFullHouse | Jump to CheckFullHouse if there are no four-of-a-kind matches. | ||
|
There is a four-of-a-kind! Process it.
|
||||
| 37726 | CALL CalculateCard | Call CalculateCard. | ||
| 37729 | LD (38044),A | Write A to *TableHandEvaluation_BaseCard. | ||
|
Record this hand "type".
|
||||
| 37732 | LD A,8 | Write "Four-Of-A-Kind" to *TableHandEvaluation_Type. | ||
| 37734 | LD (38043),A | |||
| 37737 | XOR A | Write 0 to *TableHandEvaluation_BaseCardSuit. | ||
| 37738 | LD (38045),A | |||
| 37741 | RET | Return. | ||
| Prev: 37697 | Up: Map | Next: 37742 |