[ViewVC] Diff of: cvs/deliantra/maps/perl/map-prefetch.ext

Comparing deliantra/maps/perl/map-prefetch.ext (file contents):
Revision 1.10 by root, Thu Aug 3 11:23:58 2006 UTC vs.
Revision 1.15 by root, Fri Dec 15 19:06:29 2006 UTC

 use Errno ();
 use Time::HiRes;
 use Fcntl;
 use IO::AIO;
-Event->io (fd   => IO::AIO::poll_fileno,
-           poll => 'r',
-           cb   => \&IO::AIO::poll_cb);
 # find all potential exit paths, this is slow, so this info is cached
 sub find_exits {
    my ($map) = @_;
    my $exit = $MAP_EXITS{$map->path} ||= find_exits $map;
    prefetch map => $_ for @$exit;
 }
-sub on_mapenter {
+cf::attach_to_players prio => -900,
-   my ($ob) = @_;
+   on_map_change => sub {
+      my ($pl, $new, $x, $x) = @_;
-   prefetch_map $ob->map;
+      prefetch_map $new;
-}
+   },
+;
 if (0) { #test#
 # prefetch a few players/second
 {
    my @players;
-   Event->timer (interval => 0.2, cb => sub {
+   Event->timer (interval => 0.2, data => cf::WF_AUTOCANCEL, cb => sub {
       @players = map $_->ob->name, cf::player::list unless @players;
       my $player = cf::player::find pop @players
          or return;
       if (my $map = $player->ob->map) {
       prefetch map => +($player->get_savebed)[0];
    });
 }
 # prefetch all .pl files every few minutes (thats only a "few" megabytes)
-Event->timer (after => 1, interval => 600, cb => sub {
+Event->timer (after => 1, interval => 600, data => cf::WF_AUTOCANCEL, cb => sub {
    my $playerdir = cf::localdir . "/" . cf::playerdir;
    aio_readdir $playerdir, sub {
       my ($players) = @_;
       my $prefetch; $prefetch = sub {

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