… | … | ||
---|---|---|---|
3 | NPC_Dialogue | 3 | NPC_Dialogue |
4 | 4 | ||
5 | =head1 DESCRIPTION | 5 | =head1 DESCRIPTION |
6 | 6 | ||
7 | NPC dialogue support module. | 7 | NPC dialogue support module. |
8 | |||
9 | =over 4 | ||
8 | 10 | ||
9 | =cut | 11 | =cut |
10 | 12 | ||
11 | package NPC_Dialogue; | 13 | package NPC_Dialogue; |
12 | 14 | ||
… | … | ||
25 | $_[0] | 27 | $_[0] |
26 | } | 28 | } |
27 | 29 | ||
28 | sub new { | 30 | sub new { |
29 | my ($class, %arg) = @_; | 31 | my ($class, %arg) = @_; |
32 | |||
33 | $arg{ob} = $arg{pl}->ob; | ||
30 | 34 | ||
31 | my $self = bless { | 35 | my $self = bless { |
32 | %arg, | 36 | %arg, |
33 | }, $class; | 37 | }, $class; |
34 | 38 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |