fpchess: Minor changes
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1873 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
parent
ec7ac2a03b
commit
8e74329135
@ -10,7 +10,7 @@ uses
|
|||||||
chessgame;
|
chessgame;
|
||||||
|
|
||||||
type
|
type
|
||||||
TChessModuleKind = (cmkSinglePlayer, cmkInternet, cmkAI);
|
TChessModuleKind = (cmkSameComputer, cmkInternet, cmkAgainstComputer);
|
||||||
|
|
||||||
{ TChessModule }
|
{ TChessModule }
|
||||||
|
|
||||||
|
@ -211,7 +211,7 @@ begin
|
|||||||
inherited Create;
|
inherited Create;
|
||||||
|
|
||||||
Description := 'Play against the computer - KCChess Engine';
|
Description := 'Play against the computer - KCChess Engine';
|
||||||
Kind := cmkSinglePlayer;
|
Kind := cmkAgainstComputer;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TKCChessModule.CreateUserInterface;
|
procedure TKCChessModule.CreateUserInterface;
|
||||||
|
@ -60,7 +60,7 @@ begin
|
|||||||
);*)
|
);*)
|
||||||
|
|
||||||
Description := 'Play online via the Free Internet Chess Server';
|
Description := 'Play online via the Free Internet Chess Server';
|
||||||
Kind := cmkSinglePlayer;
|
Kind := cmkInternet;
|
||||||
|
|
||||||
FICS_HOST := 'freechess.org';
|
FICS_HOST := 'freechess.org';
|
||||||
FICS_PORT := 5000;
|
FICS_PORT := 5000;
|
||||||
|
@ -39,7 +39,7 @@ begin
|
|||||||
inherited Create;
|
inherited Create;
|
||||||
|
|
||||||
Description := 'Play against a friend in the same computer';
|
Description := 'Play against a friend in the same computer';
|
||||||
Kind := cmkSinglePlayer;
|
Kind := cmkSameComputer;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TSameComputerChessModule.CreateUserInterface;
|
procedure TSameComputerChessModule.CreateUserInterface;
|
||||||
|
Loading…
Reference in New Issue
Block a user