From 16d4def11eb92454f56bcdae8a9362424db15a7e Mon Sep 17 00:00:00 2001
From: ElTata <eltata@firemail.cc>
Date: Wed, 3 Jun 2020 15:16:33 +0200
Subject: [PATCH] EvilChase fix
fix evilchase which were not happening
add a limitation of only one time out of five
---
Irpg/Event.pm | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/Irpg/Event.pm b/Irpg/Event.pm
index bd489c5..e04eed2 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);
}
--
GitLab