Chat Bot

DeletedUser

Guest
Hey dudes I made this chat bot using VBS scripting. This my first attempted at programming and would like to see your review.

To view the bot click on the attachments :cool:
 

DeletedUser

Guest
No it's not a virus. It's a chat bot which is able to respond to your words. I suppose it needs improvement but everyone has to start somewhere. Anyway have you seen it? I promise that it ain't no virus , worm or any form of spyware.
 

DeletedUser

Guest
are you sure
I'll see if anyone reports a virus, I will -rep you
 
Last edited by a moderator:

DeletedUser

Guest
dim fname

fname=inputbox("Hey :D")

fname=inputbox("I'm a chat bot named VBS. I was created by my owner The Player!")

fname=inputbox("So how u doing?")

fname=inputbox("Really? No way?")

fname=inputbox("Hmm... I watch you go to sleep o_0")

fname=inputbox("cya on da flipside njubs")

fname=inputbox("Kidding why would I leave? Afterall I do enjoy teasting you. It's a shame I can't understand your human language mortals")
 

DeletedUser

Guest
Skullyhoofd said:
dim fname

fname=inputbox("Hey :D")

fname=inputbox("I'm a chat bot named VBS. I was created by my owner The Player!")

fname=inputbox("So how u doing?")

fname=inputbox("Really? No way?")

fname=inputbox("Hmm... I watch you go to sleep o_0")

fname=inputbox("cya on da flipside njubs")

fname=inputbox("Kidding why would I leave? Afterall I do enjoy teasting you. It's a shame I can't understand your human language mortals")
Click to expand...
I don't understand. Why have you posted my coding here? I was looking for a review , hints , advices. How do you make the chatbot understand your words and respond to it correctly?
 

DeletedUser

Guest
hey=inputbox("Hey ")

heydva=("me")

exclamationpoint=("!")

spacebar=(" ")

msgbox("don't you " &hey &spacebar &heydva &exclamationpoint &exclamationpoint &exclamationpoint &exclamationpoint)

iam=inputbox("I'm a chat bot named VBS. I was created by my owner The Player!")

howudoing=inputbox("So how u doing?")

really=inputbox("Really? No way you are doing" &howudoing)

sleep=inputbox("Hmm... I watch you go to sleep o_0")

cya=inputbox("cya on da flipside njubs")

kidding=inputbox("Kidding why would I leave? Afterall I do enjoy teasting you. It's a shame I can't understand your human language mortals")

try this
 
Last edited by a moderator:

DeletedUser

Guest
yeap
sorry

a=inputbox("Hey")

b=("me")

spacebar=(" ")

msgbox("don't you" &spacebar &a &spacebar &b)

iam=inputbox("I'm a chat bot named VBS. I was created by my owner The Player!")

howudoing=inputbox("So how u doing?")

really=inputbox("Really? No way you are doing" &howudoing)

sleep=inputbox("Hmm... I watch you go to sleep o_0")

cya=inputbox("cya on da flipside njubs")

kidding=inputbox("Kidding why would I leave? Afterall I do enjoy teasting you. It's a shame I

can't understand your human language mortals")

It doesn't allow for the text to have the same text as it's title
 

DeletedUser5

Guest
Firelord, you need to look into conditionals: http://w3schools.com/vbscript/vbscript_conditionals.asp

This will allow you to check if the string given is equal to what you're looking for, if it is, then print a message to them

You could do something like this...

Code: 
Dim answer1 = InputBox("Please enter your name: ")

Dim answer2 = InputBox("Hello "& answer1 &", I'm 14... How old are you?")

If answer2 < 14 	
	Then MsgBox("You are younger than me by " & (14 - answer2) & " years")
Else 
	MsgBox("You are older than me by " & (answer2 - 14) & " years")
 

DeletedUser

Guest
I like how mac userse still try after it has been clarified why it doesn't work on macs.
 
You must log in or register to reply here.
Top