C# Online Compiler | .NET Fiddle

<no name> by Anonymous

Imports System

Public Module Module1

	Public Sub Main()
		dim EndProgram as Boolean = False
		dim name, dif, dice2, count, hp, pwr, dice3, dice4, troll, dif2, answer, Angel, time, roll, roll2, roll3, roll4 as string
		Dim RandomNumber as New Random()
		Dim dice As Integer = RandomNumber.Next(1, 7)
		count = 0
		pwr = 0
		hp = 0
		dif2 = 0
		time = 0
		Do
			if time = 1 then
				Console.writeline("Back again? You've already played once. Ok then.")
			else if time > 1 then
				Console.writeline("Back again? You've already played " & time & " times. Ok then")
			end if

			Console.WriteLine("Enter your name")
			name = Console.readline
			Console.writeline("Right, you will now be referred to as " & name & " ♥")
			Console.writeline("Please select the difficulty:E(asy),  M(edium) or H(ard). Enter the letter outside of the brackets.")
			dif = console.readline()
			if dif = "E" then
				troll = 15
			else if dif = "M" then
				troll = 50
			Else if dif = "H" then
				troll = 100
			else
				console.writeline("That's not one of the options. Prepare for impossible mode.")
				troll = 10000
				'increase difficulty by 1'
				dif2 = dif2 + 1
			end if

			Console.writeline(name & " You are now playing Dragonstone! Lucky you. Let this dice determine your class. Type Y to continue.")
			roll = Console.readline()
			if roll = "Y" then
				dice = RandomNumber.Next(1, 8)
			end if

			COnsole.writeline("You rolled a " & dice & "!")
			if dice = 1 then
				'increase the count by one, establishing status as wizard'
				console.writeline("You are a wizard!")
				count = count + 1
			else if dice = 2 then
				console.writeline("You are a wizard!")
				count = count + 1
			else if dice = 3
				'increase the count by two, establishing status as human warrior'
				console.writeline("You are a human warrior (kinda lame).")
				count = count + 2
			else if dice = 4 then
				console.writeline("You are a human warrior (kinda lame).")
				count = count + 2
			else if dice = 5 then
				'increase the count by three, establishing status as elf warrior'
				Console.writeline("You are an elf warrior!")
				count = count + 3
			else if dice = 6 then
				Console.writeline("You are an elf warrior!")
				count = count + 3
			else
				'increase the count by four, establishing status as rubber ball'
				Console.writeline("That's not on a six sided dice. You're now a rubber ball.")
				count = count + 4
			end if

			Console.writeline("Please roll a dice again to determine your stats. Press Y to continue")
			roll2 = Console.readline()
			if roll2 = "Y" then
				dice2 = RandomNumber.next(1, 7)
			end if

			Console.writeline("You rolled a " & dice2 & " !")
			if dice2 < 3 then
				Console.writeline("Sorry")
			end if

			if dice2 = "1" or dice2 = "2" and count = 1 then
				Console.writeline("Power rating: 30")
				Console.writeline("Healthpoints: 10")
				pwr = pwr + 30
				hp = hp + 10
			else if dice2 = "3" or dice2 = "4" and count = 1 then
				Console.writeline("Power rating: 40")
				Console.writeline("Health points: 10")
				pwr = pwr + 40
				hp = hp + 10
			else if dice2 = "5" or dice2 = "6" and count = 1 then
				Console.writeline("Power rating: 50")
				Console.writeline("Health points: 10")
				pwr = pwr + 50
				hp = hp + 10
			else if dice2 = "1" or dice2 = "2" and count = 2 then
				Console.writeline("Power rating: 5")
				Console.writeline("Health points: 20")
				pwr = pwr + 5
				hp = hp + 20
			else if dice2 = "3" or dice2 = "4" and count = 2 then
				Console.writeline("Power rating: 10")
				Console.writeline("Health points: 20")
				pwr = pwr + 10
				hp = hp + 20
			else if dice2 = "5" or dice2 = "6" and count = 2 then
				Console.writeline("Power rating: 15")
				Console.writeline("Health points: 20")
				pwr = pwr + 15
				hp = hp + 20
			else if dice2 = "1" or dice2 = "2" and count = 3 then
				Console.writeline("Power rating: 10")
				Console.writeline("Health points: 15")
				pwr = pwr + 10
				hp = hp + 15
			else if dice2 = "3" or dice2 = "4" and count = 3 then
				Console.writeline("Power rating: 20")
				Console.writeline("Health points: 15")
				pwr = pwr + 20
				hp = hp + 15
			else if dice2 = "5" or dice2 = "6" and count = 3 then
				Console.writeline("Power rating: 30")
				Console.writeline("Health points: 15")
				pwr = pwr + 30
				hp = hp + 15
			else if count = 4 then
				Console.writeline("Power rating 0.1")
				Console.writeline("Health points: 10000")
				pwr = pwr + 0.1
				hp = hp + 10000
			else if count < 4 then
				Console.writeline("Power rating 1 billion")
				Console.writeline("Health points: 1 billion")
				pwr = pwr + 1
				hp = hp + 1
			end if

			Console.WriteLine("Now that we've set your character, let's start!")
			Console.writeline("You begin your journey by walking thorough a forest")
			Console.writeline("How peaceful. Peaceful until a troll appears! it looks like it has " & troll & " hp!")
			if dif2 = 1 then
				Console.writeline("I told you it would be impossible.")
			end if

			do
				'Loops the action until either hp or troll reaches 0'
				Console.writeline("It swings! It will deal 5 damage if it hits! Roll a dice to dodge! Press Y to continue")
				roll3 = Console.readline()
				if roll3 = "Y" then
					dice3 = RandomNumber.next(1, 7)
				end if

				Console.writeline("You rolled a " & dice3 & " !")
				if dice3 < 4 then
					Console.writeline("wow.")
				end if

				if dice3 = "1" or dice3 = "2" or dice3 = "3" then
					Console.writeline("Nice one klutz. You tripped and he hit you.")
					hp = hp - 5
					Console.writeline("You have " & hp & " hp left.")
					Console.Writeline("An angel smiles upon you and you feel its healing warmth")
					Console.writeline("Do you wish to accept its Gift? (Y or N)")
					Angel = Console.readline()
					if Angel = "Y" then
						Console.writeline("Turns out this angel was a demon in disguise. You die.")
						hp = 0
					else
						Console.writeline("I dont know why you wouldn't stay in that glow.")
					end if
				else if dice3 = "4" or dice3 = "5" or dice3 = "6" then
					Console.writeline("Nice! You dodged! Your precious health remains intact.")
				else
					Console.Writeline("Be serious")
				end if

				if hp <= 0 then
					Console.writeline("You're dead but you can make one last valiant effort to beat it. Attack!")
				end if

				Console.writeline("Now it's your turn. Beat that loser into a pulp! Press Y to continue!")
				roll4 = Console.readline()
				if roll = "Y" then
					dice4 = RandomNumber.next(1, 7)
				end if

				Console.writeline("You rolled a " & dice2 & " !")
				if dice3 < 4 then
					Console.writeline("wow.")
				end if

				if dice4 = "1" or dice4 = "2" or dice4 = "3" then
					Console.writeline("You're kidding, right? You missed? I know you can't see it but this troll is huge!")
				else if dice4 = "4" or dice4 = "5" or dice4 = "6" then
					Console.writeline("Wow! You hit it! That's impressive, it's tiny!")
					troll = troll - pwr
					Console.writeline("The troll has " & troll & " hp left")
				else
					Console.writeline("Be serious")
				end if
			loop until hp <= 0 or troll <= 0

			if troll <= 0 then
				Console.writeline("Congratulations brave hero. You have saved us all. Sorry the game was so short.")
			else if hp <= 0 then
				Console.writeline("Beaten by a troll? You suck. Try the game again.")
			else if troll <= 0 And hp <= 0
				Console.writeline("You lay dying next to the troll. A valiant effort. Your life may have ended but so too has the troll's. Of course, it is really weak, so it's not that big a hill to die on but whatever.")
			end if

			Console.WriteLine("What's this? You stumble across a pocketwatch lying on the floor. Do you wish to touch it? (Y or N)")
			answer = Console.ReadLine()
			if answer <> "Y" then
				Console.WriteLine("Be on your way brave warrior, thank you for playing.")
				EndProgram = True
			Else
				Endprogram = False
				time = time + 1
			end if
		Loop Until EndProgram = True
	End Sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Public Sub Main()
        dim EndProgram as Boolean = False
        dim name, dif, dice2, count, hp, pwr, dice3, dice4, troll, dif2, answer, Angel, time, roll, roll2, roll3, roll4 as string
        Dim RandomNumber as New Random()
        Dim dice As Integer = RandomNumber.Next(1, 7)
        count = 0
        pwr = 0
        hp = 0
        dif2 = 0
        time = 0
        Do
            if time = 1 then
                Console.writeline("Back again? You've already played once. Ok then.")
            else if time > 1 then
                Console.writeline("Back again? You've already played " & time & " times. Ok then")
            end if
​
            Console.WriteLine("Enter your name")
            name = Console.readline
            Console.writeline("Right, you will now be referred to as " & name & " ♥")
            Console.writeline("Please select the difficulty:E(asy),  M(edium) or H(ard). Enter the letter outside of the brackets.")
            dif = console.readline()
            if dif = "E" then
                troll = 15
            else if dif = "M" then
                troll = 50
            Else if dif = "H" then
                troll = 100
            else
                console.writeline("That's not one of the options. Prepare for impossible mode.")
                troll = 10000
                'increase difficulty by 1'
                dif2 = dif2 + 1
            end if
​
            Console.writeline(name & " You are now playing Dragonstone! Lucky you. Let this dice determine your class. Type Y to continue.")
            roll = Console.readline()
            if roll = "Y" then
                dice = RandomNumber.Next(1, 8)
            end if
​
            COnsole.writeline("You rolled a " & dice & "!")
            if dice = 1 then
                'increase the count by one, establishing status as wizard'
                console.writeline("You are a wizard!")
                count = count + 1
            else if dice = 2 then
                console.writeline("You are a wizard!")
                count = count + 1
            else if dice = 3
                'increase the count by two, establishing status as human warrior'
                console.writeline("You are a human warrior (kinda lame).")
                count = count + 2
            else if dice = 4 then
                console.writeline("You are a human warrior (kinda lame).")
                count = count + 2
            else if dice = 5 then
                'increase the count by three, establishing status as elf warrior'
                Console.writeline("You are an elf warrior!")
                count = count + 3
            else if dice = 6 then
                Console.writeline("You are an elf warrior!")
                count = count + 3
            else
                'increase the count by four, establishing status as rubber ball'
                Console.writeline("That's not on a six sided dice. You're now a rubber ball.")
                count = count + 4
            end if
​
            Console.writeline("Please roll a dice again to determine your stats. Press Y to continue")
            roll2 = Console.readline()
            if roll2 = "Y" then
                dice2 = RandomNumber.next(1, 7)
            end if
​
            Console.writeline("You rolled a " & dice2 & " !")
            if dice2 < 3 then
                Console.writeline("Sorry")
            end if
​
            if dice2 = "1" or dice2 = "2" and count = 1 then
                Console.writeline("Power rating: 30")
                Console.writeline("Healthpoints: 10")
                pwr = pwr + 30
                hp = hp + 10
            else if dice2 = "3" or dice2 = "4" and count = 1 then
                Console.writeline("Power rating: 40")
                Console.writeline("Health points: 10")
                pwr = pwr + 40
                hp = hp + 10
            else if dice2 = "5" or dice2 = "6" and count = 1 then
                Console.writeline("Power rating: 50")
                Console.writeline("Health points: 10")
                pwr = pwr + 50
                hp = hp + 10
            else if dice2 = "1" or dice2 = "2" and count = 2 then
                Console.writeline("Power rating: 5")
                Console.writeline("Health points: 20")
                pwr = pwr + 5
                hp = hp + 20
            else if dice2 = "3" or dice2 = "4" and count = 2 then
                Console.writeline("Power rating: 10")
                Console.writeline("Health points: 20")
                pwr = pwr + 10
                hp = hp + 20
            else if dice2 = "5" or dice2 = "6" and count = 2 then
                Console.writeline("Power rating: 15")
                Console.writeline("Health points: 20")
                pwr = pwr + 15
                hp = hp + 20
            else if dice2 = "1" or dice2 = "2" and count = 3 then
                Console.writeline("Power rating: 10")
                Console.writeline("Health points: 15")
                pwr = pwr + 10
                hp = hp + 15
            else if dice2 = "3" or dice2 = "4" and count = 3 then
                Console.writeline("Power rating: 20")
                Console.writeline("Health points: 15")
                pwr = pwr + 20
                hp = hp + 15
            else if dice2 = "5" or dice2 = "6" and count = 3 then
                Console.writeline("Power rating: 30")
                Console.writeline("Health points: 15")
                pwr = pwr + 30
                hp = hp + 15
            else if count = 4 then
                Console.writeline("Power rating 0.1")
                Console.writeline("Health points: 10000")
                pwr = pwr + 0.1
                hp = hp + 10000
            else if count < 4 then
                Console.writeline("Power rating 1 billion")
                Console.writeline("Health points: 1 billion")
                pwr = pwr + 1
                hp = hp + 1
            end if
​
            Console.WriteLine("Now that we've set your character, let's start!")
            Console.writeline("You begin your journey by walking thorough a forest")
            Console.writeline("How peaceful. Peaceful until a troll appears! it looks like it has " & troll & " hp!")
            if dif2 = 1 then
                Console.writeline("I told you it would be impossible.")
            end if
​
            do
                'Loops the action until either hp or troll reaches 0'
                Console.writeline("It swings! It will deal 5 damage if it hits! Roll a dice to dodge! Press Y to continue")
                roll3 = Console.readline()
                if roll3 = "Y" then
                    dice3 = RandomNumber.next(1, 7)
                end if
​
                Console.writeline("You rolled a " & dice3 & " !")
                if dice3 < 4 then
                    Console.writeline("wow.")
                end if
​
                if dice3 = "1" or dice3 = "2" or dice3 = "3" then
                    Console.writeline("Nice one klutz. You tripped and he hit you.")
                    hp = hp - 5
                    Console.writeline("You have " & hp & " hp left.")
                    Console.Writeline("An angel smiles upon you and you feel its healing warmth")
                    Console.writeline("Do you wish to accept its Gift? (Y or N)")
                    Angel = Console.readline()
                    if Angel = "Y" then
                        Console.writeline("Turns out this angel was a demon in disguise. You die.")
                        hp = 0
                    else
                        Console.writeline("I dont know why you wouldn't stay in that glow.")
                    end if
                else if dice3 = "4" or dice3 = "5" or dice3 = "6" then
                    Console.writeline("Nice! You dodged! Your precious health remains intact.")
                else
                    Console.Writeline("Be serious")
                end if
​
                if hp <= 0 then
                    Console.writeline("You're dead but you can make one last valiant effort to beat it. Attack!")
                end if
​
                Console.writeline("Now it's your turn. Beat that loser into a pulp! Press Y to continue!")
                roll4 = Console.readline()
                if roll = "Y" then
                    dice4 = RandomNumber.next(1, 7)
                end if
​
                Console.writeline("You rolled a " & dice2 & " !")
                if dice3 < 4 then
                    Console.writeline("wow.")
                end if
​
                if dice4 = "1" or dice4 = "2" or dice4 = "3" then
                    Console.writeline("You're kidding, right? You missed? I know you can't see it but this troll is huge!")
                else if dice4 = "4" or dice4 = "5" or dice4 = "6" then
                    Console.writeline("Wow! You hit it! That's impressive, it's tiny!")
                    troll = troll - pwr
                    Console.writeline("The troll has " & troll & " hp left")
                else
                    Console.writeline("Be serious")
                end if
            loop until hp <= 0 or troll <= 0
​
            if troll <= 0 then
                Console.writeline("Congratulations brave hero. You have saved us all. Sorry the game was so short.")
            else if hp <= 0 then
                Console.writeline("Beaten by a troll? You suck. Try the game again.")
            else if troll <= 0 And hp <= 0
                Console.writeline("You lay dying next to the troll. A valiant effort. Your life may have ended but so too has the troll's. Of course, it is really weak, so it's not that big a hill to die on but whatever.")
            end if
​
            Console.WriteLine("What's this? You stumble across a pocketwatch lying on the floor. Do you wish to touch it? (Y or N)")
            answer = Console.ReadLine()
            if answer <> "Y" then
                Console.WriteLine("Be on your way brave warrior, thank you for playing.")
                EndProgram = True
            Else
                Endprogram = False
                time = time + 1
            end if
        Loop Until EndProgram = True
    End Sub
End Module
​

View IL Code