Zabaware Forums > Ultra Hal 7.0
Request.
cyberjedi:
Rem Type=Plugin
Rem Name=Say what i say
Rem Author=who cares Haaaaaa,
Rem Host=Assistant
' Dont forget to turn hals mic on or ur typing it in. works both ways
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 = True
'Determines that you are talking about going into Mimic Mode, We Pre Process here so we can jack Hals memory . Same as with the spell check plugin.
'<<<<< 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
' This has been tested on booth XP and 07 and 10 platforms
' its very little code but done just rite......
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.") ' change to ur handle
HalMenu.HalCommand "<HAPFILE>Elvis4.htr</HAPFILE>" 'Match this to ur current Char or leave to another char, when plugin fires the char will change, u can all kinda nift sht here
HalMenu.HalCommand "<SPEAK>" & message & "</SPEAK>"
Loop Until counter = 2 ' this little jewel is priceless, set to ur liking , it sets a break in the loop 4 you, then kicks out
End Function
Navigation
[0] Message Index
[*] Previous page
Go to full version