ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/irc.ext
(Generate patch)

Comparing deliantra/server/ext/irc.ext (file contents):
Revision 1.3 by root, Sat Jul 28 12:02:58 2007 UTC vs.
Revision 1.5 by elmex, Sat Aug 25 11:51:04 2007 UTC

36sub handle_fcmd { 36sub handle_fcmd {
37 my ($name, $me, $msg) = @_; 37 my ($name, $me, $msg) = @_;
38 38
39 if ($msg eq "!who") { 39 if ($msg eq "!who") {
40 do_notice $_ 40 do_notice $_
41 for ext::commands::who_listing (); 41 for ext::commands::who_listing (0, ".");
42 42
43 } elsif ($msg =~ /^\!tell/) { 43 } elsif ($msg =~ /^\!tell/) {
44 my (undef, $target, $tmsg) = split / /, $msg, 3; 44 my (undef, $target, $tmsg) = split / /, $msg, 3;
45 45
46 if (my $other = cf::player::find_active $target) { 46 if (my $other = cf::player::find_active $target) {
85 utf8::decode $tmsg; 85 utf8::decode $tmsg;
86 86
87 if ($tmsg =~ /^\!/) { 87 if ($tmsg =~ /^\!/) {
88 handle_fcmd ($name, $nick, $tmsg); 88 handle_fcmd ($name, $nick, $tmsg);
89 } elsif ($tmsg =~ m/\S/) { 89 } elsif ($tmsg =~ m/\S/) {
90 $_->ns->send_msg ($cf::chat::CHAT_CHANNEL, 90 $_->ns->send_msg ($ext::chat::CHAT_CHANNEL,
91 "$name/".$nick." chats: $tmsg", cf::NDI_BLUE | cf::NDI_DEF 91 "$name/".$nick." chats: $tmsg", cf::NDI_BLUE | cf::NDI_DEF
92 ) for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list; 92 ) for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list;
93 } 93 }
94 1; 94 1;
95 }, 95 },

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines