| … | |
… | |
| 56 | } |
56 | } |
| 57 | } |
57 | } |
| 58 | return undef; |
58 | return undef; |
| 59 | } |
59 | } |
| 60 | |
60 | |
| 61 | # this is the main command interface for the IPO NPC |
61 | # this is the main command interface for the NPC |
| 62 | cf::register_script_function "quest_master::talk" => sub { |
62 | cf::register_script_function "quest_master::talk" => sub { |
| 63 | my ($who, $msg, $npc) = @_; |
63 | my ($who, $msg, $npc) = @_; |
| 64 | my ($cmd, $arguments) = split /\s+/, $msg, 2; |
64 | my ($cmd, $arguments) = split /\s+/, $msg, 2; |
| 65 | $cmd = lc $cmd; |
65 | $cmd = lc $cmd; |
| 66 | |
66 | |
