… | … | ||
---|---|---|---|
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_object ($ob, $x1 + rand $opt{width}, $y1 + rand $opt{height}); | 21 | $who->map->insert ($ob, $x1 + rand $opt{width}, $y1 + rand $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 |