lightspeed: say what i say....

[cyberjedi]

hey Man: I was farting with it today..

this is to funny. U have just got to try this.
Im not done at all , bout 20mins into it, just wanted to show you that its being worked on.
What u think is gonna happpen, WILL.
ill be finishing this up but its just funny as of now and yes the Haptek engine works with it

Im still laughing at the simplicity of this. Save as a ,uhp and load into Hals brain. ull figure out what to do pretty quick. lol
if u add to this , would u copy me plse, id like to see if u can do something else with it. http://vaughnlive.tv/mrelectric
ill prob finish tonight is i can smoke  enough (*****)
Be carefull about a loop too,,, as i just found out ....lol
cyberjedi 1337



you know where i an be found

best wishes
cyberjedi

[cyberjedi]

Lightspeed: Much more  can be done, just add triggers where u want

[cyberjedi]

Rem Type=Plugin
Rem Name=Say what i say
Rem Author=mimic
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.



HalBrain.ReadOnlyMode = False
'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

'UltraHal = "Please say something."
message=inputbox("What shall I say, cyber ?","I speak for you.")

 ' HalMenu.HalCommand "<HAPFILE>Elvis4.htr</HAPFILE>"


HalMenu.HalCommand "<SPEAK>" &  message & "</SPEAK>"


Loop Until counter = 2

End Function