#! perl

# wizard commands

cf::register_command goto => 0, sub {
   my ($ob, $arg) = @_;

   return unless $ob->flag (cf::FLAG_WIZ) || $cf::CFG{nopriv_goto};

   my $portal = cf::object::new "exit";

   $portal->slaying   ($arg);
   $portal->stats->hp (0);
   $portal->stats->sp (0);

   $portal->apply ($ob);

   $portal->free;
};