{/**********************************\
 ==================================

                UCI

 ==================================
\**********************************/}
// parse user/GUI move string input (e.g. "e7e8q")
function parse_move(move_string:string):integer;
var
source_square,target_square:byte;
j,moveInt:integer;
promoted_piece:char;
begin
 // parse source square
 source_square:=(ord(move_string[1])-ord('a')) + (8 - (ord(move_string[2]) - ord('0'))) * 8;
 // parse target square
 target_square:=(ord(move_string[3])-ord('a')) + (8 - (ord(move_string[4]) - ord('0'))) * 8;
  // create move list instance
 New(add_move);
 // generate moves
 generate_moves();
 // loop over the moves within a move list
 for j := 0 to add_move.count-1 do  begin
    // init move
    moveInt:=add_move.move[j];
    result:=moveInt;
    // make sure source & target squares are available within the generated move
    if ((source_square=get_source(moveInt,get_move_source)) and (target_square=get_source(moveInt,get_move_target))) then begin
         // init promoted piece
         promoted_piece := promoted_pieces[get_source(moveInt,get_move_promoted)];
         if (( length(move_string)>4) and (promoted_piece<>'')) then  begin
            // promoted to queen
            if (((move_string[5] = 'Q') or (move_string[5] = 'q')) and (promoted_piece = 'q')) then begin
            // return legal move
            //Writeln('promoted to queen');
            exit;
            end else
            // promoted to rook
            if (((move_string[5] = 'R') or (move_string[5] = 'r')) and (promoted_piece = 'r')) then begin
            // return legal move
            //Writeln('promoted to rook');
            exit;
            end else
            // promoted to bishop
            if (((move_string[5] = 'B') or (move_string[5] = 'b')) and (promoted_piece = 'b')) then begin
            // return legal move
            //Writeln('promoted to bishop');
            exit;
            end else
            // promoted to knight
            if (((move_string[5] = 'N') or (move_string[5] = 'n')) and (promoted_piece = 'n')) then begin
            // return legal move
            //Writeln('promoted to knight');
            exit;
            end else
            // continue the loop on possible wrong promotions (e.g. "e7e8f")
            continue;
       end;
            // return legal move
            //Writeln('return legal move');
            exit;
    end;
 end;//for
 // return illegal move
// Writeln('return illegal move');
 result:=0;
end;

{/*
    Example UCI commands to init position on chess board
    
    // init start position
    position startpos
    
    // init start position and make the moves on chess board
    position startpos moves e2e4 e7e5

    // init position from FEN string
    position fen r3k2r/p1ppqpb1/bn2pnp1/3PN3/1p2P3/2N2Q1p/PPPBBPPP/R3K2R w KQkq - 0 1 
    
    // init position from fen string and make moves on chess board
    position fen r3k2r/p1ppqpb1/bn2pnp1/3PN3/1p2P3/2N2Q1p/PPPBBPPP/R3K2R w KQkq - 0 1 moves e2a6 e8g8
*/ }
// parse UCI "position" command
procedure parse_position(commandUCI:string);
var
startpos:string;
fen_str,moves_str,moves_make:string;
pos_fen,pos_moves,legal_parse_move:integer;
begin
startpos:='rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR w KQkq - 0 1';
pos_moves:=pos('moves',commandUCI);
pos_fen:=pos('fen',commandUCI);
 // parse UCI "startpos" command
 if pos('startpos',commandUCI)>0 then
   // init chess board with start position
     parse_fen(startpos)
     // parse UCI "fen" command
 else begin
        // if no "fen" command is available within command string
        if pos_fen=0 then parse_fen(startpos)
        // found "fen" substring
        else  begin
           // init chess board with position from FEN string
           if pos_moves>0 then fen_str:=copy(commandUCI,pos_fen+4,pos_moves-pos_fen-4)
           else fen_str:=copy(commandUCI,pos_fen+4,length(commandUCI)-pos_fen-1);
           //Writeln('fen_str=',fen_str);
           if parse_fen(fen_str)=false then Writeln('Ошибка FEN строки ...');
        end;
 end;//if pos('startpos'
 // parse moves after position
 // moves available
 if pos_moves>0 then  begin
   moves_str:=copy(commandUCI,pos_moves+6,length(commandUCI)-pos_moves-1);
   //Trim — удаление пробелов в начале строки и в конце
   moves_str:=Trim(moves_str)+' ';
   //Writeln('moves_str=',moves_str);
      while pos(' ',moves_str)>0 do begin
         moves_make:=copy(moves_str,1,pos(' ',moves_str)-1);
         if length(moves_make)<4 then break;
         //Writeln(moves_make);
         legal_parse_move:=parse_move(moves_make);
             if (legal_parse_move>0) then begin
             // make it on board
             make_move(legal_parse_move, all_moves);
             //print_board();
             end else begin
             Writeln('return illegal move');
             end;
         moves_str:=copy(moves_str,pos(moves_make,moves_str)+length(moves_make)+1,length(moves_str)-length(moves_make));
         //Writeln(moves_str);
     end;
 end;
 print_board();
end;

{/*
    Example UCI commands to make engine search for the best move
    
    // fixed depth search
    go depth 64

*/ }
// parse UCI "go" command
procedure parse_go(commandUCI:string);
var
depth:integer;
depth_str:string;
pos_depth:integer;
begin
 depth:=-1;
 pos_depth:=pos('depth',commandUCI);
 // handle fixed depth search
 if pos_depth>0 then begin
    depth_str:=copy(commandUCI,pos_depth+6,length(commandUCI)-pos_depth-5);
    depth:=StrToInt(Trim(depth_str));
 end else depth:=6;
 //Writeln('depth_str=',depth);
 print_board();
 Writeln('bestmove b7b6');
end;

{/*
    GUI -> isready
    Engine -> readyok
    GUI -> ucinewgame
*/}

// main UCI loop
procedure uci_loop();
var
Input_char:Array[0..2000] of char;
Input_str:widestring;
begin
  Writeln('id name BBC_Alex');
  Writeln('id name alexlaw');
  Writeln('uciok');
  // main loop
  while true do begin
    // reset user /GUI input
    FillChar(Input_char, SizeOf(Input_char), 0);
    FillChar(Input_str, SizeOf(Input_str), 0);
    // make sure output reaches the GUI
    Flush(Output);
    Readln(Input_str);
       if Input_str=#13#10 then continue else
       // parse UCI "isready" command
       if pos('isready',Input_str)>0 then  begin
             Writeln('readyok');
             continue;
       end else
       // parse UCI "position" command
       if pos('position',Input_str)>0 then  begin
            // call parse position function
            parse_position(Input_str);
       end else
       // parse UCI "ucinewgame" command
       if pos('ucinewgame',Input_str)>0 then  begin
            // call parse position function
            parse_position('position startpos');
       end else
       // call parse go function
       if pos('go',Input_str)>0 then  begin
            parse_go(Input_str);
       end else
       // parse UCI "quit" command
       if pos('quit',Input_str)>0 then begin
        // quit from the chess engine program execution
        break;
       end else
       // parse UCI "uci" command
       if pos('uci',Input_str)>0 then begin
       // print engine info
       Writeln('id name BBC_Alex');
       Writeln('id name alexlaw');;
       Writeln('uciok');
       end;
  end;
end;

begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли. И выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 // SetConsoleOutputCP(CP_UTF8);
// ==================================
  // init all
  init_all();
  uci_loop();
  exit;
  //Writeln('Нажмите <ENTER>, чтобы выйти ...');
  //Readln;
end.