… | |
… | |
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") { |