Новый конкурс на форуме программистов

[Altera]

Т.е. указатель на массив array[1..8, 1..8] of DWORD;
Ясно, попробую. Только, пардон, как мне ему 0 послать?

Вызвал так:
GetBeginPosition(0, 0, 0, 0);
для белого и
GetBeginPosition(0, 0, 1, 0);
Для чёрного перед началом игры и результат тот-же.

Потом попробовал с GetStep и тоже ничего. LLFerzBot 0 возвращает.

[rpy3uH]

Сообщение от Altera

Т.е. указатель на массив array[1..8, 1..8] of DWORD;
Ясно, попробую. Только, пардон, как мне ему 0 послать?

Вызвал так:
GetBeginPosition(0, 0, 0, 0);
для белого и
GetBeginPosition(0, 0, 1, 0);
Для чёрного перед началом игры и результат тот-же.

Потом попробовал с GetStep и тоже ничего. LLFerzBot 0 возвращает.

не могу дать ответа. я не знаю почему не работает.
в идеале так

GetBeginPositionP1(0, 0, 0, 0);
GetBeginPositionP2(0, 0, 1, 0);
цикл 
{
  GetBeginPositionP1(реальные данные);
  GetBeginPositionP2(реальные данные);
}
цикл
{
   GetStepP1(реальные данные);
  GetStepP2(реальные данные)
}
GetBeginPositionP1(pointer($FFFFFFFF), 0, 0, 0);
GetBeginPositionP2(pointer($FFFFFFFF), 0, 1, 0);

[Ulex]

Если первый параметр (указатель на доску) равен нулю, то это обозначает начало игры, от бота не требуется никаких ответных действий и результат игнорируется.

А про второй и четвёртый параметр ни слова нет, может ему реально в начале игры нужен массив с координатами доступных клеток для расстановки ферзя и он не ожидает, что вместо указателя на оный там будет 0.

[Altera]

Сообщение от Ulex

А про второй и четвёртый параметр ни слова нет, может ему реально в начале игры нужен массив с координатами доступных клеток для расстановки ферзя и он не ожидает, что вместо указателя на оный там будет 0.

Ну, видимо должна быть проверка... ...вообще всех переменных, при их поступлении в функции и если что-то не так, то 0 возвращать.

[rpy3uH]

Сообщение от Ulex

А про второй и четвёртый параметр ни слова нет, может ему реально в начале игры нужен массив с координатами доступных клеток для расстановки ферзя и он не ожидает, что вместо указателя на оный там будет 0.

Altera правильно вызывал

GetBeginPosition(0, 0, 0, 0);
GetBeginPosition(0, 0, 1, 0);

[Роман Радер]

что там с конкурсом? - сообщений нет уже неделю - говорили, что продлен, еще всего-лишь 2 недели...

[rpy3uH]

итоги конкурса будут подведены 1-2 марта. осталось меньше двух недель
сейчас есть всего три бота (мой, Ulex, LuckLess) если больше не появится, то смысл теряется.

[Altera]

Вот мой бот. Тоже неплохо играет...

[rpy3uH]

так, готов четвёртый бот.

[Altera]

Бот шикарный, простой - гениальный!
Он использует силу противника против него самого.
А вот и алгоритм его, для delphi.

library AtomikBOT;

uses
  Windows;

var
  dll: tHandle;
  gn: function: pChar; stdCall;
  sbp: function(aDesk: pointer; aBeginPosFields: pointer; aPlayerColor: DWORD;
 AGI: pointer): DWORD; stdcall;
  gs: function(aDesk: pointer; aPlayerColor: DWORD; AGI: pointer): DWORD; stdcall;

function GetName: PChar; stdcall; export;
begin
   gn;
   Result := 'AtomikBOT v1.0';
end;

function GetBeginPosition(aDesk: pointer; aBeginPosFields: pointer; aPlayerColor: DWORD;
 AGI: pointer): DWORD; stdcall; export;
begin
   result := sbp(aDesk, aBeginPosFields, aPlayerColor, AGI);
end;

function GetStep(aDesk: pointer; aPlayerColor: DWORD; AGI: pointer): DWORD; stdcall; export;
begin
   result := gs(aDesk, aPlayerColor, AGI);
end;

exports
  GetBeginPosition, GetStep, GetName;

begin
dll := loadLibrary('FerzBot.dll');
@gn := getProcAddress(dll, 'GetName');
@sbp := getProcAddress(dll, 'GetBeginPosition');
@gs := getProcAddress(dll, 'GetStep');

end.

Ну это так, для прикола конечно. Меня сегодня утром осенило. Мне совесть не позволила с ним в конкурсе участвовать. Я сейчас самой игрой занимаюсь. Скоро будет готова! А бота потом как нибудь сделаю...