| 1 | #! perl | 1 | #! perl |
|---|---|---|---|
| 2 | |||
| 3 | # this script loads all unique-item maps and removes unique exits on them, | ||
| 4 | # because the new map file format does not have a need for exits to be marked unique. | ||
| 2 | 5 | ||
| 3 | cf::async { | 6 | cf::async { |
| 4 | my $maps = Coro::AIO::aio_readdir "/var/crossfire/unique-items"; | 7 | my $maps = Coro::AIO::aio_readdir "/var/crossfire/unique-items"; |
| 5 | for my $mapname (grep !/\.pst$/, @$maps) { | 8 | for my $mapname (grep !/\.pst$/, @$maps) { |
| 6 | $mapname =~ s/∕/\//g; | 9 | $mapname =~ s/∕/\//g; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |