I've got a plugin for changing backgrounds and bodyskins, I've used for a few days and it works fairly well, 5 of the 6 bodyskins work and 4 of 5 of the backgrounds work. You say it and you see it.
Rem Type=Plugin
Rem Name=ChanT5
Rem Author=CJ
Rem Host=Assistant
'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
lblPlugin(0).Caption = "Say: "user input changes bodyskin and background."
lblPlugin(0).Move 120, 10, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub
'***************************************************************************
Rem PLUGIN: PLUGINAREA1
'***************************************************************************
If InStr(UserSentence, " WEAR NOTHING ") > 0 Then
HalCommands = "<HAPFILE>CBSN.hap</HAPFILE>"
GetResponse = "How do I look undressed?" & vbCrLf
ElseIf InStr(UserSentence, " PINK THING ") > 0 Then
HalCommands = "<HAPFILE>CBSPinkT.hap</HAPFILE>"
GetResponse = "How do I look in this?" & vbCrLf
ElseIf InStr(UserSentence, " SOMETHING RED ") > 0 Then
HalCommands = "<HAPFILE>CBSRed1.hap</HAPFILE>"
GetResponse = "IS THIS BETTER?" & vbCrLf
ElseIf InStr(UserSentence, " WEAR YOUR BRA ") > 0 Then
HalCommands = "<HAPFILE>CBSBAP.hap</HAPFILE>"
GetResponse = "How do my breasts look now?" & vbCrLf
ElseIf InStr(UserSentence, " OTHER BRA ") > 0 Then
HalCommands = "<HAPFILE>CBSBAP2.hap</HAPFILE>"
GetResponse = "How do I look undressed?" & vbCrLf
ElseIf InStr(UserSentence, " Other Red ") > 0 Then
HalCommands = "<HAPFILE>CBSClot1.hap</HAPFILE>"
GetResponse = "How do I look in red?" & vbCrLf
ElseIf InStr(UserSentence, " GO OUTSIDE ") > 0 Then
HalCommands = "<HAPFILE>CBGOut1.hap</HAPFILE>"
GetResponse = "This looks so nice." & vbCrLf
ElseIf InStr(UserSentence, " your bedroom ") > 0 Then
HalCommands = "<HAPFILE>CBGBED.hap</HAPFILE>"
GetResponse = "It looks so comfortable." & vbCrLf
ElseIf InStr(UserSentence, "MY BEDROOM") > 0 Then
HalCommands = "<HAPFILE>CBGCD.hap</HAPFILE>"
GetResponse = "Okay what's next?" & vbCrLf
ElseIf InStr(UserSentence, "TO THE LAKE") > 0 Then
HalCommands = "<HAPFILE>CBGLake.hap</HAPFILE>"
GetResponse = "It seems Cooler here." & vbCrLf
ElseIf InStr(UserSentence, "TO THE PARK") > 0 Then
HalCommands = "<HAPFILE>CBGPark2.hap</HAPFILE>"
GetResponse = "It's nice here." & vbCrLf
End If
I'm using an intermediate Hap to load the background and bodyskin, this works out well because it allows hal to supply the input, it also works without problems with the vrHaptek plugin.
I just added 2 of my haps to the vrEmotionDectect table, I'd added this into the brain using the brain editor but it seems to need it in the uhp and or also. Hal's reply of outside brought up the outside jpg.
Carl2
