fixed bug in itemsum and in actions count

Irpg/Action.pm

@@ -21,10 +21,6 @@ my $rps;
 =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}};
-    }
 }
 
 
@@ -53,7 +49,7 @@ sub itemsum {
     }
     if (!exists($rps->{$user})) { return -1; }
     #$sum += int($rps->{$user}{item}{$_}) for keys(%{$rps->{$user}{item}});
-    $sum += int foreach map { m/(\d+).*/ } values(%{$rps->{$user}{item}});
+    $sum += int foreach map { m/(\d+)\D?/ } 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) :
@@ -487,7 +483,6 @@ sub consume_action {
     return unless (exists($rps->{$player}));
     $rps->{$player}{actions}--;
     push $rps->{$player}{next_a}, 3600;
-    Irpg::Utils::execute_delayed(3600, \&new_action, $player);
 }
 
 sub new_action {

Irpg/Main.pm

@@ -318,8 +318,6 @@ sub rpcheck { # check levels, update database
             @{$rps->{$k}{next_a}} = grep { $_ > 0 }
                                     map { $_ - ($curtime - $$lasttime_ref) }
                                     @{$rps->{$k}{next_a}};
-            #$rps->{$k}{next_a} -= ($curtime - $$lasttime_ref);
-            #$rps->{$k}{next_a} = 0 if ($rps->{$k}{next_a} < 0);
             $rps->{$k}{idled} += ($curtime - $$lasttime_ref);
             if ($rps->{$k}{next} < 1) {
                 $rps->{$k}{level}++;