[ViewVC] Diff of: cvs/deliantra/server/lib/cf.pm

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.327 by root, Wed Aug 1 17:22:51 2007 UTC vs.
Revision 1.329 by root, Fri Aug 10 05:38:16 2007 UTC

    $self->{deny_save} = 1;
    $cf::PLAYER{$login} = $self;
    $self
+}
+=item $player->send_msg ($channel, $msg, $color, [extra...])
+=cut
+sub send_msg {
+   my $ns = shift->ns
+      or return;
+   $ns->send_msg (@_);
 }
 =item $pl->quit_character
 Nukes the player without looking back. If logged in, the connection will
          $self->message ($msg, $flags);
       }
    }
 }
+=item $object->send_msg ($channel, $msg, $color, [extra...])
+=cut
+sub cf::object::send_msg {
+   my $pl = shift->contr
+      or return;
+   $pl->send_msg (@_);
+}
 =item $player_object->may ("access")
 Returns wether the given player is authorized to access resource "access"
 (e.g. "command_wizcast").
 our $safe = new Safe "safe";
 our $safe_hole = new Safe::Hole;
 $SIG{FPE} = 'IGNORE';
-$safe->permit_only (Opcode::opset qw(:base_core :base_mem :base_orig :base_math sort time));
+$safe->permit_only (Opcode::opset qw(
+   :base_core :base_mem :base_orig :base_math
+   grepstart grepwhile mapstart mapwhile
+   sort time
+));
 # here we export the classes and methods available to script code
 =pod
 =cut
 for (
    ["cf::object"         => qw(contr pay_amount pay_player map force_find force_add x y
-                               insert remove)],
+                               insert remove inv)],
    ["cf::object::player" => qw(player)],
    ["cf::player"         => qw(peaceful)],
    ["cf::map"            => qw(trigger)],
 ) {
    no strict 'refs';

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