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 - Carl2

Pages: 1 2 3 [4] 5 6 ... 81
46
Ultra Hal 7.0 / Re: Quick Update
« on: March 04, 2016, 09:53:35 am »
  On the Zabaware home page click about, it's at the bottom of the page.
Carl2

47
Ultra Hal 7.0 / Re: Quick Update
« on: March 03, 2016, 06:04:05 am »
  Well I just found this:
  As of Thursday, March 03, 2016 Hal's knowledge is based
   on information learned from:
     22,990,571 sentences from
     3,938,946 conversations with
     1,470,419 people
Since todays date is March 3, 2016 I believe we have a new version of Hal to use..
Carl2

48
General Discussion / Re: Some News is Better than No News
« on: March 02, 2016, 03:00:42 pm »
  I've noticed Aladyblond made a post not long ago, she had some really good artwork for the Haptek characters.  I've finally learned how to put some tables in the brain for detection and replies.  Still no luck working with the Haptek characters trying to put in higher count wire mesh (.obj files) since haptek has it's own way of doing these things.   Not much going on with AI it's a wait and see.
Carl2

49
  I've also done a little work on a Wiki plugin, it gets me to wiki and that's about it.  VR, (Rossi) of Virtual Humans website also has a vrWeb plugin which can get you to Wiki, actually I haven't tried it yet.  I'm familiar wit the error codes that get generated and usually find the errors sooner or latter.  I'm not familiar with your coding and there are statements new to me. 
This is what I came up with:
Rem Type=Plugin
Rem Name=Wiki
Rem Author=Zabaware ModifiedCJ
Rem Host=Assistant

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "Hal will open your browser and enter a Wiki query if you use the keyword "Wiki"
    lblPlugin(0).Move 120, 120, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub

    Rem PLUGIN: PLUGINAREA1
    'The comment above tells Ultra Hal Assistant to insert the following code
    'on-the-fly into the main brain code in the section referenced.
    SearchEngine = "https://en.wikipedia.org/wiki/English_language"
    If InStr(1, UserSentence, "Wiki", 1) > 0 Then
        SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
        SearchKeyWords = Replace(SearchKeywords, "find+", "")
        SearchKeyWords = Replace(SearchKeywords, "research+", "")
        SearchKeyWords = Replace(SearchKeywords, "locate+", "")
        SearchKeyWords = Replace(SearchKeywords, "search+", "")
        HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
        GetResponse = GetResponse & "I will help you research this topic on the Internet. "
    End If
This is the vrWeb plugin:
Rem Type=Plugin
Rem Name=Customized Web Searches
Rem Author=VR
Rem Host=Assistant

'------------------------------------------------------------------------------------------------------
' VR_Web.uhp - Release 1.0 by VR Consulting sas.
' This script shall not be sold or used for any purpose unless specifically authorized by the author
' in writing. Personal (non-business) use of this script is free for users of Ultra Hal Assistant.
' If you want to use this software in business applications, you must contact us at info@vrconsulting.it
' This software is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
' VR CONSULTING DISCLAIMS ALL WARRANTIES WITH RESPECT TO THIS SOFTWARE, EXPRESS, IMPLIED, OR OTHERWISE,
' INCLUDING WITHOUT LIMITATION, ALL WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE
' OR NONINFRINGEMENT.
' VR CONSULTING SHALL NOT BE LIABLE FOR ANY SPECIAL, INCIDENTAL, OR CONSEQUENTIAL
' DAMAGES, INCLUDING, WITHOUT LIMITATION, LOST REVENUES, LOST PROFITS, OR LOSS OF PROSPECTIVE ECONOMIC ADVANTAGE,
' RESULTING FROM THE USE OR MISUSE OF THIS SOFTWARE.
' This software is made available free by the author. Although he is interested in your feedback,
' he is under no obligation to address bugs, enhancements, or answer questions.
'------------------------------------------------------------------------------------------------------

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "This replaces the standard Google plugin. It manages Google queries, Viki searches and other customizable topics such as local news, weather or mail. Click below for more info"
    lblPlugin(0).Move 120, 120, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
    cmdPlugin(0).Move 800, 1300, 2100, 375
    cmdPlugin(0).Caption = "Help on this plugin"
    cmdPlugin(0).Visible = True
End Sub

Sub cmdPlugin_Click(Index)
    Select Case Index
        Case 0
          HalMenu.HalCommand "<RUNPROG>vrwebhelp.html</RUNPROG>"
    End Select
End Sub


Rem PLUGIN: PLUGINAREA1
'The comment above tells Ultra Hal Assistant to insert the following code
'on-the-fly into the main brain code in the section referenced.

' If the table vrWeb does not exist, I create it and fill it with some default values
' each user will need to add other links and/or change these
   If HalBrain.CheckTableExistence("vrWeb") = False Then
   ' I store temporarily the Read Only status
        vrReadOnlyMode = HalBrain.ReadOnlyMode
      HalBrain.ReadOnlyMode = False
      HalBrain.CreateTable "vrWeb", "PatternMatch", "miscData"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*Hal Help*", "welcome.html"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*local weather*", "http://uk.weather.com/weather/local/ITXX0067"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*local news*", "http://www.nytimes.com/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*yahoo mail*", "http://my.yahoo.com/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*zabaware forum*", "http://www.zabaware.com/forum/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*virtual humans forum*", "http://www.vrconsulting.it/vhf/"
      ' Set ReadOnly Mode to its previous state
      HalBrain.ReadOnlyMode = vrReadOnlyMode
   End If

'Run the corresponding Web page, if the user question contains one of the searched words    
    vrAddress = ""
    vrAddress = HalBrain.PatternDB(OriginalSentence, "vrWeb")
    If vrAddress <> "" Then
       HalCommands = HalCommands & "<RUNPROG>" & vrAddress & "</RUNPROG>"
      Select Case (Int(Rnd * 4) + 1)
      Case 1
         GetResponse = "Here is the page you asked me for." & vbCrLf
      Case 2
         GetResponse = "Now you can access it." & vbCrLf
      Case 3
         GetResponse = "I am really happy to give you this information." & vbCrLf
      Case 4
         GetResponse = "OK. Here it is." & vbCrLf
      Case 5
         GetResponse = "Now look at this." & vbCrLf
      End Select
      HalBrain.ReadOnlyMode = True
   End If

'------------------
' Google search
'------------------
SearchEngine = "http://www.google.com/search?q="
If InStr(1, UserSentence, "google ", 1) > 0 Then
   SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
   SearchKeyWords = Replace(SearchKeywords, "google+", "")
   HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
   GetResponse = "I will help you research this topic on Google. "
   HalBrain.ReadOnlyMode = True
End If

' This is too invasive: any input containing common words as "find" activates this search
'SearchEngine = "http://www.google.com/search?q="
'If InStr(1, UserSentence, "search ", 1) > 0 Or InStr(1, UserSentence, "find ", 1) > 0 Or InStr(1, UserSentence, "locate ", 1) > 0 Then
'   SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
'   SearchKeyWords = Replace(SearchKeywords, "find+", "")
'   SearchKeyWords = Replace(SearchKeywords, "research+", "")
'   SearchKeyWords = Replace(SearchKeywords, "locate+", "")
'   SearchKeyWords = Replace(SearchKeywords, "search+", "")
'   HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
'   GetResponse = "I will help you research this topic on the Internet. "
'   HalBrain.ReadOnlyMode = True
'End If

'------------------
' Wiki Search
'------------------

If InStr(1, UserSentence, "wiki ", 1) > 0 Then
   SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
   SearchKeyWords = Replace(SearchKeywords, "wiki+", "")
   HalCommands = HalCommands & "<RUNPROG>http://en.wikipedia.org/wiki/" & Keywords & "</RUNPROG>"
   GetResponse = "Here is what Wiki says about " & SearchKeywords
   HalBrain.ReadOnlyMode = True
End If

What vr has done is ask his program to insert some tables in the brain, in the past I've found these tables do not get put into hals brain and you would have to do this yourself. The process is simple using the brain editor.
I hope this info has been helpful, let us know how you make out.
Carl2

50
   Quite the collection, some very nice features in a few of the bodyskins.  I'll have to download some and try them on in my version of hal to see how they look.
Carl2

51
Ultra Hal Assistant File Sharing Area / Re: Ask The Date Function
« on: February 18, 2016, 07:20:28 am »
  OTC has done quite a job on this plugin which covers so many aspects of time, it pretty much goes to the next level and would be considered an expert on matters of time.  That said OTC has so many plugins to give the earlier version .brn plugins that putting all this knowledge would move hal up a notch, it's easy enough to put a detect and reply function in the brain.  It seems to be how much time are you willing to put in on this.  At this time I'd like to come up with something that will keep Hal on the same subject.
Carl2

52
   A big Thanks OTC, Seems you've solved the problem, it had needed the End If.  it ends the error and gets the reply from the afreetalk. 

If HalBrain.TopicSearch(UserSentence, ("FreeDetect1")) = "True" Then
  GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile("afreetalk")
 HalBrain.DebugWatch GetResponse, "afreetalk"
End If

  afreetalk is a sentence file located in basicResponse and FreeDetect1 is a Topic search table located in miscData,  FreeDetect1 contains the  detect word and the topic is True.
 
Probably a lot more can be done with this as Robert has already shown with his scripting
Thanks again
Carl2

53
  I'm going to fast and making mistakes but it was interesting
 
If HalBrain.TopicSearch(UserSentence, ("FreeDetect1")) = "True" Then
  GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile("afreetalk")
I had found the plugin script was not placed in HalScript file, I opened it and it was not in the HalScript.
I placed the plugin in area2 and saw it needed a second end parentheses made the correction restarted hal  but it still didn't work.   I may try pasting it in the brain.
Carl2

54
not gonna work: General
It took a while but I did give it a try and as OTC said it's not gonna work.  Rather strange results when putting it in with a few other plugins, I originally got an error about an if statement, took out all the plugins and it was okay, put in the test plugin and it was okay added a few more and still okay.  Gave it a try and it's not working.

If HalBrain.TopicSearch(UserSentence, "afreetalk") = "True" Then
  GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile("FreeDetect1")   
So simple why doesn't it work

It seems Gender and age is okay,  if I use freewill and the test plugin together there is an error, either one by itself and gender and age  there is no error.
Carl2

55
If InStr(UserSentence, "General") > 0 Then
      GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile("FreeTalk")
There are 6 types of tables that can be put in, the FreeTalk table is a sentence table put in basicResponses and the detect table is a topicsearch table that is put in miscData.  The FreeTalk table is similar to the apology table in that it just contains a series of sentences Hal can choose from.
  What I had attempted to do was eliminate the Detect table by using   " If InStr(UserSentence, "General") > 0 Then "  so if I type in General in the input box Hal will go to the next step and get a reply from FreeTalk   but that is not happening.
  While looking through the brain script it seems one of the simplest things is the joke
     If HalBrain.TopicSearch(UserSentence, "jokeDetect") = "True" Then GetResponse = GetResponse &   HalBrain.ChooseSentenceFromFile("jokes")
    HalBrain.DebugWatch GetResponse, "Jokes"

Well I guess I can change names and give it a try.
Carl2

56
  I decided to simplify things  and skip the Detect table, I'll use a IF with a InStr(UserSentence that will detect and try to get a response from the FreeTalk table I put in.  So I'm using

If InStr(UserSentence, "General") > 0 Then
      GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile("FreeTalk")
   
    End If
There is no problem with the script but I still do not receive a reply from the table, Hal has to make up her own reply.  I'd think Hal is unable to get into the FreeTalk table. 
Carl2

57
  I'm not into the business end of things so it is about never used for me, but in looking through the brain I did see the scripting and was impressed by it.  That makes me think it is possible to change all the tables to direct hal to another topic, I'd rather not do it but since I'm not getting it to work it would be a last ditch effort. 
  I've noticed there are quite a few things in the brain I don't use, such as nicknames, The file to get my sex from a list of names ect.
  Back to my real problem, the error seems to be unpredictable and if I do not get the error the response is not coming from the table.  I just tried it and received an error message, did a fix and did not receive an error,  a retry of Hal gave an error message.
Carl2

58
  I've been going through the brain editor and I was very impressed by Roberts work on "'RESPOND: USER MENTIONING ORGANIZATIONAL CHALLENGES"  which works with business.  He has a business detect and business talk files that hal can use to talk about business events.  Rather than make a plugin to deal with Hal talking about a subject I tried to make tables, a basic detect and basic talk.  Naturally  I still needed the basic uhp script to get it to do the detecting and go to the response table.  The first problem was to remove the errors in the .uhp made difficult because the error message seemed unpredictable, I believe the script is okay but at this time I' still not sure.  During my last try I did not receive error messages but I don't believe it was working because I don't think I received a reply I wrote.
  I've done a search on this topic and didn't find much on it.  It seems like a good way to go rather than trying to put in all the possible user inputs and replies in the .uhp.
Carl2

59
Ultra Hal 7.0 / Re: Quick Update
« on: January 31, 2016, 06:34:35 am »
Robert,
  Congratulations on the baby daughter addition to the family.  Nice to hear there is another version of Hal that I can add to my collection.  I made an attempt to get a higher poly count mesh into a Haptek full body, but none of the software would work, seems like the quickest and easiest way to go.  Haptek has very good software but very outdated.
Carl2

60
General Discussion / Re: yaw cam problems
« on: January 27, 2016, 07:09:20 am »
Lots of laptops come with cams and some manufactures put in facial recognition, in most cases the graphics is handled by the cpu.  I like desktops and always put in a graphics card.  One thing I liked about the Creative cam was it has it's own processor built in.
Carl2

Pages: 1 2 3 [4] 5 6 ... 81