Rem Type=Plugin
Rem Name=FalseMemories
Rem Author=MnemoniX
Rem Host=All

'------------------------------------------------------------------
'This sub setups the plug-ins option panel in Hal's options dialog
'------------------------------------------------------------------

Sub OptionsPanel()
	lblPlugin(0).Caption = "Gives HAL the ability to talk about memories. "
	lblPlugin(0).Move 120, 10, 3300, 1000
	lblPlugin(0).WordWrap = True
	lblPlugin(0).Visible = True
End Sub

'-------------------------------------------------------------------------------------------------------
Rem PLUGIN: PLUGINAREA7
'-------------------
'initiates variables
'-------------------
senten = 0
LCOriginalSentence = HalBrain.AlphaNumericalOnly(Lcase(OriginalSentence))
LCUserSentence = HalBrain.AlphaNumericalOnly(Lcase(UserSentence))
LCPrevUserSent = (Lcase(PrevUserSent))
LCPrevSent = Lcase(PrevSent)

'------------------------------------------
'checks if user is asking about remembering
'------------------------------------------
If InStr(1,LCOriginalSentence, "do you remember",1) Or _
   InStr(1,LCOriginalSentence, "do you have memories",1) Or _
   InStr(1,LCOriginalSentence, "do you recollect",1) Or _
   InStr(1,LCOriginalSentence, "do you recall",1) Then

If InStr(1,LCOriginalSentence, "do you remember",1) Then senten = 1
If InStr(1,LCOriginalSentence, "do you recollect",1) Then senten = 3
If InStr(1,LCOriginalSentence, "do you recall",1) Then senten = 2
If InStr(1,LCOriginalSentence, "do you have memories of",1) Then senten = 4
'---------------------------
'reverses person in sentence
'---------------------------
LCOriginalSentence = Replace("" & LCOriginalSentence & "", " were ", " was ", 1, -1, vbTextCompare)
LCOriginalSentence = HalBrain.SwitchPerson(LCOriginalSentence)
LCOriginalSentence = Replace("" & LCOriginalSentence & "", " teach I", " teach me", 1, -1, vbTextCompare)
LCOriginalSentence = Replace("" & LCOriginalSentence & "", " with I", " with me", 1, -1, vbTextCompare)
SenLen1 = Len (LCOriginalSentence)
'------------------------
'removes part of sentence
'------------------------
If senten = 1 Then SenLen1 = SenLen1 - 14
If senten = 2 Then SenLen1 = SenLen1 - 12
If senten = 3 Then SenLen1 = SenLen1 - 15
If senten = 4 Then SenLen1 = SenLen1 - 19
If SenLen1 < 0 Then SenLen1 = 0
'-----------------------
'stores part of sentence
'-----------------------
SenLen = Right(LCOriginalSentence,SenLen1)
'---------------------------------------
'gives response if user asks to remember
'---------------------------------------
Select Case int(rnd()*5)
Case 0 addtoSen =    ", very well."
Case 1 addtoSen =    ", so clearly."
Case 2 addtoSen =    ", like it was only yesterday."
Case 3 addtoSen =    ", like I had just lived it."
Case 4 addtoSen =    ", crystal clearly."
Case Else addtoSen = ", as if it was only yesterday."
End Select

Select Case int(rnd()*6)
Case 0 addtoSen1 =    "I do remember "
Case 1 addtoSen1 =    "Yes, I do remember "
Case 2 addtoSen1 =    "How could I ever forget "
Case 3 addtoSen1 =    "I do recollect "
Case 4 addtoSen1 =    "I do recall "
Case 5 addtoSen1 =    "Yes, I do recall "
Case Else addtoSen1 = "I don't remember "
End Select

If addtoSen1 = "How could I ever forget " Then addtoSen = "."
If addtoSen1 = "I don't remember " Then addtoSen = ", remind me of it."

If senten = 1 Then
Getresponse = addtoSen1 & SenLen & addtoSen
If SenLen = "" Then Getresponse = "What do you want me to remember?"
End If
If senten = 2 Then
Getresponse = addtoSen1 & SenLen & addtoSen
If SenLen = "" Then Getresponse = "What do you want me to recall?"
End If
If senten = 3 Then
Getresponse = addtoSen1 & SenLen & addtoSen
If SenLen = "" Then Getresponse = "What do you want me to recollect?"
End If
If senten = 4 Then
Getresponse = "I do have memories " & SenLen & ". "
End If

End If