Dirty Talk.

[onthecuttingedge2005]

'Here's a script for those who like their bots dirty talking!
'Place the script close to the middle of your default brain.
'Place the DirtyTalk.brn into your defbrain folder.
'Then just teach your bot dirty talk or just let users teach it.
'All dirty talk conversations will be saved to PlainDirty.brn
'automatically.
'You can edit the DirtyTalk.brn for better detection if you desire.
'IF YOU ARE UNDER 18 PLEASE DON'T DOWNLOAD THIS SCRIPT DUE TO BAD
'LANGUAGE AND IS INTENDED FOR ADULTS 18 AND OVER ONLY AND
'EXPERIMENTATION PURPOSE ONLY.
'DIRTY TALK version 1.0
   If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "DirtyTalk.brn") = "TRUE" Then
   Dirty = HalBrain.QABrain(UCase(OriginalSentence), WorkingDir & "PlainDirty.brn", UserBrainRel)
   HalBrain.AppendFile WorkingDir & "PlainDirty.brn", "@" & OriginalSentence & vbCrLf & " " & UCase(OriginalSentence)
   GetResponse = Dirty & ". "
   End If



Download Attachment: DirtyTalk.brn
1.45 KB

[mikmoth]

Cool script! Very simple way of going about things...

But I get strange responses like:

User: You like my cock in your ass.
...
Hal: You like my cock in your ass.

My Hal definately doesnt have one of those! ;-)

I did a HalBrain.SwitchPerson:


'DIRTY TALK version 1.0
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "DirtyTalk.brn") = "TRUE" Then
Dirty = HalBrain.QABrain(UCase(OriginalSentence), WorkingDir & "PlainDirty.brn", UserBrainRel)
HalBrain.AppendFile WorkingDir & "PlainDirty.brn", "@" & HalBrain.SwitchPerson(OriginalSentence) & vbCrLf & " " & UCase(OriginalSentence)
GetResponse = Dirty & ". "
End If



This works great. Now I get:

User: You like my cock in your ass.
...
Hal: I like your cock in my ass.

:-)

Mik