my ($id) = $DBH->selectrow_array($findplanet,undef,$1,$2,$3) or $ND::ERROR .= p $DBH->errstr;
if ($addplanet->execute($id,$alliance->{id},$4)){
my $nick = '';
my ($id) = $DBH->selectrow_array($findplanet,undef,$1,$2,$3) or $ND::ERROR .= p $DBH->errstr;
if ($addplanet->execute($id,$alliance->{id},$4)){
my $nick = '';