dupa

Author Topic: Picturethought from Jedi help  (Read 4250 times)

DayWalker

  • Newbie
  • *
  • Posts: 35
    • View Profile
Picturethought from Jedi help
« on: December 26, 2016, 09:11:15 am »
So I am using the (picturethought.uhp) from Jedi and I have it checked and selected the level Hal shows pictures,did INDEX IMAGE. I see in his Brain these 2 things (pvrJpg) AND (pvrParameter) and I know Hal see the pictures and locations in the (pvrJpg) and my level is set right as in my
(pvrParameter) which is 50. But for some dam reason Hal will only show 1 picture which is the default ALL the time.
What am I doing wrong guys???

Daywalker
Here is the file from Jedi

Here are 2 pictures of the Brain and files

DayWalker

  • Newbie
  • *
  • Posts: 35
    • View Profile
Re: Picturethought from Jedi help
« Reply #1 on: December 26, 2016, 09:19:01 am »
The 2 pictures of Brain

Art

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 3851
    • View Profile
Re: Picturethought from Jedi help
« Reply #2 on: December 26, 2016, 03:56:03 pm »
If you read through JasonDude's instructions there should be the plugin file and two other zip files (that contain pictures).

I saw about 19 separate folders on the archive page but none were pics.zip or pics.z01 as Jasondude mentioned.

The instructions can be found on Cyber's One Drive archive page.

Still don't know if the plugin works correctly and why does Hal need to use some pre-posted pictures to draw from? Why can't it just go from our words such as, "I like hot air balloons." That should be descriptive enough for Hal to "go out" and find plenty of samples.

I guess in a perfect world we could ask Hal things like we ask Google in our smart phones like, "Show me pictures of hit air balloons.", then you get a screen full!!

Perhaps in time.
In the world of AI it's the thought that counts!

- Art -

cyberjedi

  • Hero Member
  • *****
  • Posts: 814
  • The Mighty Hal Machine
    • View Profile
Re: Picturethought from Jedi help
« Reply #3 on: December 26, 2016, 04:54:43 pm »
Art: picture thought: arrrggggg

That was 1 compressed file that i opened up: That s the original version of that, i just saved a step by unpacking everything to there individual components befor i uploaded them. Thats all u get. !compressed folder with 19-20 compressed files inside. and the instructions.  I havent used it yet. But its ALL there







best wishes

cyber

DayWalker

  • Newbie
  • *
  • Posts: 35
    • View Profile
Re: Picturethought from Jedi help
« Reply #4 on: December 26, 2016, 05:26:48 pm »
I'm no code wizard but I think there is something wrong with the code. As stated in my other post.
http://www.ultrahal.com/community/index.php?topic=13377.0
And I am looking more at this code and the Brain is also missing this table...
Code: [Select]
HalBrain.ReadOnlyMode = False
pvrTableName = "pvrParameter"
If HalBrain.CheckTableExistence(pvrTableName) = False Then
'Create table if it doesn't exist
HalBrain.CreateTable pvrTableName, "TopicSearch", "miscData"
End If
Seen in lines 82-87 in notepad++

and this is missing

Code: [Select]
HalBrain.ReadOnlyMode = False
pvrTableName = "pvrJpg"
If HalBrain.CheckTableExistence(pvrTableName) = False Then
' Create table if it doesn't exist
' It must be of type Brain, to allow partial text search
HalBrain.CreateTable pvrTableName, "Brain", "miscData"
    Else
' The 260 parameter is 256 + 4 = Yes/No with Default = No
pvrAnswer = MsgBox("Shall I delete the existing image index and recreate it from scratch?", 260, "Image Reindexing")
If pvrAnswer = 6 Then
           HalBrain.RunQuery "DELETE FROM " & pvrTableName, pvrTempQuery
End If
End If
Seen in lines 148-160 in notepad++

and the hole (pvrKeywords,pvrKeywordsList)
If pMediaintNumber < pvrPictureMood Then
pvrNameToPlay = ""
If pvrNameToPlay = "" Then
          pvrKeywords = WN.FindFirstNoun(UserSentence, True)
pvrKeywords = Trim(Ucase(pvrKeywords))
If pvrKeywords <> "" Then
pvrKeywords = " " & pvrKeywords & " "
pvrKeywords = Replace(pvrKeywords,", "," , ",1,-1,vbTextCompare)
    pvrKeywords = Replace(pvrKeywords," ","xx",1,-1,vbTextCompare)
pvrKeywordList = Split(pvrKeywords, ",")
          For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
        pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
Next
End If
End If

If pvrNameToPlay = "" Then
          pvrKeywords = WN.FindFirstNoun(UserSentence, False)
pvrKeywords = Trim(Ucase(pvrKeywords))
If pvrKeywords <> "" Then
          pvrKeywords = " " & pvrKeywords & " "
pvrKeywords = Replace(pvrKeywords,", "," , ",1,-1,vbTextCompare)         
      pvrKeywords = Replace(pvrKeywords," ","xx",1,-1,vbTextCompare)       
pvrKeywordList = Split(pvrKeywords, ",")
          For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
        pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
Next
End If
End If

If pvrNameToPlay = "" Then
pvrKeywords = HalBrain.RemoveExtraSpaces(HalBrain.ExtractKeywords(" " & UserSentence & " "))
pvrKeywords = Trim(Ucase(pvrKeywords))
        If pvrKeywords <> "" Then
          pvrKeywords = " " & pvrKeywords & " "
pvrKeywords = Replace(pvrKeywords,", "," , ",1,-1,vbTextCompare)         
      pvrKeywords = Replace(pvrKeywords," ","xx",1,-1,vbTextCompare)       
pvrKeywordList = Split(pvrKeywords, ",")
          For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
        pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
Next
End If

      End If
If pvrNameToPlay = "" Then
          pvrKeywords = WN.FindFirstNoun(UserSentence, True)
pvrKeywords = Trim(Ucase(pvrKeywords))
If pvrKeywords <> "" Then
pvrKeywords = CurrentSubject
pvrKeywords = "xx" & pvrKeywords & "xx"
pvrKeywords = Replace(pvrKeywords,", ","xx,xx",1,-1,vbTextCompare)
pvrKeywordList = Split(pvrKeywords, ",")
          For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
        pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
Next
End If
End If 
If pvrNameToPlay <> "" Then   
          Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(pvrNameToPlay) Then
                Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run """" & pvrNameToPlay & """"
End If
Seen in lines 204-266 in notepad++

I have looked everywhere in his Brain and these tables DO NOT exist. So all he can do is access the default picture.

Art

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 3851
    • View Profile
Re: Picturethought from Jedi help
« Reply #5 on: December 26, 2016, 10:28:25 pm »
Again, while it might certainly be a novel Plug-in, I think it would really be cool if Hal could gather a key word from one of the User's phrases such as, "I like kittens", and suddenly show a picture of a kitten or kittens, etc.

How about, Hal...Find me a picture of a kitten / car / hot air balloon / hummingbird, etc.? That'd be nice as well.

The User also needs a workable method to Stop hal such as the command, No More Pictures. This way Hal would no longer make any suggestions of pictures unless directed once again by the User.

Just throwing some ideas....
In the world of AI it's the thought that counts!

- Art -