… | |
… | |
1861 | sub generate_random_map { |
1861 | sub generate_random_map { |
1862 | my ($self, $rmp) = @_; |
1862 | my ($self, $rmp) = @_; |
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 |
|
|
1867 | $self->_create_random_map ( |
1866 | $self->_create_random_map ($rmp); |
1868 | $rmp, $rmp->{total_map_hp}, |
|
|
1869 | (cf::region::find $rmp->{region}) |
|
|
1870 | ) |
|
|
1871 | } |
1867 | } |
1872 | |
1868 | |
1873 | =item cf::map->register ($regex, $prio) |
1869 | =item cf::map->register ($regex, $prio) |
1874 | |
1870 | |
1875 | Register a handler for the map path matching the given regex at the |
1871 | Register a handler for the map path matching the given regex at the |
… | |
… | |
3430 | |
3426 | |
3431 | cf::face::set_visibility $idx, $info->{visibility}; |
3427 | cf::face::set_visibility $idx, $info->{visibility}; |
3432 | cf::face::set_magicmap $idx, $info->{magicmap}; |
3428 | cf::face::set_magicmap $idx, $info->{magicmap}; |
3433 | cf::face::set_data $idx, 0, $info->{data32}, $info->{hash32}; |
3429 | cf::face::set_data $idx, 0, $info->{data32}, $info->{hash32}; |
3434 | cf::face::set_data $idx, 1, $info->{data64}, $info->{hash64}; |
3430 | cf::face::set_data $idx, 1, $info->{data64}, $info->{hash64}; |
|
|
3431 | cf::face::set_data $idx, 2, $info->{glyph} , $info->{glyph} ; |
3435 | |
3432 | |
3436 | cf::cede_to_tick; |
3433 | cf::cede_to_tick; |
3437 | } |
3434 | } |
3438 | |
3435 | |
3439 | while (my ($face, $info) = each %$faces) { |
3436 | while (my ($face, $info) = each %$faces) { |