I admit, this is kind of stupid, and I am able to do more complicated stuff then this(no really, I am), but this is the first thing I actually finished. So here is the code, just copy it into DarkBasic.
SETUP:
wait 200
PRINT "Neural"
wait 500
PRINT "Ed"
wait 500
PRINT "Botics"
wait 1000
cls
PRINT "NEB"
PRINT "VERSION 1.0"
angerpts=5
happypts=5
kill=0
password=rnd(100000)
wait 4000
START:
cls
PRINT "Hi. I'm NEB. Through 10 questions, you must talk me into giving you the..."
wait 500
PRINT "PASSWORD! (da, da, daaaaaaaa!)"
PRINT "You must be nice to me, because if you are mean to me..."
wait 500
PRINT "I WILL KILL YOU! (da, da, daaaaaaaa!)"
PRINT "WAHAHAHAHAHAHA!"
PRINT "Well, then. Press any key to begin."
suspend for key
GOSUB Q1
Q1:
cls
PRINT "Question 1"
INPUT "How old are you?",a
If a > 150
PRINT "LIAR!"
angerpts = angerpts+1
ELSE
PRINT "Very good..."
happypts = happypts+1
ENDIF
wait 2000
GOSUB Q2
Q2:
cls
PRINT "Question 2"
INPUT "What is your age?",b
If b = a
PRINT "Hmm..."
happypts = happypts+1
ELSE
PRINT "Are your pants on fire? Because you are a liar!"
angerpts = angerpts+1
ENDIF
wait 2000
GOSUB Q3
Q3:
cls
PRINT "Question 3"
INPUT "2+2/4+3x2-5=",c
If c = -3
PRINT "Wow! Your math skillz are l33t!"
happypts = happypts+1
ELSE
PRINT "Idiot..."
angerpts = angerpts+1
ENDIF
wait 2000
GOSUB Q4
Q4:
cls
PRINT "Question 4"
INPUT "If Mary skipped in the flower field, and Bob swam in the swamp, what is the highest number possible?",d
If d > 7
PRINT "Everyone knows that 7 is the highest possible number!"
angerpts = angerpts+1
ELSE
PRINT "I am impressed. Impressed that you know how to type, but atleast you got it right."
happypts = happypts+1
ENDIF
wait 2000
GOSUB Q10
Q10:
cls
PRINT "Question 10... Sorry, I ran out of ideas!"
INPUT "YOU STINKY! NOW TYPE IN A NUMBER not HIGHER THEN 5!",e
If a > 5
PRINT "YOU ARE STUPID! YOU READ THE MESSAGE! I HATE YOU!"
angerpts = angerpts+1
ELSE
PRINT "YOU ARE THE BEST PERSON IN THE MAGICAL FOREST!"
happypts = happypts+1
ENDIF
wait 2000
GOSUB END
END:
cls
if angerpts > happypts
kill=1
endif
PRINT "Ahem..."
PRINT "Your test results just came in, and..."
if kill=1
PRINT "YOU MUST DIE!"
wait 2000
cls
PRINT "game over..."
wait 2000
end
ELSE
PRINT "Hurray! This computer says I like you enough to give you the password!"
PRINT "Well, here it is..."
PRINT password
wait 2000
cls
PRINT "you win..."
wait 2000
end
ENDIF
It is kind of funny, though pointless. Enjoy, and please tell me how stupid it is, er...how you like it.
-Okashira
PS: I did not post it in the Showcase, since it is so simple.
Let the games begin!
