| … | |
… | |
| 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) = @_; |
