Module Module1

    Dim userweapon As String = ""

    Dim Creatures() As String = {"goblin", "man", "orc", "elf", "creature", "being", "troll", "giant", "bandit", "archer", "swordsman", "ranger", "trekker", "wanderer", "wizard", "adventurer",
                              "entity", "ghost", "skeleton", "zombie", "spirit", "protegent 360 antivirus software", "demigod", "vampire", "warper", "dragon", "snake", "spider", "beast", "sorcerer", "ant", "B O I"}

    Dim CreaturesDesc() As String = {"small", "large", "slim", "slimy", "long", "bored-looking", "tired-looking", "colourful", "shiny", "angry", "furious", "ravenous", "insane", "injured", "proud-looking", "strong",
                                      "powerful", "muscular", "incredible", "impressive", "dangerous", "weird-looking", "strange", "shadowy", "shifty", "ridiculous-looking", "crazed", "long-armed", "long-legged", "sickly",
                                      "diseased", "yucky", "vile", "exuberant", "alert", "dirty", "filthy", "depressed", "sophisticated", "suspicious", "confused-looking", "boistrous", "devious", "super"}


    Sub Forward()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("Forward")
        Console.ForegroundColor = ConsoleColor.Gray
    End Sub


    Function RandomItem(ByVal succarray As Array)
        Return succarray(Math.Floor(Rnd() * succarray.Length))
    End Function

    Sub Engagements(ByVal WinChance As Decimal, ByVal FleeChance As Decimal)
        Console.WriteLine("What will you do? Fight (1) or flee (2)?")

        Dim RandomDeathCombatStart() As String = {"How unfortunate!", "Uh Oh!", "Oops!", "Oh dear!", "How could this happen?", "What bad luck!", "How unfair!", "What a cruel twist of fate!", "Luck was not on your side.",
                                                  "Fate was not kind to you.", "Looks like you werent skilled enough!", "What a cruel end!", "What an unlucky end!", "Your efforts were in vain!"}

        Dim RandomKillCombatEnd() As String = {"Wow!", "Amazing!", "Incredible!", "Stunning!", "What a fight!", "What a battle!", "That was intense!", "That was insane!", "What a display of skill!", "What a display of power!",
                                               "How did you do that!?", "Simply epic!", "Awesome work!", "Unbelievable!"}

        Dim RandomDeathCombat() As String = {RandomItem(RandomDeathCombatStart) & " Your efforts were in vain - your opponent has struck a killing blow!", RandomItem(RandomDeathCombatStart) &
                                             " Your enemy dashes around much faster than you can see and swiftly executes you!", RandomItem(RandomDeathCombatStart) & " Your foe punches dirctly through your heart.",
                                             RandomItem(RandomDeathCombatStart) & " The enemy beats you to the ground and rips your head off.", RandomItem(RandomDeathCombatStart) & " The enemy kills you in a single hit.",
                                             RandomItem(RandomDeathCombatStart) & " The foe defeats you with the agility of a " & (RandomItem(CreaturesDesc)) & " " & (RandomItem(Creatures)) & " and the power of a " & (RandomItem(CreaturesDesc)) & (RandomItem(Creatures)) & "!",
                                             RandomItem(RandomDeathCombatStart) & " The foe defeats you as if it were a " & (RandomItem(CreaturesDesc)) & " " & (RandomItem(Creatures)) & "."}

        Dim RandomKillCombat() As String = {RandomItem(RandomKillCombatEnd) & " You shred the enemy with brutal speed and efficiency with your " & userweapon & ".",
                                            RandomItem(RandomKillCombatEnd) & " You rip the enemy to pieces in a split second with only a single blow from your " & userweapon & ".",
                                            RandomItem(RandomKillCombatEnd) & " You use a spell to teleport behind the enemy and then thrust your " & userweapon & " into it, ending its life.",
                                            RandomItem(RandomKillCombatEnd) & " You distract the foe with a hologram spell before decapitating it with a swift strike.",
                                            RandomItem(RandomKillCombatEnd) & " You kill it with the speed of a " & (RandomItem(CreaturesDesc)) & " " & (RandomItem(Creatures)) & " and the power of a " & " " & (RandomItem(CreaturesDesc)) & " " & (RandomItem(Creatures)) & ".",
                                            RandomItem(RandomKillCombatEnd) & " You annihilate its useless defence with an overpowering blow, leaving it dead on the ground.",
                                            RandomItem(RandomKillCombatEnd) & " Using the spirit of the " & (RandomItem(CreaturesDesc)) & " " & (RandomItem(Creatures)) & ", you obliterate its molecular structure in a single hit.",
                                            RandomItem(RandomKillCombatEnd) & " You think back to the times when you trained with the " & (RandomItem(CreaturesDesc)) & " " & (RandomItem(Creatures)) & ". Newly imbued with power, you send the enemy straight to the eternal void.",
                                            RandomItem(RandomKillCombatEnd) & " Your master, the " & (RandomItem(CreaturesDesc)) & " " & (RandomItem(Creatures)) & ", taught you exactly what to do in this situatuon. You erase the enemys puny existance with a magic empowered critical strike."}

        Dim userinput = Console.ReadLine
        If userinput = "1" Then
            If Rnd() < WinChance Then
                Console.WriteLine(RandomItem(RandomKillCombat))
                Console.ReadLine()
                End
            Else
                Console.WriteLine(RandomItem(RandomDeathCombat))
                GameOver()
            End If
        ElseIf userinput = "2" Then
            If Rnd() < FleeChance Then
                Console.WriteLine("You left successfully.")
            Else
                Console.WriteLine("You can not outrun your foe.")
                GameOver()
            End If
        End If
    End Sub

    Sub GameOver()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("YOU ARE DEAD")
        Console.ReadLine()
        End
    End Sub

    Function Weapon() As String

        Dim Weaponarray() As String = {"Sword", "Flail", "Crossbow", "Dagger", "Stick", "Claymore", "Halberd", "Katana", "Longsword", "Bow", "Spear", "Scimitar", "War Hammer", "Greatsword", "Lance", "Mace", "Glaive", "Pike", "Staff",
                          "Protegent 360 antivirus"}

        Dim WeaponModifiersarray() As String = {"accurate", "basic", "crude", "savage", "big", "large", "small", "tiny", "broken", "blunt", "common", "concealed", "hidden", "custom-made", "deadly", "defensive", "offensive", "explosive", "magic", "cursed", "enchanted",
                                           "fearsome", "heavy", "huge", "laser-firing", "flame-emitting", "flame-spewing", "plasma-emitting", "lighting-shooting", "thunder-causing", "hefty", "overweight", "thermonuclear", "void", "peculiar", "wooden", "steel",
                                           "sharpened", "primitive", "spiritual", "ultimate", "spiked", "flexible", "useless", "stupid", "non-functional", "over-powered", "precious", "special"}

        Dim Randomwep = Rnd()

        If Randomwep > 0.9 Then
            Return (RandomItem(Weaponarray))
        ElseIf Randomwep > 0.6 Then
            Return (RandomItem(WeaponModifiersarray) & " " & (RandomItem(Weaponarray)))
        ElseIf Randomwep > 0.2 Then
            Return (RandomItem(WeaponModifiersarray) & " " & (RandomItem(WeaponModifiersarray) & " " & (RandomItem(Weaponarray))))
        Else
            Return (RandomItem(WeaponModifiersarray) & " " & (RandomItem(WeaponModifiersarray) & " " & (RandomItem(WeaponModifiersarray) & " " & (RandomItem(Weaponarray)))))
        End If

    End Function


    Sub Main()

        Randomize()

        Dim RandomDeath() As String = {"You trip on a small stick and break your neck in a comical fashion.",
                                       "You take one step and die from the cancer you never knew you had.",
                                       "Unfortunately, you are ambushed and assasinated by ninja bandits.",
                                       "Unfortunately, you anger a level 999 wizard who strikes you down with a wicked spell.",
                                       "Unfortunately, you anger a paticularly irate creature which ravenously tears you to shreds without giving you a chance.",
                                       "What a twiste of fate! You stumble upon a flesh-eating ants nest. They swarm and consume in only a moment.",
                                       "Oh Dear! You find out you have a fatal fruit allergy by eating some off a nearby tree.",
                                       "Oops! You accidently step on a magical spell, set up to kill adventurers that incinerates you in an instant.",
                                       "H E H A S C O M E .",
                                       "I T S H I M ."}

        Dim Words() As String = {"putrid", "disgusting", "revolting", "assualting", "horrible", "violating", "sickening", "toxic", "repulsive"}
        Dim Followup() As String = {" scent attacks your senses.",
                                         " scent assaults your senses.",
                                         " smell violates your nose.",
                                         " armoa wafts around the air.",
                                         " scent hangs in the air.",
                                         " aroma hangs in the air.",
                                         " scent makes the air thicc.",
                                         " stench makes the air thicc.",
                                         " stench hangs in the air.",
                                         " stench insults your very being.",
                                         " aroma insults your very being."}

        Dim EncounterANGRY() As String = {"It lunges at you and you just barely evade it.", "It starts yelling as loud as it can.", "It looks primed and ready to fight...", "It assumes a fighting stance.",
                                           "It stares at you with fierce eyes...", "The look it gives you tells you its not mucking about.", "Seems like this could be bad...", "Seems like a fight is ahead of you..."}

        Dim EncounterFRIENDLY() As String = {"It simply wishes you well on your journey.", "It gives you a friendly nod of greeting", "Wow its cheering and shouting encouragement about how well you are doing.",
                                              "It offers a bowl of food to you. You take it and store it for your journey.", "It asks if you would like to sit by its fire with it. You politely decline and carry on your way.",
                                              "It gives you a friendly wave! How nice!", "Its initially startled by your appearance but quickly realises what you are and flashes you a smile.", "It says hey and passes by you"}

        Dim EncounterCALM() As String = {"You approach. It doesnt even look up at you...", "It silently passes you...", "It produces no sound at all as it passes by...", "Its eerie nature is visible even from a great distance...",
                                          "You feel a chill pass down your spine as you pass it...", "It observes you silently as you pass...", "It watches you from above as you pass beneath it...", "It just watches...",
                                          "It freezes completely as you approach. Perfectly motionless...", "It creepily chuckles to itself as you walk by...", "It spookily whispers to itself as you pass by..."}

        Dim EncounterDEAD() As String = {"Most certainly dead. Looks like it was killed by a " & Weapon(), "Totally pale and lifeless. You pray whatever killed it isnt still around...",
                                          "Killed by a " & Weapon() & ". Brutal", "Drained of all its blood. You hope never to see the thing that did this...", "Looks like it was killed by a " & Weapon(),
                                          "Looks like a " & Weapon() & " killed it. Thank god. You didnt want to deal with it...", "Could have been a" & Weapon() & "? But it also could have been a " & Weapon() & "...",
                                          "A " & Weapon() & "? A " & Weapon() & "? No must have been a " & Weapon()}

        ' Dim Health As Integer = 100
        ' Dim Shield As Integer = 0
        ' Dim Attack As Integer = 20

        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("Please input your name:")
        Console.ForegroundColor = ConsoleColor.Gray
        Dim username As String = Console.ReadLine

        Dim class1 = ""
        Dim class2 = ""
        Dim class3 = ""

        Do Until class1 <> class2 And class1 <> class3 And class2 <> class3
            class1 = UCase(RandomItem(Creatures))
            class2 = UCase(RandomItem(Creatures))
            class3 = UCase(RandomItem(Creatures))
        Loop

        Console.WriteLine()
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("Pick your class:  ")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(class1 & " ---> +10 to Attack, -30 from health (1)")
        Console.WriteLine(class2 & " ---> +3 to Attack, -10 from health (2)")
        Console.WriteLine(class3 & " ---> No Change (3)")

        Dim userinput = Console.ReadLine
        Dim userclass As String = ""
        If userinput = "1" Then
            userclass = class1
            ' Health = 8
            ' Attack = 12
        ElseIf userinput = "2" Then
            userclass = class2
            '  Attack =
        ElseIf userinput = "3" Then
            userclass = class3
        End If

        Dim weapon1 = ""
        Dim weapon2 = ""
        Dim weapon3 = ""

        Do Until weapon1 <> weapon2 And weapon1 <> weapon3 And weapon2 <> weapon3
            weapon1 = UCase(Weapon())
            weapon2 = UCase(Weapon())
            weapon3 = UCase(Weapon())
        Loop

        Console.WriteLine()
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("Choose your weapon:  ")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(UCase(weapon1) & " (1)")
        Console.WriteLine(UCase(weapon2) & " (2)")
        Console.WriteLine(UCase(weapon3) & " (3)")

        userinput = Console.ReadLine
        If userinput = "1" Then
            userweapon = weapon1
        ElseIf userinput = "2" Then
            userweapon = weapon2
        ElseIf userinput = "3" Then
            userweapon = weapon3
        End If

        Console.WriteLine()
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("YOU ARE: ")
        Console.ForegroundColor = ConsoleColor.Yellow
        Console.WriteLine((UCase(username) & ", THE " & UCase(RandomItem(CreaturesDesc)) & " " & userclass & " WITH A " & UCase(userweapon)))
        Console.ForegroundColor = ConsoleColor.Gray
        Console.ReadLine()

        Console.WriteLine("You are in the middle of nowhere. Which way would you like to go?")
        Console.WriteLine("Forward(1), Back(2), Left(3) or Right(4)?")

        userinput = Console.ReadLine

        If userinput = "1" Then

            If Rnd() < 0.95 Then

                Forward()

                Dim Random = Rnd()

                Dim Creature1 = ""
                Dim Creature2 = ""
                Dim Creature3 = ""

                Do Until Creature1 <> Creature2 And Creature1 <> Creature3 And Creature2 <> Creature3
                    Creature1 = UCase(RandomItem(Creatures))
                    Creature2 = UCase(RandomItem(Creatures))
                    Creature3 = UCase(RandomItem(Creatures))
                Loop

                Console.WriteLine("You arrive in a swamp. The " & RandomItem(Words) & RandomItem(Followup))
                Console.WriteLine()
                If Random > 0.9 Then
                    Console.WriteLine("In front of you is a " & Creature1)
                ElseIf Random > 0.6 Then
                    Console.WriteLine("In front of you is a " & RandomItem(CreaturesDesc) & " " & Creature1)
                ElseIf Random > 0.3 Then
                    Console.WriteLine("In front of you is a " & RandomItem(CreaturesDesc) & " " & RandomItem(CreaturesDesc) & " " & Creature1)
                Else
                    Console.WriteLine("In front of you is a " & RandomItem(CreaturesDesc) & " " & RandomItem(CreaturesDesc) & " " & RandomItem(CreaturesDesc) & " " & Creature1)
                End If

                Dim Random1 = Rnd()

                If Random1 > 0.9 Then
                    Console.WriteLine("To your left is a " & Creature2)
                ElseIf Random1 > 0.6 Then
                    Console.WriteLine("To your left is a " & RandomItem(CreaturesDesc) & " " & Creature2)
                ElseIf Random1 > 0.3 Then
                    Console.WriteLine("To your left is a " & RandomItem(CreaturesDesc) & " " & RandomItem(CreaturesDesc) & " " & Creature2)
                Else
                    Console.WriteLine("To your left is a " & RandomItem(CreaturesDesc) & " " & RandomItem(CreaturesDesc) & " " & RandomItem(CreaturesDesc) & " " & Creature2)
                End If

                Dim Random2 = Rnd()

                If Random2 > 0.9 Then
                    Console.WriteLine("To your right is a " & Creature3)
                ElseIf Random2 > 0.6 Then
                    Console.WriteLine("To your right is a " & RandomItem(CreaturesDesc) & " " & Creature3)
                ElseIf Random2 > 0.3 Then
                    Console.WriteLine("To your right is a " & RandomItem(CreaturesDesc) & " " & RandomItem(CreaturesDesc) & " " & Creature3)
                Else
                    Console.WriteLine("To your left is a " & RandomItem(CreaturesDesc) & " " & RandomItem(CreaturesDesc) & " " & RandomItem(CreaturesDesc) & " " & Creature3)
                End If
                Console.WriteLine("Which way would you like to go?")
                Console.WriteLine("Forward(1), Left(2) or Right(3)?")

            Else
                Console.ForegroundColor = ConsoleColor.Red
                Console.WriteLine(RandomItem(RandomDeath) & " YOU ARE DEAD.")
                Console.ReadLine()
                End

            End If
            '-------------------------------------------------------------------------------------------------------------ROUTE 1

            userinput = Console.ReadLine
            If userinput = "1" Or userinput = "2" Or userinput = "3" Then
                Dim Creature1 As String = ""
                Dim RandomChar = Rnd()

                If RandomChar < 0.25 Then
                    Console.WriteLine("The " & Creature1 & " is aggressive!" & " " & RandomItem(EncounterANGRY))                                     'ANGERY BOI
                    Engagements(0.5, 0.5)

                ElseIf RandomChar < 0.5 Then
                    Console.WriteLine("Its very friendly." & " " & RandomItem(EncounterFRIENDLY))                                    'FRIENDLY BOI
                    Engagements(0.6, 1)

                ElseIf RandomChar < 0.75 Then
                    Console.WriteLine("Its strangely unphased by your prescence." & " " & RandomItem(EncounterCALM))                     'CALM BOI
                    Engagements(0.7, 1)


                Else
                    Console.WriteLine("Upon closer inspection, it seems to be dead." & " " & RandomItem(EncounterDEAD))                         'DEAD BOI
                    Console.WriteLine("What will you do? Loot(1) or Leave(2)?")
                End If
            End If

            userinput = Console.ReadLine
            If userinput = "1" Then

                If Rnd() < 0.75 Then
                    Console.ForegroundColor = ConsoleColor.Yellow
                    Console.WriteLine("You looted a " & Weapon() & " from the body.")
                    Console.ForegroundColor = ConsoleColor.Gray
                    Console.WriteLine("The dead body is making you uneasy...You should leave(1)...")

                Else

                    Console.WriteLine("You approach the body to loot but it looks like it still has some life in it yet!")
                    Engagements(0.7, 0.8)
                End If
            End If


        ElseIf userinput = "2" Then                                                                                               'OTHER OPTIONS

            Console.WriteLine("You arrive in a run down town")

        ElseIf userinput = "3" Then

            Console.WriteLine("You arrive in a shadowy forest")

        ElseIf userinput = "4" Then

            Console.WriteLine("You arrive at a ruined castle")

        Else

            Console.WriteLine("Please enter a valid input")

        End If

        Console.ReadLine()

    End Sub

End Module