Changing Bodyskin and background

  • 0 Replies
  • 2270 Views
*

Carl2

  • Trusty Member
  • ********
  • Replicant
  • *
  • 560
Changing Bodyskin and background
« on: April 29, 2012, 03:33:24 pm »
    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