- }elsif(defined $z){
- my $planets = $DBH->prepare(q{SELECT id, tick,size,coords(x,y,z),score,size,value,xp,scorerank,sizerank,valuerank,xprank from planets natural join planet_stats where id = planetid($1,$2,$3,$4) ORDER BY tick ASC});
- $planets->execute($x,$y,$z,$ND::TICK) or die $DBH->errstr;
-
- my @score;
- my @size;
- my @value;
- my @xp;
- my @ticks;
-
- while (my $tick = $planets->fetchrow_hashref){
- push @ticks,$tick->{tick};