attack.php

<?php declare(strict_types = 1);
/**
 * attack.php from The Kabal Invasion.
 * The Kabal Invasion is a Free & Opensource (FOSS), web-based 4X space/strategy game.
 *
 * @copyright 2020 The Kabal Invasion development team, Ron Harwood, and the BNT development team
 *
 * @license GNU AGPL version 3.0 or (at your option) any later version.
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as
 * published by the Free Software Foundation, either version 3 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 */

require_once './common.php';

$login = new Tki\Login();
$login->checkLogin($pdo_db, $lang, $tkireg, $tkitimer, $template);

$title = $langvars['l_att_title'];
$header = new Tki\Header();
$header->display($pdo_db, $lang, $template, $title);

// Database driven language entries
$langvars = Tki\Translate::load($pdo_db, $lang, array('attack', 'bounty',
                                'combat', 'common', 'footer', 'insignias',
                                'main', 'news', 'planet', 'universal'));
echo '<h1>' . $title . '</h1>';

if (array_key_exists('ship_id', $_GET))
{
    $ship_id = (int) filter_input(INPUT_GET, 'ship_id', FILTER_SANITIZE_NUMBER_INT);
}
else
{
    $ship_id = null;
}

// Kami multi-browser window attack fix
if (array_key_exists('ship_selected', $_SESSION) === false || $_SESSION['ship_selected'] != $ship_id)
{
    echo $langvars['l_universal_click_first'] . "<br><br>";
    Tki\Text::gotoMain($pdo_db, $lang);

    $footer = new Tki\Footer();
    $footer->display($pdo_db, $lang, $tkireg, $tkitimer, $template);
    die();
}

unset($_SESSION['ship_selected']);

// Get playerinfo from database
$players_gateway = new \Tki\Players\PlayersGateway($pdo_db);
$playerinfo = $players_gateway->selectPlayerInfo($_SESSION['username']);

// Get targetinfo from database
$players_gateway = new \Tki\Players\PlayersGateway($pdo_db);
$targetinfo = $players_gateway->selectPlayerInfoById($ship_id);

$playerscore = Tki\Score::updateScore($pdo_db, $playerinfo['ship_id'], $tkireg, $playerinfo);
$targetscore = Tki\Score::updateScore($pdo_db, $targetinfo['ship_id'], $tkireg, $playerinfo);
$playerscore = $playerscore * $playerscore;
$targetscore = $targetscore * $targetscore;

$character_object = new \Tki\Character();

// Check to ensure target is in the same sector as player
if ($targetinfo['sector'] != $playerinfo['sector'] || $targetinfo['on_planet'] == 'Y')
{
    echo $langvars['l_att_notarg'] . '<br><br>';
}
elseif ($playerinfo['turns'] < 1)
{
    echo $langvars['l_att_noturn'] . '<br><br>';
}
elseif (Tki\Team::isSameTeam($playerinfo['team'], $targetinfo['team']))
{
    echo "<div style='color:#ff0;'>" . $langvars['l_team_noattack_members'] . "</div>\n";
}
elseif ($_SESSION['in_combat'] !== null && $_SESSION['in_combat'] === true)
{
    echo "<div style='color:#ff0;'>" . $langvars['l_team_already_combat'] . "</div>\n";
    $admin_log = new Tki\AdminLog();
    $admin_log->writeLog($pdo_db, 13371337, "{$playerinfo['ship_id']}|{$targetinfo['ship_id']}|Detected multi attack.");
}
else
{
    // Set in combat flag
    $_SESSION['in_combat'] = true;

    // Determine percent chance of success in detecting target ship - based on player's sensors and opponent's cloak
    $success = (10 - $targetinfo['cloak'] + $playerinfo['sensors']) * 5;
    if ($success < 5)
    {
        $success = 5;
    }

    if ($success > 95)
    {
        $success = 95;
    }

    $flee = (10 - $targetinfo['engines'] + $playerinfo['engines']) * 5;
    $roll = random_int(1, 100);
    $roll2 = random_int(1, 100);

    $res = $old_db->Execute(
        "SELECT allow_attack, {$old_db->prefix}universe.zone_id FROM {$old_db->prefix}zones, " .
        "{$old_db->prefix}universe WHERE sector_id = ? AND {$old_db->prefix}zones.zone_id = " .
        "{$old_db->prefix}universe.zone_id;",
        array($targetinfo['sector'])
    );
    Tki\Db::logDbErrors($pdo_db, $res, __LINE__, __FILE__);
    $zoneinfo = $res->fields;

    if ($zoneinfo['allow_attack'] == 'N')
    {
        echo $langvars['l_att_noatt'] . "<br><br>";
    }
    elseif ($flee < $roll2)
    {
        echo $langvars['l_att_flee'] . "<br><br>";
        $resx = $old_db->Execute(
            "UPDATE {$old_db->prefix}ships SET turns = turns - 1, turns_used = turns_used + 1 WHERE " .
            "ship_id = ?;",
            array($playerinfo['ship_id'])
        );
        Tki\Db::logDbErrors($pdo_db, $resx, __LINE__, __FILE__);
        Tki\PlayerLog::writeLog($pdo_db, $targetinfo['ship_id'], \Tki\LogEnums::ATTACK_OUTMAN, "$playerinfo[character_name]");
    }
    elseif ($roll > $success)
    {
        // If scan fails - inform both player and target.
        echo $langvars['l_planet_noscan'] . "<br><br>";
        $resx = $old_db->Execute(
            "UPDATE {$old_db->prefix}ships SET turns = turns - 1, turns_used = turns_used + 1 WHERE " .
            "ship_id = ?;",
            array($playerinfo['ship_id'])
        );
        Tki\Db::logDbErrors($pdo_db, $resx, __LINE__, __FILE__);
        Tki\PlayerLog::writeLog($pdo_db, $targetinfo['ship_id'], \Tki\LogEnums::ATTACK_OUTSCAN, "$playerinfo[character_name]");
    }
    else
    {
        // If scan succeeds, show results and inform target
        $shipavg = Tki\CalcLevels::avgTech($targetinfo, 'ship');

        if ($shipavg > $tkireg->max_ewdhullsize)
        {
            $chance = ($shipavg - $tkireg->max_ewdhullsize) * 10;
        }
        else
        {
            $chance = 0;
        }

        $random_value = random_int(1, 100);

        if ($targetinfo['dev_emerwarp'] > 0 && $random_value > $chance)
        {
            // Need to change warp destination to random sector in universe
            $rating_change = round($targetinfo['rating'] * .1);
            $dest_sector = random_int(1, (int) $tkireg->max_sectors - 1);
            $resx = $old_db->Execute(
                "UPDATE {$old_db->prefix}ships SET turns = turns - 1, turns_used = turns_used + 1, " .
                "rating = rating - ? " .
                "WHERE ship_id = ?;",
                array($rating_change, $playerinfo['ship_id'])
            );
            Tki\Db::logDbErrors($pdo_db, $resx, __LINE__, __FILE__);
            Tki\PlayerLog::writeLog($pdo_db, $targetinfo['ship_id'], \Tki\LogEnums::ATTACK_EWD, "$playerinfo[character_name]");
            $result_warp = $old_db->Execute(
                "UPDATE {$old_db->prefix}ships SET sector = $dest_sector, " .
                "dev_emerwarp = dev_emerwarp - 1, cleared_defenses = ' ' " .
                "WHERE ship_id = ?;",
                array($targetinfo['ship_id'])
            );
            Tki\Db::logDbErrors($pdo_db, $result_warp, __LINE__, __FILE__);
            Tki\LogMove::writeLog($pdo_db, $targetinfo['ship_id'], $dest_sector);
            echo $langvars['l_att_ewd'] . "<br><br>";
        }
        else
        {
            // Bounty-free Kabal attacking allowed
            if (($targetscore / $playerscore < $bounty_ratio || $targetinfo['turns_used'] < $bounty_minturns) && ( preg_match("/(\@kabal)$/", $targetinfo['email']) === 0))
            {
                // Changed kabal check to a regexp cause a player could put
                // @kabal or whatever in his email address
                // so (\@kabal) is an exact match and the $ symbol means
                // "this is the *end* of the string
                // Our custom @kabal names will match, nothing else will
                // Check to see if there is Federation bounty on the player.
                // If there is, people can attack regardless.
                $btyamount = 0;
                $hasbounty = $old_db->Execute(
                    "SELECT SUM(amount) AS btytotal FROM {$old_db->prefix}bounty WHERE " .
                    "bounty_on = ? AND placed_by = 0;",
                    array($targetinfo['ship_id'])
                );
                Tki\Db::logDbErrors($pdo_db, $hasbounty, __LINE__, __FILE__);
                if ($hasbounty)
                {
                    $resx = $hasbounty->fields;
                    $btyamount = $resx['btytotal'];
                }

                if ($btyamount <= 0)
                {
                    $bounty = round($playerscore * $max_bountyvalue);
                    $insert = $old_db->Execute(
                        "INSERT INTO {$old_db->prefix}bounty (bounty_on,placed_by,amount) values " .
                        "(?,?,?);",
                        array($playerinfo['ship_id'], 0 ,$bounty)
                    );
                    Tki\Db::logDbErrors($pdo_db, $insert, __LINE__, __FILE__);
                    Tki\PlayerLog::writeLog($pdo_db, $playerinfo['ship_id'], \Tki\LogEnums::BOUNTY_FEDBOUNTY, "$bounty");
                    echo "<div style='color:#f00;'>" . $langvars['l_by_fedbounty2'] . "</div>\n";
                    echo "<br>\n";
                }
            }

            if ($targetinfo['dev_emerwarp'] > 0)
            {
                Tki\PlayerLog::writeLog($pdo_db, $targetinfo['ship_id'], \Tki\LogEnums::ATTACK_EWDFAIL, $playerinfo['character_name']);
            }

            // I added these two so we can have a value for debugging and
            // reporting totals. If we use the variables in calcs below,
            // change the display of stats also
            $targetenergy = $targetinfo['ship_energy'];
            $playerenergy = $playerinfo['ship_energy'];
            $targetbeams = Tki\CalcLevels::abstractLevels($targetinfo['beams'], $tkireg);
            if ($targetbeams > $targetinfo['ship_energy'])
            {
                $targetbeams = $targetinfo['ship_energy'];
            }

            $targetinfo['ship_energy'] = $targetinfo['ship_energy'] - $targetbeams;
            // Why dont we set targetinfo[ship_energy] to a variable instead?
            $playerbeams = Tki\CalcLevels::abstractLevels($playerinfo['beams'], $tkireg);
            if ($playerbeams > $playerinfo['ship_energy'])
            {
                $playerbeams = $playerinfo['ship_energy'];
            }

            $playerinfo['ship_energy'] = $playerinfo['ship_energy'] - $playerbeams;
            $playershields = Tki\CalcLevels::abstractLevels($playerinfo['shields'], $tkireg);
            if ($playershields > $playerinfo['ship_energy'])
            {
                $playershields = $playerinfo['ship_energy'];
            }

            $playerinfo['ship_energy'] = $playerinfo['ship_energy'] - $playershields;
            $targetshields = Tki\CalcLevels::abstractLevels($targetinfo['shields'], $tkireg);
            if ($targetshields > $targetinfo['ship_energy'])
            {
                $targetshields = $targetinfo['ship_energy'];
            }

            $targetinfo['ship_energy'] = $targetinfo['ship_energy'] - $targetshields;
            $playertorpnum = round(pow($tkireg->level_factor, $playerinfo['torp_launchers'])) * 10;
            if ($playertorpnum > $playerinfo['torps'])
            {
                $playertorpnum = $playerinfo['torps'];
            }

            $targettorpnum = round(pow($tkireg->level_factor, $targetinfo['torp_launchers'])) * 10;
            if ($targettorpnum > $targetinfo['torps'])
            {
                $targettorpnum = $targetinfo['torps'];
            }

            $playertorpdmg = $tkireg->torp_dmg_rate * $playertorpnum;
            $targettorpdmg = $tkireg->torp_dmg_rate * $targettorpnum;
            $playerarmor = $playerinfo['armor_pts'];
            $targetarmor = $targetinfo['armor_pts'];
            $playerfighters = $playerinfo['ship_fighters'];
            $targetfighters = $targetinfo['ship_fighters'];

            echo $langvars['l_att_att'] . " " . $targetinfo['character_name'] . " " . $langvars['l_aboard'] . " " . $targetinfo['ship_name'] . ":<br><br>";

            $bcs_info = [];
            $bcs_info[] = array("Beams(lvl)", "{$playerbeams}({$playerinfo['beams']})", "{$targetbeams}({$targetinfo['beams']})");
            $bcs_info[] = array("Shields(lvl)", "{$playershields}({$playerinfo['shields']})", "{$targetshields}({$targetinfo['shields']})");
            $bcs_info[] = array("Energy(Start)", "{$playerinfo['ship_energy']}({$playerenergy})", "{$targetinfo['ship_energy']}({$targetenergy})");
            $bcs_info[] = array("Torps(lvl)", "{$playertorpnum}({$playerinfo['torp_launchers']})", "{$targettorpnum}({$targetinfo['torp_launchers']})");
            $bcs_info[] = array("TorpDmg", "{$playertorpdmg}", "{$targettorpdmg}");
            $bcs_info[] = array("Fighters", "{$playerfighters}", "{$targetfighters}");
            $bcs_info[] = array("Armor(lvl)", "{$playerarmor}({$playerinfo['armor']})", "{$targetarmor}({$targetinfo['beams']})");
            $bcs_info[] = array("Escape Pod", "{$playerinfo['dev_escapepod']}", "{$targetinfo['dev_escapepod']}");

            echo "<div style='width:800px; margin:auto; text-align:center; color:#fff;'>\n";

            echo "  <div style='text-align:center; font-size:24px; font-weight:bold; padding:4px; background-color:{$tkireg->color_header}; border:#FFCC00 1px solid;'>" . $langvars['l_att_tkics'] . ". " .
                 "(<span style='color:#0f0;'>BETA</span>)</div>\n";
            echo "  <div style='height:1px;'></div>\n";

            echo "<table style='width:100%; border:none; background-color:#FFCC00;' cellpadding='0' cellspacing='1'>\n";

            echo "  <tr style='background-color:{$tkireg->color_header}; font-size:16px;'>\n";
            echo "    <td style='text-align:center; font-weight:bold;background-color:{$tkireg->color_header};'>Stats</td>\n";
            echo "    <td style='width:33%; text-align:center; font-weight:bold;background-color:{$tkireg->color_header};'>You [<span style='color:#0f0; font-size:12px; font-weight:normal;'>" .
                 "{$playerinfo['character_name']}</span>]</td>\n";
            echo "    <td style='width:33%; text-align:center; font-weight:bold;background-color:{$tkireg->color_header};'>Target [<span style='color:#0f0; font-size:12px; font-weight:normal;'>" .
                 "{$targetinfo['character_name']}</span>]</td>\n";
            echo "  </tr>\n";

            $color = $tkireg->color_line1;

            $temp_count = count($bcs_info);
            for ($bcs_index = 0; $bcs_index < $temp_count; $bcs_index++)
            {
                echo "  <tr>\n";
                echo "    <td style='text-align:right; font-weight:bold; padding:4px;background-color:{$color};'>{$bcs_info[$bcs_index][0]}</td>\n";
                echo "    <td style='width:33%; text-align:right; padding:4px;background-color:{$color};'>{$bcs_info[$bcs_index][1]}</td>\n";
                echo "    <td style='width:33%; text-align:right; padding:4px;background-color:{$color};'>{$bcs_info[$bcs_index][2]}</td>\n";
                echo "  </tr>\n";

                if ($color == $tkireg->color_line1)
                {
                    $color = $tkireg->color_line2;
                }
                else
                {
                    $color = $tkireg->color_line1;
                }
            }

            echo "</table>\n";
            echo "  <div style='height:4px;'></div>\n";
            echo "  <div style='text-align:left; font-size:14px; font-weight:bold; padding:4px; background-color:{$tkireg->color_header}; border:#FFCC00 1px solid;'>Beams</div>\n";
            echo "  <div style='height:1px;'></div>\n";
            echo "  <div style='text-align:left; font-size:12px; padding:4px; background-color:{$tkireg->color_line1}; border:#FFCC00 1px solid;'>\n";

            $bcs_stats_info = false;

            if ($targetfighters > 0 && $playerbeams > 0)
            {
                $bcs_stats_info = true;
                if ($playerbeams > round($targetfighters / 2))
                {
                    $temp = round($targetfighters / 2);
                    $lost = $targetfighters - $temp;

                    // Maybe we should report on how many beams fired , etc for
                    // comparision/bugtracking
                    echo $targetinfo['character_name'] . " " . $langvars['l_att_lost'] . " " . $lost . " " . $langvars['l_fighters'] . "<br>";
                    $targetfighters = $temp;
                    $playerbeams = $playerbeams - $lost;
                }
                else
                {
                    $targetfighters = $targetfighters - $playerbeams;
                    echo $targetinfo['character_name'] . " " . $langvars['l_att_lost'] . " " . $playerbeams . " " . $langvars['l_fighters'] . "<br>";
                    $playerbeams = 0;
                }
            }

            if ($playerfighters > 0 && $targetbeams > 0)
            {
                $bcs_stats_info = true;
                if ($targetbeams > round($playerfighters / 2))
                {
                    $temp = round($playerfighters / 2);
                    $lost = $playerfighters - $temp;
                    echo $langvars['l_att_ylost'] . " " . $lost . " " . $langvars['l_fighters'] . "<br>";
                    $playerfighters = $temp;
                    $targetbeams = $targetbeams - $lost;
                }
                else
                {
                    $playerfighters = $playerfighters - $targetbeams;
                    echo $langvars['l_att_ylost'] . " " . $targetbeams . " " . $langvars['l_fighters'] . "<br>";
                    $targetbeams = 0;
                }
            }

            if ($playerbeams > 0)
            {
                $bcs_stats_info = true;
                if ($playerbeams > $targetshields)
                {
                    $playerbeams = $playerbeams - $targetshields;
                    $targetshields = 0;
                    echo "$targetinfo[character_name]" . $langvars['l_att_sdown'] . "<br>";
                }
                else
                {
                    echo "$targetinfo[character_name]" . $langvars['l_att_shits'] . " " . $playerbeams . " " . $langvars['l_att_dmg'] . ".<br>";
                    $targetshields = $targetshields - $playerbeams;
                    $playerbeams = 0;
                }
            }

            if ($targetbeams > 0)
            {
                $bcs_stats_info = true;
                if ($targetbeams > $playershields)
                {
                    $targetbeams = $targetbeams - $playershields;
                    $playershields = 0;
                    echo $langvars['l_att_ydown'] . "<br><br>";
                }
                else
                {
                    echo $langvars['l_att_yhits'] . " " . $targetbeams . " " . $langvars['l_att_dmg'] . ".<br>";
                    $playershields = $playershields - $targetbeams;
                    $targetbeams = 0;
                }
            }

            if ($playerbeams > 0)
            {
                $bcs_stats_info = true;
                if ($playerbeams > $targetarmor)
                {
                    $targetarmor = 0;
                    echo $targetinfo['character_name'] . $langvars['l_att_sarm']  . "<br>";
                }
                else
                {
                    $targetarmor = $targetarmor - $playerbeams;
                    echo $targetinfo['character_name'] . $langvars['l_att_ashit'] . " " . $playerbeams . " " . $langvars['l_att_dmg'] . ".<br>";
                }
            }

            if ($targetbeams > 0)
            {
                $bcs_stats_info = true;
                if ($targetbeams > $playerarmor)
                {
                    $playerarmor = 0;
                    echo $langvars['l_att_yarm'] . "<br>";
                }
                else
                {
                    $playerarmor = $playerarmor - $targetbeams;
                    echo $langvars['l_att_ayhit'] . " " . $targetbeams . " " . $langvars['l_att_dmg'] . ".<br>";
                }
            }

            if ($bcs_stats_info === false)
            {
                echo $langvars['l_att_no_info'] . "<br>\n";
            }

            echo "  </div>\n";
            echo "  <div style='height:4px;'></div>\n";
            echo "  <div style='text-align:left; font-size:14px; font-weight:bold; padding:4px; background-color:{$tkireg->color_header}; border:#FFCC00 1px solid;'>Torpedos</div>\n";
            echo "  <div style='height:1px;'></div>\n";
            echo "  <div style='text-align:left; font-size:12px; padding:4px; background-color:{$tkireg->color_line1}; border:#FFCC00 1px solid;'>\n";
            $bcs_stats_info = false;

            if ($targetfighters > 0 && $playertorpdmg > 0)
            {
                $bcs_stats_info = true;
                if ($playertorpdmg > round($targetfighters / 2))
                {
                    $temp = round($targetfighters / 2);
                    $lost = $targetfighters - $temp;
                    echo $targetinfo['character_name'] . " " . $langvars['l_att_lost'] . " " . $lost . " " . $langvars['l_fighters'] . "<br>";
                    $targetfighters = $temp;
                    $playertorpdmg = $playertorpdmg - $lost;
                }
                else
                {
                    $targetfighters = $targetfighters - $playertorpdmg;
                    echo $targetinfo['character_name'] . " " .  $langvars['l_att_lost'] . " " . $playertorpdmg . " " . $langvars['l_fighters'] . "<br>";
                    $playertorpdmg = 0;
                }
            }

            if ($playerfighters > 0 && $targettorpdmg > 0)
            {
                $bcs_stats_info = true;
                if ($targettorpdmg > round($playerfighters / 2))
                {
                    $temp = round($playerfighters / 2);
                    $lost = $playerfighters - $temp;
                    echo $langvars['l_att_ylost'] . " " . $lost . " " . $langvars['l_fighters'] . "<br>";
                    echo "$temp - $playerfighters - $targettorpdmg";
                    $playerfighters = $temp;
                    $targettorpdmg = $targettorpdmg - $lost;
                }
                else
                {
                    $playerfighters = $playerfighters - $targettorpdmg;
                    echo $langvars['l_att_ylost'] . " " . $targettorpdmg . " " . $langvars['l_fighters'] . "<br>";
                    $targettorpdmg = 0;
                }
            }

            if ($playertorpdmg > 0)
            {
                $bcs_stats_info = true;
                if ($playertorpdmg > $targetarmor)
                {
                    $targetarmor = 0;
                    echo "$targetinfo[character_name]" . $langvars['l_att_sarm'] . "<br>";
                }
                else
                {
                    $targetarmor = $targetarmor - $playertorpdmg;
                    echo "$targetinfo[character_name]" . $langvars['l_att_ashit'] . " " . $playertorpdmg . " " . $langvars['l_att_dmg'] . ".<br>";
                }
            }

            if ($targettorpdmg > 0)
            {
                $bcs_stats_info = true;
                if ($targettorpdmg > $playerarmor)
                {
                    $playerarmor = 0;
                    echo $langvars['l_att_yarm'] . "<br>";
                }
                else
                {
                    $playerarmor = $playerarmor - $targettorpdmg;
                    echo $langvars['l_att_ayhit'] . " " . $targettorpdmg . " " . $langvars['l_att_dmg'] . ".<br>";
                }
            }

            if ($bcs_stats_info === false)
            {
                echo $langvars['l_att_no_info'] . "<br>\n";
            }

            echo "  </div>\n";
            echo "  <div style='height:4px;'></div>\n";
            echo "  <div style='text-align:left; font-size:14px; font-weight:bold; padding:4px; background-color:{$tkireg->color_header}; border:#FFCC00 1px solid;'>Fighters</div>\n";
            echo "  <div style='height:1px;'></div>\n";
            echo "  <div style='text-align:left; font-size:12px; padding:4px; background-color:{$tkireg->color_line1}; border:#FFCC00 1px solid;'>\n";
            $bcs_stats_info = false;

            if ($playerfighters > 0 && $targetfighters > 0)
            {
                $bcs_stats_info = true;
                if ($playerfighters > $targetfighters)
                {
                    echo $targetinfo['character_name'] . " " . $langvars['l_att_lostf'] . "<br>";
                    $temptargfighters = 0;
                }
                else
                {
                    echo $targetinfo['character_name'] . " " . $langvars['l_att_lost'] . " " . $playerfighters . " " . $langvars['l_fighters'] . ".<br>";
                    $temptargfighters = $targetfighters - $playerfighters;
                }

                if ($targetfighters > $playerfighters)
                {
                    echo $langvars['l_att_ylostf'] . "<br>";
                    $tempplayfighters = 0;
                }
                else
                {
                    echo $langvars['l_att_ylost'] . " " . $targetfighters . " " . $langvars['l_fighters'] . ".<br>";
                    $tempplayfighters = $playerfighters - $targetfighters;
                }

                $playerfighters = $tempplayfighters;
                $targetfighters = $temptargfighters;
            }

            if ($playerfighters > 0)
            {
                $bcs_stats_info = true;
                if ($playerfighters > $targetarmor)
                {
                    $targetarmor = 0;
                    echo $targetinfo['character_name'] . " " . $langvars['l_att_sarm'] . "<br>";
                }
                else
                {
                    $targetarmor = $targetarmor - $playerfighters;
                    echo $targetinfo['character_name'] . " " . $langvars['l_att_ashit'] . " " . $playerfighters . " " . $langvars['l_att_dmg'] . ".<br>";
                }
            }

            if ($targetfighters > 0)
            {
                $bcs_stats_info = true;
                if ($targetfighters > $playerarmor)
                {
                    $playerarmor = 0;
                    echo $langvars['l_att_yarm'] . "<br>";
                }
                else
                {
                    $playerarmor = $playerarmor - $targetfighters;
                    echo $langvars['l_att_ayhit'] . " " . $targetfighters . " " . $langvars['l_att_dmg'] . ".<br>";
                }
            }

            if ($bcs_stats_info === false)
            {
                echo $langvars['l_att_no_info'] . "<br>\n";
            }

            echo "  </div>\n";
            echo "  <div style='height:4px;'></div>\n";
            echo "  <div style='text-align:left; font-size:14px; font-weight:bold; padding:4px; background-color:{$tkireg->color_header}; border:#FFCC00 1px solid;'>Outcome</div>\n";
            echo "  <div style='height:1px;'></div>\n";
            echo "  <div style='text-align:left; font-size:12px; padding:4px; background-color:{$tkireg->color_line1}; border:#FFCC00 1px solid;'>\n";

            if ($targetarmor < 1)
            {
                echo $targetinfo['character_name'] . " " . $langvars['l_att_sdest'] . "<br>";
                if ($targetinfo['dev_escapepod'] == "Y")
                {
                    $rating = round($targetinfo['rating'] / 2);
                    echo $langvars['l_att_espod'] . " (<span style='color:#ff0;'>You destroyed their ship but they got away in their Escape Pod</span>)<br>";
                    $resx = $old_db->Execute(
                        "UPDATE {$old_db->prefix}ships SET hull = 0, engines = 0, power = 0, sensors = 0, computer = 0, beams = 0, torp_launchers = 0, " .
                        "torps = 0, armor = 0, armor_pts = 100, cloak = 0, shields = 0, sector = 1, ship_organics = 0, ship_ore = 0, ship_goods = 0, " .
                        "ship_energy = ?, ship_colonists = 0, ship_fighters = 100, dev_warpedit = 0, dev_genesis = 0, dev_beacon = 0, dev_emerwarp = 0, " .
                        "dev_escapepod = 'N', dev_fuelscoop = 'N', dev_minedeflector = 0, on_planet = 'N', rating = ?, cleared_defenses = ' ', " .
                        "dev_lssd = 'N' WHERE ship_id = ?;",
                        array(100, $rating, $targetinfo['ship_id'])
                    );

                    Tki\Db::logDbErrors($pdo_db, $resx, __LINE__, __FILE__);
                    Tki\PlayerLog::writeLog($pdo_db, $targetinfo['ship_id'], \Tki\LogEnums::ATTACK_LOSE, "$playerinfo[character_name]|Y");
                    Tki\Bounty::collect($pdo_db, $lang, $playerinfo['ship_id'], $targetinfo['ship_id']);
                    $admin_log = new Tki\AdminLog();
                    $admin_log->writeLog($pdo_db, \Tki\LogEnums::ATTACK_DEBUG, "*|{$playerinfo['ship_id']}|{$targetinfo['ship_id']}|Just lost the Escape Pod.");
                }
                else
                {
                    Tki\PlayerLog::writeLog($pdo_db, $targetinfo['ship_id'], \Tki\LogEnums::ATTACK_LOSE, "$playerinfo[character_name]|N");
                    $character_object->kill($pdo_db, $lang, $targetinfo['ship_id'], $tkireg);
                    Tki\Bounty::collect($pdo_db, $lang, $playerinfo['ship_id'], $targetinfo['ship_id']);
                    $admin_log = new Tki\AdminLog();
                    $admin_log->writeLog($pdo_db, \Tki\LogEnums::ATTACK_DEBUG, "*|{$playerinfo['ship_id']}|{$targetinfo['ship_id']}|Didn't have the Escape Pod.");
                }

                if ($playerarmor > 0)
                {
                    $rating_change = round($targetinfo['rating'] * $rating_combat_factor);
                    // Updating to always get a positive rating increase for
                    // kabal and the credits they are carrying
                    $salv_credits = 0;

                    // Double death attack bug fix - Returns 0 for real
                    // players, 1 for Kabal players
                    // He is a Kabal
                    if (preg_match("/(\@kabal)$/", $targetinfo['email']) !== 0)
                    {
                        $resx = $old_db->Execute("UPDATE {$old_db->prefix}kabal SET active= N WHERE kabal_id = ?;", array($targetinfo['email']));
                        Tki\Db::logDbErrors($pdo_db, $resx, __LINE__, __FILE__);
                        $admin_log = new Tki\AdminLog();
                        $admin_log->writeLog($pdo_db, \Tki\LogEnums::ATTACK_DEBUG, "*|{$playerinfo['ship_id']}|{$targetinfo['ship_id']}|Detected as AI.");

                        if ($rating_change > 0)
                        {
                            $rating_change = 0 - $rating_change;
                            Tki\PlayerLog::writeLog($pdo_db, $targetinfo['ship_id'], \Tki\LogEnums::ATTACK_LOSE, "$playerinfo[character_name]|N");
                            Tki\Bounty::collect($pdo_db, $lang, $playerinfo['ship_id'], $targetinfo['ship_id']);
                            $character_object->kill($pdo_db, $lang, $targetinfo['ship_id'], $tkireg);
                            $admin_log = new Tki\AdminLog();
                            $admin_log->writeLog($pdo_db, \Tki\LogEnums::ATTACK_DEBUG, "*|{$playerinfo['ship_id']}|{$targetinfo['ship_id']}|Hope fully we only killed off the AI.");
                        }

                        $salv_credits = $targetinfo['credits'];
                    }

                    $free_ore = round($targetinfo['ship_ore'] / 2);
                    $free_organics = round($targetinfo['ship_organics'] / 2);
                    $free_goods = round($targetinfo['ship_goods'] / 2);
                    $free_holds = Tki\CalcLevels::abstractLevels($playerinfo['hull'], $tkireg) - $playerinfo['ship_ore'] - $playerinfo['ship_organics'] - $playerinfo['ship_goods'] - $playerinfo['ship_colonists'];
                    if ($free_holds > $free_goods)
                    {
                        $salv_goods = $free_goods;
                        $free_holds = $free_holds - $free_goods;
                    }
                    elseif ($free_holds > 0)
                    {
                        $salv_goods = $free_holds;
                        $free_holds = 0;
                    }
                    else
                    {
                        $salv_goods = 0;
                    }

                    if ($free_holds > $free_ore)
                    {
                        $salv_ore = $free_ore;
                        $free_holds = $free_holds - $free_ore;
                    }
                    elseif ($free_holds > 0)
                    {
                        $salv_ore = $free_holds;
                        $free_holds = 0;
                    }
                    else
                    {
                        $salv_ore = 0;
                    }

                    if ($free_holds > $free_organics)
                    {
                        $salv_organics = $free_organics;
                        $free_holds = $free_holds - $free_organics;
                    }
                    elseif ($free_holds > 0)
                    {
                        $salv_organics = $free_holds;
                        $free_holds = 0;
                    }
                    else
                    {
                        $salv_organics = 0;
                    }

                    $ship_value = $upgrade_cost * (round(pow($upgrade_factor, $targetinfo['hull'])) + round(pow($upgrade_factor, $targetinfo['engines'])) + round(pow($upgrade_factor, $targetinfo['power'])) + round(pow($upgrade_factor, $targetinfo['computer'])) + round(pow($upgrade_factor, $targetinfo['sensors'])) + round(pow($upgrade_factor, $targetinfo['beams'])) + round(pow($upgrade_factor, $targetinfo['torp_launchers'])) + round(pow($upgrade_factor, $targetinfo['shields'])) + round(pow($upgrade_factor, $targetinfo['armor'])) + round(pow($upgrade_factor, $targetinfo['cloak'])));
                    $ship_salvage_rate = random_int(10, 20);
                    $ship_salvage = $ship_value * $ship_salvage_rate / 100 + $salv_credits;  // Added credits for Kabal - 0 if normal player

                    $langvars['l_att_ysalv'] = str_replace("[salv_ore]", (string) $salv_ore, $langvars['l_att_ysalv']);
                    $langvars['l_att_ysalv'] = str_replace("[salv_organics]", (string) $salv_organics, $langvars['l_att_ysalv']);
                    $langvars['l_att_ysalv'] = str_replace("[salv_goods]", (string) $salv_goods, $langvars['l_att_ysalv']);
                    $langvars['l_att_ysalv'] = str_replace("[ship_salvage_rate]", (string) $ship_salvage_rate, $langvars['l_att_ysalv']);
                    $langvars['l_att_ysalv'] = str_replace("[ship_salvage]", (string) $ship_salvage, $langvars['l_att_ysalv']);
                    $langvars['l_att_ysalv2'] = str_replace("[rating_change]", number_format(abs($rating_change), 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']), $langvars['l_att_ysalv2']);

                    echo $langvars['l_att_ysalv'] . "<br>" . $langvars['l_att_ysalv2'] . "<br>\n";
                    $update3 = $old_db->Execute(
                        "UPDATE {$old_db->prefix}ships SET ship_ore = ship_ore + ?, ship_organics = ship_organics + ?, ship_goods = ship_goods + ?, " .
                        "credits = credits + ? WHERE ship_id = ?;",
                        array($salv_ore, $salv_organics, $salv_goods, $ship_salvage, $playerinfo['ship_id'])
                    );
                    Tki\Db::logDbErrors($pdo_db, $update3, __LINE__, __FILE__);
                    $armor_lost = $playerinfo['armor_pts'] - $playerarmor;
                    $fighters_lost = $playerinfo['ship_fighters'] - $playerfighters;
                    $energy = $playerinfo['ship_energy'];
                    $update3b = $old_db->Execute(
                        "UPDATE {$old_db->prefix}ships SET ship_energy = ?, ship_fighters = ship_fighters - ?, armor_pts = armor_pts - ?, torps = torps - ?, " .
                        "turns = turns - 1, turns_used = turns_used + 1, rating = rating - ? " .
                        "WHERE ship_id = ?;",
                        array($energy, $fighters_lost, $armor_lost, $playertorpnum, $rating_change, $playerinfo['ship_id'])
                    );
                    Tki\Db::logDbErrors($pdo_db, $update3b, __LINE__, __FILE__);
                    echo $langvars['l_att_ylost'] . " " . $armor_lost . " " . $langvars['l_armorpts'], $fighters_lost . " " . $langvars['l_fighters'], $langvars['l_att_andused'] . " " . $playertorpnum . " " . $langvars['l_torps'] . ".<br>";
                }
            }
            else
            {
                $langvars['l_att_stilship'] = str_replace("[name]", $targetinfo['character_name'], $langvars['l_att_stilship']);
                echo $langvars['l_att_stilship'] . "<br>";

                $rating_change = round($targetinfo['rating'] * .1);
                $armor_lost = $targetinfo['armor_pts'] - $targetarmor;
                $fighters_lost = $targetinfo['ship_fighters'] - $targetfighters;
                $energy = $targetinfo['ship_energy'];

                Tki\PlayerLog::writeLog($pdo_db, $targetinfo['ship_id'], \Tki\LogEnums::ATTACKED_WIN, "$playerinfo[character_name]|$armor_lost|$fighters_lost");
                $update4 = $old_db->Execute(
                    "UPDATE {$old_db->prefix}ships SET ship_energy = ?, ship_fighters = ship_fighters - ?, armor_pts = armor_pts - ?, " .
                    "torps = torps - ? WHERE ship_id = ?;",
                    array($energy, $fighters_lost, $armor_lost, $targettorpnum, $targetinfo['ship_id'])
                );
                Tki\Db::logDbErrors($pdo_db, $update4, __LINE__, __FILE__);

                $armor_lost = $playerinfo['armor_pts'] - $playerarmor;
                $fighters_lost = $playerinfo['ship_fighters'] - $playerfighters;
                $energy = $playerinfo['ship_energy'];

                $update4b = $old_db->Execute(
                    "UPDATE {$old_db->prefix}ships SET ship_energy = ?, ship_fighters = ship_fighters - ?, armor_pts = armor_pts - ?, torps = torps - ?, " .
                    "turns = turns - 1, turns_used = turns_used + 1, rating = rating - ? " .
                    "WHERE ship_id = ?;",
                    array($energy, $fighters_lost, $armor_lost, $playertorpnum, $rating_change, $playerinfo['ship_id'])
                );
                Tki\Db::logDbErrors($pdo_db, $update4b, __LINE__, __FILE__);
                echo $langvars['l_att_ylost'] . " " . $armor_lost . " " . $langvars['l_armorpts'], $fighters_lost . " " . $langvars['l_fighters'], $langvars['l_att_andused'] . " " . $playertorpnum . " " . $langvars['l_torps'] . ".<br><br>";
            }

            if ($playerarmor < 1)
            {
                echo $langvars['l_att_yshiplost'] . "<br><br>";
                if ($playerinfo['dev_escapepod'] == "Y")
                {
                    $rating = round($playerinfo['rating'] / 2);
                    echo $langvars['l_att_loosepod'] . "<br><br>";
                    $resx = $old_db->Execute(
                        "UPDATE {$old_db->prefix}ships SET hull = 0, engines = 0, power = 0, sensors = 0, computer = 0, beams = 0, torp_launchers = 0, torps = 0, " .
                        "armor = 0, armor_pts = 100, cloak = 0, shields = 0, sector = 1, ship_organics = 0, ship_ore = 0, ship_goods = 0, ship_energy = ?, " .
                        "ship_colonists = 0, ship_fighters = 100, dev_warpedit = 0, dev_genesis = 0, dev_beacon = 0, dev_emerwarp = 0, dev_escapepod = 'N', " .
                        "dev_fuelscoop = 'N', dev_minedeflector = 0, on_planet = 'N', rating = ?, dev_lssd = 'N' " .
                        "WHERE ship_id = ?",
                        array(100, $rating, $playerinfo['ship_id'])
                    );
                    Tki\Db::logDbErrors($pdo_db, $resx, __LINE__, __FILE__);
                    Tki\Bounty::collect($pdo_db, $lang, $targetinfo['ship_id'], $playerinfo['ship_id']);
                }
                else
                {
                    echo "Didnt have pod?! $playerinfo[dev_escapepod]<br>";
                    $character_object->kill($pdo_db, $lang, $playerinfo['ship_id'], $tkireg);
                    Tki\Bounty::collect($pdo_db, $lang, $targetinfo['ship_id'], $playerinfo['ship_id']);
                }

                if ($targetarmor > 0)
                {
                    $salv_credits = 0;

                    $free_ore = round($playerinfo['ship_ore'] / 2);
                    $free_organics = round($playerinfo['ship_organics'] / 2);
                    $free_goods = round($playerinfo['ship_goods'] / 2);
                    $free_holds = Tki\CalcLevels::abstractLevels($targetinfo['hull'], $tkireg) - $targetinfo['ship_ore'] - $targetinfo['ship_organics'] - $targetinfo['ship_goods'] - $targetinfo['ship_colonists'];
                    if ($free_holds > $free_goods)
                    {
                        $salv_goods = $free_goods;
                        $free_holds = $free_holds - $free_goods;
                    }
                    elseif ($free_holds > 0)
                    {
                        $salv_goods = $free_holds;
                        $free_holds = 0;
                    }
                    else
                    {
                        $salv_goods = 0;
                    }

                    if ($free_holds > $free_ore)
                    {
                        $salv_ore = $free_ore;
                        $free_holds = $free_holds - $free_ore;
                    }
                    elseif ($free_holds > 0)
                    {
                        $salv_ore = $free_holds;
                        $free_holds = 0;
                    }
                    else
                    {
                        $salv_ore = 0;
                    }

                    if ($free_holds > $free_organics)
                    {
                        $salv_organics = $free_organics;
                        $free_holds = $free_holds - $free_organics;
                    }
                    elseif ($free_holds > 0)
                    {
                        $salv_organics = $free_holds;
                        $free_holds = 0;
                    }
                    else
                    {
                        $salv_organics = 0;
                    }

                    $ship_value = $upgrade_cost * (round(pow($upgrade_factor, $playerinfo['hull'])) + round(pow($upgrade_factor, $playerinfo['engines'])) + round(pow($upgrade_factor, $playerinfo['power'])) + round(pow($upgrade_factor, $playerinfo['computer'])) + round(pow($upgrade_factor, $playerinfo['sensors'])) + round(pow($upgrade_factor, $playerinfo['beams'])) + round(pow($upgrade_factor, $playerinfo['torp_launchers'])) + round(pow($upgrade_factor, $playerinfo['shields'])) + round(pow($upgrade_factor, $playerinfo['armor'])) + round(pow($upgrade_factor, $playerinfo['cloak'])));
                    $ship_salvage_rate = random_int(10, 20);
                    $ship_salvage = $ship_value * $ship_salvage_rate / 100 + $salv_credits;  // Added credits for Kabal - 0 if normal player

                    $langvars['l_att_salv'] = str_replace("[salv_ore]", (string) $salv_ore, $langvars['l_att_salv']);
                    $langvars['l_att_salv'] = str_replace("[salv_organics]", (string) $salv_organics, $langvars['l_att_salv']);
                    $langvars['l_att_salv'] = str_replace("[salv_goods]", (string) $salv_goods, $langvars['l_att_salv']);
                    $langvars['l_att_salv'] = str_replace("[ship_salvage_rate]", (string) $ship_salvage_rate, $langvars['l_att_salv']);
                    $langvars['l_att_salv'] = str_replace("[ship_salvage]", (string) $ship_salvage, $langvars['l_att_salv']);
                    $langvars['l_att_salv'] = str_replace("[name]", $targetinfo['character_name'], $langvars['l_att_salv']);

                    echo $langvars['l_att_salv'] . "<br>";
                    $update6 = $old_db->Execute(
                        "UPDATE {$old_db->prefix}ships SET credits = credits + ?," .
                        "ship_ore = ship_ore + ?, ship_organics = ship_organics + ?, " .
                        "ship_goods = ship_goods + ? WHERE ship_id = ?;",
                        array($ship_salvage, $salv_ore, $salv_organics, $salv_goods, $targetinfo['ship_id'])
                    );
                    Tki\Db::logDbErrors($pdo_db, $update6, __LINE__, __FILE__);
                    $armor_lost = $targetinfo['armor_pts'] - $targetarmor;
                    $fighters_lost = $targetinfo['ship_fighters'] - $targetfighters;
                    $energy = $targetinfo['ship_energy'];
                    $update6b = $old_db->Execute(
                        "UPDATE {$old_db->prefix}ships SET ship_energy = ?, " .
                        "ship_fighters = ship_fighters - ?, armor_pts = armor_pts - ?, " .
                        "torps = torps - ? WHERE ship_id = ?;",
                        array($energy, $fighters_lost, $armor_lost, $targettorpnum, $targetinfo['ship_id'])
                    );
                    Tki\Db::logDbErrors($pdo_db, $update6b, __LINE__, __FILE__);
                }
            }

            echo "  </div>\n";
            echo "  <div style='height:1px;'></div>\n";
            echo "  <div style='text-align:right; font-size:10px; padding:4px; " .
                 "background-color:{$tkireg->color_header}; border:#FFCC00 1px solid;'></div>\n";
            echo "</div>\n";
        }
    }
}

$_SESSION['in_combat'] = false;

Tki\Text::gotoMain($pdo_db, $lang);

$footer = new Tki\Footer();
$footer->display($pdo_db, $lang, $tkireg, $tkitimer, $template);