… | |
… | |
85 | |
85 | |
86 | cf::register_extcmd npc_dialog_begin => sub { |
86 | cf::register_extcmd npc_dialog_begin => sub { |
87 | my ($pl, $id, $token) = @_; |
87 | my ($pl, $id, $token) = @_; |
88 | |
88 | |
89 | #TODO: |
89 | #TODO: |
90 | # this is not a request, so returnign does no good: make it a request and die on error |
90 | # this is not a request, so returning does no good: make it a request and die on error |
91 | |
91 | |
92 | return unless $pl->ob && $pl->ob->map; |
92 | return unless $pl->ob && $pl->ob->map; |
93 | |
93 | |
94 | my ($name, $dx, $dy) = @$token; |
94 | my ($name, $dx, $dy) = @$token; |
95 | |
95 | |