//script usages is only allowed if cameras doesn't exceed 10 Night mode switches without script
//use this scrip if your Night-to-Day switchover point keep running up to for example +15
//this happens because of multiple short N>D switchovers (approx 30sec or less in color mode each time)

//what the script does:
//Camera is basically always in AutoDN mode
//when cam switch automatically to Nightmode cam will switch from AutoDN to Manual-mode (Monochrome)
//40sec timer will start to ensure cam stays at minimum 40sec in Monochrome-mode
//ones timer is past camera switch back to AutoDN
//extend timer in case slider still runs-up, dont go lower than 30sec as it will cause excessive wear to the IR-CUT filter

BicomCommand cmdNightmodeColor:={Server(CameraSrv)ObjectId(0x0140)Payload("0x0000")};
BicomCommand cmdNightmodeMonochrome:={Server(CameraSrv)ObjectId(0x0140)Payload("0x0001")};
BicomCommand cmdNightmodeAuto:={Server(CameraSrv)ObjectId(0x0140)Payload("0x0002")};

if (NightMode) then cmdNightmodeMonochrome,TempState(1):=true;

OperationMode timer:={High(400)}; // 400=40 seconds
TempState(1):=timer;

if (!TempState(1)) then cmdNightmodeAuto;