; =========================================================================================================================\
;
;   0x0050F5BC; this is responsible for the power
;   0x0050F5B8; this is responsible for the volume
;   0x0050F5B4; this is responsible for the multiplyer
;   0x0050C15C; this is responsible for the number of lifes
;   0x0050C158; this is responsible for the points
;
; ==========================================================================================================================\


#RequireAdmin
#include <NomadMemory.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Dim $adress1
Dim $adress2
Dim $adress3
Dim $adress4
Dim $adress5
Dim $ID
Dim $Input1

$adress1 = 0x0050F5BC; this is responsible for the power
$adress2 = 0x0050F5B8; this is responsible for the volume
$adress3 = 0x0050F5B4; this is responsible for the multiplyer
$adress4 = 0x0050C15C; this is responsible for the number of lifes
$adress5 = 0x0050C158; this is responsible for the points
$adress6 = 0x0050C160; this is responsible for the bombs

Func pw()
    $value = 5
    $ID = _MemoryOpen(ProcessExists("BeatHazard.exe"))
    _MemoryWrite($adress1, $ID, $value)
    _MemoryClose($ID)
EndFunc

Func vl()
    $value = 5
    $ID = _MemoryOpen(ProcessExists("BeatHazard.exe"))
    _MemoryWrite($adress2, $ID, $value)
    _MemoryClose($ID)
EndFunc

Func lf()
    $value = $Input1
    $ID = _MemoryOpen(ProcessExists("BeatHazard.exe"))
    _MemoryWrite($adress4, $ID, $value)
    _MemoryClose($ID)
EndFunc

Func mp()
    $value = 99
    $ID = _MemoryOpen(ProcessExists("BeatHazard.exe"))
    _MemoryWrite($adress3, $ID, $value)
    _MemoryClose($ID)
EndFunc

Func bb()
    $value = $Input1
    $ID = _MemoryOpen(ProcessExists("BeatHazard.exe"))
    _MemoryWrite($adress6, $ID, $value)
    _MemoryClose($ID)
EndFunc

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Beat Hazard Trainer", 218, 359, 389, 87)
GUISetBkColor(0x0000FF)
$Label1 = GUICtrlCreateLabel("Beat Hazard Trainer", 16, 8, 190, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Button1 = GUICtrlCreateButton("Max Power", 24, 80, 163, 33)
$Button2 = GUICtrlCreateButton("Max Volume", 24, 128, 163, 33)
$Group1 = GUICtrlCreateGroup("Extra Options:", 24, 168, 161, 177)
$Input1 = GUICtrlCreateInput("", 112, 184, 65, 21)
$Button3 = GUICtrlCreateButton("Lifes", 32, 184, 57, 25)
$Button4 = GUICtrlCreateButton("99x Score Multiplier", 32, 224, 147, 25)
$Button5 = GUICtrlCreateButton("Super Bombs", 32, 264, 145, 25)
$Button6 = GUICtrlCreateButton("Exit", 112, 304, 65, 25)
$Button7 = GUICtrlCreateButton("Information", 32, 304, 65, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label2 = GUICtrlCreateLabel("Beat Hazard: Running", 16, 48, 182, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


If ProcessExists ("BeatHazard.exe") Then
        MsgBox (0, "Beat Hazard Trainer", "Beat Hazard Running, Press Ok and Select Your Options.")
    Else
        MsgBox (0, "Beat Hazard Trainer", "Beat Hazard Not Running, Please Run The Game And Them Run the Trainer.")
        Exit
EndIf


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            pw()
        Case $Button2
            vl()
        Case $Button3
            lf()
        Case $Button4
            mp()
        Case $Button5
            bb()
        Case $Button6
            Exit
        Case $Button7
            MsgBox (0, "Beat Hazard Trainer", "Trainer Made By xXBarataXx" & @CRLF & "Version 1.1 With GUI" & @CRLF & "Special Thanks To aosma8")
        EndSwitch
WEnd