|
Routines |
| Prev: 93C9 | Up: Map | Next: 9412 |
|
Used by the routine at CheckThreeOfAKind.
|
||||
|
Check if there is are two pairs.
|
||||
| CheckTwoPairs | 93DE | CALL Handler_TwoPairs | Call Handler_TwoPairs. | |
| 93E1 | JR NZ,CheckPair | Jump to CheckPair if there are no two pairs matches. | ||
|
There are two pairs! Process it.
|
||||
| 93E3 | CALL CalculateCard | Call CalculateCard. | ||
| 93E6 | LD ($949C),A | Write A to *TableHandEvaluation_BaseCard. | ||
| 93E9 | LD HL,($9516) | HL=*PointerDuplicateCount. | ||
| 93EC | CALL CalculateCard | Call CalculateCard. | ||
| 93EF | LD ($949E),A | Write A to *TableHandEvaluation_HighCard_1. | ||
| 93F2 | LD HL,$9540 | HL=Table_CardDuplicates. | ||
| CheckTwoPairs_0 | 93F5 | LD A,(HL) | Jump to CheckTwoPairs_1 if *HL is equal to 01. | |
| 93F6 | CP $01 | |||
| 93F8 | JR Z,CheckTwoPairs_1 | |||
| 93FA | INC HL | Increment HL by one. | ||
| 93FB | JR CheckTwoPairs_0 | Jump to CheckTwoPairs_0. | ||
| CheckTwoPairs_1 | 93FD | CALL CalculateCard | Call CalculateCard. | |
| 9400 | LD ($949F),A | Write A to *TableHandEvaluation_HighCard_2. | ||
| 9403 | LD A,($949C) | A=*TableHandEvaluation_BaseCard. | ||
| 9406 | CALL CalculateSuit | Call CalculateSuit. | ||
| 9409 | LD ($949D),A | Write A to *TableHandEvaluation_BaseCardSuit. | ||
|
Record this hand "type".
|
||||
| 940C | LD A,$03 | Write "Two Pairs" to *TableHandEvaluation_Type. | ||
| 940E | LD ($949B),A | |||
| 9411 | RET | Return. | ||
| Prev: 93C9 | Up: Map | Next: 9412 |