function xenoberegen()
{
    global $playerinfo, $xen_unemployment, $xenobeisdead, $db;
    // Xenobe Unempoyment Check
    $playerinfo['credits'] = $playerinfo['credits'] + $xen_unemployment;
    $maxenergy = NUM_ENERGY($playerinfo['power']);
    // Regenerate energy
    if ($playerinfo['ship_energy'] <= $maxenergy - 50) {
        $playerinfo['ship_energy'] = $playerinfo['ship_energy'] + round(($maxenergy - $playerinfo['ship_energy']) / 2);
        // Regen half of remaining energy
        $gene = "regenerated Energy to {$playerinfo['ship_energy']} units,";
    }
    $maxarmor = NUM_ARMOR($playerinfo['armor']);
    // Regenerate armor
    if ($playerinfo['armor_pts'] <= $maxarmor - 50) {
        $playerinfo['armor_pts'] = $playerinfo['armor_pts'] + round(($maxarmor - $playerinfo['armor_pts']) / 2);
        // Regen half of remaining armor
        $gena = "regenerated Armor to {$playerinfo['armor_pts']} points,";
    }
    // Buy fighters & torpedos at 6 credits per fighter
    $available_fighters = NUM_FIGHTERS($playerinfo['computer']) - $playerinfo['ship_fighters'];
    if ($playerinfo['credits'] > 5 && $available_fighters > 0) {
        if (round($playerinfo['credits'] / 6) > $available_fighters) {
            $purchase = $available_fighters * 6;
            $playerinfo['credits'] = $playerinfo['credits'] - $purchase;
            $playerinfo['ship_fighters'] = $playerinfo['ship_fighters'] + $available_fighters;
            $genf = "purchased {$available_fighters} fighters for {$purchase} credits,";
        }
        if (round($playerinfo['credits'] / 6) <= $available_fighters) {
            $purchase = round($playerinfo['credits'] / 6);
            $playerinfo['ship_fighters'] = $playerinfo['ship_fighters'] + $purchase;
            $genf = "purchased {$purchase} fighters for {$playerinfo['credits']} credits,";
            $playerinfo['credits'] = 0;
        }
    }
    // Xenobe pay 3 credits per torpedo
    $available_torpedoes = NUM_TORPEDOES($playerinfo['torp_launchers']) - $playerinfo['torps'];
    if ($playerinfo['credits'] > 2 && $available_torpedoes > 0) {
        if (round($playerinfo['credits'] / 3) > $available_torpedoes) {
            $purchase = $available_torpedoes * 3;
            $playerinfo['credits'] = $playerinfo['credits'] - $purchase;
            $playerinfo['torps'] = $playerinfo['torps'] + $available_torpedoes;
            $gent = "purchased {$available_torpedoes} torpedoes for {$purchase} credits,";
        }
        if (round($playerinfo['credits'] / 3) <= $available_torpedoes) {
            $purchase = round($playerinfo['credits'] / 3);
            $playerinfo['torps'] = $playerinfo['torps'] + $purchase;
            $gent = "purchased {$purchase} torpedoes for {$playerinfo['credits']} credits,";
            $playerinfo['credits'] = 0;
        }
    }
    // Update Xenobe record
    $resg = $db->Execute("UPDATE {$db->prefix}ships SET ship_energy=?, armor_pts=?, ship_fighters=?, torps=?, credits=? WHERE ship_id=?", array($playerinfo['ship_energy'], $playerinfo['armor_pts'], $playerinfo['ship_fighters'], $playerinfo['torps'], $playerinfo['credits'], $playerinfo['ship_id']));
    db_op_result($db, $resg, __LINE__, __FILE__);
    if (!$gene == '' || !$gena == '' || !$genf == '' || !$gent == '') {
        playerlog($db, $playerinfo[ship_id], LOG_RAW, "Xenobe {$gene} {$gena} {$genf} {$gent} and has been updated.");
    }
}

function message_defence_owner($db, $sector, $message)
{
    $result3 = $db->Execute("SELECT * FROM {$db->prefix}sector_defence WHERE sector_id=?", array($sector));
    db_op_result($db, $result3, __LINE__, __FILE__);
    if ($result3 instanceof ADORecordSet) {
        while (!$result3->EOF) {
            playerlog($db, $result3->fields['ship_id'], LOG_RAW, $message);
            $result3->MoveNext();
        }
    }
}

function distribute_toll($db, $sector, $toll, $total_fighters)
{
    $result3 = $db->Execute("SELECT * FROM {$db->prefix}sector_defence WHERE sector_id=? AND defence_type ='F'", array($sector));
    db_op_result($db, $result3, __LINE__, __FILE__);
    // Put the defence information into the array "defenceinfo"
    if ($result3 > 0) {
        while (!$result3->EOF) {
            $row = $result3->fields;
            $toll_amount = ROUND($row['quantity'] / $total_fighters * $toll);
            $resa = $db->Execute("UPDATE {$db->prefix}ships SET credits=credits + ? WHERE ship_id = ?", array($toll_amount, $row['ship_id']));
            db_op_result($db, $resa, __LINE__, __FILE__);
            playerlog($db, $row['ship_id'], LOG_TOLL_RECV, "{$toll_amount}|{$sector}");
            $result3->MoveNext();
        }
    }
}

function cancel_bounty($db, $bounty_on)
{
    $res = $db->Execute("SELECT * FROM {$db->prefix}bounty,{$db->prefix}ships WHERE bounty_on = ? AND bounty_on = ship_id", array($bounty_on));
    db_op_result($db, $res, __LINE__, __FILE__);
    if ($res) {
        while (!$res->EOF) {
            $bountydetails = $res->fields;
            if ($bountydetails['placed_by'] != 0) {
                $update = $db->Execute("UPDATE {$db->prefix}ships SET credits = credits + ? WHERE ship_id = ?", array($bountydetails['amount'], $bountydetails['placed_by']));
                db_op_result($db, $update, __LINE__, __FILE__);
                playerlog($db, $bountydetails['placed_by'], LOG_BOUNTY_CANCELLED, "{$bountydetails['amount']}|{$bountydetails['character_name']}");
            }
            $delete = $db->Execute("DELETE FROM {$db->prefix}bounty WHERE bounty_id = ?", array($bountydetails['bounty_id']));
            db_op_result($db, $delete, __LINE__, __FILE__);
            $res->MoveNext();
        }
    }
}

function defence_vs_defence($db, $ship_id)
{
    global $l;
    $result1 = $db->Execute("SELECT * FROM {$db->prefix}sector_defence WHERE ship_id = ?;", array($ship_id));
    db_op_result($db, $result1, __LINE__, __FILE__);
    if ($result1 instanceof ADORecordSet) {
        while (!$result1->EOF) {
            $row = $result1->fields;
            $deftype = $row['defence_type'] == 'F' ? 'Fighters' : 'Mines';
            $qty = $row['quantity'];
            $result2 = $db->Execute("SELECT * FROM {$db->prefix}sector_defence WHERE sector_id = ? AND ship_id <> ? ORDER BY quantity DESC", array($row['sector_id'], $ship_id));
            db_op_result($db, $result2, __LINE__, __FILE__);
            if ($result2 instanceof ADORecordSet) {
                while (!$result2->EOF && $qty > 0) {
                    $cur = $result2->fields;
                    $targetdeftype = $cur['defence_type'] == 'F' ? $l->get('l_fighters') : $l->get('l_mines');
                    if ($qty > $cur['quantity']) {
                        $resa = $db->Execute("DELETE FROM {$db->prefix}sector_defence WHERE defence_id = ?", array($cur['defence_id']));
                        db_op_result($db, $resa, __LINE__, __FILE__);
                        $qty -= $cur['quantity'];
                        $resb = $db->Execute("UPDATE {$db->prefix}sector_defence SET quantity = ? WHERE defence_id = ?", array($qty, $row['defence_id']));
                        db_op_result($db, $resb, __LINE__, __FILE__);
                        playerlog($db, $cur['ship_id'], LOG_DEFS_DESTROYED, $cur['quantity'] . "|" . $targetdeftype . "|" . $row['sector_id']);
                        playerlog($db, $row['ship_id'], LOG_DEFS_DESTROYED, $cur['quantity'] . "|" . $deftype . "|" . $row['sector_id']);
                    } else {
                        $resc = $db->Execute("DELETE FROM {$db->prefix}sector_defence WHERE defence_id = ?", array($row['defence_id']));
                        db_op_result($db, $resc, __LINE__, __FILE__);
                        $resd = $db->Execute("UPDATE {$db->prefix}sector_defence SET quantity=quantity - ? WHERE defence_id = ?", array($qty, $cur['defence_id']));
                        db_op_result($db, $resd, __LINE__, __FILE__);
                        playerlog($db, $cur['ship_id'], LOG_DEFS_DESTROYED, $qty . "|" . $targetdeftype . "|" . $row['sector_id']);
                        playerlog($db, $row['ship_id'], LOG_DEFS_DESTROYED, $qty . "|" . $deftype . "|" . $row['sector_id']);
                        $qty = 0;
                    }
                    $result2->MoveNext();
                }
            }
            $result1->MoveNext();
        }
        $rese = $db->Execute("DELETE FROM {$db->prefix}sector_defence WHERE quantity <= 0");
        db_op_result($db, $rese, __LINE__, __FILE__);
    }
}

function kick_off_planet($db, $ship_id, $whichteam)
{
    $result1 = $db->Execute("SELECT * FROM {$db->prefix}planets WHERE owner = ?", array($ship_id));
    db_op_result($db, $result1, __LINE__, __FILE__);
    if ($result1 instanceof ADORecordSet) {
        while (!$result1->EOF) {
            $row = $result1->fields;
            $result2 = $db->Execute("SELECT * FROM {$db->prefix}ships WHERE on_planet = 'Y' AND planet_id = ? AND ship_id <> ?", array($row['planet_id'], $ship_id));
            db_op_result($db, $result2, __LINE__, __FILE__);
            if ($result2 instanceof ADORecordSet) {
                while (!$result2->EOF) {
                    $cur = $result2->fields;
                    $resa = $db->Execute("UPDATE {$db->prefix}ships SET on_planet = 'N',planet_id = '0' WHERE ship_id=?", array($cur['ship_id']));
                    db_op_result($db, $resa, __LINE__, __FILE__);
                    playerlog($db, $cur['ship_id'], LOG_PLANET_EJECT, $cur['sector'] . "|" . $row['character_name']);
                    $result2->MoveNext();
                }
            }
            $result1->MoveNext();
        }
    }
}

						$logentry = $logentry."The booming voice speaks again: 'Excellent! We see that you have enough credits to repay the loan. Now why did you make us come all this way?'\n";
						$newsentry = $newsentry.". Thankfully, $playerinfo[character_name] was able to pay them off - phew!";
					}
				}
				//$newsentry = $newsentry.".";				
			} else {
				$logentry = $logentry." The huge ship then vanishes!";
			}
		} else {
			$logentry = "The IGB automatically paid off your loan with your IGB balance.";
		}
		//echo "<hr>LOG ENTRY = $logentry<br>News Entry = $newsentry<br><hr>";
		if ($logentry != "") {
			//echo "Entering log for $playerinfo[player_id] name $playerinfo[character_name]<br>";
			$logentry = addslashes($logentry);
			playerlog($playerinfo[player_id],LOG_RAW,$logentry);
		}
		if ($newsentry != "") {
			$headline = addslashes("IGB takes action on deadbeat ".$playerinfo[character_name]);
			$player_id = $playerinfo[player_id];
			$newstext=addslashes($newsentry);
			$news = $db->Execute("INSERT INTO $dbtables[news] (headline, newstext, user_id, date, news_type) VALUES ('$headline','$newstext','$player_id',NOW(), 'IGB')");
		}
		//echo "Loan is now ".NUMBER($account[loan])."<br>";					
		$account[balance] = -$account[loan]; // Put back the difference
		$account[loan] = 0;
		if ($account[balance]<0) {
			$account[balance] = 0;
		}
		//echo "Balance is now ".NUMBER($account[balance])."<br>";
		//echo "Setting bank account. Balance =".NUMBER($account[balance])."  Loan=".NUMBER($account[loan])."....";

<?


include("config.php");
include("languages/$lang");
$title = "Logout";

setcookie("username","",0);
setcookie("password","",0);

include("header.php");

connectdb();

$result = $db->Execute("SELECT * FROM $dbtables[players] WHERE email='$username'");
$playerinfo = $result->fields;

$current_score = gen_score($playerinfo[player_id]);
playerlog($playerinfo[player_id], LOG_LOGOUT, $ip);

bigtitle();
echo "$l_logout_score ".NUMBER($current_score).".<BR>";
$l_logout_text=str_replace("[name]",$username,$l_logout_text);
echo $l_logout_text;

include("footer.php");

?>

			  case "sectorwmd":
				 {
				 	if ($shipinfo[dev_sectorwmd] == 'Y' && $shipinfo[dev_genesis] > 0) {
						$db->Execute("UPDATE $dbtables[players] SET cleared_defences = ' ' WHERE player_id = $playerinfo[player_id]");
						$ok = 1;
						$db->Execute("UPDATE $dbtables[ships] SET dev_genesis=dev_genesis-1 WHERE player_id = $playerinfo[player_id] AND ship_id = $playerinfo[currentship]");
						// Destroy fighters
						$fighterslost = $total_sector_fighters;
						$l_sf_sendlog = str_replace("[player]", $playerinfo[character_name], $l_sf_sendlog);
						$l_sf_sendlog = str_replace("[lost]", NUMBER($fighterslost), $l_sf_sendlog);
						$l_sf_sendlog = str_replace("[sector]", $sector, $l_sf_sendlog);
						echo "<h1>Sector WMD Attack</h1>";
						echo "You obliterate ".NUMBER($fighterslost)." sector defense fighters!<br>";
						destroy_fighters($sector,$fighterslost);
						message_defence_owner($sector,$l_sf_sendlog);
						playerlog($playerinfo[player_id], LOG_DEFS_DESTROYED_F, NUMBER($fighterslost)."|$sector");
					} else {
						$ok = 0;
					}
				}
				break;
              default:
                 $interface_string = $calledfrom . '?sector='.$sector.'&destination='.$destination.'&engage='.$engage;
                 $db->Execute("UPDATE $dbtables[players] SET cleared_defences = '$interface_string' WHERE player_id = $playerinfo[player_id]");
                 $fighterstoll = $total_sector_fighters * $fighter_price * 0.6;
                 bigtitle();
				 $ok=0;
				 echo "<!-- DEBUG2: OK=$ok-->";
                 echo "<FORM ACTION=$calledfrom METHOD=POST>";
                 $l_chf_therearetotalfightersindest = str_replace("[chf_total_sector_fighters]", NUMBER($total_sector_fighters), $l_chf_therearetotalfightersindest);
                 echo "$l_chf_therearetotalfightersindest<br>";

               echo "$l_chm_youlostallyourshields<BR>";
               $mines_left = $mines_left - $playershields;
               if($shipinfo[armour_pts] >= $mines_left)
               {
                  $l_chm_yourarmorhitforminesdmg = str_replace("[chm_mines_left]", $mines_left, $l_chm_yourarmorhitforminesdmg);
                  echo "$l_chm_yourarmorhitforminesdmg<BR>";
                  $result2 = $db->Execute("UPDATE $dbtables[ships] set armour_pts=armour_pts-$mines_left,ship_energy=0,dev_minedeflector=0 where player_id=$playerinfo[player_id] AND ship_id=$playerinfo[currentship]");
                  if($shipinfo[armour_pts] == $mines_left)
                     echo "$l_chm_yourhullisbreached<BR>";
               }
               else
               {
                  // BOOM
                  $pod = $shipinfo[dev_escapepod];

                  playerlog($playerinfo[player_id], LOG_SHIP_DESTROYED_MINES, "$sector|$pod");
                  $l_chm_hewasdestroyedbyyourmines = str_replace("[chm_playerinfo_character_name]", $playerinfo[character_name], $l_chm_hewasdestroyedbyyourmines);
                  $l_chm_hewasdestroyedbyyourmines = str_replace("[chm_sector]", $sector, $l_chm_hewasdestroyedbyyourmines);
                  
                  $killer_id = message_defence_owner($sector,"$l_chm_hewasdestroyedbyyourmines");

                  echo "$l_chm_yourshiphasbeendestroyed<BR><BR>";

                  // Live...

                  if($shipinfo[dev_escapepod] == "Y")

                  {
                     $rating=round($playerinfo[rating]/2);
                     echo "$l_chm_luckescapepod<BR><BR>";
                     $db->Execute("UPDATE $dbtables[players] SET on_planet='N',rating='$rating',cleared_defences=' ' WHERE player_id=$playerinfo[player_id] ");

                echo "<td>{$sc_dev_emerwarp}</td></tr>";
            } else {
                echo "<td>???</td></tr>";
            }
            echo "<tr><td>{$l_escape_pod}:</td>";
            $roll = mt_rand(1, 100);
            if ($roll < $success) {
                echo "<td>{$targetinfo['dev_escapepod']}</td></tr>";
            } else {
                echo "<td>???</td></tr>";
            }
            echo "<tr><td>{$l_fuel_scoop}:</td>";
            $roll = mt_rand(1, 100);
            if ($roll < $success) {
                echo "<td>{$targetinfo['dev_fuelscoop']}</td></tr>";
            } else {
                echo "<td>???</td></tr>";
            }
            echo "</table><br>";
            playerlog($db, $targetinfo['ship_id'], LOG_SHIP_SCAN, "{$playerinfo['character_name']}");
        }
        $resx = $db->Execute("UPDATE {$db->prefix}ships SET turns=turns-1,turns_used=turns_used+1 WHERE ship_id=?", array($playerinfo['ship_id']));
        db_op_result($db, $resx, __LINE__, __FILE__, $db_logging);
    }
}
echo "<br><br>";
TEXT_GOTOMAIN();
?>
</div></div>
<?php 
include "footer.php";

if (isset($_GET['sure'])) {
    $sure = $_GET['sure'];
}
if (!isset($sure)) {
    echo "<font color=red><strong>{$l_die_rusure}</strong></font><br><br>";
    echo "Please Note: You will loose all your Planets if you Self-Destruct!.<br>\n";
    echo "<a href='main.php'>{$l_die_nonono}</a> {$l_die_what}<br><br>";
    echo "<a href=self_destruct.php?sure=1>{$l_yes}!</a> {$l_die_goodbye}<br><br>";
} elseif ($sure == 1) {
    echo "<font color=red><strong>{$l_die_check}</strong></font><br><br>";
    echo "Please Note: You will loose all your Planets if you Self-Destruct!.<br>\n";
    echo "<a href='main.php'>{$l_die_nonono}</a> {$l_die_what}<br><br>";
    echo "<a href=self_destruct.php?sure=2>{$l_yes}!</a> {$l_die_goodbye}<br><br>";
} elseif ($sure == 2) {
    echo "{$l_die_count}<br>";
    echo "{$l_die_vapor}<br><br>";
    $l_die_please = str_replace("[logout]", "<a href='logout.php'>" . $l_logout . "</a>", $l_die_please);
    echo $l_die_please . "<br>";
    db_kill_player($playerinfo['ship_id'], true);
    cancel_bounty($db, $playerinfo['ship_id']);
    adminlog($db, LOG_ADMIN_HARAKIRI, "{$playerinfo['character_name']}|{$ip}");
    playerlog($db, $playerinfo['ship_id'], LOG_HARAKIRI, "{$ip}");
    echo "Due to nobody looking after your Planets, all your Planets have reduced into dust and ruble. Your Planets are no more.<br>\n";
} else {
    echo $l_die_exploit . "<br><br>";
}
TEXT_GOTOMAIN();
?>
</div></div>
<?php 
include "footer.php";

$res = $db->Execute("SELECT $dbtables[players].player_id,character_name,hull,$dbtables[ships].sector,$dbtables[universe].zone_id,max_hull,tow,ship_id FROM $dbtables[players],$dbtables[universe],$dbtables[zones],$dbtables[ships] WHERE $dbtables[ships].sector=sector_id AND $dbtables[universe].zone_id=$dbtables[zones].zone_id AND max_hull<>0 AND (($dbtables[ships].hull + $dbtables[ships].engines + $dbtables[ships].power + $dbtables[ships].computer + $dbtables[ships].sensors + $dbtables[ships].beams + $dbtables[ships].torp_launchers + $dbtables[ships].shields + $dbtables[ships].armour + $dbtables[ships].cloak)/10) >max_hull AND ship_destroyed='N' AND ship_id=currentship");
$num_to_tow = $res->RecordCount();
echo "<BR>$num_to_tow players to tow:<BR>";
      while(!$res->EOF)
      {
        $row = $res->fields;
		if ($row[player_id] > 1) {
			echo "...towing $row[character_name] out of $row[sector] ...";
			$newsector = rand(0, $sector_max);
			echo " to sector $newsector.<BR>";
			echo "Moving player<br>";
			//echo "UPDATE $dbtables[players] SET sector=$newsector,cleared_defences=' ' where player_id=$row[player_id]<br>";
			$query = $db->Execute("UPDATE $dbtables[players] SET sector=$newsector,cleared_defences=' ' where player_id=$row[player_id]");
			echo "Moving ship<br>";
			//echo "UPDATE $dbtables[ships] SET sector=$newsector where ship_id=$row[ship_id]<br>";
			$query = $db->Execute("UPDATE $dbtables[ships] SET sector=$newsector where ship_id=$row[ship_id]");
			if ($row[tow] > 0) {
				echo "Moving towed ship<br>";
				//echo "UPDATE $dbtables[ships] SET sector=$newsector where ship_id=$row[tow]";
				$query = $db->Execute("UPDATE $dbtables[ships] SET sector=$newsector where ship_id=$row[tow]");
			}
			playerlog($row[player_id], LOG_TOW, "$row[sector]|$newsector|$row[max_hull]");
			log_move($row[player_id],$newsector);
		}
        $res->MoveNext();
      }
  echo "<BR>";
  
  $multiplier = 0; //no use to run this again
?>

   			echo "<INPUT TYPE=SUBMIT VALUE=$l_submit><INPUT TYPE=RESET VALUE=$l_reset>";
   			echo "</FORM>";
   			echo "<BR><BR>";
   		} else {
   		        $teamname = htmlspecialchars($teamname);
                        $teamdesc = htmlspecialchars($teamdesc);
   	                $res = $db->Execute("UPDATE $dbtables[teams] SET team_name='$teamname', description='$teamdesc' WHERE id=$whichteam") or die("<font color=red>error: " . $db->ErrorMSG() . "</font>");
   			echo "$l_team_alliance <B>$teamname</B> $l_team_hasbeenr<BR><BR>";
   			/*
   			   Adding a log entry to all members of the renamed alliance
   			*/
   		   $result_team_name = $db->Execute("SELECT player_id FROM $dbtables[players] WHERE team=$whichteam AND player_id<>$playerinfo[player_id]") or die("<font color=red>error: " . $db->ErrorMsg() . "</font>");
   			playerlog($playerinfo[player_id], LOG_TEAM_RENAME, decodeHTML($teamname));
   			while(!$result_team_name->EOF) {
          $teamname_array = $result_team_name->fields;
   			   playerlog($teamname_array[player_id], LOG_TEAM_M_RENAME, decodeHTML($teamname));
                           $result_team_name->MoveNext();
            }
     		}
   		LINK_BACK();
   		break;
	   }
	   else
	   {
   		echo $l_team_error;
   		LINK_BACK();
   		break;
	   }
	case 10: // Retract Invite
    if ($playerinfo[team] == $team[id])
    {

elseif($sure == 1)
{
  echo "<FONT COLOR=RED><B>$l_die_check</B></FONT><BR><BR>";
  echo "<A HREF=$interface>$l_die_nonono</A> $l_die_what<BR><BR>";
  echo "<H1>Self-destructing has a 1500 turn penalty!</H1>";
  echo "<A HREF=self-destruct.php?sure=2>$l_yes!</A> $l_die_goodbye AND LOOSE 1500 TURNS!!!!!<BR><BR>";
}
elseif($sure == 2)
{
  echo "$l_die_count<BR>";
  echo "$l_die_vapor<BR><BR>";
  echo "$l_die_please.<BR>";
  db_kill_player($playerinfo[player_id],$playerinfo[currentship],-2);
  cancel_bounty($playerinfo[player_id]);
  playerlog(1, LOG_ADMIN_HARAKIRI, "$playerinfo[character_name]|$ip");
  playerlog($playerinfo[player_id], LOG_HARAKIRI, "$ip");
}
else
{
  echo "$l_die_exploit<BR><BR>";
}

if($sure != 2)
{
  TEXT_GOTOMAIN();
}

include("footer.php");

?>

function xenobehunter()
{
    // Setup general Variables
    global $playerinfo, $targetlink, $xenobeisdead, $db;
    $rescount = $db->Execute("SELECT COUNT(*) AS num_players FROM {$db->prefix}ships WHERE ship_destroyed='N' AND email NOT LIKE '%@xenobe' AND ship_id > 1");
    db_op_result($db, $rescount, __LINE__, __FILE__);
    $rowcount = $rescount->fields;
    $topnum = min(10, $rowcount['num_players']);
    // If we have killed all the players in the game then stop here.
    if ($topnum < 1) {
        return;
    }
    $res = $db->Execute("SELECT * FROM {$db->prefix}ships WHERE ship_destroyed='N' AND email NOT LIKE '%@xenobe' AND ship_id > 1 ORDER BY score DESC LIMIT ?", array($topnum));
    db_op_result($db, $res, __LINE__, __FILE__);
    // Choose a target from the top player list
    $i = 1;
    $targetnum = mt_rand(1, $topnum);
    while (!$res->EOF) {
        if ($i == $targetnum) {
            $targetinfo = $res->fields;
        }
        $i++;
        $res->MoveNext();
    }
    // Make sure we have a target
    if (!$targetinfo) {
        playerlog($db, $playerinfo[ship_id], LOG_RAW, "Hunt Failed: No Target ");
        return;
    }
    // Jump to target sector
    $sectres = $db->Execute("SELECT sector_id, zone_id FROM {$db->prefix}universe WHERE sector_id=?", array($targetinfo['sector']));
    db_op_result($db, $sectres, __LINE__, __FILE__);
    $sectrow = $sectres->fields;
    $zoneres = $db->Execute("SELECT zone_id,allow_attack FROM {$db->prefix}zones WHERE zone_id=?", array($sectrow['zone_id']));
    db_op_result($db, $zoneres, __LINE__, __FILE__);
    $zonerow = $zoneres->fields;
    // Only travel there if we can attack in the target sector
    if ($zonerow['allow_attack'] == "Y") {
        $stamp = date("Y-m-d H-i-s");
        $move_result = $db->Execute("UPDATE {$db->prefix}ships SET last_login=?, turns_used=turns_used+1, sector=? WHERE ship_id=?", array($stamp, $targetinfo['sector'], $playerinfo['ship_id']));
        db_op_result($db, $move_result, __LINE__, __FILE__);
        playerlog($db, $playerinfo[ship_id], LOG_RAW, "Xenobe used a wormhole to warp to sector {$targetinfo['sector']} where he is hunting player {$targetinfo['character_name']}.");
        if (!$move_result) {
            $error = $db->ErrorMsg();
            playerlog($db, $playerinfo[ship_id], LOG_RAW, "Move failed with error: {$error} ");
            return;
        }
        // Check for sector defences
        $resultf = $db->Execute("SELECT * FROM {$db->prefix}sector_defence WHERE sector_id=? AND defence_type ='F' ORDER BY quantity DESC", array($targetinfo['sector']));
        db_op_result($db, $resultf, __LINE__, __FILE__);
        $i = 0;
        $total_sector_fighters = 0;
        if ($resultf > 0) {
            while (!$resultf->EOF) {
                $defences[$i] = $resultf->fields;
                $total_sector_fighters += $defences[$i]['quantity'];
                $i++;
                $resultf->MoveNext();
            }
        }
        $resultm = $db->Execute("SELECT * FROM {$db->prefix}sector_defence WHERE sector_id=? AND defence_type ='M'", array($targetinfo['sector']));
        db_op_result($db, $resultm, __LINE__, __FILE__);
        $i = 0;
        $total_sector_mines = 0;
        if ($resultm > 0) {
            while (!$resultm->EOF) {
                $defences[$i] = $resultm->fields;
                $total_sector_mines += $defences[$i]['quantity'];
                $i++;
                $resultm->MoveNext();
            }
        }
        if ($total_sector_fighters > 0 || $total_sector_mines > 0 || $total_sector_fighters > 0 && $total_sector_mines > 0) {
            // Attack sector defences
            $targetlink = $targetinfo['sector'];
            xenobetosecdef();
        }
        if ($xenobeisdead > 0) {
            return;
            // Sector defenses killed the Xenobe
        }
        playerlog($db, $playerinfo[ship_id], LOG_RAW, "Xenobe launching an attack on {$targetinfo['character_name']}.");
        // Attack the target
        if ($targetinfo['planet_id'] > 0) {
            xenobetoplanet($targetinfo['planet_id']);
            // Yes, so move to that planet
        } else {
            xenobetoship($targetinfo['ship_id']);
            // Not on a planet, so move to the ship
        }
    } else {
        playerlog($db, $playerinfo[ship_id], LOG_RAW, "Xenobe hunt failed, target {$targetinfo['character_name']} was in a no attack zone (sector {$targetinfo['sector']}).");
    }
}

              // Furangee's only compare number of fighters when determining if they have an attack advantage
              if ($playerinfo[ship_fighters] > $rowo3[ship_fighters] && $rowo3[planet_id] == 0)
              {
                $furcount3a++;
                playerlog($playerinfo[player_id], LOG_FURANGEE_ATTACK, "$rowo3[character_name]");
                furangeetoship($rowo3[player_id]);
                if ($furangeeisdead>0) {
                  $res->MoveNext();
                  continue;
                }
              }
            }
            elseif ($playerinfo[aggression] == 2)        // ****** O = 3 & AGRESSION = 2 ATTACK ALLWAYS ******
            {
              $furcount3a++;
              playerlog($playerinfo[player_id], LOG_FURANGEE_ATTACK, "$rowo3[character_name]");
              if (!$rowo3[planet_id] == 0) {              // *** IS ON PLANET ***
                furangeetoplanet($rowo3[planet_id]);
              } else {
                furangeetoship($rowo3[player_id]);
              }
              if ($furangeeisdead>0) {
                $res->MoveNext();
                continue;
              }
            }
          }
        }
	  }
      // *********************************
      // *** ORDERS = 4 SPECIAL TRADER ***

	if ($result>0)
	{
  		while (!$result->EOF && $flag==0)
  		{
    	$row = $result->fields;
    	if (strtolower($row[email])==strtolower($username)) { echo "$l_new_inuse  $l_new_4gotpw1 <a href=mail.php?mail=$username>$l_clickme</a> $l_new_4gotpw2<BR>"; $flag=1;}
    	if (strtolower($row[character_name])==strtolower($character)) { echo "$l_new_inusechar<BR>"; $flag=1;}
    	if (strtolower($row[ship_name])==strtolower($shipname)) { echo "$l_new_inuseship<BR>"; $flag=1;}
		if ($row[ip_address]==$ip) {
			// Check to see if this person is playing on a device
			$browser="hiptop";
			if ($browser != "hiptop" && $browser !="treo") {
				$flag=1;
				echo "In order to prevent multiple account play we restrict account creation under certain circumstances.<br>This is one of them.<br>If you are not trying to create multiple accounts then we are sorry, but game slots for your network are full. Please try another time.<br>";
				echo "<b>Suspected multiple account creation attempt logged. Forum posting pending...</b><br>";
				playerlog(1,LOG_RAW,"Suspected multiple account creation attempt logged from $ip. Offender is $row[character_name] email $row[email]. They tried to register $character with email address $username.");
			}
		}
    	$result->MoveNext();
  	}
}

if ($flag==0)
{
  /* insert code to add player to database */
  $makepass="";
  $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);
  srand((double)microtime()*1000000);
  for ($count=1;$count<=2;$count++) {
    if (rand()%10 == 1) {

      echo "<tr><td>$l_ewd:</td>";
      $roll=rand(1,100);
      if ($roll<$success)
      {
        $sc_dev_emerwarp=round($targetinfo[dev_emerwarp] * $sc_error / 100);
        echo "<td>$sc_dev_emerwarp</td></tr>";
      }
      else {echo"<td>???</td></tr>";}
      echo "<tr><td>$l_escape_pod:</td>";
      $roll=rand(1,100);
      if ($roll<$success)
        {echo "<td>$targetinfo[dev_escapepod]</td></tr>";} else {echo"<td>???</td></tr>";}
      echo "<tr><td>$l_fuel_scoop:</td>";
      $roll=rand(1,100);
      if ($roll<$success)
        {echo "<td>$targetinfo[dev_fuelscoop]</td></tr>";} else {echo"<td>???</td></tr>";}
      echo "</table><BR>";
      playerlog($targetinfo[player_id], LOG_SHIP_SCAN, "$playerinfo[character_name]");
    }

    $db->Execute("UPDATE $dbtables[players] SET turns=turns-1,turns_used=turns_used+1 WHERE player_id=$playerinfo[player_id]");
  }
}


echo "<BR><BR>";
TEXT_GOTOMAIN();

include("footer.php");
?>

    db_op_result($sessvars, __LINE__, __FILE__);
    $vars = $sessvars->fields;
    if ($playerinfo['password'] == $md5password & $playerinfo['admin'] > 1) {
        $_SESSION['clanid'] = $vars['clanid'];
        $_SESSION['chiefname'] = $vars['chiefname'];
        $_SESSION['current_unit'] = $vars['current_unit'];
        $_SESSION['tooltip'] = $vars['tooltip'];
        echo "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL=main.php?id=" . $vars['current_unit'] . "\">";
        $stamp = date("Y-m-d H:i:s");
        $gmtime = array();
        $gmtime = get_game_time($gmtime);
        $month = $gmtime['month'];
        $year = $gmtime['year'];
        $day = $gmtime['day'];
        $data = "server closed Login of {$vars['chiefname']} at {$stamp}";
        playerlog($vars['current_unit'], $vars['clanid'], 'LOGIN', $month['count'], $year['count'], $data, $dbtables);
    } else {
        page_header("Login Pass On");
        $title = "Server Closed";
        bigtitle();
        echo "Please stand by. We're doing something just now. Shouldn't be a moment.<BR>";
        echo "If you want, you can hang out and chat <A HREF={$link_forums}>here</A>.<BR>";
        TEXT_GOTOLOGIN();
    }
} else {
    page_header("Login Pass On");
    $title = "Login Failed";
    bigtitle();
    echo "Username or Password incorrect. Click <a href=index.php>here</a> to try again.<br>Or click <a href=new.php>here</a> if you are a new chief <p><br>";
}
page_footer();