droids/merlin/modules/50-ip-geo
droids/merlin/modules/50-page-title
droids/merlin/modules/50-translate
@@ -21,8 +21,8 @@ sub base_ping
}
sub base_nick_in_use {
-# $robot_nick .= '_';
-# &send_message(["NICK $robot_nick"]);
+ &set_nickname(&get_nickname().'_');
+ &send_message(["NICK ".&get_nickname()]);
}
droids/merlin/modules/00-base
@@ -3,13 +3,23 @@
use strict;
use warnings;
+sub greeting_elect
+{
+ my @greetings = (
+ "Hi, there",
+ "What's up",
+ "Hello, friend",
+ "Hi, I am ".&get_nickname().". Can I help you?",
+ );
+ $greetings[rand @greetings];
+}
+
sub greeting_privmsg
{
my ($from, $command, $target, $message) = @_;
my ($nick, undef, undef) = &extract_nick;
- if ($message =~ /^hello/) {
- &speak($target, $nick, "hello, $nick");
- }
+ &speak($target, $nick, &greeting_elect())
+ if $message =~ /^(hello|hi|welcome|what's up)\b/i;
}
®ister_message_func('PRIVMSG', \&greeting_privmsg);
droids/merlin/modules/50-greeting
80d3df393b61f1879db390ed728c0d417e336586
Jianing Yang
jianingy.yang@gmail.com
http://github.com/jianingy/idroid/commit/66e8e53f318784fbbe64b7b07ab02f27f536ccc9
66e8e53f318784fbbe64b7b07ab02f27f536ccc9
2009-10-31T18:34:25-07:00
2009-10-31T18:34:25-07:00
added some modules
0055d82afb4634a087636dd907c359cbba949839
Jianing Yang
jianingy.yang@gmail.com