game.bas

'Text-Based game by Aaron T. Murphy, NOBODY ELSE!!!

dim money as double
dim in as string

'I dont really know at the moment. I have to figure it all out.

money = 0.0

money = 50.99

print "You are in a house. There are 4 things you can do:"
print "1: [exit]: Exit the house."
print "2: [get]: Get money."
print "3: [call]: Call your friend."
print "4: [run]: Run away."

input "What do you do" ; in
print ""

if in = "exit" then
    print "You exited the house!"
end if
if in = "get" then
    money += 100.99
    print "You got $100.99, so your balance is now"; money
end if
if in = "call" then
    color 10
    print "===BEEP BOOP BEEP BOOP==="
    color 15
    print "Hi, this is your friend. What do you want?"
    print "1: [buy]: Buy a cheap game system."
    print "2: [go]: Come over to your friend's house."
    print "3: [movies]: Go to the movies with your friend."
    print "4: [store]: Go to the store with your friend."
    input "Select a response: " , in

    if in = "buy" then
        if money < 50.99 then
            color 12
            print ""
            print "YOU HAVE INSUFFICIENT FUNDS TO COMPLETE THIS TRANSACTION."
            print "FUNDS REQUIRED: $50.99"
        end if
        if money >= 50.99 then
            print ""
            print "You bought a cheap game system from your friend."
            money -= 50.99
            print "You now have"; money; " dollars."
        end if
    end if
    if in = "go" then
        color 10
        print "You went to your friend's house."
        color 15
    end if
    if in = "movies" then
        color 10
        print "You went to the movies with your friend."
        color 15
    end if
    if in = "store" then
        if money < 9.99 then
            color 12
            print "YOU HAVE INSUFFICIENT FUNDS TO COMPLETE THIS TRANSACTION."
            print "FUNDS REQUIRED: $9.99"
            color 15
        end if
        if money >= 9.99 then
            print "You went to the store and bought some bread."
            money -= 9.99
            print "You now have"; money; " dollars."
        end if
    end if
end if
if in = "run" then
    print "YOU RAN AWAY!!! :-)"
    color 12
    print "-GAME OVER-"
end if
sleep