| … | … | ||
|---|---|---|---|
| 48 | ? "You can now cast spells anywhere." | 48 | ? "You can now cast spells anywhere." |
| 49 | : "You now cannot cast spells in no-magic areas.", | 49 | : "You now cannot cast spells in no-magic areas.", |
| 50 | ); | 50 | ); |
| 51 | }; | 51 | }; |
| 52 | 52 | ||
| 53 | cf::register_command wizlook => 0, sub { | ||
| 54 | my ($ob, $arg) = @_; | ||
| 55 | |||
| 56 | return unless $ob->may ("command_wizlook"); | ||
| 57 | |||
| 58 | $ob->clear_los; | ||
| 59 | |||
| 60 | $ob->reply (undef, "You can temporarily see through walls."); | ||
| 61 | }; | ||
| 62 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |