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