| … | … | ||
|---|---|---|---|
| 70 | 70 | ||
| 71 | if (my $queue = $self->{queue}) { | 71 | if (my $queue = $self->{queue}) { |
| 72 | my $count = 4; | 72 | my $count = 4; |
| 73 | 73 | ||
| 74 | while (@$queue) { | 74 | while (@$queue) { |
| 75 | my $i = int rand @$queue; | 75 | my $i = cf::rndm scalar @$queue; |
| 76 | my $ob = splice @$queue, $i, 1, (); | 76 | my $ob = splice @$queue, $i, 1, (); |
| 77 | 77 | ||
| 78 | next if $ob->{visible}; | 78 | next if $ob->{visible}; |
| 79 | 79 | ||
| 80 | apply $ob | 80 | apply $ob |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |