Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

Стратегия себя эффективно показала, как напададельная. 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 Кб, 4 просмотров)
Alar вне форума  
Старый 01.04.2010, 20:23   #72
rpy3uH
добрый няша
СуперМодератор
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Адрес: Солнечное Тбилиси
Сообщений: 4,807
Репутация: 1974
По умолчанию

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

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


13:02.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru