Prev: 37687 Up: Map Next: 37721
37697: Check For Straight Flush
Check if there is a straight flush.
CheckStraightFlush 37697 CALL Handler_StraightFlush Call Handler_StraightFlush.
37700 JR NZ,CheckFourOfAKind Jump to CheckFourOfAKind if there are no straight flushes.
There is a straight flush! Process it.
Find the "seed" card value from its position in the duplicates table.
37702 DEC HL Decrease HL by one.
37703 CALL CalculateCard Call CalculateCard.
37706 LD (38044),A Write this card to *TableHandEvaluation_BaseCard.
Also find the high card in case it's a draw.
37709 CALL CalculateSuit Call CalculateSuit.
37712 LD (38045),A Write A to *TableHandEvaluation_BaseCardSuit.
Record this hand "type".
37715 LD A,9 Write "Straight Flush" to *TableHandEvaluation_Type.
37717 LD (38043),A
37720 RET Return.
Prev: 37687 Up: Map Next: 37721