diff options
| -rw-r--r-- | Plugin/Greet.pm | 1 | ||||
| -rw-r--r-- | Plugin/Natural.pm | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/Plugin/Greet.pm b/Plugin/Greet.pm index 4d221c2..d223ff0 100644 --- a/Plugin/Greet.pm +++ b/Plugin/Greet.pm @@ -70,6 +70,7 @@ sub on_join { "$nick!!!!! guys!!!!!! $nick is here !!!!!!!!", "weclome $nick", "Welcome to $where, $nick. Leave your sanity at the door", + "It smells like up dog in here", "I feel sick"); } $irc->delay([privmsg => $where => $response], 1+rand(5)); diff --git a/Plugin/Natural.pm b/Plugin/Natural.pm index 58c7f96..53c799f 100644 --- a/Plugin/Natural.pm +++ b/Plugin/Natural.pm @@ -75,6 +75,8 @@ sub choose_normal_response { return some("?", "รถ", ":O", "!!"); } elsif ($what =~ /^help\b/i) { return some("D:", "ono", "*throws a lifeline to $nick"); + } elsif ($what =~ /^ooo$/i) { + return some("jjj"); } elsif ($what =~ /(:D|:\)|D:|:\||:\\|:C|:S)/) { return some(":D", ":)", "D:", ":|", ":/", ":\\", ":S", ">:D", ">:(", ">>>:CCCC"); } elsif ($what eq "o/") { |