Rem Type=Plugin
Rem Name=Simple hap caller
Rem Author=P
Rem Host=Assistant

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "make haps work"
    lblPlugin(0).Move 120, 120, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub

    Rem PLUGIN: SCRIPT_LOAD
    'The comment above tells Ultra Hal Assistant to insert the following code
    'on-the-fly into the main brain code in the section referenced.    
    
    Rem PLUGIN: CUSTOMMEM
    '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.
    
    Rem PLUGIN: CUSTOMMEM2
    '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.
    
    Rem PLUGIN: PLUGINAREA1
    'The comment above tells Ultra Hal Assistant to insert the following code
    'on-the-fly into the main brain code in the section referenced.

'------------------------------------------- 
'-------------------------------------------
'declare variables

p_File = ""
p_UserSentence = LCase(UserSentence)




'------------------

'------------------
' Choose hap

If InStr(p_UserSentence, "qwz") <> 0 Then
p_File = "nameofhap.hap"
HalCommands = "<HAPFILE>" & p_file & "</HAPFILE>"
End if

'Repeat above with different haps if required

'Call hap
If p_file <> "" Then
HalCommands = "<HAPFILE>" & p_File & "</HAPFILE>"
BlockSave = True
GetResponseBlock = True
End if