- aggiunta funzione che mostra messaggio di errore da script lua

Effector.Plugin.FiveLakes/LUA/Lua_General.vb

@@ -11,6 +11,7 @@ Public Module Lua_General
    Friend func_PlgGetNextDoor As LuaFunction = AddressOf Lua_PlgGetNextDoor
    Friend func_PlgOpenRestartWnd As LuaFunction = AddressOf Lua_PlgOpenRestartWnd
    Friend func_PlgMachineReset As LuaFunction = AddressOf Lua_PlgMachineReset
+   Friend func_PlgRestartMachineMessage As LuaFunction = AddressOf Lua_PlgRestartMachineMessage
 
    Private Function Lua_PlgGetNumberFromIni(ByVal p As IntPtr) As Integer
       Dim state = Lua.FromIntPtr(p)
@@ -139,6 +140,15 @@ Public Module Lua_General
       Return 0
    End Function
 
+   Private Function Lua_PlgRestartMachineMessage(ByVal p As IntPtr) As Integer
+      Dim state = Lua.FromIntPtr(p)
+      Dim nMachineIndex As Integer = 1
+      LuaGetParam(state, 1, nMachineIndex)
+      LuaClearStack(state)
+      MessageBox.Show("Error! Check log file for description." & Environment.NewLine & "When fixed reset and restart MainAuto on machine " & nMachineIndex)
+      Return 0
+   End Function
+
    Friend Function LuaInstallGeneral(state As Lua) As Boolean
       If IsNothing(state) Then Return False
       state.Register("PlgGetNumberFromIni", func_PlgGetNumberFromIni)
@@ -150,6 +160,7 @@ Public Module Lua_General
       state.Register("PlgGetNextDoor", func_PlgGetNextDoor)
       state.Register("PlgOpenRestartWnd", func_PlgOpenRestartWnd)
       state.Register("PlgMachineReset", func_PlgMachineReset)
+      state.Register("PlgRestartMachineMessage", func_PlgRestartMachineMessage)
       Return True
    End Function