… | … | ||
---|---|---|---|
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 | ||
… | … | ||
46 | } | 46 | } |
47 | 47 | ||
48 | 1 | 48 | 1 |
49 | } | 49 | } |
50 | 50 | ||
51 | |||
52 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |