Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-10 20:05:49 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

more happy, more kinky, and more consistent in its handlings of various forms of greetings.

Browse Source
This commit is contained in:
ian%hixie.ch 2003-08-14 13:52:43 +00:00
parent 3d86463b34
commit fb0f4c2456
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
webtools/mozbot/BotModules/Greeting.bm
View File

@ -40,7 +40,7 @@ sub RegisterConfig {
$self->SUPER::RegisterConfig(@_);
$self->registerVariables(
# [ name, save?, settable? ]
['greetings', 1, 1, ['hi %', 'yo %', 'salut %', '%! dude!', '%: hello', '%', 'bonjour %']],
['greetings', 1, 1, ['hi %', 'yo %', 'salut %', '%! dude!', '%: hello', '%', 'bonjour %', 'g\'day mate']],
['greetingsIndex', 1, 1, 0],
['byes', 1, 1, ['seeya %', 'bye %', 'night %', '/me waves goodbye to %']],
['byesIndex', 1, 1, 0],
@ -66,7 +66,7 @@ sub RegisterConfig {
['unhappyIndex', 1, 1, 0],
['vhappy', 1, 1, ['OOoh! %!', 'I love you too, %.']],
['vhappyIndex', 1, 1, 0],
['kinky', 1, 1, ['eep!', 'me-ow!', '/me tickles %', 'he-llo, baby!']],
['kinky', 1, 1, ['eep!', 'me-ow!', 'oh yeah! spank me baby!', '/me tickles %', 'he-llo, baby!']],
['kinkyIndex', 1, 1, 0],
['whoami', 1, 1, 'I am a bot. /msg me the word \'help\' for a list of commands.'],
['lastrheet', 0, 0, 0], # time of last rheet
@ -99,7 +99,7 @@ sub Told {
}
my $me = quotemeta($event->{'bot'}->nick);
my $expandedme = join('+', split(//gos, $me)).'+';
if ($message =~ /^\s*(?:mornin[g']?|hi|heya?|w+a+[sz]+u+p+|hello|wb|welcome\s+back|greetings|yo(?:\s+dude)?|m+[ay]+(?:\s+m+a+i+n+)?\s+m+a+n+|d+u+d+e+)[?!1.\s]*$/osi) {
if ($message =~ /^\s*(?:(?:g[ood\']*\s*)?(?:mornin[g\']?|evenin[g\']?|afternoon|day)|hi|heya?|bonjour|hoi|w+a+[sz]+u+p+\?*|hello|wb|welcome\s+back|greetings|yo(?:\s+yo)*(?:\s+du+de)?|m+[ayh]+(?:\s+m+a+i+n+)?\s+m+a+n+|d+u+d+e+)[?!1.\s]*$/osi) {
if ($self->canGreet($event)) {
$self->Perform($event, 'greetings');
}
@ -159,7 +159,7 @@ sub Heard {
}
my $me = quotemeta($event->{'bot'}->nick);
my $expandedme = join('+', split(//gos, $me)).'+';
if ($message =~ /^\s*(?:(?:hi|heya?|w+a+s+u+p+|hello|mornin[g\']?|greetings|yo(?:\s+yo)*|bonjour|hoi)\s+$me|$expandedme\s*)[!1\s]*|o+h[\s,.!?]+look[\s,.!?]+a\s+$me[\s.!1]*$/si) {
if ($message =~ /^\s*(?:(?:(?:g[ood\']*\s*)?(?:mornin[g\']?|evenin[g\']?|afternoon|day)|hi|heya?|bonjour|hoi|w+a+[sz]+u+p+|hello|wb|welcome\s+back|greetings|yo(?:\s+yo)*)\s+$me|$expandedme\s*)[!1\s]*|o+h[\s,.!?]+look[\s,.!?]+a\s+$me[\s.!1]*$/si) {
if ($self->canGreet($event)) {
$self->Perform($event, 'greetings');
}
@ -228,7 +228,7 @@ sub Felt {
$self->Perform($event, 'yousuck');
} elsif ($message =~ /^\s*(?:hugs|kisses|loves)\s+$me[\s!1.]*$/si) {
$self->Perform($event, 'vhappy');
} elsif ($message =~ /^\s*(?:bites)\s+$me[\s.]*$/si) {
} elsif ($message =~ /^\s*(?:bites|spanks)\s+$me[\s.]*$/si) {
$self->Perform($event, 'kinky');
} elsif ($message =~ /^\s*(?:gives|hands|passes|offers)\s+$me\s+(?:a\s+(?:bot\s*)?(?:snack|cookie)|a\s+present|cash|congratulations|applause|praise)[\s!1.]*$/si) {
$self->Perform($event, 'happy');