Chatbot in notepad Tutorial
how to make a chatbot in notepad
feel free to change the code to say whatever you would like
Code:
dim fname
dname=inputbox("Hi! what's your name?")
fname=inputbox("How are you feeling " & dname)
fname=inputbox("why are you feeling " & fname)
fname=inputbox("Are you doing good or bad in school?")
fname=inputbox("why do you think your doing " & fname)
fname=inputbox("what are you going to do today")
fname=inputbox("why are you going to " & fname)
fname=inputbox("whats your moms name?")
fname=inputbox("what age is " & fname)
fname=inputbox("now you get to program me!!!")
fname=inputbox("type whatever you want me to say")
fname=inputbox(" " & fname)
noname=inputbox("hit comma then space 1 time ONLY 1 TIME!!!!!")
fname=inputbox("now that wasnt so hard, maybe you should go work for microsoft")
fname=inputbox("how old are you?")
fname=inputbox("oh so your " & fname & noname & dname)
fname=inputbox("ok well i got to go sorry ok. :(")
fname=inputbox("bye " & dname)