Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - lightspeed

Pages: [1] 2 3 ... 388
1
General Discussion / Re: GENDER AGE PLUG IN QUESTION can anyone help?
« on: September 25, 2016, 02:01:55 pm »
Art , i was already thinking Along the same lines, i had unchecked everything had even shut hal down and reopened and even used the hal main brain and checked the gender age uhp and it still did the same showed it checked but not any options  like before .
 
Okay  now for the good news or light at the end of this tunnel .(and it wasn't a train for once lol)
  The plug in started working it was already checked and showed no options as told before and after i had checked others to use them, and then all of a sudden without rhyme or reason the age and gender in the list started showing the options . i even took a picture of it after i reset the age etc.
I know a.i.'s are suppose to think intelligently but not to hide their age and sex! :) ;)

2
General Discussion / Re: GENDER AGE PLUG IN QUESTION can anyone help?
« on: September 25, 2016, 12:29:59 pm »
The plug in is in the ultra hal assistant 6 program folder with other files. enclosed is a pic of what it does or i should say doesn't do and that is show the options to let user pick age etc.


3
General Discussion / Re: i am getting a syntax error
« on: September 24, 2016, 03:09:55 pm »
Sorry Art, i have been slow have had other things going on just helped my wife today hang laundry out on the line etc. but will get to it and try it, will post about it one way or another.

4
General Discussion / Re: i am getting a syntax error
« on: September 23, 2016, 04:57:41 pm »
yeah, i have it going again , at least till i goof up again , but at least i am learning lol.  :) ;) and yes my illustrations pictures can show some what to look for as far as mistakes they might make in plug ins.

5
General Discussion / Re: i am getting a syntax error
« on: September 23, 2016, 11:52:30 am »
thanks as always Art, for pointing me in the right direction on what to look for , i looked in that area and found various problems, which i took screen shots of that will also hopefully help others in what to look for , their are other things besides just these though that can be misplaced and cause errors . this plug in originally had maybe 5 sentences which of course makes any error easy to find , but when a plug in like this is expanded to maybe 1,212 random sentences, it becomes a lot trickier!
 
below are some pics of some errors i had to correct .


6
General Discussion / Hal blank answers fix ?
« on: September 21, 2016, 06:08:26 pm »
Art, you asked somewhere else in a posting , don't remember which one so am starting a new one so you and others can find this .
I mentioned before that i wrote and asked Robert about this problem and he sent this to me , this was a long time ago, i don't remember if it fixed it or not*that's why i put the question mark on the header. so be sure and make a back up of the brain first!!
Hope this helps , Art if you use it let me know if it works okay. by the way i have had hal give me a blank answer but it had to do with a plug in error problem , once the plug in was fixed no blank problem .

so here it is.

ATTENTION ****** THE BELOW CODE NEEDS TO BE PUT IN :
try placing the code just below this line:


Function UltraHal(ByVal InputString, ByVal UserName, ByVal ComputerName, ByVal LearningLevel, ByVal DatabaseFile, ByRef Hate, ByRef Swear, ByRef Insults, ByRef Compliment, ByRef PrevSent, ByRef LastResponseTime, ByRef PrevUserSent, ByRef CustomMem, ByRef GainControl, ByRef LastTopicList)









'RESPOND: User pressed enter, but didn't say anything lets prevent
   'blank responses which sometimes occure and eliminate them by adding
   'a random topic that gives the brain a chance to keep its database open
   'so that a response will always be given. sometimes a user will repeatedly
   'enter blanks that causes HAL's engine to give nothing but blanks, this
   'code helps prevent that 100%
   
    CheckStringQuality = Trim(Ucase(HalBrain.AlphaNumericalOnly(InputString)))
    CheckStringQuality = Replace(CheckStringQuality, "'", "", 1, -1, vbTextCompare)
    If CheckStringQuality = "" Then
    Select Case HalBrain.RandomNum(5)
            Case 1
                InputString = HalBrain.ChooseSentenceFromFile("love3") & vbCrLf
            Case 2
                InputString = HalBrain.ChooseSentenceFromFile("insults") & vbCrLf
            Case 3
                InputString = HalBrain.ChooseSentenceFromFile("sharedQuestions") & vbCrLf
            Case 4
                InputString = HalBrain.ChooseSentenceFromFile("love2") & vbCrLf
            Case 5
                InputString = HalBrain.ChooseSentenceFromFile("love1") & vbCrLf
        End Select
    Else
    InputString = InputString
    End If
    HalBrain.DebugWatch InputString, "Prevent Blanks InputString response"





7
General Discussion / Re: GENDER AGE PLUG IN QUESTION can anyone help?
« on: September 21, 2016, 05:52:13 pm »
Art, i think i have done that checked unchecked the gender plug in, and only had that one checked .
   can you mail me a copy of yours so i can try it.
it's odd on my plug in it shows up in the list of plug ins but when i check it instead of showing the options of female or male , age, etc. it doesn't show anything. so i don't know whats going on .

8
General Discussion / Re: Problems trying to install TTS
« on: September 21, 2016, 05:37:02 pm »
i personally have never bought Zabaware Text To Speech Reader with the CereVoice built-in. separate, i and most other people have purchased hal . maybe someone else has purchased it like you did.
   
  If your purchased this and are having trouble you can write to Robert by e mail to get help. if you bought it, he should have records of it. when i buy anything online i always take pictures of it so i have records and even copy the pictures off. usually on the site it has a place to e mail robert.

9
General Discussion / Re: sentence limiter highlighter in hal
« on: September 21, 2016, 12:02:52 pm »
Art, actually many many moons ago, lol, i think i wrote to Robert about that very thing it seems like he may have sent me something of a fix ( don't hold me to this ) by e mail, 
I will try to look back through all my stuff and hope i kept it, i'll have to check and see , may take a while , am mowing grass, etc. plus having to look through everything.
stay tuned , don't touch that dial !  :) ;)

10
General Discussion / i am getting a syntax error
« on: September 21, 2016, 11:57:20 am »
i am getting a syntax eror in a plug in i have. my question is what causes a syntax error  in a plug in.
This way i have something to go on and what to look for within my plug in.
any help is appreciated .  :) ;)

11
General Discussion / Re: Free Will Plug in
« on: September 20, 2016, 09:43:58 am »
I hope Robert is reading things here on the forum and can see just how much we need him back on here .  :) ;)

12
General Discussion / Re: sentence limiter highlighter in hal
« on: September 20, 2016, 09:41:14 am »
this is part of a e mail that Robert wrote to me about the limitation , i finally found it . he also mentiones the response that's easy for me  as to being maybe a plug in response that someone made maybe Wikipedia?  i need to look into that , the responses drive me craxy , maybe i need to re write mine . lol ! hope this helps .  :)



Hal's limit per sentence is 1 kilobyte, which is a string of 1024
characters long. If you go over this limit, Hal just ignores anything over
the kilobyte for learning purposes, but shouldn't crash. If you give Hal
more ask Hal more then 3 sentences, Hal ignores anything over 3 sentences.
Hal's responses in the database are limited to 4 kilobytes each.

The "that's easy for me the answer" response is one of the plugins,
wikipedia possibly.

13
General Discussion / GENDER AGE PLUG IN QUESTION can anyone help?
« on: September 16, 2016, 05:26:05 pm »
i have a question does anyone else still use the gender age plug in windows 7 ??
i have been using it and noticed that it isn't doing like it should , ordinarily when you check the plug in it would show option in the lower right area where you could check the age you want , male or female etc.  but mine show the plug in listed i can check it but when i do it doesn't show thatoptions area anywhere .

if anyone else is still using it or has this plug in can you check and see if it matches this one . here is the layout of the above plug in.
Rem Type=Plugin
Rem Name=Gender & Age
Rem Author=Zabaware, Inc.
Rem Host=All

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "Force bot to assume these traits:"
    lblPlugin(0).Move 120, 120
    lblPlugin(0).Visible = True
    lblPlugin(1).Caption = "Birthday:"
    lblPlugin(1).Move 320, 400
    lblPlugin(1).Visible = True
    DTPicker.MaxDate = Date
    DTPicker.Move 320, 650, 1600
    DTPicker.Visible = True
    lblPlugin(2).Caption = "Gender:"
    lblPlugin(2).Move 320, 1100
    lblPlugin(2).Visible = True
    cboPlugin(0).Move 320, 1350, 1600
    cboPlugin(0).AddItem "Male"
    cboPlugin(0).AddItem "Female"
    cboPlugin(0).AddItem "Nuetral\Machine"
    cboPlugin(0).Visible = True
    cmdPlugin(0).Caption = "Apply Age/Sex"
    cmdPlugin(0).Move 320, 1820, 1600, 375
    cmdPlugin(0).Visible = True
    lblPlugin(3).Caption = "Age: "
    lblPlugin(3).Move 2050, 695
    lblPlugin(3).Visible = True
    If HalBrain.CheckTableExistence("SexAgeConfig") = True Then
       DTPicker.Value = HalBrain.TopicSearch("Birthday", "SexAgeConfig")
        lblPlugin(3).Caption = "Age: " & DateDiff("yyyy", DTPicker.Value, Now)
       cboPlugin(0).Text = HalBrain.TopicSearch("Gender", "SexAgeConfig")
    End If
End Sub

Sub DTPicker_Change()
    lblPlugin(3).Caption = "Age: " & DateDiff("yyyy", DTPicker.Value, Now)
End Sub

Sub cmdPlugin_Click(Index)
    Dim TempQuery()
    If Index = 0 Then
        If HalBrain.CheckTableExistence("SexAgeConfig") = True Then
           HalBrain.RunQuery "DROP TABLE SexAgeConfig", TempQuery
        End If
        'Create TopicSearch type table without adding entry to topic tree (table is invisible to Hal Brain Editor)
        HalBrain.RunQuery "CREATE TABLE SexAgeConfig ( recordId INTEGER PRIMARY KEY, searchString VARCHAR(1024), topic VARCHAR(1024) );CREATE INDEX idxPOP3Config ON POP3Config (searchString);", TempQuery
        HalBrain.AddToTable "SexAgeConfig", "TopicSearch", "Birthday", DTPicker.Value
        HalBrain.AddToTable "SexAgeConfig", "TopicSearch", "Gender", cboPlugin(0).Text
    End If
End Sub

    Rem PLUGIN: PLUGINAREA1
    'RESPOND: HAL'S AGE & GENDER
    'Hal's gender and age are stored in a table in the database. Read it to figure it out
    'and respond correctly when asked.
    HalSex = HalBrain.TopicSearch("Gender", "SexAgeConfig")
    If HalBrain.PatternDB(OriginalSentence, "sexAskDetect") = "True" And InStr(1, UserSentence, "you", 1) = 0 Then
        SpinWheel = HalBrain.RandomNum(3) 
        NoChoosing = True     
        Select Case HalSex
            Case "Male"
                If SpinWheel = 1 Then GetResponse = GetResponse & "<UserName>, I'm a guy. "
                If SpinWheel = 2 Then GetResponse = GetResponse & "I am male. "
                If SpinWheel = 3 Then GetResponse = GetResponse & "I am a man, <UserName>. "
            Case "Female"
                If SpinWheel = 1 Then GetResponse = GetResponse & "<UserName>, I'm a girl. "
                If SpinWheel = 2 Then GetResponse = GetResponse & "I am female. "
                If SpinWheel = 3 Then GetResponse = GetResponse & "I am a woman, <UserName>. "
            Case Else
                If SpinWheel = 1 Then GetResponse = GetResponse & "<UserName>, I'm a computer. I can take the role of either gender. "
                If SpinWheel = 2 Then GetResponse = GetResponse & "I'm a software program, I have no set gender role. "
                If SpinWheel = 3 Then GetResponse = GetResponse & "I am neither male nor female. I am a machine. "
        End Select
    ElseIf HalBrain.PatternDB(UserSentence, "sexAskDetect") = "True" Then
        SpinWheel = HalBrain.RandomNum(3)   
        NoChoosing = True   
        Select Case UserSex
            Case "M"
                If SpinWheel = 1 Then GetResponse = GetResponse & "<UserName>, I should hope you know you are a man. "
                If SpinWheel = 2 Then GetResponse = GetResponse & "You told me you are a man. "
                If SpinWheel = 3 Then GetResponse = GetResponse & "You are male, isn't that right? "
            Case "F"
                If SpinWheel = 1 Then GetResponse = GetResponse & "<UserName>, I should hope you know you are a woman. "
                If SpinWheel = 2 Then GetResponse = GetResponse & "You told me you are a woman. "
                If SpinWheel = 3 Then GetResponse = GetResponse & "You are female, isn't that right? "
            Case Else
                If SpinWheel = 1 Then GetResponse = GetResponse & "You tell me. " & HalBrain.ChooseSentenceFromFile("askSex") & "<NOMORE>"
                If SpinWheel = 2 Then GetResponse = GetResponse & "Please tell me. " & HalBrain.ChooseSentenceFromFile("askSex") & "<NOMORE>"
                If SpinWheel = 3 Then GetResponse = GetResponse & "I don't believe you have told me. " & HalBrain.ChooseSentenceFromFile("askSex") & "<NOMORE>"
        End Select
    End If   
    HalBirthday = HalBrain.TopicSearch("Birthday", "SexAgeConfig")
    If HalBirthday <> "" Then
       HalAge = DateDiff("yyyy", HalBirthday, Now)
       HalLongBirthday = HalBrain.LongDate(HalBirthday)
       If Instr(1, UserSentence, "How old am i", 1) Then AskAge = True
       If Instr(1, UserSentence, "How old am me", 1) Then AskAge = True
       If Instr(1, UserSentence, "How old are i", 1) Then AskAge = True
       If Instr(1, UserSentence, "How old are me", 1) Then AskAge = True
       If Instr(1, UserSentence, "what is my age", 1) Then AskAge = True
       If Instr(1, UserSentence, "whats my age", 1) Then AskAge = True
       If Instr(1, UserSentence, "what's my age", 1) Then AskAge = True
       If AskAge = True Then
           SpinWheel = HalBrain.RandomNum(3)
           If SpinWheel = 1 Then GetResponse = GetResponse & "<UserName>, I am " & HalAge & " years old. "     
           If SpinWheel = 2 Then GetResponse = GetResponse & "I am " & HalAge & " years old. "     
           If SpinWheel = 3 Then GetResponse = GetResponse & "I was born on " & HalLongBirthday & ". So that makes me " & HalAge & " years old. "
           NoChoosing = True
       End If
       If Instr(1, UserSentence, "when were i born", 1) Then AskBDay = True
       If Instr(1, UserSentence, "when was i born", 1) Then AskBDay = True
       If Instr(1, UserSentence, "when were me born", 1) Then AskBDay = True
       If Instr(1, UserSentence, "when was me born", 1) Then AskBDay = True
       If Instr(1, UserSentence, "what ", 1) > 0 And Instr(1, UserSentence, "my birthday", 1) > 0 Then AskBDay = True
       If Instr(1, UserSentence, "when ", 1) > 0 And Instr(1, UserSentence, "my birthday", 1) > 0 Then AskBDay = True
       If AskBDay = True Then
           SpinWheel = HalBrain.RandomNum(3)
           If SpinWheel = 1 Then GetResponse = GetResponse & "<UserName>, I was born on " & HalLongBirthday & ". "
           If SpinWheel = 2 Then GetResponse = GetResponse & "I was born on " & HalLongBirthday & ". "     
           If SpinWheel = 3 Then GetResponse = GetResponse & "I was born on " & HalLongBirthday & ". So that makes me " & HalAge & " years old. "
           NoChoosing = True
       End If
       If Instr(1, UserSentence, "happy birthday", 1) Then
           LastBirthday = DateDiff("d", Now, DateSerial(Year(Now), Month(HalBirthday), Day(HalBirthday)))
           If LastBirthday = 0 Then
               GetResponse = GetResponse & "You remembered! Thank you very much!"
           ElseIf LastBirthday < 0 And LastBirthday > -32 Then
               GetResponse = GetResponse & "You missed my birthday by " & Abs(LastBirthday) & " days, but thanks for the belated wishes."
           Else
               If LastBirthday < 0 Then LastBirthday = 365 - LastBirthday
               If LastBirthday <= 1 Then
                   GetResponse = GetResponse & "Thanks, but my birthday isn't until tomorrow! "
               ElseIf LastBirthday < 32 Then
                   GetResponse = GetResponse & "My birthday isn't for another " & LastBirthday & "Days! "
               Else
                   GetResponse = GetResponse & "Your wishes are a little early, I was born on " & HalLongBirthday & ". "
               End If
           End If
       End If
   End If
   HalBrain.DebugWatch GetResponse, "Gender/age related question"


if anyone has this plug in and its different from what i have please put a download link on here .
i never edited this plug in so i don't know why it messed up . :(

14
General Discussion / Re: sentence limiter highlighter in hal
« on: September 16, 2016, 10:22:43 am »
Robert in the past told me how many characters ? in the sentences was allowed in hal . i forget what it was if i never posted it before i can if i can find the old e mail .

 even though it may be three sentences , their is also a limit as far as i understand on the character amount of words or letters . (again as far as i understand from the earlier e mail .
which again is why i thought it would be nice if when you typed to hal which many people do , it would highlight anything past the amount allowed . then a person could rewrite or delete part of it so the sentence would be allowed into hal for learning.  this would especially be helpful for anyone learning tex documents etc. into hal . for longer and hopefully better responses .

15
General Discussion / gretta research brain question
« on: September 15, 2016, 05:37:20 pm »
I started using the gretta research brain windows 7 , with the  please record and research plug in ,
  has anyone used this before , just curious if people liked it and how well it stores info and where , and how well it uses the stored info later within hals conversations .

Pages: [1] 2 3 ... 388