UCI протoкол - c чего начинать?

Заработало! УРРРРРА!!!!!!!

Спасибо тебе огромное Дикий Кот! Все воскресенье продолбался, не мог понять в чем дело!

"Век живи - век учись, все равно дураком сдохнешь!"

 

Извени, я просто у тебя на сайте видел, явно кота, с пивом и сигретой.

 

Сейчас поищу, но я где-то на этом форуме их уже выкладывал...

 

Спасибо NS. Я уже разрулил.

 

Немогу понять почему оболочки перед каждым ходом задают движку позицию таким странным способом:

Код:

position startpos moves g1f3 b8c6 b1c3 g8f6 e2e4 d7d5 e4d5 ...

неужели движок не в состоянии запомнить позицию?
мне кажется удобнее и быстрее передавать последним ходом, или хотябы феном.

 

Феном? А как отслеживать повторение позиции будешь?

Передавать ход? А если партию ты играешь не с первого хода?
Вместо одной команды хочешь получить кучу как в протоколе WinBoard?

Лучше уж одна универсальная команда.
Тем более её реализация - у меня это пара десятков строк. (ну еще и процедура из пары десятков строк на FEN) И выполняется она моментально.

 

Парсинг строки + Используется встроенный генератор ходов.
Если Фен, то Fen(s) - у меня это двадцать строк.
Если startpos - то InitBoard()

Проверка элементарна.
if Copy(s,1,17)='position startpos'
То-же самое и с Феней.

Исполнение ходов - Парсинг строки (с этим наверно ни у кого проблем нет, можно использовать готовые процедуры которые разбивают строку на слова. Пробел - разделитель), выцепляем по одному ходу.
Потом встроенный генератор, цикл по ходам. И
if MovetoStr(tekMoves)=strMoves Then Make_Move(tekMoves)

У меня ровно 20 строк и есть

 

А кто мешает при получение строки из потока Убрать все символы с кодом меньше 32, и сократить все пробелы до одного? На встроенном языке 1С это делается в три строки.
На Делфи в несколько строк

На встроенном языке 1С:

Код:

Стр=Нрег(СокрЛП(стр));
Пока Найти(стр,"  ")>0 Цикл
  Стр=СтрЗаменить(Стр,"  "," ");
КонецЦикла;

В двух местах в кавычках два пробела.

 

Неа, забыл
Но сделать как раз не тяжело
Кстати, в встроенном языке 1С парсинг строки (разбиение на слова) делается одним оператором...

В протоколе UCI нужно еще правильно отработать команду ponder - она может быть в любом месте команды go - например полиглот шлет не go ponder, а размещает ponder в самом конце строки - после moves

 

Код:

function ReadNS:AnsiString;
Var
  chBuf,poslS: Char; BufSize,i: DWORD; res:boolean; s:AnsiString;
begin
  chbuf:=chr(0);
  BufSize:=0;
  sleep(1);
  Res:=PeekNamedPipe(StdOutPipeRead, nil, 0, nil, @BufSize, nil);
  Res:=Res and (BufSize > 0);
  poslS:=' ';
  If Res Then
    while chbuf<>chr(10) do
    begin
        s:='';
        for I := 1 to Bufsize do
        Begin
        chBuf:=chr(0);
        ReadFile(StdOutPipeRead, chBuf, 1, BufSize, Nil);
        if chBuf>chr(31) then 
        if (poslS<>' ') or (chBuf<>' ') Then
        begin
         s:=s+chBuf;
         poslS:=chBuf;
        end;
        if chBuf=Chr(10) then break;
        end;
       Result:=s;
    end
    Else
        Result:='';
end;

Вот, теперь реализовал
Добавил одну переменную и одно условие.
Двойные пробелы теперь отсекаются в момент чтения буфера.

 

У меня своя оболочка, мне надо наоборот - подключать движки (UCI стандарт). Может кто подскажет, если есть какие-то источники с кодом, чтоб не делать все с нуля.

 

Где-то была в этои разделе соответствующая ветка...
У меня есть код моего переходника на Делфи.
На Си можно сделать так-же.

 

Я немогу понять, что в FENe значат некоторые поля:

Код:

rnbqkbnr/pp3ppp/8/2pPp3/8/2N5/PPPP1PPP/R1BQKBNR w KQkq c6 0 4

что такое с6 - я догадываюсь - что это битое поле для енпасанта, и что значит следующий 0? А остальное я уже реализовал.

 

Число ходов для правила 50 ходов, и число ходов с начала партии....

 

Halfmove clock: This is the number of halfmoves since the last pawn advance or capture. This is used to determine if a draw can be claimed under the fifty move rule.

Fullmove number: The number of the full move. It starts at 1, and is incremented after Black's move.

http://en.wikipedia.org/wiki/FEN

 

Понял. Спасибо!

 

В данный момент занимаюсь реализацией в ОФ пешечной структуры. Хочю сделать систему штрафов и премий:
1. за каждый >1 островка штраф
2. за отсталую пешку штраф
3. за сдвоенную пешку штраф
4. за проходную премия
5. и еще за изолятор
дополнительно штраф (я сам нелюблю играть с изолятором и пусть моя прога нелюбит )
Как мне распределить (в каких пропорциях относительно стоимости пешки (1000 ед)) штрафы и премии? И еще может какието признаки не учел?

 

Защищенная проходная, связанные проходные, сдвоенные изолированные, пешечная фаланга.
Слабая пешка, слабая пешка на открытой вертикали.

 

Островок - действительно несколько пешек на соседних вертикалях.

 

Как вы распределяете премии и штрафы по пешечным признакам?

 

А есть ли в интернете страничка посвященная UCI протоколу? А то я смотрю есть 1-я версия протокола, есть 2-я
Или то, что находится в http://download.shredderchess.com/div/uci.zip есть последняя версия протокла?

 

Может, кто знает: в Питоне такая проблема будет?
Если да, как ее решать.

Спасибо.

 

Ого! А питон то зочем? Чо си мало?