| … | |
… | |
| 13 | while (my ($k, $v) = each %$setup) { |
13 | while (my ($k, $v) = each %$setup) { |
| 14 | if ($k eq "sound") { |
14 | if ($k eq "sound") { |
| 15 | $ns->sound ($v); |
15 | $ns->sound ($v); |
| 16 | |
16 | |
| 17 | } elsif ($k eq "spellmon") { |
17 | } elsif ($k eq "spellmon") { |
| 18 | $ns->monitor_spells ($v); |
18 | # version 1 - enable addspell etc. |
|
|
19 | # version 2 - no documentation in addspell |
|
|
20 | $setup->{$k} = $ns->monitor_spells (int cf::clamp $v, 0, 2); |
| 19 | |
21 | |
| 20 | } elsif ($k eq "mapinfocmd") { |
22 | } elsif ($k eq "mapinfocmd") { |
| 21 | $ns->mapinfocmd ($v); |
23 | $ns->mapinfocmd ($v); |
| 22 | |
24 | |
| 23 | } elsif ($k eq "extcmd") { |
25 | } elsif ($k eq "extcmd") { |
