Sorry your browser is not supported!

` Setup refresh rate
sync on : sync rate 30

` Ask which direction and take input from user
print "There is two directions you can go, north or south" : sync
input answer$

` Converts the string to lowercase so its not case sensitive
answer$ = lower$(answer$)

` Checks answer and tells user where you went
if answer$ = "north" or answer$ = "south"
print "You went ",answer$ : sync
endif

`loop so db doesn't just exit
do
sync
loop
                              

 set text size 30
center text 320,20,"Text adventure - Quest Hunt"
set text size 20
center text 320,70,"choose answer from list and write it in exactly as you see it"
center text 320,200,"Press enter to continue"
suspend for key
if returnkey()=1 then cls

rem these few lines of code open the story with some text
rem the "wait" command holds the screen for the number of milliseconds(5000)
print "You wake up in Dewsville your home town."
wait 5000

rem the main loop notice the repeat of the list of answers this is so you can
rem see them when you want to
rem I have used a variable called rightanswer to decide whether or not
rem the right answer is given
do
center text 320,80,"You decide to go out"
center text 320,130,"Go next door"
center text 320,160,"Go watch TV"
center text 320,190,"Go back to sleep"
center text 320,220,""
center text 320,250,""
input "What should you do: ",a$
if a$="Go next door" then goto buy : rightanswer=1
if rightanswer=0 then goto lose

buy:
cls
center text 320,80,"You arrive at your nieghbors door""
wait 2000
cls
center text 320,80,"It looks like only he is home"
center text 320,130,"Play ding dong ditch"
center text 320,160,"Fart on the door and run"
center text 320,190,"Bust through the door and yell police"
input "What do you do: ",b$
if b$="Bust through the door and yell police" then goto food : rightanswer=1
if rightanswer=0 then goto lose

print "Your friend pulls out a gun"
wait 5000
cls
food:
cls
center text 320,80,"He aims at you"
center text 320,130,"Run away"
center text 320,160,"Leave a fart bomb and run"
center text 320,190,"Pretend to be a unicorn"
input "What now: ",c$
if c$="Pretend to be a unicorn" then goto work : rightanswer=1
if rightanswer=0 then goto lose
end

print "Your friend pets you"
wait 5000
cls
work:
cls
center text 320,80,"Lick him"
center text 320,130,"Run away"
center text 320,160,"Take a dump on his shoe and run"
input "What now: ",c$
if c$="Take a dump on his show and run" then goto bed: rightanswer=1
if rightanswer=0 then goto lose
end

print "You run into your house"
wait 5000
cls
bed:
cls
center text 320,80,"Go to bed"
center text 320,130,"Go to bed"
center text 320,160,"Go to bed"
input "What now: ",c$
if c$="Go to bed" then goto lose: rightanswer=1
if rightanswer=0 then goto lose
end

lose:
cls
print "SOMONE COMES OUT OF NO WHERE AND EATS YOU"
end
sync
loop