} 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'];