From 696682745a37a3f2cdd918b1caec0ae6d900a791 Mon Sep 17 00:00:00 2001 From: Emmanuele Sassi Date: Tue, 11 Feb 2025 19:14:58 +0100 Subject: [PATCH] - aggiunta funzione che mostra messaggio di errore da script lua --- Effector.Plugin.FiveLakes/LUA/Lua_General.vb | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/Effector.Plugin.FiveLakes/LUA/Lua_General.vb b/Effector.Plugin.FiveLakes/LUA/Lua_General.vb index 8b7879f..ef56ab1 100644 --- a/Effector.Plugin.FiveLakes/LUA/Lua_General.vb +++ b/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