sub calcXp {
my ($x,$y,$z,$roids,$cap) = @_;
sub calcXp {
my ($x,$y,$z,$roids,$cap) = @_;
my ($avalue,$ascore) = $ND::DBH->selectrow_array(q{
SELECT value,score FROM current_planet_stats WHERE
id = (SELECT planet FROM users WHERE hostmask ILIKE ?);
my ($avalue,$ascore) = $ND::DBH->selectrow_array(q{
SELECT value,score FROM current_planet_stats WHERE
id = (SELECT planet FROM users WHERE hostmask ILIKE ?);