Zabaware Support Forums

D.A.V.I.D's Programming

Started by onthecuttingedge2005, January 22, 2006, 09:57:05 PM

Previous topic - Next topic

onthecuttingedge2005

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]

JohnS

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

Dr.Benway

#2
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

onthecuttingedge2005

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]