Консоль Visual Basic — глобальная команда и строка ответа

Вы можете создать функцию интерпретатора, которая обрабатывает все команды, а затем делать там то, что вы хотите. Поэтому каждый раз, когда вы читаете ввод, просто передайте его подпрограмме интерпретатора.

interpreter("inventory")

Внутри вы можете разбить эту команду (если у нее есть аргументы). Вы можете сделать базовый оператор if и выполнить свои подпроцедуры на его основе.

Вы можете сделать все возможное (это ответ на ваш вопрос о том, что вам не нужно писать «если») и создать класс команд, в котором есть все ваши методы команд (Inventory, North, South, East, West, Look), а затем, когда пользователь вводит команду, которую вы можете использовать для проверки этого класса, чтобы увидеть, существует ли эта подпрограмма/функция (и затем вызвать ее). Преимущество этого заключается в том, что при добавлении методов в класс команд вам больше никогда не придется обновлять логику if в вашем интерпретаторе.

Например. Вы должны добавить «Public Sub Look ()» или «Public Sub Look (args as String) в класс команды. Затем ваш интерпретатор попытается вызвать команду look (и, возможно, передать ей остальные аргументы). Если он не был найден, вы сообщаете пользователю, что это не команда, если это так, она выполняется (поиск в Google для вызова) Это означает, что когда вы добавляете Sub, интерпретатор просто подбирает их.

Вот статья MSDN, которая должна вам помочь, вы можете использовать функцию VB CallByName, вы передаете ей свой класс, а затем имя процедуры, которую хотите выполнить, с аргументами:

https://msdn.microsoft.com/en-us/library/chsc1tx6(v=vs.80).aspx

Вот простой пример (консольное приложение):

Модуль 1:

Module Module1

    Sub Main()

        Dim gc As New GameCommand
        CallByName(gc, "Inventory", CallType.Method, "")

        ' Will look south
        CallByName(gc, "Look", CallType.Method, "south")

        ' Will try to look southeast, but we don't accept that as a valid direction
        CallByName(gc, "Look", CallType.Method, "southeast")

        Console.ReadKey()
    End Sub

End Module

GameCommand.vb:

Public Class GameCommand

    Sub New()

    End Sub

    Public Shared Sub Inventory(arg As String)
        Console.WriteLine("Execute code to show inventory")
    End Sub

    Public Shared Sub Look(direction As String)
        If direction <> "north" And _
            direction <> "south" And _
            direction <> "east" And _
            direction <> "west" Then
            Console.WriteLine("Invalid direction")
            Exit Sub
        End If

        Console.WriteLine("You look " & direction)
    End Sub

End Class

Я бы подошёл к текстовому приключению со следующей общей структурой:

В главном модуле прокручивайте процесс каждого "хода".

1. Отобразите любой текст подсказки, если это необходимо.
2. Чтение пользовательского ввода.
3. Проверьте список глобальных команд и выполните их соответствующим образом.
4. Проверьте список локальных команд и выполните их соответствующим образом.
5. Показать сообщение об ошибке.

Каждая выполняемая вами команда должна выполнять следующие действия:

1. Рассчитать изменения любых переменных, затронутых командой

2. Проверяйте каждое возможное изменение статуса игры сверху вниз и выполняйте последующие команды по мере необходимости. (например, смерть игрока, успех/неудача миссии, поражение врага и т. д.)

3. Переместите историю в нужное место.