X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=check.pl;h=788e93887fd25dee5b3ad2e12bca38a1004f9604;hb=2786d1732fb6a4f729db332b49766e0f86e574be;hp=9112aa21982b1bc9000c4c01aa6aeca9f9dd708c;hpb=d01a291b696be6998db7ea2e9e37e790b529d43f;p=ndwebbie.git

diff --git a/check.pl b/check.pl
index 9112aa2..788e938 100644
--- a/check.pl
+++ b/check.pl
@@ -74,6 +74,7 @@ if (defined $z){
 }
 my @planets;
 my $planet_id = undef;
+my $i = 0;
 while (my ($id,$coords,$planet,$race,$size,$score,$value,$xp,$sizerank,$scorerank,$valuerank,$xprank
 		,$fleetvalue,$resvalue,$planet_status,$hit_us,$alliance,$relationship,$nick) = $query->fetchrow){
 	$planet_id = $id;
@@ -91,6 +92,8 @@ while (my ($id,$coords,$planet,$race,$size,$score,$value,$xp,$sizerank,$scoreran
 			$LOG->execute($ND::UID,"BC browsing ND planet $coords tick $ND::TICK");
 		}
 	}
+	$i++;
+	$planet{ODD} = $i % 2;
 	push @planets,\%planet;
 }
 $BODY->param(Planets => \@planets);