Zabaware Support Forums
Zabaware Forums => Ultra Hal Assistant File Sharing Area => Topic started by: cyberjedi on March 21, 2017, 05:36:47 pm
-
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
-
Lightspeed: Much more can be done, just add triggers where u want
-
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