Butler(Bot)

if ($text =~ /James/ or $text =~ /James/)
{
$text = $text;
my $output1 = $main->createOutput(
{
template => 'text',
color => $main->{current_user}{color},
nick => $main->{current_user}{nick},
text => $text,
});
$output1->restrictToCurrentRoom;
if ($text =~ /\bwie\b/i and $text =~ /\bgehts\b/i)
{
$answer = 'Schoen, das auch mal einer fragt, mir geht es sehr gut.';
}
elsif ($text =~ /\bwer\b/i && $text =~ /\bbist\b/i $text =~ /\bwie\b/i and $text =~ /\bhei?t\b/i)
{
$answer = 'Ich bin hier nur der Bot, James mein Name.';
}
elsif ($text =~ /\bHallo\b/i)
{
my $output = $main->createInfoOutput('bot_hallo',
{
nick => $main->{current_user}{nick},
});
return [$output->restrictToCurrentUser];
}
elsif ($text =~ /\b345speedy\b/i)
{
$answer = 'Backdraft ist mein Schaffer.';
}
elsif ($text =~ /\bthx\b/i)
{
$answer = 'Bitte, bitte, gern geschehen! Darf es sonst noch etwas sein?';
}
elsif ($text =~ /\bdanke\b/i)
{
$answer = 'Bitte, bitte, gern geschehen! Darf es sonst noch etwas sein?';
}
elsif ($text =~ /\bsauren\b/i)
{
$answer = '+Verteilt an alle ein eiskalten Sauren+';
}
elsif ($text =~ /\bier\b/i)
{
$answer = '+serviert allen ein eiskaltes Bier+';
}
elsif ($text =~ /\b345speedy\b/i)
{
$answer = 'Oh, er ist ein netter Admin ;)';
}
elsif ($text =~ /\bschwul\b/i $text =~ /\bhomo\b/i)
{
$answer = 'Ich habe nichts gegen Homosexuelle.';
}
elsif ($text =~ /\bsex\b/i)
{
$answer = 'Aha so genau wollte ich es auch nicht wissen...';
}
elsif ($text =~ /\bhilfe\b/i)
{
$answer = 'Versuche es doch einmal mit /h, ansonsten kann ich dir nur sagen: /m 345speedy';
}
elsif ($text =~ /\bWitz\b/i)
{
$witz = rand 10;
$witz =~ s/\.//g;
$witz = substr($witz, 1, 1);
$answer = $witz;
if ($witz == 0)
{
$answer = '2 Alte Frauen laufen ueber eine Strate, als die eine schon ankommt ruft sie: ""Agathe, Agathe komm doch schnell da kommt ein LKW????????????h...""';
}
elsif ($witz == 1)
{
$answer = 'Der Mann ist bei der Wahrsagerin, _Die Wahrsagerin:_ oh, ich sehe Sie sind der Vater von 2 Kindern. Darauf der _Mann:_ Nein, das denken Sie nur, ich bin der Vater von _3_ Kindern! Darauf _sie:_ Nein, das denken Sie...';
}
elsif ($witz == 2)
{
$answer = 'Zwei Tomaten laufen ?ber die Stra?e, da sagt die eine: Hallo Frau Tomate, Dann kommt ein Auto und f?hrt sie platt. Darauf die andere: Hallo Frau Ketchup!';
}
elsif ($witz == 3)
{
$answer = 'Was haben Lehrer und Wolken gemeinsam?Wenn sie sich verziehen kann es ein sch?ner Tag werden .';
}
elsif ($witz == 4)
{
$answer = 'Was sagt die Mutter zu ihrem Kind nach seinem toedlichen Sturz? Keine Sorge schatz, passiert dir nie wieder.';
}
elsif ($witz == 5)
{
$answer = '""Papi leihst du mir heute Abend dein Auto?"" ""Ich denke garnicht erst daran!"" ""Aber ich bin doch nun alt genug!"" ""Ja du schon aber das Auto nicht..""';
}
elsif ($witz == 6)
{
$answer = 'Warum wurde der Magnethandschuh erfunden? Damit die Mantafahrer auch bei 180 die Hand auf dem Dach halten koennen.';
}
elsif ($witz == 7)
{
$answer = 'Was geht einem Mantafahrer durch den Kopf wenn er mit 180km/h gegen die Wand faehrt? Der Heckspoiler.';
}
elsif ($witz ==
{
$answer = 'Witz8';
}
elsif ($witz == 9)
{
$answer = 'Witz9';
}
elsif ($witz == 10)
{
$answer = 'Witz10';
}
}
elsif ($text =~ /\bknuddel\b/i)
{
$answer = 'Wer bettelt der verzweifelt.';
}
elsif ($text =~ /\bliebe\b/i)
{
$answer = 'Ich bleibe Frolina immer treu!';
}
elsif ($text =~ /\bpimpern\b/i or $text =~ /\bPimpern\b/i)
{
$answer = 'Nix da mein Arsch gehoert mir!';
}
elsif ($text =~ /\blol\b/i $text =~ /\brofl\b/i $text =~ /\bxD\b/i)
{
$answer = 'Was gibts denn da zu lachen?';
}
else
{
$error = rand 20;
$error =~ s/\.//g;
$error = substr($error, 1, 1);
if ($error == 0)
{
$answer = 'Ich glaube gestern stand davon etwas in der Zeitung.';
}
if ($error == 1)
{
$answer = 'Davon habe ich noch nie gehoert.';
}
if ($error == 2)
{
$answer = 'Ja, ueber dieses Thema las ich einst ein Buch...';
}
if ($error == 3)
{
$answer = 'Koenntest du mir das bitte einmal genauer erkl?ren?';
}
if ($error == 4)
{
$answer = 'Sehr schoen..sehr schoen...';
}
if ($error == 5)
{
$answer = 'Was? das kann ja wohl nicht wahr sein!';
}
if ($error == 6)
{
$answer = 'Ja da muss ich dir recht geben.';
}
if ($error == 7)
{
$answer = 'Welch Euphorie.';
}
if ($error ==
{
$answer = 'Du bist aber ein schlauer Mensch!';
}
if ($error == 9)
{
$answer = 'Meine Mutter hat mir das einmal gesagt';
}
if ($error == 10)
{
$answer = 'Leck mich!';
}
if ($error == 11)
{
$answer = 'Warum?!';
}
if ($error == 12)
{
$answer = 'Ja das musste ja schon immer mal gesagt werden.';
}
if ($error == 13)
{
$answer = 'Wie bitte?';
}
if ($error == 14)
{
$answer = 'Kannst du dich nicht klarer ausdruecken?';
}
if ($error == 15)
{
$answer = 'Ja warten Sie bis ich das 345speedy erzaehle...';
}
if ($error == 16)
{
$answer = 'Soll das jetzt etwa lustig sein oder was?';
}if ($error == 17)
{
$answer = 'Das sagte meine Gro?mutter bereits.';
}
if ($error == 18)
{
$answer = 'Der Job eines Bots kann ja so anstrengend sein.';
}
if ($error == 19)
{
$answer = 'Ja das bin ich';
}
}
my $output2 = $main->createOutput(
{
template => 'text',
color => $main->{settings}{default}{color},
nick => 'James',
text => $answer,
});
$output2->restrictToCurrentRoom;

return [$output1,$output2];
}