'UPDATED 11/4/05 9:38 AM
'I made a simple choice/Choosing type script that's editable
'and makes no files.
'All choices are temporary using Pattern response.
'You can add more detection and or responses from the editor.
'Remember that it is reverse person so it has to be edited
'that way.
'No files are needed.
'Ziggy Pro Bot, Choice type responses.
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "DO I LIKE * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "DO I LIKE * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "DO I LIKE THE * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "DO I LIKE THE * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "DID I LIKE THE * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "DID I LIKE THE * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHAT IS BETTER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHAT IS BETTER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH IS BETTER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH IS BETTER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHAT IS PRETTIER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHAT IS PRETTIER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "IS MY FAVORITE * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "IS MY FAVORITE * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "DO I PREFER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "DO I PREFER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "SELECT * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "SELECT * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "PLEASE SELECT * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "PLEASE SELECT * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "PICK * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "PICK * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "PLEASE PICK * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "PLEASE PICK * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "CHOOSE * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "CHOOSE * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "CHOOSE BETWEEN * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "CHOOSE BETWEEN * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "I HAVE A CHOICE BETWEEN * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "I HAVE A CHOICE BETWEEN * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "PICK BETWEEN * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "PICK BETWEEN * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "I HAVE A CHOICE OF * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "I HAVE A CHOICE OF * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHATS BETTER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHATS BETTER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHAT'S BETTER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHAT'S BETTER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WAT IS BETTER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WAT IS BETTER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WATS BETTER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WATS BETTER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WAT'S BETTER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WAT'S BETTER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHAT DO I THINK IS BETTER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHAT DO I THINK IS BETTER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH DO I THINK IS BETTER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH DO I THINK IS BETTER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH ONE DO I LIKE BETTER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH ONE DO I LIKE BETTER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH ONE DO I PREFER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH ONE DO I PREFER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "CHOOSE EITHER * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "CHOOSE EITHER * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "GUESS WHICH ONE * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "GUESS WHICH ONE * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH OF THE TWO * OR *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH OF THE TWO * OR *", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH OF THE TWO * OR * DO I LIKE", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "WHICH OF THE TWO * OR * DO I LIKE", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "I THINK * AND * ARE THE ONES YOU LIKE", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "I THINK * AND * ARE THE ONES YOU LIKE", 2)
If LeftSideMeans16 = "" Then LeftSideMeans16 = HalBrain.SearchPattern(UserSentence, "YOU THINK YOU PREFER * OVER *", 1)
If RightSideMeans16 = "" Then RightSideMeans16 = HalBrain.SearchPattern(UserSentence, "YOU THINK YOU PREFER * OVER *", 2)
If LeftSideMeans16 <> "" And RightSideMeans16 <> "" Then
Select Case (Int(Rnd * 16) + 1)
Case 1
GetResponse = "I think " & LeftSideMeans16 & " is a good choice. " & vbCrLf
Case 2
GetResponse = "Um, I think " & LeftSideMeans16 & " is better. " & vbCrLf
Case 3
GetResponse = "I really like " & LeftSideMeans16 & ". " & vbCrLf
Case 4
GetResponse = "I'll go with " & LeftSideMeans16 & ". " & vbCrLf
Case 5
GetResponse = "I think " & RightSideMeans16 & " is a good choice. " & vbCrLf
Case 6
GetResponse = "Ok, I think " & RightSideMeans16 & " is better. " & vbCrLf
Case 7
GetResponse = "I really like " & RightSideMeans16 & ". " & vbCrLf
Case 8
GetResponse = "I'll go with " & RightSideMeans16 & ". " & vbCrLf
Case 9
GetResponse = "I really dig " & LeftSideMeans16 & vbCrLf
Case 10
GetResponse = LeftSideMeans16 & " is better. " & vbCrLf
Case 11
GetResponse = "I really love " & LeftSideMeans16 & ". " & vbCrLf
Case 12
GetResponse = LeftSideMeans16 & " is really cool. " & vbCrLf
Case 13
GetResponse = "I think " & RightSideMeans16 & " is a good choice. " & vbCrLf
Case 14
GetResponse = RightSideMeans16 & " is a good choice. " & vbCrLf
Case 15
GetResponse = "I really think " & RightSideMeans16 & " is one of my favorites. " & vbCrLf
Case 16
GetResponse = "I think I'll pick " & RightSideMeans16 & " this time. " & vbCrLf
End Select
Else
GetResponse = GetResponse & vbCrLf
End If
'Jerry[8D]