<?php

// The Kabal Invasion - A web-based 4X space game

// Copyright © 2014 The Kabal Invasion development team, Ron Harwood, and the BNT development team

//

// 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/>.

//

// File: attack.php

require_once './common.php';

Tki\Login::checkLogin($pdo_db, $lang, $tkireg, $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', 'main',

'planet', 'common', 'global_includes',

'global_funcs', 'combat', 'footer', 'news'));

echo '<h1>' . $title . '</h1>';

$ship_id = null;

if (array_key_exists('ship_id', $_GET))

{

$ship_id = (int) filter_input(INPUT_GET, 'ship_id', FILTER_SANITIZE_NUMBER_INT);

}

// Kami multi-browser window attack fix

if (array_key_exists('ship_selected', $_SESSION) === false || $_SESSION['ship_selected'] != $ship_id)

{

echo "You need to click on the ship first.<br><br>";

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

$footer = new Tki\Footer;

$footer->display($pdo_db, $lang, $tkireg, $template);

die();

}

unset($_SESSION['ship_selected']);

// Get playerinfo from database

$sql = "SELECT * FROM ::prefix::ships WHERE email=:email LIMIT 1";

$stmt = $pdo_db->prepare($sql);

$stmt->bindParam(':email', $_SESSION['username'], PDO::PARAM_INT);

$stmt->execute();

$playerinfo = $stmt->fetch(PDO::FETCH_ASSOC);

$sql = "SELECT * FROM ::prefix::ships WHERE ship_id=:ship_id LIMIT 1";

$stmt = $pdo_db->prepare($sql);

$stmt->bindParam(':ship_id', $ship_id, PDO::PARAM_INT);

$stmt->execute();

$targetinfo = $stmt->fetch(PDO::FETCH_ASSOC);

$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'] = (bool) 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 = $db->Execute(

"SELECT allow_attack, {$db->prefix}universe.zone_id FROM {$db->prefix}zones, " .

"{$db->prefix}universe WHERE sector_id = ? AND {$db->prefix}zones.zone_id = " .

"{$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 = $db->Execute(

"UPDATE {$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 = $db->Execute(

"UPDATE {$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 = $db->Execute(

"UPDATE {$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 = $db->Execute(

"UPDATE {$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 = $db->Execute(

"SELECT SUM(amount) AS btytotal FROM {$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 = $db->Execute(

"INSERT INTO {$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::beams($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::beams($playerinfo['beams'], $tkireg);

if ($playerbeams > $playerinfo['ship_energy'])

{

$playerbeams = $playerinfo['ship_energy'];

}

$playerinfo['ship_energy'] = $playerinfo['ship_energy'] - $playerbeams;

$playershields = Tki\CalcLevels::shields($playerinfo['shields'], $tkireg);

if ($playershields > $playerinfo['ship_energy'])

{

$playershields = $playerinfo['ship_energy'];

}

$playerinfo['ship_energy'] = $playerinfo['ship_energy'] - $playershields;

$targetshields = Tki\CalcLevels::shields($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;'>The Kabal Invasion Combat System. " .

"(<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 "No information available.<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 "No information available.<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 "No information available.<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 = $db->Execute(

"UPDATE {$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, $langvars, $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, $targetinfo['ship_id'], $langvars, $tkireg, false);

Tki\Bounty::collect($pdo_db, $langvars, $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 = $db->Execute("UPDATE {$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, $langvars, $playerinfo['ship_id'], $targetinfo['ship_id']);

$character_object->kill($pdo_db, $targetinfo['ship_id'], $langvars, $tkireg, false);

$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::holds($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]", $salv_ore, $langvars['l_att_ysalv']);

$langvars['l_att_ysalv'] = str_replace("[salv_organics]", $salv_organics, $langvars['l_att_ysalv']);

$langvars['l_att_ysalv'] = str_replace("[salv_goods]", $salv_goods, $langvars['l_att_ysalv']);

$langvars['l_att_ysalv'] = str_replace("[ship_salvage_rate]", $ship_salvage_rate, $langvars['l_att_ysalv']);

$langvars['l_att_ysalv'] = str_replace("[ship_salvage]", $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 = $db->Execute(

"UPDATE {$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 = $db->Execute(

"UPDATE {$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 = $db->Execute(

"UPDATE {$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 = $db->Execute(

"UPDATE {$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 = $db->Execute(

"UPDATE {$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, $langvars, $targetinfo['ship_id'], $playerinfo['ship_id']);

}

else

{

echo "Didnt have pod?! $playerinfo[dev_escapepod]<br>";

$character_object->kill($pdo_db, $playerinfo['ship_id'], $langvars, $tkireg, false);

Tki\Bounty::collect($pdo_db, $langvars, $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::holds($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]", $salv_ore, $langvars['l_att_salv']);

$langvars['l_att_salv'] = str_replace("[salv_organics]", $salv_organics, $langvars['l_att_salv']);

$langvars['l_att_salv'] = str_replace("[salv_goods]", $salv_goods, $langvars['l_att_salv']);

$langvars['l_att_salv'] = str_replace("[ship_salvage_rate]", $ship_salvage_rate, $langvars['l_att_salv']);

$langvars['l_att_salv'] = str_replace("[ship_salvage]", $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 = $db->Execute(

"UPDATE {$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 = $db->Execute(

"UPDATE {$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'] = (bool) false;

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

$footer = new Tki\Footer;

$footer->display($pdo_db, $lang, $tkireg, $template);