home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / BPASCAL.700 / D12 / CHESSOWL.ZIP / CHCONST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-10-01  |  3.5 KB  |  134 lines
  1. unit chconst;
  2.  
  3. interface
  4.  
  5. const
  6.  bmChessPiecesBaseID = 12000;
  7.  
  8.  curGrabHandOpen = 100;
  9.  idc_No = 100;
  10.  
  11.     bmWhiteKing    =    bmChessPiecesBaseID + 1;
  12.     bmWhiteQueen    =    bmChessPiecesBaseID + 2;
  13.     bmWhiteRook    =    bmChessPiecesBaseID + 3;
  14.     bmWhiteBishop    =    bmChessPiecesBaseID + 4;
  15.     bmWhiteKnight    =    bmChessPiecesBaseID + 5;
  16.     bmWhitePawn    =    bmChessPiecesBaseID + 6;
  17.     BlackOfs    =    6;
  18.     bmBlackKing    =    bmWhiteKing + BlackOfs ;
  19.     bmBlackQueen    =    bmWhiteQueen + BlackOfs ;
  20.     bmBlackRook    =    bmWhiteRook + BlackOfs ;
  21.     bmBlackBishop    =    bmWhiteBishop + BlackOfs ;
  22.     bmBlackKnight    =    bmWhiteKnight + BlackOfs ;
  23.     bmBlackPawn    =    bmWhitePawn + BlackOfs ;
  24.         MaskOfs         =       12;
  25.     bmMaskKing    =    bmWhiteKing + MaskOfs ;
  26.     bmMaskQueen    =    bmWhiteQueen + MaskOfs ;
  27.     bmMaskRook    =    bmWhiteRook + MaskOfs ;
  28.     bmMaskBishop    =    bmWhiteBishop + MaskOfs ;
  29.     bmMaskKnight    =    bmWhiteKnight + MaskOfs;
  30.     bmMaskPawn    =    bmWhitePawn + MaskOfs;
  31.  
  32.     curInvisible    =    curGrabHandOpen + 2;
  33.  
  34.         wm_User         =       $0400;
  35.         am_SubmitMove   =       wm_User + 150;
  36.         am_ResetValidMoves =    wm_User + 151;
  37.  
  38.         strNoMoreUndos  =       10;
  39.         strNoMoreRedos  =       11;
  40.         cxChessError    =       20;
  41.     cxChessState    =    40;
  42.  
  43.     cm_NewGame    =    101;
  44.     idMainMenu    =    100;
  45.     cm_UndoMove    =    201;
  46.     cm_RedoMove    =    202;
  47.  
  48.     dlgInfoPane    =    100;
  49.     dlgBoardFrame    =    101;
  50.     cm_AutoPlay    =    107;
  51.     dlgSettings    =    102;
  52.     idInfoTurn    =    101;
  53.     idInfoTime    =    102;
  54.     idInfoWhite    =    103;
  55.     idInfoBlack    =    104;
  56.     idInfoMode    =    105;
  57.     idInfoValue    =    106;
  58.     idInfoNodes    =    107;
  59.     idInfoNodeRate    =    108;
  60.     idInfoDepth    =    109;
  61.     idInfoBestLine    =    110;
  62.     idInfoMsg    =    111;
  63.     idLimitGameTime    =    101;
  64.     idLimitTurnTime    =    102;
  65.     idMatchUserTime    =    103;
  66.     idNoTimeLimit    =    104;
  67.     idTimeLimitGroup    =    200;
  68.     idLimitGameTimeLabel    =    201;
  69.     idLimitGameTimeInput    =    202;
  70.     idLimitTurnTimeLabel    =    203;
  71.     idLimitTurnTimeInput    =    204;
  72.     idShowAttacks    =    301;
  73.     idShowJeopardies    =    302;
  74.     idShowBestLine    =    303;
  75.     idRightClickQueries    =    304;
  76.     idSinglePlayer    =    401;
  77.     idTwoPlayer    =    402;
  78.     idThinkTime    =    501;
  79.     cm_LoadGame    =    102;
  80.     cm_SaveGame    =    103;
  81.     cm_SaveAs    =    104;
  82.     cm_PauseGame    =    105;
  83.     cm_ComputerMove    =    203;
  84.     cm_InputMove    =    204;
  85.     cm_ShowHintMove    =    205;
  86.     cm_Settings    =    301;
  87.     cm_SetColors    =    302;
  88.     idThinkMenu    =    1000;
  89.     cm_StopThinking    =    1001;
  90.         TimeLimitInputLen=5;
  91.     idGameTimeUnit    =    205;
  92.     idTurnTimeUnit    =    206;
  93.     chstrInvalidHandle    =    cxChessError + 1;
  94.     chstrIllegalState    =    cxChessError + 2;
  95.     chstrOutofMemory    =    cxChessError + 3;
  96.     chstrTooManyGames    =    cxChessError + 4;
  97.     chstrInvalidMove    =    cxChessError + 5;
  98.     chstrIllegalMove    =    cxChessError + 6;
  99.     chstrInvalidSyntax    =    cxChessError + 7;
  100.     chstrAmbiguousMove    =    cxChessError + 8;
  101.     chstrNoMovesLeft    =    cxChessError + 9;
  102.     cxSearchState    =    60;
  103.     chstrCheck    =    cxChessState + 1;
  104.     chstrCheckMate    =    cxChessState + 2;
  105.     chstrStalemate    =    cxChessState + 3;
  106.     chstrResigns    =    cxChessState + 4;
  107.     chstrMateFound    =    cxChessState + 5;
  108.     chstr50MoveRule    =    cxChessState + 6;
  109.     chstrRepititionRule    =    cxChessState + 7;
  110.     strLeaveGame    =    101;
  111.     strCancelGame    =    100;
  112.     strWhiteWins    =    102;
  113.     strGameOver    =    103;
  114.     strBlackWins    =    104;
  115.     strLoadError    =    105;
  116.     cxStreamError    =    89;
  117.     ststrError    =    cxStreamError - 1;
  118.     ststrReadError    =    cxStreamError - 3;
  119.     ststrInitError    =    87;
  120.     ststrWriteError    =    cxStreamError - 4;
  121.     ststrGetError    =    cxStreamError - 5;
  122.     ststrPutError    =    cxStreamError - 6;
  123.     strInvalidFile    =    106;
  124.     strNotAChessFile    =    107;
  125.     strSaveError    =    108;
  126.     strStartNewGame    =    109;
  127.     strLoadSavedGame    =    110;
  128.     strWhite    =    111;
  129.     strBlack    =    112;
  130.     strPauseMenu    =    113;
  131.     strResumeMenu    =    114;
  132. implementation
  133.  
  134. end.