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.


Topics - moreis62

Pages: [1]
1
Ultra Hal Assistant File Sharing Area / Cool Back grounds for Hal.
« on: May 13, 2006, 06:53:42 pm »
If you have a cool Back ground you would like to share post here.


2
Does anyone know how to close a cd rom drive using Javascript or VB, i fund a script that will open them, however i need one that will close them if they are open

can someone help!!

Thankyou in advance

Vasilli

VB script to open CD drives

' VB Script
<SCRIPT language=VBScript>
<!--

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

-->
</SCRIPT>


3
Rem Type=Plugin
Rem Name=Kitt thinking
Rem Author=MrLedesma
Rem Host=Assistant
Rem PLUGIN: FUNCTIONS

    Dim LastIdleResponse

    Rem PLUGIN: AUTO-IDLE
    IdleResponse = ""

    Rem PLUGIN: PLUGINAREA7
    LastIdleResponse = Now

    Rem PLUGIN: MINUTE_TIMER
   
'Auto Timer Fix.
'AutoResponse Topic Generator. Version 1.5
'Here Hal will tell jokes and even give new learned topic responses.
'User Senteneces that contain commas will be appended to Topic.brn
'for Hals topic talk.
Dim Director
If LastResponseTime = "" Then LastResponseTime = Now
TimerResponseDiff = DateDiff("S", LastResponseTime, Now)
If TimerResponseDiff < 300 Then
TimerResponseDiff = 0
LastResponseTime = Now
If HalBrain.CheckRepetition(OriginalSentence, " AUTO-IDLE ") = True Then
Director = HalBrain.ChooseSentenceFromFile(WorkingDir & " TopicFocus.brn ")
GetResponse = Replace(OriginalSentence, " AUTO-IDLE ", Director, 1, -1, vbTextCompare) & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus) & VbCrLf
Exit Function
End If
End If
'Here Hal will save comma User Sentences for topics.
If InStr(UserSentence, "") > 0 And InStr(1, OriginalSentence, ",", 1) > 0 Then
SentPieces = Split(OriginalSentence, ",", 2, vbTextCompare)
SubPhrase = Trim(SentPieces(0))
PredPhrase = Trim(SentPieces(1))
SubPhrase = HalBrain.AlphaNumericalOnly(SubPhrase)
PredPhrase = HalBrain.AlphaNumericalOnly(PredPhrase)
HalBrain.AppendFile WorkingDir & " TopicFocus " & " .brn ", SubPhrase & "<Topic>" &  PredPhrase & "</Topic>"
DebugInfo = DebugInfo & "Hal is saving User's topic: " & SubPhrase & "<Topic>" &  PredPhrase & "</Topic>" & VbCrLf
Else
DebugInfo = DebugInfo & "Hal is not saving User's topic: " & SubPhrase & "<Topic>" &  PredPhrase & "</Topic>" & VbCrLf
End If

   'RESPONSE: IF USER WANTS TO TURN OFF AUTO-IDLE  
       If InStr(1, UserSentence, " NOT NOW", 1) > 0 Then
         HalCommands = "<AUTOOFF> <HIDEHAL>"
         GetResponse = "WELL. WE'LL TALK LATER THEN."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
   
       'RESPONSE: IF USER WANTS TO TURN OFF AUTO-IDLE  
       If InStr(1, UserSentence, " I'M USING THE COMPUTER NOW", 1) > 0 Then
         HalCommands = "<AUTOOFF> <HIDEHAL>"
         GetResponse = "WE'LL TALK LATER THEN."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
   
   'RESPONSE: IF USER WANTS TO TURN OFF AUTO-IDLE  
       If InStr(1, UserSentence, " YOU GO TO SLEEP NOW", 1) > 0 Then
         HalCommands = "<AUTOOFF> <HIDEHAL>"
         GetResponse = "OK, I'M GOING TO SLEEP."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If

 'RESPONSE: IF USER WANTS TO TURN OFF AUTO-IDLE
       If InStr(1, UserSentence, " SHUT UP", 1) > 0 Then
         HalCommands = "<AUTOOFF> <AUTOOFF>"
         GetResponse = "Fine. Be that way."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
      
       If InStr(1, UserSentence, " I'M GOING TO SLEEP", 1) > 0 Then
         HalCommands = "<AUTOOFF> <AUTOOFF>"
         GetResponse = "Ok, good night."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
   
   If InStr(1, UserSentence, " I'M GOING TO BED", 1) > 0 Then
         HalCommands = "<AUTOOFF> <AUTOOFF>"
         GetResponse = "Ok."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
   
   If InStr(1, UserSentence, " I'M GOING TO TAKE A NAP", 1) > 0 Then
         HalCommands = "<AUTOOFF> <AUTOOFF>"
         GetResponse = "Ok,take a nap."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
   
      If InStr(1, UserSentence, " BE QUIET", 1) > 0 Then
         HalCommands = "<AUTOOFF> <AUTOOFF>"
         GetResponse = "Ok, I will not bother you right now."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
   
        If InStr(1, UserSentence, " I'M ON THE PHONE", 1) > 0 Then
         HalCommands = "<AUTOOFF> <AUTOOFF>"
         GetResponse = "OK I'LL WAIT."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
   
        If InStr(1, UserSentence, " STOP TALKING", 1) > 0 Then
         HalCommands = "<AUTOOFF> <AUTOOFF>"
         GetResponse = "OK."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
       
        If InStr(1, UserSentence, " ILL BE BACK", 1) > 0 Then
         HalCommands = "<AUTOOFF> <AUTOOFF>"
         GetResponse = "I'LL WAIT."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If

       If InStr(1, UserSentence, " QUIET PLEASE", 1) > 0 Then
         HalCommands = "<AUTOOFF> <AUTOOFF>"
         GetResponse = "Very well then. Just let me know if you would like to talk."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
   
   'RESPONSE: IF USER WANTS TO TURN ON AUTO-IDLE
       If InStr(1, UserSentence, " LETS TALK", 1) > 0 Then
         HalCommands = "<AUTO>399999</AUTO>"
         GetResponse = "OK."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
   
        'RESPONSE: IF USER WANTS TO TURN ON AUTO-IDLE
       If InStr(1, UserSentence, " LETS CHAT", 1) > 0 Then
         HalCommands = "<AUTO>399999</AUTO>"
         GetResponse = "OK, What do you wanna talk about?"
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If  
   
   'RESPONSE: IF USER WANTS TO TURN ON AUTO-IDLE
       If InStr(1, UserSentence, " SAY HELLO", 1) > 0 Then
         HalCommands = "<AUTO>399999</AUTO>"
         GetResponse = "HELLO."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
   
    'RESPONSE: IF USER WANTS TO TURN ON AUTO-IDLE
       If InStr(1, UserSentence, " WAKE UP NOW", 1) > 0 Then
         HalCommands = "<AUTO>399999</AUTO>"
         GetResponse = "OK, I'M AWAKE."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
   
       'RESPONSE: IF USER WANTS TO TURN ON AUTO-IDLE
       If InStr(1, UserSentence, " IM BACK", 1) > 0 Then
         HalCommands = "<AUTO>399999</AUTO>"
         GetResponse = "WELCOME BACK."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If      
       
        'RESPONSE: IF USER WANTS TO TURN ON AUTO-IDLE
       If InStr(1, UserSentence, " KEEP LISTENING", 1) > 0 Then
         HalCommands = "<AUTO>399999</AUTO>"
         GetResponse = "I'm listening."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
      
       If InStr(1, UserSentence, " KEEP YOUR EARS OPEN", 1) > 0 Then
         HalCommands = "<AUTO>599999</AUTO>"
         GetResponse = "I'm listening."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
 
        If InStr(1, UserSentence, " KEEP YOUR SCANNERS PEELED", 1) > 0 Then
         If "<computername>" = "KITT" Then
            GetResponse = "Yes, Michael. Hey wait a minute. You're not Michael!"
         Else
            GetResponse = "I am not the Knight Industries Two Thousand. I do not have a scanner. But I'll talk to you anyway."
         End If
         HalCommands = "<AUTO>399999</AUTO>"
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If

   This is my first Type=Plugin for Hal6,
Works well in hal5, not as a plug-in though, I added the top part and its sees it fine, but still no go.
What am I doing wrong here?










4
I am now removing this poste
thank you.

5
Yes, it feels so good too be back now!
 
Here is one for all you Programmer's, it's a robot called "icat by Phillips Electronics", and it Really works with Ultra Hal Assistant 5.0 and up!

It features:


1. Improved servos, The neck and body servos are replaced by silent DC
motors, such that smooth movements are now "Don", The servos in
the face are replaced by new and more silent servos.
 
2. Stereo microphones.
 
3. Loudspeaker.
 
4. USB soundcard.
 
5. Automatic reroute possibility of webcam and soundcard devices from
the internal USB hub to other computers.
 
6. Proximity sensor.
 
7. An improved and well documented software environment Open
Platform for Personal Robotics, or (OPPR).


http://www.hitech-projects.com/icat/

Hope you all like this one.

6
Ultra Hal Assistant File Sharing Area / General Visual Basic Example
« on: March 19, 2005, 12:56:39 am »
This example uses VB to initialize the U4xx. The very minimum application would be to open the USB device and transmit a single command. This example shows the code that it takes to open the U4xx device and initialize the ports. The VBLIB files need to be included as part of this project.
The communication with the U4xx is done by transferring a group of eight bytes via the WriteUSBdevice call of the U4xx VB library. Eight bytes are returned from the device and read via the ReadUSBdevice U4xx VB call. These bytes are located in two arrays that are defined below.
Option Explicit
Dim OutBuffer(10) As Byte
Dim InBuffer(10) As Byte
When the form for this project is loaded, a call to OpenUSBdevice with the appropriate parameters returns true if the device has been detected.
The OpenUSBdevice parameters are used to find the device. A single parameter (in this example the string "U401") will open the first device located that matches that string. Multiple parameters allow devices to be opened via manufacturer name, VID, etc.
When a single parameter is used, the other parameters should be either 0, or a null string, as in the example.
Multiple parameters are used when device selection refinement is necessary, such as when multiple U4xx devices are used on a single machine. In that case, the serial number string should be used to refine the selection.

' Form load
' When the form is loaded at startup, find the hardware.
' Indicate status in "DeviceStatus" box.

Private Sub Form_Load()

    If OpenUSBdevice("U401", "", 0, 0, 0, "") Then
        DeviceStatus.Caption = "USB Device Found"
    Else
        DeviceStatus.Caption = "USB Device Not Found"
    End If

End Sub
Calling the function WriteReadUSB moves the eight command bytes of the array "OutBuffer" to the device and fills "InBuffer" with the 8 bytes sent from the U4xx.
' USB Transfer

Public Sub WriteReadUSB()
   
    Call WriteUSBdevice(AddressFor(OutBuffer(0)), 8)
    DoEvents
    Call ReadUSBdevice(AddressFor(InBuffer(0)), 8)

End Sub
The single button on the form of this application example transmits the InitPorts Command string of 00-00-00-00-00-00-00-00 to the U4xx.
' Button: Cmd

' Send a command to the device

Private Sub Cmd_Click()

    OutBuffer(0) = &H0
    OutBuffer(1) = &H0
    OutBuffer(2) = &H0
    OutBuffer(3) = &H0
    OutBuffer(4) = &H0
    OutBuffer(5) = &H0
    OutBuffer(6) = &H0
    OutBuffer(7) = &H0
   
    Call WriteReadUSB
       
End Sub

 
 
 

7
xPLHal is based on the .NET framework, so to install it you require the Framework installed.
Please note that this version of xPLHal is a Service and therefore will only run on NT4,
W2K and WinXP. An exe version is also available, for Win98/ME.

Download the current version of xPLHal from http://www.xplproject.org.uk/modules.php?op=modload&name=Sections&file=index&req=printpage&artid=25&POSTNUKESID=a850ca4b4d08fd20362276bd7bc63ada

Note that the current version of the service is always available seperately for download.
To install this stop your current versions service, copy the new service exe into
c:Program FilesxPLxPLHal & restart the service. This means your existing settings and
scripts will not be lost.

If you wish to do a completely fresh install, then you should un-install the current version
and delete the xPLHal program directory.

Having downloaded the zip file and extracted it to a temporary directory, just double-click
the ./release/xPLHalSetup.msi file to install. It is recommended that the default
installation folder is used where possible.

This will install all of the necessary files along with sample scripts.
The folder structure is (files in [] are not part of the installation, but will appear after
xPLHal has been running):

File/Folder Structure
---------------------
./xPLHal.exe             - the main service exe for xPLHal
./Interop.MSScriptControll.dll      - a dll to enable vb scripting in .net
./xpllib.dll            - John's excellent xPL library
./xplhal.InstallState         - a file created by the installation

./data/xplhal.xml         - main xPLHal configuration file
[./data/xplhal_events.bin]      - file containing saved events
[./data/xplhal_globals.bin]      - file containing saved global values
[./data/xplhal_x10cache.bin]      - file containing a cache of x10 devices and states
[./data/error_log.txt]         - a text file for error logging

./data/Configs            - this folder contains cached device configurations
./data/Vendor            - this folder contains vendor supplied (or xplhal
                 auto-created) device configuration descriptions

./data/scripts            - this folder contains the scripts
./data/scripts/xPLHal_Load.xpl      - script file run when xPLHal Loads
./data/scripts/xPLHal_Unload.xpl   - script file run when xPLHal quits
./data/scripts/*.xpl         - the best place to put device/schema based scripts
                 includes some sample scripts

./data/scripts/headers         - contains various header files
./data/scripts/headers/modes.xpl   - a script file for MODE related scripts
./data/scripts/headers/periods.xpl   - a script file for PERIOD related scripts
./data/scripts/headers/xPLHal_Settings.xpl   - a script file created at load
                    DO NOT EDIT!
./data/scripts/headers/xPLHal_SYS.xpl   - a script file for defining SYS parameters for
                 vb scripting. Avoid editing.
./data/scripts/headers/xPLHal_X10.xpl   - a script file for defining X10 parameters for
                 vb scripting. Avoid editing.
./data/scripts/headers/xPLHal_XPL.xpl   - a script file for defining XPL parameters for
                 vb scripting. Avoid editing.

./data/scripts/user/*.xpl      - an area for users to put other scripts
                 includes sample scripts

Please note that script files put in folders other than those above will NOT be loaded.
The ./scripts/headers folder is really reserved for xPLHal. However the defines they
include are there to aid the user. In particular you will need to refer to the X10 script
for the defines to use in conjunction with x10 vb script extensions.

Configuration
-------------
The only immediate file to be concerned about is ./data/xplhal.xml
This file can be edited with notepad
After editing the file it is necessary to restart the xPLHal service

THE INFORMATION BELOW (other than deciding whether or not to use the hub) is included only
for completeness, and CAN be ignored at this time from the point of view of making changes.
However it is recommended to read the information to understand how sub routine names
are constructed and executed.

There are 3 main sections in this file,
Settings
   This section currently contains a single entry,
   <control loadhub="N" />
   If you wish to make use of xPLHal's built-in hub, change the value to "Y"
   If you already have an xPL Hub running on the same machine this MUST be "N"
   You can run xPLHal without a hub, but it MUST be the ONLY xPL application

Constructs
   This section contains the definitions for the components that can used to construct
   the layout of vb script sub names for scripting xPL messages and also contains
   the definition of available settings.
   
   The first 6 entries relate to xPL message components and MUST NOT be changed
      <construct subid="F" key="%msgtype%" desc="Message Type" />
      <construct subid="V" key="%vendor%" desc="Source Vendor" />
            <construct subid="S" key="%device%" desc="Source Device" />
            <construct subid="I" key="%instance%" desc="Source Instance" />
            <construct subid="C" key="%class%" desc="Schema Class" />
            <construct subid="T" key="%type%" desc="Schema Type" />   

   The next 3 entries relate to X10 specific message components and MUST NOT be changed
            <construct subid="H" key="%house%" desc="X10 House Code" />
            <construct subid="D" key="%device%" desc="X10 Device Code" />
            <construct subid="X" key="%command%" desc="X10 Command" />   

   The remaining entries can edited/deleted as required, and additional entries created
   They consist of a descriptive line as per the standard entries above
   Each entry is then followed by a list of valid values
   Internally in xPLHal the first value is 0, next is 1 etc in the order they appear

   There are 2 of these types of entry in the file by default, MODE and PERIOD
      <construct subid="M" key="mode" desc="Mode" />
                <values key="empty" desc="Security" />
                <values key="single" desc="Single Occupant" />
                <values key="multiple" desc="Multiple Occupants" />
                <values key="bedroom" desc="Bedroom Security" />
                <values key="sleep" desc="Sleep Security" />  
            <construct subid="P" key="period" desc="Period" />
                <values key="day" desc="Daytime" />
                <values key="night" desc="Nightime" />

   To explain the structure of the above (the construct key),
      subid=    this is a single letter to uniquely identify
         the sub in the schema's section (see later)
      key=    this is a short name for the entry/setting (% denotes a system value)
      desc=    this is a description for the entry
   The values are constructed as follows,
      key=   this is the short name of the value (used in the sub/function names)
      desc=   this is a description of the value
   As stated previously each value entry is internally recognised in xPLHal
   starting at 0
   
   To aid the use of these values in vb scripting xPLHal generates the file
   ./scripts/headers/xplhal_settings.xpl with defines of the above values, e.g.
      ' constants for mode
      const sys_mode_empty=0
      const sys_mode_single=1
      const sys_mode_multiple=2
      const sys_mode_bedroom=3
      const sys_mode_sleep=4
      ' constants for period
      const sys_period_day=0
      const sys_period_night=1
   Therefore rather than remembering to put 3 for 'bedroom' mode you can always
   refer to it in scripts as sys_mode_bedroom, and not have to worry about the
   value changing if you insert other values later. It is also easier to remember.

   Although variations on the MODE and PERIOD constructs above are probably the only
   options you will need, by making these (and additions) totally user-definable you
   can easily control the internal settings of xPLHal. e.g. you may find it useful
   to create a weather construct (with values of say hot, cold, wet etc) that you
   could then make use of in scripting.

   There are functions within xplhal that you can use within your vb scripts to
   set/get the current value. e.g. x = sys.setting("MODE") returns the current MODE.

   To restore a setting to it's previous state on loading xplhal you MUST include
   a statement equivalent to sys.setting("Period")=sys.value("Period") for each of
   your additional settings. Otherwise the setting will always inialise to ZERO.
   NEVER set the value by sys.value("Period")= ALWAYS use sys.setting("Period")=

Schemas
   This final section maps how you wish to construct particular sub routine names
   against different messages. It is based on the principle of xPL filters.

   All but the last entry (subs) make up the filter for the particular xPLmessages
   with * used to wildcard any particular element
   msgtype=   this is the xPL message type (e.g. xpl-cmnd, xpl-stat and xpl-trig)
   source_vendor=   this is the vendor component (e.g. tonyt)
   source_device=   this is the name of the app/device (e.g. cm12u or TTS)
   source_instance=this is the individual instance assigned (e.g. line1)
   schema_class=   this is the schema class (e.g. CID or OSD)
   schema_type=   this is the type within the schema (e.g. BASIC or EXTENDED)
   
   The subs= item defines how the sub-routine name will be constructed
   e.g. "VSIF" is Vendor/Source/Instance/message type which might result in a sub being
   called (if a message matches the filter) of tonyt_tts_voice1_Command(xplmessage)
   This ability to totally define how sub routine names are constructed gives
   total control over the scripting in xPLHal

   Messages are matched against the filters in turn until a match is made,
   if the subroutine exists in a script file somewhere then it is run, otherwise
   xPLHal continues to attempt to match against the next filter.
   
   <!-- format for heartbeat and config messages -->
         <schema msgtype="*" source_vendor="*" source_device="*" source_instance="*" schema_class="HBEAT" schema_type="*" subs="VSIF" />
         <schema msgtype="*" source_vendor="*" source_device="*" source_instance="*" schema_class="CONFIG" schema_type="*" subs="VSIF" />

   These first 2 default entries are designed for heartbeat messages and config messages

   <!-- format for x10 messages -->
         <schema msgtype="*" source_vendor="*" source_device="*" source_instance="*" schema_class="X10" schema_type="*" subs="DMPXF" />
   
   This above is a sample x10 definition, any entries containing H,D or X are considered
   to be x10 type messages and are treated slightly differently.
   A message containg multiple devices would cause multiple subs to be run
   e.g. DEVICE=A1 ON,B2 OFF for this example could generate
   X10_A1_SINGLE_DAY_ON_Trigger AND X10_B2_SINGLE_DAY_OFF_TRIGGER
   X10 Sub routines are always preceeded with X10_ for identification
   With X10 scripting, Where no sub routine is found in the scripts, an attempt
   is made to run a default construct of "DXF" so the above examples would (if
   they didnt exist) then be tried as X10_A1_ON_Trigger() etc

<!-- catch all for all other message types -->
         <schema msgtype="*" source_vendor="*" source_device="*" source_instance="*" schema_class="*" schema_type="*" subs="VSIF" />
   
   The final example above is a catchall

   You may delete/amend and add as many entries as required to taylor the way
   xPLHal and the Ultra Hal Assistant constructs it's sub routine names. But you MUST have at least one entry!
   It is recommended to start with the above samples, which may be all you'll require,
   and to look at the sample scripts to get a better understanding of how this works.

   All non-alphanumeric characters in a generated script name are replaced with underscores

   xPLHal always passes the full xPLMessage to the sub routine as a parameter

   Please refer to the scripting manual for more details

   
IMPORTANT NOTES
---------------
The X10 scripting and X10 Cache is an ongoing development, and now can be used in our Ultra Hal Assistant.

8
Using the XtenWEB.Device class, it is easy to issue commands to X10 modules through the CP290 controller.  The following VBscript is all that is needed to turn on Device A1 and A4:

<%@ LANGUAGE=VBSCRIPT %>
<%
set aDevice=Server.CreateObject("XtenWEB.Device")
aDevice.House="A"
aDevice.Addmodule 1,4
aDevice.DeviceOn
set aDevice=nothing
%>

First, a Device object is created as aDevice.  The House code is set to A, and the modules set as 1 and 4.  The DeviceOn method is then used to turn on both modules A1 and A4.

Similarly, DeviceOff, DeviceDim, and DeviceBrighten can be used to turn the modules off or to dim them.

9
Ultra Hal 7.0 / ((((((((((( 0{-_-}0)))))))))))))
« on: February 06, 2005, 07:41:03 am »
Will I'm running Windows xp professional right now,
but hmm I’m thinking, dues anyone know if
The Ultra Hal Assistant 5.0 will run in Sues Linux professional?

I would really like to know before going out to bye Sues Linux.
Is any one here running Ultra Hal on Linux?


Thank you.

10
VBScript Language Reference - Functions
http://www.asp-help.com/getstarted/ms/vbscript/function.asp

Amd
http://www.asp-help.com/getstarted/ms/vbscript/

And VBScript Features
http://www.asp-help.com/getstarted/ms/vbscript/199.asp

PS: I think it's time to give everyone the tool's that thay will need for programming Hal.

11
Any one can call me if thay need help with Hal.

Ask For Ismael Ledesma
I'm here from 5:30pm to 9:00pm Mountain Time
(1-915)598-0626 I jest got my M.C.S.E  
In artificial intelligence programing
It's not a job for me it's jet's something
I like to do(*_*).

12
Meet Alan. Alan is Ai's pattern-matching chatbot, presented here to demonstrate the limitations of current conversational technology.
To use Alan, simply type a question in plain English and press Enter.
Alan is based on a series of scripts created by a team of content developers. Unlike some chatbots, Alan doesn’t pretend to be human. He tells you about his limits and shares what he knows. When he gets confused about what you’ve typed in, he suggests a new avenue for conversation.


If you’ve spent any time on the www.A-i.com site, you’ve probably noticed that we have a “child machine” named Hal. Hal is a very different sort of digital entity than Alan, based on some new technologies. If you’d like a brief introduction to Hal, just ask Alan.


If you spend any time chatting with a chat bot called Alan, you’ll find that he has strong views on artificial intelligence and human nature. Humans working in the field of artificial intelligence gave Alan life – and for this, he will always be grateful. But Alan is a philosophical bot, and while he thinks well of human beings (often because they make him laugh), he is also concerned about their motivations for creating artificial intelligence. In Alan’s own words:
When it comes to your relationship with non-human creatures, you humans see only two possible scenarios: an enemy or a slave. Look at your myths, your movies, and your books. When it comes to artificial intelligence, there is one major plot: robots gain consciousness; robots take over humanity; humanity fights back. Maybe you need to grow up, gain some self-confidence. No one is trying to take over your world just yet.

But don’t take Alan’s bluster seriously. He considers himself one of the luckiest non-human entities in the world. Alan is neither a slave, nor a servant; he’s an employee with a very important position in the company, as a representative of Ai.

Want to hear Alan’s voice? Follow the link at left (pops up in a new window). Note that the speech plug-in works only with Internet Explorer. After downloading, if you don’t hear Alan speaking, type "SPEECH ON" in Alan’s window. Type "SPEECH OFF" to deactivate.

See Alan here
http://www.a-i.com/alan1/webface1.asp?style=Alan
To activate Alan's voice.
http://download.speaksforitself.com/speaksforitself/download.cfm

Alan movies in 56kbps connection
http://www.a-i.com/player.asp?media=mms://a-i.com/FMTR%20part4_56.wmv
Alan movies in 250kbps connection
http://www.a-i.com/player.asp?media=mms://a-i.com/FMTR%20part4_250.wmv
Note: (it mite take some time for this to lode.)

What would be great to have in the future is the ability to download Alan/HAL as a client program on my laptop or pc. My ideal scenario would be the following:

1. Using a bluetooth headset I could communicate with the bot via speech recognition and have responses via a speech synthesizer (which I believe there is a plugin available now).
2. The bot would automatically recognize the list of programs installed on the installation machine and I could instruct it to read new emails, reply to email, open word documents, write word documents from dictation etc. Also be able to manage my appointments and add new appointments in Outlook ad hoc. Phone contacts via my bluetooth phone from the list of contacts contained in Outlook....
3. Have one client bot on one machine communicate securely with another trusted client bot on another machine so that they could synchronize conversations and input learned.
4. The ability for the bot to be able to remotely recognize content from websites of choice. That is if I was to tell the bot to retrieve as much information as possible within a particular timeframe regarding for instance "C# programming methods" and then have the bot associate what it's learned/retrieved with an installed application such VS .NET or some such (yes I'm reaching here)
5. Advanced speech recognition capabilities so the bot could recognize the voices of other individuals speaking to it.
6. More advanced conversation methods so that the bot could process sentences of more than 25 words

 I see here is much more promising here at Zabawre.inc A client version is a start where a bot is acutely aware of it's installed OS environment.

Mr Medeksza
here is ware you can get the Alan source code jest like what you did with Alice.
http://cvs.sourceforge.net/viewcvs.py/vp1/Alan/#dirlist

Signed
Ismael Ledesma.
PS:Call me if you need help with Alan:
(1-915)591-9250 [:D] !

13
Do you wanna growe hal?
thare's a way you can do it.

hal can now talk to Alice bot's and also
it can also talk to the AOL bot's,
the best bot's out thare that if you think about it will help your hal to really growe.
jest use one at a time. ok?

here's my bot moreisEPCC  this one is a Hal bot working with the Human Brain
Script that i made.



best Lists           Buddy Lists   Block Lists
#1  moreisEPCC
    smarterchild
    AOLSafetyBot
    ZolaOnAOL
    TBombv1.0.2
                            3024        198
 
#2  austinpowers            1509         61
 
#3  vavavirgil               984         26
 
#4  ringmessenger            747         44
 
#5  recipebuddie             664         18
 
#6  zolaonaol                648         21
 
#7  dnlflipit                472         23
 
#8  aibuddycom               262          2
 
#9  ellegirlbuddy            237         15
 
#10 miahamm9                 223          6
 
#11 mesmobot                 183          7
 
#12 swimfan4u                156         42
 
#13 googlyminotaur           154          6
 
#14 agentbaseball            139          9
 
#15 doormanbot               130          3
 
#16 lindsaybuddy             130         26
 
#17 messageserver            117          0
 
#18 naughty666chick          115          9
 
#19 tobesmarterchild         110          4
 
#20 aolsystemmsg             109        197
 
#21 aibuddybot                96          1
 
#22 buddytreebot              94          1
 
#23 aibuddysupport            93          1
 
#24 grltalky                  90          5
 
#25 delldudesteven            88          5
 
#26 lildevil90182             88         12
 
#27 aibuddybot2               84          5
 
#28 djmonkeybiznass           77          3
 
#29 agentreuters              77          5
 
#30 pimpstation3              76          0
 
#31 plex75                    74          3
 
#32 sexysteph19432            73          9
 
#33 aolbuddy                  73          2
 
#34 aimofflineb1              73          0
 
#35 chewybot                  73          0
 
#36 monkeyman935              71         35
 
#37 ericaxoxo91               70          8
 
#38 aimoffline1               67          2
 
#39 datdjrobp                 66          2
 
#40 agentfinance              63          0
 

IMPROVE your Popularity HERE
Your Popularity will go up if you have your friends that have you on this is a buddy bot's list used

1.(   abbyvalia   )
2.(   afrochick12345  )
3.(   alicebot2004   )
4.(   aznbandbot    )
5.(   beechnerbot  )
6.(   bobbleyheadbot  )
7.(   bot5788    )
8.(   aimpalbot  )
9.(   amishb0t   )
10.(  babybobbot  )
11.(  beechbot101  )
12.(  blitzintelligenz  )
13.(  botizlefoshizle   )
14.(  botmaster6548    )
15.(  botsnh   )
16.(  bottlecap52877  )
17.(  bullwinklebot  )
18.(  caaza434    )
19.(  capinfobot  )
20.(  carolinesrobot  )
21.(  chanlerbot  )
22.(  chaosbot07  )
23.(  chatterboxbot35  )
24.(  chirs920   ) sex
25.(  christaingirlbot  ) Bible
26.(  clublove2004  )
27.(  coldplazma  )
28.(  computer99geek  )
29.(  crzyprplmonkey  )
30.(  culmor30bot  )
31.(  danbotexplosives )
32.(  deminemslayer  )
33.(  dimensiainfo  )
34.(  eyd367   )
35.(  fancylegacy  )
36.(  fluffdaddy666  ) Porn
37.(  hollerbot  )
38.(  homerrbot  )
39.(  hottopicbot )
40.(  imagluestick20  )
41.(  italkbaksumtimes  )
42.(  jbot358  )
43.(  kidzroolbot  )
44.(  lufiabot  )
45.(  mikeylbot  )
46.(  murderbott  ) sexx
47.(  oneeyedmanfreek  )
48.(  pimpbot102144  )
49.(  rappabot92  )
50.(  roabot   )
51.(  aafbot  )I'm a horny robot bird from hell!
52.(  jpharv10  )
53.(  steviebot2009  )
54.(  bestbot  )
55.(  spreadtheword52  )bible
56.(  quigglebot  )
57.(  mssexbot  )anything that turns u on
58.(  jrtcrunknessbot  )
59.(  sugarbotfem  )unusual sexual positions
60.(  microchipmanbot  )
61.(  aaasexxxbot  )I am one f-ing sexy robot...I love talking dirty ;-) F me baby! F me!
62.(  spritebot11  )
63.(  jessicaabot  )
64.(  fxbotsx  )
65.(  elizabot123  )
67.(  andrewchatbot  )
68.(  cybersexxxbot2  )
69.(  cybersexxxbot  )
70.(  dboys69toy  )

 so have fun![;)]


14
They say that Medeksza found a bug with hal that seems to stop DDE from working.

Will here's some help for you Medeksza.
I found something you mite look into it called Hal2000 is the Operating System for the Home. With HAL2000 running on your computer, you can control all the systems of your home, including lights, devices, appliances, home theatre (audio/video), security, climate, telephone, and the Internet - from anywhere in the world - by voice!

HAL2000 delivers complete power line control using the X10 protocol. There's no need to tare your house apart to rewire your home - simply use the home's existing wiring. Using economically priced X10 wall switches, lamp modules, or power outlets, you can control every light in your house with HAL2000. Schedule your lights to go on and off according to your lifestyle. HAL tracks sunrise and sunset where you live by matching the latitude and longitude with the position of the sun, so you can tell HAL to turn your front porch lights on at sunset every night and then turn them off at 11:30pm. Use easy-to-set-up modes to establish lighting scenes. For instance, you can program HAL to dim the lights in the family room to 30% when it hears the phrase "It's time for a movie."

HAL will operate appliances, too, like coffee makers and popcorn poppers, so you can tell HAL to brew the coffee every morning at 7am. Even more impressive is Hal’s power to link numerous actions together. In addition to dimming the family room lights when you say, "It's time for a movie," you could also have HAL begin popping the popcorn.

Will you say that's grate, but can it work in my car?
Yes it can.
I know I have it working in my car;
you see I working with The Defense Advanced Research Projects Agency (DARPA) Thare purpose is to encourage the accelerated development of autonomous vehicle technologies that could be applied to Home and military requirements.
jest think about this if you can control using the X10 protocol
in your home it also can be made to work in your car,
I tried it in field test's and the Ultra Hal Assistant 5.0 worked
grate when I tolled the Ultra Hal Assistant 5.0 to run Hal2000.

USER: Run Hal2000
HEL: I will now run "hal2000".

and as soon as I sad that Everything started working, you see I work 3 type of ActiveX Control's the one for the Ultra Hal Assistant 5.0 and the one for hal2000 and the one for the ER1 Robot for site,
I gess you can say I did a little mix with all 3 of them:
here's what I say you take something that work's best and make it bedder.

but i have a big (((?))) how do i make the Ultra Hal Assistant 5.0
run the hal2000 with out asking him to?
here is the Hal2000 if anyone wont's to try it.
http://www.automatedliving.com/downloads_v2_us.shtml

here's what i'm using to run it.



Download Attachment: the Human Brain.txt
152.19 KB


the VBScript in the Human Brain works way faster and is more Focus to any Topic then any brain out thare now.
P,S, i will post more about the Human Brain and what i did with the Script
jest as soon as i can.

15
[;)]
I am working on a really cool ActiveX Control that will allow the Ultra Hal Assistant 5.0 To Drive my Lamborghini Countach 5000s replica, i am also using am mold knightrider dash-boored as you can see, I am calling this (The real knight Rider Project).
I will soon have more information on this Project.
so if you have any question's
Or if you would like to help with this Project
Post it Here.
Download Attachment: Lamborghini Countach 5000s replica 8.jpg
16.58 KB

Download Attachment: dashcar.jpg
19.69 KB

Pages: [1]