| … | … | ||
|---|---|---|---|
| 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->exp >= 200000) { | ||
| 26 | my (undef, undef, undef, $dir, undef) = $data->{who}->direction ($pl); | 25 | my (undef, undef, undef, $dir, undef) = $data->{who}->direction ($pl); |
| 27 | $data->{who}->move ($data->{who}, $dir); | 26 | $data->{who}->move ($data->{who}, $dir); |
| 28 | } | ||
| 29 | } | 27 | } |
| 30 | 28 | ||
| 31 | 1 | 29 | 1 |
| 32 | } | 30 | } |
| 33 | 31 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |