--- deliantra/server/lib/cf.pm	2006/08/14 04:22:04	1.31
+++ deliantra/server/lib/cf.pm	2006/08/15 18:07:25	1.32
@@ -7,6 +7,7 @@
 use Safe;
 use Safe::Hole;
 
+use Time::HiRes;
 use Event;
 $Event::Eval = 1; # no idea why this is required, but it is
 
@@ -408,6 +409,18 @@
 #############################################################################
 # 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.