Power Trim Script for Auto-Pilot and ARC-16

[mr_elbows]

This works if you have different powers day/nightDON'T try to use the built-in script and create one for day, one for night........they 'loop' and once started won't shut off even if they are 'scheduled' to...........Const WIZ_ARC = "KHMO-AM"Const WIZ_ANLG_MONPWR = 3Const WIZ_CNTRL_RPWR = 3Const WIZ_CNTRL_RPWR_USERAISE = TrueConst WIZ_CNTRL_LPWR = 3Const WIZ_CNTRL_LPWR_USERAISE = FalseDim WIZ_CONNDim WIZ_UPLIMITDim WIZ_LOLIMIT'Connect to the ARC; if it can not connect, abort the scriptIf Not IsConnected(WIZ_ARC) Then If Connect(WIZ_ARC) <> "Connected" Then Message "Unable to connect to " & WIZ_ARC & ". Aborting script." EndScript End If WIZ_CONN = TrueEnd IfIf Time() >= Sunrise("KHMO") and Time() < Sunset("KHMO") Then WIZ_UPLIMIT = 5650 WIZ_LOLIMIT = 5150Else WIZ_UPLIMIT = 1134 WIZ_LOLIMIT = 1000End IfIf NewValue(WIZ_ARC, WIZ_ANLG_MONPWR) > WIZ_UPLIMIT Then 'Decrease power until the value is within limits Do IssueCommand WIZ_ARC, WIZ_CNTRL_LPWR, WIZ_CNTRL_LPWR_USERAISE Wait 2000 Loop Until NewValue(WIZ_ARC, WIZ_ANLG_MONPWR) <= WIZ_UPLIMITElseIf Value(WIZ_ARC, WIZ_ANLG_MONPWR) < WIZ_LOLIMIT Then 'Increase power until the value is within limits Do IssueCommand WIZ_ARC, WIZ_CNTRL_RPWR, WIZ_CNTRL_RPWR_USERAISE Wait 2000 Loop Until NewValue(WIZ_ARC, WIZ_ANLG_MONPWR) >= WIZ_LOLIMITEnd IfIf WIZ_CONN = True Then Disconnect WIZ_ARC