[Fork] Fighting Code | C# Online Compiler

[Fork] Fighting Code by Matthew Thomas

Imports System

Public Module Module1

	Dim r as new Random()

	Dim hp As Integer = 10

	Dim mhp As Integer = 15

	Dim round as Integer

	Dim anger As Integer = 3

	Public Sub Main()
		Console.WriteLine("                                                                        " & hp & "hp")
		Console.WriteLine(" ")
		Console.WriteLine(" ")
		Console.WriteLine(" ")
		Console.WriteLine(" ")
		Console.WriteLine("                        A Monster Approaches You!")
		Console.WriteLine("")
		Console.WriteLine(" ")
		Console.WriteLine(" ")
		Console.WriteLine(" ")
		Console.WriteLine(" ")
		Console.WriteLine(" ")
		Console.WriteLine(" ")
		Console.WriteLine(" ")
		Console.WriteLine(" Press Enter to Continue: ")
		Console.ReadLine()
		Console.Clear()
		While not checkDead
			round += 1
			game()
			Console.WriteLine(" Press Enter to Continue: ")
			Console.ReadLine()
		End While
	End Sub

	Sub Game
		Dim Fight As String
		Dim num As String
		Console.Clear()
		Console.WriteLine("Round: " & round)
		Console.WriteLine("                                                                        " & hp & "hp")
		Console.WriteLine(" ")
		Console.WriteLine("                                                                        " & mhp & " Monsters hp")
		Console.WriteLine(" ")
		Console.WriteLine("                             ")
		Console.WriteLine("                           Stab     Punch   Block")
		Console.WriteLine("                                    Spare")
		Console.WriteLine(" ")
		Console.WriteLine(" ")
		Console.WriteLine(" ")
		Console.WriteLine("1) Stab ")
		Console.WriteLine("2) Punch ")
		Console.WriteLine("3) Block ")
		Console.WriteLine("4) Spare ")
		Fight = Console.ReadLine()
		Select Fight
			Case 1 : Console.Clear()
				num = getRandom
				anger += 2
				If num = "1" Then
					mhp = mhp - 3
					Console.WriteLine("                                                                        " & hp & "hp")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("                                                                        " & mhp & " Monsters hp")
					Console.WriteLine("                             ")
					Console.WriteLine("                          ")
					Console.WriteLine("                                Strong Hit          ")
					Console.WriteLine("                     You Hit The Monster For 3 Damage")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("")
					Console.WriteLine("")
					Console.WriteLine("")
					Console.WriteLine("")
				ElseIf num = "2" Then
					mhp = mhp - 2
					Console.WriteLine("                                                                        " & hp & "hp")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("                                                                        " & mhp & " Monsters hp")
					Console.WriteLine("                             ")
					Console.WriteLine("                          ")
					Console.WriteLine("                                 Weak Hit          ")
					Console.WriteLine("                     You Hit The Monster For 2 Damage")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("")
					Console.WriteLine(" ")
					Console.WriteLine("")
				ElseIf num = "3" Then
					hp = hp - 2
					Console.WriteLine("                                                                        " & hp & "hp")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("                                                                        " & mhp & " Monsters hp")
					Console.WriteLine("                             ")
					Console.WriteLine("                          ")
					Console.WriteLine("                                You Missed         ")
					Console.WriteLine("                     The Moster Hit You For 2 Damage")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("")
					Console.WriteLine("")
					Console.WriteLine("")
					Console.WriteLine("")
				End If

			Case 2 : Console.Clear()
				num = getRandom
			anger += 1
				If num = "1" Then
					mhp = mhp - 3
					Console.WriteLine("                                                                        " & hp & "hp")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("                                                                        " & mhp & " Monsters hp")
					Console.WriteLine("                             ")
					Console.WriteLine("                          ")
					Console.WriteLine("                                Strong Hit          ")
					Console.WriteLine("                     You Hit The Monster For 2 Damage")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("")
					Console.WriteLine("")
					Console.WriteLine("")
					Console.WriteLine("")
				ElseIf num = "2" Then
					mhp = mhp - 2
					Console.WriteLine("                                                                        " & hp & "hp")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("                                                                        " & mhp & " Monsters hp")
					Console.WriteLine("                             ")
					Console.WriteLine("                          ")
					Console.WriteLine("                                 Weak Hit          ")
					Console.WriteLine("                     You Hit The Monster For 1 Damage")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("")
					Console.WriteLine(" ")
					Console.WriteLine("")
				ElseIf num = "3" Then
					hp = hp - 2
					Console.WriteLine("                                                                        " & hp & "hp")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("                                                                        " & mhp & " Monsters hp")
					Console.WriteLine("                             ")
					Console.WriteLine("                          ")
					Console.WriteLine("                                You Missed         ")
					Console.WriteLine("                     The Moster Hit You For 2 Damage")
					Console.WriteLine(" ")
					Console.WriteLine(" ")
					Console.WriteLine("")
					Console.WriteLine("")
					Console.WriteLine("")
					Console.WriteLine("")
				End If

			Case 3:
		Case 4:
		End Select
	End Sub

	Function checkDead as boolean
		Console.Clear()
		Console.WriteLine("Round: " & round)
		If mhp <= 0 Then
			Console.WriteLine("                                                                        " & hp & "hp")
			Console.WriteLine(" ")
			Console.WriteLine(" ")
			Console.WriteLine("                                                                        " & mhp & " Monsters hp")
			Console.WriteLine("                             ")
			Console.WriteLine("                          ")
			Console.WriteLine("                                     ")
			Console.WriteLine("                        You Have Killed The Monster!!!")
			Console.WriteLine(" ")
			Console.WriteLine(" ")
			Console.WriteLine("")
			Console.WriteLine("")
			Console.WriteLine("")
			Console.WriteLine("")
			return true
		End If

		If hp <= 0 Then
			Console.WriteLine("                                                                        " & hp & "hp")
			Console.WriteLine(" ")
			Console.WriteLine(" ")
			Console.WriteLine("                                                                        " & mhp & " Monsters hp")
			Console.WriteLine("                             ")
			Console.WriteLine("                          ")
			Console.WriteLine("                                     ")
			Console.WriteLine("                            You Have Been Killed")
			Console.WriteLine(" ")
			Console.WriteLine(" ")
			Console.WriteLine(" ")
			Console.WriteLine(" ")
			Console.WriteLine(" ")
			Console.WriteLine(" ")
			return true
		End If

		return false 'no on is dead, keep playing
	End Function

	Function getRandom as Integer
		return r.Next(1, 4)
	end Function
End Module

​x
 
Imports System
​
Public Module Module1
​
    Dim r as new Random()
​
    Dim hp As Integer = 10
​
    Dim mhp As Integer = 15
​
    Dim round as Integer
​
    Dim anger As Integer = 3
​
    Public Sub Main()
        Console.WriteLine("                                                                        " & hp & "hp")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine("                        A Monster Approaches You!")
        Console.WriteLine("")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine(" Press Enter to Continue: ")
        Console.ReadLine()
        Console.Clear()
        While not checkDead
            round += 1
            game()
            Console.WriteLine(" Press Enter to Continue: ")
            Console.ReadLine()
        End While
    End Sub
​
    Sub Game
        Dim Fight As String
        Dim num As String
        Console.Clear()
        Console.WriteLine("Round: " & round)
        Console.WriteLine("                                                                        " & hp & "hp")
        Console.WriteLine(" ")
        Console.WriteLine("                                                                        " & mhp & " Monsters hp")
        Console.WriteLine(" ")
        Console.WriteLine("                             ")
        Console.WriteLine("                           Stab     Punch   Block")
        Console.WriteLine("                                    Spare")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine("1) Stab ")
        Console.WriteLine("2) Punch ")
        Console.WriteLine("3) Block ")
        Console.WriteLine("4) Spare ")
        Fight = Console.ReadLine()
        Select Fight
            Case 1 : Console.Clear()
                num = getRandom
                anger += 2
                If num = "1" Then
                    mhp = mhp - 3
                    Console.WriteLine("                                                                        " & hp & "hp")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("                                                                        " & mhp & " Monsters hp")
                    Console.WriteLine("                             ")
                    Console.WriteLine("                          ")
                    Console.WriteLine("                                Strong Hit          ")
                    Console.WriteLine("                     You Hit The Monster For 3 Damage")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("")
                    Console.WriteLine("")
                    Console.WriteLine("")
                    Console.WriteLine("")
                ElseIf num = "2" Then
                    mhp = mhp - 2
                    Console.WriteLine("                                                                        " & hp & "hp")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("                                                                        " & mhp & " Monsters hp")
                    Console.WriteLine("                             ")
                    Console.WriteLine("                          ")
                    Console.WriteLine("                                 Weak Hit          ")
                    Console.WriteLine("                     You Hit The Monster For 2 Damage")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("")
                    Console.WriteLine(" ")
                    Console.WriteLine("")
                ElseIf num = "3" Then
                    hp = hp - 2
                    Console.WriteLine("                                                                        " & hp & "hp")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("                                                                        " & mhp & " Monsters hp")
                    Console.WriteLine("                             ")
                    Console.WriteLine("                          ")
                    Console.WriteLine("                                You Missed         ")
                    Console.WriteLine("                     The Moster Hit You For 2 Damage")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("")
                    Console.WriteLine("")
                    Console.WriteLine("")
                    Console.WriteLine("")
                End If
​
            Case 2 : Console.Clear()
                num = getRandom
            anger += 1
                If num = "1" Then
                    mhp = mhp - 3
                    Console.WriteLine("                                                                        " & hp & "hp")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("                                                                        " & mhp & " Monsters hp")
                    Console.WriteLine("                             ")
                    Console.WriteLine("                          ")
                    Console.WriteLine("                                Strong Hit          ")
                    Console.WriteLine("                     You Hit The Monster For 2 Damage")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("")
                    Console.WriteLine("")
                    Console.WriteLine("")
                    Console.WriteLine("")
                ElseIf num = "2" Then
                    mhp = mhp - 2
                    Console.WriteLine("                                                                        " & hp & "hp")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("                                                                        " & mhp & " Monsters hp")
                    Console.WriteLine("                             ")
                    Console.WriteLine("                          ")
                    Console.WriteLine("                                 Weak Hit          ")
                    Console.WriteLine("                     You Hit The Monster For 1 Damage")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("")
                    Console.WriteLine(" ")
                    Console.WriteLine("")
                ElseIf num = "3" Then
                    hp = hp - 2
                    Console.WriteLine("                                                                        " & hp & "hp")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("                                                                        " & mhp & " Monsters hp")
                    Console.WriteLine("                             ")
                    Console.WriteLine("                          ")
                    Console.WriteLine("                                You Missed         ")
                    Console.WriteLine("                     The Moster Hit You For 2 Damage")
                    Console.WriteLine(" ")
                    Console.WriteLine(" ")
                    Console.WriteLine("")
                    Console.WriteLine("")
                    Console.WriteLine("")
                    Console.WriteLine("")
                End If
​
            Case 3:
        Case 4:
        End Select
    End Sub
​
    Function checkDead as boolean
        Console.Clear()
        Console.WriteLine("Round: " & round)
        If mhp <= 0 Then
            Console.WriteLine("                                                                        " & hp & "hp")
            Console.WriteLine(" ")
            Console.WriteLine(" ")
            Console.WriteLine("                                                                        " & mhp & " Monsters hp")
            Console.WriteLine("                             ")
            Console.WriteLine("                          ")
            Console.WriteLine("                                     ")
            Console.WriteLine("                        You Have Killed The Monster!!!")
            Console.WriteLine(" ")
            Console.WriteLine(" ")
            Console.WriteLine("")
            Console.WriteLine("")
            Console.WriteLine("")
            Console.WriteLine("")
            return true
        End If
​
        If hp <= 0 Then
            Console.WriteLine("                                                                        " & hp & "hp")
            Console.WriteLine(" ")
            Console.WriteLine(" ")
            Console.WriteLine("                                                                        " & mhp & " Monsters hp")
            Console.WriteLine("                             ")
            Console.WriteLine("                          ")
            Console.WriteLine("                                     ")
            Console.WriteLine("                            You Have Been Killed")
            Console.WriteLine(" ")
            Console.WriteLine(" ")
            Console.WriteLine(" ")
            Console.WriteLine(" ")
            Console.WriteLine(" ")
            Console.WriteLine(" ")
            return true
        End If
​
        return false 'no on is dead, keep playing
    End Function
​
    Function getRandom as Integer
        return r.Next(1, 4)
    end Function
End Module
​

View IL Code