Imports System

Public Module Module1

    Public Sub Main()

        print(1000, "Hi")

        print(2000, "You are in a room.")

        print(5000, "If you hear or see something in the radio click the botton corresponding with the room.")

        print(1000, "Get that?")

        print(3000, "IF YOU hear or see something in the radio click the botton corresponding with the room.")

        print(2000, "Here are the buttons:")

        Dim y As Integer

        For i = 0 To 1

            y = 2000

            print(y, "Q for north")

            print(y, "P for south")

            print(y, "W for west")

            print(y, "E for east")

            y = 1500

        Next

        print(6000, "The more you wait and listen the higher your insanity increases.")

        print(10000, "Yet you need to stay awake and listen because if you miss a scream or sight , there will be unpleasant events awaiting you")

        print(5000, "If you want to get rid of some insanity you must sleep but you will miss the sights and may miss a sign !")

        print(2000, "so risk it as much as you need.")

        Console.ReadLine()

    End Sub

​

​

​

    Sub print(x, sentence)

       For i = 0 To (Console.WindowWidth / 2) - (sentence.length / 2)

           Console.Write(" ")

        Next

        Console.Write(sentence)

        Threading.Thread.Sleep(x)

        Console.Clear()

    End Sub

End Module