Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#include <NomadMemory.au3>
Global $Input[15]
$Input[0] = 14
Global $Label[12]
$Label[0] = 11
Global $Checkbox[6]
$Checkbox [0] = 5
Global $Check = 1
Global $Check2 = 1
Global $Check3 = 1
Global $check4 = 1
Global $check5 = 1
Global $MP = 1
Global $MP2 = 1
Global $HP = 1
Global $HP2 = 1
Global $Active = 0
$Form1 = GUICreate("Nos Trainer", 668, 339, 34, 111)
$Progress1 = GUICtrlCreateProgress(24, 48, 142, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Progress2 = GUICtrlCreateProgress(224, 48, 142, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("Start", 448, 224, 147, 25)
$Button2 = GUICtrlCreateButton("Stop", 448, 288, 147, 25)
$Checkbox[1] = GUICtrlCreateCheckbox("Snacks benutzen? (HP)", 24, 80, 145, 17, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_CENTER))
$Checkbox[2] = GUICtrlCreateCheckbox("Snacks benutzen? (MP)", 224, 80, 145, 17, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_CENTER))
$Checkbox[3] = GUICtrlCreateCheckbox("Angreifen", 24, 240, 145, 17, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_CENTER))
$Checkbox[4] = GUICtrlCreateCheckbox("Skills Nutzen", 408, 24, 145, 17, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_CENTER))
$Checkbox[5] = GUICtrlCreateCheckbox("Aufheben", 224, 240, 145, 17, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_CENTER))
$Label[1] = GUICtrlCreateLabel("", 72, 48, 36, 17)
$Label[2] = GUICtrlCreateLabel("", 272, 48, 36, 17)
$Label[3] = GUICtrlCreateLabel("Health Points", 24, 24, 145, 17, $SS_CENTER)
$Label[4] = GUICtrlCreateLabel("Magic Points", 224, 24, 145, 17, $SS_CENTER)
$Label[5] = GUICtrlCreateLabel("Ab wieviel HP?", 24, 112, 145, 17, $SS_CENTER)
$Label[6] = GUICtrlCreateLabel("Ab wieviel MP?", 224, 112, 145, 17, $SS_CENTER)
$Label[7] = GUICtrlCreateLabel(" Taste vom Snack?", 24, 176, 145, 17, $SS_CENTER)
$Label[8] = GUICtrlCreateLabel("Taste vom Snack?", 224, 176, 145, 17, $SS_CENTER)
$Label[9] = GUICtrlCreateLabel("Sleep time?", 224, 272, 145, 17, $SS_CENTER)
$Label[10] = GUICtrlCreateLabel("Sleep time?", 24, 272, 145, 17, $SS_CENTER)
$Label[11] = GUICtrlCreateLabel("Sleep time?", 568, 25, 75, 17, $SS_CENTER)
$Input[1] = GUICtrlCreateInput("", 24, 136, 145, 21)
$Input[2] = GUICtrlCreateInput("", 224, 136, 145, 21)
$Input[3] = GUICtrlCreateInput("", 24, 200, 145, 21)
$Input[4] = GUICtrlCreateInput("", 224, 200, 145, 21)
$Input[5] = GUICtrlCreateInput("", 408, 48, 145, 21)
$Input[6] = GUICtrlCreateInput("", 408, 88, 145, 21)
$Input[7] = GUICtrlCreateInput("", 408, 128, 145, 21)
$Input[8] = GUICtrlCreateInput("", 408, 168, 145, 21)
$Input[9] = GUICtrlCreateInput("", 24, 296, 145, 21)
$Input[10] = GUICtrlCreateInput("", 224, 296, 145, 21)
$Input[11] = GUICtrlCreateInput("", 568, 48, 75, 21)
$Input[12] = GUICtrlCreateInput("", 568, 88, 75, 21)
$Input[13] = GUICtrlCreateInput("", 568, 128, 75, 21)
$Input[14] = GUICtrlCreateInput("", 568, 168, 75, 21)
GUISetState(@SW_SHOW)
For $a = 1 to 14
GUICtrlSetState($Input[$a], $GUI_DISABLE)
Next
For $b = 1 to 2
GUICtrlSetBkColor($Label[$b], $GUI_BKCOLOR_TRANSPARENT)
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If ProcessExists("NostaleX.dat") = 0 then msgbox (16, "Nostale", "Nostale ist nicht Offen")
$PID = ProcessWait ("NostaleX.dat")
If ProcessExists("NostaleX.dat") = $PID then
$Active = 1
Endif
If $Active = 1 then
Start()
Wend
Case $Button2
Pause()
EndSwitch
If $check = 1 AND GUICTRLREAD($Checkbox[1]) = 1 Then
GUICtrlSetState($Input[1], $GUI_ENABLE)
GUICtrlSetState($Input[3], $GUI_ENABLE)
$check = 0
EndIf
If $check = 0 AND GUICTRLREAD($Checkbox[1]) = 4 Then
GUICtrlSetState($Input[1], $GUI_DISABLE)
GUICtrlSetState($Input[3], $GUI_DISABLE)
$check = 1
EndIf
If $check2 = 1 AND GUICTRLREAD($Checkbox[2]) = 1 Then
GUICtrlSetState($Input[2], $GUI_ENABLE)
GUICtrlSetState($Input[4], $GUI_ENABLE)
$check2 = 0
EndIf
If $check2 = 0 AND GUICTRLREAD($Checkbox[2]) = 4 Then
GUICtrlSetState($Input[2], $GUI_DISABLE)
GUICtrlSetState($Input[4], $GUI_DISABLE)
$check2 = 1
EndIf
If $check3 = 1 AND GUICTRLREAD($Checkbox[4]) = 1 Then
GUICtrlSetState($Input[5], $GUI_ENABLE)
GUICtrlSetState($Input[6], $GUI_ENABLE)
GUICtrlSetState($Input[7], $GUI_ENABLE)
GUICtrlSetState($Input[8], $GUI_ENABLE)
GUICtrlSetState($Input[11], $GUI_ENABLE)
GUICtrlSetState($Input[12], $GUI_ENABLE)
GUICtrlSetState($Input[13], $GUI_ENABLE)
GUICtrlSetState($Input[14], $GUI_ENABLE)
$check3 = 0
EndIf
If $check3 = 0 AND GUICTRLREAD($Checkbox[4]) = 4 Then
GUICtrlSetState($Input[5], $GUI_DISABLE)
GUICtrlSetState($Input[6], $GUI_DISABLE)
GUICtrlSetState($Input[7], $GUI_DISABLE)
GUICtrlSetState($Input[8], $GUI_DISABLE)
GUICtrlSetState($Input[11], $GUI_DISABLE)
GUICtrlSetState($Input[12], $GUI_DISABLE)
GUICtrlSetState($Input[13], $GUI_DISABLE)
GUICtrlSetState($Input[14], $GUI_DISABLE)
$check3 = 1
EndIf
IF $Check4 = 1 And GUICTRLREAD($Checkbox[3]) = 1 Then
GUICtrlSetState($Input[9], $GUI_ENABLE)
$check4 = 0
Endif
IF $Check4 = 0 And GUICTRLREAD($Checkbox[3]) = 4 Then
GUICtrlSetState($Input[9], $GUI_DISABLE)
$check4 = 1
Endif
IF $Check5 = 1 And GUICTRLREAD($Checkbox[5]) = 1 Then
GUICtrlSetState($Input[10], $GUI_ENABLE)
$check5 = 0
Endif
IF $Check5 = 0 And GUICTRLREAD($Checkbox[5]) = 4 Then
GUICtrlSetState($Input[10], $GUI_DISABLE)
$check5 = 1
Endif
WEnd
Func Start()
Progress()
If GUICTRLREAD($Checkbox[1]) = 1 Then
HPSnacks()
Endif
If GUICTRLREAD($Checkbox[2]) = 1 Then
MPSnacks()
Endif
If GUICTRLREAD($Checkbox[3]) = 1 Then
Angreifen()
Endif
If GUICTRLREAD($Checkbox[4]) = 1 Then
Skill1()
Skill2()
Skill3()
Skill4()
Endif
If GUICTRLREAD($Checkbox[5]) = 1 Then
Aufheben()
Endif
EndFunc
Func Progress()
For $x = $HP To $HP2
GUICtrlSetData($progress1, $x)
GUICtrlSetData($progress1, ($HP2 - $x))
Next
For $y = $MP To $MP2
GUICtrlSetData($progress2, $y)
GUICtrlSetData($progress2, ($MP2 - $y))
Next
Endfunc
Func HPSnacks()
if $HP < $HP2 then
CONTROLSEND("NosTale","",0, $Input[1])
Sleep ($Input[3])
Endif
Endfunc
Func MPSnacks()
if $MP < $MP2 then
CONTROLSEND("NosTale","",0, $Input[2])
Sleep ($Input[4])
Endif
Endfunc
Func Angreifen()
CONTROLSEND("NosTale","",0, "{Space}")
Sleep ($Input[9])
Endfunc
Func Skill1()
CONTROLSEND("NosTale","",0, $Input[5])
Sleep (GUICTRLREAD($Input[11]))
Endfunc
Func Skill2()
CONTROLSEND("NosTale","",0, $Input[6])
Sleep (GUICTRLREAD($Input[12]))
Endfunc
Func Skill3()
CONTROLSEND("NosTale","",0, $Input[7])
Sleep (GUICTRLREAD($Input[13]))
Endfunc
Func Skill4()
CONTROLSEND("NosTale","",0, $Input[8])
Sleep (GUICTRLREAD($Input[14]))
Endfunc
Func Aufheben()
CONTROLSEND("NosTale","",0, "{ö}")
Sleep (GUICTRLREAD($Input[10]))
Endfunc
Func Pause()
$Active = 0
Endfunc
