#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#RequireAdmin
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Speedhack", 253, 36, 200, 122)
$Button1 = GUICtrlCreateButton("On", 160, 8, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button2 = GUICtrlCreateButton("Off", 192, 8, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Input1 = GUICtrlCreateInput("", 80, 8, 73, 19)
GUICtrlSetFont(-1, 6, 400, 0, "Palatino Linotype")
$Label1 = GUICtrlCreateLabel("Speedhack", 8, 8, 58, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Graphic1 = GUICtrlCreateGraphic(224, 8, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


$GamePid1 = ProcessExists ("TClient.exe")
$GameHandle1 = _MemoryOpen($GamePid1)
$BaseAdresse1 = 0x00686D04

Dim $Speedhack[3]
$Speedhack[0]=0
$Speedhack[1]=0xA08
$Speedhack[2]= 0x9F6


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            AdlibRegister("_Speedhack", 20)
        Case $Button2
            AdlibUnRegister("_Speedhack")
            _MemoryPointerWrite($BaseAdresse1,$GameHandle1,$Speedhack, 16230)
            GUICtrlSetBkColor($Graphic1, 16711680)

    EndSwitch
WEnd


Func _Speedhack()
    _MemoryPointerWrite($BaseAdresse1,$GameHandle1,$Speedhack, GUICtrlRead($Input1))
    GUICtrlSetBkColor($Graphic1, 65280)
EndFunc