… | |
… | |
9 | our $SAVE_TIMEOUT = 20; # save maps every n seconds |
9 | our $SAVE_TIMEOUT = 20; # save maps every n seconds |
10 | our $SAVE_INTERVAL = 0.1; # save at max. one map every $SAVE_INTERVAL |
10 | our $SAVE_INTERVAL = 0.1; # save at max. one map every $SAVE_INTERVAL |
11 | |
11 | |
12 | cf::coro { |
12 | cf::coro { |
13 | $Coro::current->prio (Coro::PRIO_MIN); |
13 | $Coro::current->prio (Coro::PRIO_MIN); |
14 | # load the header of swapped-out. |
14 | # load the header of swapped-out maps. |
15 | # this is not a correctness issue, it simply saves diskspace |
15 | # this is not a correctness issue, it simply saves diskspace |
16 | # because old files will get cleaned up on reset time |
16 | # because old files will get cleaned up on reset time |
17 | Coro::Timer::sleep 5; |
17 | Coro::Timer::sleep 5; |
18 | |
18 | |
19 | my $files = Coro::AIO::aio_readdir cf::localdir . "/" . cf::tmpdir; |
19 | my $files = Coro::AIO::aio_readdir cf::localdir . "/" . cf::tmpdir; |
… | |
… | |
68 | } |
68 | } |
69 | }; |
69 | }; |
70 | |
70 | |
71 | $SCHEDULER->prio (-2); |
71 | $SCHEDULER->prio (-2); |
72 | |
72 | |
73 | # map load prefetch |
73 | # map load prefetch for tiled maps, possibly exits, too |
74 | cf::map->attach ( |
74 | cf::map->attach ( |
75 | on_enter => sub { |
75 | on_enter => sub { |
76 | my ($map, $pl) = @_; |
76 | my ($map, $pl) = @_; |
77 | |
77 | |
|
|
78 | # warn "$pl $map->{path}{path}\n";#d# |
78 | # floodfill surrounging maps, asynchronously |
79 | # floodfill surrounding maps, asynchronously |
79 | }, |
80 | }, |
80 | ); |
81 | ); |
81 | |
82 | |