tiyn
/
yeschess
mirror of https://github.com/tiyn/yeschess
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

refactoring: renaming classes and functions

Browse Source 
Renamed the 'game' type to 'chess' to make more sense
of the existing filestructure.
Doubled functions where removed.
master
TiynGER 4 years ago
parent 3bc523c37a
commit 10098da82f
6 changed files with 937 additions and 962 deletions
Show Stats Download Patch File Download Diff File

482
src/chess.nim
Unescape View File

@ -14,8 +14,8 @@ type
wq: bool # `wq` describes White queenside castle wq: bool # `wq` describes White queenside castle
bk: bool # `bk` describes Black kingside castle bk: bool # `bk` describes Black kingside castle
bq: bool # `bq` describes Black queenside castle bq: bool # `bq` describes Black queenside castle
Game* = object Chess* = object
## `Game` stores all important information of a chess game. ## `Chess` stores all important information of a chess chess.
board*: Board board*: Board
toMove*: Color toMove*: Color
previousBoard: seq[Board] previousBoard: seq[Board]
@ -36,6 +36,7 @@ type
b: int # `b` describes the amount of bishops. b: int # `b` describes the amount of bishops.
r: int # `r` describes the amount of rooks. r: int # `r` describes the amount of rooks.
q: int # `q` describes the amount of queens. q: int # `q` describes the amount of queens.
Pieces = array[10,int]
const const
Block* = 999 ## \ Block* = 999 ## \
@ -103,8 +104,8 @@ const
## from whites perspective that are ttacks. ## from whites perspective that are ttacks.
InsufficientMaterial: array[4, PieceAmount] = [ InsufficientMaterial: array[4, PieceAmount] = [
(0, 0, 0, 0, 0), # only kings (0, 0, 0, 0, 0), # only kings
(0, 0, 1, 0, 0), # knight only (0, 0, 1, 0, 0), # bishop only
(0, 1, 0, 0, 0), # bishop only (0, 1, 0, 0, 0), # knight only
(0, 2, 0, 0, 0) # 2 knights (0, 2, 0, 0, 0) # 2 knights
] ## `InsufficientMaterial` describes the pieces where no checkmate can be ] ## `InsufficientMaterial` describes the pieces where no checkmate can be
## forced ## forced
@ -141,19 +142,13 @@ let
# `FileChar` maps the files of the chessboard to numbers for better # `FileChar` maps the files of the chessboard to numbers for better
# conversion. # conversion.
proc fieldToInd*(file: string, line: int): int =
## Calculate and return board index from `file` and `line` of a chess board.
## Returns -1 if the `field` was not input correct.
try:
return 1+(line+1)*10+(7-FileChar[file])
except IndexDefect, ValueError:
return -1
proc fieldToInd*(field: string): int = proc fieldToInd*(field: string): int =
## Calculate and return board index from `field` of a chess board. ## Calculate and return board index from `field` of a chess board.
## Returns -1 if the `field` was not input correct. ## Returns -1 if the `field` was not input correct.
try: try:
return fieldToInd($field[0], parseInt($field[1])) var file = $field[0]
var line = parseInt($field[1])
return 1+(line+1)*10+(7-FileChar[file])
except IndexDefect, ValueError: except IndexDefect, ValueError:
return -1 return -1
@ -257,15 +252,15 @@ proc initBoard(board: array[0..63, int]): Board =
Block, Block, Block, Block, Block, Block, Block, Block, Block, Block] Block, Block, Block, Block, Block, Block, Block, Block, Block, Block]
return board return board
proc initGame*(): Game = proc initChess*(): Chess =
## Create and return a Game object. ## Create and return a Chess object.
let game = Game(board: initBoard(), let chess = Chess(board: initBoard(),
to_move: Color.White, previousBoard: @[], previousCastleRights: @[], to_move: Color.White, previousBoard: @[], previousCastleRights: @[],
fiftyMoveCounter: 0, castleRights: (true, true, true, true)) fiftyMoveCounter: 0, castleRights: (true, true, true, true))
return game return chess
proc initGame*(board: array[0..63, int], color: Color): Game = proc initChess*(board: array[0..63, int], color: Color): Chess =
## Create and return a Game object based on a position of choice. ## Create and return a Chess object based on a position of choice.
## `board` describes the pieces, `color` the color that is about to move. ## `board` describes the pieces, `color` the color that is about to move.
let board = initBoard(board) let board = initBoard(board)
let compare = initBoard() let compare = initBoard()
@ -286,69 +281,69 @@ proc initGame*(board: array[0..63, int], color: Color): Game =
bk = true bk = true
for ind in board.low..board.high: for ind in board.low..board.high:
same_piece = (board[ind] != compare[ind]) same_piece = (board[ind] != compare[ind])
let game = Game(board: board, let chess = Chess(board: board,
to_move: color, previousBoard: @[], previousCastleRights: @[], to_move: color, previousBoard: @[], previousCastleRights: @[],
fiftyMoveCounter: 0, castleRights: (wk, wq, bk, bq)) fiftyMoveCounter: 0, castleRights: (wk, wq, bk, bq))
return game return chess
proc echoBoard*(game: Game, color: Color) = proc echoBoard*(chess: Chess, color: Color) =
## Prints out the given `board` with its pieces as characters and line ## Prints out the given `board` with its pieces as characters and line
## indices from perspecive of `color`. ## indices from perspecive of `color`.
var line_str = "" var line_str = ""
if (color == Color.Black): if (color == Color.Black):
for i in countup(0, len(game.board)-1): for i in countup(0, len(chess.board)-1):
if (game.board[i] == 999): if (chess.board[i] == 999):
continue continue
line_str &= PieceChar[game.board[i]] & " " line_str &= PieceChar[chess.board[i]] & " "
if ((i+2) %% 10 == 0): if ((i+2) %% 10 == 0):
line_str &= $((int)((i)/10)-1) & "\n" line_str &= $((int)((i)/10)-1) & "\n"
echo line_str echo line_str
echo "h g f e d c b a" echo "h g f e d c b a"
else: else:
for i in countdown(len(game.board)-1, 0): for i in countdown(len(chess.board)-1, 0):
if (game.board[i] == 999): if (chess.board[i] == 999):
continue continue
line_str &= PieceChar[game.board[i]] & " " line_str &= PieceChar[chess.board[i]] & " "
if ((i-1) %% 10 == 0): if ((i-1) %% 10 == 0):
line_str &= $((int)((i)/10)-1) & "\n" line_str &= $((int)((i)/10)-1) & "\n"
echo line_str echo line_str
echo "a b c d e f g h" echo "a b c d e f g h"
proc genPawnAttackDests(game: Game, field: int, color: Color): seq[int] = proc genPawnAttackDests(chess: Chess, field: int, color: Color): seq[int] =
## Generate possible attack destinations for a pawn with specific `color` ## Generate possible attack destinations for a pawn with specific `color`
## located at index `field` of `game`. ## located at index `field` of `chess`.
## Returns a sequence of possible indices to move to. ## Returns a sequence of possible indices to move to.
if (not field in game.board.low..game.board.high): if (not field in chess.board.low..chess.board.high):
return @[] return @[]
var res = newSeq[int]() var res = newSeq[int]()
var dest: int var dest: int
var target: int var target: int
for attacks in Pawn_Moves_White_Attack: for attacks in Pawn_Moves_White_Attack:
dest = field + (attacks * ord(color)) dest = field + (attacks * ord(color))
if (not dest in game.board.low..game.board.high): if (not dest in chess.board.low..chess.board.high):
continue continue
target = game.board[dest] target = chess.board[dest]
if (target == 999 or ord(color) * target >= 0): if (target == 999 or ord(color) * target >= 0):
continue continue
res.add(dest) res.add(dest)
return res return res
proc genPawnDoubleDests(game: Game, field: int, color: Color): seq[int] = proc genPawnDoubleDests(chess: Chess, field: int, color: Color): seq[int] =
## Generate possible double destinations for a pawn with specific `color` ## Generate possible double destinations for a pawn with specific `color`
## located at index `field` of `game`. ## located at index `field` of `chess`.
## Returns a sequence of possible indices to move to. ## Returns a sequence of possible indices to move to.
if (not field in game.board.low..game.board.high): if (not field in chess.board.low..chess.board.high):
return @[] return @[]
var res = newSeq[int]() var res = newSeq[int]()
var dest: int var dest: int
var target: int var target: int
for doubles in Pawn_Moves_White_Double: for doubles in Pawn_Moves_White_Double:
dest = field + doubles * ord(color) dest = field + doubles * ord(color)
if (not dest in game.board.low..game.board.high): if (not dest in chess.board.low..chess.board.high):
continue continue
target = game.board[dest] target = chess.board[dest]
if ((target != 0) or ( if ((target != 0) or (
game.board[dest+(S*ord(color))] != 0)): chess.board[dest+(S*ord(color))] != 0)):
continue continue
if (color == Color.White and not (field in fieldToInd("h2")..fieldToInd("a2"))): if (color == Color.White and not (field in fieldToInd("h2")..fieldToInd("a2"))):
continue continue
@ -357,120 +352,120 @@ proc genPawnDoubleDests(game: Game, field: int, color: Color): seq[int] =
res.add(dest) res.add(dest)
return res return res
proc genPawnDests(game: Game, field: int, color: Color): seq[int] = proc genPawnDests(chess: Chess, field: int, color: Color): seq[int] =
## Generate possible destinations for a pawn with specific `color` located at ## Generate possible destinations for a pawn with specific `color` located at
## index `field` of `game`. ## index `field` of `chess`.
## Returns a sequence of possible indices to move to. ## Returns a sequence of possible indices to move to.
if (not field in game.board.low..game.board.high): if (not field in chess.board.low..chess.board.high):
return @[] return @[]
var res = newSeq[int]() var res = newSeq[int]()
var dest: int var dest: int
var target: int var target: int
for move in Pawn_Moves_White: for move in Pawn_Moves_White:
dest = field + move * ord(color) dest = field + move * ord(color)
if (not dest in game.board.low..game.board.high): if (not dest in chess.board.low..chess.board.high):
continue continue
target = game.board[dest] target = chess.board[dest]
if (target != 0 and target != ord(color) * WEnPassant): if (target != 0 and target != ord(color) * WEnPassant):
continue continue
res.add(dest) res.add(dest)
res.add(game.genPawnAttackDests(field, color)) res.add(chess.genPawnAttackDests(field, color))
res.add(game.genPawnDoubleDests(field, color)) res.add(chess.genPawnDoubleDests(field, color))
return res return res
proc genKnightDests(game: Game, field: int, color: Color): seq[int] = proc genKnightDests(chess: Chess, field: int, color: Color): seq[int] =
## Generate possible destinations for a knight with specific `color` located ## Generate possible destinations for a knight with specific `color` located
## at index `field` of `game`. ## at index `field` of `chess`.
## Returns a sequence of possible indices to move to. ## Returns a sequence of possible indices to move to.
if (not field in game.board.low..game.board.high): if (not field in chess.board.low..chess.board.high):
return @[] return @[]
var res = newSeq[int]() var res = newSeq[int]()
var dest: int var dest: int
var target: int var target: int
for move in Knight_Moves: for move in Knight_Moves:
dest = field + move dest = field + move
if (not dest in game.board.low..game.board.high): if (not dest in chess.board.low..chess.board.high):
continue continue
target = game.board[dest] target = chess.board[dest]
if (target == 999 or (ord(color) * target > 0 and ord(color) * target != WEnPassant)): if (target == 999 or (ord(color) * target > 0 and ord(color) * target != WEnPassant)):
continue continue
res.add(dest) res.add(dest)
return res return res
proc genBishopDests(game: Game, field: int, color: Color): seq[int] = proc genBishopDests(chess: Chess, field: int, color: Color): seq[int] =
## Generate possible destinations for a bishop with specific `color` located ## Generate possible destinations for a bishop with specific `color` located
## at index `field` of `game`. ## at index `field` of `chess`.
## Returns a sequence of possible indices to move to. ## Returns a sequence of possible indices to move to.
if (not field in game.board.low..game.board.high): if (not field in chess.board.low..chess.board.high):
return @[] return @[]
var res = newSeq[int]() var res = newSeq[int]()
var dest: int var dest: int
var target: int var target: int
for move in Bishop_Moves: for move in Bishop_Moves:
dest = field+move dest = field+move
if (not dest in game.board.low..game.board.high): if (not dest in chess.board.low..chess.board.high):
continue continue
target = game.board[dest] target = chess.board[dest]
while (target != 999 and (ord(color) * target <= 0) or target == while (target != 999 and (ord(color) * target <= 0) or target ==
WEnPassant or target == -WEnPassant): WEnPassant or target == -WEnPassant):
res.add(dest) res.add(dest)
if (ord(color) * target < 0 and ord(color) * target > -WEnPassant): if (ord(color) * target < 0 and ord(color) * target > -WEnPassant):
break break
dest = dest+move dest = dest+move
target = game.board[dest] target = chess.board[dest]
return res return res
proc genRookDests(game: Game, field: int, color: Color): seq[int] = proc genRookDests(chess: Chess, field: int, color: Color): seq[int] =
## Generate possible destinations for a rook with specific `color` located at ## Generate possible destinations for a rook with specific `color` located at
## index `field` of `game`. ## index `field` of `chess`.
## Returns a sequence of possible indices to move to. ## Returns a sequence of possible indices to move to.
if (not field in game.board.low..game.board.high): if (not field in chess.board.low..chess.board.high):
return @[] return @[]
var res = newSeq[int]() var res = newSeq[int]()
var dest: int var dest: int
var target: int var target: int
for move in Rook_Moves: for move in Rook_Moves:
dest = field+move dest = field+move
if (not dest in game.board.low..game.board.high): if (not dest in chess.board.low..chess.board.high):
continue continue
target = game.board[dest] target = chess.board[dest]
while (target != 999 and (ord(color) * target <= 0) or target == while (target != 999 and (ord(color) * target <= 0) or target ==
WEnPassant or target == -WEnPassant): WEnPassant or target == -WEnPassant):
res.add(dest) res.add(dest)
if (ord(color) * target < 0 and ord(color) * target > -WEnPassant): if (ord(color) * target < 0 and ord(color) * target > -WEnPassant):
break break
dest = dest+move dest = dest+move
target = game.board[dest] target = chess.board[dest]
return res return res
proc genQueenDests(game: Game, field: int, color: Color): seq[int] = proc genQueenDests(chess: Chess, field: int, color: Color): seq[int] =
## Generate possible destinations for a queen with specific `color` located ## Generate possible destinations for a queen with specific `color` located
## at index `field` of `game`. ## at index `field` of `chess`.
## Returns a sequence of possible indices to move to. ## Returns a sequence of possible indices to move to.
if (not field in game.board.low..game.board.high): if (not field in chess.board.low..chess.board.high):
return @[] return @[]
var res = newSeq[int]() var res = newSeq[int]()
var dest: int var dest: int
var target: int var target: int
for move in Queen_Moves: for move in Queen_Moves:
dest = field+move dest = field+move
if (not dest in game.board.low..game.board.high): if (not dest in chess.board.low..chess.board.high):
continue continue
target = game.board[dest] target = chess.board[dest]
while (target != 999 and (ord(color) * target <= 0) or target == while (target != 999 and (ord(color) * target <= 0) or target ==
WEnPassant or target == -WEnPassant): WEnPassant or target == -WEnPassant):
res.add(dest) res.add(dest)
if (ord(color) * target < 0 and ord(color) * target > -WEnPassant): if (ord(color) * target < 0 and ord(color) * target > -WEnPassant):
break break
dest = dest+move dest = dest+move
target = game.board[dest] target = chess.board[dest]
return res return res
proc genKingCastleDest(game: Game, field: int, color: Color): seq[int] = proc genKingCastleDest(chess: Chess, field: int, color: Color): seq[int] =
## Generate possible castle destinations for a king with specific `color` ## Generate possible castle destinations for a king with specific `color`
## located at index `field` of `game` ## located at index `field` of `chess`
## Returns a sequence of possible indices to move to. ## Returns a sequence of possible indices to move to.
if (not field in game.board.low..game.board.high): if (not field in chess.board.low..chess.board.high):
return @[] return @[]
var res = newSeq[int]() var res = newSeq[int]()
var dest: int var dest: int
@ -479,11 +474,11 @@ proc genKingCastleDest(game: Game, field: int, color: Color): seq[int] =
var half_target: int var half_target: int
for castle in King_Moves_White_Castle: for castle in King_Moves_White_Castle:
dest = field + castle dest = field + castle
if (not dest in game.board.low..game.board.high): if (not dest in chess.board.low..chess.board.high):
continue continue
target = game.board[dest] target = chess.board[dest]
half_dest = field + (int)castle/2 half_dest = field + (int)castle/2
half_target = game.board[half_dest] half_target = chess.board[half_dest]
if (target == 999 or (target != 0)): if (target == 999 or (target != 0)):
continue continue
if (half_target == 999 or (half_target != 0)): if (half_target == 999 or (half_target != 0)):
@ -491,90 +486,90 @@ proc genKingCastleDest(game: Game, field: int, color: Color): seq[int] =
res.add(dest) res.add(dest)
return res return res
proc genKingDests(game: Game, field: int, color: Color): seq[int] = proc genKingDests(chess: Chess, field: int, color: Color): seq[int] =
## Generate possible destinations for a king with specific `color` ## Generate possible destinations for a king with specific `color`
## located at index `field` of `game`. ## located at index `field` of `chess`.
## Returns a sequence of possible indices to move to. ## Returns a sequence of possible indices to move to.
if (not field in game.board.low..game.board.high): if (not field in chess.board.low..chess.board.high):
return @[] return @[]
var res = newSeq[int]() var res = newSeq[int]()
var dest: int var dest: int
var target: int var target: int
for move in King_Moves: for move in King_Moves:
dest = field + move dest = field + move
if (not dest in game.board.low..game.board.high): if (not dest in chess.board.low..chess.board.high):
continue continue
target = game.board[dest] target = chess.board[dest]
if (target == 999 or (ord(color) * target > 0 and ord(color) * target != WEnPassant)): if (target == 999 or (ord(color) * target > 0 and ord(color) * target != WEnPassant)):
continue continue
res.add(dest) res.add(dest)
res.add(game.genKingCastleDest(field, color)) res.add(chess.genKingCastleDest(field, color))
return res return res
proc pieceOn(game: Game, color: Color, sequence: seq[int], proc pieceOn(chess: Chess, color: Color, sequence: seq[int],
pieceID: int): bool = pieceID: int): bool =
## Returns true if the `PieceID` of a given `color` is in `sequence` else ## Returns true if the `PieceID` of a given `color` is in `sequence` else
## wrong. ## wrong.
for check in sequence: for check in sequence:
if game.board[check] == ord(color) * -1 * pieceID: if chess.board[check] == ord(color) * -1 * pieceID:
return true return true
return false return false
proc isAttacked(game: Game, position: int, color: Color): bool = proc isAttacked(chess: Chess, position: int, color: Color): bool =
## Returns true if a `position` in a `game` is attacked by the opposite ## Returns true if a `position` in a `chess` is attacked by the opposite
## color of `color`. ## color of `color`.
var attacked = false var attacked = false
attacked = attacked or game.pieceOn(color, game.genPawnAttackDests( attacked = attacked or chess.pieceOn(color, chess.genPawnAttackDests(
position, color), WPawn) position, color), WPawn)
attacked = attacked or game.pieceOn(color, game.genQueenDests(position, attacked = attacked or chess.pieceOn(color, chess.genQueenDests(position,
color), WQueen) color), WQueen)
attacked = attacked or game.pieceOn(color, game.genKingDests(position, attacked = attacked or chess.pieceOn(color, chess.genKingDests(position,
color), WKing) color), WKing)
attacked = attacked or game.pieceOn(color, game.genRookDests(position, attacked = attacked or chess.pieceOn(color, chess.genRookDests(position,
color), WRook) color), WRook)
attacked = attacked or game.pieceOn(color, game.genBishopDests(position, attacked = attacked or chess.pieceOn(color, chess.genBishopDests(position,
color), WBishop) color), WBishop)
attacked = attacked or game.pieceOn(color, game.genKnightDests(position, attacked = attacked or chess.pieceOn(color, chess.genKnightDests(position,
color), WKnight) color), WKnight)
return attacked return attacked
proc isInCheck*(game: Game, color: Color): bool = proc isInCheck*(chess: Chess, color: Color): bool =
## Returns true if the king of a given `color` is in check in a `game`. ## Returns true if the king of a given `color` is in check in a `chess`.
var king_pos: int var king_pos: int
for i in countup(0, game.board.high): for i in countup(0, chess.board.high):
if game.board[i] == ord(color) * WKing: if chess.board[i] == ord(color) * WKing:
king_pos = i king_pos = i
return game.isAttacked(king_pos, color) return chess.isAttacked(king_pos, color)
proc uncheckedMove(game: var Game, start: int, dest: int): bool {.discardable.} = proc uncheckedMove(chess: var Chess, start: int, dest: int): bool {.discardable.} =
## Moves a piece if possible from `start` position to `dest` position in a ## Moves a piece if possible from `start` position to `dest` position in a
## `game`. ## `chess`.
let piece = game.board[start] let piece = chess.board[start]
game.board[start] = 0 chess.board[start] = 0
game.board[dest] = piece chess.board[dest] = piece
if (start == fieldToInd("e1") or start == fieldToInd("a1")): if (start == fieldToInd("e1") or start == fieldToInd("a1")):
game.castleRights.wq = false chess.castleRights.wq = false
if (start == fieldToInd("e1") or start == fieldToInd("h1")): if (start == fieldToInd("e1") or start == fieldToInd("h1")):
game.castleRights.wk = false chess.castleRights.wk = false
if (start == fieldToInd("e8") or start == fieldToInd("a8")): if (start == fieldToInd("e8") or start == fieldToInd("a8")):
game.castleRights.bq = false chess.castleRights.bq = false
if (start == fieldToInd("e8") or start == fieldToInd("h8")): if (start == fieldToInd("e8") or start == fieldToInd("h8")):
game.castleRights.bk = false chess.castleRights.bk = false
if (dest == fieldToInd("e1") or dest == fieldToInd("a1")): if (dest == fieldToInd("e1") or dest == fieldToInd("a1")):
game.castleRights.wq = false chess.castleRights.wq = false
if (dest == fieldToInd("e1") or dest == fieldToInd("h1")): if (dest == fieldToInd("e1") or dest == fieldToInd("h1")):
game.castleRights.wk = false chess.castleRights.wk = false
if (dest == fieldToInd("e8") or dest == fieldToInd("a8")): if (dest == fieldToInd("e8") or dest == fieldToInd("a8")):
game.castleRights.bq = false chess.castleRights.bq = false
if (dest == fieldToInd("e8") or dest == fieldToInd("h8")): if (dest == fieldToInd("e8") or dest == fieldToInd("h8")):
game.castleRights.bk = false chess.castleRights.bk = false
return true return true
proc moveLeadsToCheck(game: Game, start: int, dest: int, proc moveLeadsToCheck(chess: Chess, start: int, dest: int,
color: Color): bool = color: Color): bool =
## Returns true if a move from `start` to `dest` in a `game` puts the `color` ## Returns true if a move from `start` to `dest` in a `chess` puts the `color`
## king in check. ## king in check.
var check = game var check = chess
check.uncheckedMove(start, dest) check.uncheckedMove(start, dest)
return check.isInCheck(color) return check.isInCheck(color)
@ -588,15 +583,15 @@ proc genPawnPromotion(move: Move, color: Color): seq[Move] =
promotions.add(getMove(start, dest, piece, color)) promotions.add(getMove(start, dest, piece, color))
return promotions return promotions
proc genLegalPawnMoves(game: Game, field: int, color: Color): seq[Move] = proc genLegalPawnMoves(chess: Chess, field: int, color: Color): seq[Move] =
## Generates all legal pawn moves in a `game` starting from `field` for a ## Generates all legal pawn moves in a `chess` starting from `field` for a
## `color`. ## `color`.
if game.board[field] != WPawn * ord(color): if chess.board[field] != WPawn * ord(color):
return @[] return @[]
var res = newSeq[Move]() var res = newSeq[Move]()
var moves = game.genPawnDests(field, color) var moves = chess.genPawnDests(field, color)
for dest in moves: for dest in moves:
if not game.moveLeadsToCheck(field, dest, color): if not chess.moveLeadsToCheck(field, dest, color):
var promotions = genPawnPromotion(getMove(field, dest, color), color) var promotions = genPawnPromotion(getMove(field, dest, color), color)
if promotions != @[]: if promotions != @[]:
res.add(promotions) res.add(promotions)
@ -604,107 +599,107 @@ proc genLegalPawnMoves(game: Game, field: int, color: Color): seq[Move] =
res.add(getMove(field, dest, color)) res.add(getMove(field, dest, color))
return res return res
proc genLegalKnightMoves(game: Game, field: int, color: Color): seq[Move] = proc genLegalKnightMoves(chess: Chess, field: int, color: Color): seq[Move] =
## Generates all legal knight moves in a `game` starting from `field` for a ## Generates all legal knight moves in a `chess` starting from `field` for a
## `color`. ## `color`.
if game.board[field] != WKnight * ord(color): if chess.board[field] != WKnight * ord(color):
return @[] return @[]
var res = newSeq[Move]() var res = newSeq[Move]()
var moves = game.genKnightDests(field, color) var moves = chess.genKnightDests(field, color)
for dest in moves: for dest in moves:
if not game.moveLeadsToCheck(field, dest, color): if not chess.moveLeadsToCheck(field, dest, color):
res.add(getMove(field, dest, color)) res.add(getMove(field, dest, color))
return res return res
proc genLegalBishopMoves(game: Game, field: int, color: Color): seq[Move] = proc genLegalBishopMoves(chess: Chess, field: int, color: Color): seq[Move] =
## Generates all legal bishop moves in a `game` starting from `field` for a ## Generates all legal bishop moves in a `chess` starting from `field` for a
## `color`. ## `color`.
if game.board[field] != WBishop * ord(color): if chess.board[field] != WBishop * ord(color):
return @[] return @[]
var res = newSeq[Move]() var res = newSeq[Move]()
var moves = game.genBishopDests(field, color) var moves = chess.genBishopDests(field, color)
for dest in moves: for dest in moves:
if not game.moveLeadsToCheck(field, dest, color): if not chess.moveLeadsToCheck(field, dest, color):
res.add(getMove(field, dest, color)) res.add(getMove(field, dest, color))
return res return res
proc genLegalRookMoves(game: Game, field: int, color: Color): seq[Move] = proc genLegalRookMoves(chess: Chess, field: int, color: Color): seq[Move] =
## Generates all legal rook moves in a `game` starting from `field` for a ## Generates all legal rook moves in a `chess` starting from `field` for a
## `color`. ## `color`.
if game.board[field] != WRook * ord(color): if chess.board[field] != WRook * ord(color):
return @[] return @[]
var res = newSeq[Move]() var res = newSeq[Move]()
var moves = game.genRookDests(field, color) var moves = chess.genRookDests(field, color)
for dest in moves: for dest in moves:
if not game.moveLeadsToCheck(field, dest, color): if not chess.moveLeadsToCheck(field, dest, color):
res.add(getMove(field, dest, color)) res.add(getMove(field, dest, color))
return res return res
proc genLegalQueenMoves(game: Game, field: int, color: Color): seq[Move] = proc genLegalQueenMoves(chess: Chess, field: int, color: Color): seq[Move] =
## Generates all legal queen moves in a `game` starting from `field` for a ## Generates all legal queen moves in a `chess` starting from `field` for a
## `color`. ## `color`.
if game.board[field] != WQueen * ord(color): if chess.board[field] != WQueen * ord(color):
return @[] return @[]
var res = newSeq[Move]() var res = newSeq[Move]()
var moves = game.genQueenDests(field, color) var moves = chess.genQueenDests(field, color)
for dest in moves: for dest in moves:
if not game.moveLeadsToCheck(field, dest, color): if not chess.moveLeadsToCheck(field, dest, color):
res.add(getMove(field, dest, color)) res.add(getMove(field, dest, color))
return res return res
proc genLegalKingMoves(game: Game, field: int, color: Color): seq[Move] = proc genLegalKingMoves(chess: Chess, field: int, color: Color): seq[Move] =
## Generates all legal king moves in a `game` starting from `field` for a ## Generates all legal king moves in a `chess` starting from `field` for a
## `color`. ## `color`.
if game.board[field] != WKing * ord(color): if chess.board[field] != WKing * ord(color):
return @[] return @[]
var res = newSeq[Move]() var res = newSeq[Move]()
var moves = game.genKingDests(field, color) var moves = chess.genKingDests(field, color)
for dest in moves: for dest in moves:
if field - dest == W+W and game.isAttacked(dest+W, color): if field - dest == W+W and chess.isAttacked(dest+W, color):
continue continue
if field - dest == E+E and game.isAttacked(dest+E, color): if field - dest == E+E and chess.isAttacked(dest+E, color):
continue continue
if not game.moveLeadsToCheck(field, dest, color): if not chess.moveLeadsToCheck(field, dest, color):
res.add(getMove(field, dest, color)) res.add(getMove(field, dest, color))
return res return res
proc genLegalMoves*(game: Game, field: int, color: Color): seq[Move] = proc genLegalMoves*(chess: Chess, field: int, color: Color): seq[Move] =
## Generates all legal moves in a `game` starting from `field` for a `color`. ## Generates all legal moves in a `chess` starting from `field` for a `color`.
var legal_moves = newSeq[Move]() var legal_moves = newSeq[Move]()
var target = ord(color) * game.board[field] var target = ord(color) * chess.board[field]
if 0 < target and target < WEnPassant: if 0 < target and target < WEnPassant:
legal_moves = case target: legal_moves = case target:
of WPawn: of WPawn:
game.genLegalPawnMoves(field, color) chess.genLegalPawnMoves(field, color)
of WKnight: of WKnight:
game.genLegalKnightMoves(field, color) chess.genLegalKnightMoves(field, color)
of WBishop: of WBishop:
game.genLegalBishopMoves(field, color) chess.genLegalBishopMoves(field, color)
of WRook: of WRook:
game.genLegalRookMoves(field, color) chess.genLegalRookMoves(field, color)
of WQueen: of WQueen:
game.genLegalQueenMoves(field, color) chess.genLegalQueenMoves(field, color)
of WKing: of WKing:
game.genLegalKingMoves(field, color) chess.genLegalKingMoves(field, color)
else: else:
@[] @[]
return legal_moves return legal_moves
proc genLegalMoves*(game: Game, color: Color): seq[Move] = proc genLegalMoves*(chess: Chess, color: Color): seq[Move] =
## Generates all legal moves in a `game` for a `color`. ## Generates all legal moves in a `chess` for a `color`.
var legal_moves = newSeq[Move]() var legal_moves = newSeq[Move]()
for field in game.board.low..game.board.high: for field in chess.board.low..chess.board.high:
legal_moves.add(game.genLegalMoves(field, color)) legal_moves.add(chess.genLegalMoves(field, color))
return legal_moves return legal_moves
proc castling(game: var Game, kstart: int, dest_kingside: bool, proc castling(chess: var Chess, kstart: int, dest_kingside: bool,
color: Color): bool {.discardable.} = color: Color): bool {.discardable.} =
## Tries to castle in a given `game` with the king of a given `color` from ## Tries to castle in a given `chess` with the king of a given `color` from
## `kstart`. ## `kstart`.
## `dest_kingside` for kingside castling, else castling is queenside. ## `dest_kingside` for kingside castling, else castling is queenside.
## This process checks for the legality of the move and performs the switch ## This process checks for the legality of the move and performs the switch
## of `game.to_move` ## of `chess.to_move`
if game.toMove != color: if chess.toMove != color:
return false return false
var kdest = kstart var kdest = kstart
var rstart: int var rstart: int
@ -715,32 +710,32 @@ proc castling(game: var Game, kstart: int, dest_kingside: bool,
rstart = kstart + (E+E+E) rstart = kstart + (E+E+E)
rdest = rstart + (W+W) rdest = rstart + (W+W)
if (color == Color.White): if (color == Color.White):
rights = game.castleRights.wk rights = chess.castleRights.wk
else: else:
rights = game.castleRights.bk rights = chess.castleRights.bk
else: else:
rstart = kstart + (W+W+W+W) rstart = kstart + (W+W+W+W)
rdest = rstart + (E+E+E) rdest = rstart + (E+E+E)
kdest = kstart + (W+W) kdest = kstart + (W+W)
if (color == Color.White): if (color == Color.White):
rights = game.castleRights.bq rights = chess.castleRights.bq
else: else:
rights = game.castleRights.bq rights = chess.castleRights.bq
if (rights): if (rights):
var check = false var check = false
if (dest_kingside): if (dest_kingside):
check = check or game.isAttacked(kstart, color) check = check or chess.isAttacked(kstart, color)
check = check or game.isAttacked(kstart+(E), color) check = check or chess.isAttacked(kstart+(E), color)
check = check or game.isAttacked(kstart+(E+E), color) check = check or chess.isAttacked(kstart+(E+E), color)
else: else:
check = check or game.isAttacked(kstart, color) check = check or chess.isAttacked(kstart, color)
check = check or game.isAttacked(kstart+(W), color) check = check or chess.isAttacked(kstart+(W), color)
check = check or game.isAttacked(kstart+(W+W), color) check = check or chess.isAttacked(kstart+(W+W), color)
if check: if check:
return false return false
game.uncheckedMove(kstart, kdest) chess.uncheckedMove(kstart, kdest)
game.uncheckedMove(rstart, rdest) chess.uncheckedMove(rstart, rdest)
game.toMove = Color(ord(game.toMove)*(-1)) chess.toMove = Color(ord(chess.toMove)*(-1))
return true return true
return false return false
@ -750,128 +745,105 @@ proc removeEnPassant(board: var Board, color: Color): void =
if board[field] == ord(color) * WEnPassant: if board[field] == ord(color) * WEnPassant:
board[field] = 0 board[field] = 0
proc checkedMove*(game: var Game, move: Move): bool {.discardable.} = proc checkedMove*(chess: var Chess, move: Move): bool {.discardable.} =
## Tries to make a `move` in a given `game``. ## Tries to make a `move` in a given `chess``.
## This process checks for the legality of the move and performs the switch ## This process checks for the legality of the move and performs the switch
## of `game.to_move` with exception of castling (castling() switches). ## of `chess.to_move` with exception of castling (castling() switches).
let start = move.start let start = move.start
let dest = move.dest let dest = move.dest
let color = move.color let color = move.color
let prom = move.prom let prom = move.prom
if (game.toMove != color or start == -1 or dest == -1): if (chess.toMove != color or start == -1 or dest == -1):
return false return false
var sequence = newSeq[Move]() var sequence = newSeq[Move]()
let piece = game.board[start] let piece = chess.board[start]
var createEnPassant = false var createEnPassant = false
var capturedEnPassant = false var capturedEnPassant = false
var fiftyMoveRuleReset = false var fiftyMoveRuleReset = false
var move: Move var move: Move
move = getMove(start, dest, color) move = getMove(start, dest, color)
if (piece == WPawn * ord(color)): if (piece == WPawn * ord(color)):
createEnPassant = dest in game.genPawnDoubleDests(start, color) createEnPassant = dest in chess.genPawnDoubleDests(start, color)
capturedEnPassant = (game.board[dest] == -1 * ord(color) * WEnPassant) capturedEnPassant = (chess.board[dest] == -1 * ord(color) * WEnPassant)
fiftyMoveRuleReset = true fiftyMoveRuleReset = true
if (game.board[move.dest] != 0): if (chess.board[move.dest] != 0):
fiftyMoveRuleReset = true fiftyMoveRuleReset = true
sequence.add(game.genLegalMoves(start, color)) sequence.add(chess.genLegalMoves(start, color))
# TODO: don't generate all legal moves, just check if result is legal and reachable
if (move in sequence): if (move in sequence):
game.board.removeEnPassant(color) chess.board.removeEnPassant(color)
if (piece == WKing * ord(color) and (start - dest == (W+W))): if (piece == WKing * ord(color) and (start - dest == (W+W))):
return game.castling(start, true, color) return chess.castling(start, true, color)
elif (piece == WKing * ord(color) and (start - dest == (E+E))): elif (piece == WKing * ord(color) and (start - dest == (E+E))):
return game.castling(start, false, color) return chess.castling(start, false, color)
else: else:
game.uncheckedMove(start, dest) chess.uncheckedMove(start, dest)
game.toMove = Color(ord(game.toMove)*(-1)) chess.toMove = Color(ord(chess.toMove)*(-1))
if createEnPassant: if createEnPassant:
game.board[dest-(N*ord(color))] = WEnPassant * ord(color) chess.board[dest-(N*ord(color))] = WEnPassant * ord(color)
if capturedEnPassant: if capturedEnPassant:
game.board[dest-(N*ord(color))] = 0 chess.board[dest-(N*ord(color))] = 0
if ((90 < dest and dest < 99) or (20 < dest and dest < 29)) and if ((90 < dest and dest < 99) or (20 < dest and dest < 29)) and
game.board[dest] == WPawn * ord(color): chess.board[dest] == WPawn * ord(color):
game.board[dest] = prom chess.board[dest] = prom
var prevBoard = game.previousBoard var prevBoard = chess.previousBoard
var prevCastle = game.previousCastleRights var prevCastle = chess.previousCastleRights
game.previousBoard.add(game.board) chess.previousBoard.add(chess.board)
game.previousCastleRights.add(game.castleRights) chess.previousCastleRights.add(chess.castleRights)
game.fiftyMoveCounter = game.fiftyMoveCounter + 1 chess.fiftyMoveCounter = chess.fiftyMoveCounter + 1
if fiftyMoveRuleReset: if fiftyMoveRuleReset:
game.fiftyMoveCounter = 0 chess.fiftyMoveCounter = 0
return true return true
proc hasNoMoves(game: Game, color: Color): bool = proc hasNoMoves(chess: Chess, color: Color): bool =
## Returns true if the `color` player has no legal moves in a `game`. ## Returns true if the `color` player has no legal moves in a `chess`.
return (game.genLegalMoves(color) == @[]) return (chess.genLegalMoves(color) == @[])
proc isCheckmate*(game: Game, color: Color): bool = proc isCheckmate*(chess: Chess, color: Color): bool =
## Returns true if the `color` player is checkmate in a `game`. ## Returns true if the `color` player is checkmate in a `chess`.
return game.hasNoMoves(color) and game.isInCheck(color) return chess.hasNoMoves(color) and chess.isInCheck(color)
proc threeMoveRep(game: Game): bool = proc threeMoveRep(chess: Chess): bool =
## Returns true if a 3-fold repitition happened on the last move of the ## Returns true if a 3-fold repitition happened on the last move of the
## `game`. ## `chess`.
if game.previousBoard == []: if chess.previousBoard == []:
return false return false
var lastState = game.previousBoard[game.previousBoard.high] var lastState = chess.previousBoard[chess.previousBoard.high]
var lastCastleRights = game.previousCastleRights[game.previousBoard.high] var lastCastleRights = chess.previousCastleRights[chess.previousBoard.high]
var reps = 0 var reps = 0
for stateInd in (game.previousBoard.low)..(game.previousBoard.high): for stateInd in (chess.previousBoard.low)..(chess.previousBoard.high):
if (game.previousBoard[stateInd] == lastState and game.previousCastleRights[ if (chess.previousBoard[stateInd] == lastState and chess.previousCastleRights[
stateInd] == lastCastleRights): stateInd] == lastCastleRights):
reps = reps + 1 reps = reps + 1
return reps >= 3 return reps >= 3
proc fiftyMoveRule(game: Game): bool = proc fiftyMoveRule(chess: Chess): bool =
## Returns true if a draw can be claimed by the 50 move rule in a `game`. ## Returns true if a draw can be claimed by the 50 move rule in a `chess`.
return game.fiftyMoveCounter >= 100 return chess.fiftyMoveCounter >= 100
proc isDrawClaimable*(game: Game): bool = proc isDrawClaimable*(chess: Chess): bool =
## Returns true if a draw is claimable by either player. ## Returns true if a draw is claimable by either player.
return game.threeMoveRep() or game.fiftyMoveRule() return chess.threeMoveRep() or chess.fiftyMoveRule()
proc checkInsufficientMaterial(board: Board): bool = proc checkInsufficientMaterial(board: Board): bool =
## Checks for combinations of pieces on a `board`, where no checkmate can be ## Checks for combinations of pieces on a `board`, where no checkmate can be
## forced. ## forced.
## Returns true if no player can force a checkmate to the other. ## Returns true if no player can force a checkmate to the other.
var wp = 0 var pieces: Pieces
var wn = 0
var wb = 0
var wr = 0
var wq = 0
var bp = 0
var bn = 0
var bb = 0
var br = 0
var bq = 0
for field in board.low..board.high: for field in board.low..board.high:
case board[field]: var piece = board[field]
of WPawn: var index: int
wp += 1 if piece >= WPawn and piece <= WRook:
of BPawn: index = piece - WPawn # map lowest value to 0
bp += 1 pieces[index] += 1
of WKnight: elif piece <= BPawn and piece >= BRook:
wn += 1 index = WRook - piece # map black pieces after whites
of BKnight: pieces[index] += 1
bn += 1 let wpieces: PieceAmount = (pieces[0], pieces[1], pieces[2], pieces[3], pieces[4])
of WBishop: let bpieces: PieceAmount = (pieces[5], pieces[6], pieces[7], pieces[8], pieces[9])
wb += 1
of BBishop:
bb += 1
of WRook:
wr += 1
of BRook:
br += 1
of WQueen:
wq += 1
of BQueen:
bq += 1
else:
continue
let wpieces: PieceAmount = (wp, wn, wb, wr, wq)
let bpieces: PieceAmount = (bp, bn, bb, br, bq)
return (wpieces in InsufficientMaterial) and (bpieces in InsufficientMaterial) return (wpieces in InsufficientMaterial) and (bpieces in InsufficientMaterial)
proc isStalemate*(game: Game, color: Color): bool = proc isStalemate*(chess: Chess, color: Color): bool =
## Returns true if the `color` player is stalemate in a `game`. ## Returns true if the `color` player is stalemate in a `chess`.
return (game.hasNoMoves(color) and not game.isInCheck(color)) or return (chess.hasNoMoves(color) and not chess.isInCheck(color)) or
game.board.checkInsufficientMaterial() chess.board.checkInsufficientMaterial()

1262
src/chessTest.nim
View File

File diff suppressed because it is too large Load Diff

54
src/engine.nim
Unescape View File

@ -1,9 +1,9 @@
import ./chess import ./chess.nim
type type
MoveTree* = object MoveTree* = object
## `Movetree` is a visualization for possible moves. ## `Movetree` is a visualization for possible moves.
game*: Game chess*: Chess
evaluation: float evaluation: float
children*: seq[Movetree] children*: seq[Movetree]
@ -17,10 +17,10 @@ const
DrawVal = 0 ## `DrawVal` is the engines value for a draw. DrawVal = 0 ## `DrawVal` is the engines value for a draw.
LoVal = -1000000 ## `LoVal` is a value always lower than any evaluation. LoVal = -1000000 ## `LoVal` is a value always lower than any evaluation.
proc pieceEval*(game: Game): int = proc pieceEval*(chess: Chess): int =
## Returns the evaluation of existing pieces on the `board` ## Returns the evaluation of existing pieces on the `board`
var evaluation = DrawVal var evaluation = DrawVal
for square in game.board: for square in chess.board:
case square: case square:
of WPawn: of WPawn:
evaluation += ord(Color.White) * PawnVal evaluation += ord(Color.White) * PawnVal
@ -46,56 +46,56 @@ proc pieceEval*(game: Game): int =
continue continue
return evaluation return evaluation
proc evaluate(game: Game): int = proc evaluate(chess: Chess): int =
## Returns a complete evaluation of a `game` with player `toMove` about to make ## Returns a complete evaluation of a `chess` with player `toMove` about to make
## a move. ## a move.
var evaluation: int var evaluation: int
if game.isCheckmate(game.toMove): if chess.isCheckmate(chess.toMove):
evaluation = ord(game.toMove) * CheckmateVal evaluation = ord(chess.toMove) * CheckmateVal
if game.isStalemate(game.toMove): if chess.isStalemate(chess.toMove):
evaluation = DrawVal evaluation = DrawVal
else: else:
evaluation = game.pieceEval() evaluation = chess.pieceEval()
if game.isDrawClaimable(): if chess.isDrawClaimable():
if game.toMove == Color.White: if chess.toMove == Color.White:
evaluation = max(DrawVal, evaluation) evaluation = max(DrawVal, evaluation)
else: else:
evaluation = min(DrawVal, evaluation) evaluation = min(DrawVal, evaluation)
return evaluation return evaluation
proc spanMoveTree*(game: Game, depth: int): MoveTree = proc spanMoveTree*(chess: Chess, depth: int): MoveTree =
## Create and return a Movetree of a given `game` with a given maximum `depth`. ## Create and return a Movetree of a given `chess` with a given maximum `depth`.
var mTree: MoveTree var mTree: MoveTree
mTree.game = game mTree.chess = chess
if depth != 0 and not game.isCheckmate(game.toMove) and not game.isStalemate(game.toMove): if depth != 0 and not chess.isCheckmate(chess.toMove) and not chess.isStalemate(chess.toMove):
let possibleMoves = game.genLegalMoves(game.toMove) let possibleMoves = chess.genLegalMoves(chess.toMove)
for move in possibleMoves: for move in possibleMoves:
var tmpGame = game var tmpChess = chess
tmpGame.checkedMove(move) tmpChess.checkedMove(move)
mTree.children.add(spanMoveTree(tmpGame, depth-1)) mTree.children.add(spanMoveTree(tmpChess, depth-1))
return mTree return mTree
proc negaMax*(mTree: MoveTree): int = proc negaMax*(mTree: MoveTree): int =
## Return the value of the root node of a given `MoveTree` ## Return the value of the root node of a given `MoveTree`
if mTree.children == []: if mTree.children == []:
return mTree.game.evaluate() return mTree.chess.evaluate()
var bestVal = LoVal var bestVal = LoVal
for child in mTree.children: for child in mTree.children:
var tmpVal = -negaMax(child) var tmpVal = -negaMax(child)
bestVal = max(bestVal, tmpVal) bestVal = max(bestVal, tmpVal)
return bestVal return bestVal
proc bestMove*(game: Game, depth: int): Move = proc bestMove*(chess: Chess, depth: int): Move =
## Generate a MoveTree of a `game` with a given `depth`, run negaMax and return ## Generate a MoveTree of a `chess` with a given `depth`, run negaMax and return
## the best evaluated move. ## the best evaluated move.
var moves = game.genLegalMoves(game.toMove) var moves = chess.genLegalMoves(chess.toMove)
var bestMove: Move var bestMove: Move
var bestEval: int var bestEval: int
bestEval = LoVal bestEval = LoVal
for move in moves: for move in moves:
var tmpGame = game var tmpChess = chess
tmpGame.checkedMove(move) tmpChess.checkedMove(move)
var tmpMTree = tmpGame.spanMoveTree(depth) var tmpMTree = tmpChess.spanMoveTree(depth)
var tmpEval = -tmpMTree.negaMax() var tmpEval = -tmpMTree.negaMax()
echo("move:", moveToNotation(move),"; eval:", tmpEval) echo("move:", moveToNotation(move),"; eval:", tmpEval)
if tmpEval > bestEval: if tmpEval > bestEval:

34
src/engineTest.nim
Unescape View File

@ -1,18 +1,18 @@
import einheit import einheit
import ./chess import ./chess.nim
import ./engine import ./engine.nim
testSuite GameTest of TestSuite: testSuite ChessTest of TestSuite:
var var
game: Game chess: Chess
method setup() = method setup() =
self.game = initGame() self.chess = initChess()
method testPieceEvalStalemate() = method testPieceEvalStalemate() =
self.game = initGame([ self.chess = initChess([
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, WKing, 0, 0, 0, 0, 0, 0, 0, WKing, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
@ -22,11 +22,11 @@ testSuite GameTest of TestSuite:
0, 0, 0, 0, 0, BKing, 0, 0, 0, 0, 0, 0, 0, BKing, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0 0, 0, 0, 0, 0, 0, 0, 0
], Color.Black) ], Color.Black)
var pieceEvaluation = self.game.pieceEval() var pieceEvaluation = self.chess.pieceEval()
self.check(pieceEvaluation == 0) self.check(pieceEvaluation == 0)
method testSpanMoveTree() = method testSpanMoveTree() =
self.game = initGame([ self.chess = initChess([
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, WKing, 0, 0, 0, 0, 0, 0, 0, WKing, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
@ -36,11 +36,11 @@ testSuite GameTest of TestSuite:
0, 0, 0, 0, 0, BKing, 0, 0, 0, 0, 0, 0, 0, BKing, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0 0, 0, 0, 0, 0, 0, 0, 0
], Color.Black) ], Color.Black)
var mTree = self.game.spanMoveTree(1) var mTree = self.chess.spanMoveTree(1)
self.check(mTree.children == []) self.check(mTree.children == [])
method testBestMoveProm() = method testBestMoveProm() =
self.game = initGame([ self.chess = initChess([
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, WKing, 0, 0, 0, 0, 0, 0, 0, WKing, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
@ -50,7 +50,7 @@ testSuite GameTest of TestSuite:
0, 0, 0, WPawn, 0, BKing, 0, 0, 0, 0, 0, WPawn, 0, BKing, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0 0, 0, 0, 0, 0, 0, 0, 0
], Color.White) ], Color.White)
var testBestMove = self.game.bestMove(2) var testBestMove = self.chess.bestMove(2)
self.check(testBestMove.start != 0) self.check(testBestMove.start != 0)
self.check(indToField(testBestMove.start) == "e7") self.check(indToField(testBestMove.start) == "e7")
self.check(indToField(testBestMove.dest) == "e8") self.check(indToField(testBestMove.dest) == "e8")
@ -58,7 +58,7 @@ testSuite GameTest of TestSuite:
method testBestMoveStopProm() = method testBestMoveStopProm() =
self.game = initGame([ self.chess = initChess([
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, WKing, 0, 0, 0, 0, 0, 0, 0, WKing, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
@ -68,13 +68,13 @@ testSuite GameTest of TestSuite:
0, 0, 0, 0, WPawn, BKing, 0, 0, 0, 0, 0, 0, WPawn, BKing, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0 0, 0, 0, 0, 0, 0, 0, 0
], Color.Black) ], Color.Black)
var testBestMove = self.game.bestMove(2) var testBestMove = self.chess.bestMove(2)
self.check(testBestMove.start != 0) self.check(testBestMove.start != 0)
self.check(indToField(testBestMove.start) == "c7") self.check(indToField(testBestMove.start) == "c7")
self.check(indToField(testBestMove.dest) == "d7") self.check(indToField(testBestMove.dest) == "d7")
method testBestMoveTacticBlack() = method testBestMoveTacticBlack() =
self.game = initGame([ self.chess = initChess([
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, WRook, 0, WKing, 0, 0, 0, 0, 0, WRook, 0, WKing, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
@ -84,12 +84,12 @@ testSuite GameTest of TestSuite:
0, BRook, 0, 0, 0, BKing, 0, 0, 0, BRook, 0, 0, 0, BKing, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0 0, 0, 0, 0, 0, 0, 0, 0
], Color.Black) ], Color.Black)
var testBestMove = self.game.bestMove(2) var testBestMove = self.chess.bestMove(2)
self.check(testBestMove.start != 0) self.check(testBestMove.start != 0)
self.check(indToField(testBestMove.start) != "g5" or indToField(testBestMove.dest) != "f4") self.check(indToField(testBestMove.start) != "g5" or indToField(testBestMove.dest) != "f4")
method testBestMoveTacticWhite() = method testBestMoveTacticWhite() =
self.game = initGame([ self.chess = initChess([
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, WRook, 0, WKing, 0, 0, 0, 0, 0, WRook, 0, WKing, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
@ -99,7 +99,7 @@ testSuite GameTest of TestSuite:
0, BRook, 0, 0, 0, BKing, 0, 0, 0, BRook, 0, 0, 0, BKing, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0 0, 0, 0, 0, 0, 0, 0, 0
], Color.White) ], Color.White)
var testBestMove = self.game.bestMove(2) var testBestMove = self.chess.bestMove(2)
self.check(testBestMove.start != 0) self.check(testBestMove.start != 0)
self.check(indToField(testBestMove.start) != "g4" or indToField(testBestMove.dest) != "f5") self.check(indToField(testBestMove.start) != "g4" or indToField(testBestMove.dest) != "f5")

48
src/game.nim
Unescape View File

@ -5,52 +5,53 @@ import ./engine.nim
proc runGameHotseat*(): void = proc runGameHotseat*(): void =
## Initializes and runs a game of chess as hotseat. ## Initializes and runs a game of chess as hotseat.
var game = initGame() var chess = initChess()
var draw: string var draw: string
game.echoBoard(game.toMove) chess.echoBoard(chess.toMove)
while not game.isCheckmate(game.toMove) and not game.isStalemate(game.toMove): while not chess.isCheckmate(chess.toMove) and not chess.isStalemate(chess.toMove):
echo "Make a move" echo "Make a move"
echo game.toMove echo chess.toMove
var move = readLine(stdin) var move = readLine(stdin)
while not game.checkedMove(notationToMove(move, game.toMove)): while not chess.checkedMove(notationToMove(move, chess.toMove)):
move = readLine(stdin) move = readLine(stdin)
game.echoBoard(game.toMove) chess.echoBoard(chess.toMove)
if (game.isDrawClaimable): if (chess.isDrawClaimable):
echo "Do you want to claim a draw? (y/N)" echo "Do you want to claim a draw? (y/N)"
draw = readLine(stdin) draw = readLine(stdin)
if (draw == "y"): if (draw == "y"):
echo "Draw claimed" echo "Draw claimed"
break break
if game.isCheckmate(game.toMove): if chess.isCheckmate(chess.toMove):
echo $game.toMove & " was checkmated" echo $chess.toMove & " was checkmated"
if game.isStalemate(game.toMove): if chess.isStalemate(chess.toMove):
echo "Stalemate" echo "Stalemate"
proc runGameSolo*(color: Color, difficulty: int): void = proc runGameSolo*(color: Color, difficulty: int): void =
## Initializes and runs a solo game of chess. ## Initializes and runs a solo game of chess.
## The player plays as `color`. ## The player plays as `color`.
var game = initGame() echo("run game")
var chess = initChess()
var draw: string var draw: string
while not game.isCheckmate(game.toMove) and not game.isStalemate(game.toMove): while not chess.isCheckmate(chess.toMove) and not chess.isStalemate(chess.toMove):
if (game.toMove == color): if (chess.toMove == color):
game.echoBoard(color) chess.echoBoard(color)
echo "Make a move" echo "Make a move"
var hMove = readLine(stdin) var hMove = readLine(stdin)
while not game.checkedMove(notationToMove(hMove, game.toMove)): while not chess.checkedMove(notationToMove(hMove, chess.toMove)):
hMove = readLine(stdin) hMove = readLine(stdin)
game.echoBoard(color) chess.echoBoard(color)
if (game.isDrawClaimable): if (chess.isDrawClaimable):
echo "Do you want to claim a draw? (y/N)" echo "Do you want to claim a draw? (y/N)"
draw = readLine(stdin) draw = readLine(stdin)
if (draw == "y"): if (draw == "y"):
echo "Draw claimed" echo "Draw claimed"
break break
else: else:
var cMove = bestMove(game, 3) var cMove = bestMove(chess, difficulty)
game.checkedMove(cMove) chess.checkedMove(cMove)
if game.isCheckmate(game.toMove): if chess.isCheckmate(chess.toMove):
echo $game.toMove & " was checkmated" echo $chess.toMove & " was checkmated"
if game.isStalemate(game.toMove): if chess.isStalemate(chess.toMove):
echo "Stalemate" echo "Stalemate"
proc menu(): void = proc menu(): void =
@ -88,4 +89,5 @@ proc menu(): void =
echo("\n\n\n") echo("\n\n\n")
runGameHotseat() runGameHotseat()
menu() when isMainModule:
menu()

19
src/lichess.nim → src/lichessBridge.nim
Unescape View File

@ -11,14 +11,14 @@ var session = berserk.TokenSession(secret.api_token)
var client = berserk.Client(session=session) var client = berserk.Client(session=session)
let engineID = "tiyn-ychess" let engineID = "tiyn-ychess"
let engineDifficulty = 3 let engineDifficulty = 2
let toAccept = ["tiynger"] let toAccept = ["tiynger"]
proc playGame(id: string) {.async.} = proc playLichessGame(id: string) {.async.} =
## Plays a lichess game with `id` asynchronously. ## Plays a lichess game with `id` asynchronously.
var color: Color var color: Color
var game = initGame() var chess = initChess()
for event in client.bots.stream_game_state(id): for event in client.bots.stream_game_state(id):
echo(event) echo(event)
if $event["type"] in ["gameState", "gameFull"]: if $event["type"] in ["gameState", "gameFull"]:
@ -35,11 +35,11 @@ proc playGame(id: string) {.async.} =
movesString = event["moves"] movesString = event["moves"]
if $movesString != "": if $movesString != "":
var moves = movesString.split(" ") var moves = movesString.split(" ")
game.checkedMove(notationToMove($moves[-1], game.toMove)) chess.checkedMove(notationToMove($moves[-1], chess.toMove))
game.echoBoard(game.toMove) chess.echoBoard(chess.toMove)
if game.toMove == color: if chess.toMove == color:
echo("engine has to make a move") echo("engine has to make a move")
var bestMove = moveToNotation(game.bestMove(engineDifficulty)) var bestMove = moveToNotation(chess.bestMove(engineDifficulty))
echo(bestMove) echo(bestMove)
discard client.bots.make_move(id, bestMove) discard client.bots.make_move(id, bestMove)
@ -56,10 +56,11 @@ proc acceptChallenge(whiteList: openArray[string]): void =
if challenger in whiteList and speed == "correspondence": if challenger in whiteList and speed == "correspondence":
echo("challenge of ", challenger, " whiteList: ", id) echo("challenge of ", challenger, " whiteList: ", id)
discard client.bots.accept_challenge(id) discard client.bots.accept_challenge(id)
discard playGame($event["challenge"]["id"]) discard playLichessGame($event["challenge"]["id"])
else: else:
discard client.bots.decline_challenge(id) discard client.bots.decline_challenge(id)
echo("challenge of ", challenger, " whiteList: ", id) echo("challenge of ", challenger, " whiteList: ", id)
acceptChallenge(toAccept) when isMainModule:
acceptChallenge(toAccept)
Write Preview
Loading…
Cancel
Save