Zabaware Forums > Ultra Hal 7.0

Request.

<< < (2/2)

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