my $findid = $dbh->prepare(q{SELECT planetid(?,?,?,tick())});
my ($id) = $dbh->selectrow_array($findid,undef,$x,$y,$z);
$dbh->begin_work;
my $findid = $dbh->prepare(q{SELECT planetid(?,?,?,tick())});
my ($id) = $dbh->selectrow_array($findid,undef,$x,$y,$z);
$dbh->begin_work;
-SELECT nick, id, alliance_id FROM planets WHERE id = planetid(?,?,?,tick())
+SELECT nick, pid, alliance FROM planets WHERE pid = planetid(?,?,?,tick())
});
my $planet = $dbh->selectrow_hashref($findid,undef,$x,$y,$z);
});
my $planet = $dbh->selectrow_hashref($findid,undef,$x,$y,$z);
- $dbh->do(q{UPDATE planets SET nick = $1 WHERE id = $2}
- ,undef,$nick,$planet->{id});
+ $dbh->do(q{UPDATE planets SET nick = $1 WHERE pid = $2}
+ ,undef,$nick,$planet->{pid});
if ($planet->{nick}){
$c->reply("$x:$y:$z nick has been changed from <b>$planet->{nick}</b> to <b>$nick</b>");
}else{
$c->reply("$x:$y:$z nick has been set to $nick");
}
if ($planet->{nick}){
$c->reply("$x:$y:$z nick has been changed from <b>$planet->{nick}</b> to <b>$nick</b>");
}else{
$c->reply("$x:$y:$z nick has been set to $nick");
}
});
my ($id,$alliance,$alliance_id) = $dbh->selectrow_array($findid,undef,$x,$y,$z);
unless ($id){
});
my ($id,$alliance,$alliance_id) = $dbh->selectrow_array($findid,undef,$x,$y,$z);
unless ($id){
my ($x,$y,$z,$channel) = $msg =~ /^(\d+)\D(\d+)\D(\d+) (\S+)$/ or die 'ARGS';
my $dbh = $c->model;
my ($x,$y,$z,$channel) = $msg =~ /^(\d+)\D(\d+)\D(\d+) (\S+)$/ or die 'ARGS';
my $dbh = $c->model;
WHERE x = ? AND y = ? and z = ?});
my ($id,$oc) = $dbh->selectrow_array($findid,undef,$x,$y,$z);
if ($channel ~~ $oc){
$c->reply("$x:$y:$z already got $oc as channel");
}elsif($id){
$dbh->begin_work;
WHERE x = ? AND y = ? and z = ?});
my ($id,$oc) = $dbh->selectrow_array($findid,undef,$x,$y,$z);
if ($channel ~~ $oc){
$c->reply("$x:$y:$z already got $oc as channel");
}elsif($id){
$dbh->begin_work;