Psych-
assuming that we are past the point of attempting to 'fool' the program (which btw I feel the Loebner Competition and prize are
designed to hinder the development of AI in that sense), here
is a possible step five;
If Instr(1, UserSentence, "define", VbTextCompare) > 0 then
DefineSent = Replace(1, UserSentence, "define", "", 1, -1, VbTextCompare)
DefineSent = Trim(DefineSent) '<-------removes spaces
DefineIndex = Left(DefineSent, 1)
End If
OK, with these lines you got two new variables DefineSent, which is the word and DefineIndex, which is the letter.
HAHAHAaaaa, Psych, I am no 'expert' like you sed, persuing the hard problem here has meant many hours of fighting with learning this VBScript for me too. My programming experience comes from knowledge
of an ancient and antiquated programming language that provides the basics (pun intended) for the stuff I make. Find the VBScript documentation over at the evil empire's website, what the commands do are no different, just the syntax. It will make more sense as you go along >B)
I got too many Irons in the fire right now to collaberate including relocating the research facility!
OTCE's thing pt 2, something else that came from that -which I can only name at this time: THE .BRN MAKER!! , multiUser functionality of Hal:
say your friend comes over and says hello to your AI -it changes
the <UserName> and then says hi to your friend and writes new files
specific to your friend(the script looks like it will do this unaltered). I am also battling this big ass monster named Boaz
in 'TombRaider -angel of Darkness! HAHAHAHAAaaaa >B)
CatAtomic