My first game
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
WPP! Wanna Pro Programmer
