$iv_Address = 0x1063F2E8; Base $LC = ProcessExists("Nksp.exe") $ah_Handle = _MemoryOpen($LC) Dim $av_OffsetHP[2] = [0, 0x107324]; aktuelle HP Dim $av_OffsetHPM[2] = [0, 0x107320]; maximale HP $sv_Type = "float"; Type: dword = 4 Bytes, float = Float
While True If $LC Then $msg = GUIGetMsg() Switch $msg Case -3 Exit EndSwitch
$HP = _MemoryPointerRead($iv_Address, $ah_Handle, $av_OffsetHP, $sv_Type); aktuelle HP des Ziels $HPM = _MemoryPointerRead($iv_Address, $ah_Handle, $av_OffsetHPM, $sv_Type); maximale HP des Ziels
If GUICtrlRead($labelHP) <> $label Then GUICtrlSetData($labelHP, $label); ändert das Label nur, wenn sich die Werte geändert haben GUICtrlSetData($progressHP, $progress) Else MsgBox(48, "Fehler", "Starte zuerst LastChaos!") Exit EndIf WEnd
alles schön und gut Killer aber vollkommen am ziel vorbeigeschossen xD ich möchte nicht die HP des Targets anzeigen sondern die eigene
was bedeutet das ich eine sich immer wieder aktualisierende Funktion zusammenbekommen muss um meine HP mein Mana und die HP meines pets immer aktuell im Projekt sehen zu können und das überfordert mich noch ein bisschen
Edit: Ich habs nun dank EndtotheNight geschafft immerhin die Anzeige abzustimmen so das meine HP leiste jetzt meine eigenen HP anzeigt wie sie es soll das muss ich jetzt nur noch in zahlen umsetzen und dann ist mein tagesziel erriecht
Ersetzt einfach die Offsets durch die des eigenen Spielers und änder das "float" zu "dword" → das wars.
Mach es einfach so:
PHP Code:
;GUI
While True
;$msg = GUIGetMsg()
;...
_Read()
WEnd
Func _Read()
Global $HP = _MemoryPointerRead()
Global $HPM = _MemoryPointerRead()
Global $MP = _MemoryPointerRead()
Global $MPM = _MemoryPointerRead()
Global $PetHP = _MemoryPointerRead()
Global $PetFP = _MemoryPointerRead()
_Heal()
EndFunc
Func _Heal()
If $HP[1] = $HPM[1] - GUICtrlRead($inputHP) Then ControlSend("LastChaos - Gamigo", "", "", "{F1}")
;
EndFunc
Ersetzt einfach die Offsets durch die des eigenen Spielers und änder das "float" zu "dword" → das wars.
Mach es einfach so:
PHP Code:
;GUI
While True
;$msg = GUIGetMsg()
;...
_Read()
WEnd
Func _Read()
Global $HP = _MemoryPointerRead()
Global $HPM = _MemoryPointerRead()
Global $MP = _MemoryPointerRead()
Global $MPM = _MemoryPointerRead()
Global $PetHP = _MemoryPointerRead()
Global $PetFP = _MemoryPointerRead()
_Heal()
EndFunc
Func _Heal()
If $HP[1] = $HPM[1] - GUICtrlRead($inputHP) Then ControlSend("LastChaos - Gamigo", "", "", "{F1}")
;
EndFunc
Sry vergessen Bescheid zu sagen...
Killer deine Variante hat mir auch geholfen ich habe 2 Leisten eingebaut eine für die eigene und eine für das Target
Edit:
Jetzt fehlt mir nur noch eines und dann bin ich erst mal gerüstet^^
eine mgöichkeit das hier einzubinden...
PHP Code:
$onoff = 0 ;1= an 0= aus
Case $btn_Start
$onoff = 1
Case $btn_Stop
$onoff = 0
wer ne Idee hat ich bin für alles dankbar
mein größter Danke geht wohl an Endtothenight für seine extremen Nerven die er mit mir hat und für seine super Hilfe mit meinem Script
;$iv_Address = 0x1063F2E8; Base
Dim $av_OffsetHP[2] = [0, 0x107324];
Dim $av_OffsetHPM[2] = [0, 0x107320];
$sv_Type = "float";
Global $iv_Pid = ProcessExists("Nksp.exe")
Global $ah_Handle = _MemoryOpen($iv_Pid)
Global $av_OffsetAT[5] = [0, 0x1C , 0x10 , 0x4 , 0xDDC]
Global $av_OffsetGS[5] = [0, 0x1C, 0x10, 0x4, 0xDD4]
Global $SV_TYPE4B = "dword"
Global $sv_TypeF = "float"
Global $PID = WinGetProcess("LastChaos - (")
Global $Memory = _MemoryOpen($iv_Pid)
Global $Pointer1 = 0x1063F2E8 ;_pnetwork
Global $HPCuroffset[2] = [0 ,0x1076E8]
Global $HPMaxoffset[2] = [0 , 0x1076EC]
Global $HPCur
Global $HPMax
Global $Moblvloffset[2] = [0,0x107328]
Global $Moblvl
Func _esc()
Exit
EndFunc
While 1
$NMG = GUIGetMsg()
Switch $NMG
Case $GUI_Event_Close
Exit
EndSwitch
Bot()
Hacks()
HPLabel()
HPTarget()
WEnd
If GUICtrlRead($Angriffstempo)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetAT, $v_DataAT, "dword")
EndIf
If GUICtrlRead($Geschwindigkeit)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetGS, $v_DataGS, "float")
EndIf
EndFunc
Func HPLabel()
If $PID Then
$HPCur = _MemoryPointerRead($Pointer1, $Memory, $HPCuroffset, "dword")
If @error Then
Beep(100,500)
EndIf
$HPMax = _MemoryPointerRead($Pointer1, $Memory, $HPMaxoffset, "dword")
If @error Then
Beep(100,500)
EndIf
$label = $HPCur[1] & " / " & $HPMax[1];
If GUICtrlRead($labelHP) <> $label Then GUICtrlSetData($labelHP, $label)
GuiCtrlSetData($HPLeiste, Int(($HPcur[1]/($HPmax[1] / 100))))
EndIf
EndFunc
Func HPTarget()
If $PID Then
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
EndSwitch
;$iv_Address = 0x1063F2E8; Base
Dim $av_OffsetHP[2] = [0, 0x107324];
Dim $av_OffsetHPM[2] = [0, 0x107320];
$sv_Type = "float";
Global $iv_Pid = ProcessExists("Nksp.exe")
Global $ah_Handle = _MemoryOpen($iv_Pid)
Global $av_OffsetAT[5] = [0, 0x1C , 0x10 , 0x4 , 0xDDC]
Global $av_OffsetGS[5] = [0, 0x1C, 0x10, 0x4, 0xDD4]
Global $SV_TYPE4B = "dword"
Global $sv_TypeF = "float"
Global $PID = WinGetProcess("LastChaos - (")
Global $Memory = _MemoryOpen($iv_Pid)
Global $Pointer1 = 0x1063F2E8 ;_pnetwork
Global $HPCuroffset[2] = [0 ,0x1076E8]
Global $HPMaxoffset[2] = [0 , 0x1076EC]
Global $HPCur
Global $HPMax
Global $Moblvloffset[2] = [0,0x107328]
Global $Moblvl
Func _esc()
Exit
EndFunc
While 1
$NMG = GUIGetMsg()
Switch $NMG
Case $GUI_Event_Close
Exit
EndSwitch
Bot()
Hacks()
HPLabel()
HPTarget()
WEnd
If GUICtrlRead($Angriffstempo)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetAT, $v_DataAT, "dword")
EndIf
If GUICtrlRead($Geschwindigkeit)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetGS, $v_DataGS, "float")
EndIf
EndFunc
Func HPLabel()
If $PID Then
$HPCur = _MemoryPointerRead($Pointer1, $Memory, $HPCuroffset, "dword")
If @error Then
Beep(100,500)
EndIf
$HPMax = _MemoryPointerRead($Pointer1, $Memory, $HPMaxoffset, "dword")
If @error Then
Beep(100,500)
EndIf
$label = $HPCur[1] & " / " & $HPMax[1];
If GUICtrlRead($labelHP) <> $label Then GUICtrlSetData($labelHP, $label)
GuiCtrlSetData($HPLeiste, Int(($HPcur[1]/($HPmax[1] / 100))))
EndIf
EndFunc
Func HPTarget()
If $PID Then
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
EndSwitch
>Running:(3.3.6.1):C:\Program Files\AutoIt3\autoit3.exe "C:\Users\Timothy\Documents\Autoit\Script NewGui.au3"
C:\Users\Timothy\Documents\Autoit\Script NewGui.au3 (173) : ==> Subscript used with non-Array variable.:
If $Moblvl[1] >= GUICtrlRead($tb_min) And $Moblvl[1] <= GUICtrlRead($tb_max) Then
If $Moblvl^ ERROR
>Running:(3.3.6.1):C:\Program Files\AutoIt3\autoit3.exe "C:\Users\Timothy\Documents\Autoit\Script NewGui.au3"
C:\Users\Timothy\Documents\Autoit\Script NewGui.au3 (173) : ==> Subscript used with non-Array variable.:
If $Moblvl[1] >= GUICtrlRead($tb_min) And $Moblvl[1] <= GUICtrlRead($tb_max) Then
If $Moblvl^ ERROR
;$iv_Address = 0x1063F2E8; Base
Dim $av_OffsetHP[2] = [0, 0x107324];
Dim $av_OffsetHPM[2] = [0, 0x107320];
$sv_Type = "float";
Global $iv_Pid = ProcessExists("Nksp.exe")
Global $ah_Handle = _MemoryOpen($iv_Pid)
Global $av_OffsetAT[5] = [0, 0x1C , 0x10 , 0x4 , 0xDDC]
Global $av_OffsetGS[5] = [0, 0x1C, 0x10, 0x4, 0xDD4]
Global $SV_TYPE4B = "dword"
Global $sv_TypeF = "float"
Global $PID = WinGetProcess("LastChaos - (")
Global $Memory = _MemoryOpen($iv_Pid)
Global $Pointer1 = 0x1063F2E8 ;_pnetwork
Global $HPCuroffset[2] = [0 ,0x1076E8]
Global $HPMaxoffset[2] = [0 , 0x1076EC]
Global $HPCur
Global $HPMax
Global $Moblvloffset[2] = [0,0x107328]
Global $Moblvl
$onoff = 0 ;1= an 0= aus
Func _esc()
Exit
EndFunc
Switch GUIGetMsg()
Case $btn_Start
$onoff = 1
Case $btn_Stop
$onoff = 0
EndSwitch
While 1
$NMG = GUIGetMsg()
Switch $NMG
Case $GUI_Event_Close
Exit
EndSwitch
Bot()
Hacks()
HPLabel()
HPTarget()
WEnd
If GUICtrlRead($Angriffstempo)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetAT, $v_DataAT, "dword")
EndIf
If GUICtrlRead($Geschwindigkeit)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetGS, $v_DataGS, "float")
EndIf
EndFunc
Func HPLabel()
If $PID Then
$HPCur = _MemoryPointerRead($Pointer1, $Memory, $HPCuroffset, "dword")
If @error Then
Beep(100,500)
EndIf
$HPMax = _MemoryPointerRead($Pointer1, $Memory, $HPMaxoffset, "dword")
If @error Then
Beep(100,500)
EndIf
$label = $HPCur[1] & " / " & $HPMax[1];
If GUICtrlRead($labelHP) <> $label Then GUICtrlSetData($labelHP, $label)
GuiCtrlSetData($HPLeiste, Int(($HPcur[1]/($HPmax[1] / 100))))
EndIf
EndFunc
Func HPTarget()
If $PID Then
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
EndSwitch
[Hilfe] Suche Guten Patcher und seine hilfe 05/28/2010 - Metin2 PServer Guides & Strategies - 5 Replies Hallo Liebe community suche einen patcher der von http://ytsf2.netai.net/
alle datein runterladet die drauf sind aber ohne den ganzen client raufzuladen auf den webspace z.b ich mein das so
webspace is leer tuhe item.txt raufladen
soll er die datei ruter laden kann mir bitte wer helfen were supper :D
Hilfe!!!Hae Root angebot aber wie Server eröffnen...Suche Hilfe und ein TEAM!!!!! 04/19/2010 - Metin2 Private Server - 3 Replies Hey,ich habe ein wundervolles Angebot ein Root zu kriegen,und wollte fragen,wie stelle ich das ein,das ich ein Root Server habe,wie eröffne ich ihn???Und noch viel mehr
Suche ein Team!!!
Hp Designer
Datenbank helfen undso
"entbugger"
und und und
Meldet euch oder schreibts in den Thread
Danke!!!!!!!!
HILFE: Wegen PlaySpan IP Change suche hilfe mit teamviewer 02/04/2010 - WarRock - 5 Replies Hi,
ich habe mir schon ätliche tuts angesehen und ohne virustotal gedownloadet aber bei mir klappt es nicht kann mir jemand einen genauen link der Klappt und mir helfen`??? pls wäre nett