- });
- my ($id,$alliance,$alliance_id) = $dbh->selectrow_array($findid,undef,$x,$y,$z);
- unless ($id){
- $c->reply("Couldn't find a planet at $x:$y:$z");
- }elsif ($alliance_id ~~ 1){
- $c->reply("$x:$y:$z is an ND planet.");
- }elsif ($alliance_id ~~ $aid){
- $c->reply("$x:$y:$z is already set to $ally");
- }else{
- $dbh->begin_work;
- $dbh->do(q{UPDATE planets SET alliance = $1 WHERE pid = $2}
- ,undef,$ally,$id);
- if (defined $alliance){
- $c->reply("Changed $x:$y:$z from <b>$alliance</b> to <b>$ally</b>");
+ });
+ my ($id,$alliance,$alliance_id) = $dbh->selectrow_array($findid,undef,$x,$y,$z);
+ unless ($id){
+ $c->reply("Couldn't find a planet at $x:$y:$z");
+ }elsif ($alliance_id ~~ 1){
+ $c->reply("$x:$y:$z is an ND planet.");
+ }elsif ($alliance_id ~~ $aid){
+ $c->reply("$x:$y:$z is already set to $ally");