Sorry your browser is not supported!

print "Welcome to Firvon! A text adventure"
print "What is your name?"
Input Name$
print "Hello ";Name$;". What is your class? (1-6)"
print "1. Fighter"
print "2. Barbarian"
print "2. Rogue"
print "4. Thief"
print "3. Wizard"
print "6. Cleric"
Input Choice

If Choice = 1
	Global Class$ = "Fighter"
	Global Hp = 10
endif

If Choice = 2
	Global Class$ = "Barbarian"
	Global Hp = 12
endif

If Choice = 3
	Global Class$ = "Rogue"
	Global Hp = 6
endif

If Choice = 4
	Global Class$ = "Thief"
	Global Hp = 6
endif

If Choice = 5
	Global Class$ = "Wizard"
	Global Hp = 6
endif

If Choice = 6
	Global Class$ = "Cleric"
	Global Hp = 6
endif


DarkForest:
		cls
		print "You are tired after a long day. In front of you are some scary seeming woods."
		print "You hear some something sneak by. The wind seems to pull you in, to the forrest. What do you do?(1-4)"
		print "1. Rest for the night."
		print "2. Venture into the forrest."
		print "3. Chase whatever made that sound."
		print "4. Scamper back to where you started with your tail between your legs."
		input Choice
		
		If Choice = 1
			Goto DarkForestmorning
		endif
		
		If Choice = 2
			Goto DarkForestpath
		endif
		
		If Choice = 3
			Goto DarkForestbrush
		endif
		
		If Choice = 4
			Goto Start
		endif
	
	DarkForestmorning:
		cls
		print "In the morning you feel fresh and ready to have an adventure."
		print "But as you see the Dark Forest you begin to feel a chill and depresed. What do you do?(1-3)"
		print "1. Venture along the path."
		print "2. See if you can find whatever made that sound last night"
		print "3. Scamper back to where you started with your tail between your legs."
		input Choice
		
		If Choice = 1
			Goto DarkForestpath
		endif
		
		If Choice = 2
			Goto DarkForestbrush
		endif
		
		If Choice = 3
			Goto Start
		endif
	
	DarkForestpath:
		cls
		print "The path is overgrown and in places not even there. You can easily see why people call it the dark forrest."
		print "You come across a roaring beast. It's an orc and it terifies you."
		print "You do the only concivable thing and go to battle with the monster."
		wait key
		easycombat()
		cls
		print "You continue along the path until it ends at an old mine. Do you enter the mine(1)"
		print "or go back to where you started(2)?"
		input Choice
		
		If Choice = 1
			goto Oldmine
		endif
		
		If Choice = 2
			goto Start
		endif
	
	DarkForestbrush:
		cls
		print "You whack slowly through the various"
		print "ferns and bushes and by the time that the sun goen down you can still see the spot where you started."
		print "You are ehausted and can't wack another bush. You are sick of trying to track something you clearly can't."
		print "You do the only thing anyone short of a god could do and sleep for the night.(press any key to continue)"
		wait key
		goto DarkForestmorning
	
	Oldmine:
		cls
		print "The mine is humid and stuffy. The walls are slimy to the touch and make you shiver. "
		print "As you go down the old mine's walls turn a greenish color. You realize this is the abandoned copper mine"
		print "people talk about but for some reason nobody ever goes to. Do you leave now while you still can(1) or do you stay and explore a while(2)?"
		input Choice
		
		if Choice = 1
			goto LeavingOldMine
		endif
		if Choice = 2
			goto ContinuingDownOldMine
		endif
		
			LeavingOldMine:
			
			cls
			print "As you turn around to leave a giant monster block your way It is clearly looking to eat you. Ther are no options other than fighting it."
			hardcombat()
			cls 
			print "You exhaustedly dash out of the dungeon and run nonstop to the town where you were and camp just outside it until morning."
			wait key
			goto Start
			
			Continuingdownoldmine:
			cls 
			print "You continue down the old mine until you reach a giant cavern full of treasure but on top of the largest pile is a giant lizard!"
			print "Since the only way to get to the jewels is to kill the lizard you attack it"
			hardcombat()
			cls 
			Jewels = Jewels + 20 
			print "You collect as many jewels as you can carry and hike home to change the fruits of your adventure into golds."

Functions:
	Function easycombat()
	cls
	If Class$ = "Fighter"
		MonsterHp = 2
		Fightereasycombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Swing your sword at the monster"
		print "2. Stab the monster"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			MonsterHp = MonsterHp - 5
		endif
		If MonsterHp < 1
			exitfunction
		endif
		print "The monster attacks you"
		Hp = Hp-1
		If Hp < 1
			print "You died"
			wait key
			END
		endif

		goto Fightereasycombatturn:
	endif
	
	If Class$ = "Barbarian"
		MonsterHp = 2
		Barbairianeasycombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Swing your Ax at the monster"
		print "2. Punch the monster"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			MonsterHp = MonsterHp - 5
		endif
		If MonsterHp < 1
			exitfunction
		endif
		print "The monster attacks you"
		Hp = Hp-1
		If Hp < 1
			print "You died"
			wait key
			END
		endif

		goto Barbairianeasycombatturn:
	endif
	
	If Class$ = "Rogue"
		MonsterHp = 2
		Rogueeasycombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Swing your shortsword at the monster"
		print "2. Stab the monster with your Knife"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			MonsterHp = MonsterHp - 2
		endif
		If MonsterHp < 1
			exitfunction
		endif
		print "The monster attacks you"
		Hp = Hp-1
		If Hp < 1
			print "You died"
			wait key
			END
		endif
		goto Rogueeasycombatturn
	endif
	
	If Class$ = "Thief"
		MonsterHp = 2
		Thiefeasycombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Swing your Dagger at the monster"
		print "2. Stab the monster with your Knife"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			MonsterHp = MonsterHp - 2
		endif
		If MonsterHp < 1
			exitfunction
		endif
		print "The monster attacks you"
		Hp = Hp-1
		If Hp < 1
		print "You died"
			wait key
			END
		endif
		goto Thiefeasycombatturn
	endif
	
	If Class$ = "Wizard"
		MonsterHp = 2
		Wizardeasycombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Cast a fireball at the monster"
		print "2. Wack the monster with your staff"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			MonsterHp = MonsterHp - 2
		endif
		If MonsterHp < 1
			exitfunction
		endif
		print "The monster attacks you"
		Hp = Hp-1
		If Hp < 1
		print "You died"
			wait key
			END
		endif
		goto Wizardeasycombatturn
	endif
	
	If Class$ = "Cleric"
		MonsterHp = 2
		Clericeasycombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Smite the monster with holy might"
		print "2. Heal yourself"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			Hp = Hp + 2
		endif
		If MonsterHp < 1
			exitfunction
		endif
			print "The monster attacks you"
			Hp = Hp-1
		If Hp < 1
			print "You died"
			wait key
			END
		endif
		goto Clericeasycombatturn
	endif
EndFunction

Function hardcombat()
	cls
	If Class$ = "Fighter"
		MonsterHp = 10
		Fighterhardcombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Swing your sword at the monster"
		print "2. Stab the monster"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			MonsterHp = MonsterHp - 2
		endif
		If MonsterHp < 1
			exitfunction
		endif
		print "The monster attacks you"
		Hp = Hp-1
		If Hp < 1
			print "You died"
			wait key
			END
		endif

		goto Fighterhardcombatturn:
	endif
	
	If Class$ = "Barbarian"
		MonsterHp = 10
		Barbairianhardcombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Swing your Ax at the monster"
		print "2. Punch the monster"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			MonsterHp = MonsterHp - 5
		endif
		If MonsterHp < 1
			exitfunction
		endif
		print "The monster attacks you"
		Hp = Hp-1
		If Hp < 1
			print "You died"
			wait key
			END
		endif

		goto Barbairianhardcombatturn:
	endif
	
	If Class$ = "Rogue"
		MonsterHp = 10
		Roguehardcombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Swing your shortsword at the monster"
		print "2. Stab the monster with your Knife"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			MonsterHp = MonsterHp - 2
		endif
		If MonsterHp < 1
			exitfunction
		endif
		print "The monster attacks you"
		Hp = Hp-1
		If Hp < 1
			print "You died"
			wait key
			END
		endif
		goto Roguehardcombatturn
	endif
	
	If Class$ = "Thief"
		MonsterHp = 10
		Thiefhardcombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Swing your Dagger at the monster"
		print "2. Stab the monster with your Knife"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			MonsterHp = MonsterHp - 2
		endif
		If MonsterHp < 1
			exitfunction
		endif
		print "The monster attacks you"
		Hp = Hp-1
		If Hp < 1
		print "You died"
			wait key
			END
		endif
		goto Thiefhardcombatturn
	endif
	
	If Class$ = "Wizard"
		MonsterHp = 10
		Wizardhardcombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Cast a fireball at the monster"
		print "2. Wack the monster with your staff"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			MonsterHp = MonsterHp - 2
		endif
		If MonsterHp < 1
			exitfunction
		endif
		print "The monster attacks you"
		Hp = Hp-1
		If Hp < 1
		print "You died"
			wait key
			END
		endif
		goto Wizardhardcombatturn
	endif
	
	If Class$ = "Cleric"
		MonsterHp = 10
		Clerichardcombatturn:
		print "YourHp = ";Hp
		print "MonsterHp = ";MonsterHp
		print "What do you do?(1-3)"
		print "1. Smite the monster with holy might"
		print "2. Heal yourself"
		print "3. Nothing"
		Input Choice
		
		If Choice = 1
			MonsterHp = MonsterHp - 5
		endif
		If Choice = 2
			Hp = Hp + 2
		endif
		If MonsterHp < 1
			exitfunction
		endif
			print "The monster attacks you"
			Hp = Hp-1
		If Hp < 1
			print "You died"
			wait key
			END
		endif
		goto Clerichardcombatturn
	endif
EndFunction