+ $SoliloquiesNick = $nick;
+ $SoliloquiesCount = 1;
+ }
+}
+
+sub calculate
+{
+ for ($InterestingNumbersCache->keys ())
+ {
+ my $nick = $_;
+ my ($actions, $joins,
+ $kick_given, $kick_received,
+ $op_given, $op_taken,
+ $soliloquies) = $InterestingNumbersCache->get ($nick);
+ my $main = get_main_nick ($nick);
+
+ next unless ($main);
+ next unless (defined ($soliloquies)); # Person has not written a single line, eg. bots..
+
+ if (!defined ($InterestingNumbersData->{$main}))