Hallo,
ich bin dabei einen chatbot zu machen , aber alleine dauert das ganz schön lange xD
deshalb suche ich ein oder zwei die mir dabei helfen.
Ich habe schon etwas angefangen und der bot sollte ungefähr so aussehen:
MsgBox(0, "ChatBot", "Made by Bytekiller")
While 1
$egal = InputBox ("", "Sprich mit mir ...")
If StringInStr($egal, "Wie geht´s ?") Or StringInStr($egal, "Wie gehts ?") Or StringInStr($egal, "Wie geht es dir ?") Or StringInStr($egal, "Wie gehts?") Then MsgBox(0, "ChatBot", "Mir geht´s gut so wie immer ;-)", 2)
If StringInStr($egal, "Wixxer") Or StringInStr($egal, "Wichser") Or StringInStr($egal, "Hurensohn") Or StringInStr($egal, "Huso") Or StringInStr($egal, "Arschloch")Or StringInStr($egal, "Bastard") Or StringInStr($egal, "homo")Then MsgBox(0, "ChatBot", "Womit habe ich das verdient ?", 3)
$egal =InputBox ("", "Sprich mit mir...")
If StringInStr($egal, "Wie geht´s ?") Or StringInStr($egal, "Wie gehts ?") Or StringInStr($egal, "Wie geht es dir ?") Or StringInStr($egal, "Wie gehts?") Then MsgBox(0, "ChatBot", "Mir geht´s gut so wie immer ;-)", 2)
If StringInStr($egal, "Wixxer") Or StringInStr($egal, "Wichser") Or StringInStr($egal, "Hurensohn") Or StringInStr($egal, "Huso") Or StringInStr($egal, "Arschloch")Or StringInStr($egal, "Bastard") Or StringInStr($egal, "homo")Then MsgBox(0, "ChatBot", "Womit habe ich das verdient ?", 3)
WEnd
Bisher ist der Bot noch recht simple aber wer weiß
könnt euch ja melden falls ihr interesse habt