Zabaware Support Forums

Zabaware Forums => Programming using the Ultra Hal Brain Editor => Topic started by: onthecuttingedge2005 on January 22, 2006, 09:57:05 pm

Title: D.A.V.I.D's Programming
Post by: onthecuttingedge2005 on January 22, 2006, 09:57:05 pm

I have made some very good progress in D.A.V.I.D's programming.
'D-YNAMIC A-RTIFICIAL V-IRTUAL I-NTELLIGENT D-EVICE

There is a demo script sample of one of D.A.V.I.D's Reasoning routines at my website.

Jerry[8D]

Title: D.A.V.I.D's Programming
Post by: JohnS on January 24, 2006, 08:18:32 am

I like the concept of HAL but I am looking for someone or a firm to write more advanced programming for a project using  AI type scripting.  I am willing to pay upfront, place the contributor on the receiving end or a portion of both for a working product.  I tried contacting Zabaware without a response.  Is there anyone that can help???

Title: D.A.V.I.D's Programming
Post by: Dr.Benway on January 24, 2006, 08:43:54 am

I like to recommend Gerald Blakley (onthecuttingedge2005).
He is really good with chatbots and very knowledgeable.

http://www.zabaware.com/forum/pop_profile.asp?mode=display&id=602

Title: D.A.V.I.D's Programming
Post by: onthecuttingedge2005 on January 24, 2006, 05:41:35 pm

Some other Functions in D.A.V.I.D has been added.
This Function Preserves the Past OriginalSentence.
no reverse person in this Function.

'PAST ORIGINAL SENTENCE.
    Dim PastSentence
    PastSentence = LastStatement(PrevUserSent)
    HalBrain.DebugWatch PastSentence, "Past Sentence"


'FUNCTION: PRESERVE LAST ORIGINAL SENTENCE.      
Public Function LastStatement(PrevUserSent)   
    LastStatement = PrevUserSent
    LastStatement = Replace(LastStatement, "[]", "", 1, -1, vbTextCompare)
    LastStatement = Replace(LastStatement, "][", " ", 1, -1, vbTextCompare)
    LastStatement = Replace(LastStatement, "[", " ", 1, -1, vbTextCompare)
    LastStatement = Replace(LastStatement, "]", " ", 1, -1, vbTextCompare)
    LastStatement = Replace(LastStatement, ">", " ", 1, -1, vbTextCompare)
    LastStatement = Replace(LastStatement, "<", " ", 1, -1, vbTextCompare)
    LastStatement = Trim(LastStatement)
    LastStatement = HalBrain.SwitchPerson(LastStatement)
End Function


If you don't require the Tag stripper then use this Function instead.

'FUNCTION: PRESERVE LAST ORIGINAL SENTENCE.      
Public Function LastStatement(PrevUserSent)   
    LastStatement = PrevUserSent
    LastStatement = Trim(LastStatement)
    LastStatement = HalBrain.SwitchPerson(LastStatement)
End Function

This is for writting Script that requires the Last OriginalSentence
that is not reverse person.

Lot's of other Functions have been added.

Jerry[8D]