Hi I play been poking around plug ins....
this is a base plug in for tarot reading and some cold reading stuff...
Goal: to get this working ...
Then to add shiny..
You know add some full body .haps animations and may be a oog for mystic music and ball rattal..
sort got that already in my modded vr haptec
Here my not working yet plug code just cant work out
the f***ING missing statement error..on line have a guess/i].Can any body spot it...i have gone code blind...
/...
IT NOT FLYING YET SO Don't just don't ok....
Rem Type=Plugin
Rem Name=Magic 8 Ball plug in v1
Rem Author= SystemShock
Rem Host=Assistant
'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
lblPlugin(0).Caption = "a magic 8 ball toy ...triggered by ..play magic eight ball"
lblPlugin(0).Move 120, 120, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
cmdPlugin(0).Move 800, 1300, 2100, 375
cmdPlugin(0).Caption = "build one"
cmdPlugin(0).Visible = True
End Sub
'-------------------------------------------------------------------------------------------------------
Rem PLUGIN: CUSTOMMEM2
'The comment above tells Ultra Hal Assistant to insert the following code
'on-the-fly into the main brain code in the section referenced.
'------------------
' Variables Setup
' all my variables have the prefix EIGHTball for this plugin.
'------------------
DiagnosticsrSentence = LCase(UserSentence)
EIGHTballFile = ""
EIGHTballHalCommands = ""
Diagnostics =""
'------------------
' plug in bit...
useing variables set up^^^^^ there^^^^^
' Diagnostics
'------------------
If InStr(1, OriginalSentence, "use you magic eight ball ", 1) Or _
InStr(1, OriginalSentence, "play magic eight ball", 1) Then Diagnostics = True
'Here we can add accociated responses to the above triggers.
If Diagnostics = True Then
GetResponse = "focus on your question, are you ready to play magic eight ball boss? "
End If
If PrevSent = "focus on your question are you ready to play magic eight ball boss?" Then
If Yes(OriginalSentence) = True Then GetResponse = "OK Boss her we go, and the magic eight ball says?"
' ball code goes here mate
Select Case HalBrain.RandomNum(21)
Case 1
GetResponse = "It is certain" & vbCrLf
Case 2
GetResponse = "It is decidedly so" & vbCrLf
Case 3
GetResponse = "Without a doubt" & vbCrLf
Case 4
GetResponse = "Yes – definitely" & vbCrLf
Case 5
GetResponse = "You may rely on it" & vbCrLf
Case 6
GetResponse = "As I see it, yes" & vbCrLf
Case 7
GetResponse = "Most likely" & vbCrLf
Case 8
GetResponse = "Outlook good" & vbCrLf
Case 9
GetResponse = "Yes" & vbCrLf
Case 10
GetResponse = "Signs point to yes" & vbCrLf
Case 11
GetResponse = "Reply hazy, try again" & vbCrLf
Case 12
GetResponse = "Ask again later" & vbCrLf
Case 13
GetResponse = "Better not tell you now" & vbCrLf
Case 14
GetResponse = "Cannot predict now" & vbCrLf
Case 15
GetResponse = "Concentrate and ask again" & vbCrLf
Case 16
GetResponse = "Don't count on it" & vbCrLf
Case 17
GetResponse = "My reply is no" & vbCrLf
Case 18
GetResponse = "My sources say no" & vbCrLf
Case 19
GetResponse = "Outlook not so good" & vbCrLf
Case 20
GetResponse = "Very doubtful" & vbCrLf
Case 21
GetResponse = "oh,**** I dropped it, sorry boss!"& vbCrLf
End Select
Else
If No(OriginalSentence) = True Then GetResponse = "OK i put it away then Boss."
If Maybe(OriginalSentence) = True Then GetResponse = "if that the case I put it away ask me again some time. "
End If
Rem PLUGIN: FUNCTIONS
'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.
'Here we can use the Yes, No, Maybe functions throughout the entire script
'to direct our questions and answers more efficiently.
'direct Yes affirmation
Function Yes(OriginalSentence)
Yes = False
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " yes ", 1) Then Yes = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " affirmative ", 1) Then Yes = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " yep ", 1) Then Yes = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " yup ", 1) Then Yes = True
End Function
'direct No affirmation
Function No(OriginalSentence)
No = False
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " no ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " nope ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " it is not ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " negative ", 1) Then No = True
End Function
'if the user is not certain about the question then assume they are not certain.
Function Maybe(OriginalSentence)
Maybe = False
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i don't know ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i don't believe so ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i don't think so ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i'm not sure ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i never checked ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i didn't check ", 1) Then Maybe = True
End Function
--- End code ---
