Global Pulsar = 0 SetHotkeyAction /K:C /K:S /V:187 SetBackGround 1 SetHotkeyAction /K:C /K:S /V:189 SetBackGround 2 SetHotkeyAction /K:C /V:187 SetPulsar 1 SetHotkeyAction /K:C /V:189 SetPulsar 0 Func SetBackGround(pAction) Local bkg1, bkg2, upd = 1, max max = 1*255 + 256*255 + 65536*255 IniRead /R bkg1 %COMMANDER_INI% "Colors" "BackColor" -1 IniRead /R bkg2 %COMMANDER_INI% "Colors" "BackColor2" -1 if bkg1 = -1 then bkg1 = max if bkg2 = -1 then bkg2 = max if pAction = 1 then bkg1 = bkg1 + 1 + 256 + 65536 bkg2 = bkg2 + 1 + 256 + 65536 else bkg1 = bkg1 - 1 - 256 - 65536 bkg2 = bkg2 - 1 - 256 - 65536 endif if bkg1 > max then bkg1 = -1 if bkg2 > max then bkg2 = -1 if bkg1 < -1 then bkg1 = max if bkg2 < -1 then bkg2 = max IniWrite /R %COMMANDER_INI% "Colors" "BackColor" %bkg1% IniWrite /R %COMMANDER_INI% "Colors" "BackColor2" %bkg2% If upd = 1 Then SendCommand 2957 SendCommand 2957 EndIf EndFunc Func SetPulsar(nParam) if nParam = 1 and Pulsar = 1 then Return Pulsar = nParam While Pulsar = 1 For j = 1 To 2 For i = 1 To 100 SetBackGround(j) Sleep(20) if Pulsar = 0 then Return Next Next Wend EndFunc