my $findid = $ND::DBH->prepare_cached(q{SELECT nick, id FROM planets
WHERE id = planetid(?,?,?,tick())});
my ($oldnick,$id) = $ND::DBH->selectrow_array($findid,undef,$x,$y,$z);
my $findid = $ND::DBH->prepare_cached(q{SELECT nick, id FROM planets
WHERE id = planetid(?,?,?,tick())});
my ($oldnick,$id) = $ND::DBH->selectrow_array($findid,undef,$x,$y,$z);
,undef,$nick,$id)){
unless (defined $oldnick){
$ND::server->command("msg $ND::target $x:$y:$z nick has been set to $ND::B$nick");
,undef,$nick,$id)){
unless (defined $oldnick){
$ND::server->command("msg $ND::target $x:$y:$z nick has been set to $ND::B$nick");
$ND::server->command("msg $ND::target $x:$y:$z nick has been changed from $ND::B$oldnick$ND::B to $ND::B$nick");
}
intel_log $user->{uid},$id,"Set nick to: $nick";
$ND::server->command("msg $ND::target $x:$y:$z nick has been changed from $ND::B$oldnick$ND::B to $ND::B$nick");
}
intel_log $user->{uid},$id,"Set nick to: $nick";
($aid,$ally) = $ND::DBH->selectrow_array("SELECT id,name FROM alliances WHERE name ILIKE ?",undef,$ally);
}
if ($ally){
($aid,$ally) = $ND::DBH->selectrow_array("SELECT id,name FROM alliances WHERE name ILIKE ?",undef,$ally);
}
if ($ally){
WHERE x = ? AND y = ? and z = ?});
my ($id,$alliance) = $ND::DBH->selectrow_array($findid,undef,$x,$y,$z);
WHERE x = ? AND y = ? and z = ?});
my ($id,$alliance) = $ND::DBH->selectrow_array($findid,undef,$x,$y,$z);