[Free] H1Z1 KOTK AHK Script

[honigkuchenpferd2]

Hallo zusammen,

derzeit versuchen viele Leute Geld mit einem kostenlosen AHK Skript zu verdienen. Das Skript wird frei in einem anderen Forum angeboten.

Möglichkeiten zu Einstellungen:

• AK Rapidfire / Norecoil
• AR Rapidfire / Norecoil

HowTo:

1. Datei eintpacken
2. Die .exe ausführen
3. Taste festlegen

Jenachdem wie ihr die MS einstellt verändert sich die Schussrate. AR-15 auf 120ms und die AK auf 220ms für "norecoil".

Der Quellcode:

 Spoiler

#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

Ich bin NICHT für euren Account verantworltich - Benutzung auf eigene Gefahr. Das Skript ist NICHT von mir, ich habe es nur gefunden und will es euch auch bereitstellen.

[Wogibogi]

Some one confirm pls

[malvadooo]

Thanks for that

but it doesn't work for me

[Wogibogi]

can you make a video on how it works

[kokito675]

It doesnt work for me either the only think it does is with the ak to move my mouse down... and it moves my mouse down only in my desktop pls fix it

[honigkuchenpferd2]

Its still working for me. Did u select a button? Dont forget to zoom in before shooting (right click!).

greetz

[sirmike]

AHK scripts are disabled by default. Love how you got it working on your end and no one is able to use it

Triggerkey does not recognize any mouse button keybinds, only keyboard.
I set it to s to test. With default 220 AK it did single shots
it was not no recoil nor rapidfire. Gun went everywhere.

[julij123]

Can you help me how to set it up?

its not working -.- i meen its working but wird

Originally Posted by sirmike

AHK scripts are disabled by default. Love how you got it working on your end and no one is able to use it

Triggerkey does not recognize any mouse button keybinds, only keyboard.
I set it to s to test. With default 220 AK it did single shots
it was not no recoil nor rapidfire. Gun went everywhere.

Ye you are right!

[k1doopgl]

so its this safe and work , or no ?

[julij123]

It its safe but im not acutaly sure if norecoil Works only macro...

[Need1Link]

-.-

with "Recoil" is meant, that the shots reset perfectly before firing the next shot.

[honigkuchenpferd2]

-.-

with "Recoil" is meant, that the shots reset perfectly before firing the next shot.

This.

[munse]

Es wäre interessant zu wissen wie man den Trigger button auf die L maustase legen kann?

TriggerKey=LButton geht nicht wirklich.

gibt es da eine möglichkeit?

[macieeldosantos]

This **** is not good..

[Xenos]

Absoluter Mist