--- deliantra/server/lib/cf.pm 2007/01/11 00:16:58 1.161 +++ deliantra/server/lib/cf.pm 2007/01/11 00:41:08 1.162 @@ -474,6 +474,7 @@ # escape the /'s in the path sub _escaped_path { (my $path = $_[0]{path}) =~ s/\//$PATH_SEP/g; + $path } @@ -488,9 +489,9 @@ sub save_path { my ($self) = @_; - $self->{user_rel} ? sprintf "%s/%s/%s/%s", cf::localdir, cf::playerdir, $self->{user}, $self->_escaped_path - : $self->{random} ? sprintf "%s/%s", $RANDOM_MAPS, $self->{path} - : sprintf "%s/%s/%s", cf::localdir, cf::tmpdir, $self->_escaped_path + $self->{user_rel} + ? sprintf "%s/%s/%s/%s", cf::localdir, cf::playerdir, $self->{user}, $self->_escaped_path + : sprintf "%s/%s/%s", cf::localdir, cf::tmpdir, $self->_escaped_path } # the unique path, undef == no special unique path @@ -1267,7 +1268,7 @@ my ($path, $rmp) = @_; # mit "rum" bekleckern, nicht - cf::map::_create_random_map + cf::map::_create_random_map ( $path, $rmp->{wallstyle}, $rmp->{wall_name}, $rmp->{floorstyle}, $rmp->{monsterstyle}, $rmp->{treasurestyle}, $rmp->{layoutstyle}, $rmp->{doorstyle}, $rmp->{decorstyle}, @@ -1279,7 +1280,8 @@ $rmp->{dungeon_level}, $rmp->{dungeon_depth}, $rmp->{decoroptions}, $rmp->{orientation}, $rmp->{origin_y}, $rmp->{origin_x}, $rmp->{random_seed}, $rmp->{total_map_hp}, $rmp->{map_layout_style}, $rmp->{treasureoptions}, $rmp->{symmetry_used}, - (cf::region::find $rmp->{region}) + (cf::region::find $rmp->{region}), $rmp->{custom} + ) } # and all this just because we cannot iterate over