fixed range of expovariate output

Irpg/Event.pm

@@ -180,7 +180,9 @@ sub choose_player {
 	@players = @levels{sort keys %levels};
 
     #exponential distribution on levels (lambda = 0.5)
-	@players = @{$players[-log(rand) / 0.5]};
+	my $rand_val = $#players+1;
+	$rand_val = int(-log(rand) / 0.5) while ($rand_val > $#players);
+	@players = @{$players[$rand_val]};
 	#then uniform distribution for players of the same level
 	return $players[rand(@players)];
 }