Pascale - ein Delphi-Chatbot

[Namenloser]

Dieses Programm ist kein "Chat"-Bot im eigentlichen Sinne, sondern aus dem Schulprojekt, einen einfachen ELIZA-Klon zu schreiben, hervorgegangen. Die Aufgabe wäre mit einem einfachen Array und einer zufälligen Ausgabe von Antwortsätzen erledigt gewesen, aber ich wollte das ganze etwas komplizierter gestalten :wink:.

Deshalb habe ich das ganze in einer Baumstruktur und mit regulären Ausdrücken realisiert. Ich glaube, ich hatte dabei noch ein Programm hier aus der DP im Hinterkopf, das ähnlich aufgebaut war, aber auf einer Datenbank basierte. Pascale beruht allerdings nicht auf einer Datenbank im eigentlichen Sinne, sondern bezieht die Schlüsselwörter und Antwortsätze aus Dateien, die mit dem integrierten Editor erstellt und bearbeitet werden können. Die "Intelligenz" des Bots hängt natürlich maßgeblich von der Komplexität und Größe der verwendeten Datei ab. Das Dateiformat ist binär - eigentlich bietet sich für sowas zwar XML an, aber da ich mir kürzlich erst eine simple Unit für verschachtelte Binärdateien geschrieben hab, wollte ich die auch mal benutzen.

Der unkommentierte, aber imo einigermaßen verständliche Sourcecode sowie ein viel zu ausführliches Tutorial (:mrgreen:) befinden sich ebenfalls in dem Archiv. Die DLL wird für die regulären Ausdrücke benötigt... leider habe ich keine Unit für PCRE gefunden, die ohne eine DLL auskommt.

Ich betrachte das Projekt zwar als mehr oder weniger abgeschlossen (das kommt bei mir leider viel zu selten vor), würde mich aber trotzdem über etwas Feedback freuen :wink:.

Ist übrigens mein erstes OpenSource-Programm.

[Larsi]

Also richtig intelligent ist der Bot nicht. Also erst schreibt er "Hallo" darauf hin hab ich "Hi" geschrieben und dann hat den Bot nochmal "Hallo" gesagt. Dann habe ich "Wie gehts?" gefragt und dein Bot antwortete mit "Hallo". Verwirrend :lo:

[Matze]

Hi,

wenn man einen vernünftigen Bot erstellt, ist das vielleicht ok, aber so nicht. ;)

Zitat:

Pascale: Hallo, wie heißt du?
Ich: Matze und wie heißt du?
Pascale: Hallo, wie heißt du?
Ich: immer noch Matze und du?
Pascale: Hallo!
Ich: ja Hi
Pascale: Hallo!
Ich: Ruhe jetzt. Was treibst du denn so?
Pascale: Hallo!
Ich: grrr
Pascale: Hallo, wie heißt du?
Ich: *grml*
Pascale: Hallo!
Ich: Hallo
Pascale: Hallo!

Grüße

[QuickAndDirty]

Hey er simuliert keine Intelligenz sondern einen open Chat.
Zumindest sehen eure Beispiele ziemlich echt aus. So dumm sind meine Gegenüber auch immer.

[Namenloser]

Da hattet ihr wohl alle einen etwas unglücklichen Start. Das ist das Problem, wenn man seine eigenen Bots testet, das ist so ein bisschen wie wenn man gegen sich selber Schach spielt.

Was mich nur etwas wundert ist

Zitat:

Pascale: Hallo!
Ich: ja Hi
Pascale: Hallo!

War das wirklich genau so? Das gleiche scheint bei Larsi ja auch passiert zu sein. Eigentlich kann das aber gar nicht sein, weil der Bot nach "Hallo!" immer (egal welche Eingabe) "Ich heiße Pascale, und du?" fragen müsste. Ich konnte das auch nicht reproduzieren :gruebel:.

Ich hab mal eine leicht veränderte Version der Bot-Datei angehängt. Zumindest sollte es jetzt einfacher sein, in den Haupt-Gesprächszweig zu kommen.

@QuickAndDirty: :lol:

[Matze]

Zitat:

Zitat von NamenLozer

Was mich nur etwas wundert ist

Zitat:

Pascale: Hallo!
Ich: ja Hi
Pascale: Hallo!

War das wirklich genau so?

Ich habe das nicht abgetippt sondern hier hineinkopiert. Folglich war es genau so. ;)

Edit: Mit der neuen Datei entwickelt sich der Dialog etwas anders:

Zitat:

Pascale: Hallo, wie heißt du?
Ich: Matze und wie heißt du?
Pascale: Ich heiße Pascale
Ich: Das ist aber ein merkwürdiger Name
Pascale: Wusstest du, dass ich nichts von dem, was du sagst, verstehe?
Ich: Jetzt weiß ich es
Pascale: Achso
Ich: Kannst du andere Sprachen außer Deutsch?
Pascale: Was meinst du denn?
Ich: Naja Englisch oder Französisch
Pascale: Soso
Ich: ja oder nein?
Pascale: Was meinst du denn?
Ich: naja Framdsprachen. Lies halt auf Wikipedia nach was das ist
Pascale: Soso
Ich: du bist langweilig
Pascale: Meine Datenbank ist leider noch nicht sehr groß...
Ich: das merke ich
Pascale: Wenn du ein Tier sein könntest, welches wärst du?
Ich: Hm, ein Eichenhäher
Pascale: Soso
Ich: Welches Tier wärst du?
Pascale: Was meinst du denn?
Ich: Na ein Huhn, ein Frosch oder eine Schnecke beispielsweise
Pascale: Achso
Ich: und, welches?
Pascale: Was meinst du denn?
Ich: ok lassen wir das
Pascale: Soso
Ich: Soso
Pascale: Wusstest du, dass ich nichts von dem, was du sagst, verstehe?
Ich: ja
Pascale: Soso
Ich: Soso
Pascale: Erzähl mir was...
Ich: ich versuche es doch, aber du blockst immer ab
Pascale: Was würdest du gerne in Zukunft mal machen?
Ich: Es so weit bringen, dass ich echte Freunde zum Chatten habe
Pascale: Achso
Ich: Tschüssi
Pascale: Wie geht es dir?
Ich: mittelprächtig
Pascale: Mhm
Ich: dir?
Pascale: Was meinst du denn?
Ich: cu
Pascale: Achso
Ich: ciao
Pascale: Reden wir über was anderes
Ich: Ne ich hau jetzt ab, Adios
Pascale: Reden wir über was anderes

Es macht aber immer noch keinen Spaß. *g*

[Namenloser]

Zitat:

Zitat von Matze

Es macht aber immer noch keinen Spaß. *g*

Aber es macht Spaß es zu lesen :mrgreen:
Komisch ist hier, dass er auf "Tschüss" nicht reagiert hat. Argh... moment ich habe gerade rausgefunden, das der irgendwie nicht caseinsensitiv arbeitet. Eigentlich dachte ich, dass hätte ich eingebaut :gruebel:

Danke fürs Testen übrigens!

[edit]Neue Version hochgeladen[/edit]

[worker]

Sie haben drei gelbe Bananen bestellt :spin2:

[BullsEye]

Der Ok Button in Info Dialog geht nicht ;)

[Namenloser]

Zitat:

Zitat von BullsEye

Der Ok Button in Info Dialog geht nicht ;)

Jetzt schon :wink:

Ein paar kleine Verbesserungen sind auch noch eingeflossen. Neue Version im ersten Beitrag.