Module Module1

    Sub Main()
        Dim health As String = "100"
        Dim dmg As String = "1"
        Dim nano1 As String = ""
        Dim nano2 As String = ""
        Dim nano3 As String = ""
        Dim tutguide As String = ""
        Dim lvl As String = "1"
        Dim xp As String = "0"
        Dim cname As String = "Computress"
        Dim currentmission As String = ""
        Dim enemy1 As String = ""
        Dim enemyhp As String = ""
        Console.WriteLine("Welcome to the Fusionfall Text Quest I. This game was made by Lord Sheldor. Press enter to continue")
        Console.ReadLine()
choosename:
        Console.WriteLine("What is your characters name?")
        Dim name As String
        name = Console.ReadLine()
namechoose:
        Console.WriteLine("Is " + name + " the name you want? 1. Yes 2. No")
        Dim choosename As String = Console.ReadLine()
        Select Case choosename
            Case "1"
                ' Tut Guide Selection
                Console.WriteLine("OK " + name + " It's time to select your tutorial guide.")
                Console.WriteLine("Here are you 4 choices:")
                Console.WriteLine("1. Ben 2. Grim 3. Finn 4. Numbuh 3")
guidesel:
                Console.WriteLine("Who do you want to be your guide?")
                Dim tutguide1 As String = Console.ReadLine()
                Select Case tutguide1
                    Case "1"
                        tutguide = "Ben"
guidego:
                        ' start tutorial
                        Console.WriteLine(tutguide + ": Hello there " + name + "! Welcome to the tutorial.")
                        Console.WriteLine(tutguide + ": Let's start off with the attacking mechanics.")
                        Console.WriteLine(tutguide + ": type /dmg at almost any time to see how much damage you can do.")
dmgtry:
                        Console.WriteLine(tutguide + ": Try it out now!")
                        Dim dmgtut As String = Console.ReadLine()
                        ' damage tut
                        Select Case dmgtut
                            Case "/dmg"
                                ' do dmg tut
                                Console.WriteLine(cname + ": " + name + " currently does " + dmg + " damage per hit.")
                                Console.WriteLine("Press enter to continue")
                                Console.ReadLine()
tut1:
                                ' xp tut
                                xp = xp + 5
                                Console.WriteLine(cname + ": Mission Complete! +5 XP gained.")
                                Console.WriteLine(tutguide + ": Cool! You got some XP!")
                                Console.WriteLine(tutguide + ": You use XP to gain levels to progress through the game")
                                Console.WriteLine(tutguide + ": See how much XP you got now by typing in /xp.")
xptut:
                                Console.WriteLine(tutguide + ": Try it now!")
                                ' do xp tut
                                Dim xptut As String = Console.ReadLine()
                                Select Case xptut
                                    Case "/xp"
                                        ' done with Xp tut
                                        Console.WriteLine(cname + ": " + name + " currently has " + xp + " XP.")
                                        Console.WriteLine("Press enter to continue")
                                        Console.ReadLine()
tut2:
                                        ' level tut
                                        Console.WriteLine(cname + ": Mission Complete! + 10 XP gained!")
                                        xp = "0"
                                        lvl = "2"
                                        Console.WriteLine(cname + ": You have leveled up to level 2! Congratulations!")
                                        Console.WriteLine("Press enter to continue")
                                        Console.ReadLine()
                                        Console.WriteLine(tutguide + ": Sweet! You gained a level!")
                                        Console.WriteLine(tutguide + ": Every time you gain a level your XP resets back to 0.")
                                        Console.WriteLine(tutguide + ": You can check your level at any time by typing in /lvl")
tut3:
                                        Console.WriteLine(tutguide + "Try it out now!")
                                        Dim lvltut As String = Console.ReadLine()
                                        ' do lvl tut
                                        Select Case lvltut
                                            Case "/lvl"
                                                ' done with lvl tut
                                                Console.WriteLine(cname + ": " + name + "'s current level is " + lvl)
                                                Console.WriteLine("Press enter to continue")
                                                Console.ReadLine()
                                                ' nano tutorial
                                                Console.WriteLine(cname + ": No XP gained from Mission Completion")
                                                Console.WriteLine("Press enter to continue")
                                                Console.ReadLine()
                                                Console.WriteLine(tutguide + ": Let's talk about nano's")
                                                Console.WriteLine(tutguide + ": Nano's provide a bonus in everyfight")
                                                Console.WriteLine(tutguide + ": They can help you in a lot of ways from getting health back")
                                                Console.WriteLine(tutguide + ": all the way to doing damage")
                                                Console.WriteLine(tutguide + ": You can carry up to three nanos at a time")
                                                Console.WriteLine(tutguide + ": See what your 1st nano is by typing in /nano1")
tut4:
                                                Console.WriteLine(tutguide + ": Try it now!")
                                                ' doing nano tut
                                                Dim nanotut As String = Console.ReadLine()
                                                Select Case nanotut
                                                    Case "/nano1"
                                                        ' done with nano tut
                                                        Console.WriteLine(cname + ": " + name + " currently has no nanos.")
                                                        Console.WriteLine("Press enter to continue")
                                                        Console.ReadLine()
                                                        ' mission tut
                                                        xp = "0"
                                                        lvl = lvl + 1
                                                        Console.WriteLine(cname + ": Mission complete! +15 XP gained. +1 level!")
                                                        Console.WriteLine("Press enter to continue")
                                                        Console.ReadLine()
                                                        Console.WriteLine(tutguide + ": Let's get you your first nano!")
                                                        Console.WriteLine(cname + ": " + tutguide + " is trying to give you the mission")
                                                        Console.WriteLine("My First Nano")
tut5:
                                                        Console.WriteLine(cname + ": Type in /accept to accept the quest")
                                                        ' mission tut part 1, accepting
                                                        Dim missiontut1 As String = Console.ReadLine()
                                                        Select Case missiontut1
                                                            Case "/accept"
                                                                ' done with mission tut part 1
                                                                Console.WriteLine(cname + ": Mission gained: My First Nano")
                                                                currentmission = "My First Nano"
                                                                Console.WriteLine(tutguide + ": In order to see what mission your currently doing")
                                                                Console.WriteLine(tutguide + ": type in /mission at almost any time.")
tut6:
                                                                Console.WriteLine(tutguide + ": Try it out now!")
                                                                ' do mission tut part 2
                                                                Dim missiontut2 As String = Console.ReadLine()
                                                                Select Case missiontut2
                                                                    Case "/mission"
                                                                        'done with mission tut part 2
                                                                        ' start combat tut
redo2:
                                                                        Console.WriteLine(tutguide + ": Let's start learning combat")
                                                                        Console.WriteLine(tutguide + ": During combat you will get 2 choices per turn")
                                                                        Console.WriteLine(tutguide + ": One choice will end up getting you hurt")
                                                                        Console.WriteLine(tutguide + ": But the other choice will get them hurt")
                                                                        Console.WriteLine(tutguide + ": You also won't know which choice does which at that time")
redo1:
                                                                        Console.WriteLine(tutguide + ": Type 1 if you got all that, type 2 if you want me to repeat that")
                                                                        Dim choice1 As String = Console.ReadLine()
                                                                        Select Case choice1
                                                                            Case "1"
                                                                                ' go into combat
                                                                                Console.WriteLine(tutguide + ": Time to go into your first fight with Fusion Finn")
                                                                                Console.WriteLine(tutguide + ": Press enter to go into the Fusion Portal")
                                                                                Console.ReadLine()
                                                                                ' start fight with Fusion Finn
redocbt:
                                                                                enemy1 = "Fusion Finn"
                                                                                enemyhp = "3"

                                                                                Console.WriteLine(cname + ": " + enemy1 + " has started engaing you")
redocombat:
                                                                                Console.WriteLine(cname + ": " + enemy1 + " lowers his head")
tut7:
                                                                                Console.WriteLine(cname + ": Do you [1]Punch his head or [2]Kick his legs")
                                                                                ' combat choice 1
                                                                                Dim choice2 As String = Console.ReadLine()
                                                                                Select Case choice2
                                                                                    Case "1"
                                                                                        ' do dmg
                                                                                        enemyhp = enemyhp - dmg
                                                                                        If enemyhp = "0" Then
                                                                                            GoTo endoftut
                                                                                        Else
                                                                                            ' combat choice 1-2
                                                                                            Console.WriteLine(cname + ": You hit " + enemy1 + " to lower his health to " + enemyhp)
combat1:
                                                                                            ' new combat choice 2
                                                                                            Console.WriteLine(cname + ": Press enter to continue")
                                                                                            Console.ReadLine()
                                                                                            Console.WriteLine(cname + ": " + enemy1 + " charges at you")
combat2:
                                                                                            Console.WriteLine(cname + ": Do you [1] Punch him during his charge or [2] Trip him")
                                                                                            Dim combat3 As String = Console.ReadLine()
                                                                                            Select Case combat3
                                                                                                ' combat choice 2 case
                                                                                                Case "1"
                                                                                                    ' get hit
                                                                                                    health = health - 10
                                                                                                    If health = 0 Then
faint:
                                                                                                        Console.WriteLine(cname + ": You have fainted. Press enter to restart combat")
                                                                                                        GoTo redocbt
                                                                                                    Else
                                                                                                        Console.WriteLine(cname + ": You get his for 10 damage to lower your health to " + health)
combat4:
                                                                                                        Console.WriteLine(cname + ": " + enemy1 + " is charging up his fusion matter.")
tut8:
                                                                                                        Console.WriteLine(cname + ": Do you [1] Hit him while he's charging or [2] Drop kick him")
                                                                                                        Dim combat4 As String = Console.ReadLine()
                                                                                                        ' combat choice 3
                                                                                                        Select Case combat4
                                                                                                            Case "1"
                                                                                                                ' take dmg
                                                                                                                health = health - 10
                                                                                                                If health = 0 Then
                                                                                                                    GoTo faint
                                                                                                                Else
                                                                                                                    Console.WriteLine(cname + ": You get his for 10 damage to lower your health to " + health)
                                                                                                                    GoTo redocombat
                                                                                                                End If
                                                                                                            Case "2"
                                                                                                                ' do dmg
                                                                                                                enemyhp = enemyhp - dmg
                                                                                                                If enemyhp = 0 Then
                                                                                                                    GoTo endoftut
                                                                                                                Else
                                                                                                                    Console.WriteLine(cname + ": You hit " + enemy1 + " to lower his health to " + enemyhp)
                                                                                                                    GoTo redocombat
                                                                                                                End If
                                                                                                            Case Else
                                                                                                                Console.WriteLine(cname + ": Please only your 1 or 2 to select your choice")
                                                                                                                GoTo tut8
                                                                                                        End Select
                                                                                                    End If
                                                                                                Case "2"
                                                                                                    ' do dmg
                                                                                                    enemyhp = enemyhp - dmg
                                                                                                    If enemyhp = 0 Then
                                                                                                        GoTo endoftut
                                                                                                    Else
                                                                                                        ' goto combat3
                                                                                                        Console.WriteLine(cname + ": You hit " + enemy1 + " to lower his health to " + enemyhp)
                                                                                                        GoTo combat4
                                                                                                    End If
                                                                                                Case Else
                                                                                                    Console.WriteLine(cname + ": Only type in 1 or 2 for what choice you want")
                                                                                                    GoTo combat2
                                                                                            End Select
                                                                                        End If
                                                                                    Case "2"
                                                                                        ' get hit
                                                                                        health = health - 10
                                                                                        ' combat choice 1-2-2
                                                                                        Console.WriteLine(cname + ": Your attack misses " + enemy1 + " and " + enemy1 + "does 10 damage against you to lower your health to " + health)
                                                                                        GoTo combat1
                                                                                    Case Else
                                                                                        Console.WriteLine(cname + ": Please only type in 1 or 2 as your choice")
                                                                                        GoTo tut7
                                                                                End Select
                                                                            Case "2"
                                                                                GoTo redo2
                                                                            Case Else
                                                                                GoTo redo1
                                                                        End Select
                                                                    Case Else
                                                                        Console.WriteLine(tutguide + ": Please only type in /mission to look at your current mission")
                                                                        GoTo tut6
                                                                End Select
                                                            Case Else
                                                                GoTo tut5
                                                        End Select
                                                    Case Else
                                                        Console.WriteLine(tutguide + ": Check your first nano by typing in /nano1")
                                                        GoTo tut4
                                                End Select
                                            Case Else
                                                Console.WriteLine(tutguide + "Please type in /lvl to see your level")
                                                GoTo tut3
                                        End Select
                                    Case Else
                                        Console.WriteLine(tutguide + ": please only type in /xp. Remember it is case sensitive!")
                                        GoTo xptut
                                End Select
                            Case Else
                                Console.WriteLine(tutguide + ": Please type in /dmg to see how much damage you can do.")
                                GoTo dmgtry
                        End Select
                    Case "2"
                        tutguide = "Grim"
                        GoTo guidego
                    Case "3"
                        tutguide = "Finn"
                        GoTo guidego
                    Case "4"
                        tutguide = "Numbuh 3"
                        GoTo guidego
                    Case "5"
                        tutguide = "Lord Sheldor"
                        GoTo guidego
                    Case Else
                        Console.WriteLine("Please you a number to select your guide")
                        GoTo guidesel
                End Select
            Case "2"
                GoTo choosename
            Case Else
                Console.WriteLine("Invalid Command. Please use the numbers 1 or 2.")
                GoTo namechoose
        End Select
endoftut:
        Console.WriteLine(cname + ": You have beaten Fusion Finn. Press enter to finish mission")
        Console.ReadLine()
        lvl = lvl + 1
        Console.WriteLine(cname + ": My First Nano is complete! +1 Nano [FINN] +20 XP +1 Level!")
        Console.WriteLine(tutguide + ": You have completed all of the tutorial missions now")
        Console.WriteLine(tutguide + ": You are now level 4 and are ready to head into the main world.")
        Console.WriteLine(tutguide + ": Sadly, the main world is in the next game.")
        Console.WriteLine(tutguide + ": But don't worry it should be out soon enough")
        Console.WriteLine("Press enter to continue")
        Console.ReadLine()
        Console.WriteLine(cname + "; In the begining of next game type in the code 'tutcomplete' when asked to in order to enjoy the main world")
        Console.WriteLine(cname + ": This game was a tutorial in order for you to learn the mechanics of the games")
        Console.WriteLine(cname + ": We hope you enjoyed it and we will see you guys in the next game!")
        Console.WriteLine(cname + ": Press enter to exit the game")
        Console.ReadLine()

    End Sub

End Module