Yuki.vb

Option Explicit On
Module Yuki
    ''''''''''''''
    ' Typing sim '
    ' TODO: Make '
    ' skip space '
    ' on line    '
    ' start      '
    ''''''''''''''
    Sub TextType(ByVal TextToType As String)
        Dim i As Integer = 0
        Dim chArr As String
        chArr = TextToType.ToCharArray
        For i = 0 To Len(TextToType) - 1 Step 1
            Console.Write(chArr(i))
            System.Threading.Thread.Sleep(100)
            If i Mod 6 = 0 Then
                Console.CursorVisible = False
            Else
                Console.CursorVisible = True
            End If
        Next
    End Sub
    '''''''''''''
    ' donno why '
    '''''''''''''
    Function consoleYNInput() As Boolean
        Console.CursorVisible = True
        Dim input As String = ""
        Do Until input.ToUpper = "Y" Or input.ToUpper = "N"
            input = Console.ReadKey().KeyChar
            If input.ToUpper <> "Y" And input.ToUpper <> "N" Then
                Console.Write(Chr(8))
                Console.Write(" ")
                Console.Write(Chr(8))
            End If
            If input.ToUpper = "Y" Then
                Console.Write(Chr(8))
                Console.Write("Y")
                Console.Write(vbCrLf)
                Return True
            End If
            If input.ToUpper = "N" Then
                Console.Write(Chr(8))
                Console.Write("N")
                Console.Write(vbCrLf)
                Return False
            End If
        Loop
    End Function
    ''''''''''''''
    ' Wait key   '
    ''''''''''''''
    Sub keyPress()
        Console.CursorVisible = True
        Console.ReadKey()
        Console.Write(Chr(8))
        Console.Write(" ")
        Console.Write(Chr(8))
    End Sub
    
    '''''''''''''
    ' MainCode  '
    '''''''''''''
    Sub Main()
        Console.CursorVisible = True
        Console.CursorSize = 8
        Console.OutputEncoding = System.Text.Encoding.GetEncoding(932)
        System.Threading.Thread.Sleep(6000)
        TextType("YUKI. N > ")
        System.Threading.Thread.Sleep(500)
        TextType("これをあなたが読んでいる時、" + vbCrLf + "          わたしはわたしではないだろう。")
        System.Threading.Thread.Sleep(1000)
        TextType(vbCrLf + vbCrLf + "YUKI. N > ")
        System.Threading.Thread.Sleep(500)
        TextType("このメッセージが表示されたということは、" + vbCrLf + "          そこにはあなた、わたし、涼宮ハルヒ、朝比奈みくる、" + vbCrLf + "          古泉一樹が存在しているはずである。")
        System.Threading.Thread.Sleep(1000)
        TextType(vbCrLf + vbCrLf + "YUKI. N > ")
        System.Threading.Thread.Sleep(500)
        TextType("それが鍵。" + vbCrLf + "          あなたは解答を見つけ出した。")
        System.Threading.Thread.Sleep(1000)
        TextType(vbCrLf + vbCrLf + "YUKI. N > ")
        System.Threading.Thread.Sleep(500)
        TextType("これは緊急脱出プログラムである。" + vbCrLf + vbCrLf + "          起動させる場合はエンターキーを" + vbCrLf + "          場合はそれ以外のキーを選択せよ。" + vbCrLf + "          起動させた場合、" + vbCrLf + "          あなたは時空修正の機会を得る。" + vbCrLf + "          ただし成功は保証できない。" + vbCrLf + "          また帰還の保証もできない。")
        System.Threading.Thread.Sleep(1000)
        TextType(vbCrLf + vbCrLf + "YUKI. N > ")
        System.Threading.Thread.Sleep(500)
        TextType("このプログラムが起動するのは一度きりである。" + vbCrLf + "          実行ののち、消去される。" + vbCrLf + vbCrLf + "          非実行が選択された場合は起動せずに消去される。" + vbCrLf + vbCrLf + "          Ready?")

        If consoleYNInput() Then
            System.Threading.Thread.Sleep(2000)
        Else
            System.Threading.Thread.Sleep(2000)
        End If

    End Sub

End Module