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