idSpades10 = 49;
idSpadesJack = 50;
idSpadesQueen = 51;
idSpadesKing = 52;
RankFirst = idClubsAce;
RankLast = idClubsKing;
RankCount = RankLast - RankFirst + 1;
idFaceFirst = idClubsAce;
idFaceLast = idSpadesKing;
FaceCount = idFaceLast - idFaceFirst;
SuitCount = 4;
idDeckEmpty = 53; { $35 }
idDeckPattern1 = 54; { $36 }
idDeckPattern2 = 55; { $37 }
idDeckRobot = 56; { $38 }
idDeckRoses = 57; { $39 }
idDeckFlowers1 = 58; { $3A }
idDeckFlowers2 = 59; { $3B }
idDeckFishes = 60; { $3C }
idDeckAquarium = 61; { $3D }
idDeckShell = 62; { $3E }
idDeckCastle = 63; { $3F }
idDeckPalmbeach = 64; { $40 }
idDeckCardhand = 65; { $41 }
{ there is no card# 66 }
idDeckCross = 67; { $43 }
idDeckCircle = 68; { $44 }
idDeckFirst = idDeckEmpty;
idDeckLast = idDeckCardhand;
DeckCount = idDeckLast - idDeckFirst + 1;
idDeckSpecialFirst = idDeckCross;
idDeckSpecialLast = idDeckCircle;
DeckSpecialCount = idDeckSpecialLast - idDeckSpecialFirst + 1;
idAnimateCardhand1 = 678; { $02A6 }
idAnimateCardhand2 = 679; { $02A7 }
idAnimateCastle = 680; { $02A8 }
idAnimateSunSmile = 681; { $02A9 }
idAnimateSunSmileTongue = 682; { $02AA }
idAnimateRobot1 = 683; { $02AB }
idAnimateRobot2 = 684; { $02AC }
type
TCardId = Cardinal; { Win32 - 31-bit unsigned integer
Win16 - 16-bit unsigned integer }
TCardMode = (mode1, mode2, mode3, mode4, mode5, mode6, mode7, mode8, mode9);
{ Win32 - 31-bit unsigned integer
Win16 - 16-bit unsigned integer }
TCoordinate = Integer; { Win32 - 32-bit signed integer
Win16 - 16-bit signed integer }
未完,请看下一章。
上一页 [1] [2] 没有相关教程
|