Игра Fortress

[rpy3uH]

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

Понимаю, что скорее всего это писалось под XP,

да, всё верно. Писалось и тестилось под XP. И в дальнейшем тоже будет делаться всё только под XP.

выкладываю документацию с описанием плюс исходник случайного бота (Delphi). Дня через 2-3 выложу описания структур под С/С++. Если кто-то это сделает до меня буду очень признателен.

Меня не будет в сети два дня, поэтому просьба не ругаться если я не буду отвечать.

[rpy3uH]

Неужели никому не интересно?

тем не менее выложу новую версию программы Fortress build 1020
Добавлен новый режим игры бота против бота.
Исправлен случайный бот (раньше он делал ошибки, теперь не делает).

Также в архиве есть документация по созданию бота.

Да, чуть не забыл, в игру добавлено новое правило. Игра длится максимум 40 ходов, если на 40-м ходу нет победителя, то считается, что игра сыграна в ничью.

[Neeter]

Неужели никому не интересно?

Как это не интересно? Я уже бота своего делаю.

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

[rpy3uH]

у меня Delphi 7.

100% вариант будет такой

var
  Name:array[0..20] of char;

function GetName:PChar; stdcall; export;
begin
  FillChar(Name, 21, #0);
  Name:='RANDOM BOT';
  Result:=@Name;
end;

Кто напишет бота, не спешите выкладывать его, сначала мне сообщите через личку.

[Neeter]

100% вариант будет такой

Эх, пробовал ведь по-разному, а результат присваивал не указателем...

Этот код тоже не правильно работает, в боксе видна только первая буква названия бота, как было и до этого.
Delphi 2009, может что-то с юникодом связанное.

[rpy3uH]

да, там именно из-за юникода.
попробуй так:
Name:array[0..20] of AnsiChar;
и
function GetName:PAnsiChar; stdcall; export;

[Neeter]

попробуй так:
Name:array[0..20] of AnsiChar;
и
function GetName:PAnsiChar; stdcall; export;

Пробовал ведь так, только, как уже сказал, без указателя

Все, заработало.

Сразимся потом в Fortress Bots Championship 2010. Хех.

[Пепел Феникса]

Грузин, маленький совет.
четко указывайте PANSIChar
потом проблем меньше будет

так же можно сделать и A/W версии

[Somebody]

А это так и надо, что нельзя, чтобы ресурсы опускались до нуля, то есть, например, если есть ровно 5 металла, проект 2 реализовать нельзя?

[rpy3uH]

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

А это так и надо, что нельзя, чтобы ресурсы опускались до нуля, то есть, например, если есть ровно 5 металла, проект 2 реализовать нельзя?

вопрос я не сразу понял. но после того как посмотрел код программы отвечающую за это нашёл ошибку, проект можно было реализовывать только если количество ресурсов больше чем требуется на него. Разумеется, это неправильно. Если металла ровно 5 и для проекта требуется 5 металла, то проект можно реализовать.

Ошибку исправил. Новая версия игры в прицепе

Также выкладываю исходник "случайного бота" на С++ (VS2005). Возможны ошибки, но вроде работает нормально.