You type bye to exit the program. You can add extra keywords and their replies as a block of data statements and then change the value of
the constant KEYWORD_COUNT to the number of data blocks.
Code: Select all
'===============================================
' READ DATA
'===============================================
const KEYWORD_COUNT = 41 'change with each addition to data
dim as string conj1(1 to 13),conj2(1 to 13)
for i as integer = 1 to 13
read conj1(i),conj2(i)
next i
dim as string keyWords(0 to KEYWORD_COUNT) 'key word
dim as integer replyCount(0 to KEYWORD_COUNT) 'number of replies for this key word
dim as string replies(0 to KEYWORD_COUNT,0 to 9) 'up to 10 replies in each of the 50 reply groups
for i as integer = 0 to KEYWORD_COUNT
read keyWords(i)
' print keyWords(i)
read replyCount(i)
' print "replyCount =";replyCount(i)
for j as integer = 0 to replyCount(i)-1
read replies(i,j)
' print replies(i,j)
next j
' print
' sleep
next i
'sleep
'end
'===============================================
function removeExcessSpaces(s as string) as string
dim as integer ii = 1
while ii < len(s)
while mid(s,ii,1) = " " and mid(s,ii+1,1)=" "
s = left(s,ii) + right(s,len(s)-ii-1)
wend
ii = ii + 1
wend
return s
end function
'================================================
function removeChar(s as string,char as string) as string
dim as string newString = ""
for i as integer = 1 to len(s)
if mid(s,i,1)<> char then
newString = newString + mid(s,i,1)
end if
next i
return newString
end function
'====================================================
function swapWords(s as string,w1 as string,w2 as string) as string
for p as integer = 1 to len(s)
if mid(s,p,len(w1)) = w1 then
s = left(s,p-1) + w2 + right(s, len(s) - p - len(w1) + 1)
end if
next p
return s
end function
'=============================================
dim as string previousResponse 'to check for input repetition
dim as string Response 'input Response
dim as string extension 'string snipped off Response after any found keyword
dim as string reply
dim as string previousReply 'computer repeats itself
dim as string keyword 'used to select a reply
dim as integer keyNumber 'number of keyword to address replies
'=========================================
function getResponse() as string
dim as string s
input s
s = UCASE(s) 'key words are in capital case only
s = removeChar(s,"'")
s = removeExcessSpaces(s)
s = " " + s + " "
return s
end function
'=========================================
print "HI! I'M ELIZA. LET'S TALK. TYPE 'BYE' TO END THIS SESSION."
'get user response
Response = getResponse()
while Response <> " BYE "
if Response = previousResponse then
print "You have already said that"
else 'search for keyword
previousResponse = Response 'save before it is changed
keyword = "NOKEYFOUND" 'default word
keyNumber = 0 'default word number
'scans keywords for anything not NOKEYFOUND and if it finds one chooses
'one of the responses attached to that keyword.
for i as integer = 1 to KEYWORD_COUNT 'with each keyword skip first one, default nokeyfound
for p as integer = 1 to len(Response) - len( keyWords(i) ) + 1 'search Response
'the " " borders the keyword string so something like IM doesn't match an internal IM such as in LIME
if mid(Response, p, len(keyWords(i))+2 ) = " " + keyWords(i) + " " then 'match
'if keyword = "NOKEYFOUND then this match is the first find
'otherwise a match has been found so don't change it to any
'matches further in the response string.
if keyword = "NOKEYFOUND" then
keyWord = keyWords(i)
keyNumber = i 'number of keyword to find replies
'snip off extension after keyword in case it is used
extension = right(Response,len(Response)-p-len(keyWord)-1 )
'look for each conj1 to swap with conj2
for ii as integer = 1 to 13
swapWords(extension,conj1(ii),conj2(ii))
next ii
extension = removeChar(extension,"+")
end if
end if
next p
next i
'now use key word to select a reply
dim as integer choice
'select a random reply number
choice = int(rnd(1)*replyCount(keyNumber))
reply = replies(keyNumber, choice)
'prevent computer repeating a reply
while reply = previousReply
'select a random reply number
choice = int(rnd(1)*replyCount(keyNumber))
reply = replies(keyNumber, choice)
wend
previousReply = reply 'save reply
' if reply has extension character * remove the * and
' insert extension to the reply string
'search for '*'
for i as integer = 1 to len(reply)
if mid(reply,i,1)="*" then
reply = left(reply,i-1) + extension + right(reply,len(reply)-i-1)
end if
next i
color 11
print "keyword found:";
color 14
print keyword
color 15
print reply 'print the reply
end if
Response = getResponse() 'get the next user response
wend
print "Goodbye."
sleep 1000
' --STRING DATA FOR CONJUGATIONS---
'the reason for the + is so if the first is found and changed such
'as ARE to AM it isnt changed back again to ARE if further along
'the string an AM is found. After the process any + is removed.
' conj1 conj2
DATA " ARE " , " AM+ "
DATA " AM " , " ARE+ "
DATA " WERE " , " WAS+ "
DATA " WAS " , " WERE+ "
DATA " YOU " , " I+ "
DATA " I " , " YOU+ "
DATA " YOUR " , " MY+ "
DATA " MY " , " YOUR+ "
DATA " YOUVE " , " IVE+ "
DATA " IM " , " YOURE+ "
DATA " ME " , " YOU+ "
DATA " YOU " , " ME+ "
DATA " ANY " , " "
' data layout is:
' keyword
' number of replies
' replies
data "NOKEYFOUND"
data 4
data "I'm not sure I understand you fully."
data "Come elucidate your thoughts."
data "Can you elaborate on that?"
data "That is quite interesting."
data "I REMEMBER"
data 6
data "Do you often think of *?"
data "Does thinking of * bring anything else to mind?"
data "What else do you remember?"
data "Why do you recall * right now?"
data "What in the present situation reminds you of *?"
data "What is the connection between me and *?"
data "CAN YOU"
data 3
data "Don't you believe that I can *?"
data "Perhaps you would like to be able to *?"
data "You want me to be able to *?"
data "CAN I"
data 2
data "Perhaps you don't want to *?"
data "Do you want to be able to *?"
data "YOU ARE"
data 4
data "What makes you thing I am *"
data "Does it please you to believe I am *?"
data "Perhaps you would like to be *?"
data "Do you sometimes wish you were *?"
data "YOURE"
data 4
data "What makes you thing I am *?"
data "Does it please you to believe I am *"
data "Perhaps you would like to be *?"
data "Do you sometimes wish you were *?"
data "I DONT"
data 4
data "Don't you really *?"
data "Why don't you *"
data "Do you wish to be able to *?"
data "Does that trouble you?"
data "I FEEL"
data 3
data "Tell me more about such feelings."
data "Do you often feel *?"
data "Do you enjoy feeling *?"
data "WHY DONT YOU"
data 4
data "Do you really believe I don't *?"
data "Do you want me to *?"
data "Should you * yourself?"
data "Perhaps I will * in good time"
data "WHY CANT I"
data 2
data "Do you think you should be able to *?"
data "Why can't you *?"
data "ARE YOU"
data 3
data "Why are you interested in whether or not I am *?"
data "Would you prefer if I were not *?"
data "Perhaps in your fantasies I am *?"
data "WHY CANT I"
data 3
data "How do you know you can't *?"
data "Have you tried?"
data "Perhaps you can now *?"
data "I AM"
data 4
data "Did you come to me because you are *?"
data "How long have you been *?"
data "Do you believe it is normal to be *?"
data "Do you enjoy being *?"
data "IM"
data 4
data "Did you come to me because you are *?"
data "How long have you been *?"
data "Do you believe it is normal to be *?"
data "Do you enjoy being *?"
data "YOU ARE"
data 3
data "We were discussing you-- not me."
data "Oh, I *?"
data "You're not really talking about me, are you?"
data "I WANT"
data 5
data "What would it mean to you if you got *?"
data "Why do you want *?"
data "Suppose you soon got *?"
data "What if you never got *?"
data "I sometimes also want *?"
data "WHAT"
data 9
data "Why do you ask?"
data "Does that question interest you?"
data "What answer would please you the most?"
data "What do you think?"
data "Are such questions on your mind often?"
data "What is it that you really want to know?"
data "Have you asked anyone else?"
data "Have you asked such questions before?"
data "What else comes to mind when you ask that?"
data "HOW"
data 9
data "Why do you ask?"
data "Does that question interest you?"
data "What answer would please you the most?"
data "What do you think?"
data "Are such questions on your mind often?"
data "What is it that you really want to know?"
data "Have you asked anyone else?"
data "Have you asked such questions before?"
data "What else comes to mind when you ask that?"
data "WHEN"
data 9
data "Why do you ask?"
data "Does that question interest you?"
data "What answer would please you the most?"
data "What do you think?"
data "Are such questions on your mind often?"
data "What is it that you really want to know?"
data "Have you asked anyone else?"
data "Have you asked such questions before?"
data "What else comes to mind when you ask that?"
data "WHERE"
data 9
data "Why do you ask?"
data "Does that question interest you?"
data "What answer would please you the most?"
data "What do you think?"
data "Are such questions on your mind often?"
data "What is it that you really want to know?"
data "Have you asked anyone else?"
data "Have you asked such questions before?"
data "What else comes to mind when you ask that?"
data "WHY"
data 9
data "Why do you ask?"
data "Does that question interest you?"
data "What answer would please you the most?"
data "What do you think?"
data "Are such questions on your mind often?"
data "What is it that you really want to know?"
data "Have you asked anyone else?"
data "Have you asked such questions before?"
data "What else comes to mind when you ask that?"
data "NAME"
data 2
data "Names don't interest me."
data "I don't care about names-- please go on."
data "CAUSE"
data 4
data "Is that the real reason?"
data "Don't any other reasons come to mind?"
data "Does that reason explain anything else?"
data "What other reasons might there be?"
data "SORRY"
data 4
data "Please don't apologize!"
data "Apologies aren't necessary."
data "What feelings do you have when you apologize?"
data "Don't be so defensive!"
data "DREAM"
data 4
data "What does that dream suggest to you?"
data "Do you dream often?"
data "What persons appear in your dreams?"
data "Are you disturbed by your dreams?"
data "HELLO"
data 2
data "How do you do ... Please state your problem."
data "Hello. Please state your problem."
data "HI"
data 2
data "Hi. Please state your problem."
data "How do you do. Please state your problem."
data "MAYBE"
data 5
data "You don't seem quite certain."
data "Why the uncertain tone?"
data "Can't you be more positive?"
data "You aren't sure?"
data "Don't you know?"
data "NO"
data 5
data "Are you saying no just to be negative?"
data "You are being a bit negative."
data "Why not?"
data "Are you sure?"
data "Why no?"
data "YOUR"
data 2
data "Why are you concerned about my *?"
data "What about your own *?"
data "ALWAYS"
data 4
data "Can you think of a specific example?"
data "When?"
data "What are you thinking of?"
data "Really, always!!"
data "THINK"
data 3
data "Do you really think so?"
data "But you are not so sure you *?"
data "Do you doubt you *?"
data "ALIKE"
data 7
data "In what way?"
data "What resemblance do you see?"
data "What does the similarity suggest to you?"
data "What other connections do you see?"
data "Could there really be some connection?"
data "How?"
data "You seem quite positive."
data "YES"
data 3
data "Are you sure?"
data "I see."
data "I understand."
data "FRIEND"
data 6
data "Why do you bring up the topic of friends?"
data "Do your friends worry you?"
data "Do your friends pick on you?"
data "Are you sure you have any friends?"
data "Do you impose on your friends?"
data "Perhaps your love for friends worries you."
data "COMPUTER"
data 10
data "Do computers worry you?"
data "Are you talking about me in particular?"
data "Are you frightened by machines?"
data "Why do you mention computers?"
data "What do you think machines have to do with your problem?"
data "Don't you think computers can help people?"
data "What is it about machines that worry you?"
data "Say, do you have any psychological problems?"
data "What does that suggest to you?"
data "I see."
data "COMPUTERS"
data 10
data "Do computers worry you?"
data "Are you talking about me in particular?"
data "Are you frightened by machines?"
data "Why do you mention computers?"
data "What do you think machines have to do with your problem?"
data "Don't you think computers can help people?"
data "What is it about machines that worry you?"
data "Say, do you have any psychological problems?"
data "What does that suggest to you?"
data "I see."
data "I LIKE"
data 2
data "How long have you liked *?"
data "Why do you like *?"
data "WAS I"
data 3
data "What if you were *?"
data "Do you think you were *?"
data "What would it mean if you were *?"
data "I HAVE"
data 2
data "How long have you had *?"
data "Do you like having *?"
data "I DREAMT"
data 2
data "How do you feel about * in reality?"
data "Do you dream often?"
data "I WAS"
data 3
data "Were you really?"
data "Perhaps I already knew you were *?"
data "Why do you tell me you were * now?"
