Sorry your browser is not supported!

Rem Project: Text Adventure
Rem Created: Saturday, January 10, 2009

Rem ***** Main Source File *****

Start:
cls
PRINT "Welcome to the Text Adventure!"
PRINT "This game is borught to you by May0naise!"
PRINT ""
PRINT ""
PRINT "Hope you like it and have fun!"

Begin:
cls
PRINT "You awake to find yourself on a mountain"
PRINT "You have absolutly no idea where you are"
PRINT "What would you like to do?"
PRINT ""
PRINT "1.Get up, dust yourself off, and head for higher ground"
PRINT "2.Get up, and head down the mountain"
PRINT "3.Sit there and hope for help to come"
Input "",InputString$

If InputString$="1" then goto ClimbMtn
If InputString$="2" then goto ClimbDown
If InputString$="3" then goto WaitforHelp

Begin2:
cls
Print "Your back where you started"
Print ""
Print "1.Go back up"
Print "2.Head down"
Print "3.Wait for help to come"
input "", InputString$

if InputString$="1" then goto ClimbMtn
if InputString$="2" then goto ClimbDown
if InputString$="3" then goto WaitforHelp

ClimbMtn:
cls
PRINT "You start heading up the mountain"
PRINT "After about an hour, you find youself at a steep wall"
PRINT ""
PRINT "What would you like to do?"
PRINT "1.Attempt to climb the mountain"
PRINT "2.Head Back"
Input "",InputString$

If InputString$="1" then goto Attempt2Climb
if InputString$="2" then goto Begin2

ClimbDown:
cls
Print "After a few hours of walking, you find yourself at what looks like and old hunting trail"
Print ""
Print "1.Follow left"
Print "2.Follow right"
Print "3.Keep going down the mountian"
input "",InputString$

if InputString$="1" then goto FollowLeft
if InputString$="2" then goto FollowRight
if InputString$="3" then goto KeepGoingDown

ClimbDown2:
Print "You find yourself back at the trail splitting back to camp and going left"
Print ""
Print "1.Back to beginning?"
Print "2.Go left this time"
input "",InputString$

if InputString$="1" then goto Begin2
if InputString$="2" then goto FollowLeft

WaitforHelp:
cls
Print "After a few hours, you fall asleep waiting for help"
Print "You wake up, and it's very dark out"
Print "Your stomach is growling, and you know you need food"
Print ""
Print "1.Get up and look for food"
Print "2.Go back to sleep until morning"
input "",InputString$

if InputString$="1" then goto LookForFood
if InputString$="2" then goto Death1

Death1:
cls
Print "A hungry bear cam during the night and,"
Print "You died...."
Print "Would you like to start over?"
Print ""
Print "1. Yes"
Print "2. No"
input "",InputString$

if InputString$="1" then goto Begin2
if InputString$="2" then end

Attempt2Climb:
cls
Print "About halfway up the mountain, you look up at the summit"
Print "The next 100 feet or so look pretty difficult to climb"
Print ""
Print "1.Climb up"
Print "2.Go back"
input "",InputString$

if InputString$="1" then goto RimRock
if InputString$="2" then goto Begin2

RimRock:
cls
Print "After about 50 feet, you see there is no way to get up any higher"
Print "You look down at what you've already climbed, and there's no way down"
Print "OH NO! You were Rim Rocked"
Print ""
Print "Would you like to start over?"
Print "1. Yes"
Print "2. No"
input "", InputString$

if InputString$="1" then goto Begin2
if InputString$="2" then end


FollowLeft:
cls
Print "You follow the trail left"
Print "After only a few minutes of walking you start to smell something horrible"
Print ""
Print "1.Follow the smell"
Print "2.Keep walking"
input "",InputString$

if InputString$="1" then goto DeadBody
if InputString$="2" then goto KeepLeft

FollowRight:
cls
Print "After walking about a mile or so, your stopped in you tracks by a crevasse"
Print "After cursing and stomping on the ground for a minute, you decide to turn back"
wait 10000
 goto ClimbDown2

KeepGoingDown:
cls
Print "You walk all day long, and come dusk you find an old abandoned building"
Print ""
Print "1.Stay in Building"
Print "2.Make a camp nearby"
input "",InputString$

if InputString$="1" then goto BuildingDeath
if InputString$="2" then goto BuildingCamp

LookForFood:
cls
Print "You scavange the near-by area for any wild edibles"
Print "You find a plat that you belive is mint"
Print ""
Print "Eat the plant?"
Print "1.Yes"
Print "2.No"
Print "3.Maybe just a little"
input "",InputString$

if InputString$="1" then goto deathPlant
if InputString$="2" then goto NoPlant
if InputString$="3" then goto Sickness

KeepLeft:
cls
Print "After walking about half a mile, your become frozen in you tracks"
Print "About 15 feet away is a Mama bear and her cub"
Print "Im sorry, but you died"
Print ""
Print "Start over?"
Print "1.Yes"
Print "2.No"
input "",InputString$

if InputString$="1" then goto Begin2
if InputString$="2" then end

DeadBody:
cls
Print "A few feet in front of you you see a dead hunter's body"
Print "The body is pretty much decpmposed except for some rotted flesh here and there"
Print ""
Print "1.Search the body"
Print "2.Leave the body and keep going down the left trail"
input "",InputString$

if InputString$="1" then goto Findsword
if InputString$="2" then goto KeepLeft

BuildingDeath:
cls
Print "You see a room with an old booksheld, and an old, holey matrass"
Print "You lay on the matrass, and within minutes your asleep"
Print "While you sleep, you get eaten by rats"
Print ""
Print "Start over?"
Print "1.Yes"
Print "2.No"
input "",InputString$

if InputString$="1" then goto Begin2
if InputString$="2" then end

BuildingCamp:
cls
Print "On the side of the builing, you see a canoe, and decide to lay in it"
Print "Although it is uncomfortable, you fall asleep in a few minutes"
Print "When you awake, it is around noon, your starting to gt hungry"
Print ""
Print "1.Keep heading down the mountain"
Print "2.Search the old house"
input "",InputString$

if InputString$="1" then goto KeepGoingDown2
if InputString$="2" then goto SearchHouse

deathPlant:
cls
Print "After eating many of the leaves, you pass out.."
Print "You never wake up"
Print ""
Print "Start over"
Print "1.Yes"
Print "2.No"
input "",InputString$

if InputString$="1" then goto Begin2
if InputString$="2" then end

NoPlant:
cls
Print "After not eating anything, you lose all of your energy and pass out on the ground"
Print "Waking up the next day, you can see a field of sunfollow a few hundered feet away"
Print ""
Print "1.Go to field"
Print "2.Sit and die"
input "",InputString$

if InputString$="1" then goto Sunflower
if InputString$="2"
	cls
	Print "YOU QUITTER!!"
	Print "Im amshamed of you"
	wait 10000
	end
endif

Sickness:
cls
Print "Two minutes after eating the plant, your stomach starts to hurt immensly"
Print "You get bad diharea for 2 days"
Print "Without the strength to walk around, and no water or food.."
Print "You Die.."
Print ""
Print "Start over?"
Print "1.Yes"
Print "2.No"
input "",InputString$

if InputString$="1" then goto Begin2
if InputString$="2" then end

Sunflower:
cls
Print "The immense field of sunflowers has seeds inside you can eat"
Print ""
Print "1.Eat some seeds"
Print "2.Walk around and try to find the owned of the field"
input "", InputString$

if InputString$="1" then goto FieldDeath
if InputString$="2" then goto WalkAround

WalkAround:
cls
Print "After walking about half a mile"
Print "You get tired form not eating, and pass out"
Print ""
Print "You never wake up"
Print ""
Print "Replay"
Print "1.Yes"
Print "2.No"
input "",InputString$

if InputString$="1"  then goto Begin2
if InputString$="2" then end

SearchHouse:
cls
Print "After looking around for a bit, you find some cans of beans"
Print "You cannot find a can opener"
Print ""
Print "1.Go outside and smash can on a rock"
Print "2.Leave beans and look for something else"
input "",InputString$

if InputString$="1" then goto SmashCan
if InputString$="2" then goto FallThrough 

KeepGoingDown2:
cls
Print "After a few hours of walking, you come across a huge set of powerlines"
Print "While walking close to them, you accidently trip on a ladybug and get electricuted"
Print ""
Print "Retry?"
Print "1.Yes"
Print "2.No"
input "",InputString$

if InputString$="1" then goto Begin2
if InputString$="2" then end

Findsword:
cls
Print "After searching the body, you see a machate, and decide to take it"
wait 10000
goto KeepLeft2

SmashCan:
cls
Print "You go outside and find a sharp rock to smash the can on"
Print "The rock is too big to bring inside, so you decide to smash the can outside"
Print "After smashing the can, you eat every bean"
Print ""
Print "1.Keep Going Down"
Print "2.Go back to sleep in the canoe for tonight"
input "",InputString$

if InputString$="1" then goto KeepGoingDown2
if InputString$="2" then goto TigerInCamp

FallThrough:
cls
Print "Walking through an old door, you find a pantry stocked with food"
Print "As you walk into the pantry, the floor breaks, you fall through"
Print "You get shanked and die from a very big old,rusty shovel"
Print ""
Print "Retry?"
Print "1.Yes"
Print "2.No"
input "",InputString$

if InputString$="1" then goto Begin2
if InputString$="2" then end

KeepLeft2:
cls
Print "After walking about a half mile, you get frozen in your tracks by a Mama bear and her cub"
Print "You try to defend youself with the machate, and by sheer luck, you manage to kill the Mama bear"
Print "The bear cub runs away, and you eat some raw bear meat"
Print "Any key to continue"
wait key
cls
Print "After your done eating, you get up to keep walking, and you see a fleet of ATV's coming toward you"
Print "Any Key to continue"
wait key
goto WIN 
TigerInCamp:
cls
Print "While you sleep, a Tiger, attacted to the smell of the beans, finds and eats you"
Print ""
Print "Retry?"
Print "1.Yes"
Print "2.No"
input "",InputString$

if InputString$="1" then goto Begin2
if InputString$="2" then end

FieldDeath:
cls
Print "While eating sunflower seeds, a viper manages to bit your leg"
Print "In 2 minutes your dead from the venom"
Print ""
Print "Replay"
Print "1.Yes"
Print "2.No"
input "",InputString$

if InputString$="1" then goto Begin2
if InputString$="2" then end

WIN:
cls
Print "Congrats!! You were saved and Survived"
Print "This game is brought to you by May0naise"
Print ""
Print "Hope you had fun!"
Print "Game will end in 20 seconds"
wait 20000