#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Pointer.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("4StoryEG Multihack by Bl4ckH4ck3r feat. .-Frerer", 327, 402, 166, 115)
$Label1 = GUICtrlCreateLabel("Speed", 0, 24, 44, 25)
$Label2 = GUICtrlCreateLabel("OneHitMagic", 16, 104, 68, 25)
$Label3 = GUICtrlCreateLabel("OneHitPhisik", 16, 184, 68, 25)
$Label4 = GUICtrlCreateLabel("NoMiss", 144, 0, 60, 17)
$Label5 = GUICtrlCreateLabel("Unbesiegbar", 144, 102, 60, 17)
$Button1 = GUICtrlCreateButton("On", 0, 48, 49, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Off", 48, 48, 49, 33, $WS_GROUP)
$Button3 = GUICtrlCreateButton("On", 0, 128, 49, 33, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Off", 48, 128, 49, 33, $WS_GROUP)
$Button5 = GUICtrlCreateButton("On", 0, 246, 49, 33, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Off", 48, 218, 49, 33, $WS_GROUP)
$Button7 = GUICtrlCreateButton("On", 136, 32, 49, 33, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Off", 184, 32, 49, 33, $WS_GROUP)
$Button9 = GUICtrlCreateButton("On", 136, 128, 49, 33, $WS_GROUP)
$Button10 = GUICtrlCreateButton("Off", 184, 128, 49, 33, $WS_GROUP)
$Graphic1 = GUICtrlCreateGraphic(96, 48, 33, 33)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic2 = GUICtrlCreateGraphic(232, 32, 33, 33)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic3 = GUICtrlCreateGraphic(96, 128, 33, 33)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic4 = GUICtrlCreateGraphic(96, 246, 33, 33)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic5 = GUICtrlCreateGraphic(232, 128, 33, 33)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label6 = GUICtrlCreateLabel("Verbunden?", 152, 184, 68, 25)
$Label7 = GUICtrlCreateLabel("Ja!", 168, 224, 36, 25)
$Group1 = GUICtrlCreateGroup("TClient", 136, 168, 105, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" Standart Hacks", 0, 0, 297, 265)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label8 = GUICtrlCreateLabel("Kingdomhack:", 0, 304, 108, 25)
$Button17 = GUICtrlCreateButton("Derion", 104, 272, 75, 17, $WS_GROUP)
$Button18 = GUICtrlCreateButton("Valorian", 216, 272, 75, 17, $WS_GROUP)
$Group3 = GUICtrlCreateGroup("Kingdom", 0, 280, 257, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label9 = GUICtrlCreateLabel("X:", 8, 80, 44, 33)
$Label10 = GUICtrlCreateLabel("Y:", 8, 24, 44, 33)
$Input1 = GUICtrlCreateInput("", 48, 24, 49, 21)
$Input2 = GUICtrlCreateInput("", 64, 32, 89, 21)
$Input3 = GUICtrlCreateInput("", 64, 88, 89, 21)
$Button19 = GUICtrlCreateButton("Teleport", 224, 320, 89, 25, $WS_GROUP)
$Group4 = GUICtrlCreateGroup("Teleport", 304, 0, 313, 129)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If Not ProcessExists("TClient.exe") Then
GUICtrlSetData($Label8, "Nein!")
EndIf
$GamePid1 = ProcessExists("TClient.exe")
$GameHandle1 = _MemoryOpen($GamePid1)
$BaseAdresse1 = 0x00686D04
Dim $OneHitPhy[3] = [0, 0xA08, 0x484]
Dim $OneHitMage[3] = [0, 0xA08, 0x480]
Dim $Speedhack[3]
$Speedhack[0] = 0
$Speedhack[1] = 0xA08
$Speedhack[2] = 0x9F6
Dim $Invisible[3]
$Invisible[0] = 0
$Invisible[1] = 0xA08
$Invisible[2] = 0x44C
Dim $FlyHack[3] = [0, 0xA08, 0x441]
Dim $NoMiss[3]
$NoMiss[0] = 0
$NoMiss[1] = 0xA08
$NoMiss[2] = 0x476
Dim $Unbesiegbar[3]
$Unbesiegbar[0] = 0
$Unbesiegbar[1] = 0xA08
$Unbesiegbar[2] = 0x44E
Dim $SkilLevel[3] = [0, 0xA08, 0x48E]
Dim $Skilhack[3] = [0, 0xA08, 0x474]
Dim $X[3]
$X[0] = 0
$X[1] = 0xA08
$X[2] = 0x84
Dim $Y[3]
$Y[0] = 0
$Y[1] = 0xA08
$Y[2] = 0x8C
Dim $KingDomHack[3] = [0, 0xA08, 0x461]
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)
Case $Button3
AdlibRegister("_OneHit", 20)
Case $Button4
AdlibUnRegister("_OneHit")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitMage, 1)
GUICtrlSetBkColor($Graphic2, 16711680)
Case $Button5
AdlibRegister("_OneHit2", 20)
Case $Button6
AdlibUnRegister("_OneHit2")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitPhy, 1)
GUICtrlSetBkColor($Graphic3, 16711680)
Case $Button7
AdlibRegister("_NoMiss", 20)
Case $Button8
AdlibUnRegister("_NoMiss")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $NoMiss, 1)
GUICtrlSetBkColor($Graphic4, 16711680)
Case $Button9
AdlibRegister("_Invisible", 20)
Case $Button10
AdlibUnRegister("_Invisible")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Invisible, 1)
GUICtrlSetBkColor($Graphic5, 16711680)
Case $Button17
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $KingDomHack, -1)
Case $Button18
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $KingDomHack, +1)
Case $Button19
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $X, GUICtrlRead($Input4), 'float')
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Y, GUICtrlRead($Input5), 'float')
EndSwitch
WEnd
Func _F12()
ControlSend("4Story_US", "", 0, "{F12}")
EndFunc ;==>_F12
Func _Speedhack()
$Button1()
_MemoryPointerWrite($base,$open,$offis,GUICtrlRead ($Input1))
GUICtrlSetBkColor($Graphic1, 65280)
EndFunc ;==>_Speedhack
Func _OneHit()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitMage, 9999999)
GUICtrlSetBkColor($Graphic2, 65280)
EndFunc ;==>_OneHit
Func _OneHit2()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitPhy, 9999999)
GUICtrlSetBkColor($Graphic3, 65280)
EndFunc ;==>_OneHit2
Func _NoMiss()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $NoMiss, 9999999)
GUICtrlSetBkColor($Graphic4, 65280)
EndFunc ;==>_NoMiss
Func _Invisible()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Invisible, 16842752)
GUICtrlSetBkColor($Graphic5, 65280)
EndFunc ;==>_Invisible
Func _Unbesiegbar()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Unbesiegbar, 16842752)
GUICtrlSetBkColor($Graphic6, 65280)
EndFunc ;==>_GodMode
Func _Skillhack()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Skilhack, GUICtrlRead($Input2))
GUICtrlSetBkColor($Graphic7, 65280)
EndFunc ;==>_Skillhack
Func _Skilllevel()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $SkilLevel, GUICtrlRead($Input4))
GUICtrlSetBkColor($Graphic8, 65280)
EndFunc ;==>_Skilllevel
Schick mal den gesamten Ausschnitt der Source unter und über dem Fehler.