ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/maps/perl/chat.ext
(Generate patch)

Comparing deliantra/maps/perl/chat.ext (file contents):
Revision 1.16 by pippijn, Mon May 8 17:27:42 2006 UTC vs.
Revision 1.17 by pippijn, Mon May 22 08:13:37 2006 UTC

… …
32 32
33cf::register_command listen => 0, sub { 33cf::register_command listen => 0, sub {
34 my ($who, $msg) = @_; 34 my ($who, $msg) = @_;
35 my $player = cf::player::find $who->name; 35 my $player = cf::player::find $who->name;
36 36
37 if ($msg) { 37 if ($msg ne "") {
38 my $prev_listen = $player->listening; 38 my $prev_listen = $player->listening;
39 $player->listening ($msg); 39 $player->listening ($msg);
40 if ($prev_listen == $player->listening) { 40 if ($prev_listen == $player->listening) {
41 $who->message ("Your verbose level stayed ".$prev_listen.".", cf::NDI_UNIQUE); 41 $who->message ("Your verbose level stayed ".$prev_listen.".", cf::NDI_UNIQUE);
42 } else { 42 } else {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines