… | … | ||
---|---|---|---|
8 | 8 | ||
9 | =cut | 9 | =cut |
10 | 10 | ||
11 | package NPC_Dialogue; | 11 | package NPC_Dialogue; |
12 | 12 | ||
13 | sub has_dialogue { | 13 | sub has_dialogue($) { |
14 | my ($ob) = @_; | 14 | my ($ob) = @_; |
15 | 15 | ||
16 | $ob->get_message =~ /^\@match /; | 16 | $ob->get_message =~ /^\@match /; |
17 | } | 17 | } |
18 | 18 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |