| … | … | ||
|---|---|---|---|
| 16 | my $num = $opt{"num_" . $ob->name} || 1; | 16 | my $num = $opt{"num_" . $ob->name} || 1; |
| 17 | 17 | ||
| 18 | for (1 .. $num) { | 18 | for (1 .. $num) { |
| 19 | my $ob = $ob->clone (0); | 19 | my $ob = $ob->clone (0); |
| 20 | 20 | ||
| 21 | $who->map->insert ($ob, $x1 + cf::rndm $opt{width}, $y1 + cf::rndm $opt{height}); | 21 | $who->map->insert ($ob, ($x1 + cf::rndm $opt{width}), ($y1 + cf::rndm $opt{height})); |
| 22 | 22 | ||
| 23 | push @{ $opt{ob} }, $ob; | 23 | push @{ $opt{ob} }, $ob; |
| 24 | } | 24 | } |
| 25 | } | 25 | } |
| 26 | 26 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |