Imports System.console

Imports System.Threading.Thread

Imports System

​

Public Module Module1

​

    Public Sub Main()

        BackgroundColor() = ConsoleColor.Black

        ForegroundColor() = ConsoleColor.Yellow

        WriteLine(" _____ _            _____ _                                     

|_   _| |          /  ___(_)                                    

  | | | |__   ___  \ `--. _ _ __ ___  _ __  ___  ___  _ __  ___ 

  | | | '_ \ / _ \  `--. \ | '_ ` _ \| '_ \/ __|/ _ \| '_ \/ __|

  | | | | | |  __/ /\__/ / | | | | | | |_) \__ \ (_) | | | \__ \

  \_/ |_| |_|\___| \____/|_|_| |_| |_| .__/|___/\___/|_| |_|___/

                                     | |                        

                                     |_|                        ")

        Sleep(3500)

        Clear()

        Dim intro As String = "This Is a Zombie Apocalypse game." & vbCrLf & "It was made by Dinindu, Vivan And Rahul" & vbCrLf &

        "The objective of the game Is to survive 100 turns" & vbCrLf & "Each turn you roll two six-sided dice, you can get either, food, ammo, Or a zombie attack" & vbCrLf &

        "You start with the base Simpson's Family: Homer, Marge, Bart, Lisa, Maggie, and Santa's little helper"

        Dim charArray() As Char = intro.ToCharArray

        For x = 0 To (intro.Length() - 1)

            Write(charArray(x))

            Sleep(40)

        Next

        WriteLine()

        ReadLine()

    writeline("Round number: 0")

    writeline()

    writeline("You roll the dice... 4")

    writeline("")

    End Sub

End Module