Humblechook | C# Online Compiler

Humblechook by Arpith Nair

Imports System
				
Public Module Module1
	Public Sub Main()
		Dim Name , Answer , Dice1 , Dice2 , Health , Damage , Dice4 , Troll , Dice3 , WizDamage , WizHealth , ElfHealth , ElfDamage , HWHealth , HWDamage , Player , Wiz1 , Wiz2 , Wiz3 , Elf1 , Elf2 , Elf3 , HW1 , HW2 , HW3  As String
		
		Troll = 15
		WizHealth = 10
		HWHealth = 20
		ElfHealth = 15
		
		Console.WriteLine("To start this game, please have a six sided dice:")
		Console.WriteLine("")
		Console.WriteLine("You have entered the great world of Udhstone,the largest country here is Chookstopia.")
		Console.WriteLine("")
		Console.WriteLine("This game is called:")
		Console.WriteLine("")
		Console.WriteLine("")
		Console.WriteLine("             !!!   D  R  A  G  O  N  S  T  O  N  E   !!!")
		Console.WriteLine("             ___________________________________________")
		Console.WriteLine("             ___________________________________________")
		Console.WriteLine("             ___________________________________________")
		Console.WriteLine("")
		Console.WriteLine("At the moment, you are in Pumblechook Academy, home to the burning body of Ulchrath.")
		Console.WriteLine("")
		Console.WriteLine("")
		Console.WriteLine("Hello, what is your name?")
		Name = Console.Readline()
		Console.WriteLine("")
		
		Console.WriteLine("Hello " & Name & ". Roll the dice.")
		Console.WriteLine("What number did you get?")
		Dice1 = Console.ReadLine()
		If Dice1 = "1" or Dice1 = "2" Then
		Console.WriteLine("My dear " & Name & ", you are a wizard!!!")
		Console.WriteLine("")
			Console.WriteLine("Roll the dice again")
			Dice2 = Console.ReadLine()
			Console.WriteLine("")
		If Dice2 = "1" or Dice2 = "2" Then
				Player = Wiz1
		Console.WriteLine("My dear " & Name & ",you have a power rating of 30 and 10 health points!!!")
				WizHealth = 10
				WizDamage = 30
			End if
		If Dice2 = "3" or Dice2 = "4" Then
				Player = Wiz2
			Console.WriteLine("My dear " & Name & ",you have a power rating of 40 and 10 health points!!!")
				WizHealth = 10
				WizDamage = 40
			End if
		If Dice2 = "5" or Dice2 = "6" Then
				Player = Wiz3
			Console.WriteLine("My dear " & Name & ",you have a power rating of 50 and 10 health points!!!")
				WizHealth = 10
				WizDamage = 50
			End if
		Console.WriteLine("")
			End if
		
		
		If Dice1 = "3" or Dice1 = "4" Then
			Console.WriteLine("My dear " & Name & ", you are a human warrior!!!")
				Console.WriteLine("")
			Console.WriteLine("Roll the dice again")
			Dice2 = Console.ReadLine()
			Console.WriteLine("")
		If Dice2 = "1" or Dice2 = "2" Then
				Player = HW1
		Console.WriteLine("My dear " & Name & ",you have a power rating of 5 and 20 health points!!!")
				HWHealth = 20
				HWDamage = 5
			End if
		If Dice2 = "3" or Dice2 = "4" Then
				Player = HW2
			Console.WriteLine("My dear " & Name & ",you have a power rating of 10 and 20 health points!!!")
				HWHealth = 20
				HWDamage = 10
			End if
		If Dice2 = "5" or Dice2 = "6" Then
				Player = HW3
			Console.WriteLine("My dear " & Name & ",you have a power rating of 15 and 20 health points!!!")
				HWHealth = 20
				HWDamage = 15
			End if
		Console.WriteLine("")
			End if
			
		
		If Dice1 = "5" or Dice1 = "6" Then	
			Console.WriteLine("My dear " & Name & ", you are a elf!!!")
				Console.WriteLine("")
			Console.WriteLine("")
			Console.WriteLine("Roll the dice again")
			Dice2 = Console.ReadLine()
			Console.WriteLine("")
		If Dice2 = "1" or Dice2 = "2" Then
				Player = Elf1
			Console.WriteLine("My dear " & Name & ",you have a power rating of 10 and 15 health points!!!")
				ElfHealth = 15
				ElfDamage = 10
			End if
		If Dice2 = "3" or Dice2 = "4" Then
				Player = Elf2
			Console.WriteLine("My dear " & Name & ",you have a power rating of 20 and 15 health points!!!")
				ElfHealth = 15
				ElfDamage = 20
			End if
		If Dice2 = "5" or Dice2 = "6" Then
				Player = Elf3
			Console.WriteLine("My dear " & Name & ",you have a power rating of 30 and 15 health points!!!")
				ElfHealth = 15
				ElfDamage = 30
			End if
		Console.WriteLine("")
			End if
			
		Console.WriteLine("")
		Console.WriteLine("Would you like to begin?")
		Answer = Console.ReadLine()
		If Answer = "Yes" or Answer = "YES" or Answer = "yes" Then
			Console.WriteLine("Well then...")
		Else Console.WriteLine("Then reset the game.")
		End if
		Console.WriteLine("")
		Console.WriteLine("")
		Console.WriteLine("")
		Console.WriteLine("")
		Console.WriteLine("Let your adventure begin:")
		Console.WriteLine("")
		Console.WriteLine("Chapter 1: The Forest of Deadly but Dead Rh0tls:")
		Console.WriteLine("")
		Console.WriteLine("Long,long ago...")
		Console.WriteLine("")
		Console.WriteLine("")
		Console.WriteLine("")
		Console.WriteLine("A dark wizard murdered many Rh0tls and stole their souls.")
		Console.WriteLine("")
		Console.WriteLine("In a dark spell, he brought them back to life as his servants.")
		Console.WriteLine("")
		Console.WriteLine("But that was what he wanted to happen, it didn't happen.")
		Console.WriteLine("")
		Console.WriteLine("The spell failed and his soul now wanders this forest.")
		Console.WriteLine("")
		Console.WriteLine("The Rh0tls still live here, but they guard the wizard for his spell managed to get them to protect him.")
		Console.WriteLine("")
		Console.WriteLine("They attack anyone who comes here.")
		Console.WriteLine("")
		Console.WriteLine("I'll tell you more later. Fight this Rh0tl who can do 5 points of damage with his axe and has 15 health points:")
		Console.WriteLine("")
		Console.WriteLine("Do your best to defeat him:")
		Console.WriteLine("")
		Console.WriteLine("He's swinging his axe, roll the dice to see if you manage to survive")
		Dice3 = Console.ReadLine()
		
		Do
		If Dice3 =	"1" or Dice3 =	"2" or Dice3 =	"3" Then
			Console.Writeline("	You were hit and lost 5 points.")
			If   Dice1 = "1" or Dice1 = "2" Then
				Health = WizHealth - 5
				Console.Writeline("You have "& Health & " points left.")
			End if 
			If   Dice1 = "3" or Dice1 = "4" Then
				Health = HWHealth - 5
				Console.Writeline("You have "& Health & " points left.")
			End if 
			If   Dice1 = "5" or Dice1 = "6" Then
				Health = ElfHealth - 5
				Console.Writeline("You have "& Health & " points left.")
			End if 
		ElseIf Dice3 = "4" or Dice3 = "5" or Dice3 = "6" Then 
			Console.WriteLine("The troll missed you. You did not lose any points.")
				Console.WriteLine("You must defeat it. Roll the dice to see if you can.")	
				Dice4 = Console.ReadLine()
				
				If   Dice4 = "1" or Dice4 = "2" or Dice4 = "3" Then
					Console.WriteLine("You missed the troll.")
				ElseIf Dice3 = "4" or Dice3 = "5" or Dice3 = "6" Then 
					If   Dice1 = "1" or Dice1 = "2" or  Dice1 = "2" then
				Health = WizHealth - 5
				Console.Writeline("You have "& Health & " points left.")
			End if 
			If   Dice1 = "3" or Dice1 = "4" Then
				Health = HWHealth - 5
				Console.Writeline("You have "& Health & " points left.")
			End if 
			If   Dice1 = "5" or Dice1 = "6" Then
				Health = ElfHealth - 5
				Console.Writeline("You have "& Health & " points left.")
			End if 
		End if
		Loop until Health = 0 or Troll = 0 or Health < 0 or Troll < 0 
		
			
			
			If Dice1= "1" or Dice1 = "2" Then
				If Dice2 = "1" Dice2 = "2" Then 
					Troll - 30 < 0
			
			
			
					EndIf 
			
	End Sub
End Module

 
Imports System
                
Public Module Module1
    Public Sub Main()
        Dim Name , Answer , Dice1 , Dice2 , Health , Damage , Dice4 , Troll , Dice3 , WizDamage , WizHealth , ElfHealth , ElfDamage , HWHealth , HWDamage , Player , Wiz1 , Wiz2 , Wiz3 , Elf1 , Elf2 , Elf3 , HW1 , HW2 , HW3  As String
        
        Troll = 15
        WizHealth = 10
        HWHealth = 20
        ElfHealth = 15
        
        Console.WriteLine("To start this game, please have a six sided dice:")
        Console.WriteLine("")
        Console.WriteLine("You have entered the great world of Udhstone,the largest country here is Chookstopia.")
        Console.WriteLine("")
        Console.WriteLine("This game is called:")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("             !!!   D  R  A  G  O  N  S  T  O  N  E   !!!")
        Console.WriteLine("             ___________________________________________")
        Console.WriteLine("             ___________________________________________")
        Console.WriteLine("             ___________________________________________")
        Console.WriteLine("")
        Console.WriteLine("At the moment, you are in Pumblechook Academy, home to the burning body of Ulchrath.")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("Hello, what is your name?")
        Name = Console.Readline()
        Console.WriteLine("")
        
        Console.WriteLine("Hello " & Name & ". Roll the dice.")
        Console.WriteLine("What number did you get?")
        Dice1 = Console.ReadLine()
        If Dice1 = "1" or Dice1 = "2" Then
        Console.WriteLine("My dear " & Name & ", you are a wizard!!!")
        Console.WriteLine("")
            Console.WriteLine("Roll the dice again")
            Dice2 = Console.ReadLine()
            Console.WriteLine("")
        If Dice2 = "1" or Dice2 = "2" Then
                Player = Wiz1
        Console.WriteLine("My dear " & Name & ",you have a power rating of 30 and 10 health points!!!")
                WizHealth = 10
                WizDamage = 30
            End if
        If Dice2 = "3" or Dice2 = "4" Then
                Player = Wiz2
            Console.WriteLine("My dear " & Name & ",you have a power rating of 40 and 10 health points!!!")
                WizHealth = 10
                WizDamage = 40
            End if
        If Dice2 = "5" or Dice2 = "6" Then
                Player = Wiz3
            Console.WriteLine("My dear " & Name & ",you have a power rating of 50 and 10 health points!!!")
                WizHealth = 10
                WizDamage = 50
            End if
        Console.WriteLine("")
            End if
        
        
        If Dice1 = "3" or Dice1 = "4" Then
            Console.WriteLine("My dear " & Name & ", you are a human warrior!!!")
                Console.WriteLine("")
            Console.WriteLine("Roll the dice again")
            Dice2 = Console.ReadLine()
            Console.WriteLine("")
        If Dice2 = "1" or Dice2 = "2" Then
                Player = HW1
        Console.WriteLine("My dear " & Name & ",you have a power rating of 5 and 20 health points!!!")
                HWHealth = 20
                HWDamage = 5
            End if
        If Dice2 = "3" or Dice2 = "4" Then
                Player = HW2
            Console.WriteLine("My dear " & Name & ",you have a power rating of 10 and 20 health points!!!")
                HWHealth = 20
                HWDamage = 10
            End if
        If Dice2 = "5" or Dice2 = "6" Then
                Player = HW3
            Console.WriteLine("My dear " & Name & ",you have a power rating of 15 and 20 health points!!!")
                HWHealth = 20
                HWDamage = 15
            End if
        Console.WriteLine("")
            End if
            
        
        If Dice1 = "5" or Dice1 = "6" Then  
            Console.WriteLine("My dear " & Name & ", you are a elf!!!")
                Console.WriteLine("")
            Console.WriteLine("")
            Console.WriteLine("Roll the dice again")
            Dice2 = Console.ReadLine()
            Console.WriteLine("")
        If Dice2 = "1" or Dice2 = "2" Then
                Player = Elf1
            Console.WriteLine("My dear " & Name & ",you have a power rating of 10 and 15 health points!!!")
                ElfHealth = 15
                ElfDamage = 10
            End if
        If Dice2 = "3" or Dice2 = "4" Then
                Player = Elf2
            Console.WriteLine("My dear " & Name & ",you have a power rating of 20 and 15 health points!!!")
                ElfHealth = 15
                ElfDamage = 20
            End if
        If Dice2 = "5" or Dice2 = "6" Then
                Player = Elf3
            Console.WriteLine("My dear " & Name & ",you have a power rating of 30 and 15 health points!!!")
                ElfHealth = 15
                ElfDamage = 30
            End if
        Console.WriteLine("")
            End if
            
        Console.WriteLine("")
        Console.WriteLine("Would you like to begin?")
        Answer = Console.ReadLine()
        If Answer = "Yes" or Answer = "YES" or Answer = "yes" Then
            Console.WriteLine("Well then...")
        Else Console.WriteLine("Then reset the game.")
        End if
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("Let your adventure begin:")
        Console.WriteLine("")
        Console.WriteLine("Chapter 1: The Forest of Deadly but Dead Rh0tls:")
        Console.WriteLine("")
        Console.WriteLine("Long,long ago...")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("A dark wizard murdered many Rh0tls and stole their souls.")
        Console.WriteLine("")
        Console.WriteLine("In a dark spell, he brought them back to life as his servants.")
        Console.WriteLine("")
        Console.WriteLine("But that was what he wanted to happen, it didn't happen.")
        Console.WriteLine("")
        Console.WriteLine("The spell failed and his soul now wanders this forest.")
        Console.WriteLine("")
        Console.WriteLine("The Rh0tls still live here, but they guard the wizard for his spell managed to get them to protect him.")
        Console.WriteLine("")
        Console.WriteLine("They attack anyone who comes here.")
        Console.WriteLine("")
        Console.WriteLine("I'll tell you more later. Fight this Rh0tl who can do 5 points of damage with his axe and has 15 health points:")
        Console.WriteLine("")
        Console.WriteLine("Do your best to defeat him:")
        Console.WriteLine("")
        Console.WriteLine("He's swinging his axe, roll the dice to see if you manage to survive")
        Dice3 = Console.ReadLine()
        
        Do
        If Dice3 =  "1" or Dice3 =  "2" or Dice3 =  "3" Then
            Console.Writeline(" You were hit and lost 5 points.")
            If   Dice1 = "1" or Dice1 = "2" Then
                Health = WizHealth - 5
                Console.Writeline("You have "& Health & " points left.")
            End if 
            If   Dice1 = "3" or Dice1 = "4" Then
                Health = HWHealth - 5
                Console.Writeline("You have "& Health & " points left.")
            End if 
            If   Dice1 = "5" or Dice1 = "6" Then
                Health = ElfHealth - 5
                Console.Writeline("You have "& Health & " points left.")
            End if 
        ElseIf Dice3 = "4" or Dice3 = "5" or Dice3 = "6" Then 
            Console.WriteLine("The troll missed you. You did not lose any points.")
                Console.WriteLine("You must defeat it. Roll the dice to see if you can.")   
                Dice4 = Console.ReadLine()
                
                If   Dice4 = "1" or Dice4 = "2" or Dice4 = "3" Then
                    Console.WriteLine("You missed the troll.")
                ElseIf Dice3 = "4" or Dice3 = "5" or Dice3 = "6" Then 
                    If   Dice1 = "1" or Dice1 = "2" or  Dice1 = "2" then
                Health = WizHealth - 5
                Console.Writeline("You have "& Health & " points left.")
            End if 
            If   Dice1 = "3" or Dice1 = "4" Then
                Health = HWHealth - 5
                Console.Writeline("You have "& Health & " points left.")
            End if 
            If   Dice1 = "5" or Dice1 = "6" Then
                Health = ElfHealth - 5
                Console.Writeline("You have "& Health & " points left.")
            End if 
        End if
        Loop until Health = 0 or Troll = 0 or Health < 0 or Troll < 0 
        
            
            
            If Dice1= "1" or Dice1 = "2" Then
                If Dice2 = "1" Dice2 = "2" Then 
                    Troll - 30 < 0
            
            
            
                    EndIf 
            
    End Sub
End Module

input a number
nooooo

Last Run:	9:03:43 am
Compile:	0.198s
Execute:	0s
Memory:	32kb
CPU:	0s

View IL Code