[ViewVC] Diff of: cvs/deliantra/maps/perl/dmcommands.ext

Comparing deliantra/maps/perl/dmcommands.ext (file contents):
Revision 1.7 by root, Wed Nov 8 00:42:32 2006 UTC vs.
Revision 1.8 by root, Wed Nov 8 00:54:11 2006 UTC

    $portal->stats->sp (0);
    $portal->apply ($ob);
    $portal->free;
+   1
 };
 cf::register_command wizpass => 0, sub {
    my ($ob, $arg) = @_;
    $ob->reply (undef,
       $new_val
          ? "You will now walk through walls.\n"
          : "You will now be stopped by walls.\n",
    );
+   1
 };
 cf::register_command wizcast => 0, sub {
    my ($ob, $arg) = @_;
    $ob->reply (undef,
       $new_val
          ? "You can now cast spells anywhere."
          : "You now cannot cast spells in no-magic areas.",
    );
+   1
 };
 cf::register_command wizlook => 0, sub {
    my ($ob, $arg) = @_;
    return unless $ob->may ("command_wizlook");
    $ob->clear_los;
    $ob->reply (undef, "You can temporarily see through walls.");
+   1
 };
+for my $command (qw(reset teleport summon arrest kick banish)) {
+   my $method = "command_$command";
+   cf::register_command $command => 0, sub {
+      my ($ob, $arg) = @_;
+      return unless $ob->may ($method);
+      $ob->$method ($arg)
+   };
+}

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines