function OnStop(flag) 
return 10000
end 

file = io.open("D:\\EventTest.log", "a+t")
IsRun = true

function WriteLog(s, ...)
    if file ~=nil then
        file:write(tostring(os.date()) .. " " .. string.format(s, unpack(arg)) .. "\n")
        file:flush()
    end
end

function OnClose()
    WriteLog("Entered OnClose")
end


function OnInit()
    WriteLog("Entered OnInit")
end

function OnStop()
    WriteLog("Entered OnStop")
    IsRun = false
end


function main()
    WriteLog("Entered Main")

    while IsRun do
        sleep(500)
    end;

    WriteLog("Leaving Main")
end

09/30/18 07:03:50 Entered OnInit
09/30/18 07:03:50 Entered Main
09/30/18 07:03:53 Entered OnClose
09/30/18 07:03:53 Entered OnStop
09/30/18 07:03:54 Leaving Main

09/30/18 07:04:00 Entered OnInit
09/30/18 07:04:00 Entered Main
09/30/18 07:04:14 Entered OnStop
09/30/18 07:04:14 Leaving Main

function OnStop(flag) 
  IsRun = false
  -- далее следуют какие то относительно продолжительные действия
  -- сохранение нажитого непосильным трудом по файлам например
  -- имитация таковых:
  sleep(50) 
end