… | … | ||
---|---|---|---|
93 | cf::register_command wizlook => sub { | 93 | cf::register_command wizlook => sub { |
94 | my ($ob, $arg) = @_; | 94 | my ($ob, $arg) = @_; |
95 | 95 | ||
96 | return unless $ob->may ("command_wizlook"); | 96 | return unless $ob->may ("command_wizlook"); |
97 | 97 | ||
98 | $ob->contr->clear_los; | 98 | $ob->contr->clear_los (0); |
99 | 99 | ||
100 | $ob->reply (undef, "You can temporarily see through walls."); | 100 | $ob->reply (undef, "You can temporarily see through walls."); |
101 | 101 | ||
102 | 1 | 102 | 1 |
103 | }; | 103 | }; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |