#! perl

# wizard commands

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

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

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

   $portal->apply ($ob);

   $portal->free;
};