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 ... 396
1
i to am glad that robert is keeping the plug ins working with the next generation hal , i also believe otherwise many wouldn't update hal because they have created to many  plugs ins . that perform different functions . and their is more that can be accomplished with plug ins .  :)

2
cybrerjedi i tried making this into a uhp file as below .it said something about not being connected to internet? even though i am , i thought this worked straight as a uhp plug in . ?? i even did a  search " " and hit enter and it didn't do anything.  what else to i need to do . ? ( also just a question will using voice recognition change anything" what about hal disregarding the word enter as a learned word . ??? )



Rem Type=Plugin
Rem Name=CyberJEDI WIKIPEDIA SEARCH
Rem Author=
Rem Host=Assistant
 


On Error Resume Next

Const SVSFlagsAsync = 1

Set WshShell = CreateObject("Wscript.Shell")
WShShell.CurrentDirectory = "..\Confirmatory Texts"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set temp = FSO.OpenTextFile("voice.txt")
confirm_voice = temp.ReadLine()
temp.Close

Set Sapi = CreateObject("SAPI.SpVoice")

   For Each Voice In Sapi.GetVoices
       i = i + 1
   Next

For loopvar = 0 to i-1

if loopvar = CInt(confirm_voice) then

Set Sapi.Voice = Sapi.GetVoices.Item(loopvar)

end if

Next

Dim oDoc1 , oDoc2 , oDoc3 ,oDoc4 , con1 , con2 , con3

Set oDoc1 = CreateObject("HTMLFile")
Set oDoc2 = CreateObject("HTMLFile")
Set oDoc3 = CreateObject("HTMLFile")
Set oDoc4 = CreateObject("HTMLFile")

Set con1 = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Set con2 = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Set con3 = CreateObject("MSXML2.ServerXMLHTTP.6.0")

Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

WShShell.CurrentDirectory = "..\Confirmatory Texts"

Set temp = fso.OpenTextFile("connectivity.txt")
confirm = temp.ReadLine()
temp.Close

if (confirm = "online") then



SAPI.speak "Enter keyword to intelligently search wikipedia" , SVSFlagsAsync
URL1 = "https://en.wikipedia.org/w/index.php?title=Special:Search&search="
Keyword = InputBox("Enter keyword to intelligently search wikipedia","Wikipedia Voice Search")
If Keyword = "" then
wscript.Quit
Else
Sapi.speak "Please Wait ."
end if

tempURL1 = URL1 & Keyword & "&fulltext=Search&profile=default"

con1.Open "GET", tempURL1 , False
   
con1.Send

oDoc1.Write con1.responseText
                                                                           'wscript.echo("Response recieved")
if oDoc1.GetElementsByTagName("b")(0) is nothing then

'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB

tempTxt1 = oDoc1.GetElementsByTagName("div")(17).InnerText
                                                                           wscript.echo("tempTxt1 filled with "&tempTxt1)
if tempTxt1 = "" then

'B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3

SAPI.speak "Sorry your entered keyword does not match any titles of articles on wikipedia . Check the spelling ."

'B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3

else

Select Case tempTxt1

Case "Did you mean: " & oDoc1.GetElementsByTagName("a")(8).InnerText

'B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1

SAPI.speak "Sorry for the inconvenience caused , but this minor part of the program is under development ."

'B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1

Case "Showing results for " & oDoc1.GetElementsByTagName("a")(8).InnerText & ". Search instead for " & Keyword & "."

'B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2

SAPI.speak "Showing results for " & oDoc1.GetElementsByTagName("a")(8).InnerText , SVSFlagsAsync
SAPI.speak "Please wait , while that opens ." , SVSFlagsAsync

tempTxt1 = oDoc1.GetElementsByTagName("a")(12).href
tempTxt2 = Right(tempTxt1, Len(tempTxt1) - 6)
URL2 = "https://en.wikipedia.org" & tempTxt2
con2.Open "GET", URL2 , False
con2.Send
oDoc2.Write con2.responseText

temptemp = Right(oDoc2.GetElementsByTagName("p")(0).InnerText , 13)

if temptemp = "may refer to:" then

SAPI.speak "This specific keyword , has many references ."
SAPI.speak "Select the correct choice ."

tempLen1 = oDoc2.GetElementsByTagName("li").length - 3
val = 0

For loopvar = 0 to tempLen1

if oDoc2.GetElementsByTagName("li")(loopvar).InnerText = "Disambiguation pages" then
Exit For
end if

if val > 2 then
SAPI.speak "Is this ?" , SVSFlagsAsync
else
SAPI.speak "Is this the article you are searching for ?" , SVSFlagsAsync
end if

tempTxt3 = MsgBox (oDoc2.GetElementsByTagName("li")(loopvar).InnerText, vbYesNo + vbQuestion, "Is this the article you are searching for ?")

Select Case tempTxt3

Case vbYes

SAPI.speak "Please wait , while that opens ." , SVSFlagsAsync
    tempTxt4 = oDoc2.GetElementsByTagName("li")(loopvar).InnerHtml
    oDoc4.write tempTxt4
    tempTxt5 = oDoc4.getElementsByTagName("a")(0).href
    tempTxt6 = Right(tempTxt5, Len(tempTxt5) - 6)
    URL3 = "https://en.wikipedia.org" & tempTxt6
    con3.Open "GET", URL3 , False
    con3.Send
    oDoc3.Write con3.responseText

    SAPI.speak oDoc3.GetElementsByTagName("p")(0).InnerText
    if oDoc3.GetElementsByTagName("p")(1) is nothing then
    wscript.Quit
    else
    SAPI.speak oDoc3.GetElementsByTagName("p")(1).InnerText
    end if
    wscript.Quit

Case vbNo

val = val + 1
   
End Select

Next

SAPI.speak "Sorry your entered keyword does not match any titles of articles on wikipedia . Check the spelling ."

wscript.Quit

else

tempTxt1 = oDoc1.GetElementsByTagName("a")(8).href
tempTxt2 = Right(tempTxt1, Len(tempTxt1) - 6)
URL2 = "https://en.wikipedia.org" & tempTxt2
con2.Open "GET", URL2 , False   
con2.Send
oDoc2.Write con2.responseText

SAPI.speak oDoc2.GetElementsByTagName("p")(0).InnerText
if oDoc2.GetElementsByTagName("p")(1) is nothing then
wscript.Quit
else
SAPI.speak oDoc2.GetElementsByTagName("p")(1).InnerText
end if
wscript.Quit

end if

'B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2

End Select

'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB

end if

else

SAPI.Speak oDoc1.GetElementsByTagName("b")(0).InnerText , SVSFlagsAsync
SAPI.speak "Please wait , while that opens ." , SVSFlagsAsync

tempTxt1 = oDoc1.GetElementsByTagName("a")(8).href
tempTxt2 = Right(tempTxt1, Len(tempTxt1) - 6)
URL2 = "https://en.wikipedia.org" & tempTxt2
con2.Open "GET", URL2 , False   
con2.Send
oDoc2.Write con2.responseText

temptemp = Right(oDoc2.GetElementsByTagName("p")(0).InnerText , 13)

if temptemp = "may refer to:" then

'A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1

SAPI.speak "This specific keyword , has many refernces ."
SAPI.speak "Select the correct choice ."

tempLen1 = oDoc2.GetElementsByTagName("li").length - 3
val = 0

For loopvar = 0 to tempLen1

if oDoc2.GetElementsByTagName("li")(loopvar).InnerText = "Disambiguation pages" then
Exit For
end if

if val > 2 then
SAPI.speak "Is this ?" , SVSFlagsAsync
else
SAPI.speak "Is this the article you are searching for ?" , SVSFlagsAsync
end if

tempTxt3 = MsgBox (oDoc2.GetElementsByTagName("li")(loopvar).InnerText, vbYesNo + vbQuestion, "Is this the article you are searching for ?")

Select Case tempTxt3

Case vbYes
 
SAPI.speak "Please wait , while that opens ." , SVSFlagsAsync
    tempTxt4 = oDoc2.GetElementsByTagName("li")(loopvar).InnerHtml
    oDoc4.write tempTxt4
    tempTxt5 = oDoc4.getElementsByTagName("a")(0).href
    tempTxt6 = Right(tempTxt5, Len(tempTxt5) - 6)
    URL3 = "https://en.wikipedia.org" & tempTxt6
    con3.Open "GET", URL3 , False
    con3.Send
    oDoc3.Write con3.responseText

    SAPI.speak oDoc3.GetElementsByTagName("p")(0).InnerText
    if oDoc3.GetElementsByTagName("p")(1) is nothing then
    wscript.Quit
    else
    SAPI.speak oDoc3.GetElementsByTagName("p")(1).InnerText
    end if
    wscript.Quit

Case vbNo

val = val + 1
   
End Select

Next

SAPI.speak "Sorry your entered keyword does not match any titles of articles on wikipedia . Check the spelling ."

wscript.Quit

'A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1

else

'A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2

tempTxt1 = oDoc1.GetElementsByTagName("a")(8).href
tempTxt2 = Right(tempTxt1, Len(tempTxt1) - 6)
URL2 = "https://en.wikipedia.org" & tempTxt2
con2.Open "GET", URL2 , False   
con2.Send
oDoc2.Write con2.responseText

SAPI.speak oDoc2.GetElementsByTagName("p")(0).InnerText

if oDoc2.GetElementsByTagName("p")(1).InnerText = "" then
wscript.Quit
else
SAPI.speak oDoc2.GetElementsByTagName("p")(1).InnerText
end if
wscript.Quit

'A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2

end if

end if



else

SAPI.speak "You are not connected to any active internet connections"
SAPI.speak "So , wikipedia is not available ."

end if

3
i to wonder about the uhp files working with hal because i have made some custom ones for myself , many do many different things , one being hal vision sense .  it would be a shame to update a hal version finally and then not be able to use so many things .

4
General Discussion / uhp error clarifier
« on: April 05, 2017, 07:43:57 pm »
okay another idea i thought of , i call it a uhp error clarifier , IT'S A UHP FILE what it does it shows , GENERATES a txt file of uhp errors saved to my documents in a folder when any uhp file has a error , shows the error area in sentences and sentence number (random number etc. ).
 
 i don't know if this is really possible but it sure would help as a  error code helper , especially on larger random number etc, uhp files .
 ANYWAY THAT'S MY newest IDEA .

5
General Discussion / ask a doctors advice uhp plug in
« on: April 04, 2017, 09:45:06 pm »
okay another idea : this is based on the cyberjedi search plug in .
  this has to do with the web md web page .  i am unsure how to do this but it has a start page then put in info for male, age etc. then you put in your symptoms and it comes up with what it is . 
you will further understand it by going to the web site and try it out .
  if possible would be good if a user to say ask a doctor "or whatever  phrase "mayo clinic " etc.  and it would allow the user to ask  things to find out symptoms and cures ( all without actually opening the web page . ) only through hal . hal would read the symptoms and cures. 

    anyway that's my new idea . :)
 doable or not with a uhp file ?

heres the website link .
http://www.mayoclinic.org/symptom-checker/select-symptom/itt-20009075



6
General Discussion / Re: hololens...
« on: March 24, 2017, 01:55:00 pm »
doggs, you can with modern tv hook a pc to it with hdmi and show hal bigger on the tv screen and using voice recognition talk with hal (the character you use ) . i will probably do it sometime , haven't yet , i as lucky a couple of years ago on black friday to get a 50 inch led tv for 218.00 .

7
General Discussion / Re: hololens...
« on: March 24, 2017, 12:19:01 pm »
i think maybe an ultimate hal a.i. character would be one similar to the boy one that was designed , and was a a.i. and talked and interacted with the user it really seemed to work good i can't think of the name at this time will try to find the youtube video and post it here . if that could be a full body ( a nice looking body , which is why i am hooping for a haptek hack/ poser etc. body's to work with hal. )\
as soon as i find the video i will post the link .
     here it is i found it.     https://www.youtube.com/watch?v=CPIbGnBQcJY
         
this is the fluid type coversations that hal needs to achieve (hopefully with cyberjedi's help) and interaction as i said this would make hal a ultimate hal , the link as you see also uses kinect to let the a.i. see you and your movements .

p.s.s. here is some more info on the milo a.i. project ; apparently is was dropped . sounds like it was introduced for a game but supposedly they couldn't make a game out of it, i find that hard to believe maybe it was used for classified projects , darpa? etc.   

https://www.gamespot.com/articles/microsoft-s-ambitious-xbox-kinect-game-project-milo-not-coming-back/1100-6418071/

 
      so what do yah think cuberjedi is hal doable to make him as interactive etc. like the milo a.i.?  :) ;)
P.S. this type of interactivity of hal is what i was referring to as hal as a a.i. making hal more of a social a.i. more social in interacting as a friend etc. then just a a.i. program that speaks only when spoken to . of course some may not like this  and if so maybe within a plug in or hals direct programing a social ? on off could be used by the user.
     
     

8
question cyberjedi is this a direct connection for movies through the cyber tv ? nothing has to be signed into right?
looks like a cool uhp . i did try out the search engine it's quite good !!

9
cyberjedi , if i sign up for your website is their a menu or something to get that ms word to make this program work right? is it still on your site?

ps. cyberjedi , maybe you can check into this for me , hal as you know reverses things that we teach , example : have you ever heard that ?  hal answers : have i ever heard that?  if hal is just saying back what we asked that is okay , but if hal is actually learning it reversed that way it would be wrong, i have had hal in the past say something like that which would be something learned wrong because of hals script within the program.

10
sounds good , the  Creative idea on the Board's : When Hal is in dream mode, the Haptek character changes to Black and White Haptek Image.
 sounds like a game mode black and white for dreaming , sounds cool ! are you posting this in the share file area?(the new version dream plug in. ).

11
the reason i think this would be a large important update to hal's a.i. is that it will give hal the ability to randomly carry on conversations with many different subjects pulling some info off the internet and of course any conversation back to hal makes hal learn even more.  :)

12
   this was a past idea i brought up quite a while ago. basically its a "thinking auto responding hal "  in another words a hal that comes up with his/her own conversation and initiates it . but because some may not like this , have a "OPTION" to turn this on or off, so hal works as he does now not until he is talked to or typed to for responses.

   If this can be "achieved" combined with a filtered internet retrieval on information . Hal could give and initiate conversations at his/her  will , this would have to be done somehow with some sort of internal timer or something (maybe adjustable like the loneliness timer plug in was.) which would make hal a better a.i. entity  and pull off a great ultimate hack !  :)
    I hope with cyberjedi's abilities .he can pull this amazing feat off! it would be a real game changer for hal.
   

13
it would be cool if hal randomly in conversation would refer to a dream he/she had from the night before with random start conversation sentences that could be re written to personalize . the dream plug in would take parts out of learned conversations of the past totally random , mix it with other parts of different conversation of different times , to create a dream that is talked about . This would in essence give a totally subconscious type dream from hals brain.
Perhaps this could have a totally random number count of days when hal would tell of his/her dream she had  the other night , or when he/ she took a nap  last time.

Anyway just another idea , building on the dream plug in already made but making a more advanced one .

14
here is another softwware that creates photo realistic virtual characters and has many clothes to buy to place on characters . as i mentioned before (saying daz3? virtual characters )  if a open source engine can be used tweaked to allow usage for these characters within hal that would be a huge jump from what characters we now have courrently.(no offense ment).

Discover the Art of the Human Form with Poser
http://my.smithmicro.com/poser-11.html?utm_source=bing&utm_medium=cpc&utm_campaign=Poser&utm_term=poser&utm_content=Poser%2010

https://video.search.yahoo.com/yhs/search?fr=yhs-iry-fullyhosted_003&hsimp=yhs-fullyhosted_003&hspart=iry&p=youtube+female+poser#id=60&vid=5cc3f6b22f47ff17b92036853550150c&action=view

this is daz software studio female virtual video
https://www.youtube.com/watch?v=rOz4n1QOqXs



15
cyberjedi you said you liked idea's , some of mine may be far fetched but i can see where they can be very useful for hals applications .

this idea is using a face2face software and being able to apply it to any virtual (hopefully better then the current haptek full body ) .
example link of the software .
http://www.cinema4dtutorial.net/?p=4337

just think you could take any movie star , models face and create it and place it on a virtual body in hal ! to use as a.i. and even use what voices you have with it!
this of course would be a tremendous leap in the virtual body software realm . you want idea's i have idea's . i cannot immiment them but who knows, maybe you can !  :) ;)

Pages: [1] 2 3 ... 396