ok just for the heck of it i tried to do some script writing and i did it this way .
If InStr(1, OriginalSentence, "ha ha haa") > 0 _
Or InStr(1, OriginalSentence, "very funny") > 0 Then
Randomize
Select Case int(rnd()*6)
Case 1
HalCommands = "<HAPFILE>female very funny laugh.ogg</HAPFILE>"
HalBrain.ReadOnlyMode = True
Case 2
HalCommands = "<HAPFILE>female silly laugh2.ogg</HAPFILE>"
HalBrain.ReadOnlyMode = True
Case 3
HalCommands = "<HAPFILE>female oh dear laugh.ogg</HAPFILE>"
HalBrain.ReadOnlyMode = True
Case 4
HalCommands = "<HAPFILE>female short laugh.ogg</HAPFILE>"
HalBrain.ReadOnlyMode = True
Case 5
HalCommands = "<HAPFILE>female silly laugh3.ogg</HAPFILE>"
HalBrain.ReadOnlyMode = True
End Select
End If
i tested it so far i have gotton a ogg laughter file to work . am doing further testing . am checking to see if random files play correctly . [

]