| … | |
… | |
| 1310 | } |
1310 | } |
| 1311 | |
1311 | |
| 1312 | use File::Glob (); |
1312 | use File::Glob (); |
| 1313 | |
1313 | |
| 1314 | cf::player->attach ( |
1314 | cf::player->attach ( |
| 1315 | on_command => sub { |
1315 | on_unknown_command => sub { |
| 1316 | my ($pl, $name, $params) = @_; |
1316 | my ($pl, $name, $params) = @_; |
| 1317 | |
1317 | |
| 1318 | my $cb = $COMMAND{$name} |
1318 | my $cb = $COMMAND{$name} |
| 1319 | or return; |
1319 | or return; |
| 1320 | |
1320 | |
| … | |
… | |
| 1769 | my $lock = cf::lock_acquire "generate_random_map"; # the random map generator is NOT reentrant ATM |
1769 | my $lock = cf::lock_acquire "generate_random_map"; # the random map generator is NOT reentrant ATM |
| 1770 | |
1770 | |
| 1771 | # mit "rum" bekleckern, nicht |
1771 | # mit "rum" bekleckern, nicht |
| 1772 | $self->_create_random_map ( |
1772 | $self->_create_random_map ( |
| 1773 | $rmp->{wallstyle}, $rmp->{wall_name}, $rmp->{floorstyle}, $rmp->{monsterstyle}, |
1773 | $rmp->{wallstyle}, $rmp->{wall_name}, $rmp->{floorstyle}, $rmp->{monsterstyle}, |
| 1774 | $rmp->{treasurestyle}, $rmp->{layoutstyle}, $rmp->{doorstyle}, $rmp->{decorstyle}, |
1774 | $rmp->{treasurestyle}, $rmp->{layoutstyle}, $rmp->{doorstyle}, $rmp->{decorstyle}, $rmp->{miningstyle}, |
| 1775 | $rmp->{origin_map}, $rmp->{final_map}, $rmp->{exitstyle}, $rmp->{this_map}, |
1775 | $rmp->{origin_map}, $rmp->{final_map}, $rmp->{exitstyle}, $rmp->{this_map}, |
| 1776 | $rmp->{exit_on_final_map}, |
1776 | $rmp->{exit_on_final_map}, |
| 1777 | $rmp->{xsize}, $rmp->{ysize}, |
1777 | $rmp->{xsize}, $rmp->{ysize}, |
| 1778 | $rmp->{expand2x}, $rmp->{layoutoptions1}, $rmp->{layoutoptions2}, $rmp->{layoutoptions3}, |
1778 | $rmp->{expand2x}, $rmp->{layoutoptions1}, $rmp->{layoutoptions2}, $rmp->{layoutoptions3}, |
| 1779 | $rmp->{symmetry}, $rmp->{difficulty}, $rmp->{difficulty_given}, $rmp->{difficulty_increase}, |
1779 | $rmp->{symmetry}, $rmp->{difficulty}, $rmp->{difficulty_given}, $rmp->{difficulty_increase}, |
| … | |
… | |
| 3134 | |
3134 | |
| 3135 | $coro |
3135 | $coro |
| 3136 | } |
3136 | } |
| 3137 | |
3137 | |
| 3138 | cf::client->attach ( |
3138 | cf::client->attach ( |
| 3139 | on_destroy => sub { |
3139 | on_client_destroy => sub { |
| 3140 | my ($ns) = @_; |
3140 | my ($ns) = @_; |
| 3141 | |
3141 | |
| 3142 | $_->cancel for values %{ (delete $ns->{_coro}) || {} }; |
3142 | $_->cancel for values %{ (delete $ns->{_coro}) || {} }; |
| 3143 | }, |
3143 | }, |
| 3144 | ); |
3144 | ); |
