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

Comparing deliantra/maps/perl/schmorp-irc.ext (file contents):
Revision 1.1 by elmex, Wed Aug 2 16:59:47 2006 UTC vs.
Revision 1.11 by pippijn, Sun Sep 17 22:56:52 2006 UTC

1#! perl 1#! perl
2
2use Time::HiRes; 3use Time::HiRes;
3use Net::IRC3::Client::Connection; 4use Net::IRC3::Client::Connection;
4 5
5my $BOTSERVER = 'irc.plan9.de'; 6my $BOTSERVER = 'localhost';
6my $BOTPORT = '6667'; 7my $BOTPORT = '6667';
7my $BOTNAME = 'cfbot'; 8my $BOTNAME = 'cfbot';
8my $BOTCHAN = '#cf'; 9my $BOTCHAN = '#cf';
9 10
10my $CON; # the connection 11my $CON; # the connection
11 12
12sub on_unload { 13sub unload {
13 $CON->disconnect; 14 $CON->disconnect if $CON;
14 undef $CON; 15 undef $CON;
15} 16}
16 17
17sub do_notice { 18sub do_notice {
18 my ($msg) = @_; 19 my ($msg) = @_;
19 $CON->send_chan ($BOTCHAN, NOTICE => $msg, $BOTCHAN); 20 $CON->send_chan ($BOTCHAN, NOTICE => $msg, $BOTCHAN)
21 if $CON;
22}
23
24sub handle_fcmd {
25 my ($msg) = @_;
26
27 if ($msg eq "!who") {
28 my ($numplayers, $numwiz, @plist) = (0, 0);
29
30 foreach my $pl (cf::player::list) {
31 $numplayers++;
32 $numwiz++
33 if ($pl->ob->flag (cf::FLAG_WIZ));
34 push (@plist, $pl);
35 }
36
37 $CON->send_chan ($BOTCHAN, NOTICE => "Total Players in The World. ($numplayers) -- WIZ($numwiz)", $BOTCHAN);
38
39 if ($numplayers > 0) {
40 foreach my $pl (@plist) {
41 $CON->send_chan ($BOTCHAN, NOTICE =>
42 "* " . $pl->ob->name . "/" . $pl->ob->level . ($pl->ob->flag (cf::FLAG_WIZ) ? " [WIZ] " : "")
43 ." [" . ($pl->ob->map ? $pl->ob->map->path : "NULL") . "]", $BOTCHAN);
44 }
45 }
46 }
20} 47}
21 48
22sub check_connection { 49sub check_connection {
23 return if $CON; 50 return if $CON;
51
24 $CON = Net::IRC3::Client::Connection->new; 52 $CON = Net::IRC3::Client::Connection->new;
25 $CON->connect ($BOTSERVER, $BOTPORT); 53 $CON->connect ($BOTSERVER, $BOTPORT);
26 $CON->send_srv (JOIN => undef, $BOTCHAN); 54 $CON->send_srv (JOIN => undef, $BOTCHAN);
27 $CON->register ($BOTNAME, $BOTNAME, 'crossfire connection'); 55 $CON->register ($BOTNAME, $BOTNAME, 'crossfire connection');
28 $CON->reg_cb ( 56 $CON->reg_cb (
29 #d# 'irc_*' => sub { warn "IRC $_[1]->{trailing}\n"; 1 }, 57 #d# 'irc_*' => sub { warn "IRC $_[1]->{trailing}\n"; 1 },
30 irc_privmsg => sub { 58 irc_privmsg => sub {
31 my ($con, $msg) = @_; 59 my ($con, $msg) = @_;
32 my $name = 'irc'; 60 my $name = 'irc';
33 my $NOW = Time::HiRes::time; 61 my $NOW = Time::HiRes::time;
62 my $tmsg = $msg->{trailing};
63 $tmsg =~ s/\x01[^\x01]*\x01//g;
64 if ($tmsg =~ /^\!/) {
65 handle_fcmd ($tmsg);
66 } elsif ($tmsg =~ m/\S/) {
34 $_->ob->message ( 67 $_->ob->message (
35 "$name/".Net::IRC3::Util::prefix_nick ($msg)." chats: $msg->{trailing}", 68 "$name/".Net::IRC3::Util::prefix_nick ($msg)." chats: $tmsg", cf::NDI_BLUE
36 cf::NDI_BLUE
37 ) for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list; 69 ) for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list;
70 }
38 1; 71 1;
39 }, 72 },
40 registered => sub { 73# registered => sub {
41 warn "BOP\n";
42 1; 74# 1;
43 }, 75# },
44 disconnect => sub { 76 disconnect => sub {
45 undef $CON; 77 undef $CON;
46 0; 78 0;
47 } 79 }
48 ); 80 );

Diff Legend

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