[Fork] An Encounter (Game) | C# Online Compiler

[Fork] An Encounter (Game) by Ecotron

Imports System
				
Public Module Module1
	Public Sub Main()
		
		
		'Things I want to add into the game:
		'- Items
		'- Critical Hits
		'- Making the RNG system work
		'- Varied Enemies
		'- Enemy Dialogue
		
		'List of known bugs:
		'- Fleeing the battle will display 100 health left no matter what your actual health is at
		'- Attacking or Healing more than once will go back and change previous attack and heal stats thereby changing health and enemy health
		
		
		
		'Stats
		Dim Health as integer = 100
		Dim EnemyHealth as integer = 100
		Dim APC as New Random()
		Dim AttackPower as integer = (APC.Next(8, 16))
		Dim EAPC as New Random()
		Dim EnemyAttackPower as integer = (EAPC.Next(10, 13))
		Dim HPC as New Random()
		Dim HealingPower as integer = (HPC.Next(7, 20))
		Dim FleeChance as New Random()
		Dim FleeChanceValue as integer = (FleeChance.Next(0, 10))
		Dim EHC as New Random()
		Dim EnemyHealChance as integer = (EHC.Next(1,11))
		Dim EHPC as New Random()
		Dim EnemyHealingPower as integer = (EHPC.Next(0, 15))
		
		'Title
		Console.WriteLine("########################")
		Console.WriteLine("Welcome to The Encounter!")
		Console.WriteLine("########################")
		Console.WriteLine(" ")
		
		'Game Discription
		Dim DescriptionChoice as string = ""
		Console.WriteLine("Would you like a description of what to do?")
		Console.WriteLine(" ")
		Console.WriteLine("-Yes")
		Console.WriteLine("-No")
		Console.WriteLine("-----")
		DescriptionChoice = Console.ReadLine()
		If DescriptionChoice = "Yes" then
			Console.WriteLine("-----")
			Console.WriteLine("You have encountered an enemy while traveling a dark twisted forest. You and this mysterious figure must fight it out... TO THE DEATH!") 
			Console.WriteLine("Type either Attack, Heal, or Flee to choose those actions when prompted.")
			Console.WriteLine("-Attack will lower the enemy's health")
			Console.WriteLine("-Heal will raise your health. (your health caps at 100)")
			Console.WriteLine("-Flee will give you the chance to run away from battle")
			Console.WriteLine("You win by defeating the enemy")
			Console.WriteLine("May the best of luck be with you.")
		Else 
			Console.WriteLine("-----")
			Console.WriteLine("Alrighty Then. Enjoy.")
			
		End If
		
		
		'Name Your Enemy
		Dim EnemyName as string = ""
		Console.WriteLine(" ")
		Console.WriteLine("What is the name of your Enemy?")
		Console.WriteLine(" ")
		Console.WriteLine("-----")
		EnemyName = Console.ReadLine()
		
	
		'Starting Dialogue
		Console.WriteLine("-----")
		Console.WriteLine(EnemyName + " has appeared! (and in quite a dramatic fashion too). What do you wish to do?")
	
		'Battle Loop Start
		'Dim Health as integer = 100
		'Dim EnemyHealth as integer = 100
		Do while EnemyHealth > 0
			
		'Options
			Console.WriteLine(" ")
			Console.WriteLine("You have")
			Console.WriteLine(Health)
			Console.WriteLine("Health left")
			Console.WriteLine(" ")
			Console.WriteLine(EnemyName + " has")
			Console.WriteLine(EnemyHealth)
			Console.WriteLine("Health left.")
		Console.WriteLine(" ")
		Console.WriteLine("-Attack")
		Console.WriteLine("-Heal")
		Console.WriteLine("-Flee")
		'Console.WriteLine("-Item")
		Console.WriteLine("-----")
		Dim UserImput as string = ""
		UserImput = Console.ReadLine()
		
			
		'Attacking action
		If UserImput = "Attack" then
			'Dim APC as New Random()
			'Dim AttackPower as integer = (APC.Next(8, 100))
			EnemyHealth = (EnemyHealth - AttackPower)
			Console.WriteLine("-----")
			Console.WriteLine("You attack " + EnemyName)
			Console.WriteLine(" ")
			Console.WriteLine("You did")
			Console.WriteLine(AttackPower)
			Console.WriteLine("Damage to " + EnemyName)
			Console.WriteLine(" ")
			If EnemyHealth > 0 then
				Console.WriteLine(EnemyName + " has")
				Console.WriteLine(EnemyHealth)
				Console.WriteLine("Health left.")
			End If
		End If
		
		
		'Healing Action
		If UserImput = "Heal" then
			'Dim HPC as New Random()
			'Dim HealingPower as integer = (HPC.Next(7, 20))
			Health = Health + HealingPower
		Console.WriteLine("-----")
		Console.WriteLine("You healed")
		Console.WriteLine(HealingPower)
		Console.WriteLine("of your own health")
		Console.WriteLine(" ")
			If Health > 100 then
				Console.WriteLine("You have fully healed yourself.")
				Health = 100
			Else
			Console.WriteLine("You have")
			Console.WriteLine(Health)
			Console.WriteLIne("Health left")
			End If
		End If
		
	
		'Flee Action
		If UserImput = "Flee" then
	'Dim FleeChance as New Random()
		'Dim FleeChanceValue as integer = (FleeChance.Next(0, 10))
			If FleeChanceValue > 4 then
				Console.WriteLine("-----")
				Console.WriteLine("You managed to escape the battle with ")
				Console.WriteLine(Health)
				Console.WriteLine("Health left! ")
				Console.WriteLine(EnemyName + " calls you a coward.")
			Exit Do
			else
				Console.WriteLine("-----")
				Console.WriteLine("Your attempt was unsucessful.")
			End If
		End If
	
	'Item Menu
	If UserImput = "Item" then
		Console.WriteLine("-----")
		Console.WriteLine("What Item do you choose to use?")
		Console.WriteLine(" ")
		Console.WriteLine("-Health Potion")
		Console.WriteLine("-Holy Hand Grenade")
		Console.WriteLine("-Nuke")
		Console.WriteLine("-Exit Item Menu")
		Console.WriteLine("-----")
		Dim ItemImput as string = ""
		ItemImput = Console.ReadLine()
		
		'Item Actions
		If ItemImput = "Exit Item Menu" then
			Console.WriteLine("-----")
			Continue Do
		Else If ItemImput = "Health Potion" then
			Health = Health + 30
			Console.WriteLine("-----")
			Console.WriteLine("You healed 30 health")
			If Health > 100 then
				Health = 100
				Console.WriteLine(" ")
				Console.WriteLine("You have fully healed yourself.")
			End If
		Else If ItemImput = "Holy Hand Grenade" then
						EnemyHealth = EnemyHealth - 20
						Console.WriteLine("The Holy Hand Grenade did 20 damage!")
					Else If ItemImput = "Nuke" then
						
						
						
						
					
				
		End If
	End If
				
		
	
	
	
	'Winning Message
	If EnemyHealth < 0 then 
		EnemyHealth = 0
	End If
	
	If EnemyHealth <= 0 then
		Console.WriteLine(" ")
		Console.WriteLine("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
		Console.WriteLine("Congratulations! You Won! " + EnemyName + " has been defeated!")
		Console.WriteLine("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
		Exit Do
	End If
			
		
		'Enemy Moves
		'~~~~~~~~~~~
		
		'Heal
	'Dim EHC as New Random()
	'Dim EnemyHealChance as integer = (EHC.Next(1,11))
	If EnemyHealChance > 8 then
			'Dim EHPC as New Random()
			'Dim EnemyHealingPower as integer = (EHPC.Next(0, 15))
			EnemyHealth = EnemyHealth + EnemyHealingPower
				If EnemyHealth > 100 then 
					EnemyHealth = 100
					Console.WriteLine("-----")
					Console.WriteLine(EnemyName + " has healed fully.")
					Console.WriteLine(" ")
				End If
			Console.WriteLine("-----")
			Console.WriteLine(EnemyName + " healed")
			Console.WriteLine(EnemyHealingPower)
			Console.WriteLine("health")
			Console.WriteLine(" ")
			Else
	
		'Attack
				
				'Dim EAPC as New Random()
				'Dim EnemyAttackPower as integer = (EAPC.Next(10, 14))
				Health = Health - EnemyAttackPower
				Console.WriteLine("-----")
				Console.WriteLine(EnemyName + " attacks you")
				Console.WriteLine(" ")
				Console.WriteLine(EnemyName + " did")
				Console.WriteLine(EnemyAttackPower)
				Console.WriteLine("Damage to you")
		End If

'Losing Message

	If Health <= 0 then 
		Console.WriteLine(" ")
		Console.WriteLine("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
		Console.WriteLine(EnemyName + " has defeated you!")
		Console.WriteLine("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
		Exit Do
	End If
		

				Loop

Console.WriteLine(" ")
Console.WriteLine("Thanks for playing!")

		
		
	End Sub
End Module

​x
 
Imports System
                
Public Module Module1
    Public Sub Main()
        
        
        'Things I want to add into the game:
        '- Items
        '- Critical Hits
        '- Making the RNG system work
        '- Varied Enemies
        '- Enemy Dialogue
        
        'List of known bugs:
        '- Fleeing the battle will display 100 health left no matter what your actual health is at
        '- Attacking or Healing more than once will go back and change previous attack and heal stats thereby changing health and enemy health
        
        
        
        'Stats
        Dim Health as integer = 100
        Dim EnemyHealth as integer = 100
        Dim APC as New Random()
        Dim AttackPower as integer = (APC.Next(8, 16))
        Dim EAPC as New Random()
        Dim EnemyAttackPower as integer = (EAPC.Next(10, 13))
        Dim HPC as New Random()
        Dim HealingPower as integer = (HPC.Next(7, 20))
        Dim FleeChance as New Random()
        Dim FleeChanceValue as integer = (FleeChance.Next(0, 10))
        Dim EHC as New Random()
        Dim EnemyHealChance as integer = (EHC.Next(1,11))
        Dim EHPC as New Random()
        Dim EnemyHealingPower as integer = (EHPC.Next(0, 15))
        
        'Title
        Console.WriteLine("########################")
        Console.WriteLine("Welcome to The Encounter!")
        Console.WriteLine("########################")
        Console.WriteLine(" ")
        
        'Game Discription
        Dim DescriptionChoice as string = ""
        Console.WriteLine("Would you like a description of what to do?")
        Console.WriteLine(" ")
        Console.WriteLine("-Yes")
        Console.WriteLine("-No")
        Console.WriteLine("-----")
        DescriptionChoice = Console.ReadLine()
        If DescriptionChoice = "Yes" then
            Console.WriteLine("-----")
            Console.WriteLine("You have encountered an enemy while traveling a dark twisted forest. You and this mysterious figure must fight it out... TO THE DEATH!") 
            Console.WriteLine("Type either Attack, Heal, or Flee to choose those actions when prompted.")
            Console.WriteLine("-Attack will lower the enemy's health")
            Console.WriteLine("-Heal will raise your health. (your health caps at 100)")
            Console.WriteLine("-Flee will give you the chance to run away from battle")
            Console.WriteLine("You win by defeating the enemy")
            Console.WriteLine("May the best of luck be with you.")
        Else 
            Console.WriteLine("-----")
            Console.WriteLine("Alrighty Then. Enjoy.")
            
        End If
        
        
        'Name Your Enemy
        Dim EnemyName as string = ""
        Console.WriteLine(" ")
        Console.WriteLine("What is the name of your Enemy?")
        Console.WriteLine(" ")
        Console.WriteLine("-----")
        EnemyName = Console.ReadLine()
        
    
        'Starting Dialogue
        Console.WriteLine("-----")
        Console.WriteLine(EnemyName + " has appeared! (and in quite a dramatic fashion too). What do you wish to do?")
    
        'Battle Loop Start
        'Dim Health as integer = 100
        'Dim EnemyHealth as integer = 100
        Do while EnemyHealth > 0
            
        'Options
            Console.WriteLine(" ")
            Console.WriteLine("You have")
            Console.WriteLine(Health)
            Console.WriteLine("Health left")
            Console.WriteLine(" ")
            Console.WriteLine(EnemyName + " has")
            Console.WriteLine(EnemyHealth)
            Console.WriteLine("Health left.")
        Console.WriteLine(" ")
        Console.WriteLine("-Attack")
        Console.WriteLine("-Heal")
        Console.WriteLine("-Flee")
        'Console.WriteLine("-Item")
        Console.WriteLine("-----")
        Dim UserImput as string = ""
        UserImput = Console.ReadLine()
        
            
        'Attacking action
        If UserImput = "Attack" then
            'Dim APC as New Random()
            'Dim AttackPower as integer = (APC.Next(8, 100))
            EnemyHealth = (EnemyHealth - AttackPower)
            Console.WriteLine("-----")
            Console.WriteLine("You attack " + EnemyName)
            Console.WriteLine(" ")
            Console.WriteLine("You did")
            Console.WriteLine(AttackPower)
            Console.WriteLine("Damage to " + EnemyName)
            Console.WriteLine(" ")
            If EnemyHealth > 0 then
                Console.WriteLine(EnemyName + " has")
                Console.WriteLine(EnemyHealth)
                Console.WriteLine("Health left.")
            End If
        End If
        
        
        'Healing Action
        If UserImput = "Heal" then
            'Dim HPC as New Random()
            'Dim HealingPower as integer = (HPC.Next(7, 20))
            Health = Health + HealingPower
        Console.WriteLine("-----")
        Console.WriteLine("You healed")
        Console.WriteLine(HealingPower)
        Console.WriteLine("of your own health")
        Console.WriteLine(" ")
            If Health > 100 then
                Console.WriteLine("You have fully healed yourself.")
                Health = 100
            Else
            Console.WriteLine("You have")
            Console.WriteLine(Health)
            Console.WriteLIne("Health left")
            End If
        End If
        
    
        'Flee Action
        If UserImput = "Flee" then
    'Dim FleeChance as New Random()
        'Dim FleeChanceValue as integer = (FleeChance.Next(0, 10))
            If FleeChanceValue > 4 then
                Console.WriteLine("-----")
                Console.WriteLine("You managed to escape the battle with ")
                Console.WriteLine(Health)
                Console.WriteLine("Health left! ")
                Console.WriteLine(EnemyName + " calls you a coward.")
            Exit Do
            else
                Console.WriteLine("-----")
                Console.WriteLine("Your attempt was unsucessful.")
            End If
        End If
    
    'Item Menu
    If UserImput = "Item" then
        Console.WriteLine("-----")
        Console.WriteLine("What Item do you choose to use?")
        Console.WriteLine(" ")
        Console.WriteLine("-Health Potion")
        Console.WriteLine("-Holy Hand Grenade")
        Console.WriteLine("-Nuke")
        Console.WriteLine("-Exit Item Menu")
        Console.WriteLine("-----")
        Dim ItemImput as string = ""
        ItemImput = Console.ReadLine()
        
        'Item Actions
        If ItemImput = "Exit Item Menu" then
            Console.WriteLine("-----")
            Continue Do
        Else If ItemImput = "Health Potion" then
            Health = Health + 30
            Console.WriteLine("-----")
            Console.WriteLine("You healed 30 health")
            If Health > 100 then
                Health = 100
                Console.WriteLine(" ")
                Console.WriteLine("You have fully healed yourself.")
            End If
        Else If ItemImput = "Holy Hand Grenade" then
                        EnemyHealth = EnemyHealth - 20
                        Console.WriteLine("The Holy Hand Grenade did 20 damage!")
                    Else If ItemImput = "Nuke" then
                        
                        
                        
                        
                    
                
        End If
    End If
                
        
    
    
    
    'Winning Message
    If EnemyHealth < 0 then 
        EnemyHealth = 0
    End If
    
    If EnemyHealth <= 0 then
        Console.WriteLine(" ")
        Console.WriteLine("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
        Console.WriteLine("Congratulations! You Won! " + EnemyName + " has been defeated!")
        Console.WriteLine("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
        Exit Do
    End If
            
        
        'Enemy Moves
        '~~~~~~~~~~~
        
        'Heal
    'Dim EHC as New Random()
    'Dim EnemyHealChance as integer = (EHC.Next(1,11))
    If EnemyHealChance > 8 then
            'Dim EHPC as New Random()
            'Dim EnemyHealingPower as integer = (EHPC.Next(0, 15))
            EnemyHealth = EnemyHealth + EnemyHealingPower
                If EnemyHealth > 100 then 
                    EnemyHealth = 100
                    Console.WriteLine("-----")
                    Console.WriteLine(EnemyName + " has healed fully.")
                    Console.WriteLine(" ")
                End If
            Console.WriteLine("-----")
            Console.WriteLine(EnemyName + " healed")
            Console.WriteLine(EnemyHealingPower)
            Console.WriteLine("health")
            Console.WriteLine(" ")
            Else
    
        'Attack
                
                'Dim EAPC as New Random()
                'Dim EnemyAttackPower as integer = (EAPC.Next(10, 14))
                Health = Health - EnemyAttackPower
                Console.WriteLine("-----")
                Console.WriteLine(EnemyName + " attacks you")
                Console.WriteLine(" ")
                Console.WriteLine(EnemyName + " did")
                Console.WriteLine(EnemyAttackPower)
                Console.WriteLine("Damage to you")
        End If
​
'Losing Message
​
    If Health <= 0 then 
        Console.WriteLine(" ")
        Console.WriteLine("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
        Console.WriteLine(EnemyName + " has defeated you!")
        Console.WriteLine("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
        Exit Do
    End If
        
​
                Loop
​
Console.WriteLine(" ")
Console.WriteLine("Thanks for playing!")
​
        
        
    End Sub
End Module

How many hours?

Cached Result
Last Run:	7:25:26 am
Compile:	0.109s
Execute:	0s
Memory:	32kb
CPU:	0s

View IL Code