… | |
… | |
1863 | |
1863 | |
1864 | my $lock = cf::lock_acquire "generate_random_map"; # the random map generator is NOT reentrant ATM |
1864 | my $lock = cf::lock_acquire "generate_random_map"; # the random map generator is NOT reentrant ATM |
1865 | |
1865 | |
1866 | # mit "rum" bekleckern, nicht |
1866 | # mit "rum" bekleckern, nicht |
1867 | $self->_create_random_map ( |
1867 | $self->_create_random_map ( |
1868 | $rmp->{wallstyle}, $rmp->{wall_name}, $rmp->{floorstyle}, $rmp->{monsterstyle}, |
1868 | $rmp, |
|
|
1869 | $rmp->{wall_name}, $rmp->{monsterstyle}, |
1869 | $rmp->{treasurestyle}, $rmp->{layoutstyle}, $rmp->{doorstyle}, $rmp->{decorstyle}, $rmp->{miningstyle}, |
1870 | $rmp->{treasurestyle}, $rmp->{layoutstyle}, $rmp->{doorstyle}, $rmp->{decorstyle}, |
1870 | $rmp->{origin_map}, $rmp->{final_map}, $rmp->{exitstyle}, $rmp->{this_map}, |
1871 | $rmp->{origin_map}, $rmp->{final_map}, $rmp->{this_map}, |
1871 | $rmp->{exit_on_final_map}, |
1872 | $rmp->{exit_on_final_map}, |
1872 | $rmp->{xsize}, $rmp->{ysize}, |
1873 | $rmp->{xsize}, $rmp->{ysize}, |
1873 | $rmp->{expand2x}, $rmp->{layoutoptions1}, $rmp->{layoutoptions2}, $rmp->{layoutoptions3}, |
1874 | $rmp->{expand2x}, $rmp->{layoutoptions1}, $rmp->{layoutoptions2}, $rmp->{layoutoptions3}, |
1874 | $rmp->{symmetry}, $rmp->{difficulty}, $rmp->{difficulty_given}, $rmp->{difficulty_increase}, |
1875 | $rmp->{symmetry}, $rmp->{difficulty}, $rmp->{difficulty_given}, $rmp->{difficulty_increase}, |
1875 | $rmp->{dungeon_level}, $rmp->{dungeon_depth}, $rmp->{decoroptions}, $rmp->{orientation}, |
1876 | $rmp->{dungeon_level}, $rmp->{dungeon_depth}, $rmp->{decoroptions}, $rmp->{orientation}, |
1876 | $rmp->{origin_y}, $rmp->{origin_x}, $rmp->{random_seed}, $rmp->{total_map_hp}, |
1877 | $rmp->{origin_y}, $rmp->{origin_x}, $rmp->{random_seed}, $rmp->{total_map_hp}, |
1877 | $rmp->{map_layout_style}, $rmp->{treasureoptions}, $rmp->{symmetry_used}, |
1878 | $rmp->{map_layout_style}, $rmp->{treasureoptions}, $rmp->{symmetry_used}, |
1878 | (cf::region::find $rmp->{region}), $rmp->{custom} |
1879 | (cf::region::find $rmp->{region}) |
1879 | ) |
1880 | ) |
1880 | } |
1881 | } |
1881 | |
1882 | |
1882 | =item cf::map->register ($regex, $prio) |
1883 | =item cf::map->register ($regex, $prio) |
1883 | |
1884 | |