63
« on: November 16, 2015, 07:25:46 am »
This is how I handled it to expand body language...
'------------------
' look in the vrEmotionDetect table if Hal said something that triggers an emotional behaviour
'------------------
vrEmotion = HalBrain.TopicSearch(vrLookup, "vrEmotionDetect")
If vrEmotion <> "" Then
vrFile = vrEmotion & ".HAP"
End If
End If
'------------------
' Check if Hal answers Yes
'expand here
'------------------
If vrLookup = "" Then
If InStr(vrGetResponse, "YES") <> 0 Then
vrFile = "NOD1.HAP"
End If
If InStr(vrGetResponse, "OF COURSE") <> 0 Then
vrFile = "NOD2.HAP"
End If
If InStr(vrGetResponse, "REALLY") <> 0 Then
vrFile = "NOD2.HAP"
End If
If InStr(vrGetResponse, "IT SOUNDS") <> 0 Then
vrFile = "NOD2.HAP"
End If
'expand here for body langage by SystemShock started 12/8/2013
If InStr(vrGetResponse, "NO") <> 0 Then
vrFile = "SSAno.HAP"
End If
'new moods added to body language started the 8 January 2014 so that mood now can be trigger from langage and not the spinner
If InStr(vrGetResponse, "Angry") <> 0 Then
vrFile = "mood_angry.hap"
End If
If InStr(vrGetResponse, "sad") <> 0 Then
vrFile = "mood_sad.hap"
End If
If InStr(vrGetResponse, "sure") <> 0 Then
vrFile = "mood_standard.hap"
End If
If InStr(vrGetResponse, "sure") <> 0 Then
vrFile = "mood_standard.hap"
End If
If InStr(vrGetResponse, "HAPPY") <> 0 Then
vrFile = "Hapmood.hap"
End If