Testlund,
The XTF brain v1.2 does have the time and date functions, but only if you manually copy and rename the "Enhanced_Main.brn" file as instructed in the third step of the XTF Brain v1.2 installation below.
============================
Here are the steps to install the XTF Brain v1.2.
1) Download and follow the included instructions to install the XTF Brain v1.0 here: [OBVIOUSLY YOU'VE ALREADY DONE THIS]
http://www.ultrahal.com/files/type.asp?iType=122) Then install the XTF Brain v1.2 Update Patch as shown here:
http://www.zabaware.com/forum/topic.asp?TOPIC_ID=12333) Then follow the instructions here to rename a file:
http://www.zabaware.com/forum/topic.asp?TOPIC_ID=1237Remember to select the XTF Brain in Hal's Menu.
============================
I threw together a date/time script for use with the XTF Brain v1.2. The script below must be placed
before the "RESPOND: ZABAWARE KEYWORD MAIN BRAIN PRIORITY 1" script (approximately at line 1297).
The "Enhanced_Main.brn" file used in the "RESPOND: ZABAWARE KEYWORD MAIN BRAIN PRIORITY 1" script normally provides time and date functions. The script below adds a little variety.
'=======================
'PROCESS: HAL TIME AND DATE FUNCTION
'(c) 2005 Scott Higgins. Portions of this script are copyright by Scott Higgins, aka: =vonsmith=
'This script shall not be sold or used for any purpose unless specifically authorized by the author
'in writing. Personal (non-business) use of this script is free for users of Ultra Hal Assistant.
'This is a new function written by =vonsmith= , version 02-10-05a.
'This script function is interchangeable with "Ziggy Tells the time. COPYRIGHT 2004 2005 GERALD L. BLAKLEY"
'
If (GetResponseBlock <> True) And (InStr(1, UserSentence, "What time is it", vbTextCompare) > 0 Or InStr(1, UserSentence, "What's the time", vbTextCompare) > 0 Or InStr(1, UserSentence, "Tell you the time", vbTextCompare) > 0 Or InStr(1, UserSentence, "Tell you what time it is", vbTextCompare) > 0 Or InStr(1, UserSentence, "What is the time", vbTextCompare) > 0 Or InStr(1, UserSentence, "What date is it", vbTextCompare) > 0 Or InStr(1, UserSentence, "What's the date", vbTextCompare) > 0 Or InStr(1, UserSentence, "What is the date", vbTextCompare) > 0 Or InStr(1, UserSentence, "Tell you the date", vbTextCompare) > 0 Or InStr(1, UserSentence, "What day is today", vbTextCompare) > 0 Or InStr(1, UserSentence, "What's today's date", vbTextCompare) > 0 Or InStr(1, UserSentence, "What is today's date", vbTextCompare) > 0) Then
BlockSave = True
GetResponseBlock = True
If InStr(1, UserSentence, " DATE ", vbTextCompare) > 0 Then 'Tell Date and Time
Select Case (Int(Rnd * 6) + 1)
Case 1
GetResponse = " Here it is " & Date & " at " & Time & ", " & UserName & "." & vbCrLf
Case 2
GetResponse = " It is " & Time & " on " & Date & " where I am. " & vbCrLf
Case 3
GetResponse = UserName & ", my local time is " & Time & " on " & Date & ". " & vbCrLf
Case 4
GetResponse = " It's exactly " & Time & " on " & Date & " here. " & vbCrLf
Case 5
GetResponse = " My date and time are " & Date & " at " & Time & ". " & vbCrLf
Case 6
GetResponse = " It's precisely " & Time & " here on " & Date & ". " & vbCrLf
End Select
Else 'Just tell the time.
Select Case (Int(Rnd * 6) + 1)
Case 1
GetResponse = " The time here is " & Time & ". " & vbCrLf
Case 2
GetResponse = " It is " & Time & " on " & Date & " where I am. " & vbCrLf
Case 3
GetResponse = UserName & ", my local time is " & Time & ". " & vbCrLf
Case 4
GetResponse = UserName & ", it's exactly " & Time & " on " & Date & " here. " & vbCrLf
Case 5
GetResponse = " My time is " & Time & ". " & vbCrLf
Case 6
GetResponse = " It's precisely " & Time & " here. " & vbCrLf
End Select
End If
End If
'=======================
Give it a try.
=vonsmith=
