Module 1

Option Strict Off
Module Module1


    Public answer2 As String


    Sub Main()
        Console.ForegroundColor = ConsoleColor.Green
        Call trueBeginning()
    End Sub


    Public Sub trueBeginning()
        'Some name
        'by kennedy eckstrom on 11/6/17 through 11-20-17
        'UwU
        Console.WriteLine("What can I do for you today?")
        Console.WriteLine("(Write 'help' for help!)")
        Call menu()


    End Sub


    Public Sub menu()
        Dim answer As String = Console.ReadLine
        Dim answerYeah As String
        If answer = "help" Then
            Call helpo(answer)
        ElseIf answer = "hello" Then
            Call helloYo()
        ElseIf answer = "about" Then
            Console.WriteLine("This is the documentation for this app:")
            Console.WriteLine("Currently, THIS has 13 different main commands, along with 20 independent sub procedures")
            Console.WriteLine("15 If..Then..Else procedures, 5 Select Case procedures, 14 variables, 35 call statements,
and 6 lines of code.
Module 1 has 127 lines. Module 2 has 502 lines, totalling the program to 629 lines.")
            Console.WriteLine("Hopefully, with a little help with Mr. Waite, I'll be able to put the program on the server.")
            Console.WriteLine("Also, with the source code.")
            Call trueBeginning()
        ElseIf answer = "timer" Then
            Call Timer(answer2)
        ElseIf answer = "money" Then
            Call currencyagh(answer2)
        ElseIf answer = "choose" Then
            Call chooseSub()
        ElseIf answer = "exit" Then
            Console.WriteLine("Goodbye!")
            Threading.Thread.Sleep(500)
            Environment.Exit(0)
        ElseIf answer = "textchanger" Then
            Call textChangerSub()
        ElseIf answer = "clear" Then
            Console.WriteLine("Clearing!")
            Threading.Thread.Sleep(1000)
            Console.Clear()
            Call trueBeginning()
        ElseIf answer = "dice" Then
            Call diceRoll()
        ElseIf answer = "8ball" Then
            Call eightBall()
        ElseIf answer = "random number" Then
            Call randNum()
        ElseIf answer = "music" Then
            Call PlayBackgroundSoundFile()
        ElseIf answer = "music stop" Then
            My.Computer.Audio.Stop()
            Call trueBeginning()
        ElseIf answer = "randnum" Then
            Call randNum()
        ElseIf answer = "admin" Then
            Console.WriteLine("Password?")
            answerYeah = Console.ReadLine
            If answerYeah = "axolotl567" Then

                Call GetIPAddress()
            Else
                Console.WriteLine("Incorect.")
                Call trueBeginning()
            End If
        ElseIf answer = "search" Then
            Call searchYT()
        Else
            Console.Beep()
            Console.WriteLine("Whoopsies!")
            Console.WriteLine("Please enter a command.")
            Console.WriteLine("If you do not know the commands, please use 'help' for a guide.)")
            Call trueBeginning()
        End If

    End Sub



    Public Sub helpo(answer As String)
        Console.WriteLine("Here's a list of commands!
    hello - Gives you a small bio about me!
    about - Gives you a more in-depth bio about me!
    clear - Clears the screen!
    timer - Gives you a timer! Times in minutes and seconds!
    money - Converts currency! Currently only USD to Euro, Japan Yen, and Great Britain Pound.
    music - Gives you a list of 20 songs to pick from (use 'music stop' at any time to stop music)
    choose - Randomly picks between 2 or more choices!
    randnum - Chooses a random number between 1 and a number of your choice!
    8ball - Ask a question, get a prediction!
    dice - Rolls dice for you!
    search - Searches youtube for a video, and opens it in your default broswer!
    exit - Exits program")

        Call trueBeginning()
    End Sub

    Public Sub helloYo()
        Console.WriteLine("I'm Anne Droid! I'm an application that can do a lot! Just check out my help command!")
        Console.WriteLine("I was made by the programmer Kennedy, otherwise known as 'Kebby' or 'Keb',")
        Console.WriteLine("in order to help with stats And conversions. I have so many featues! Check them all out by trying 'help'!")
        Console.WriteLine("Also, check out documentation by writing 'about'!")

        Call trueBeginning()
    End Sub

    Private Sub trueBeginning(answer2 As String)
        Throw New NotImplementedException()
    End Sub
End Module