Imports System

​

Public Module Module1

​

    Public Sub Main()

        'p is boat or plane

        dim p as string

        'a is propeller or jet

        dim a as string

        'costume or suit

        dim c as string

        'boats

        dim z as string

        'drinks

        dim d as string

        Console.WriteLine("you need to get to a party. do you take a plane or boat?")

        p = console.readline()

        if p = "Plane" then

            console.writeline("do you take a propeller or jet plane?")

            a = console.readline()

        end if

​

        if p = "boat" then

            console.writeline("do you take a fishing boat, or a racing boat?")

            z = console.readline()

        end if

​

        if z = "fishing boat" then

            console.writeline("it is way too slow! GAMEOVERR")

        end if

​

        if z = "racing boat" then

            console.writeline("it is fast enough! but what drinks will you bring? water, or energy drinks?")

            d = console.readline()

        end if

​

        if d = "water" then

            console.writeline("everyone is out of energy! GAME OVERRR")

        end if

​

        if d = "energy drinks" then

            console.writeline("everyone is filled with energy! nice party! YOU WIN")

        end if

​

        if a = "propeller" then

            console.writeline("the plane breaks down!! GAME OVERRR")

        else if a = "jet" then

            console.writeline("it is fast enough! but what will you wear to the party? a suit, or costume?")

            c = console.readline()

        end if

​

        if c = "suit" then

            console.writeline("lookin sharp! you are the light of the party! you win.")

        end if

​

        if c = "costume" then

            console.writeline("oh no! its not a costume party! thats embarassing... GAME OVERRR")

        end if

    End Sub

End Module

​