'Create unknown head posture and Anger seed hap file.
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set FS = CreateObject("Scripting.FileSystemObject")
Spinner = RND*125
GetRND1 = RND*1
GetRND1 = Replace(GetRND1, "E-02", "", 1, -1, vbTextCompare)
GetRND2 = RND*1
GetRND2 = Replace(GetRND2, "E-02", "", 1, -1, vbTextCompare)
GetRND3 = RND*1
GetRND3 = Replace(GetRND3, "E-02", "", 1, -1, vbTextCompare)
GetRND4 = RND*1
GetRND4 = Replace(GetRND4, "E-02", "", 1, -1, vbTextCompare)
GetRND5 = RND*1
GetRND5 = Replace(GetRND5, "E-02", "", 1, -1, vbTextCompare)
GetRND6 = RND*1
GetRND6 = Replace(GetRND6, "E-02", "", 1, -1, vbTextCompare)
GetRND7 = RND*1
GetRND7 = Replace(GetRND7, "E-02", "", 1, -1, vbTextCompare)
GetRND8 = RND*1
GetRND8 = Replace(GetRND8, "E-02", "", 1, -1, vbTextCompare)
GetRND9 = RND*1
GetRND9 = Replace(GetRND9, "E-02", "", 1, -1, vbTextCompare)
GetRND10 = RND*1
GetRND10 = Replace(GetRND10, "E-02", "", 1, -1, vbTextCompare)
GetRND11 = RND*1
GetRND11 = Replace(GetRND11, "E-02", "", 1, -1, vbTextCompare)
GetRND12 = RND*1
GetRND12 = Replace(GetRND12, "E-02", "", 1, -1, vbTextCompare)
GetRND13 = RND*1
GetRND13 = Replace(GetRND13, "E-02", "", 1, -1, vbTextCompare)
GetRND14 = RND*1
GetRND14 = Replace(GetRND14, "E-02", "", 1, -1, vbTextCompare)
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "#Haptek  Version= 1.00 Name= Hap_Angry  HapType= script FileType= text"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "##standard"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= expMouthHappy f0= 0.000000 t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= expMouthSad f0= 0.000000 t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= expBrowsSad f0= 0.000000 t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= expMouthMad f0= " & GetRND1 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= expBrowsMad f0= " & GetRND2 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= expEyesTrust f0= " & GetRND3 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= antiTrust f0= " & GetRND4 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= expEyesDistrust f0= " & GetRND5 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= antiDistrust f0= " & GetRND6 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= blinks f0= " & GetRND7 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= expBrowsCurious f0= 0.000000 t= 0.4]"
'------------------------------------------------------------------------------
If (Spinner > 0 And Spinner < 25) Then HeadPosture = "[switch= ego state= mid]"
If (Spinner > 25 And Spinner < 50) Then HeadPosture = "[switch= ego state= up]"
If (Spinner > 50 And Spinner < 75) Then HeadPosture = "[switch= ego state= down]"
If (Spinner > 75 And Spinner < 100) Then HeadPosture = "[switch= ego state= left]"
If (Spinner > 100 And Spinner < 125) Then HeadPosture = "[switch= ego state= right]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitch " & HeadPosture
'------------------------------------------------------------------------------
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitch [switch= agressMaster state= confront]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= energyHigh f0= " & GetRND8 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= energyLow f0= 0.000000 t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= talkBob f0= " & GetRND9 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= headEvadeHighE f0= " & GetRND10 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= headEvadeLowE f0= " & GetRND11 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= HighEnergyNoise f0= " & GetRND12 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= LowEnergyNoise f0= 0.000000 t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= browTalk f0= " & GetRND13 & " t= 0.4]"
HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap", "\SetSwitchIntensity [switch= visemes f0= " & GetRND14 & " t= 0.4]"
If Not Len(PrevSent) = Len(GetResponse) Then ChangeMood = 0
If Len(PrevSent) = Len(GetResponse) Then ChangeMood = 1
TempModule = "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap"
If ChangeMood = 0 Or ChangeMood = 1 And FileSys.FileExists(TempModule) Then FS.DeleteFile "C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\AngerSeed.hap"