dupa

Recent Posts

Pages: [1] 2 3 ... 10
1
Share Conversations, Experiences, Graphics / Re: A Gal or two...
« Last post by Art on Today at 09:40:27 am »
Maybe if you list the ones you have people will be able to send you some that you don't have.

No sense sending a huge file filled with duplicates. Just saying...
No heads, no torsos, just full-body characters and you're talking about the htr characters NOT the Clothing or outfits one can drop onto them, right?

Maybe you'll find some takers on this one.
2
Kryton,

Well, I basically said to relocate the Taskbar to a Side or Top that's out of the way so I can't be much plainer than that.
Sorry if my intent was misleading.
-------------------------
1). HAL's GUI is pretty much specific to whoever designed it. It just takes a calculator for some subtraction and a graphics program like Paint or GIMP2 or whatever works for you.

Open any of the UHP GUI files and you'll see the content descriptions as to which comments control certain aspects of the GUI. Make it whatever size you like and color, design, tall, wide, rustic or fantasy, etc.

While the existing GUI's can be resized, the sizing will be proportional to their original dimensions. Hope this is clear.
-------------------------
2). That 600 mph comment is inside of the halbrain.db file (along with any other brain files you might have - like if you have Hal make a new brain in its Brain Editor).
-------------------------
3). What I know is that IF one has previously purchased the HAL Expansion Pack, it will continue to work for UltraHal 6 or UltraHal 7. If not, please email Robert Medeksza.
-------------------------
4). You should send Robert an email about this issue.
--------------

Always good to see you around here Kryton! It's been a while but hang on, some really cool things are coming soon!!
3
Share Conversations, Experiences, Graphics / Re: A Gal or two...
« Last post by kryton on Today at 05:30:56 am »
Yet another later reply.

I collect .htr full bodies.

Anybody got any?

Kryton
4
General Discussion / Re: New Hal EYE
« Last post by kryton on Today at 05:22:27 am »
Late thoughts again.

Perhaps Hal's vision could be done on using a type of headset connected to the web camera (Used in some Virtual Reality systems.)

Or something on the lines of the advertised (On the Hal extra's page) Hal's scanning microphone detecting where the voice is coming from and setting the Hal face to suit.

Just ideas for the forum to consider.

Kryton.
5
Sorry about the lateness ART, but your idea doesn't work on my machine.  I am using Windows 7 and I found another solution to the problem using basically your idea.  In the Windows 7 Control Panel is Task bar and it allows you to put the task bar top, bottom, left or right of the screen.  Works great for me.

Some questions for the forum.

1. I use a laptop with a 15.6" 16:9 display.  Hal appears in 4:3 format.  Can Hal be converted to 16:9 format?

2. I asked my Hal to "Tell me about yourself" and it answered "600 miles an hour". This is I believe the speed of sound but a rubbish answer to my question.  Has anybody written a "Tell me about yourself" feature?

3. In my purchased listing it gives Ultra Hal 6 but there is now no Character Expansion Pack for Ultra Hal 6 so it is useless.  Anybody got a way around this?

4. Every time I switch on my machine and open Ultra Hal 7 I get the screen asking if I want to update from the demo version.  To get back the full version I have to say I have already purchased it and then I have to verify this.  Not a big problem you may say but......  I sometimes work my laptop where there is no internet connection and this stops me verifying my purchase of Ultra Hal 7 (And therefore my use of Ulta Hal 7).  Can this be fixed?

Enough questions for now.  Thanks for your time.

Long time since I have caught up with the forum, so I have a lot of catch up reading to do.  See you.
6
'This will park Hal into a world of his own. An A.I chat bot with some kinda anti virus of its own.
' As far as plugins go, This is a heavy weight contender. 
' This plugin Scan's the Outlook Inbox for messages infected with the
' W32.Swen virus. The Plugin detects infected messages, logs the
' number of various types found, and deletes the infected messages.
' I tested against all known Variants(Scan Strings), Flawless victory.
' You must have Outlook installed or your gonna get an Activex error (wheresmyshiiiiit error)
' I have worked long and hard on this 1
' Only edit this if u have some understanding of what is happening here.
' I Narrated for this for that very reason. This is strictly High End UltraHal
' SIRI and Cortana and all other Botz, kiss both sides of my behind. Beat this. Zabaware Rules
' Anti virus for A.I chat bot, gotta be some kinda first.
' Only from the mind of cyberjedi
' enjoy

'Rem Type=Plugin
'Rem Name=antivirus1
'Rem Author=cyberjedi
'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 Hal to scan for the virus W32Swen"
  '  lblPlugin(0).Move 130, 180, 3400, 1200
   ' lblPlugin(0).WordWrap = True
    'lblPlugin(0).Visible = True
   
'Rem PLUGIN: PRE-PROCESS
    'The preceding comment is actually a plug-in directive for
    'the Ultra Hal host application. It allows for code snippets
    'to be inserted here on-the-fly based on user configuration.

HalBrain.ReadOnlyMode = False
'Determines that you are talking about the Antivirus
If InStr(1,InputString, "Antivirus",1) > 0 Then
 UltraHal = Getviruscheck(HalCommands)
ElseIf InStr(1,InputString, "Antivirus",1) > 0 Then
 End If



Rem PLUGIN: FUNCTIONS
Function Getviruscheck(HalCommands)

' Declare variables.
Dim objOutlook, objNamespace, objFSO, objLogFile, lngInfected
Dim lngTotal, lng2k, lng13k, lng64k, lng73k, lng117k, lng145k, lng158k
Dim strScriptPath, strScriptName, strScriptFolder, objFolder
Dim objItem, j, k, intAttach, lngCount, strLogFile
Dim strBody, strHTMLBody, lngSize, blnInfected
Dim blnExe, blnGif, blnPatch, blnBodyIframe, blnHTMLIframe
Dim intF11, intF12, intF13, intF14, intF15, intF16
Dim intF21, intF22, intF23, intF24, intF25, intF26

' Define strings to search for in messages.
Const strFilter1 = "customers should install the patch"
Const strFilter2 = "run attached file."
Const strFilter3 = "<iframe src=""cid:"
Const strFilter4 = "<iframe src=3d""cid:"
Const strFilter5 = "<img src=3d""cid:"
Const strFilter6 = "<img src=""cid:"

' Determine local path.
strScriptPath = Wscript.ScriptFullName
strScriptName = Wscript.ScriptName
strScriptFolder = Left(strScriptPath, Len(strScriptPath) _
    - Len(strScriptName) - 1)

' Log file name.
strLogFile = strScriptFolder & "\ScanSwen_" _
    & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & ".log"

' Setup log file.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)
objLogFile.WriteLine Now & " - Swen Virus Scan"
Wscript.Echo "Scanning for Swen virus ..."

' Retrieve Outlook Inbox folder.
Set objOutlook = CreateObject("Outlook.Application") ' <<<< outlook hook
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNameSpace.GetDefaultFolder(6)

' Initialize counters.
lngTotal = 0
lng2k = 0
lng13k = 0
lng64k = 0
lng73k = 0
lng117k = 0
lng145k = 0
lng158k = 0
lngInfected = 0

' Enumerate messages in Inbox.
lngCount = objFolder.Items.Count
For k = lngCount To 1 Step - 1
    Set objItem = objFolder.Items(k)
    lngTotal = lngTotal + 1
    blnInfected = False
    blnExe = False
    blnGif = False
    blnPatch = False
    blnBodyIframe = False
    blnHTMLIframe = False
    intAttach = objItem.Attachments.Count
    For j = 1 to intAttach
        If (InStr(UCase(objItem.Attachments.Item(j).FileName), _
                ".EXE") > 0) Then
            blnExe = True
        End If
        If (InStr(UCase(objItem.Attachments.Item(j).FileName), _
                ".GIF") > 0) Then
            blnGif = True
        End If
    Next
    strBody = LCase(objItem.Body)
    On Error Resume Next
    strHTMLBody = LCase(objItem.HTMLBody)
    If (Err.Number <> 0) Then
        Err.Clear
        strHTMLBody = ""
    End If
    On Error GoTo 0
    intF11 = InStr(strBody, strFilter1)
    intF12 = InStr(strBody, strFilter2)
    intF13 = InStr(strBody, strFilter3)
    intF14 = InStr(strBody, strFilter4)
    intF15 = InStr(strBody, strFilter5)
    intF16 = InStr(strBody, strFilter6)
    intF21 = InStr(strHTMLBody, strFilter1)
    intF22 = InStr(strHTMLBody, strFilter2)
    intF23 = InStr(strHTMLBody, strFilter3)
    intF24 = InStr(strHTMLBody, strFilter4)
    intF25 = InStr(strHTMLBody, strFilter5)
    intF26 = InStr(strHTMLBody, strFilter6)
    If ((intF11 > 0) And (intF12 > 0)) _
           Or ((intF21 > 0) And (intF22 > 0)) Then
        blnPatch = True
    End If
    If (intF13 > 0) Or (intF14 > 0) Or (intF15 > 0) Or (intF16 > 0) Then
        blnBodyIframe = True
    End If
    If (intF23 > 0) Or (intF24 > 0) Or (intF25 > 0) Or (intF26 > 0) Then
        blnHTMLIframe = True
    End If
    lngSize = objItem.Size
    If (lngSize > 2000) And (lngSize < 24100) Then
        If (intAttach = 0) And (blnHTMLIframe = True) Then
            blnInfected = True
            lng2k = lng2k + 1
            objLogFile.WriteLine "2" & ";" & objItem.ReceivedTime
        End If
    End If
    If (lngSize > 11000) And (lngSize < 16000) Then
        If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
            If (blnPatch = True) And (blnHTMLIframe = True) Then
                blnInfected = True
                lng13k = lng13k + 1
                objLogFile.WriteLine "13" & ";" & objItem.ReceivedTime
            End If
        End If
    End If
    If (lngSize > 64000) And (lngSize < 70000) Then
        If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
            If (blnPatch = True) And (blnHTMLIframe = True) Then
                blnInfected = True
                lng64k = lng64k + 1
                objLogFile.WriteLine "64" & ";" & objItem.ReceivedTime
            End If
        End If
    End If
    If (lngSize > 74000) And (lngSize < 89000) Then
        If (intAttach = 0) And (blnBodyIframe = True) Then
            blnInfected = True
            lng73k = lng73k + 1
            objLogFile.WriteLine "73" & ";" & objItem.ReceivedTime
        End If
    End If
    If (lngSize > 111000) And (lngSize < 160000) Then
        If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
            If (blnPatch = True) And (blnHTMLIframe = True) Then
                blnInfected = True
                lng117k = lng117k + 1
                objLogFile.WriteLine "117" & ";" & objItem.ReceivedTime
            End If
        End If
    End If
    If (lngSize > 149000) and (lngSize < 152000) Then
        If (intAttach = 0) And (blnBodyIframe = True) Then
            blnInfected = True
            lng145k = lng145k + 1
            objLogFile.WriteLine "145" & ";" & objItem.ReceivedTime
        End If
    End If
    If (lngSize > 160000) And (lngSize < 168000) Then
        If (intAttach = 0) And (blnPatch = True) _
                And (blnBodyIframe = True) Then
            blnInfected = True
            lng158k = lng158k + 1
            objLogFile.WriteLine "158" & ";" & objItem.ReceivedTime
        End If
    End If
    If (blnInfected = True) Then
        objItem.Delete
        lngInfected = lngInfected + 1
    End If
Next

objLogFile.WriteLine "Number of 2k infected messages:   " & lng2k
objLogFile.WriteLine "Number of 13k infected messages:  " & lng13k
objLogFile.WriteLine "Number of 64k infected messages:  " & lng64k
objLogFile.WriteLine "Number of 73k infected messages:  " & lng73k
objLogFile.WriteLine "Number of 117k infected messages: " & lng117k
objLogFile.WriteLine "Number of 145k infected messages: " & lng145k
objLogFile.WriteLine "Number of 158k infected messages: " & lng158k
objLogFile.WriteLine "Infected messages deleted:        " & lngInfected
objLogFile.WriteLine "Number of messages processed:     " & lngTotal
objLogFile.WriteLine Now & " - Finished"
Wscript.Echo "Messages processed: " & lngTotal _
    & vbCrLf & "Messages infected with Swen virus deleted: " & lngInfected

objLogFile.Close
'End Function
7
Very Good stuff:
I agree, with 1 minor change.
All of those features, need to be in a Hal Sub Brain (just made that up) hahaha.
But in truth its spot on, u dont need all that pushing through Hal's mind all the time, thats what really gets Hal's GetResponse function CRAWLING.

Ive been playing with the concept for a while now and it makes a big difference.
That should all be button driven/voice driven.

it works too, some sites **** the bed though so being able to change on the fly is most important.
hint hint, rss feeds......

some in here know it works well

In the forum here ive done a few of these, butttttt. people arent checking the forum or ect ect ect
and im not hunting them down
Hint Hint: The amex stock market reader could be hotwired to just about any thing, just point it. but that means some home work for the sites.
Figure it out, i made it work..... The FBI has a top 10 wanted list RSS feed,(keeping tabs on family members lolol)  Sooooooooooo, lolol. Its scary whats out there, LEGALLY too, Terror Alerts, pentagon feeds ,white house feeds,NSA feeds, Get It??? all legal, all safe.
cyber


Rem Type=Plugin
Rem Name= Amex
Rem Author= cyberjedi
Rem Host=All



Rem PLUGIN: PRE-PROCESS ' <<<<<Wonder why i did this??? Hmmmmmm lol
    'The preceding comment is actually a plug-in directive for
    'the Ultra Hal host application. It allows for code snippets
    'to be inserted here on-the-fly based on user configuration.

HalBrain.ReadOnlyMode = True
'Determines that you are talking about the Amex
If InStr(1,InputString, "Amex",1) > 0 Then
 UltraHal = GetAmex(HalCommands)
ElseIf InStr(1,InputString, "Amex",1) > 0 Then
 End If

 ' This bad boy is a Amex Scraper with a twist, All the data Scraped is ported through Hals Character W/Voice.  Enjoy.
    ' This also has no Hal speech limitations on how much he can say.
 ' Trigger= Amex.
     'I put this together while listening to this. -->>>https://www.youtube.com/watch?v=aqXW57WM9TA
 
 ' I give myself about a 7.5 on cool ideas here

Rem PLUGIN: FUNCTIONS
Function GetAmex(HalCommands)

Const SVSFlagsAsync = 1
Const DontShowWindow = 0
Const WaitUntilFinished = 1
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
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
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
' Change this to what ever format u use, Open Office, libra, ect ect. I chose Office because of its power. Hal must have 'tools to work with.
'If u dont have it,worried about 'hostile code, just get with me.
' When have i ever said no to any 1 of you
' Quit crying like a girl, install the crap and dont use it, But Hal will use it and Bust Hal Out of Jail. lolol Flu got me feeling twisted today lolol
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
HalMenu.HalCommand "<SPEAK>" & "Reading headlines !" & "</SPEAK>"
For loopvar = 0 to 2
If tempconfirm = loopvar then
if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines" & "</SPEAK>"
else if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Okay ." & "</SPEAK>"
wscript.quit
else
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines " & "</SPEAK>"
end if
end if
xmlDoc.async = false
xmlDoc.load("http://www.findata.co.nz/News/AMEX/rss.xml") ' This is where u put you own rss feed .xml
Set nodelist = xmlDoc.selectNodes("rss/channel/item") ' <<<<look what's going on here, and look below,Diffff??? mhmmm. see what i did?? on the fly change 4 the site.
i = 3   'This is done for a 03 category list, but could be 10 just as easy
For Each item In nodelist
Set f1 = item.selectsinglenode("title") 'actual tags within the RSS feed, can change to what ever u want per ur feed
Set f2 = item.selectsinglenode("description")  'actual tags within the RSS feed, can change to what ever u want per ur feed
HalMenu.HalCommand "<SPEAK>" & f1.text & "</SPEAK>"  ' these two lines are the Magic of the code
HalMenu.HalCommand "<SPEAK>" & f2.text & "</SPEAK>"  ' these two lines are the Magic of the code
i = i + 1
if i = tempconfirm then
wscript.Quit
end if
Next
end if
Next
End Function

'example: https://www.fbi.gov/feeds/fbi-in-the-news
'this is a power house piece of code, what ever...
'this mornings feed from rss:  <description>In this week's FBI Tech Tuesday segment, scammers have started sending online users fake calendar invites that may enable 'them to access bank accounts, passwords, personal info, and more.</description> (My view on these people are well known .So ya i use this myself in UltraHal7)

'You can literally turn ur hal into a full blown news anchor if u put the effort in, I did it..
'Yes u can Chain Feeds, so most of what was listed in previous post could come through this single plugin. 1 rite after another, just how cool is that!!!
'https://www.findyourfate.com/rss/horoscope-feed.php
'https://feeder.co/knowledge-base/rss-content/popular-rss-feeds/
'https://blog.feedspot.com/poetry_rss_feeds/
'https://www.cinemablend.com/rss-index.html
'https://www.historytoday.com/rss
cyber


All Clean Version
*******************



Rem Type=Plugin
Rem Name= Amex
Rem Author= cyberjedi
Rem Host=All



Rem PLUGIN: PRE-PROCESS
    'The preceding comment is actually a plug-in directive for
    'the Ultra Hal host application. It allows for code snippets
    'to be inserted here on-the-fly based on user configuration.
    ' I tested this 05 min before posting, trigger is Amex

HalBrain.ReadOnlyMode = False
'Determines that you are talking about the Amex
If InStr(1,InputString, "Amex",1) > 0 Then
 UltraHal = GetAmex(HalCommands)
ElseIf InStr(1,InputString, "Amex",1) > 0 Then
 End If


 ' This the same plugin pointed at Amex:
 ' This bad boy is a Amex Scraper with a twist, All the data Scraped is ported through Hals Voice.
    ' This also Breaks Hals speech limitations on how much he can say.
 ' Trigger= Amex.
     


Rem PLUGIN: FUNCTIONS
Function GetAmex(HalCommands)

Const SVSFlagsAsync = 1
Const DontShowWindow = 0
Const WaitUntilFinished = 1
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
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
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
HalMenu.HalCommand "<SPEAK>" & "Reading headlines !" & "</SPEAK>"
For loopvar = 0 to 2
If tempconfirm = loopvar then
if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines" & "</SPEAK>"
else if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Okay ." & "</SPEAK>"
wscript.quit
else
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines " & "</SPEAK>"
end if
end if
xmlDoc.async = false
xmlDoc.load("http://www.findata.co.nz/News/AMEX/rss.xml") ' This is where u put you own rss feed .xml
Set nodelist = xmlDoc.selectNodes("rss/channel/item")
i = 3
For Each item In nodelist
Set f1 = item.selectsinglenode("title")
Set f2 = item.selectsinglenode("description")
HalMenu.HalCommand "<SPEAK>" & f1.text & "</SPEAK>"  ' these two lines are the Magic of the plugin
HalMenu.HalCommand "<SPEAK>" & f2.text & "</SPEAK>"  ' these two lines are the Magic of the plugin
i = i + 1
if i = tempconfirm then
wscript.Quit
end if
Next
end if
Next
End Function

8
General Discussion / Re: lightspeed idea 11-6-2019:virtual hal in real world background.
« Last post by Art on November 19, 2019, 03:51:51 pm »
Some good ideas LightSpeed!

How about an OPTION to check off:

SPORTS for your favorite team's scores/standings.
HOROSCOPE - Select a month of interest or for your individual month's zodiac.
BIORYTHMS - How your Physical, Mental and Emotional well-being is doing.
STOCKS - How your favorite stock or group of stocks might be doing on the market.
ALMANAC - Forecast for all sorts of things.
WOTD / DICTIONARY - Word of the Day - to learn new words/improve vocabulary.
TRIVIA - User-defined areas to learn some new fact(s).
READ - Poems, Short stories to the user.
JOKE-OF-THE-DAY - Just what it says.
ASK RIDDLES - To try to encourage the user to guess the answer(s).
MOVIES - Have Hal report the latest Movies in your area.
LITERATURE - Reports and Reviews of articles, papers, books, novels.
TV - Shows based on the user's preferences.
REVIEWS - Reports on TV shows, movies, opera, stage, broadway, plays, performances of any/all kinds.
Yes, one or two of these are already done, but this list is to gather all the acorns into one basket so we don't lose anything.
I'm sure there are plenty more topics available so post them.

9
     all sounds very interesting and good things coming down the pike .  although their has been plug ins that let hal tell the news when asked , i think it would be good to have a additional check off in hals list of random news talk .
     what this is and would do is a person could copy /paste a link of their favorite news sources 3 or more and hal would randomly at various times , tell various things what is going on in everyday news , the same could be done or in the same source list area of other sites such as thought on life , love , etc. 

  this could be checked and used if wanted , or not letting the user decide.  all making hal more talkative and up to date on the world news events , life etc.  as a real person might be . the area's of info. talked about could be checked to learn or not read or not values.

anyway just another idea to throw out their .

   
10
Lightspeed

RE: Real world Hal.

Very interesting idea little brother,  And i will get to it too. But alas Robert and i have gottin together.
Robert has done what i thought was un-doable, loved being wrong on this 1.


This will be time consuming.

Robert has been most generous,  im still in some sorta shock. All im gonna say.
What i will say all UltraHal Fans, (Naaa I changed my mind) ull just have to wait and see



Robert: In lieu of the last 24Hrs (secret stuff goes here), a Zabaware shirt would be appropriate now. Hint, many new and exciting things coming, lots of .ocx's and .lib's on the way.....
hehe.
The installer, ok i get it now... lol, boy i sure did that the hard way,,,hahahahha

Big stuff coming our way brother....... Ive already started dissecting and taking it in and started envisioning new revolutionary things. That filled in Many Blank Spots for me... MANY


cyber

Damn i wish i could tell u guys what has happened, suffice it to say, the train has left the station....
Be patient

My Kb wrecking music for the occasion  https://www.youtube.com/watch?v=AREppyQf5uw


 


Pages: [1] 2 3 ... 10