| … | … | ||
|---|---|---|---|
| 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 |