diff --git a/Irpg/Event.pm b/Irpg/Event.pm
index bd489c5e6353fa0b88f3484634d73b695e20538d..e04eed2c28ad8ff113e3a50a7b6147634f77908f 100644
--- a/Irpg/Event.pm
+++ b/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);
 }