Public Class FiniteStateMachine

   Private m_bLuaExecuted As Boolean
   Public ReadOnly Property bLuaExecuted As Boolean
      Get
         Return m_bLuaExecuted
      End Get
   End Property

   Private m_State As Integer

   Private m_sLuaPath As String
   Friend ReadOnly Property sLuaPath As String
      Get
         Return m_sLuaPath
      End Get
   End Property

   Private m_sMessageText As String = ""
   Friend ReadOnly Property sMessageText As String
      Get
         Return m_sMessageText
      End Get
   End Property
   Friend Sub SetMessageText(sText As String)
      m_sMessageText = sText
   End Sub

   Sub New(sLuaPath As String)
      m_sLuaPath = sLuaPath
      m_bLuaExecuted = LuaManager.ExecFile(Map.refMainWindowVM.MainWindowM.sScriptDir & "\" & sLuaPath)
      EgtOutLog(m_sLuaPath & " execution " & If(m_bLuaExecuted, "ok", "failed"))
   End Sub

End Class