----------------------------------------------------------------------------------
•New Hal Commands
<SHOWHAL>
<HIDEHAL>
<SHOWCAL>
<SHOWEVENTS>
<SHOWOPTIONS>
<MICOFF>
<MICON>
<MICTOGGLE>
<VIEWCHAT>
<AUTO>miliseconds</AUTO>
<AUTOOFF>
<HALPAD>
<HALPAD>file-path</HALPAD>
<VOICE>new voice</VOICE>
<SPEAK>Text to speak</SPEAK>
<DIAL>Phone</DIAL>
<HAPBACK>jpeg path</HAPBACK>
<AGENTXY>X,Y</AGENTXY>
<MSAGENT>Anim name</MSAGENT>
<HAPFILE>Hap file</HAPFILE>
<HAPTEXT>Hap text</HAPTEXT>
<RUNPROG>Prog name</RUNPROG>
<RESPOND>User sent</RESPOND>
<CUSERNAME>New user name</CUSERNAME>
<CHALNAME>New Hal Name</CHALNAME>
<RUNCMD>1 line of VBScript</RUNCMD>
-------------------------------------------------------------------------------
•Notes and blog
-------------------------------------------------------------------------------
•A short tutorial
--------------------------------------------------------------------------------
•WebRep
-------------------------------------------------------------------------------
HalBrain Methods
AlphaNumericalOnly(UserSentence As String) As String
" help="AlphaNumericalOnly returns a string with no punctuation and other symbols.
AppendFile(FileToAppend As String, AppendWhat As String)
" help="Appends file with a given string.
Cheater(SearchPhrase As String, UserSentence As String, Prefix1 As String, Suffix1 As String, Prefix2 As String, Suffix2 As String, Prefix3 As String, Suffix3 As String, NoW5H As Boolean) As String
" help="Returns a cheat reply for the user's query.
CheatResponse(UserSentence As String) As String
" help="CheatResponse creates a response using the user's input.
CheckLinkingVerb(Sentence As Variant) As Boolean
" help="Looks for 'is' and 'are' in a sentence.
CheckRepetition(Sentence1 As Variant, Sentence2 As Variant) As Boolean
" help="Checks whether a substring is repetetively present in a sentence.
ChooseSentenceFromFile(TableName As String) As String
" help="Selects a sentence randomly from the table or file passed.
CompareSentence(CompareWhat As String, InWhat As String) As Single
" help="CompareSentence compares InWhat with CompareWhat.
CountInstances(CountWhat As Variant, InWhat As Variant) As Variant
" help="The function will count the number of occurence of CountWhat in InWhat.
DecodePronouns(UserSentence As String) As String
" help="Decodes the pronouns.
DecodeVar(FromWhat As String, DecodeWhat As String) As Variant
" help="DecodeVar gets the string from that formatted variable.
DetectVowel(TextString As String) As String
" help="Detects vowel in a user sentence.
EncodePronouns(UserSentence As String) As String
" help="Encodes the pronouns.
EncodeVar(EncodeWhat, AsWhat)
" help="EncodeVar encodes the variables and their values into string.
ExtractKeywords(UserSentence As String) As String
" help="Extract keywords from a string.
ExtractVar(FromWhat, DecodeWhat)
" help="ExtractVar gets the string from that formatted variable.
FixCaps(Sentence As String)
" help="Contains the sentence changed back to ordinary capitalization.
FixCase(Sentence As String)
" help="Fixes the capitalization of sentences.
HalFormat(sentence as String) as String
" help="Corrects many common typos and chat shortcuts.
HalMath(MathProblem As String) As String
" help="HalMath returns the result of simple math questions.
LimitSize(FilName As String, Size As Long)
" help="Limit table size to the number of records provided by size or limit a file to the number of bytes in size.
MakeContractions(Sentence As Variant) As String
" help="It finds common phrases and contracts them.
MsgAlert(TextString As String)
" help="Display an information box.
NoPunc(Sentence As String) As String
" help="NoPunc processes a user sentence and remove all punctuation.
OriginalBrain(UserSentence As String)
" help="Generates sentence's for short reply.
PatternDB(UserSentence, DBFile) As Variant
" help="Search patterns in a database file.
ProcessSubstitutions(sentence, dbFile) As String
" help="Performs word substitutions from the specified database file.
QABrain(UserText As String, BrainFN As String, ByRef Rel As Variant) As String
" help="This function is used primarily to reply to user's query of any previous inputs.
RandomNum(MaxVal As Integer) As Integer
" help="Generate a random number with in a range.
ReadNum(Dec As String, Optional NoTrunc As Boolean)
" help="Converts numerals to words.
ReadSent(TextString As String, SentNum As Integer) As String
" help="Return a sentence form a string with many sentences.
RemoveExtraSpaces(Sentence As String) As String
" help="RemoveExtraSpaces processes a user sentence and removes all extra spaces.
RemovePronouns(Sentence As Variant) As String
" help="Process sentence for Keyword Brains.
SearchPattern(UserSent As Variant, Pattern As Variant, ReturnWhichStar As Variant) As Variant
" help="Search pattern from sentence.
StoreVars(Emotion, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, ScriptMem2, ScriptMem3, ScriptMem4, ScriptMem5) As String
" help="Encodes variables which are required by the Hal's brain.
SwitchPerson(sentence as String) as String
" help="Reverses first and second-person pronouns of a supplied (English) sentence and returns the results.
TopicSearch(UserSentence, TopicFile) As String
" help="Searches a TopicFile for a phrase. If found, it returns only what was stored with the phrase.
UsCaps(UserSentence As String) As String
" help="Return Capital of US states.
Word2Num(TextString As String) As Variant
" help="Converts numbers in word to number.
WorldCaps(UserSentence As String) As String
" help="Function answers questions about World Capitals.
IsDay(CheckMonth As Integer, CheckDay As Integer) As Boolean
" help="Function checks to see if month and day combination exists.
AddDebug(ParentName As String, Text As String, [BackColor]) As String
" help="Adds an entry to the debug tree. Requires the unique identifier of the parent node, the next of this node, and an optional background color. Returns a unique identifier of the new node.
ClearDebug()
" help="Erases the debug tree.
DebugWatch(TextString As String, FuncName As String)
" help="Keeps track of changes in the variable TextString between calls and makes note of what FuncName caused a change in the DebugInfo.
MakeInt(TextString As String) As Integer
" help="Ignores all non numerical characters and converts the numerical characters into an integer.
LongDate(TheDate As Variant) As String
" help="Takes the date passed and spells out the full date in words.
Dig2Word(Number As Variant) As String
" help="Converts a number written using numerals into a number spelled out in words.
OpenDatabase(DBPath as String)
" help="Establishes a connection to an SQLite database file.
CloseDatabase()
" help="Closes connection to database.
AddToTable(TableName As String, TableType As String, Field1 As String, Field2 As String)
" help="Adds a record to a table in the current SQLite database.
CheckTableExistence(TableName As String) As Boolean
" help="Checks to see if a certain table exists.
CreateTable(TableName As String, TableType As String, ParentName As String)
" help="Creates a new table of type TableType and adds it to the SQLite database.
RecallVars(VarListString, Emotion, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, ScriptMem2, ScriptMem3, ScriptMem4, ScriptMem5) As String
" help="Restores variables ByRef previously stored using StoreVars.
RunQuery(ByVal strQuery, aryTablesVBS) As Boolean
" help="Runs the SQL query strQuery in the current SQLite database and returns whether the command was successful or not. Any results are stored in the passed array aryTablesVBS().
end list
things to look up
Dim EmotQuery()
HalBrain.RunQuery "DELETE FROM " & UserName & "_Emotions" & " WHERE Sentence = 'anger' ", EmotQuery
SELECT
UPDATE
DELETE
HalBrain.RunQuery "INSERT INTO LogTest(OldName, NewName, Date) VALUES(old.Name, new.Name, datetime('now'))", EmotQuery
HalBrain.RunQuery "DELETE FROM " & UserName & "_Emotion" & " WHERE recordId = 1", EmotQuery
HalBrain.RunQuery("SELECT count(*) FROM " & Trim(UserName) & "_Anger", EmotQuery) = True Then
If HalBrain.CheckTableExistence(Trim(UserName) & "_Anger") = False Then
'Create table for this person if it doesn't exist
HalBrain.CreateTable Trim(UserName) & "_Anger", "Sentence", ""
End If
Anger = 1
HalBrain.AddToTable Trim(UserName) & "_Anger", "Sentence", "" & Anger & "", ""
Dim EmotQuery()
If HalBrain.RunQuery("SELECT count(*) FROM " & Trim(UserName) & "_Anger", EmotQuery) = True Then
AngryCount = EmotQuery(1,0)
else
AngryCount = "got to work on it more!"
End If
UltraHal = AngryCount
Exit Function
------------------------------------------------------------------------------------
sincerely, and if anyone has something to add to this knowledge please let's help each other and share.
C load.
