Настройка необходимых программ

1. Купите и установите StarCraft

2. Скачайте и установите Chaos Launcher

3. Установите BWAPI

1. Скопируйте содержимое папки ChaosLauncher в директорию, куда Вы установили Chaos Launcher ("E:\StarCraft\Chaos Launcher"\”)
2. Скопируйте содержимое папки StarCraft в Вашу папку StarCraft ("E:\StarCraft\”)
3. Скопируйте содержимое папки Windows в ваш системный каталог ("C:\Windows\”)

Представляю StarCraftBot 9K

1. Вы используете Chaos Launcher для запуска StarCraft
2. Когда начинается игра, код BWAPI исполняется каждый игровой ход
3. В каждый ход StarCraftConnector (С++) передаёт всю публично доступную информацию из игры.
4. Клиент StarCraftBot9K (C#) слушает эти события
5. И наконец сам StarCraftBot9K (F#) отвечает за принятие решений в игре.

4. Скачайте StarCraftBot9K

5. Установите StarCraftConnector

6. Запустите StarCraftBot9K

7. Запустите StarCraft

8. Передайте управление StarCraftBot 9K

/// Модуль AI для управления экономикой. Постройка дронов, веспен-гейзеры и прочее
let private getEconomyAI (mediator : GameMediator) =
 async {

 while true do

 let currentState = mediator.CurrentGameState

 // Строить рабочих на все имеющиеся ресурсы
 if currentState.SupplyUsed < currentState.SupplyTotal &&
 currentState.Minerals >= 50 &&
 currentState.CanProduce.[ int (getWorkerType(g_GameMetadata.PlayerRace)) ] then

 // БАГ: рабочий строится в первом попавшемся командном центре, это может быть не лучшим решением
 // В идеале у нас должна быть абстракция более высокого уровня "база" со статусом "активная" или "мало ресурсов"
 let cmdCenter =
 currentState.Units
 |> Seq.filter (fun unit -> unit.Player = g_GameMetadata.PlayerID)
 |> Seq.tryFind (fun unit -> isCommandCenter (enum<UnitID> unit.TypeID))

 if Option.isSome cmdCenter then
 let cmdCenterID = cmdCenter |> Option.get |> (fun unit -> unit.ID)
 let cmd = TrainUnit(cmdCenterID, int (getWorkerType(g_GameMetadata.PlayerRace)))
 mediator.SendCommand(cmd)

 // Посылаем незанятых рабочих к ближайшему минеральному полю
 for scunit in currentState.Units do
 // Если юнит наш, это рабочий и он ничего не делает,
 // отправить его к ближайшему полю минералов
 if scunit.Player = mediator.GameMetadata.PlayerID &&
 isWorker scunit &&
 scunit.OrderID = int (UnitOrder.PlayerGuard) then

 let orderID = scunit.OrderID

 let scunitLoc = { X = scunit.XPos; Y = scunit.YPos }

 let mineralPatches =
 currentState.Units
 |> Seq.filter(fun unit -> unit.TypeID = int UnitID.MineralField)
 |> Seq.map(fun minPatch -> let patchLoc = { X = minPatch.XPos; Y = minPatch.YPos }
 scunitLoc.FlyingDistanceTo(patchLoc), minPatch)
 |> Seq.sortBy(fun (dist, minPatch) -> dist)

 if mineralPatches <> Seq.empty then
 let targetMinPatch = mineralPatches |> Seq.head |> snd
 let cmd = RightClickUnit(scunit.ID, targetMinPatch.ID)
 mediator.SendCommand(cmd)

 // Спим и проверяем позже. Если этот агент будет отменён, здесь мы жто увидим
 do! Async.Sleep(100)
 }

let! result = tryEngage enemyUnit

match result with
| MarineWasKilled -> printfn "Sad."
| UnitWasKilled -> printfn "Horray! Now go find a medic to heal"
| UnitRanAway -> printfn "Should you chase? Maybe..."

Все образцы кода предоставляются «КАК ЕСТЬ» без каких либо гарантий, явных либо подразумеваемых. Никаких гарантий что код подойдёт для того, для чего Вы его планируете использовать. Другими словами, если использование BWAPI приведёт к Вашему бану на Battle.net или повредит Вашей системе, не ожидайте от меня сострадания.

Как видите, здесь очень много взаимодействующих частей. Я рад предоставить некоторую техническую поддержку, но если Вы отклолнитесь от указанной процедуры не ожидайте что я буду знать почему <случайная штука> не работает или как устроен StarCraft изнутри.

Дополнительные материалы: