diff options
author | David Phillips <david@yeah.nah.nz> | 2020-03-15 17:11:50 +1300 |
---|---|---|
committer | David Phillips <david@yeah.nah.nz> | 2020-03-15 17:11:50 +1300 |
commit | c46b6bbbc7a7a0c7949c4c6d57613b90da73bf93 (patch) | |
tree | 2d51a3a3e4bae4443127b24829e69d68c2db67c7 | |
parent | 2f0feee0d3e654d58fa5b7de3d53930783581605 (diff) | |
download | idalius-c46b6bbbc7a7a0c7949c4c6d57613b90da73bf93.tar.xz |
Add some misc zest to Natural.pm
-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/") { |