`Project: Text Adventure
`Created: 15/01/2007 11:56:26 a.m.
`Created By: Kieran
`More stuff by: DB User 2006+ (Aaron J. Miller)
`Even more stuff by fxgamer
`EVEN EVEN more stuff by n008 (Kyle Jones)
`Minor fixes, Grammar, even even more more stuff, and compression by BmacZero
`***** Main Source File *****
Set display mode 1024,768,32
_Name_:
Input "What is your name? ",name$ : Print "Hello, "+name$+", my name is Orgath. Come to my house." : wait 5000 : Print "You arrive at Orgath's house, he says: Which bed would you like to sleep on?" : Input "Red bed or Blue bed? [R/B] ",bed$ : bed$=lower$(bed$) : if bed$ = "r" : Print "There were nails under the sheet, you get stabbed through the back and die!" : suspend for key : cls : goto _name_ : else : if bed$ = "b" : Print "Ok have a good night sleep! (Press a key)" : suspend for key : print "*The next day*" : print "You wake up and find someone.. dead.. in the red bed." : print "What will you do." : wait key : cls
_CHOICE_:
input "What to do? [get Coffee, check the dead guy in the Bed?][C/B]",do$ : do$=lower$(do$) : if do$="c" : print "You went to get some coffee. Good, now you are a little bit" : print "more awake, and realised that those were just nails in the bed. (Press a key)" : wait key : else : if do$="b" : print "Sorry.. You have touched some rusty nails in the bed." : print "There was never a dead guy, you were just too sleepy" : print "to realise that there was never one. (Press a key)" : suspend for key : else : print "I did not understand your choice." : goto _CHOICE_ : endif : endif : endif : endif : cls
_CHOICE2_:
input "Orgath comes in and says, 'Yer a touch ma red bed I KILL YOUS!' (Shoot him, Reason with him)(S/R)",shoot$ : shoot$=lower$(shoot$) : if shoot$="s" : print "You shoot Orgath only to find he was your brother" : print "wearing a mask" : Print "then the house explodes and you die" : Suspend for key : cls : goto _name_ : else
if shoot$="r" : print "You try to reason with him but he comes at you" : print "with an axe.All of a sudden the roof collapses" : print "on him and he dies, you run out of the building" : print "and it explodes(press a key)" : suspend for key : cls : else
print "I did not understand your choice" : cls : goto _CHOICE2_ : Endif : endif : cls
_Choice3_:
Input "After the explosion you see several men in black suits run into the woods" "Follow, or go to sleep in the street?(S/f)",follow$ : follow$=lower$(follow$)
if follow$="s" : Print "You lie down in the street only to be run over several times by cars, dying." : Suspend for key : cls : goto _name_ : else : if follow$="f"
Print "You quietly follow the men a mile and a half to a large building." : Print "Watching from the trees you see them meet with other guys with weapons and armor." : Print "although your hearing is slightly cut off from brush, you can make out the fact that they want to take over the city!" : Print "*(press key)*" : suspend for key : goto choice4: else : Print "I didn't understand your command." : goto _choice3_ : Endif : endif : end
choice4:
Input "Will you go save the world yourself or run for help [S/R]? ",savingworld$ : savingworld$=lower$(savingworld$) : if savingworld$="s" : print "You sneak behind the large building and find a" : print "gun. You steal it." : endif : cls : if savingworld$="r" : print "You try to run back to the city for help. You step on a trip mine and die." : else : print "I didn't understand your command." : goto choice4 : endif
wait key
Here it is I have compressed it and added a new choice.
"Of course you should fight fire with fire. You should fight everything with fire!" —Jaya Ballard, task mage