Siren System - Work In Progress

[Tommer]

Yes, you can build basic GUI's with Autohotkey and go so far as to tell it to read/write files and registry entries which is useful for saving information written into the GUI. An example of how my GUI is built in which information can be saved to an .ini file;

Script (Click to View)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;Loading Settings n all that nonsense;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

iniread, EnableP1Launch, AStrobe.ini, Settings, EnableP1Launch
iniread, EnableP2Launch, AStrobe.ini, Settings, EnableP2Launch
iniread, Program1Directory, AStrobe.ini, Settings, Program1Directory
iniread, Program2Directory, AStrobe.ini, Settings, Program2Directory
iniread, LIndicatorWILLALSO, AStrobe.ini, Settings, LIndicatorWILLALSO
iniread, RIndicatorWILLALSO, AStrobe.ini, Settings, RIndicatorWILLALSO
iniread, LHotkey, AStrobe.ini, Settings, LHotkey
iniread, RHotkey, AStrobe.ini, Settings, RHotkey
iniread, AutoOffDegrees, AStrobe.ini, Settings, AutoOffDegrees
iniread, UseIndicators, AStrobe.ini, Settings, UseIndicators
iniread, LFSClosesStrobe, AStrobe.ini, Settings, LFSClosesStrobe
iniread, StrobeToggleKey, Astrobe.ini, Settings, StrobeToggleKey
iniread, SirenToggleKey, AStrobe.ini, Settings, SirenToggleKey
iniread, Horn, AStrobe.ini, Settings, Horn
iniread, LInidicator, AStrobe.ini, Settings, LIndicator
iniread, RIndicator, AStrobe.ini, Settings, RIndicator

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;Load up the GUI n Stuff y0!;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Gui, Add, Text, x6 y254 w90 h20 , Advanced Strobe
Gui, Add, Text, x246 y254 w70 h20 , By Tommer
Gui, Add, Tab, x0 y1 w308 h253 , Status|Buttons|Behaviour
Gui, Tab, Behaviour
Gui, Add, CheckBox, vEnableP1Launch x16 y44 w130 h20 , Launch Program 1
Gui, Add, CheckBox, vEnableP2Launch x16 y64 w130 h20 , Launch Program 2
Gui, Add, Edit, vProgram1Directory x156 y44 w140 h20 , Enter Program Directory
Gui, Add, Edit, vProgram2Directory x156 y64 w140 h20 , Enter Program Directory
Gui, Add, CheckBox, vLIndicatorWILLALSO x16 y114 w140 h20 , L Indicator Also Presses
Gui, Add, CheckBox, vRIndicatorWILLALSO x16 y134 w140 h20 , R Indicator Also Presses
Gui, Add, GroupBox, x6 y94 w300 h70 , When Audible Siren is on (Chase Mode)
Gui, Add, Hotkey, vLHotKey x166 y114 w130 h20 ,
Gui, Add, Hotkey, vRHotkey x166 y134 w130 h20 ,
Gui, Add, GroupBox, x6 y24 w300 h70 , When this program is started also..
Gui, Add, GroupBox, x6 y164 w150 h80 , Indicators
Gui, Tab, Behaviour
Gui, Add, Edit, vAutoOffDegrees x16 y204 w130 h20 , Auto-Off Degrees
Gui, Add, CheckBox, vUseIndicators x16 y184 w130 h20 , Use Indicators
Gui, Add, GroupBox, x156 y164 w150 h50 , When LFS is Closed
Gui, Add, CheckBox, vLFSClosesStrobe x166 y184 w130 h20 , Close Strobe
Gui, Add, Button, gSave x156 y214 w150 h30 , Save and Apply Changes
Gui, Tab, Buttons
Gui, Add, GroupBox, x6 y34 w300 h90 , Strobe`, Siren`, Horn
Gui, Add, Edit, vStrobeToggleKey x146 y54 w150 h20 , Edit
Gui, Add, Edit, vSirenToggleKey x146 y74 w150 h20 , Edit(Do not use B)
Gui, Add, Edit, vHorn x146 y94 w150 h20 , Edit
Gui, Add, Text, x16 y54 w120 h20 , Toggle Strobe
Gui, Add, Text, x16 y74 w120 h20 , Toggle Siren
Gui, Add, Text, x16 y94 w120 h20 , Horn
Gui, Add, GroupBox, x6 y124 w300 h70 , Indicators
Gui, Add, Text, x16 y144 w120 h20 , L Indicator
Gui, Add, Text, x16 y164 w120 h20 , R Indicator
Gui, Add, Edit, vLInidicator x146 y144 w150 h20 , Edit
Gui, Add, Edit, VRIndicator x146 y164 w150 h20 , Edit
Gui, Add, Button, gSave x156 y214 w150 h30 , Save and Apply Changes
Gui, Show, x399 y307 h275 w311, New GUI Window

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;Show last set settings to prevent confusing people;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

GuiControl,, EnableP1Launch, %EnableP1Launch%
GuiControl,, EnableP2Launch, %EnableP2Launch%
GuiControl,, Program1Directory, %Program1Directory%
GuiControl,, Program2Directory, %Program2Directory%
GuiControl,, LIndicatorWILLALSO, %LIndicatorWILLALSO%
GuiControl,, RIndicatorWILLALSO, %RIndicatorWILLALSO%
GuiControl,, LHotkey, %LHotkey%
GuiControl,, RHotkey, %RHotkey%
GuiControl,, AutoOffDegrees, %AutoOffDegrees%
GuiControl,, UseIndicators, %UseIndicators%
GuiControl,, LFSClosesStrobe, %LFSClosesStrobe%
GuiControl,, StrobeToggleKey, %StrobeToggleKey%
GuiControl,, SirenToggleKey, %SirenToggleKey%
GuiControl,, Horn, %Horn%
GuiControl,, LInidicator, %LIndicator%
GuiControl,, RIndicator, %RIndicator%

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;Actually run the bloody script;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Siren=0
Strobe=0
talkstrobe=0



Hotkey, ~%SirenToggleKey%, SIRENTK
return

SIRENTK:

{
If Siren= 0
{
SoundBeep, 590 , 400
Siren= 1
WinWaitActive, Live for Speed
Send {b down}
}
else
{
Send {b up}
SoundBeep, 590 , 200
Sleep 100
SoundBeep, 590 , 200
Siren=0
}
return
}


Hotkey, ~%StrobeToggleKey%, STROBETK

STROBETK:

{
If Strobe= 1
{
Strobe=0
Sleep 600
Send {0}
}
else
Strobe=1

return
}

Hotkey, ~%Horn%, HORN
return

HORN:

If (Siren= 1 AND A_TimeSincePriorHotkey >900)
{
WinWaitActive, Live for Speed
Send {SHIFTDOWN}{H}{SHIFTUP}
Send {SHIFTDOWN}
Sleep, 50
Send {SHIFTUP}
Keywait, %Horn%
Send {SHIFTDOWN}{H}{SHIFTUP}
Send {SHIFTDOWN}{H}{SHIFTUP}
Send {SHIFTDOWN}{H}{SHIFTUP}
Send {SHIFTDOWN}{H}{SHIFTUP}
Send {SHIFTDOWN}
Sleep, 50
Send {SHIFTUP}
}
If (Siren= 1 AND A_PriorHotKey = "%Horn%" AND A_TimeSincePriorHotkey <800)
{
SoundBeep, 700 , 150
Send {SHIFTDOWN}{H}{SHIFTUP}
Send {SHIFTDOWN}{H}{SHIFTUP}
Send {SHIFTDOWN}{H}{SHIFTUP}
Send {SHIFTDOWN}{H}{SHIFTUP}
Send, {SHIFTDOWN}
Sleep, 50
Send, {SHIFTUP}
Keywait, %Horn%
Keywait, %Horn%, D
Send {SHIFTDOWN}{H}{SHIFTUP}
Send, {SHIFTDOWN}
SoundBeep, 700 , 150
Sleep, 10
Send, {SHIFTUP}
return
}
else
if Siren=0
{
WinWaitActive, Live for Speed
Send {ALTDOWN}{F1}{ALTUP}
Send {b down}
Keywait, %Horn%
Send {b up}
Send {ALTDOWN}{F1}{ALTUP}
}
return

~t::
If Strobe=1
{
Strobe=0
talkstrobe=1
WinWaitActive, Live for Speed
SendInput {delete, 5}
}
return
~enter::
if talkstrobe=1
{
strobe=1
talkstrobe=0
}
return
Return



GuiClose:
ExitApp

Save:
{
gui, submit, nohide
iniwrite, %EnableP1Launch%, AStrobe.ini, Settings, EnableP1Launch
iniwrite, %EnableP2Launch%, AStrobe.ini, Settings, EnableP2Launch
iniwrite, %Program1Directory%, AStrobe.ini, Settings, Program1Directory
iniwrite, %Program2Directory%, AStrobe.ini, Settings, Program2Directory
iniwrite, %LIndicatorWILLALSO%, AStrobe.ini, Settings, LIndicatorWILLALSO
iniwrite, %RIndicatorWILLALSO%, AStrobe.ini, Settings, RIndicatorWILLALSO
iniwrite, %LHotkey%, AStrobe.ini, Settings, LHotkey
iniwrite, %RHotkey%, AStrobe.ini, Settings, RHotkey
iniwrite, %AutoOffDegrees%, AStrobe.ini, Settings, AutoOffDegrees
iniwrite, %UseIndicators%, AStrobe.ini, Settings, UseIndicators
iniwrite, %LFSClosesStrobe%, AStrobe.ini, Settings, LFSClosesStrobe
iniwrite, %StrobeToggleKey%, Astrobe.ini, Settings, StrobeToggleKey
iniwrite, %SirenToggleKey%, AStrobe.ini, Settings, SirenToggleKey
iniwrite, %Horn%, AStrobe.ini, Settings, Horn
iniwrite, %LInidicator%, AStrobe.ini, Settings, LIndicator
iniwrite %RIndicator%, AStrobe.ini, Settings, RIndicator
sleep, 100
MsgBox, Gratz, you saved!


}

What's written to the ini file (Click to View)

[Settings]
EnableP1Launch=0
EnableP2Launch=0
Program1Directory=c:\programs\lfs\lfs.exe
Program2Directory=somewhere\musicplayer.exe
LIndicatorWILLALSO=1
RIndicatorWILLALSO=0
LHotkey=F7
RHotkey=F8
AutoOffDegrees=200
UseIndicators=1
LFSClosesStrobe=1
StrobeToggleKey=f1
SirenToggleKey=f2
Horn=f3
LIndicator=
RIndicator=f5

Some pictures too