function StartBattle($fleet_id, $planet_id, $when)
{
    global $db_prefix;
    global $GlobalUni;
    $fleetmap = array(202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215);
    $defmap = array(401, 402, 403, 404, 405, 406, 407, 408);
    $a_result = array(0 => "combatreport_ididattack_iwon", 1 => "combatreport_ididattack_ilost", 2 => "combatreport_ididattack_draw");
    $d_result = array(1 => "combatreport_igotattacked_iwon", 0 => "combatreport_igotattacked_ilost", 2 => "combatreport_igotattacked_draw");
    global $db_host, $db_user, $db_pass, $db_name, $db_prefix;
    $a = array();
    $d = array();
    $unitab = LoadUniverse();
    $fid = $unitab['fid'];
    $did = $unitab['did'];
    $rf = $unitab['rapid'];
    $f = LoadFleet($fleet_id);
    // *** Сгенерировать исходные данные
    // Список атакующих
    $anum = 0;
    if ($f['union_id'] == 0) {
        $a[0] = LoadUser($f['owner_id']);
        $a[0]['fleet'] = array();
        foreach ($fleetmap as $i => $gid) {
            $a[0]['fleet'][$gid] = abs($f["ship{$gid}"]);
        }
        $start_planet = GetPlanet($f['start_planet']);
        $a[0]['g'] = $start_planet['g'];
        $a[0]['s'] = $start_planet['s'];
        $a[0]['p'] = $start_planet['p'];
        $a[0]['id'] = $fleet_id;
        $a[0]['points'] = $a[0]['fpoints'] = 0;
        $anum++;
    } else {
        $result = EnumUnionFleets($f['union_id']);
        $rows = dbrows($result);
        while ($rows--) {
            $fleet_obj = dbarray($result);
            $a[$anum] = LoadUser($fleet_obj['owner_id']);
            $a[$anum]['fleet'] = array();
            foreach ($fleetmap as $i => $gid) {
                $a[$anum]['fleet'][$gid] = abs($fleet_obj["ship{$gid}"]);
            }
            $start_planet = GetPlanet($fleet_obj['start_planet']);
            $a[$anum]['g'] = $start_planet['g'];
            $a[$anum]['s'] = $start_planet['s'];
            $a[$anum]['p'] = $start_planet['p'];
            $a[$anum]['id'] = $fleet_obj['fleet_id'];
            $a[$anum]['points'] = $a[$anum]['fpoints'] = 0;
            $anum++;
        }
    }
    // Список обороняющихся
    $dnum = 0;
    $p = GetPlanet($planet_id);
    $d[0] = LoadUser($p['owner_id']);
    $d[0]['fleet'] = array();
    $d[0]['defense'] = array();
    foreach ($fleetmap as $i => $gid) {
        $d[0]['fleet'][$gid] = abs($p["f{$gid}"]);
    }
    foreach ($defmap as $i => $gid) {
        $d[0]['defense'][$gid] = abs($p["d{$gid}"]);
    }
    $d[0]['g'] = $p['g'];
    $d[0]['s'] = $p['s'];
    $d[0]['p'] = $p['p'];
    $d[0]['id'] = $planet_id;
    $d[0]['points'] = $d[0]['fpoints'] = 0;
    $dnum++;
    // Флоты на удержании
    $result = GetHoldingFleets($planet_id);
    $rows = dbrows($result);
    while ($rows--) {
        $fleet_obj = dbarray($result);
        $d[$dnum] = LoadUser($fleet_obj['owner_id']);
        $d[$dnum]['fleet'] = array();
        $d[$dnum]['defense'] = array();
        foreach ($fleetmap as $i => $gid) {
            $d[$dnum]['fleet'][$gid] = abs($fleet_obj["ship{$gid}"]);
        }
        foreach ($defmap as $i => $gid) {
            $d[$dnum]['defense'][$gid] = 0;
        }
        $start_planet = GetPlanet($fleet_obj['start_planet']);
        $d[$dnum]['g'] = $start_planet['g'];
        $d[$dnum]['s'] = $start_planet['s'];
        $d[$dnum]['p'] = $start_planet['p'];
        $d[$dnum]['id'] = $fleet_obj['fleet_id'];
        $d[$dnum]['points'] = $d[$dnum]['fpoints'] = 0;
        $dnum++;
    }
    $source .= "Rapidfire = {$rf}\n";
    $source .= "FID = {$fid}\n";
    $source .= "DID = {$did}\n";
    $source .= "Attackers = " . $anum . "\n";
    $source .= "Defenders = " . $dnum . "\n";
    foreach ($a as $num => $attacker) {
        $source .= "Attacker" . $num . " = (<" . $attacker['oname'] . "> ";
        $source .= $attacker['id'] . " ";
        $source .= $attacker['g'] . " " . $attacker['s'] . " " . $attacker['p'] . " ";
        $source .= $attacker['r109'] . " " . $attacker['r110'] . " " . $attacker['r111'] . " ";
        foreach ($fleetmap as $i => $gid) {
            $source .= $attacker['fleet'][$gid] . " ";
        }
        $source .= ")\n";
    }
    foreach ($d as $num => $defender) {
        $source .= "Defender" . $num . " = (<" . $defender['oname'] . "> ";
        $source .= $defender['id'] . " ";
        $source .= $defender['g'] . " " . $defender['s'] . " " . $defender['p'] . " ";
        $source .= $defender['r109'] . " " . $defender['r110'] . " " . $defender['r111'] . " ";
        foreach ($fleetmap as $i => $gid) {
            $source .= $defender['fleet'][$gid] . " ";
        }
        foreach ($defmap as $i => $gid) {
            $source .= $defender['defense'][$gid] . " ";
        }
        $source .= ")\n";
    }
    $battle = array(null, $source, "", "", $when);
    $battle_id = AddDBRow($battle, "battledata");
    $bf = fopen("battledata/battle_" . $battle_id . ".txt", "w");
    fwrite($bf, $source);
    fclose($bf);
    // *** Передать данные боевому движку
    $arg = "\"battle_id={$battle_id}\"";
    system($unitab['battle_engine'] . " {$arg}");
    // *** Обработать выходные данные
    $battleres = file_get_contents("battleresult/battle_" . $battle_id . ".txt");
    $res = unserialize($battleres);
    // Определить исход битвы.
    if ($res['result'] === "awon") {
        $battle_result = 0;
    } else {
        if ($res['result'] === "dwon") {
            $battle_result = 1;
        } else {
            $battle_result = 2;
        }
    }
    // Восстановить оборону
    $repaired = RepairDefense($d, $res, $unitab['defrepair'], $unitab['defrepair_delta']);
    // Рассчитать общие потери (учитывать дейтерий и восстановленную оборону)
    $aloss = $dloss = 0;
    $loss = CalcLosses($a, $d, $res, $repaired);
    $a = $loss['a'];
    $d = $loss['d'];
    $aloss = $loss['aloss'];
    $dloss = $loss['dloss'];
    // Захватить ресурсы
    $cm = $ck = $cd = 0;
    if ($battle_result == 0) {
        $sum_cargo = CargoSummaryLastRound($a, $res);
        $captured = Plunder($sum_cargo, $p['m'], $p['k'], $p['d']);
        $cm = $captured['cm'];
        $ck = $captured['ck'];
        $cd = $captured['cd'];
    }
    // Создать поле обломков.
    $debris_id = CreateDebris($p['g'], $p['s'], $p['p'], $p['owner_id']);
    AddDebris($debris_id, $res['dm'], $res['dk']);
    // Создать луну
    $mooncreated = false;
    $moonchance = min(floor(($res['dm'] + $res['dk']) / 100000), 20);
    if (PlanetHasMoon($planet_id) || $p['type'] == 0 || $p['type'] == 10003) {
        $moonchance = 0;
    }
    if (mt_rand(1, 100) <= $moonchance) {
        CreatePlanet($p['g'], $p['s'], $p['p'], $p['owner_id'], 0, 1, $moonchance);
        $mooncreated = true;
    }
    // Обновить активность на планете.
    $queue = GetFleetQueue($fleet_id);
    UpdatePlanetActivity($planet_id, $queue['end']);
    // Сгенерировать боевой доклад.
    loca_add("battlereport", $GlobalUni['lang']);
    loca_add("technames", $GlobalUni['lang']);
    $text = BattleReport($res, $when, $aloss, $dloss, $cm, $ck, $cd, $moonchance, $mooncreated, $repaired);
    // Разослать сообщения
    $mailbox = array();
    foreach ($d as $i => $user) {
        if ($mailbox[$user['player_id']] == true) {
            continue;
        }
        $bericht = SendMessage($user['player_id'], "Командование флотом", "Боевой доклад", $text, 6, $when);
        MarkMessage($user['player_id'], $bericht);
        $subj = "<a href=\"#\" onclick=\"fenster(\\'index.php?page=bericht&session={PUBLIC_SESSION}&bericht={$bericht}\\', \\'Bericht_Kampf\\');\" ><span class=\"" . $d_result[$battle_result] . "\">Боевой доклад [" . $p['g'] . ":" . $p['s'] . ":" . $p['p'] . "] (V:" . nicenum($dloss) . ",A:" . nicenum($aloss) . ")</span></a>";
        SendMessage($user['player_id'], "Командование флотом", $subj, "", 2, $when);
        $mailbox[$user['player_id']] = true;
    }
    // Обновить лог боевого доклада
    $subj = "<a href=\"#\" onclick=\"fenster(\\'index.php?page=admin&session={PUBLIC_SESSION}&mode=BattleReport&bericht={$battle_id}\\', \\'Bericht_Kampf\\');\" ><span class=\"" . $a_result[$battle_result] . "\">Боевой доклад [" . $p['g'] . ":" . $p['s'] . ":" . $p['p'] . "] (V:" . nicenum($dloss) . ",A:" . nicenum($aloss) . ")</span></a>";
    $query = "UPDATE " . $db_prefix . "battledata SET title = '" . $subj . "', report = '" . $text . "' WHERE battle_id = {$battle_id};";
    dbquery($query);
    // Если флот уничтожен за 1 или 2 раунда - не показывать лог боя для атакующих.
    if (count($res['rounds']) <= 2 && $battle_result == 1) {
        $text = "Контакт с флотом потерян. <br> Это означает, что его уничтожили первым же залпом <!--A:{$aloss},W:{$dloss}-->";
    }
    foreach ($a as $i => $user) {
        if ($mailbox[$user['player_id']] == true) {
            continue;
        }
        $bericht = SendMessage($user['player_id'], "Командование флотом", "Боевой доклад", $text, 6, $when);
        MarkMessage($user['player_id'], $bericht);
        $subj = "<a href=\"#\" onclick=\"fenster(\\'index.php?page=bericht&session={PUBLIC_SESSION}&bericht={$bericht}\\', \\'Bericht_Kampf\\');\" ><span class=\"" . $a_result[$battle_result] . "\">Боевой доклад [" . $p['g'] . ":" . $p['s'] . ":" . $p['p'] . "] (V:" . nicenum($dloss) . ",A:" . nicenum($aloss) . ")</span></a>";
        SendMessage($user['player_id'], "Командование флотом", $subj, "", 2, $when);
        $mailbox[$user['player_id']] = true;
    }
    // Почистить старые боевые доклады
    $ago = $when - 2 * 7 * 24 * 60 * 60;
    $query = "DELETE FROM " . $db_prefix . "battledata WHERE date < {$ago};";
    dbquery($query);
    // Модифицировать флоты и планету в соответствии с потерями и захваченными ресурсами
    WritebackBattleResults($a, $d, $res, $repaired, $cm, $ck, $cd, $sum_cargo);
    // Изменить статистику игроков
    foreach ($a as $i => $user) {
        AdjustStats($user['player_id'], $user['points'], $user['fpoints'], 0, '-');
    }
    foreach ($d as $i => $user) {
        AdjustStats($user['player_id'], $user['points'], $user['fpoints'], 0, '-');
    }
    RecalcRanks();
    // Чистим промежуточные данные боевого движка
    unlink("battledata/battle_" . $battle_id . ".txt");
    unlink("battleresult/battle_" . $battle_id . ".txt");
    return $battle_result;
}
function SimBattle($a, $d, $rf, $fid, $did, $debug, &$battle_result, &$aloss, &$dloss)
{
    global $db_prefix;
    global $GlobalUni;
    $fleetmap = array(202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215);
    $defmap = array(401, 402, 403, 404, 405, 406, 407, 408);
    $unitab = LoadUniverse();
    if ($debug) {
        print_r($a);
        echo "<br>";
        print_r($d);
        echo "<br><hr>";
    }
    // *** Сгенерировать исходные данные
    $source .= "Rapidfire = {$rf}\n";
    $source .= "FID = {$fid}\n";
    $source .= "DID = {$did}\n";
    $anum = count($a);
    $dnum = count($d);
    $source .= "Attackers = {$anum}\n";
    $source .= "Defenders = {$dnum}\n";
    for ($n = 0; $n < $anum; $n++) {
        $source .= "Attacker{$n} = (<Attacker{$n}> " . mt_rand(1, 10000) . " " . $a[$n]['g'] . " " . $a[$n]['s'] . " " . $a[$n]['p'] . " ";
        $source .= $a[$n]['r109'] . " " . $a[$n]['r110'] . " " . $a[$n]['r111'] . " ";
        foreach ($fleetmap as $i => $gid) {
            $source .= $a[$n]['fleet'][$gid] . " ";
        }
        $source .= ")\n";
    }
    for ($n = 0; $n < $dnum; $n++) {
        $source .= "Defender{$n} = (<Defender{$n}> " . mt_rand(1, 10000) . " " . $d[$n]['g'] . " " . $d[$n]['s'] . " " . $d[$n]['p'] . " ";
        $source .= $d[$n]['r109'] . " " . $d[$n]['r110'] . " " . $d[$n]['r111'] . " ";
        foreach ($fleetmap as $i => $gid) {
            $source .= $d[$n]['fleet'][$gid] . " ";
        }
        foreach ($defmap as $i => $gid) {
            $source .= $d[$n]['defense'][$gid] . " ";
        }
        $source .= ")\n";
    }
    if ($debug) {
        echo $source . "<hr>";
    }
    $battle = array($battle_id, $source, '', '', time());
    $battle_id = AddDBRow($battle, "battledata");
    $bf = fopen("battledata/battle_" . $battle_id . ".txt", "w");
    fwrite($bf, $source);
    fclose($bf);
    // *** Передать данные боевому движку
    $arg = "\"battle_id={$battle_id}\"";
    system($unitab['battle_engine'] . " {$arg}");
    // *** Обработать выходные данные
    $battleres = file_get_contents("battleresult/battle_" . $battle_id . ".txt");
    $res = unserialize($battleres);
    if ($debug) {
        print_r($battle);
        echo "<hr>";
        print_r($res);
        echo "<hr>";
    }
    // Удалить уже ненужные боевые данные.
    $query = "DELETE FROM " . $db_prefix . "battledata WHERE battle_id = {$battle_id}";
    dbquery($query);
    // Восстановить оборону
    $repaired = RepairDefense($d, $res, $unitab['defrepair'], $unitab['defrepair_delta'], false);
    // Рассчитать общие потери
    $aloss = $dloss = 0;
    $loss = CalcLosses($a, $d, $res, $repaired);
    $a = $loss['a'];
    $d = $loss['d'];
    $aloss = $loss['aloss'];
    $dloss = $loss['dloss'];
    // Создать луну
    $mooncreated = false;
    $moonchance = min(floor(($res['dm'] + $res['dk']) / 100000), 20);
    if (mt_rand(1, 100) <= $moonchance) {
        $mooncreated = true;
    }
    if ($res['result'] === "awon") {
        $battle_result = 0;
    } else {
        if ($res['result'] === "dwon") {
            $battle_result = 1;
        } else {
            $battle_result = 2;
        }
    }
    // Сгенерировать боевой доклад.
    loca_add("battlereport", $GlobalUni['lang']);
    loca_add("technames", $GlobalUni['lang']);
    return BattleReport($res, time(), $aloss, $dloss, 1, 2, 3, $moonchance, $mooncreated, $repaired);
}