EvilChase fix

fix evilchase which were not happening
add a limitation of only one time out of five

Irpg/Event.pm

@@ -389,17 +389,18 @@ sub evilchase {
     my @opps = ();
     for (my $x = $x_pos-3; $x <= $x_pos+3; $x++) {
         for (my $y = $y_pos-3; $y <= $y_pos+3; $y++) {
-            if (exists($positions->{x}{y}) &&
-                $positions->{x}{y}{user} ne $player) {
-                push @opps, $positions->{x}{y}{user};
+            if (exists($positions->{$x}{$y}) &&
+                $positions->{$x}{$y}{user} ne $player) {
+                push @opps, $positions->{$x}{$y}{user};
             }
         }
     }
-    return unless (@opps);
+    return unless (@opps && rand(5) < 1);
     my $opp = $opps[int(rand(@opps))];
-    Irpg::Irc::chanmsg("$player, full of hatred and disdain for ".
+    Irpg::Irc::chanmsg(Irpg::Utils::clog(
+		"$player, full of hatred and disdain for ".
         pronoun(2, $rps->{$player}{gender})." kind, has chased ".
-        "after $opp who passed by.");
+        "after $opp who passed by."));
     collision_action($player, $opp);
 }