home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / BPASCAL.700 / D12 / CHESSTV.ZIP / CHESSCMD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-10-01  |  1.9 KB  |  95 lines
  1. unit ChessCmd;
  2.  
  3. interface
  4.  
  5. uses App, Dialogs;
  6.  
  7. type
  8.   TSettings = record
  9.     TimeMode: Word;    { Game timing mode }
  10.     GameTime: Longint; { Max Game time }
  11.     TurnTime: Longint; { Max Turn time }
  12.     Hints:    Word;    { Hint Options }
  13.     Players:  Word     { Number of players }
  14.   end;
  15.  
  16. const
  17.   { Move event }
  18.   evMove         = $0400;
  19.  
  20.   { Game Menu }
  21.   cmRunDemo      = 100;
  22.   cmStop         = 101;
  23.  
  24.   { Edit menu }
  25.   cmRedo         = 110;
  26.   cmComputerMove = 111;
  27.   cmEnterMove    = 112;
  28.   cmShowHint     = 113;
  29.  
  30.   { Options Menu }
  31.   cmSettings     = 120;
  32.   cmColors       = 121;
  33.  
  34.   { Game control }
  35.   cmSubmitMove   = 1000;
  36.   cmMovePiece    = 1001;
  37.   cmUndoMove     = 1002;
  38.   cmClearBoard   = 1003;
  39.   cmFindPiece    = 1004;
  40.   cmGameOver     = 1005;
  41.   cmRegisterSave = 1006;
  42.   cmTimeOptChg   = 1007;
  43.  
  44.   { Color palettes }
  45.   CChessAppColor      = CAppColor +
  46.     #$1E#$20#$40#$07#$70#$78#$18#$1E;
  47.   CChessAppBlackWhite = CAppBlackWhite +
  48.     #$07#$70#$07#$07#$70#$07#$07#$70;
  49.   CChessAppMonochrome = CAppMonochrome +
  50.     #$07#$70#$07#$07#$70#$07#$07#$70;
  51.  
  52.   CChessBoard = #128#129#130#131#132;
  53.  
  54.   CSettingsDlg = CGrayDialog + #133#134;
  55.   CStatusDialog = CGrayDialog + #135;
  56.  
  57.   CTimeLabel = #33#33#33#33;
  58.   CTimeInput = #34#34#34#34;
  59.  
  60.   CBestLine = #33;
  61.  
  62.   gmOnePlay  = $0000;
  63.   gmTwoPlay  = $0001;
  64.   gmDemo     = $0002;
  65.  
  66.   tmGameLimit  = $0000;
  67.   tmTurnLimit  = $0001;
  68.   tmMatchUser  = $0002;
  69.   tmInfinite   = $0003;
  70.  
  71.   hoAttacks    = $0001;
  72.   hoJeopardies = $0002;
  73.   hoBestLine   = $0004;
  74.  
  75.   plOnePlayer  = $0000;
  76.   plTwoPlayer  = $0001;
  77.  
  78.   { Stream registration types }
  79.  
  80.   otChessPiece  = 5001;
  81.   otTimeLabel   = 5002;
  82.   otTimeInput   = 5003;
  83.   otSettingsDlg = 5004;
  84.  
  85.   Settings: TSettings = (
  86.     TimeMode: tmGameLimit;
  87.     GameTime: 10;
  88.     TurnTime: 30;
  89.     Hints: hoAttacks + hoJeopardies + hoBestLine;
  90.     Players: plOnePlayer);
  91.  
  92. implementation
  93.  
  94. end.
  95.