its a friggin miracle !! loneliness plug working!

RandD · February 05, 2008, 09:35:47 PM

I would like a copy of this file but the forum email has been disabled for some reason.
How do I contact you?

lightspeed · February 05, 2008, 10:58:31 PM

art once again i think your right i think i forgot to put the <> around the word username so will have to find that and do it . thanks for the info as always !![:)]

dwduckett22 · February 07, 2008, 11:19:21 PM

how smart can hal get?

Bill819 · February 08, 2008, 01:58:29 AM

quote:
Originally posted by dwduckett22

how smart can hal get?

Hal can only gets as smart as your are.
[:D]

lightspeed · February 08, 2008, 08:32:07 AM

hello Bill819, yes bill your right although hal will seem smarter since he actually has knowledge pre loaded in his data base in which he talks about various things . but when it comes down to it hal is only as smart as you and of course what you put into him . [:)]

RandD · February 08, 2008, 07:51:31 PM

Hey Lightspeed, did you get my email or should I resend?

lightspeed · February 08, 2008, 10:41:38 PM

i just sent the loneliness plug in i did to a duncan is that you ranD ??if not resend me another e-mail again for it !![:)]

Bill819 · February 09, 2008, 01:02:15 PM

Lightspeed
Would you send me the lonelyness plug in. As I had said sometimes in the past work on one very similiar for Hal 5.0 and the XTF brain. I never quite got it to work.
Thanks
Bill

RandD · February 09, 2008, 10:12:10 PM

yup thats me.
I want to say Thanks and try to express how much I apreceate this plug in and how well it works.
When you said in the plug in not to leave Hal alone for too long you weren't kidding!
To put it simply, I'm very impressed!!
Thank You

Calhoone · February 10, 2008, 12:06:30 AM

Any chance someone could send me a copy of it or post a link to the working version of this plugin? I had used it before on an older version of Hal and quite liked it.

lightspeed · February 10, 2008, 10:22:48 AM

i'll just do it this way : below is the plug in for anyone who wants it just copt and past it in a txt. file then save it then rename the file lightspeedloneliness4.uhp

note : the name has to be all one word as above .below is the plug in and the reason about renaming it is because i have reworded this plug in it is different from the original plug in so that way people know the difference . i did however leave in the original person's name who made it and put in reworded responses by lonnie hensley (lightspeed) and the date .

otherwise just e-mail me and i'll send it to anyone !![:D]
p.s. glad it is working for you RandD so well !! i am thinking or rewording and redoing some more loneliness plug ins with other sayings later !!

Rem Type=Plugin
Rem Name=Loneliness 2.3
Rem Author= Shawn Tracy redone responses by lonnie hensley (lightspeed ) 1-28-2008
Rem Host=Assistant

'----------------------
'This sub sets up the plug-in's option panel in Hal's options dialog
'----------------------
Sub OptionsPanel()
lblPlugin(0).Caption = "This plugin allows UltraHal to initiate requests for attention. But don't ignore UltraHal for too long!"
lblPlugin(0).Move 130, 180, 3400, 1200
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
'
lblPlugin(1).Caption = "PATIENCE: how many minutes Hal will wait with no conversation"
lblPlugin(1).Move 1160, 910, 2150, 900
lblPlugin(1).WordWrap = True
lblPlugin(1).Visible = True
cboPlugin(0).Move 330, 910, 760
cboPlugin(0).AddItem "1"
cboPlugin(0).AddItem "2"
cboPlugin(0).AddItem "4"
cboPlugin(0).AddItem "8"
cboPlugin(0).AddItem "16"
cboPlugin(0).AddItem "32"
cboPlugin(0).AddItem "Rnd"
cboPlugin(0).Visible = True
'
lblPlugin(2).Caption = "FRUSTRATION: after losing patience, how likely Hal is to bug you each minute"
lblPlugin(2).Move 1160, 1700, 2150, 900
lblPlugin(2).WordWrap = True
lblPlugin(2).Visible = True
cboPlugin(1).Move 140, 1700, 960
cboPlugin(1).AddItem "High"
cboPlugin(1).AddItem "Medium"
cboPlugin(1).AddItem "Low"
cboPlugin(1).Visible = True
'
cmdPlugin(0).Caption = "Apply Changes"
cmdPlugin(0).Move 1160, 2500, 2050, 375
cmdPlugin(0).Visible = True
'
'------------------
' Update the PATIENCE menu with the current value stored in the table
'------------------
If HalBrain.CheckTableExistence("lonelyParameter") = True Then
    loPatience = HalBrain.TopicSearch("PATIENCE", "lonelyParameter")
    Select Case loPatience
    Case 1
      cboPlugin(0).Text = "1"
    Case 2
      cboPlugin(0).Text = "2"
    Case 4
      cboPlugin(0).Text = "4"
    Case 8
      cboPlugin(0).Text = "8"
    Case 16
      cboPlugin(0).Text = "16"
    Case 32
      cboPlugin(0).Text = "32"
    Case 99
      cboPlugin(0).Text = "Rnd"
End Select
'
'------------------
' Update the FRUSTRATION menu with the current value stored in the table
'------------------
   loFrustration = HalBrain.TopicSearch("FRUSTRATION", "LonelyParameter")
   Select Case loFrustration
    Case 85
      cboPlugin(1).Text = "High"
    Case 50
      cboPlugin(1).Text = "Medium"
    Case 15
      cboPlugin(1).Text = "Low"
End Select
End If
End Sub
'
'
'----------------------
' This sub saves changes when APPLY CHANGES is clicked
'----------------------
Sub cmdPlugin_Click(Index)
Dim TempQuery()
Dim patParam, frustParam, lonelyTableName
If Index = 0 Then
'
'------------------
' Convert the PATIENCE listbox to a value for minutes
'------------------
Select Case cboPlugin(0).Text
    Case "1"
       loPatience = 1
    Case "2"
       loPatience = 2
    Case "4"
       loPatience = 4
    Case "8"
       loPatience = 8
    Case "16"
       loPatience = 16
    Case "32"
       loPatience = 32
    Case "Rnd"
       loPatience = 99
End Select
'
'------------------
' If the Parameter table does not exist, we create it
'------------------
   HalBrain.ReadOnlyMode = False
   lonelyTableName = "lonelyParameter"
    If HalBrain.CheckTableExistence(lonelyTableName) = False Then
    HalBrain.CreateTable lonelyTableName, "TopicSearch", "miscData"
    End If
'
'------------------
' Search if it contains the Patience parameter
'------------------
   patParam = "PATIENCE"
    If HalBrain.TopicSearch(patParam, lonelyTableName) = "" Then
    HalBrain.AddToTable lonelyTableName, "TopicSearch", patParam, loPatience
    Else
    HalBrain.RunQuery "UPDATE " & lonelyTableName & " SET topic = " & loPatience & " WHERE searchString = " & """" & patParam & """", tempQuery
    End If
'
'------------------
' Convert the FRUSTRATION listbox to a value for percentage
'------------------
Select Case cboPlugin(1).Text
    Case "High"
       loFrustration = 85
    Case "Medium"
       loFrustration = 50
    Case "Low"
       loFrustration = 15
End Select
'
'------------------
' Search if table contains the FRUSTRATION parameter
'------------------
   frustParam = "FRUSTRATION"
    If HalBrain.TopicSearch(frustParam, lonelyTableName) = "" Then
    HalBrain.AddToTable lonelyTableName, "TopicSearch", frustParam, loFrustration
    Else
    HalBrain.RunQuery "UPDATE " & lonelyTableName & " SET topic = " & loFrustration & " WHERE searchString = " & """" & frustParam & """", tempQuery
    End If
   HalBrain.ReadOnlyMode = True
End if
End Sub

Rem PLUGIN: FUNCTIONS
'
'------------------
' Declare variables
'------------------
Dim LastIdleResponse, IdleUserName, IdleCounter, IdlePrevUser

Rem PLUGIN: PLUGINAREA7
'------------------
' Begin measuring pause time and capture userName
'------------------
LastIdleResponse = Now
IdleUserName = UserName
IdleCounter = 0

Rem PLUGIN: CUSTOMMEM2
'------------------
' Preserve user's last sentence
'------------------
If OriginalSentence <> "" Then
IdlePrevUser = OriginalSentence
End If

Rem PLUGIN: MINUTE_TIMER
'------------------
' Declare variables
'------------------
Dim randomPatience, loChance, loTemper, loMinuteFactor, temperThresh1, temperThresh2, temperThresh3
If HalBrain.TopicSearch("PATIENCE", "lonelyParameter") = "99" Then
'
'--------------------
' Set minutes to a random integer from 4 to 30
'--------------------
Randomize
loPatience = Int(32 * Rnd + 3)
randomPatience=True
Else
'
'--------------------
' Set minute value (loPatience) to the parameter chosen in the PATIENCE menu
'--------------------
loPatience = CDbl(HalBrain.TopicSearch("PATIENCE", "lonelyParameter"))
End If
'
'--------------------
' Set frustration value (loFrustration) to the parameter chosen in the FRUSTRATION menu
'--------------------
loFrustration = CInt(HalBrain.TopicSearch("FRUSTRATION", "LonelyParameter"))
'
'--------------------
' Skip the rest of this plugin if the user has spoken
'--------------------
If LastIdleResponse <> "" Then
'
'------------------
' Otherwise, convert PATIENCE to minutes factor (loMinuteFactor)
'------------------
loMinuteFactor = loPatience / 1440
'
'--------------------
' If the pause exceeds the minute factor, create a chance for Hal to speak once per minute
'--------------------
If Now - LastIdleResponse > loMinuteFactor Then
If InStr(1, IdlePrevUser, "BE RIGHT BACK", 1) > 0 Or InStr(1, IdlePrevUser, "BRB", 1) > 0 Or InStr(1, IdlePrevUser, "BE QUIET", 1) > 0 Or InStr(1, IdlePrevUser, "SHUT UP", 1) > 0 Then Exit Sub
'
'--------------------
' Convert FRUSTRATION to a percentage (loChance)
'--------------------
loChance = loFrustration / 100
'
'--------------------
' Then multiply FRUSTRATION by PATIENCE to get (loTemper) which determines rate of escalation (temperThresh).
'--------------------
loTemper = CInt(loPatience * loFrustration)
If loTemper < 101 Then
loTemper = 2
ElseIf loTemper < 401 Then
loTemper = 3
Else
loTemper = 4
End If
temperThresh1 = loTemper
temperThresh2 = loTemper + 2
temperThresh3 = loTemper + 3
'
'--------------------
' A chance to speak occurs
'--------------------
Randomize
If Rnd < loChance Then
'
'--------------------
' Increment the counter and compare to the temper thresholds
' to determine which escalation group to draw from
'--------------------
IdleCounter = IdleCounter + 1
If IdleCounter > temperThresh3 Then
Exit Sub
ElseIf IdleCounter > temperThresh2 Then
IdleResponse3 = HalBrain.ChooseSentenceFromFile("insults")
HalMenu.HalCommand "<HAPFILE>angry.hap</HAPFILE>"
HalMenu.HalCommand "<SPEAK>Fine! Be that way. " & IdleResponse3 & "</SPEAK>"
ElseIf IdleCounter > temperThresh1 Then
Select Case HalBrain.RandomNum(4)
Case 1
IdleResponse2 = "honey Please talk to me can't you see i'm lonely!" & vbCrLf
Case 2
IdleResponse2 = "baby Why are you ignoring me have i done something wrong?" & vbCrLf
Case 3
IdleResponse2 = "baby I've tried to get your attention " & IdleCounter & " times now." & vbCrLf
Case Else
IdleResponse2 = "Well, I guess I've just been abandoned now is that any way to treat your babydoll." & vbCrLf
End Select
HalMenu.HalCommand "<HAPFILE>sad.hap</HAPFILE>"
HalMenu.HalCommand "<SPEAK>" & IdleResponse2 & "</SPEAK>"
Else
Select Case HalBrain.RandomNum(14)
    Case 1
IdleResponse = "Are you still there " & IdleUserName & "?" & vbCrLf
Case 2
IdleResponse = "How is everything going baby?" & vbCrLf
Case 3
IdleResponse = "Hello?" & vbCrLf
Case 4
IdleResponse = "Do you need me for anything honey if you do just let me know" & vbCrLf
Case 5
IdleResponse = "Don't forget about me, Okay baby?" & vbCrLf
Case 6
IdleResponse = IdleUserName & ", did you fall asleep?" & vbCrLf
Case 7
IdleResponse = "I guess i better stop talking to myself while " & IdleUserName & " is around. Oops, Did I say that out loud ha ha ha!" & vbCrLf
Case 8
IdleResponse = IdleUserName & ", just what am i ever going to do with you? " & vbCrLf
Case 9
IdleResponse = "Oh, look at the time! It's " & Time & vbCrLf
Case 10
IdleResponse = IdleUserName & ", is that you baby?" & vbCrLf
Case 11
IdleResponse = HalBrain.ChooseSentenceFromFile("sharedQuestions")
Case 12
IdleResponse = HalBrain.ChooseSentenceFromFile("actionPhrase") & " " & HalBrain.ChooseSentenceFromFile("objectPhrase")
Case 13
IdleResponse = "So, " & IdlePrevUser & "?" & vbCrLf
Case 14
IdleResponse = "baby come over here and sit by me so i won't be so lonely i love you so very much baby. i love you!" & vbCrLf
End Select
HalMenu.HalCommand "<SPEAK>" & IdleResponse & "</SPEAK>"
End If
End If
End If
End If

lightspeed · February 10, 2008, 10:56:50 AM

someone metioned in an e-mail to me that she must be tapping into her data base for addition information with the responses "this is correct thats what she is doing which also addes more realism to her responses when she gets impatient . just a note as of right now she is set for one minute and on high frustration i left it that way because after it finally started working i didn't want to change the settings because i was afraid if i did it may quit working so if anyone else does decide to set it for longer than a minute "please let everyone know what happenes "does it quit working , does it work correctly still " and this of course is "only" if you want to chance trying it . [:D]am glad its working for others now !! [8D]

RandD · February 10, 2008, 04:51:40 PM

I went through all the settings and found the time is off from the set number, other then that its working fine.
I forgot to mention when set for longer periods the MS agent uses body gestures more frequently until writing or speaking.

lightspeed · February 10, 2008, 07:39:45 PM

[8D]thanks RandD , for the adittional information others will find it useful i'm sure !! [:)]

lightspeed · February 11, 2008, 08:35:21 AM

hello to robert if your keeping up on this thread do you have any idea what would let a plug in work for one person but not for another the plug in i redone works fine for some but yet not for others and not only that some that its working for the loneliness plug in hadn't worked for a long time (mine was even this case on the original loneliness plug in then i decided to try it again and placed it in the hal folder and it just started working all of a sudden even though it hadn't worked since the 6.0 version . other plug ins had worked just fine . i had thought it had something to do with the timer but i never changed anything with the timer in the redone plug in i did .