Module 2

Module Module2

    Public Sub timer(ByVal answer)
        Console.WriteLine("How long would you like an alarm for?")
        Console.WriteLine("Minutes or seconds?")
        Dim answer3 As String = Console.ReadLine


        Dim SAPI = CreateObject("SAPI.spvoice")
        SAPI.Volume = 100

        If answer3 = "minutes" Then
            Console.WriteLine("How many minutes?")
            Dim answer4 As String = Console.ReadLine()
            Dim timeraaaa As Integer = answer4
            timeraaaa = timeraaaa * 60000

            Threading.Thread.Sleep(timeraaaa)

            SAPI.Speak("Ding! Timer's done!")

        ElseIf answer3 = "seconds" Then
            Console.WriteLine("How many seconds?")
            Dim answer4 As String = Console.ReadLine()

            Dim timeraaaa As Integer = answer4
            timeraaaa = timeraaaa * 1000
            Threading.Thread.Sleep(timeraaaa)

            SAPI.Speak("Ding! Timer's done!")
            Threading.Thread.Sleep(250)
        End If


        Call trueBeginning()
    End Sub
    Public Sub textChangerSub()
        Console.WriteLine("What do you want to convert to?")
        Console.WriteLine("HexTex / TexHex / BinTex / TexBin")
        Dim textConv As String = Console.ReadLine()

        If textConv = "TexHex" Then
            Console.WriteLine("Input your text to be converted.")
            Dim textBeConv As String = Console.ReadLine

            'textBeConv = textBeConv.Replace.(" ", " 20").Replace("!", " 21").Replace("#", " 23").Replace("$", " 24").Replace("%", " 25").Replace("'", " 27").Replace("(", " 28").Replace(")", " 29").Replace("*", " 2A").Replace("+", " 2B").Replace(",", " 2C").Replace("-", " 2D").Replace(".", " 2E").Replace("/", " 2F").Replace("0", " 30").Replace("1", " 31").Replace("2", " 32").Replace("3", " 33").Replace("4", " 34").Replace("5", " 35").Replace("6", " 36").Replace("7", " 37").Replace("8", " 38").Replace("9", " 39").Replace("", "").Replace("", "").Replace(":", " 3A").Replace(";", " 3B").Replace("<", " 3C").Replace("=", " 3D").Replace(">", " 3E").Replace("?", " 3F").Replace("@", " 40").Replace("A", " 41").Replace("B", " 42").Replace("C", " 43")
            Console.WriteLine(textBeConv)

            Call trueBeginning()

        End If

    End Sub


    Public Sub currencyagh(answer As String)
        Console.WriteLine("What currencies?")
        Console.WriteLine("
        USD > JPY / USD > EURO / USD > GBP")
        Dim answer2 As String = Console.ReadLine()

        Dim money As String
        Console.WriteLine("How much?")
        money = Console.ReadLine
        If answer2 = "JPY" OrElse answer2 = "jpy" OrElse answer2 = "japan" OrElse answer2 = "USD > JPY" Then
            money = money * 112.51
            Console.WriteLine("You'll have " & money & " yen.")
        ElseIf answer2 = "EURO" OrElse answer2 = "euro" OrElse answer2 = "USD > EURO" OrElse answer2 = "use > euro" Then
            money = money * 0.85
            Console.WriteLine("You'll have " & money & " euros.")
        ElseIf answer2 = "gbp" OrElse answer2 = "GBP" OrElse answer2 = "USD > GBP" OrElse answer2 = "usd > gbp" Then
            money = money * 0.76
            Console.WriteLine("You'll have " & money & " pounds.")
        Else
            Console.WriteLine("You have not specified a currency to convert to.")
            Console.WriteLine("So, per usual, we'll revert to our default.")
            Threading.Thread.Sleep(1000)
            Console.WriteLine("Which is schmeckles.")
            Threading.Thread.Sleep(1000)
            money = money * 244
            Threading.Thread.Sleep(1000)
            Console.WriteLine("You'll have " & money & " schmeckles.")
            Threading.Thread.Sleep(1000)
        End If

        Threading.Thread.Sleep(500)
        Call trueBeginning()

    End Sub
    Public Sub diceRoll()
        'dice
        Dim randGen As New Random
        '    'capture value of die amount
        Console.WriteLine("How many dice would you like to roll?")
        Dim dieAmount As Integer = Console.ReadLine()

        'capture amount of sides
        Console.WriteLine("How many sides?")
        Dim dieSides As Integer = Console.ReadLine()

        'Dim dieTotalSides As Integer
        'dieTotalSides = dieSides * dieAmount

        Dim dieAns As Integer
        Dim ans As Integer

        Do Until ans = dieAmount
            dieAns = randGen.Next(1, (dieSides + 1))
            Console.WriteLine("You rolled a " & dieAns & "!")
            ans += 1
        Loop

        Call trueBeginning()
    End Sub
    Public Sub chooseSub()
        'choice maker
        Dim randGen As New Random
        Console.WriteLine("How many choices do you have?")
        Console.WriteLine("You can write up to 7 choices. You can
write in a number (2 to 7)")
        Dim choiceAmount As String = Console.ReadLine()
        Dim choice1 As String
        Dim choice2 As String
        Dim choice3 As String
        Dim choice4 As String
        Dim choice5 As String
        Dim choice6 As String
        Dim choice7 As String

        Select Case choiceAmount
            Case 1
                Console.WriteLine("Invalid!")
            Case 2
                Console.WriteLine("Choice 1?")
                choice1 = Console.ReadLine
                Console.WriteLine("Choice 2?")
                choice2 = Console.ReadLine
            Case 3
                Console.WriteLine("Choice 1?")
                choice1 = Console.ReadLine
                Console.WriteLine("Choice 2?")
                choice2 = Console.ReadLine
                Console.WriteLine("Choice 3?")
                choice3 = Console.ReadLine
            Case 4
                Console.WriteLine("Choice 1?")
                choice1 = Console.ReadLine
                Console.WriteLine("Choice 2?")
                choice2 = Console.ReadLine
                Console.WriteLine("Choice 3?")
                choice3 = Console.ReadLine
                Console.WriteLine("Choice 4?")
                choice4 = Console.ReadLine
            Case 5
                Console.WriteLine("Choice 1?")
                choice1 = Console.ReadLine
                Console.WriteLine("Choice 2?")
                choice2 = Console.ReadLine
                Console.WriteLine("Choice 3?")
                choice3 = Console.ReadLine
                Console.WriteLine("Choice 4?")
                choice4 = Console.ReadLine
                Console.WriteLine("Choice 5?")
                choice5 = Console.ReadLine
            Case 6
                Console.WriteLine("Choice 1?")
                choice1 = Console.ReadLine
                Console.WriteLine("Choice 2?")
                choice2 = Console.ReadLine
                Console.WriteLine("Choice 3?")
                choice3 = Console.ReadLine
                Console.WriteLine("Choice 4?")
                choice4 = Console.ReadLine
                Console.WriteLine("Choice 5?")
                choice5 = Console.ReadLine
                Console.WriteLine("Choice 6?")
                choice6 = Console.ReadLine
            Case 7
                Console.WriteLine("Choice 1?")
                choice1 = Console.ReadLine
                Console.WriteLine("Choice 2?")
                choice2 = Console.ReadLine
                Console.WriteLine("Choice 3?")
                choice3 = Console.ReadLine
                Console.WriteLine("Choice 4?")
                choice4 = Console.ReadLine
                Console.WriteLine("Choice 5?")
                choice5 = Console.ReadLine
                Console.WriteLine("Choice 6?")
                choice6 = Console.ReadLine
                Console.WriteLine("Choice 7?")
                choice7 = Console.ReadLine
        End Select


        If choiceAmount = 2 Then
            Dim int1 As Integer
            int1 = randGen.Next(1, 3)
            If int1 = 1 Then
                Console.WriteLine("ANSWER: " & choice1)
            Else
                Console.WriteLine("ANSWER: " & choice2)
            End If
        ElseIf choiceAmount = 3 Then
            Dim int1 As Integer
            int1 = randGen.Next(1, 4)
            If int1 = 1 Then
                Console.WriteLine("ANSWER: " & choice1)
            ElseIf int1 = 2 Then
                Console.WriteLine("ANSWER: " & choice2)
            Else
                Console.WriteLine("ANSWER: " & choice3)
            End If
        ElseIf choiceAmount = 4 Then
            Dim int1 As Integer
            int1 = randGen.Next(1, 5)
            If int1 = 1 Then
                Console.WriteLine("ANSWER: " & choice1)
            ElseIf int1 = 2 Then
                Console.WriteLine("ANSWER: " & choice2)
            ElseIf int1 = 3 Then
                Console.WriteLine("ANSWER: " & choice3)
            Else
                Console.WriteLine("ANSWER: " & choice4)
            End If
        ElseIf choiceAmount = 5 Then
            Dim int1 As Integer
            int1 = randGen.Next(1, 6)
            If int1 = 1 Then
                Console.WriteLine("ANSWER: " & choice1)
            ElseIf int1 = 2 Then
                Console.WriteLine("ANSWER: " & choice2)
            ElseIf int1 = 3 Then
                Console.WriteLine("ANSWER: " & choice3)
            ElseIf int1 = 4 Then
                Console.WriteLine("ANSWER: " & choice4)
            Else
                Console.WriteLine("ANSWER: " & choice5)
            End If
        ElseIf choiceAmount = 6 Then
            Dim int1 As Integer
            int1 = randGen.Next(1, 7)
            If int1 = 1 Then
                Console.WriteLine("ANSWER: " & choice1)
            ElseIf int1 = 2 Then
                Console.WriteLine("ANSWER: " & choice2)
            ElseIf int1 = 3 Then
                Console.WriteLine("ANSWER: " & choice3)
            ElseIf int1 = 4 Then
                Console.WriteLine("ANSWER: " & choice4)
            ElseIf int1 = 5 Then
                Console.WriteLine("ANSWER: " & choice5)
            Else
                Console.WriteLine("ANSWER: " & choice6)
            End If
        ElseIf choiceAmount = 7 Then
            Dim int1 As Integer
            int1 = randGen.Next(1, 8)
            If int1 = 1 Then
                Console.WriteLine("ANSWER: " & choice1)
            ElseIf int1 = 2 Then
                Console.WriteLine("ANSWER: " & choice2)
            ElseIf int1 = 3 Then
                Console.WriteLine("ANSWER: " & choice3)
            ElseIf int1 = 4 Then
                Console.WriteLine("ANSWER: " & choice4)
            ElseIf int1 = 5 Then
                Console.WriteLine("ANSWER: " & choice5)
            ElseIf int1 = 6 Then
                Console.WriteLine("ANSWER: " & choice6)
            Else
                Console.WriteLine("ANSWER: " & choice7)
            End If
        End If

        Call trueBeginning()

    End Sub
    Public Sub dndConverter()
        'draconic
        Console.WriteLine("Write in your sentence to be converted into Draconic!")
        Dim message As String = Console.ReadLine

        message = message.Replace("food", "achthend").Replace("green", "achuak").Replace("female", "aesthyr").Replace("shit", "aithyas").Replace("magic", "arcaniss").Replace("valley", "arux").Replace("war", "aryte").Replace("warrior", "arytiss").Replace("celestial", "athear").Replace("bronze", "aujir").Replace("gold", "aurix").Replace("fly", "austrat").Replace("yes", "axun").Replace("animal", "baeshra").Replace("good", "bensvlek").Replace("forest", "caesin").Replace("sword", "caex").Replace("red", "charir").Replace("tavern", "chaokartel").Replace("root", "charchuka").Replace("take", "clax").Replace("dragon", "darastrix").Replace("hate", "dartak").Replace("bribe", "durah").Replace("tomorrow", "earenk").Replace("year", "eorikc").Replace("through", "erekess").Replace("coward", "faessi").Replace("serve", "faestir").Replace("slayer", "fintir").Replace("breathe", "frahr").Replace("axe", "garurt").Replace("quest", "geth").Replace("go", "ghestrisj").Replace("after", "ghent").Replace("orc", "ghik").Replace("ogre", "ghontix").Replace("before", "ghoros").Replace("claw", "gix").Replace("wood", "grovisv").Replace("fate", "haurach").Replace("bastard", "henich").Replace("water", "hesjing").Replace("fortress", "huruthi").Replace("", "").Replace("", "")


    End Sub
    Public Sub eightBall()
        '8 ball
        Console.WriteLine("Ask anything!")
        Console.ReadLine()
        'ok this is funny to me because your
        'input doesn't even get put into a variable.
        'it just randomly picks a fortune

        Dim randGen As New Random

        Dim message As String
        message = randGen.Next(1, 21)

        Select Case message
            Case 1
                Console.WriteLine("It is certain.")
            Case 2
                Console.WriteLine("It is decidedly so.")
            Case 3
                Console.WriteLine("Without a doubt.")
            Case 4
                Console.WriteLine("Yes, definitely.")
            Case 5
                Console.WriteLine("You may rely on it.")
            Case 6
                Console.WriteLine("As I see it, yes.")
            Case 7
                Console.WriteLine("Most likely.")
            Case 8
                Console.WriteLine("Outlook good.")
            Case 9
                Console.WriteLine("Yes.")
            Case 10
                Console.WriteLine("Signs point to yes.")
            Case 11
                Console.WriteLine("Reply hazy. Try again.")
            Case 12
                Console.WriteLine("Ask again later.")
            Case 13
                Console.WriteLine("Better not tell you now.")
            Case 14
                Console.WriteLine("Cannot predict now.")
            Case 15
                Console.WriteLine("Concentrate, and try again.")
            Case 16
                Console.WriteLine("Don't count on it.")
            Case 17
                Console.WriteLine("My reply is no.")
            Case 18
                Console.WriteLine("My sources say no.")
            Case 19
                Console.WriteLine("Outlook not so good.")
            Case 20
                Console.WriteLine("Very doubtful.")
        End Select

        Call trueBeginning()
    End Sub
    Public Sub randNum()
        'picks a random number
        Dim randNum As New Random
        Console.WriteLine("Pick a limit to your random number!")
        Dim randTop As String = Console.ReadLine()
        Dim newNum As Integer


        newNum = randNum.Next(1, (randTop + 1))

        Console.WriteLine("Your random number is " & newNum & ".")

        Call trueBeginning()
    End Sub
    Sub PlayBackgroundSoundFile()
        'plays music
        Dim answerMusic As String
        Console.WriteLine("Which song?")
        Console.WriteLine("1 - Kahoot Lobby
2 - Careless Whisper
3 - All Star
4 - Fergalicious
5 - Hey Ya
6 - Roundabout
7 - Mii Plaza
8 - Pizza Theme
9 - Redbone
10 - Give It All You Got
11 - Merry Go
12 - Africa
13 - My Two Lovely Uncles
14 - My Shiny Teeth and Me
15 - Gary Come Home
16 - San Andreas
17 - Flintstones
18 - Ocean Man
19 - Make A Man (Out of You)
20 - Conjunction Junction")


        answerMusic = Console.ReadLine


        Select Case answerMusic
            Case 1
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\kahoot.wav")
            Case 2
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\deaddude.wav")
            Case 3
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\allstar.wav")
            Case 4
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\fergie.wav")
            Case 5
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\heyya.wav")
            Case 6
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\jjba.wav")
            Case 7
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\mii.wav")
            Case 8
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\pizza.wav")
            Case 9
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\redbone.wav")
            Case 10
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\spongebob.wav")
            Case 11
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\merrygo.wav")
            Case 12
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\africa.wav")
            Case 13
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\uncles.wav")
            Case 14
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\shinyteeth.wav")
            Case 15
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\garyhome.wav")
            Case 16
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\gta.wav")
            Case 17
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\flintstones.wav")
            Case 18
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\oceanman.wav")
            Case 19
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\beaman.wav")
            Case 20
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\conjfunc.wav")
            Case Else
                My.Computer.Audio.Play("E:\DIS THE STUFF\resources\wrong.wav")
        End Select
        Threading.Thread.Sleep(500)
        Call trueBeginning()
    End Sub
    Public Sub GetIPAddress()

        Dim strHostName As String

        Dim strIPAddress As String

        Dim strSubnetMask As String

        strHostName = System.Net.Dns.GetHostName()

        strIPAddress = Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()

        strSubnetMask = Net.Dns.GetHostEntry(strHostName).AddressList(0).ToString()

        Console.WriteLine("Host Name: " & strHostName & "; IPv4 IP Address: " & strIPAddress & "; IPv6 Subnet Mask: " & strSubnetMask)

        Console.WriteLine("Source Code: ")
        Console.WriteLine("(Don't worry! I'll open the pages for you!)")
        Console.WriteLine("Module 1: https://pastebin.com/u8sSeNHC")

        Console.WriteLine("Module 2: https://pastebin.com/QSgqe4C7")
        Threading.Thread.Sleep(7000)
        Dim webAddress As String = "https://pastebin.com/u8sSeNHC"
        Dim webAddress2 As String = "https://pastebin.com/QSgqe4C7"
        Process.Start(webAddress)
        Process.Start(webAddress2)
        Call trueBeginning()
    End Sub

    Private Function webAddress() As String
        Throw New NotImplementedException()
    End Function
    Public Sub searchYT()
        'https://www.youtube.com/results?search_query=
        Console.WriteLine("What video?")
        Dim answer As String = Console.ReadLine

        Console.WriteLine("We don't want to be presumptuous, so we'll open up the search page for you,
just so you can pick the video yourself :)")
        Console.WriteLine("Loading...")
        Threading.Thread.Sleep(2000)
        Dim webAddress As String = "https://www.youtube.com/results?search_query=" & answer
        Process.Start(webAddress)
        Call trueBeginning()
    End Sub
End Module
'     ⣠⣦⣤⣀
'⠀⠀⠀⠀⢡⣤⣿⣿
'⠀⠀⠀⠀⠠⠜⢾⡟
'⠀⠀⠀⠀⠀⠹⠿⠃⠄
'⠀⠀⠈⠀⠉⠉⠑⠀⠀⠠⢈⣆
'⠀⠀⣄⠀⠀⠀⠀⠀⢶⣷⠃⢵
'⠐⠰⣷⠀⠀⠀⠀⢀⢟⣽⣆⠀⢃
'⠰⣾⣶⣤⡼⢳⣦⣤⣴⣾⣿⣿⠞
'⠀⠈⠉⠉⠛⠛⠉⠉⠉⠙⠁
'⠀⠀⡐⠘⣿⣿⣯⠿⠛⣿⡄
'⠀⠀⠁⢀⣄⣄⣠⡥⠔⣻⡇
'⠀⠀⠀⠘⣛⣿⣟⣖⢭⣿⡇
'⠀⠀⢀⣿⣿⣿⣿⣷⣿⣽⡇
'⠀⠀⢸⣿⣿⣿⡇⣿⣿⣿⣇
'⠀⠀⠀⢹⣿⣿⡀⠸⣿⣿⡏
'⠀⠀⠀⢸⣿⣿⠇⠀⣿⣿⣿
'⠀⠀⠀⠈⣿⣿⠀⠀⢸⣿⡿
'⠀⠀⠀⠀⣿⣿⠀⠀⢀⣿⡇
'⠀⣠⣴⣿⡿⠟⠀⠀⢸⣿⣷
'⠀⠉⠉⠁⠀⠀⠀⠀⢸⣿⣿⠁
'⠀⠀⠀⠀⠀⠀⠀⠀⠀⠈