Комбинации:
Код:
const
COMBINATION_BLANK = 00;
COMBINATION_ACE_KING = 01;
COMBINATION_ONE_PAIR = 02;
COMBINATION_TWO_PAIRS = 03;
COMBINATION_THREE_KIND = 04;
COMBINATION_SKIP_STRAIGHT = 05;
COMBINATION_WRAP_STRAIGHT = 06;
COMBINATION_STRAIGHT = 07;
COMBINATION_FLUSH = 08;
COMBINATION_FULL_HOUSE = 09;
COMBINATION_FOUR_KIND = 10;
COMBINATION_STRAIGHT_FLUSH = 11;
COMBINATION_ROYAL_FLUSH = 12;
Структура карты:
Код:
type
PCard = ^TCard;
TCard = packed record
Kind, Suit, Mask, XorMask: Word;
SuitIndex, ID, R1, R2: Word;
end;