[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.35 by root, Thu Aug 24 13:35:48 2006 UTC

 our %COMMAND;
 our @EVENT;
 our %PROP_TYPE;
 our %PROP_IDX;
 our $LIBDIR = maps_directory "perl";
+our $TICK = MAX_TIME * 1e-6;
+our $TICK_WATCHER;
+our $NEXT_TICK;
 BEGIN {
    @EVENT = map lc, @EVENT;
    *CORE::GLOBAL::warn = sub {
       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 {
+   Event::loop;
+}
+#############################################################################
 # initialisation
 register "<global>", __PACKAGE__;
 unshift @INC, $LIBDIR;
 load_extensions;
+$TICK_WATCHER = Event->timer (
+   prio => 1,
+   at   => $NEXT_TICK || 1,
+   cb   => sub {
+      cf::server_tick; # one server iteration
+      my $NOW = Event::time;
+      $NEXT_TICK += $TICK;
+      # if we are delayed by > 0.25 second, skip ticks
+      $NEXT_TICK = $NOW if $NOW >= $NEXT_TICK + .25;
+      $TICK_WATCHER->at ($NEXT_TICK);
+      $TICK_WATCHER->start;
+   },
+);
 1

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