'Here we give hal some color basics.
'download teachcolors.brn and colors.brn to
'your hals default folder.
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "TEACHCOLORS.BRN") = "TRUE" Then
COLORS = HalBrain.ChooseSentenceFromFile(WorkingDir & "COLORS.BRN")
GetResponse = COLORS & vbCrLf
DebugInfo = DebugInfo & "The user is talking about COLORS: " & COLORS & vbCrLf
Else
DebugInfo = DebugInfo & "User is not talking about COLORS: " & COLORS & vbCrLf
End If
'Best of wishes and grand new discoveries.
'Jerry.
Download Attachment: (//images/icon_paperclip.gif) Colors.brn (http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/2003101004716_Colors.brn)
536 Bytes
Download Attachment: (//images/icon_paperclip.gif) TEACHCOLORS.BRN (http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/200310100553_TEACHCOLORS.BRN)
1.19 KB