+unless ($body =~ /Report of events in tick (\d+)/) {
+ exit 0;
+}
+
+my $tick = $1;
+
+my $message = "Tick <b>$tick</b>: *$user* <b>$coords</b> has incs\n";
+
+my $add_inc = $dbh->prepare(q{INSERT INTO incomings (call,pid,eta,amount,fleet) VALUES($1,$2,$3,$4,$5)});
+
+my $find_call = $dbh->prepare(q{
+SELECT call, count(*) AS count
+FROM calls
+ JOIN incomings i USING (call)
+WHERE uid = $1 AND landing_tick = $2
+GROUP BY call
+});
+my $add_call = $dbh->prepare(q{
+INSERT INTO calls
+ (uid,landing_tick,info)
+ VALUES($1,$2,'')
+RETURNING call
+});
+
+
+my %incs;