'Ziggy's Static Memory Array v1.1
'This code is expandable and additional Static Array Memory Modules can be Added to increase past memory.
'All Memory files are auto generated and requires no additional files other than this code.
'This Code set will store the last 10 things the User Said into Static Memory.
'This Allows Ziggy to have the potential to recall the last 10 things in the past the User said flawlessly.
'Create Static Memory Array Map.
'Create Map to Memory Cells.
If CheckExistence = "" Then CheckExistence = 0
filename1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory1Map.brn")
If Len(filename1) = 0 Then CheckExistence = 1
If CheckExistence2 = "" Then CheckExistence2 = 0
filename2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory2Map.brn")
If Len(filename2) = 0 Then CheckExistence2 = 1
If CheckExistence3 = "" Then CheckExistence3 = 0
filename3 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory3Map.brn")
If Len(filename3) = 0 Then CheckExistence3 = 1
If CheckExistence4 = "" Then CheckExistence4 = 0
filename4 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory4Map.brn")
If Len(filename4) = 0 Then CheckExistence4 = 1
If CheckExistence5 = "" Then CheckExistence5 = 0
filename5 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory5Map.brn")
If Len(filename5) = 0 Then CheckExistence5 = 1
If CheckExistence6 = "" Then CheckExistence6 = 0
filename6 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory6Map.brn")
If Len(filename6) = 0 Then CheckExistence6 = 1
If CheckExistence7 = "" Then CheckExistence7 = 0
filename7 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory7Map.brn")
If Len(filename7) = 0 Then CheckExistence7 = 1
If CheckExistence8 = "" Then CheckExistence8 = 0
filename8 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory8Map.brn")
If Len(filename8) = 0 Then CheckExistence8 = 1
If CheckExistence9 = "" Then CheckExistence9 = 0
filename9 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory9Map.brn")
If Len(filename9) = 0 Then CheckExistence9 = 1
If CheckExistence10 = "" Then CheckExistence10 = 0
filename10 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory10Map.brn")
If Len(filename10) = 0 Then CheckExistence10 = 1
If CheckExistence11 = "" Then CheckExistence11 = 0
filename = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory11Map.brn")
If Len(filename11) = 0 Then CheckExistence11 = 1
'Create Map to Memory Cell 1.
If CheckExistence = 1 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_UserMemory1Map.brn", Trim(UCase(UserName)) & "_StaticMemory1.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory1.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory1.brn"
End If
'Create Map to Memory Cell 2.
If CheckExistence2 = 1 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_UserMemory2Map.brn", Trim(UCase(UserName)) & "_StaticMemory2.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory2.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory2.brn"
End If
'Create Map to Memory Cell 3.
If CheckExistence3 = 1 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_UserMemory3Map.brn", Trim(UCase(UserName)) & "_StaticMemory3.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory3.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory3.brn"
End If
'Create Map to Memory Cell 4.
If CheckExistence4 = 1 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_UserMemory4Map.brn", Trim(UCase(UserName)) & "_StaticMemory4.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory4.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory4.brn"
End If
'Create Map to Memory Cell 5.
If CheckExistence5 = 1 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_UserMemory5Map.brn", Trim(UCase(UserName)) & "_StaticMemory5.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory5.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory5.brn"
End If
'Create Map to Memory Cell 6.
If CheckExistence6 = 1 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_UserMemory6Map.brn", Trim(UCase(UserName)) & "_StaticMemory6.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory6.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory6.brn"
End If
'Create Map to Memory Cell 7.
If CheckExistence7 = 1 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_UserMemory7Map.brn", Trim(UCase(UserName)) & "_StaticMemory7.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory7.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory7.brn"
End If
'Create Map to Memory Cell 8.
If CheckExistence8 = 1 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_UserMemory8Map.brn", Trim(UCase(UserName)) & "_StaticMemory8.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory8.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory8.brn"
End If
'Create Map to Memory Cell 9.
If CheckExistence9 = 1 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_UserMemory9Map.brn", Trim(UCase(UserName)) & "_StaticMemory9.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory9.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory9.brn"
End If
'Create Map to Memory Cell 10.
If CheckExistence10 = 1 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_UserMemory10Map.brn", Trim(UCase(UserName)) & "_StaticMemory10.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory10.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory10.brn"
End If
'Create Map to Memory Cell 11.
If CheckExistence11 = 1 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_UserMemory11Map.brn", Trim(UCase(UserName)) & "_StaticMemory11.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory11.brn" & vbCrLf & Trim(UCase(UserName)) & "_StaticMemory11.brn"
End If
'Delete All User Memory Cells if Cell Eleven Exist, Short Term Memory.
filename = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory11Map.brn")
filename1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory1Map.brn")
filename2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory2Map.brn")
filename3 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory3Map.brn")
filename4 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory4Map.brn")
filename5 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory5Map.brn")
filename6 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory6Map.brn")
filename7 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory7Map.brn")
filename8 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory8Map.brn")
filename9 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory9Map.brn")
filename10 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_UserMemory10Map.brn")
If Len(filename) > 0 Then TempNameModule = "F:\DefBrain\" & filename
If Len(filename1) > 0 Then TempNameModule1 = "F:\DefBrain\" & filename1
If Len(filename2) > 0 Then TempNameModule2 = "F:\DefBrain\" & filename2
If Len(filename3) > 0 Then TempNameModule3 = "F:\DefBrain\" & filename3
If Len(filename4) > 0 Then TempNameModule4 = "F:\DefBrain\" & filename4
If Len(filename5) > 0 Then TempNameModule5 = "F:\DefBrain\" & filename5
If Len(filename6) > 0 Then TempNameModule6 = "F:\DefBrain\" & filename6
If Len(filename7) > 0 Then TempNameModule7 = "F:\DefBrain\" & filename7
If Len(filename8) > 0 Then TempNameModule8 = "F:\DefBrain\" & filename8
If Len(filename9) > 0 Then TempNameModule9 = "F:\DefBrain\" & filename9
If Len(filename10) > 0 Then TempNameModule10 = "F:\DefBrain\" & filename10
'CREATE SOME TRACKING VARIABLES TO DETECT EXISTANCE OF A FILE.
If CellA = "" Then CellA = 0
If CellB = "" Then CellB = 0
If CellC = "" Then CellC = 0
If CellD = "" Then CellD = 0
If CellE = "" Then CellE = 0
If CellF = "" Then CellF = 0
If CellG = "" Then CellG = 0
If CellH = "" Then CellH = 0
If CellI = "" Then CellI = 0
If CellJ = "" Then CellJ = 0
If CellK = "" Then CellK = 0
If FileSys.FileExists(TempNameModule1) Then CellA = 1
If FileSys.FileExists(TempNameModule2) Then CellB = 1
If FileSys.FileExists(TempNameModule3) Then CellC = 1
If FileSys.FileExists(TempNameModule4) Then CellD = 1
If FileSys.FileExists(TempNameModule5) Then CellE = 1
If FileSys.FileExists(TempNameModule6) Then CellF = 1
If FileSys.FileExists(TempNameModule7) Then CellG = 1
If FileSys.FileExists(TempNameModule8) Then CellH = 1
If FileSys.FileExists(TempNameModule9) Then CellI = 1
If FileSys.FileExists(TempNameModule10) Then CellJ = 1
If FileSys.FileExists(TempNameModule) Then CellK = 1
'DELETE ALL STATIC MEMORY CELLS IF CELL 11 EXISTS.
If CellK = 1 Or InStr(1, OriginalSentence, "RESET MEMORY", 1) > 0 Then
If CellA = 1 Then FS.DeleteFile TempNameModule1
If CellB = 1 Then FS.DeleteFile TempNameModule2
If CellC = 1 Then FS.DeleteFile TempNameModule3
If CellD = 1 Then FS.DeleteFile TempNameModule4
If CellE = 1 Then FS.DeleteFile TempNameModule5
If CellF = 1 Then FS.DeleteFile TempNameModule6
If CellG = 1 Then FS.DeleteFile TempNameModule7
If CellH = 1 Then FS.DeleteFile TempNameModule8
If CellI = 1 Then FS.DeleteFile TempNameModule9
If CellJ = 1 Then FS.DeleteFile TempNameModule10
If CellK = 1 Then FS.DeleteFile TempNameModule
If InStr(1, OriginalSentence, "RESET MEMORY", 1) > 0 Then
BlockSave = True
GetResponse = "Memory Has Been Reset."
End If
End If
'Create Memory Cell 1
StaticMemory1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory1.brn")
DebugInfo = DebugInfo & "Static Memory 1: " & StaticMemory1 & vbCrLf
If CellA = 0 And CellB = 0 And CellC = 0 And CellD = 0 And CellE = 0 And CellF = 0 And CellG = 0 And CellH = 0 And CellI = 0 And CellJ = 0 And CellK = 0 Then
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_StaticMemory1.brn", Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence))
End If
'Custom Memory Cell 2.
StaticMemory1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory1.brn")
StaticMemory2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory2.brn")
DebugInfo = DebugInfo & "Static Memory 2: " & StaticMemory2 & vbCrLf
If CellA = 1 And CellB = 0 And CellC = 0 And CellD = 0 And CellE = 0 And CellF = 0 And CellG = 0 And CellH = 0 And CellI = 0 And CellJ = 0 And CellK = 0 Then
'Here we have to save at least 3 of the same sentence to make it responsive in the memory trigger.
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_StaticMemory2.brn", Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence))
End If
'Custom Memory Cell 3.
StaticMemory1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory2.brn")
StaticMemory2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory3.brn")
DebugInfo = DebugInfo & "Static Memory 3: " & StaticMemory2 & vbCrLf
If CellA = 1 And CellB = 1 And CellC = 0 And CellD = 0 And CellE = 0 And CellF = 0 And CellG = 0 And CellH = 0 And CellI = 0 And CellJ = 0 And CellK = 0 Then
'Here we have to save at least 3 of the same sentence to make it responsive in the memory trigger.
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_StaticMemory3.brn", Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence))
End If
'Custom Memory Cell 4.
StaticMemory1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory3.brn")
StaticMemory2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory4.brn")
DebugInfo = DebugInfo & "Static Memory 4: " & StaticMemory2 & vbCrLf
If CellA = 1 And CellB = 1 And CellC = 1 And CellD = 0 And CellE = 0 And CellF = 0 And CellG = 0 And CellH = 0 And CellI = 0 And CellJ = 0 And CellK = 0 Then
'Here we have to save at least 3 of the same sentence to make it responsive in the memory trigger.
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_StaticMemory4.brn", Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence))
End If
'Custom Memory Cell 5.
StaticMemory1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory4.brn")
StaticMemory2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory5.brn")
DebugInfo = DebugInfo & "Static Memory 5: " & StaticMemory2 & vbCrLf
If CellA = 1 And CellB = 1 And CellC = 1 And CellD = 1 And CellE = 0 And CellF = 0 And CellG = 0 And CellH = 0 And CellI = 0 And CellJ = 0 And CellK = 0 Then
'Here we have to save at least 3 of the same sentence to make it responsive in the memory trigger.
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_StaticMemory5.brn", Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence))
End If
'Custom Memory Cell 6.
StaticMemory1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory5.brn")
StaticMemory2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory6.brn")
DebugInfo = DebugInfo & "Static Memory 6: " & StaticMemory2 & vbCrLf
If CellA = 1 And CellB = 1 And CellC = 1 And CellD = 1 And CellE = 1 And CellF = 0 And CellG = 0 And CellH = 0 And CellI = 0 And CellJ = 0 And CellK = 0 Then
'Here we have to save at least 3 of the same sentence to make it responsive in the memory trigger.
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_StaticMemory6.brn", Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence))
End If
'Custom Memory Cell 7.
StaticMemory1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory6.brn")
StaticMemory2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory7.brn")
DebugInfo = DebugInfo & "Static Memory 7: " & StaticMemory2 & vbCrLf
If CellA = 1 And CellB = 1 And CellC = 1 And CellD = 1 And CellE = 1 And CellF = 1 And CellG = 0 And CellH = 0 And CellI = 0 And CellJ = 0 And CellK = 0 Then
'Here we have to save at least 3 of the same sentence to make it responsive in the memory trigger.
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_StaticMemory7.brn", Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence))
End If
'Custom Memory Cell 8.
StaticMemory1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory7.brn")
StaticMemory2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory8.brn")
DebugInfo = DebugInfo & "Static Memory 8: " & StaticMemory2 & vbCrLf
If CellA = 1 And CellB = 1 And CellC = 1 And CellD = 1 And CellE = 1 And CellF = 1 And CellG = 1 And CellH = 0 And CellI = 0 And CellJ = 0 And CellK = 0 Then
'Here we have to save at least 3 of the same sentence to make it responsive in the memory trigger.
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_StaticMemory8.brn", Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence))
End If
'Custom Memory Cell 9.
StaticMemory1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory8.brn")
StaticMemory2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory9.brn")
DebugInfo = DebugInfo & "Static Memory 9: " & StaticMemory2 & vbCrLf
If CellA = 1 And CellB = 1 And CellC = 1 And CellD = 1 And CellE = 1 And CellF = 1 And CellG = 1 And CellH = 1 And CellI = 0 And CellJ = 0 And CellK = 0 Then
'Here we have to save at least 3 of the same sentence to make it responsive in the memory trigger.
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_StaticMemory9.brn", Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence))
End If
'Custom Memory Cell 10.
StaticMemory1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory9.brn")
StaticMemory2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory10.brn")
DebugInfo = DebugInfo & "Static Memory 10: " & StaticMemory2 & vbCrLf
If CellA = 1 And CellB = 1 And CellC = 1 And CellD = 1 And CellE = 1 And CellF = 1 And CellG = 1 And CellH = 1 And CellI = 1 And CellJ = 0 And CellK = 0 Then
'Here we have to save at least 3 of the same sentence to make it responsive in the memory trigger.
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_StaticMemory10.brn", Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence))
End If
'Custom Memory Cell 11.
StaticMemory1 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory10.brn")
StaticMemory2 = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UCase(UserName)) & "_StaticMemory11.brn")
DebugInfo = DebugInfo & "-----[Reset Static Memory when Cell 11 is filled]-----" & vbCrLf
If CellA = 1 And CellB = 1 And CellC = 1 And CellD = 1 And CellE = 1 And CellF = 1 And CellG = 1 And CellH = 1 And CellI = 1 And CellJ = 1 And CellK = 0 Then
'Here we have to save at least 3 of the same sentence to make it responsive in the memory trigger.
HalBrain.AppendFile WorkingDir & Trim(UCase(UserName)) & "_StaticMemory11.brn", Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence)) & vbCrLf & Trim(UCase(OriginalSentence))
End If