Alles hat sich bei mir geklärt.
Danke!
Danke!
Global Const $Exp_Cur_Offset = 0x1B60 ;dword
Global Const $Gold_Offset = 0x1B64 ;dword
If $Basepointer_Haltbarkeit > 0 Then
_log("Basepointer_Endurance: %X", True, $Basepointer_Haltbarkeit)
$Basepointer_Haltbarkeit = _MemoryRead($Basepointer_Haltbarkeit, $HPID, 'dword')
Global $Basepointer_Haltbarkeit1 = _MemoryRead($Basepointer_Haltbarkeit + $Haltbarkeit_Offset[0], $HPID, 'dword')
_log("Basepointer_Endurance Level 1 points at: %X", True, $Basepointer_Haltbarkeit1)
Global $Basepointer_Haltbarkeit2 = _MemoryRead($Basepointer_Haltbarkeit1 + $Haltbarkeit_Offset[1], $HPID, 'dword')
_log("Basepointer_Endurance Level 2 points at: %X", True, $Basepointer_Haltbarkeit2)
_log("Weapon Endurance: %i", True, _Waffe_Haltbarkeit(), 2)
_log("Successful Initialization!")
_log("Bot can be startet now", False, 0, 2)
GUICtrlSetData($BBot, "Start Bot")
GUICtrlSetOnEvent($BBot, "_bot")
GUICtrlSetData($S_Speed, _Player_Speed() * 100 / 0.16)
AdlibRegister("_updateGUI", 500)
;~ Else
;~ _log("Basepointer_endurance could not be found.")
;~ Return 0
;~ EndIf
If _Gegner_Leben() > 0 And _Gegner_Anvisiert() = 1 and _Player_Ausruhen() = 1 Then ; And _Gegner_Typ() > 5
Func _suchen()
Local $Player_Level = _Player_Level()
If _Gegner_Anvisiert() = 0 Or _Gegner_Leben() = 0 Or _Gegner_Level() > $Player_Level + 5 Or _Gegner_Level() < $Player_Level - 5 Then
ControlSend($TITLE, "", $hwnd, "{TAB}")
_sleep(400)
If _Gegner_Anvisiert() = 0 Then
Return 2
Else
If _Gegner_Leben() = 0 Or _Gegner_Level() > $Player_Level + 5 Or _Gegner_Level() < $Player_Level - 5 Then
Return 0
Else
Return 1
EndIf
EndIf
Else
Return 1
EndIf
EndFunc ;==>_suchen