Script RPG

dim Player_HP(1)
dim Player_Atk
dim Player_Exp
dim Enemy_HP(1)
dim Enemy_Atk

dim Player_Location

dim Prompt

dim GamePhase

Player_HP(0) = 100
Player_HP(1) = 100
Player_Atk = 10
Player_Exp = 0
Enemy_HP(0) = 0
Enemy_HP(1) = 0
Enemy_Atk = 0

Player_Location = "Town"
GamePhase = 1

Do while GamePhase = 1

    Prompt = "You are at " & Player_Location & "." & Chr(13) & "1 - Search" & Chr(13) & "2 - Recover HP" & Chr(13) & "3 - Travel" & Chr(13) & "4 - Quit Game"
    Client = InputBox(Prompt)

    If Client = "1" Then

    End If

    If Client = "2" Then
        Player_HP(0) = Player_HP(1)
        Prompt = "
        Client = MsgBox
    End If

    If Client = "3" Then

    End If

    If Client = "4" Then
        GamePhase = 0
    End If

Loop