Hallo,
hier mein AddOn Butler(Bot), anbei liegt die TextCommands.pm. Solltet ihr schon etwas verändert haben an eurer TextCommands macht bitte folgende Schritte:
1. öffnet eure TextCommands.pm (diese befindet sich unter cgi-bin/Plugins/CommandHandlers/
2. sucht nach
3. Darunter einfügen
Zum Eintrag in der Datenbank
hier mein AddOn Butler(Bot), anbei liegt die TextCommands.pm. Solltet ihr schon etwas verändert haben an eurer TextCommands macht bitte folgende Schritte:
1. öffnet eure TextCommands.pm (diese befindet sich unter cgi-bin/Plugins/CommandHandlers/
2. sucht nach
3. Darunter einfügen
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 == 8)
{
$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 == 8)
{
$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];
}
Zum Eintrag in der Datenbank