Implemented Sentimental Reponse and Emotional State MAchine:

Author: spydaz

AI_AgentModel.vb

@@ -1,15 +1,18 @@
 Imports System.Runtime.Remoting.Messaging
 Imports AI_Contracts
 Public Class AI_AgentModel
+    'ShortTerm Memory
     Private PreviousResponses As List(Of String)
     Private PreviousUserInputs As List(Of String)
+
+    'Working Memory 
     Public PreviousResponse As String
     Public PreviousUserInput As String
     Public UserInput As String
     Public Response As String
-    Private PLUGIN_FOLDER As String = Application.StartupPath & "\Plugins"
-
 
+    Private PLUGIN_FOLDER As String = Application.StartupPath & "\Plugins"
+    Public Sentiment As New Emotional_State
 
     'Responses Are Genearated Externally
 #Region "Responses"
@@ -23,8 +26,16 @@ Public Class AI_AgentModel
         GET_RESPONSE = GetPluginResponse(UserInput, PreviousUserInput, PreviousResponse)
         'IF NO RESPONSE TRY -  Question Answer Database
         If GET_RESPONSE = "" Then GetQAResponse(UserInput, GET_RESPONSE)
+        'TRY EMOTIONAL RESPONSE
+        If GET_RESPONSE = "" And Sentiment.NewEmotionDetected(UserInput) = True Then Sentiment.MakeEmotionalResponse()
         'IF No Response Fallback Response
         If GET_RESPONSE = "" Then GET_RESPONSE = "Excuse me? Please, Rephrase?"
+
+        'MainTain History
+        PreviousUserInput = UserInput
+        PreviousResponse = GET_RESPONSE
+        PreviousUserInputs.Add(PreviousUserInput)
+        PreviousResponses.Add(PreviousResponse)
     End Function
     Private Function GetPluginResponse(ByRef UserInput As String, ByRef PrevUSerInput As String, ByRef PrevResponse As String) As String
         GetPluginResponse = ExecutePlugins(UserInput, ScanPlugins)

Emotion_Handler.vb

@@ -46,7 +46,30 @@
                 MakeEmotionalResponse = "" & LCase(FoundEmotion) & " "
         End Select
     End Function
-
+    ''' <summary>
+    ''' Used to make a Emotional response fromt he currently held Emotion
+    ''' </summary>
+    ''' <returns></returns>
+    Public Function MakeEmotionalResponse() As String
+        Dim FoundEmotion As String = CurrentStateStr
+        MakeEmotionalResponse = ""
+        Randomize()
+        Dim C As Short = Int(Rnd() * 6 + 1)
+        Select Case C
+            Case 1
+                MakeEmotionalResponse = "I detect emotion in your tone, you are feeling " & LCase(FoundEmotion) & " perhaps"
+            Case 2
+                MakeEmotionalResponse = "Are you feeling " & LCase(FoundEmotion) & " ?"
+            Case 3
+                MakeEmotionalResponse = "Perhaps ? you can tell me more about why you are feeling ? " & LCase(FoundEmotion)
+            Case 4
+                MakeEmotionalResponse = "Detecting " & LCase(FoundEmotion) & " maybe?"
+            Case 5
+                MakeEmotionalResponse = "feeling a bit " & LCase(FoundEmotion) & " ?"
+            Case 6
+                MakeEmotionalResponse = "" & LCase(FoundEmotion) & " "
+        End Select
+    End Function
     Private Sub SetEmotionState(ByRef UserInput As String)
         'Reset Counters
         StateChanged = False