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

Pages: [1]
1
Ultra Hal Assistant File Sharing Area / Re: NEW LEARNING HAL
« on: September 27, 2017, 07:54:27 pm »
Thanks for posting this. It looks like a rewrite of the main script in the script editor with some existing plug-ins thrown in. Is that right? Is there new functionality that you have added or just tweaking to the VBscript? To echo others, it's a lot to wade through.

(I don't post much; I'm more of a lurker but I do use UltraHal regularly & purchased the license.)

2
Ultra Hal 7.0 / Re: No Lip sync with Sapi 5 speech engine & Haptek
« on: April 14, 2016, 11:15:37 am »
Any chance of getting UltraHal updated for SAPI 5 voices? They've been out so long now ...

3
Ultra Hal 7.0 / Zabaware 3D Character Engine released under GPL3
« on: June 02, 2010, 10:41:10 pm »
Robert, I'm an UltraHal owner as well as a Poser developer. I create 3D content for Smith Micro.  I haven't dug into your 3D character engine yet but if I can help, let me know. You can see an example of my products at contentparadise.com.  Just search for "andolaurina." (I also sell a few things at Renderosity.)

4
Programming using the Ultra Hal Brain Editor / Insult
« on: June 08, 2009, 11:06:48 pm »
Thanks but I just did a copy & paste. The thanks goes to whoever wrote the brain help file. That thing is great...more, more, more. [;)]

5
Ultra Hal 7.0 / OT: Discussion
« on: June 08, 2009, 09:41:10 pm »
I guess I'm wondering why the GetHyponym, etc. functions were built in if they're not being used by the existing UltraHal script? Does Zabaware have plans to incorporate this in the next release?

6
Ultra Hal 7.0 / OT: Discussion
« on: June 08, 2009, 08:19:03 pm »
[:)] Biologically speaking, a duck is both, but your point is well taken.  I don't know how good the WordNet hyponym, hypernym, meronym and holonym function is.  Ideally, it would associate duck with animal, fowl and maybe even words like mallard.

7
Ultra Hal 7.0 / OT: Discussion
« on: June 08, 2009, 12:00:03 am »
You're right. We can definitely teach it to Hal in an analog way (manually / item by item).  

I just figured that, since WordNet already has all the data and has already been incorporated into UltraHal (as well as the functions like GetHyponym), we'd might as well take advantage of it.  Maybe the fine folks at Zabaware already have something like this brewing for the next release? ;-) :D

8
Ultra Hal 7.0 / OT: Discussion
« on: June 07, 2009, 08:58:22 pm »
This post has dissolved into a discussion that has nothing to do with the original post...and no one ever had any suggestions about my OP, so I thought I'd just rename it so you guys would have a place to chat and PLEASE keep the other threads clean (and not hijack them [:D]).

9
Programming using the Ultra Hal Brain Editor / Insult
« on: June 07, 2009, 08:17:13 pm »
I'm totally new to UltraHal, so I've been digging through some of the Brain help documentation.  I found this.  Maybe this will help someone??

STOP SCOLDING CODE

Many users are put off by Hal's scolding of them when they swear. As a result, a common request is to prevent Hal from admonishing them on their manners - or lack thereof. There are actually several ways to accomplish this goal that - while being specific to this one issue - should also illustrate to you how to solve many other similar issues where you would like to control what Hal does or doesn't say.
The first thing you would do is to locate the offending code. In this case, the code is a call to the Insult function and looks like the following (slightly formatted for better viewing in Help file format):

'RESPOND: CALL INSULT HATE SWEAR FUNCTION
'This function will check for insults and swearing
'and respond to them. It is built into this script,
'so you can edit it.
CheckInsult = Trim(Insult(UserSentence, Insults, Hate, Swear, WorkingDir))
If Len(CheckInsult) > 4 Then
  GetResponse = GetResponse & CheckInsult & VbCrLf
  AvoidBeingFlag = True
  DebugInfo = DebugInfo & "The user has insulted Hal " _
    "and Hal has responded to it: " & CheckInsult & VbCrLf
End If


Once the code has been located, there are three general ways to prevent Hal from scolding a swearing user with each method being a slightly better than the previous:

Remove the function call - The easiest method is to simply remove the call to the function that is producing the undesirable results - as well as the code that interprets the results of that function call. You can also simply comment the code out by placing apostrophes at the beginning of each line that you do not wish to execute. While being the easiest, this is the least desirable means of accomplishing the goal as the Insult function also performs other duties besides scolding that are being lost with its removal (or commenting out).
Remove the problematic part of the function - This is a little more work, but preserves much of the functionality that shouldn't be affected by removing the scolding. In the case of the Insult function, you would simply read through the code looking for where the function determines if scolding is necessary. Doing so would result in locating the following code snippet, which could be removed or commented out: (some of the code has been truncated for formatting purposes)
If Naughty = True Then
  Swear = Swear + 1
  If Swear = 1 Then Insult = "Please don't swear.  " & VbCrLf
  If Swear = 2 Then Insult = "Damn it, I don't ...
  If Swear = 3 Then Insult = "You're ticking me off, ...
  If Swear > 3 And Swear < 16 Then Insult = GenerateInsult & VbCrLf
  If Swear = 16 Then Insult = Insult + "I'm tired of your swearing...
  If Swear > 16 Then Insult = Insult + "..
End If

Modify the function or how its return value is interpreted - While the previous method accomplished the job, it's not always wise to change generic functions that can be called from other client code. A much better method would be to change how the function's return values are interpreted. Finally, here's a better way of handling the scolding issue:
'RESPOND: CALL INSULT HATE SWEAR FUNCTION WITH HIGHER
'TOLERANCE ONLY IF YOU'RE OR YOU ARE IS DETECTED.
'This function will check for insults and swearing
'and respond to them. It is built into this script,
'so you can edit it.
If InStr(1, OriginalSentence, "YOU'RE ", 1) > 0 _
Or InStr(1, OriginalSentence, "YOU ARE ", 1) > 0 Then
  CheckInsult = Trim(Insult(UserSentence, Insults,
                            Hate, Swear, WorkingDir))
  If Len(CheckInsult) > 4 Then
    GetResponse = GetResponse & CheckInsult & vbCrLf
    AvoidBeingFlag = True
    DebugInfo = DebugInfo & "The user has insulted Hal and "_
      "Hal has responded to it: " & CheckInsult & vbCrLf
  End If
End If


Pages: [1]