+ $SoliloquiesNick = $nick;
+ $SoliloquiesCount = 1;
+ }
+}
+
+sub calculate
+{
+ for ($InterestingNumbersCache->keys ())
+ {
+ my $nick = $_;
+ my ($actions, $joins,
+ $kicks_given, $kicks_received,
+ $ops_given, $ops_taken,
+ $soliloquies) = $InterestingNumbersCache->get ($nick);
+ my $main = get_main_nick ($nick);
+
+ die unless ($main);
+
+ if (!defined ($InterestingNumbersData->{$main}))