| … | |
… | |
| 209 | }, |
209 | }, |
| 210 | on_move => sub { |
210 | on_move => sub { |
| 211 | my ($pl, $dir) = @_; |
211 | my ($pl, $dir) = @_; |
| 212 | |
212 | |
| 213 | # must delay a bit :/ |
213 | # must delay a bit :/ |
| 214 | my $delay; $delay = EV::timer 0, 0, sub { |
214 | my $delay; $delay = AE::timer 0, 0, sub { |
| 215 | undef $delay; |
215 | undef $delay; |
| 216 | |
216 | |
| 217 | if (my $dialog = $pl->{npc_dialog}) { |
217 | if (my $dialog = $pl->{npc_dialog}) { |
| 218 | my (undef, $dx, $dy) = $pl->ob->rangevector ($dialog->{npc}); |
218 | my (undef, $dx, $dy) = $pl->ob->rangevector ($dialog->{npc}); |
| 219 | |
219 | |
