… | |
… | |
1775 | our $MAX_RESET = 3600; |
1775 | our $MAX_RESET = 3600; |
1776 | our $DEFAULT_RESET = 3000; |
1776 | our $DEFAULT_RESET = 3000; |
1777 | |
1777 | |
1778 | sub generate_random_map { |
1778 | sub generate_random_map { |
1779 | my ($self, $rmp) = @_; |
1779 | my ($self, $rmp) = @_; |
|
|
1780 | |
|
|
1781 | my $lock = cf::lock_acquire "generate_random_map"; # the random map generator is NOT reentrant ATM |
|
|
1782 | |
1780 | # mit "rum" bekleckern, nicht |
1783 | # mit "rum" bekleckern, nicht |
1781 | $self->_create_random_map ( |
1784 | $self->_create_random_map ( |
1782 | $rmp->{wallstyle}, $rmp->{wall_name}, $rmp->{floorstyle}, $rmp->{monsterstyle}, |
1785 | $rmp->{wallstyle}, $rmp->{wall_name}, $rmp->{floorstyle}, $rmp->{monsterstyle}, |
1783 | $rmp->{treasurestyle}, $rmp->{layoutstyle}, $rmp->{doorstyle}, $rmp->{decorstyle}, |
1786 | $rmp->{treasurestyle}, $rmp->{layoutstyle}, $rmp->{doorstyle}, $rmp->{decorstyle}, |
1784 | $rmp->{origin_map}, $rmp->{final_map}, $rmp->{exitstyle}, $rmp->{this_map}, |
1787 | $rmp->{origin_map}, $rmp->{final_map}, $rmp->{exitstyle}, $rmp->{this_map}, |