From ebea1f6b8a2cd622b0915446c6a18727de9f88f4 Mon Sep 17 00:00:00 2001
From: ElTata <eltata@firemail.cc>
Date: Mon, 28 Oct 2019 14:49:44 +0100
Subject: [PATCH] no more coercion warning on itemsum
---
Irpg/Action.pm | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/Irpg/Action.pm b/Irpg/Action.pm
index 55993f0..ec9ac67 100644
--- a/Irpg/Action.pm
+++ b/Irpg/Action.pm
@@ -20,11 +20,11 @@ my $rps;
=item SCALAR (ref) - reference to the players hash
=cut
sub init_pkg {
- ($opts, $rps, $primnick_ref) = @_;
- foreach my $user (keys %$rps) {
- map { Irpg::Utils::execute_delayed($_, \&new_action, $user) }
- @{$rps->{$user}{next_a}};
- }
+ ($opts, $rps, $primnick_ref) = @_;
+ foreach my $user (keys %$rps) {
+ map { Irpg::Utils::execute_delayed($_, \&new_action, $user) }
+ @{$rps->{$user}{next_a}};
+ }
}
@@ -52,7 +52,8 @@ sub itemsum {
return $sum+1;
}
if (!exists($rps->{$user})) { return -1; }
- $sum += int($rps->{$user}{item}{$_}) for keys(%{$rps->{$user}{item}});
+ #$sum += int($rps->{$user}{item}{$_}) for keys(%{$rps->{$user}{item}});
+ $sum += int foreach map { s/(\d+).*/$1/ } values(%{$rps->{$user}{item}});
if ($battle) {
$sum = $rps->{$user}{alignment} eq 'Evil' ? int(0.5+$sum*.9) :
$rps->{$user}{alignment} eq 'Good' ? int(0.5+$sum*1.1) :
@@ -493,7 +494,7 @@ sub consume_action {
my $player = shift;
return unless (exists($rps->{$player}));
$rps->{$player}{actions}--;
- push $rps->{$player}{next_a}, 3600;
+ push $rps->{$player}{next_a}, 3600;
Irpg::Utils::execute_delayed(3600, \&new_action, $player);
}
--
GitLab