Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 31.03.2010, 15:04   #71
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

Вот все что написал, цель - необходимый первоначальный апгрейд и максимальный урон по базе в следующие ходы.

Стратегия себя эффективно показала, как напададельная. 25% выигрышей с ботом победителем, который использовал рандомно 4 стратегии. получается что половина нападающих действий при первом ходе увенчались 100% успехом.

Во второй версии рекомендую улучшить лог действий. чтобы можно было оценивать успешность стратегий с конкретным ботом

Код:
function StartGame(aPlayerNumber:integer; aAvailProjects: PAvailProjects; AGI:PAdditionalGameInfo):integer; stdcall;export;
label _R;
begin

    aAvailProjects^[0]:=8;
    aAvailProjects^[1]:=7;
    aAvailProjects^[2]:=6;
    aAvailProjects^[3]:=5;
    aAvailProjects^[4]:=4;
    aAvailProjects^[5]:=3;
    aAvailProjects^[6]:=1;
    aAvailProjects^[7]:=2;
    aAvailProjects^[8]:=9;
    aAvailProjects^[9]:=23;
    aAvailProjects^[10]:=24;
    aAvailProjects^[11]:=25;
    aAvailProjects^[12]:=26;
    aAvailProjects^[13]:=15;
    aAvailProjects^[14]:=19;

end;

function GetTurn(aPlayerNumber:integer; aGame:PGame; aAvailProjects: PAvailProjects;
  AGI:PAdditionalGameInfo):integer; stdcall; export;
var
 i, myi, ch:integer;
begin

     myi:=aPlayerNumber;
     i:=aPlayerNumber;
     if i=1 then i:=0
     else i:=1;


     if AGI.TurnCount > 1 then Result:=aAvailProjects^[0];

     if (aGame[myi].Elements>3) and(aGame[myi].Metal>2) and
        (aGame[i].Shield=0)
         then                  Result:=19;
     if AGI.TurnCount = 1 then Result:=23;

end;
Вложения
Тип файла: zip AlarBot.zip (47.1 Кб, 13 просмотров)
Alar вне форума
Старый 01.04.2010, 20:23   #72
rpy3uH
добрый няша
Старожил
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,804
По умолчанию

Архив к статье с результатами конкурса на блоге обновлён.

ТЕМА ЗАКРЫТА!

БУДЕТ КОНКУРС ПО СОЗДАНИЮ ЛУЧШЕГО БОТА ДЛЯ ВТОРОЙ ВЕРСИИ ИГРЫ!
Приглашаются все желающие

rpy3uH вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно создать бота для игры. Bucker Фриланс 8 27.05.2010 22:16
Создание мультиплеера для готовой игры Michelin Фриланс 10 18.04.2010 16:07
Написание бота для онлайн игры Parjozat Фриланс 3 21.11.2009 14:12
Как сделать бота для онлайн игры? zotox Gamedev - cоздание игр: Unity, OpenGL, DirectX 15 24.09.2009 17:34
Создание бота для онлайн игры zotox Общие вопросы Delphi 2 11.09.2009 14:30