1
Ultra Hal 7.0 / Re: Request.
« Last post by cyberjedi 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, 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
' 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 with chat access to hal and needed to be able to break into my live stream using hal without the viewer evr knowing it wasn't Hal any more. https://www.youtube.com/watch?v=OcTE1vW9eko
'It was just awesome 'responses in the chat. I took it next genna CREEPY..... hahahah . Had a viewer say i was gonna burn in hell for building this sht.
'
' its very little code but done just rite...... https://www.youtube.com/watch?v=F8OILIxWWZY
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
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, 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
' 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 with chat access to hal and needed to be able to break into my live stream using hal without the viewer evr knowing it wasn't Hal any more. https://www.youtube.com/watch?v=OcTE1vW9eko
'It was just awesome 'responses in the chat. I took it next genna CREEPY..... hahahah . Had a viewer say i was gonna burn in hell for building this sht.
'
' its very little code but done just rite...... https://www.youtube.com/watch?v=F8OILIxWWZY
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
End Function
'As always, if it aint on tape it didnt happen https://www.youtube.com/watch?v=MDxiRjzTIU4