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

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.31 by elmex, Mon Aug 14 04:22:04 2006 UTC vs.
Revision 1.33 by root, Mon Aug 21 01:51:23 2006 UTC

 use Storable;
 use Opcode;
 use Safe;
 use Safe::Hole;
+use Time::HiRes;
 use Event;
 $Event::Eval = 1; # no idea why this is required, but it is
 use strict;
 };
 #############################################################################
 # load/save perl data associated with player->ob objects
+sub all_objects(@) {
+   @_, map all_objects ($_->inv), @_
+}
 *on_player_load = sub {
    my ($ob, $path) = @_;
-   for my $o ($ob, $ob->inv) {
+   for my $o (all_objects $ob) {
       if (my $value = $o->get_ob_key_value ("_perl_data")) {
          $o->set_ob_key_value ("_perl_data");
          %$o = %{ Storable::thaw pack "H*", $value };
       }
 *on_player_save = sub {
    my ($ob, $path) = @_;
    $_->set_ob_key_value (_perl_data => unpack "H*", Storable::nfreeze $_)
-      for grep %$_, $ob, $ob->inv;
+      for grep %$_, all_objects $ob;
 };
 #############################################################################
 # core extensions - in perl
+my $delta_timer = Event->timer (
+   parked => 1,
+   prio   => Event::PRIO_HIGH,
+   cb     => sub { Event::unloop (undef) },
+);
+sub sleep_delta($) {
+   $delta_timer->at (Event::time + $_[0]);
+   $delta_timer->start;
+   Event::loop;
+}
 =item cf::player::exists $login
 Returns true when the given account exists.

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