}
if ($sb_energy == $langvars['l_selling']) {
$amount_energy = min($amount_energy, floor(($playerinfo['credits'] + $amount_ore * $tkireg->ore_price + $amount_organics * $tkireg->organics_price + $amount_goods * $tkireg->goods_price) / $tkireg->energy_price));
}
echo "<form accept-charset='utf-8' action=port2.php method=post>";
echo "<table>";
echo "<tr><td><strong>" . $langvars['l_commodity'] . "</strong></td><td><strong>" . $langvars['l_buying'] . "/" . $langvars['l_selling'] . "</strong></td><td><strong>" . $langvars['l_amount'] . "</strong></td><td><strong>" . $langvars['l_price'] . "</strong></td><td><strong>" . $langvars['l_buy'] . "/" . $langvars['l_sell'] . "</strong></td><td><strong>" . $langvars['l_cargo'] . "</strong></td></tr>";
echo "<tr><td>" . $langvars['l_ore'] . "</td><td>{$sb_ore}</td><td>" . number_format($sectorinfo['port_ore'], 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']) . "</td><td>{$tkireg->ore_price}</td><td><input type=TEXT NAME=trade_ore SIZE=10 MAXLENGTH=20 value={$amount_ore}></td><td>" . number_format($playerinfo['ship_ore'], 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']) . "</td></tr>";
echo "<tr><td>" . $langvars['l_organics'] . "</td><td>{$sb_organics}</td><td>" . number_format($sectorinfo['port_organics'], 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']) . "</td><td>{$tkireg->organics_price}</td><td><input type=TEXT NAME=trade_organics SIZE=10 MAXLENGTH=20 value={$amount_organics}></td><td>" . number_format($playerinfo['ship_organics'], 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']) . "</td></tr>";
echo "<tr><td>" . $langvars['l_goods'] . "</td><td>{$sb_goods}</td><td>" . number_format($sectorinfo['port_goods'], 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']) . "</td><td>{$tkireg->goods_price}</td><td><input type=TEXT NAME=trade_goods SIZE=10 MAXLENGTH=20 value={$amount_goods}></td><td>" . number_format($playerinfo['ship_goods'], 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']) . "</td></tr>";
echo "<tr><td>" . $langvars['l_energy'] . "</td><td>{$sb_energy}</td><td>" . number_format($sectorinfo['port_energy'], 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']) . "</td><td>{$tkireg->energy_price}</td><td><input type=TEXT NAME=trade_energy SIZE=10 MAXLENGTH=20 value={$amount_energy}></td><td>" . number_format($playerinfo['ship_energy'], 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']) . "</td></tr>";
echo "</table><br>";
echo "<input type=submit value=" . $langvars['l_trade'] . ">";
echo "</form>";
$free_holds = Tki\CalcLevels::holds($playerinfo['hull'], $tkireg) - $playerinfo['ship_ore'] - $playerinfo['ship_organics'] - $playerinfo['ship_goods'] - $playerinfo['ship_colonists'];
$free_power = Tki\CalcLevels::energy($playerinfo['power'], $tkireg) - $playerinfo['ship_energy'];
$langvars['l_trade_st_info'] = str_replace("[free_holds]", number_format($free_holds, 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']), $langvars['l_trade_st_info']);
$langvars['l_trade_st_info'] = str_replace("[free_power]", number_format($free_power, 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']), $langvars['l_trade_st_info']);
$langvars['l_trade_st_info'] = str_replace("[credits]", number_format($playerinfo['credits'], 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']), $langvars['l_trade_st_info']);
echo $langvars['l_trade_st_info'];
} elseif ($sectorinfo['port_type'] == "special") {
$title = $langvars['l_special_port'];
echo "<h1>" . $title . "</h1>\n";
// Kami Multi-browser window upgrade fix
$_SESSION['port_shopping'] = true;
if (Tki\Loan::isPending($pdo_db, $playerinfo['ship_id'], $tkireg)) {
echo $langvars['l_port_loannotrade'] . "<p>";
echo "<a href=ibank.php>" . $langvars['l_ibank_term'] . "</a><p>";
Tki\Text::gotomain($pdo_db, $lang);
Tki\Footer::display($pdo_db, $lang, $tkireg, $template);
die;
$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
if ($errflag == 0) {
$makepass = null;
$syllables = "er,in,tia,wol,fe,pre,vet,jo,nes,al,len,son,cha,ir,ler,bo,ok,tio,nar,sim,ple,bla,ten,toe,cho,co,lat,spe,ak,er,po,co,lor,pen,cil,li,ght,wh,at,the,he,ck,is,mam,bo,no,fi,ve,any,way,pol,iti,cs,ra,dio,sou,rce,sea,rch,pa,per,com,bo,sp,eak,st,fi,rst,gr,oup,boy,ea,gle,tr,ail,bi,ble,brb,pri,dee,kay,en,be,se";
$syllable_array = explode(",", $syllables);
for ($count = 1; $count <= 4; $count++) {
if (random_int(0, mt_getrandmax()) % 10 == 1) {
$makepass .= sprintf("%0.0f", random_int(0, mt_getrandmax() % 50) + 1);
} else {
$makepass .= sprintf("%s", $syllable_array[random_int(0, mt_getrandmax() % 62)]);
}
}
if ($xenlevel === null) {
$xenlevel = 0;
}
$maxenergy = Tki\CalcLevels::energy($xenlevel, $tkireg);
$maxarmor = Tki\CalcLevels::armor($xenlevel, $tkireg);
$maxfighters = Tki\CalcLevels::fighters($xenlevel, $tkireg);
$maxtorps = Tki\CalcLevels::torpedoes($xenlevel, $tkireg);
$stamp = date("Y-m-d H:i:s");
// Add Xenobe record to ships table ... modify if the ships schema changes
$thesql = "INSERT INTO {$db->prefix}ships ( `ship_id` , `ship_name` , `ship_destroyed` , `character_name` , `password` , `email` , `hull` , `engines` , `power` , `computer` , `sensors` , `beams` , `torp_launchers` , `torps` , `shields` , `armor` , `armor_pts` , `cloak` , `credits` , `sector` , `ship_ore` , `ship_organics` , `ship_goods` , `ship_energy` , `ship_colonists` , `ship_fighters` , `ship_damage` , `turns` , `on_planet` , `dev_warpedit` , `dev_genesis` , `dev_beacon` , `dev_emerwarp` , `dev_escapepod` , `dev_fuelscoop` , `dev_minedeflector` , `turns_used` , `last_login` , `rating` , `score` , `team` , `team_invite` , `interface` , `ip_address` , `planet_id` , `trade_colonists` , `trade_fighters` , `trade_torps` , `trade_energy` , `cleared_defenses` , `lang` , `dev_lssd` )\n VALUES (NULL,'{$shipname}','N','{$character}','{$makepass}','{$emailname}',{$xenlevel},{$xenlevel},{$xenlevel},{$xenlevel},{$xenlevel},{$xenlevel},{$xenlevel},{$maxtorps},{$xenlevel},{$xenlevel},{$maxarmor},{$xenlevel},{$start_credits},{$sector},0,0,0,{$maxenergy},0,{$maxfighters},0,{$start_turns},'N',0,0,0,0,'N','N',0,0, '{$stamp}',0,0,0,0,'N','127.0.0.1',0,'Y','N','N','Y',NULL,'{$default_lang}','Y')";
$result2 = $db->Execute($thesql);
Tki\Db::LogDbErrors($pdo_db, $result2, __LINE__, __FILE__);
if (!$result2) {
echo $db->ErrorMsg() . "<br>";
} else {
echo "Xenobe has been created.<br><br>";
echo "password has been set.<br><br>";
echo "Ship Records have been updated.<br><br>";
}
$shiplevel = 0;
} elseif ($shipavg < 12) {
$shiplevel = 1;
} elseif ($shipavg < 16) {
$shiplevel = 2;
} elseif ($shipavg < 20) {
$shiplevel = 3;
} else {
$shiplevel = 4;
}
$holds_used = $playerinfo['ship_ore'] + $playerinfo['ship_organics'] + $playerinfo['ship_goods'] + $playerinfo['ship_colonists'];
$holds_max = Tki\CalcLevels::holds($playerinfo['hull'], $tkireg);
$armor_pts_max = Tki\CalcLevels::armor($playerinfo['armor'], $tkireg);
$ship_fighters_max = Tki\CalcLevels::fighters($playerinfo['computer'], $tkireg);
$torps_max = Tki\CalcLevels::torpedoes($playerinfo['torp_launchers'], $tkireg);
$energy_max = Tki\CalcLevels::energy($playerinfo['power'], $tkireg);
$escape_pod = $playerinfo['dev_escapepod'] == 'Y' ? $langvars['l_yes'] : $langvars['l_no'];
$fuel_scoop = $playerinfo['dev_fuelscoop'] == 'Y' ? $langvars['l_yes'] : $langvars['l_no'];
$lssd = $playerinfo['dev_lssd'] == 'Y' ? $langvars['l_yes'] : $langvars['l_no'];
// Clear variables array before use, and set array with all used variables in page
$variables = null;
$variables['body_class'] = 'tki';
// No special CSS
$variables['lang'] = $lang;
$variables['color_header'] = $tkireg->color_header;
$variables['color_line1'] = $tkireg->color_line1;
$variables['color_line2'] = $tkireg->color_line2;
$variables['playerinfo_character_name'] = $playerinfo['character_name'];
$variables['playerinfo_ship_name'] = $playerinfo['ship_name'];
$variables['playerinfo_credits'] = $playerinfo['credits'];
$variables['playerinfo_hull'] = $playerinfo['hull'];
