[Free] H1Z1 KOTK AHK Script

#NoEnv
SetWorkingDir %A_ScriptDir%
#SingleInstance Force
#Persistent
onexit, close

pressed := false
Prepared := false
ar := false
timer = 0;

Gui, New,,H1Z1 No Recoil
Gui Add, GroupBox, 50 h150 w200, AR
Gui, Add, Button, xp+10 yp+20 w180 vbtn_ar gbtn_ar, AR
Gui, Add, Button, w180 h40 gChangeKeyARCallback vChangeKeyARText, Change Key AR
Gui, Add, Text, yp+40, AR Schuss Delay(ms):
Gui, Add, Slider, Left Range+100-500 TickInterval30 page15 gSyncdFramePositionAR vSyncdFramePositionAR AltSubmit,150
Gui, Add, Text, x150 y110 w40 h30 Center 0x200 0x1000 vValueAR, 0

Gui Add, GroupBox, x10 50 h150 w200, AK
Gui, Add, Button, xp+10 yp+20 w180 vbtn_ak gbtn_ak, AK
Gui, Add, Button, w180 h40 gChangeKeyAKCallback vChangeKeyAKText, Change Key AK
Gui, Add, Text,, AK Schuss Delay(ms):
Gui, Add, Slider, Left Range+100-500 TickInterval30 page15 gSyncdFramePositionAK vSyncdFramePositionAK AltSubmit,150
Gui, Add, Text, x150 y270 w40 h30 Center 0x200 0x1000 vValueAK, 0

Gui, Add, Button, x20 y320 w180 gChangeTriggerKeyCallback vChangeTriggerKeyText, Change Trigger Key
Gui, Show

IniRead, SwitchARKey, Settings.ini, Settings, SwitchARKey
IniRead, SwitchAKKey, Settings.ini, Settings, SwitchAKKey
IniRead, TriggerKey, Settings.ini, Settings, TriggerKey
IniRead, ARSpeed, Settings.ini, Settings, ARSpeed
IniRead, AKSpeed, Settings.ini, Settings, AKSpeed
GuiControl,, ChangeKeyARText, AR Switch Key: %SwitchARKey%
GuiControl,, ChangeKeyAKText, AK Switch Key: %SwitchAKKey%
GuiControl,, ChangeTriggerKeyText, Trigger Key: %TriggerKey%
GuiControl,,SyncdFramePositionAR,%ARSpeed%
GuiControl,,SyncdFramePositionAK,%AKSpeed%
GuiControl,,ValueAR,%ARSpeed%
GuiControl,,ValueAK,%AKSpeed%
Goto, LoopRunAR
Return

SyncdFramePositionAR:
GuiControlGet,SyncdFramePositionAR,2:
GuiControl,,ValueAR,%SyncdFramePositionAR%
If (A_GuiEvent <> "Normal" && A_GuiEvent <> "4") {
Return
}
IniWrite, %SyncdFramePositionAR%, Settings.ini, Settings, ARSpeed
Return

SyncdFramePositionAK:
GuiControlGet,SyncdFramePositionAK,2:
GuiControl,,ValueAK,%SyncdFramePositionAK%
If (A_GuiEvent <> "Normal" && A_GuiEvent <> "4") {
Return
}
IniWrite, %SyncdFramePositionAK%, Settings.ini, Settings, AKSpeed
Return

ChangeTriggerKeyCallback:
GuiControl,, ChangeTriggerKeyText, Press a key..
Input, OutputVar, L1 E
GuiControl,, ChangeTriggerKeyText, Trigger Key: %OutputVar%
IniWrite, %OutputVar%, Settings.ini, Settings, TriggerKey
Return

ChangeKeyARCallback:
GuiControl,, ChangeKeyARText, Press a key..
Input, OutputVar, L1 M
GuiControl,, ChangeKeyARText, AR Switch Key: %OutputVar%
IniWrite, %OutputVar%, Settings.ini, Settings, SwitchARKey
Return

ChangeKeyAKCallback:
GuiControl,, ChangeKeyAKText, Press a key..
Input, OutputVar, L1 M
GuiControl,, ChangeKeyAKText, AK Switch Key: %OutputVar%
IniWrite, %OutputVar%, Settings.ini, Settings, SwitchAKKey
Return

btn_ar:
ar := true
GuiControl, Disable, btn_ar
GuiControl, Enable, btn_ak
Return

btn_ak:
ar := false
GuiControl, Disable, btn_ak
GuiControl, Enable, btn_ar
Return

LoopRunAR:
IniRead, TriggerKey, Settings.ini, Settings, TriggerKey
IniRead, SwitchARKey, Settings.ini, Settings, SwitchARKey
IniRead, SwitchAKKey, Settings.ini, Settings, SwitchAKKey
if (GetKeyState(SwitchARKey,"P")=1)
GoSub, btn_ar
if (GetKeyState(SwitchAKKey,"P")=1)
GoSub, btn_ak
if (ar == true)
IniRead, Speed, Settings.ini, Settings, ARSpeed
else
IniRead, Speed, Settings.ini, Settings, AKSpeed

while GetKeyState(TriggerKey)
{
SetMouseDelay, Speed
Click
}
if (ar == true)
Goto, LoopRunAR
else
Goto, LoopRunAK
Return

LoopRunAK:
IniRead, TriggerKey, Settings.ini, Settings, TriggerKey
IniRead, SwitchARKey, Settings.ini, Settings, SwitchARKey
IniRead, SwitchAKKey, Settings.ini, Settings, SwitchAKKey
if (GetKeyState(SwitchARKey,"P")=1)
GoSub, btn_ar
if (GetKeyState(SwitchAKKey,"P")=1)
GoSub, btn_ak
if (ar == true)
IniRead, Speed, Settings.ini, Settings, ARSpeed
else
IniRead, Speed, Settings.ini, Settings, AKSpeed

while GetKeyState(TriggerKey)
{
MouseMove, 0, 5, 0, R
SetMouseDelay, 20
Click
Sleep, Speed
}
if (ar == true)
Goto, LoopRunAR
else
Goto, LoopRunAK
Return

GuiClose:
exitapp
return

f8::tongueclosed:ause,toggle

Close:
exitapp
return