$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>";
}
$result3 = $db->Execute("INSERT INTO {$db->prefix}xenobe (xenobe_id, active, aggression, orders) values(?,?,?,?)", array($emailname, $_active, $aggression, $orders));
Tki\Db::LogDbErrors($pdo_db, $result3, __LINE__, __FILE__);
echo "Option Plan 2: Payment from Intergalactic Bank [Full/Partial Payments]<br>\n";
$langvars['l_port_bounty3'] = "Click <a href='port.php?pay=2'>here</a> to pay the bounty of [amount] Credits from your Intergalactic Bank Account.";
$langvars['l_port_bounty3'] = str_replace("[amount]", number_format($bty['total_bounty'], 0, $langvars['local_number_dec_point'], $langvars['local_number_thousands_sep']), $langvars['l_port_bounty3']);
echo $langvars['l_port_bounty3'] . "<br>\n";
echo "<br>\n";
echo "<a href=\"bounty.php\">" . $langvars['l_by_placebounty'] . "</a><br><br>";
Tki\Text::gotomain($pdo_db, $lang);
die;
}
}
}
$genesis_free = $tkireg->max_genesis - $playerinfo['dev_genesis'];
$beacon_free = $tkireg->max_beacons - $playerinfo['dev_beacon'];
$emerwarp_free = $tkireg->max_emerwarp - $playerinfo['dev_emerwarp'];
$warpedit_free = $tkireg->max_warpedit - $playerinfo['dev_warpedit'];
$fighter_max = Tki\CalcLevels::fighters($playerinfo['computer'], $tkireg);
$fighter_free = $fighter_max - $playerinfo['ship_fighters'];
$torpedo_max = Tki\CalcLevels::torpedoes($playerinfo['torp_launchers'], $tkireg);
$torpedo_free = $torpedo_max - $playerinfo['torps'];
$armor_max = Tki\CalcLevels::armor($playerinfo['armor'], $tkireg);
$armor_free = $armor_max - $playerinfo['armor_pts'];
$colonist_max = Tki\CalcLevels::holds($playerinfo['hull'], $tkireg) - $playerinfo['ship_ore'] - $playerinfo['ship_organics'] - $playerinfo['ship_goods'];
if ($colonist_max < 0) {
$colonist_max = 0;
}
$colonist_free = $colonist_max - $playerinfo['ship_colonists'];
echo "\n<script>\n<!--\n";
echo "function make_max(name, val)\n";
echo "{\n";
echo " if (document.forms[0].elements[name].value != val)\n";
echo " {\n";
