1
Ultra Hal 7.0 / Re: Request.
« on: Today at 04:46:54 am »
Rem Type=Plugin
Rem Name=Say what i say
Rem Author=who cares Haaaaaa,
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 = True
'Determines that you are talking about going into Mimic Mode,
'<<<<< 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 platforms
' This is a coolass scraper
' pretty nifty
' This is extremely powerful in the correct hands trust me. Your very own voice changer,
' I was streaming Hal onto twitch and needed to be able to break into my live stream without the viewer evr knowing. It was just awesome the looks on faces and responses in the chat.
' 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
HalMenu.HalCommand "<SPEAK>" & message & "</SPEAK>"
Loop Until counter = 2
End Function
As always, if it aint on tape it didnt happen https://www.youtube.com/watch?v=MDxiRjzTIU4
Rem Name=Say what i say
Rem Author=who cares Haaaaaa,
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 = True
'Determines that you are talking about going into Mimic Mode,
'<<<<< 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 platforms
' This is a coolass scraper
' pretty nifty
' This is extremely powerful in the correct hands trust me. Your very own voice changer,
' I was streaming Hal onto twitch and needed to be able to break into my live stream without the viewer evr knowing. It was just awesome the looks on faces and responses in the chat.
' 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
HalMenu.HalCommand "<SPEAK>" & message & "</SPEAK>"
Loop Until counter = 2
End Function
As always, if it aint on tape it didnt happen https://www.youtube.com/watch?v=MDxiRjzTIU4