Browse Source

Net-Demo replaced with demotk runmode

master
milkbone57 22 years ago
parent
commit
85d406a743
  1. 2
      mb.conf
  2. 57
      plugins/Net-Demo.pl

2
mb.conf

@ -1,7 +1,7 @@ @@ -1,7 +1,7 @@
# mb.conf - milkbone global configuration file
Goodbye sorry, gotta, go
Modules Tk-PluginsConf, Net-Demo, Tk-GUI, Tk-Logon, Tk-BList, Tk-Profile, Tk-File, Tk-About, Tk-Convo, Tk-Conf, Tk-AddBuddy, Tk-Chat
Modules Tk-PluginsConf, Net-OSCAR, Tk-GUI, Tk-Logon, Tk-BList, Tk-Profile, Tk-File, Tk-About, Tk-Convo, Tk-Conf, Tk-AddBuddy, Tk-Chat
Plugins XAMP, Monitor, Counterstrike
Port 5190
HeavyLogging 0

57
plugins/Net-Demo.pl

@ -1,57 +0,0 @@ @@ -1,57 +0,0 @@
package NetDemo;
use Milkbone;
use strict;
use warnings;
register_hook "protocol_signon", sub {
hook("after", -time => 10, -code => sub { hook("signed_in") });
register_hook "protocol_add_buddy", sub { hook("buddy_in", -buddy =>
$ARGS{-buddy}, -group => $ARGS{-group}); };
register_hook "protocol_get_groups", sub { return ["Buddies", "You"] };
register_hook "protocol_get_realname", sub { return lc $ARGS{-user} };
register_hook "protocol_request_info", sub {
hook("after", -time => 1000, -code => sub {
hook("protocol_info_received_$ARGS{-user}",
-profile => 'test', -away => 'test');
});
};
register_hook "protocol_send_im", sub {
hook("after", -time => 500, -code => [sub {
hook("msg_sent_$_[0]", -user => $_[0], -msg => $_[1], -away => 0);
hook("after", -time => 500, sub {
hook("msg_in", -user => $_[0], -msg => $_[1], -away => 0);
hook("msg_in_$_[0]", -user => $_[0], -msg => $_[1], -away => 0);
});
}, $ARGS{-dest}, $ARGS{-msg}]);
};
register_hook "protocol_away_status", sub { 0 };
hook("after", -time => 1000, -code => sub {
hook("buddy_in", -group => 'Buddies', -buddy => 'test_user');
});
# hook("after", -time => 1000, -code => sub {
# hook("msg_in", -user => 'thatguy', -msg => '<b>hey</b>');
# });
# hook("after", -time => 1500, -code => sub {
# hook("protocol_send_im", -dest => 'thatguy', -msg => '<b>hey there</b>');
hook("after", -time => 500, -code => sub {
register_hook "protocol_chat_accept", sub {
hook("protocol_chat_joined", -name => 'erer', -user => 'er',
-url => 'ere');
hook("protocol_chat_buddy_in_ere", -user => 'charles');
};
hook("protocol_chat_invited", -user => 'thatguy',
-url => 'er');
});
};
1;
Loading…
Cancel
Save