[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/Protocol.pm

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.96 by root, Fri Apr 6 07:45:35 2007 UTC vs.
Revision 1.97 by root, Fri Apr 6 08:09:43 2007 UTC

    $self->{map}->clear;
    delete $self->{map_widget}{magicmap};
 }
+sub bg_fetch {
+   my ($self) = @_;
+   my $id;
+   do {
+      $id = pop @{$self->{bg_fetch}}
+         or return;
+   } while $self->{texture}[$id];
+   CFPlus::DB::get tilecache => $id, sub {
+      my ($data) = @_;
+      $self->set_texture ($id => $data)
+         if defined $data;
+      $self->bg_fetch;
+   };
+}
 sub load_map($$$) {
    my ($self, $hash, $x, $y) = @_;
    CFPlus::DB::get $self->{mapcache} => $hash, sub {
       my ($data) = @_;
       if (defined $data) {
          $data = Compress::LZF::decompress $data;
          #warn sprintf "LOADmap[%s,%d,%d] length %d\n", $hash, $x, $y, length $data;#d#
-         for my $id ($self->{map}->set_rect ($x, $y, $data)) {
-            CFPlus::DB::get tilecache => $id, sub {
-               my ($data) = @_;
-               $self->set_texture ($id => $data)
+         my $inprogress = @{ $self->{bg_fetch} || [] };
-                  if defined $data;
+         push @{ $self->{bg_fetch} }, $self->{map}->set_rect ($x, $y, $data);
-            };
+         $self->bg_fetch unless $inprogress;
-         }
       }
    };
 }
 # hardcode /world/world_xxx_xxx map names, the savings are enourmous,

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