… | |
… | |
817 | (aio_load "$filename.pst", $av) >= 0 |
817 | (aio_load "$filename.pst", $av) >= 0 |
818 | or return; |
818 | or return; |
819 | $av = eval { (Storable::thaw $av)->{objs} }; |
819 | $av = eval { (Storable::thaw $av)->{objs} }; |
820 | } |
820 | } |
821 | |
821 | |
|
|
822 | warn sprintf "loading %s (%d)\n", |
|
|
823 | $filename, length $data, scalar @{$av || []};#d# |
822 | return ($data, $av); |
824 | return ($data, $av); |
823 | } |
825 | } |
824 | |
826 | |
825 | ############################################################################# |
827 | ############################################################################# |
826 | # command handling &c |
828 | # command handling &c |
… | |
… | |
1140 | $map->instantiate; |
1142 | $map->instantiate; |
1141 | |
1143 | |
1142 | # per-player maps become, after loading, normal maps |
1144 | # per-player maps become, after loading, normal maps |
1143 | $map->per_player (0) if $path->{user_rel}; |
1145 | $map->per_player (0) if $path->{user_rel}; |
1144 | } |
1146 | } |
|
|
1147 | #Coro::Timer::sleep 1;#d# |
1145 | |
1148 | |
1146 | $map->path ($key); |
1149 | $map->path ($key); |
1147 | $map->{path} = $path; |
1150 | $map->{path} = $path; |
1148 | $map->{last_save} = $cf::RUNTIME; |
1151 | $map->{last_save} = $cf::RUNTIME; |
1149 | $map->last_access ($cf::RUNTIME); |
1152 | $map->last_access ($cf::RUNTIME); |
… | |
… | |
1444 | |
1447 | |
1445 | $self->activate_recursive; |
1448 | $self->activate_recursive; |
1446 | $self->enter_map ($map, $x, $y); |
1449 | $self->enter_map ($map, $x, $y); |
1447 | } |
1450 | } |
1448 | |
1451 | |
1449 | =item $player_object->goto_map ($map, $x, $y) |
1452 | =item $player_object->goto_map ($path, $x, $y) |
1450 | |
1453 | |
1451 | =cut |
1454 | =cut |
1452 | |
1455 | |
1453 | sub cf::object::player::goto_map { |
1456 | sub cf::object::player::goto_map { |
1454 | my ($self, $path, $x, $y) = @_; |
1457 | my ($self, $path, $x, $y) = @_; |