| … | |
… | |
| 1143 | $map->per_player (0) if $path->{user_rel}; |
1143 | $map->per_player (0) if $path->{user_rel}; |
| 1144 | } |
1144 | } |
| 1145 | |
1145 | |
| 1146 | $map->path ($key); |
1146 | $map->path ($key); |
| 1147 | $map->{path} = $path; |
1147 | $map->{path} = $path; |
|
|
1148 | $map->{last_save} = $cf::RUNTIME; |
| 1148 | $map->last_access ($cf::RUNTIME); |
1149 | $map->last_access ($cf::RUNTIME); |
| 1149 | |
1150 | |
| 1150 | if ($map->should_reset) { |
1151 | if ($map->should_reset) { |
| 1151 | $map->reset; |
1152 | $map->reset; |
| 1152 | $map = find_map $path; |
1153 | $map = find_map $path; |
| … | |
… | |
| 1213 | } |
1214 | } |
| 1214 | |
1215 | |
| 1215 | sub save { |
1216 | sub save { |
| 1216 | my ($self) = @_; |
1217 | my ($self) = @_; |
| 1217 | |
1218 | |
|
|
1219 | $self->{last_save} = $cf::RUNTIME; |
|
|
1220 | |
|
|
1221 | return unless $self->dirty; |
|
|
1222 | |
| 1218 | my $save = $self->{path}->save_path; utf8::encode $save; |
1223 | my $save = $self->{path}->save_path; utf8::encode $save; |
| 1219 | my $uniq = $self->{path}->uniq_path; utf8::encode $uniq; |
1224 | my $uniq = $self->{path}->uniq_path; utf8::encode $uniq; |
| 1220 | |
|
|
| 1221 | $self->{last_save} = $cf::RUNTIME; |
|
|
| 1222 | |
|
|
| 1223 | return unless $self->dirty; |
|
|
| 1224 | |
1225 | |
| 1225 | $self->{load_path} = $save; |
1226 | $self->{load_path} = $save; |
| 1226 | |
1227 | |
| 1227 | return if $self->{deny_save}; |
1228 | return if $self->{deny_save}; |
| 1228 | |
1229 | |
