X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=intel.pl;fp=intel.pl;h=90498c29dd5307b56cfe8af6e2779956f59f3153;hb=8bd21c625add06fed135d3ce99208c7a94b44882;hp=c1beff473da2c6281a714af4d1fe9e2d4d9ed25d;hpb=75a59d56e110b1170efdb18ec629ca885026176c;p=ndwebbie.git diff --git a/intel.pl b/intel.pl index c1beff4..90498c2 100644 --- a/intel.pl +++ b/intel.pl @@ -143,9 +143,9 @@ if ($planet){ }else{ $intel->{missionclass} = $intel->{mission}; } + $i++; $intel->{ODD} = $i % 2; push @intel,$intel; - $i++; } push @intellists,{Message => 'Incoming fleets', Intel => \@intel, Origin => 1}; @@ -159,9 +159,9 @@ if ($planet){ }else{ $intel->{missionclass} = $intel->{mission}; } + $i++; $intel->{ODD} = $i % 2; push @intel,$intel; - $i++; } push @intellists,{Message => 'Outgoing Fleets', Intel => \@intel, Target => 1}; @@ -184,9 +184,9 @@ if ($planet){ }else{ $intel->{missionclass} = $intel->{mission}; } + $i++; $intel->{ODD} = $i % 2; push @intel,$intel; - $i++; } push @intellists,{Message => q{Intel where alliances doesn't match}, Intel => \@intel, Origin => 1, Target => 1}; $BODY->param(IntelLIsts => \@intellists);