… | |
… | |
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 | |