Mac Gaming Mods

My sister's learning Basic this year in school, and when I look on the internet I see a lot of people bashing it saying that it screws you up when you try to learn other languages, and that it's not an option when trying to make anything more than the most absolute basics, etc. I'm just wondering why people seem not to like it so much.

I'm gonna take a guess and say cause it's basic.
hahah, dual meanings.

Vegerot wrote:My sister's learning Basic this year in school, and when I look on the internet I see a lot of people bashing it saying that it screws you up when you try to learn other languages, and that it's not an option when trying to make anything more than the most absolute basics, etc. I'm just wondering why people seem not to like it so much.

BASIC refers to a family of languages. Your sister is learning some variation of basic, which, I guess you don't know.

I wouldn't say BASIC languages aren't powerful (it depends on which language is being used). I think for the most part though, the BASIC-influenced syntax is as annoying as heck. Not entirely convinced BASIC languages (which probably enforce static typing) are easier than say, Python, as far as general programming goes.

nil wrote:

Vegerot wrote:My sister's learning Basic this year in school, and when I look on the internet I see a lot of people bashing it saying that it screws you up when you try to learn other languages, and that it's not an option when trying to make anything more than the most absolute basics, etc. I'm just wondering why people seem not to like it so much.

BASIC refers to a family of languages. Your sister is learning some variation of basic, which, I guess you don't know.

I wouldn't say BASIC languages aren't powerful (it depends on which language is being used). I think for the most part though, the BASIC-influenced syntax is as annoying as heck. Not entirely convinced BASIC languages (which probably enforce static typing) are easier than say, Python, as far as general programming goes.

Windows Basic, I think.

i think your talking about VBScript-visual basic
or i hope thats it conidering vbs files are a starting point in scripting(and schools don't offer vb2+)
it is a simple thing but i can be fun
i made a number guess game
sadly vbs is a windows scripting thing so unless you have a windows you shouldn't see this next part
but if you do copy and paste this next few lined into notepad and save it as:
1-10 guess.vbs



dim fname
do
strText = inputbox("i am thinking of a number between 1 and 10. what is your guess?","number guess")
Randomize
Wscript.Echo Int( ( 10 - 1 + 1 ) * Rnd + 1 )
fname=inputbox("do you wish to play again? in the box below for yes put y if no put n")
loop until fname="n"
if fname="y" then doloop

I like Visual Basic. I started and got into it a while back it's pretty fun, but there is also things that can be hard.
Here's a cool script I made. Just save it with .vbs extension:

name = inputbox("Type your name")
Grossthing = inputbox("Type something gross")
Answer = msgBox("Hi, my name is " +name +"and I like " +Grossthing")


What it does is it makes a box saying "Type your name" and your supposed to input something, the variable "name" is that. Then once you press "Ok" it makes a new input box saying "Type something gross" and your supposed to input something. Then a new variable "Answer" is a msgBox (a box or a window with a message) which says "Hi my name is " then it adds a variable called "name". If name is a inputbox then whatver the person inputed will be replaced with the variable.
Then it adds a new message right next to the other one saying "and I like " +Grossthing. Again the variable "Grossthing is added to that script and the variable is replaced by the inputed text.

I put spaces at the end of the messages, because apparently the words smash together when it has no spaces when the script is lauched. So that's it!
For example: if I type my name "RIPz" and something gross "barf" the answer will be "Hi my name is RIPz and I like barf".
Have fun scripting!

you can make some really annoying things too
like crash a computer with http://www.something.com

Set objVoice = Createobject("SAPI.SpVoice")
Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Sam").item(0)
objVoice.Speak "something is crashing your computer"
do
strURL = "http://www.something.com"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)
loop

or make one that can be useful (i never finished this one) it's a questionnaire


x=msgbox("are you ready?",4 ,"Question 1")
x=msgbox("you better be")

x=msgbox("is this cool?",4 ,"Question 2")
x=msgbox("the answer is, yes")

x=msgbox("is this interesting?",4 ,"Question 3")
x=msgbox("it depends, what is interesting?")

x=msgbox("am I cool?",4 ,"Question 4")
x=msgbox("the answer is, yes")

x=msgbox("are ninjas better than twilight?",4 ,"Question 5")
x=msgbox("the answer is, yes")

x=msgbox("do you think I will have an answer as no?",4 ,"Question 6")
x=msgbox("the answer is, maybe")

x=msgbox("is the meaning of life 24?",4 ,"Question 7")
x=msgbox("the answer is, no")

x=msgbox("is this annoying?",4 ,"Question 8")
x=msgbox("the answer is, you probably chose yes")

x=msgbox("will this be over soon?",4 ,"Question 9")
x=msgbox("the answer is, no")

x=msgbox("is the sky blue?",4 ,"Question 10")
x=msgbox("that was an intellegence test")

x=msgbox("are you wondering how I made this?",4 ,"Question 11")
x=msgbox("to bad I won't tell you")

x=msgbox("are stupid people annoying?",4 ,"Question 12")
x=msgbox("the answer is, yes")

x=msgbox("do you ever get angry?",4 ,"Question 13")
x=msgbox("maybe i shouldn't have asked that")

x=msgbox("this is a vbscript. if a vbscript can do this do you think that it could shut down this computer?",4 ,"Question 14")
x=msgbox("the answer is, yes, i could if i wanted to")

x=msgbox("do you think i could make the computer do anything? (within reason)",4 ,"Question 15")
x=msgbox("i probably could, i would just need to find how")

strText = inputbox("i am thinking of a number between 1 and 10. what is your guess?","Question 16")
x=msgbox("the answer is")
Randomize
Wscript.Echo Int( ( 10 - 1 + 1 ) * Rnd + 1 )

x=msgbox("in your opinion is this challenging?",4 ,"Question 17")
x=msgbox("i can respect that")

x=msgbox("will the world end on Dec. 21, 2012?",4 ,"Question 18")
x=msgbox("the answer is, no")

x=msgbox("will robots take over the world?",4 ,"Question 19")
x=msgbox("the answer is, highly unlikely")

strURL = "http://www.destination360.com/maps/montana-map.gif"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)
x=msgbox("does the state of montana look like it has a face?",4 ,"Question 20")
x=msgbox("I think so")

x=msgbox("do you like waffels?",4 ,"Question 21")
x=msgbox("the answer is, yes i like waffels")

x=msgbox("do you like pancakes?",4 ,"Question 22")
x=msgbox("the answer is, yes i like pancakes")

x=msgbox("do you like french toast?",4 ,"Question 23")
x=msgbox("the answer is, yes i like french toast")

dim a, b, c
a=inputbox("does 2+2=4? put first number here: ","Question 24","")
if not isnumeric (a) then
wscript.quit
end if
b=inputbox("does 2+2=4? put Math Character here: ","Question 24","")
c=inputbox("does 2+2=4? put Second Number here: ","Question 24","")
if not isnumeric (c) then
wscript.quit
end if
if b="+" then yes=msgbox("Answer: " & a--c,7,"ANSWER")
if b="-" then yes=msgbox("Answer: " & a-c,7,"ANSWER")
if b="*" then yes=msgbox("Answer: " & a*c,7,"ANSWER")
if b="/" then yes=msgbox("Answer: " & a/c,7,"ANSWER")
if b="^" then yes=msgbox("Answer: " & a^c,7,"ANSWER")
if b="&" then yes=msgbox("Answer: " & a&c,7,"ANSWER")
if b=">" then yes=msgbox("Answer: " & a>c,7,"ANSWER")
if b="<" then yes=msgbox("Answer: " & a<c,7,"ANSWER")
x=msgbox("no f(x)=12(2520/x)/36=2+2=4 when x=210")

for the questionnaire you could reset it so if you put in the right answer it will say correct ex. this chat thing i'm working on

dim fname
dim hi

hi=inputbox("Hi! What's your name?")
fname=inputbox("How are you feeling " & hi & "?")
x=msgbox ("me too",0+64+0+4096 ,"chatbot")
fname=inputbox("what is the meaning of life?")
fname=inputbox("so " & hi & " you think the meaing of life is " & fname)

WScript.Sleep 500


fname=inputbox("so " & hi & " tell me about your self")
fname=inputbox("so your life story is " & fname & "?")

WScript.Sleep 500


fname=inputbox("what is your favorite number?")
if fname="1" then yes=msgbox("is the loneliest number",0+64 ,"1")
if fname="2" then yes=msgbox("is a number",0+64 ,"2")
if fname="3" then yes=msgbox("there are 3 types of mathem" & "aticians those who can count" & " and those who can't",0+64 ,"3")
if fname="4" then yes=msgbox("FORE",0+64 ,"4")
if fname="5" then yes=msgbox("is half of 10",0+64 ,"5")
if fname="6" then yes=msgbox("5<6<7 so 5<7",0+64 ,"6")
if fname="7" then yes=msgbox("the largest prime number under 10",0+64 ,"7")
if fname="8" then yes=msgbox("I h8 snow",0+64 ,"8")
if fname="9" then yes=msgbox("got eaten by 7",0+64 ,"9")
if fname="0" then yes=msgbox("das ist null",0+64 ,"0")
if fname="1000000" then yes=msgbox("so its one million",0+64 ,"1000000")
if fname="666" then yes=msgbox("you satanic on of a -----",0+48 ,"666")
if fname>"10" then yes=msgbox("interesting choice",0+64 ,"?")
if fname>"556" then yes=msgbox("so " & hi & " likes " & fname & "?",0+64 ,"?")
if fname>"7623" then yes=msgbox("crazy number " & fname ,0+64 ,"?")
if fname>"1000001" then yes=msgbox("wow " & fname & " is a pretty big number",0+64 ,"?")

x=msgbox("well " & hi & " my favorate number is",0+64 ,"?")
Randomize
Wscript.Echo Int( ( 1000000 - 1 + 1 ) * Rnd + 1 )

WScript.Sleep 500


x=msgbox ("quick I have to tell you something",0+64 ,"chatbot")
strURL = "http://www.something.com"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)

WScript.Sleep 3000

do
strText = inputbox("i am thinking of a number between 1 and 10. what is your guess?","chatbot")
Randomize
Wscript.Echo Int( ( 10 - 1 + 1 ) * Rnd + 1 )
fname=inputbox("do you wish to play again? in the box below for yes put y if no put n")
loop until fname="n"
if fname="y" then doloop


WScript.Sleep 500

if fname="a" then yes=msgbox("canada eh?",0+64 ,"a")
if fname="b" then yes=msgbox("bound and baffeled by boxes and bags",0+64 ,"b")
if fname="c" then yes=msgbox("is for cat",0+64 ,"c")
if fname="d" then yes=msgbox("Duhhhhhhhhhhhhhh",0+64 ,"d")
if fname="e" then yes=msgbox("entertaining? ego? evil? endoplasmic reticulum? entschuldigung? ect...?",0+64 ,"e")
if fname="f" then yes=msgbox("is for friends who do stuff together",0+64 ,"f")
if fname="g" then yes=msgbox("is for google,your one and true friend",0+64 ,"g")
if fname="h" then yes=msgbox("have you given up yet?",0+64 ,"h")
if fname="i" then yes=msgbox("so you like the lone letter that is" & " used when talking about yourself?",0+64 ,"i")
if fname="j" then yes=msgbox("j isnt very exciting",0+64 ,"j")
if fname="k" then yes=msgbox("m'kay",0+64 ,"k")
if fname="l" then yes=msgbox("l is a lonely letter",0+64 ,"l")
if fname="m" then yes=msgbox("mmmm doughnut *garggle sounds*",0+64 ,"m")
if fname="n" then yes=msgbox("NO!",0+64 ,"n")
if fname="o" then yes=msgbox("ahhhhh a ghost!!!",0+64 ,"o")
if fname="p" then yes=msgbox("my brother tinks that if you combine pink and purple" & " = pikle it is spelt funny on porpose",0+64 ,"p")
if fname="q" then yes=msgbox("isn't Q an odd shaped letter?",0+64 ,"q")
if fname="r" then yes=msgbox("what are you a pirate?",0+64 ,"r")
if fname="s" then yes=msgbox("why did it have to be snakes?",0+64 ,"s")
if fname="t" then yes=msgbox("as in mr.T?",0+64 ,"t")
if fname="u" then yes=msgbox("me?",0+64 ,"u")
if fname="v" then yes=msgbox("i got nothing for this one",0+64 ,"v")
if fname="w" then yes=msgbox("this should be called double-v",0+64 ,"w")
if fname="x" then yes=msgbox("eXactly",0+64 ,"x")
if fname="y" then yes=msgbox("because i want to know",0+64 ,"y")
if fname="z" then yes=msgbox("i need to catch some of those",0+64 ,"z")
if fname="0" then yes=msgbox("that is not a letter",0+64 ,"nice try")

WScript.Sleep 543