Emmanuele Sassi
36 lines
891 B
VB.net
36 lines
891 B
VB.net
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
|