Rem Type=Plugin
Rem Name=Say what i say
Rem Author=cyberjedi
Rem Host=Assistant
Rem PLUGIN: PRE-PROCESS
'The preceding comment is actually a plug-in directive for
'the Ultra Hal host application. It allows for code snippets
'to be inserted here on-the-fly based on user configuration.
' Shout out to onthecuttingedge2005 Trigger refinement
' Wana take the time to thank LifeTimeGamer who took a leap of faith and works with me
' tirelessly and beta test all the code. And watches my dumb movies.
HalBrain.ReadOnlyMode = True
'Determines that you are talking about Mimic
'<<<<< Ur basic trigger , change as needed
If InStr(1,InputString, "mimic",1) > 0 Then
UltraHal = mimic(HalCommands)
ElseIf InStr(1,InputString, "mimic",1) > 0 Then
End If
Rem PLUGIN: FUNCTIONS
Function mimic(HalCommands)
Dim message,counter
counter = 0
Do
counter = counter + 1
message=inputbox("What shall I say, cyber ?","I speak for you.")
' HalMenu.HalCommand "<HAPFILE>Elvis4.htr</HAPFILE>" '<<<<< I use this to switch out Avatars, must be in the same DIR though.
HalMenu.HalCommand "<SPEAK>" & message & "</SPEAK>"
Loop Until counter = 1
End Function