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

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.33 by root, Mon Aug 21 01:51:23 2006 UTC vs.
Revision 1.34 by root, Thu Aug 24 13:13:49 2006 UTC

       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.
    no strict 'refs';
    *{"ext::$fun"} = $safe_hole->wrap ($cb);
 }
 #############################################################################
+# the server's main()
+sub run {
+   my $tick = MAX_TIME * 1e-6;
+   my $next = Event::time;
+   my $timer = Event->timer (at => $next, cb => sub {
+      cf::server_tick; # one server iteration
+      $next += $tick;
+      my $NOW = Event::time;
+      # if we are delayd by > 0.25 second, skip ticks
+      $next = $NOW if $NOW >= $next + .25;
+      $_[0]->w->at ($next);
+      $_[0]->w->start;
+   });
+   Event::loop;
+}
+#############################################################################
 # initialisation
 register "<global>", __PACKAGE__;
 unshift @INC, $LIBDIR;

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