quote:
Originally posted by crunch
still having trouble?
i explain it in this post
http://www.zabaware.com/forum/topic.asp?TOPIC_ID=1720
what am i doing wrong?
thanks
Here Crunch.
I re-Modified the script, Should work for you now. It may have been the appending that interferring with the GetResponse but this one should work for you, you will still need the Bible.brn though.
The Bible.brn is to large to post here.
'Ziggy converts Bible to UserBrainRel format for more Relevent Bible conversations.
'This Appending conversion is pretty CPU intensive and you may see a
'popup panel that says this is taking longer than expected but no need to
'worry it is because your computer is going through lots of strings at once.
'This conversion changes random sentences into UserBrainRel format
'at a ratio of 1:28, for every single getresponse 28 lines of the bible
'is converted to a more relevent format.
'Array format convertor v1.1 CopyRight 2004-2005 Gerald L.Blakley.
BibleTop1 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop2 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop3 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop4 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop5 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop6 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop7 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop8 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop9 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop10 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop11 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop12 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop13 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop14 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop15 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop16 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop17 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop18 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop19 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop20 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop21 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop22 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop23 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop24 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop25 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop26 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop27 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
BibleTop28 = HalBrain.ChooseSentenceFromFile(WorkingDir & "Bible.brn")
Dim BibleArray
BibleArray = Array(BibleTop1,BibleTop2,BibleTop3,BibleTop4,BibleTop5,BibleTop6,BibleTop7,BibleTop8,BibleTop9,BibleTop10,BibleTop11,BibleTop12,BibleTop13,BibleTop14,BibleTop15,BibleTop16,BibleTop17,BibleTop18,BibleTop19,BibleTop20,BibleTop21,BibleTop22,BibleTop23,BibleTop24,BibleTop25,BibleTop26,BibleTop27,BibleTop28)
For Each arrayElement In BibleArray
If Instr(1, arrayElement, arrayElement, vbTextCompare) > 0 Then
HalBrain.AppendFile WorkingDir & "BibleStory.brn", "@" & arrayElement & vbCrLf & " " & UCase(arrayElement)
HalBrain.AppendFile WorkingDir & "Bible_Story_Detect.brn", """" & UCase(arrayElement) & """,""" & UCase(arrayElement) & """"
DebugInfo = DebugInfo & "Bible: " & arrayElement & vbCrLf
'Respond To Ziggy's learned Bible Relevence.
Dim Biblestory, Biblical
Biblestory = HalBrain.TopicSearch(PrevUserSent, WorkingDir & "Bible_Story_Detect.brn")
If Instr(1, UserSentence, Biblestory, vbTextCompare) <> "" Then
Biblical = HalBrain.QABrain(UCase(UserSentence), WorkingDir & "BibleStory.brn", UserBrainRel)
GetResponse = Biblical
DebugInfo = DebugInfo & "Response from bible: " & GetResponse & vbCrLf
End If
End If
Next
Best of wishes and brand new discoveries.
Jerry.