--- deliantra/server/lib/cf.pm	2007/12/17 07:09:18	1.403
+++ deliantra/server/lib/cf.pm	2007/12/17 08:27:44	1.406
@@ -6,7 +6,7 @@
 use Symbol;
 use List::Util;
 use Socket;
-use EV;
+use EV 1.86;
 use Opcode;
 use Safe;
 use Safe::Hole;
@@ -71,6 +71,7 @@
 our $PLAYERDIR = "$LOCALDIR/" . playerdir;
 our $RANDOMDIR = "$LOCALDIR/random";
 our $BDBDIR    = "$LOCALDIR/db";
+our %RESOURCE;
 
 our $TICK = MAX_TIME * 1e-6; # this is a CONSTANT(!)
 our $TICK_WATCHER;
@@ -970,7 +971,7 @@
    0
 }
 
-=item $bool = cf::global::invoke (EVENT_CLASS_XXX, ...)
+=item $bool = cf::global->invoke (EVENT_CLASS_XXX, ...)
 
 =item $bool = $attachable->invoke (EVENT_CLASS_XXX, ...)
 
@@ -3151,6 +3152,7 @@
 
       while (my ($face, $info) = each %$faces) {
          my $idx = (cf::face::find $face) || cf::face::alloc $face;
+
          cf::face::set_visibility $idx, $info->{visibility};
          cf::face::set_magicmap   $idx, $info->{magicmap};
          cf::face::set_data $idx, 0, $info->{data32}, Digest::MD5::md5 $info->{data32};
@@ -3161,8 +3163,10 @@
 
       while (my ($face, $info) = each %$faces) {
          next unless $info->{smooth};
+
          my $idx = cf::face::find $face
             or next;
+
          if (my $smooth = cf::face::find $info->{smooth}) {
             cf::face::set_smooth      $idx, $smooth;
             cf::face::set_smoothlevel $idx, $info->{smoothlevel};
@@ -3190,52 +3194,58 @@
       # that gcfclient doesn't grok a >10000 face index.
       my $res = $facedata->{resource};
 
-      my $soundconf = delete $res->{"res/sound.conf"};
-
       while (my ($name, $info) = each %$res) {
-         my $idx = (cf::face::find $name) || cf::face::alloc $name;
-         my $data;
-
-         if ($info->{type} & 1) {
-            # prepend meta info
+         if (defined $info->{type}) {
+            my $idx = (cf::face::find $name) || cf::face::alloc $name;
+            my $data;
+
+            if ($info->{type} & 1) {
+               # prepend meta info
+
+               my $meta = $enc->encode ({
+                  name => $name,
+                  %{ $info->{meta} || {} },
+               });
 
-            my $meta = $enc->encode ({
-               name => $name,
-               %{ $info->{meta} || {} },
-            });
+               $data = pack "(w/a*)*", $meta, $info->{data};
+            } else {
+               $data = $info->{data};
+            }
 
-            $data = pack "(w/a*)*", $meta, $info->{data};
+            cf::face::set_data $idx, 0, $data, Digest::MD5::md5 $data;
+            cf::face::set_type $idx, $info->{type};
          } else {
-            $data = $info->{data};
+            $RESOURCE{$name} = $info;
          }
 
-         cf::face::set_data $idx, 0, $data, Digest::MD5::md5 $data;
-         cf::face::set_type $idx, $info->{type};
-
          cf::cede_to_tick;
       }
+   }
+
+   cf::global->invoke (EVENT_GLOBAL_RESOURCE_UPDATE);
 
-      if ($soundconf) {
-         $soundconf = $enc->decode (delete $soundconf->{data});
+   1
+}
 
-         for (0 .. SOUND_CAST_SPELL_0 - 1) {
-            my $sound = $soundconf->{compat}[$_]
-               or next;
+cf::global->attach (on_resource_update => sub {
+   if (my $soundconf = $RESOURCE{"res/sound.conf"}) {
+      $soundconf = JSON::XS->new->utf8->relaxed->decode ($soundconf->{data});
 
-            my $face = cf::face::find "sound/$sound->[1]";
-            cf::sound::set $sound->[0] => $face;
-            cf::sound::old_sound_index $_, $face; # gcfclient-compat
-         }
+      for (0 .. SOUND_CAST_SPELL_0 - 1) {
+         my $sound = $soundconf->{compat}[$_]
+            or next;
 
-         while (my ($k, $v) = each %{$soundconf->{event}}) {
-            my $face = cf::face::find "sound/$v";
-            cf::sound::set $k => $face;
-         }
+         my $face = cf::face::find "sound/$sound->[1]";
+         cf::sound::set $sound->[0] => $face;
+         cf::sound::old_sound_index $_, $face; # gcfclient-compat
       }
-   }
 
-   1
-}
+      while (my ($k, $v) = each %{$soundconf->{event}}) {
+         my $face = cf::face::find "sound/$v";
+         cf::sound::set $k => $face;
+      }
+   }
+});
 
 register_exticmd fx_want => sub {
    my ($ns, $want) = @_;
@@ -3605,8 +3615,8 @@
 
    cf::server_tick; # one server iteration
 
-   $RUNTIME   += $TICK;
-   $NEXT_TICK += $TICK;
+   $RUNTIME += $TICK;
+   $NEXT_TICK = $_[0]->at;
 
    if ($NOW >= $NEXT_RUNTIME_WRITE) {
       $NEXT_RUNTIME_WRITE = List::Util::max $NEXT_RUNTIME_WRITE + 10, $NOW + 5.;