+for my $landing_tick (sort keys %incs) {
+ $message .= "\n> Landing tick: *$landing_tick*";
+ my $call;
+ if ($uid) {
+ my ($returning) = $dbh->selectrow_array($fleetcatch, undef, $uid, $landing_tick);
+ if ($returning > 0) {
+ $message .= "\n**THIS IS A POSSIBLE FLEETCATCH!**"
+ }
+ if (my $c = $dbh->selectrow_hashref($find_call, undef, $uid, $landing_tick)) {
+ $call = $c->{call};
+ $message .= "\n__Previously an addtional **$c->{count}** fleets landing on this tick__"
+ }
+ else
+ {
+ ($call) = $dbh->selectrow_array($add_call, undef, $uid, $landing_tick);
+ }
+ }
+ $message .= "\n```";
+ for my $i (@{$incs{$landing_tick}}) {
+ if ($uid)
+ {
+ $add_inc->execute($call, $i->{pid}, $i->{eta}, $i->{amount}, $i->{fleet});
+ }
+ $message .= "\n$i->{x}:$i->{y}:$i->{z} $i->{race} $i->{eta} $i->{amount} $i->{fleet} "
+ }
+ $message .= "```";