Ish. With work, hanging out with friends, programming, and playing The Sims 2, I've been too busy to do anything here.
Here is an adventure game I've been writing though.. It's nothing special, and extremely wierd.
'Written by Chris Stewart
'Version 1.03
DIM strName AS STRING
DIM intAge AS INTEGER
DIM strYesNo AS STRING
DIM Q1 AS STRING
DIM Q2 AS STRING
DIM Q3 AS STRING
DIM Q5 AS STRING
DIM Q6 AS STRING
DIM Q7 AS STRING
DIM Q8 AS STRING
DIM Q9 AS STRING
DIM Q10 AS STRING
DIM Q11 AS STRING
DIM Q12 AS STRING
DIM Q13 AS STRING
DIM Q14 AS STRING
DIM Q15 AS STRING
DIM Q16 AS STRING
DIM Q17 AS STRING
DIM Q18 AS STRING
DIM Q19 AS STRING
DIM Q20 AS STRING
DIM Q21 AS STRING
DIM Q22 AS STRING
DIM Q23 AS STRING
DIM Q24 AS STRING
DIM Q25 AS STRING
DIM Q26 AS STRING
DIM Q27 AS STRING
DIM Q28 AS STRING
DIM Q29 AS STRING
DIM Q30 AS STRING
DIM Q31 AS STRING
DIM Q32 AS STRING
DIM Q33 AS STRING
DIM Q34 AS STRING
DIM Q35 AS STRING
DIM Q36 AS STRING
DIM Q37 AS STRING
DIM Q38 AS STRING
DIM Q39 AS STRING
DIM Q40 AS STRING
DIM Q41 AS STRING
DIM Q42 AS STRING
DIM Q43 AS STRING
DIM Q44 AS STRING
DIM Q45 AS STRING
DIM Q46 AS STRING
DIM Q47 AS STRING
DIM Q48 AS STRING
DIM Q49 AS STRING
DIM Q50 AS STRING
DIM Question AS INTEGER
DIM AgeH AS INTEGER
DIM AgeL AS INTEGER
CLS
PRINT "Choose your own adventure"
PRINT "Written by Chris Stewart"
PRINT "Version 1.03"
SLEEP 2
CLS
PRINT "Welcome."
PRINT "You are about to embark on a wonderful adventure."
PRINT "What is your name"; : INPUT strName
PRINT "Welcome to the game, "; strName
PRINT "Okay, how old are you, "; strName; : INPUT intAge
PRINT "So, you are "; intAge; " Years old."
PRINT "Onto your adventure!"
AgeH = intAge + 2
AgeL = intAge - 2
0 CLS
PRINT "You wake up in the morning to the sound of a beeping noise. what do you do?"
PRINT "1: Reach for your alarm clock."
PRINT "2: Push yourself up and out of bed."
PRINT "3: Open your eyes to greet the morning."'DEATH
INPUT Q1
IF Q1 = "1" THEN GOTO 2
IF Q1 = "2" THEN GOTO 3
IF Q1 = "3" THEN GOTO 4'DEATH
2 SLEEP 1
CLS
PRINT "You reach over for your alarm clock, only to find your laser pistol nearby."
PRINT "clutching it, you manage to pull yourself out of bed."
PRINT "You check for intruders, but there is nobody here."
PRINT "You look around to see your small room at the station."
PRINT "You see the metal door is sealed, as your bed folds into the wall."
PRINT "You realise that the beeping is the siren for the space station. What do you do?"
PRINT "1: Get dressed in uniform."
PRINT "2: Double check for your equipment."'DEATH
PRINT "3: Run out the door and raise your gun."
INPUT Q2
IF Q2 = "1" THEN GOTO 5
IF Q2 = "2" THEN GOTO 6'DEATH
IF Q2 = "3" THEN GOTO 7
3 SLEEP 1
CLS
PRINT "You push yourself out of bed, and somehow end up on the floor."
PRINT "The wood has given you a fairly large lump on your head."
PRINT "You suddenly hear somebody yelling at you."
PRINT "You are able to understand it, over the rattling of a nearby vent."
PRINT strName; ", Wake up! You have school, and you'll be late for the bus!"
PRINT "What do you do?"
PRINT "1: Run downstairs to grab breakfast"
PRINT "2: Go brush your teeth and comb your hair"
PRINT "3: Find out why the vent is rattling"'DEATH
INPUT Q3
IF Q3 = "1" THEN GOTO 8
IF Q3 = "2" THEN GOTO 9
IF Q3 = "3" THEN GOTO 10'DEATH
4 SLEEP 1
CLS
PRINT "You open your eyes to greet the day. However, you quickly realise this was a mistake."
PRINT "When you open your eyes, you are greeted by a chilling cold all around you."
PRINT "You had to fully wake up to realise it..."
PRINT "And now, you are inhaling icy, cold water!"
PRINT "As you struggle for air and warmth, a giant carnivourous fish grabs you,"
PRINT "and pulls you deeper underwater. You fall unconcious, and eventually die."
PRINT "Congratulations, your own dream killed you."
PRINT "Play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
5 SLEEP 1
CLS
PRINT "You run over, and grab your uniform, and begin to put it on."
PRINT "You find a handy plasma knife and a taser inside the pockets."
PRINT "Also, on a piece of paper, is written the number"; intAge
PRINT "Suddenly, the door shakes violently. What do you do?"
PRINT "1: pull out your laser pistol and aim at the door"'DEATH
PRINT "2: pull out the knife and kneel beside the door"
PRINT "3: hide in the closet"
INPUT Q5
IF Q5 = "1" THEN GOTO 11'DEATH
IF Q5 = "2" THEN GOTO 12
IF Q5 = "3" THEN GOTO 13
6 SLEEP 1
CLS
PRINT "You check your pockets to make sure your gun is there."
PRINT "You look around the room for any other useful equipment."
PRINT "Just as you locate a hand plasma cannon, you explode."
PRINT "As the smoke clears, a giant lobster-man walks over your guts,"
PRINT "and finds a shiny new gun."
PRINT "Play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
7 SLEEP 1
CLS
PRINT "you run out the door, your gun held high."
PRINT "you see a couple green, tall, buff aliens look in your direction."
PRINT "You manage to dispatch one of them with your pistol, but the other begins to run at you."
PRINT "What do you do?"
PRINT "1: Duck and cover"
PRINT "2: shoot at him"'DEATH
PRINT "3: drop your gun and wrestle him down"
INPUT Q7
IF Q7 = "1" THEN GOTO 14
IF Q7 = "2" THEN GOTO 15'DEATH
IF Q7 = "3" THEN GOTO 16
8 SLEEP 1
CLS
PRINT "You run downstairs and grab some toast."
PRINT "Your little sister start giggling."
PRINT "Your mom frowns"
PRINT "You hear the sound of the bus down the street."
PRINT "What do you do?"
PRINT "1: run for the bus"'DEATH
PRINT "2: question your relatives"
PRINT "3: run upstairs to get your stuff"
INPUT Q8
IF Q8 = "1" THEN GOTO 17'DEATH
IF Q8 = "2" THEN GOTO 18
IF Q8 = "3" THEN GOTO 19
9 SLEEP 1
CLS
PRINT "You decide to comb your hair and brush your teeth."
PRINT "You look in the full sized mirror, only to realise you are completely nude!"
PRINT "despite that fact, you comb your hair into your awesome style, and brush your teeth."
PRINT "Now, what is your next priority?"
PRINT "1: get dressed"
PRINT "2: check for any memos"
PRINT "3: go downstairs"'DEATH
INPUT Q9
IF Q9 = "1" THEN GOTO 20
IF Q9 = "2" THEN GOTO 21
IF Q9 = "3" THEN GOTO 22'DEATH
10 SLEEP 1
CLS
PRINT "You decide to see why the vent is rattling."
PRINT "you grab the cover and tug it off."
PRINT "suddenly, a vacuum of air sucks you down into the bowels of the Earth."
PRINT "You are trapped here and die from lack of oxygen. Sucker."
PRINT "Play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
11 SLEEP 1
CLS
PRINT "You pull out the pistol and aim at the door."
PRINT "The door swings open revealing a shadowy figure."
PRINT "It speaks. 'What the hell are you doing in here? You should have been--'"
PRINT "You laser fire from your gun nails the shadowy figure in the head."
PRINT "Upon closer inspection, you have just killed your commander."
PRINT "You are executed by being thrown into the engine's core later that day."
PRINT "Play again (y or n);": INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
12 SLEEP 1
CLS
PRINT "You grab the plasma knife, acivate it, and crouch by the door."
PRINT "The soor blows inward as a large shark-like alien on two feet walks into your room, snarling."
PRINT "He doesn't seem to notice you. What do you do?"
PRINT "1: lunge at him with the knife"
PRINT "2: Pull out your laser and shoot him"
PRINT "3: run for your life"
INPUT Q12
IF Q12 = "1" THEN GOTO 23'WIN
IF Q12 = "2" THEN GOTO 24'DEATH
IF Q12 = "3" THEN GOTO 25'Win/death
13 SLEEP 1
CLS
PRINT "You run over to the closet, and climb inside."
PRINT "You then realise there is a huge freaking escape pod in here."
PRINT "Suddenly, the door explodes open revealing an ant-like creature with a giant freaking gun."
PRINT "He aims at you. What do you do?"
PRINT "1: Jump in the pod quickly and hit launch"
PRINT "2: pull out your pistol and shoot the alien"
PRINT "3: Take the time to set up the pod, then launch it"
INPUT Q13
IF Q13 = "1" THEN GOTO 26'Death
IF Q13 = "2" THEN GOTO 27'Win
IF Q13 = "3" THEN GOTO 28'Win/Death
14 SLEEP 1
CLS
PRINT "You duck and cover. You Manage to avoid the rampaging alien only to notice an escape pod."
PRINT "The alien turns around and prepares to start running at you."
PRINT "Suddenly, the station begins to shake, ready to burst."
PRINT "What do you do?"
PRINT "1: Turn to fight the alien"
PRINT "2: Jump in the pod and hit launch"
PRINT "3: Double check the trajectory of the pod"
INPUT Q13
IF Q13 = "1" THEN GOTO 29'Death
IF Q13 = "2" THEN GOTO 30'Win
IF Q13 = "3" THEN GOTO 31'Win/Death
15 SLEEP 1
CLS
PRINT "You pull out your gun and shoot the alien."
PRINT "The laser bounces off his awesome pecs."
PRINT "And nails you in the face."
PRINT "You died."
PRINT "Play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
16 SLEEP 1
CLS
PRINT "You lunge at the alien and after a good 10 minutes of wrestling,"
PRINT "You say 'to hell with this' and stop wrestling, just so you can win instead."
PRINT "The alien is now unconsious."
PRINT "The station shakes, ready to burst. You notice an escape pod."
PRINT "1: Jump in the pod"
PRINT "2: Set the pod's tragectory"
PRINT "3: try to shut down the space station's core"
INPUT Q16
IF Q16 = "1" THEN GOTO 32'WIN
IF Q16 = "2" THEN GOTO 33'DEATH
IF Q16 = "3" THEN GOTO 34'win/death
17 SLEEP 1
CLS
PRINT "You run after the bus, and manage to make it there in time."
PRINT "However, everyone is laughing at you."
PRINT "Congratulations, you are completely nude. A group of roaming police notice this and arrest you."
PRINT "Through constant snickering, you sit in your cold, damp cell, naked."
PRINT "play again? (y or n)"; : INPUT strYesNo
18 SLEEP 1
CLS
PRINT "You question your sister as to why she is laughing."
PRINT "She explains you are nude."
PRINT "What do you do?"
PRINT "1: Run upstairs to get dressed"
PRINT "2: Run upstairs to get your homework"
PRINT "3: Run upstairs to get both"
INPUT Q18
IF Q9 = "1" THEN GOTO 35'win
IF Q9 = "2" THEN GOTO 36'win/death
IF Q9 = "3" THEN GOTO 37'DEATH
19 SLEEP 1
CLS
PRINT "you run upstairs to get your stuff."
PRINT "You are randomly incinerated."
PRINT "Play again? (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
20 SLEEP 1
CLS
PRINT "You get dressed. Suddenly, the bus pulls in front of your house!"
PRINT "You notice some unfinished homework. What do you do?"
PRINT "1: jump out the window after the bus"
PRINT "2: Run downstairs and get on the bus"
PRINT "3: Do homework"
INPUT Q20
IF Q20 = "1" THEN GOTO 38'win
IF Q20 = "2" THEN GOTO 39'death
IF Q20 = "3" THEN GOTO 40'win/death
21 SLEEP 1
CLS
PRINT "You check your memo book."
PRINT "You have unfinished homework."
PRINT "The bus pulls in. What do you do?"
PRINT "1: jump out the window after the bus"
PRINT "2: Run downstairs and get on the bus"
PRINT "3: Do homework"
INPUT Q21
IF Q21 = "1" THEN GOTO 38'win
IF Q21 = "2" THEN GOTO 39'death
IF Q21 = "3" THEN GOTO 40'win/death
22 SLEEP 1
CLS
PRINT "You fall down the stairs and die."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
23 SLEEP 1
CLS
PRINT "You lunge at the shark alien with your plasma knife."
PRINT "You stab him in the gills."
PRINT "He is dead."
PRINT "You have killed the leader of the aliens, and they all collapse, dead."
PRINT "You win!"
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
24 SLEEP 1
CLS
PRINT "You pull out your laser, and miss."
PRINT "he eats you."
PRINT "You lose."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
25 SLEEP 1
CLS
PRINT "You run for your life."
PRINT "You manage to make it to the escape pod, but it is locked."
PRINT "You remember hearing the passcode. It was 2 digits, between "; AgeL; "And "; AgeH
PRINT "What do you punch into the console?"; : INPUT Question
IF Question = intAge THEN GOTO 251 ELSE GOTO 252
251 PRINT "That is correct! You enter the pod and safely escape"
PRINT "The exploding station."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
252 PRINT "Sorry, that is incorrect. The alien eats you."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
26 SLEEP 1
CLS
PRINT "You jump in the pod and hit launch."
PRINT "You wind up in the sun."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
27 SLEEP 1
CLS
PRINT "You slaughter the alien being. How fun!"
PRINT "That was the brain-bug, and the rest all collapse in a heap of brainless ants."
PRINT "You have won!"
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
28 SLEEP 1
CLS
PRINT "You get into the pod"
PRINT "The alien steps forward."
PRINT "You remember hearing the tragectory for a nearby planet."
PRINT "It was 2 digits, between "; AgeL; "And "; AgeH
PRINT "What do you punch into the console?"; : INPUT Question
IF Question = intAge THEN GOTO 281 ELSE GOTO 282
281 PRINT "That is correct! You enter the pod and safely escape"
PRINT "The exploding station."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
282 PRINT "Sorry, that is incorrect. The alien eats you."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
29 SLEEP 1
CLS
PRINT "You turn to fight, just in time to see him kill you with big gun."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
30 SLEEP 1
CLS
PRINT "You enter the pod and hit launch."
PRINT "You escape the dying station!"
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
31 SLEEP 1
CLS
PRINT "You get into the pod"
PRINT "The alien steps forward."
PRINT "You remember hearing the tragectory for a nearby planet."
PRINT "It was 2 digits, between "; AgeL; "And "; AgeH
PRINT "What do you punch into the console?"; : INPUT Question
IF Question = intAge THEN GOTO 311 ELSE GOTO 312
311 PRINT "That is correct! You enter the pod and safely escape"
PRINT "The exploding station."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
312 PRINT "Sorry, that is incorrect. The alien eats you."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
32 SLEEP 1
CLS
PRINT "You jump in the pod and launch yourself to safety."
PRINT "You win!"
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
33 SLEEP 1
CLS
PRINT "You begin to set the tragectory for a nearby planet."
PRINT "the station explodes, killing you."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
34 SLEEP 1
CLS
PRINT "You get into the core room."
PRINT "Theconsole beeps. You remember an override command."
PRINT "It was 2 digits, between "; AgeL; "And "; AgeH
PRINT "What do you punch into the console?"; : INPUT Question
IF Question = intAge THEN GOTO 341 ELSE GOTO 342
341 PRINT "That is correct! You enter the pod and safely escape"
PRINT "The exploding station."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
342 PRINT "Sorry, that is incorrect. The core explodes."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
35 SLEEP 1
CLS
PRINT "You run upstairs to get dressed."
PRINT "You realise it is saturday, and lounge in yor room!"
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
36 SLEEP 1
CLS
PRINT "You run upstairs to get your homework, but it isn't done!"
PRINT "The answer is 2 digits, between "; AgeL; "And "; AgeH
PRINT "What do you punch into the console?"; : INPUT Question
IF Question = intAge THEN GOTO 361 ELSE GOTO 362
361 PRINT "That is correct! You complete your homework and get on the bus."
PRINT "The exploding station."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
362 PRINT "Sorry, that is incorrect. You miss the bus, and end up failing the class"
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
37 SLEEP 1
CLS
PRINT "You run upstairs, but trip, and stab yourself on a random knife."
PRINT "You die of blood loss."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
38 SLEEP 1
CLS
PRINT "You jump out the window after the bus."
PRINT "You manage to get to the bus on time."
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
39 SLEEP 1
CLS
PRINT "You run down the stairs, but in the time it took you, you missed the bus."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
40 SLEEP 1
CLS
PRINT "You run upstairs to get your homework, but it isn't done!"
PRINT "The answer is 2 digits, between "; AgeL; "And "; AgeH
PRINT "What do you punch into the console?"; : INPUT Question
IF Question = intAge THEN GOTO 401 ELSE GOTO 402
401 PRINT "That is correct! You complete your homework and get on the bus."
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
402 PRINT "Sorry, that is incorrect. You miss the bus, and end up failing the class"
PRINT "play again (y or n)"; : INPUT strYesNo
IF strYesNo = "y" THEN GOTO 0
IF strYesNo = "n" THEN END
13 pages.
Sign In
Register
Help
This topic is locked


MultiQuote









