| … | |
… | |
| 20 | |
20 | |
| 21 | sub on_move { |
21 | sub on_move { |
| 22 | my ($data) = @_; |
22 | my ($data) = @_; |
| 23 | |
23 | |
| 24 | if (my $pl = $data->{who}->nearest_player) { |
24 | if (my $pl = $data->{who}->nearest_player) { |
| 25 | if ($pl->level >= 10) { |
25 | if ($pl->exp >= 200000) { |
| 26 | my (undef, undef, undef, $dir, undef) = $data->{who}->direction ($pl); |
26 | my (undef, undef, undef, $dir, undef) = $data->{who}->direction ($pl); |
| 27 | $data->{who}->move ($data->{who}, $dir); |
27 | $data->{who}->move ($data->{who}, $dir); |
| 28 | } |
28 | } |
| 29 | } |
29 | } |
| 30 | |
30 | |
