| … | … | ||
|---|---|---|---|
| 2 | 2 | ||
| 3 | # wizard commands | 3 | # wizard commands |
| 4 | 4 | ||
| 5 | cf::register_command goto => 0, sub { | 5 | cf::register_command goto => 0, sub { |
| 6 | my ($ob, $arg) = @_; | 6 | my ($ob, $arg) = @_; |
| 7 | |||
| 8 | return unless $ob->flag (cf::FLAG_WIZ) || $cf::CFG{nopriv_goto}; | ||
| 7 | 9 | ||
| 8 | my $portal = cf::object::new "exit"; | 10 | my $portal = cf::object::new "exit"; |
| 9 | 11 | ||
| 10 | $portal->slaying ($arg); | 12 | $portal->slaying ($arg); |
| 11 | $portal->stats->hp (0); #todo#improve | 13 | $portal->stats->hp (0); #todo#improve |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |