[ViewVC] Diff of: cvs/deliantra/server/ext/commands.ext

Comparing deliantra/server/ext/commands.ext (file contents):
Revision 1.33 by pippijn, Fri Mar 2 15:09:05 2007 UTC vs.
Revision 1.36 by root, Fri Mar 16 02:37:54 2007 UTC

-#! perl
+#! perl # MANDATORY
 use POSIX ();
 # miscellaneous commands
 for my $cmd ("run", "fire") {
    my $oncmd = "${cmd}_on";
    cf::register_command $cmd => sub {
       my ($ob, $arg) = @_;
+      $ob->reply (undef, "Can't $cmd into a non adjacent square.")
+         if $arg < 0 or $arg >= 9;
       $ob->contr->$oncmd (1);
-      return $ob->reply (undef, "Can't $cmd into a non adjacent square.")
-         if $arg < 0 or $arg >= 9;
-      $ob->move ($arg);
+      $ob->move_player ($arg);
       1
    };
    cf::register_command "${cmd}_stop" => sub {
       my ($ob) = @_;
       $ob->contr->$oncmd (0);
 cf::register_command brace => sub {
    my ($ob, $arg) = @_;
    $ob->contr->braced ($ob->contr->braced ? 0 : 1);
    $ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced.");
+   1
+};
+cf::register_command 'output-rate' => sub {
+   my ($ob, $arg) = @_;
+   return $ob->reply (undef, sprintf "Output rate is presently %dbps.", $ob->contr->ns->max_rate / $cf::TICK)
+      unless $arg > 0;
+   $ob->contr->ns->max_rate ($arg * $cf::TICK);
+   $ob->reply (undef, sprintf "Output rate now set to %dbps.", $ob->contr->ns->max_rate / $cf::TICK);
    1
 };
 cf::register_command 'output-count' => sub {

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