22 lines
590 B
QBasic
22 lines
590 B
QBasic
Rem This is a test for a potential game named Savage Actual. We'll see what happens.
|
|
|
|
Rem by John Paul Wohlscheid
|
|
|
|
WindowTitle "Hallway test"
|
|
|
|
Dim as integer room1, room2, room3, room4, room5
|
|
|
|
Dim as string funame
|
|
|
|
Input "Before we begin, please enter the name of your character: ", funame
|
|
|
|
If funame = "fuck"
|
|
then print "That's real nice. I think I'll call you Larry."
|
|
then funame = "Larry"
|
|
elseif funame = "Bryan"
|
|
then print "I'll call you 'the Duke'."
|
|
then
|
|
elseif funame = "Gregg"
|
|
then print "Looks like we're going to get some philosophy in the house."
|
|
|