Thermallquellen Bot (Hintergrundmodus)

[Dunham]

neue mem`s thx @ syc0n

[SECTION 9-A]

DEATH = 0xa0d204
CAMCOURSE = 0xa0d0c8
MOVECHAR = 0xA0D78E


[SECTION D]
POSX = 0xd30a44
POSY = 0xd30a48
CHECK_MAP = 0xd306e0
NPC_ID_SELECTED = 0xd302D0

[jeyage]

Nice. Vielen dank !

[Dunham]

achso ich würde mich auch sehr über verbesserungen etc. freuen :-)

v1.1 mit Verkaufsfunktion ist gleich fertig :-) aber halt ohne ident funktion...

[i4mSoH34Vy]

Originally Posted by Dunham

achso ich würde mich auch sehr über verbesserungen etc. freuen :-)

v1.1 mit Verkaufsfunktion ist gleich fertig :-) aber halt ohne ident funktion...

Über User 32 identifizieren. Hat Blauwiggle hier mal gepostet.

[aLasca]

[Dunham]

jo hab mir schon den Thread 5mal durchgelesen checks aber nich :-)

/Update! Verkaufsfunktion hinzugefügt!

[i4mSoH34Vy]

Die Identfunktion ist für 800*600

Func ident()
LogWrite("Identifikation fängt an")
ControlSend($Hwnd1, "", "", "{.}")
Sleep(500)
$ident_x = 35
$ident_y = 430
$x = 20
$y = 50
$ident = 0
For $iy = $y To $y + 200 Step 50
For $ix = $x To $x + 170 Step 44
ControlClick($Hwnd1, "", "", "left", 2, $ident_x, $ident_y)
Sleep(200)
_MouseClick($Hwnd1, "left", $ix, $iy, 1, 80)
Next
Next
ControlSend($Hwnd1, "", "", "{.}")
EndFunc ;==>ident

Func _MakeLong($LoWord, $HiWord)
Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
EndFunc ;==>_MakeLong

Func _MouseClick($hwnd, $button, $x, $y, $times = 1, $delay = 15) ; Use the relative coords to the client area of the active window
If $hwnd = 0 Then
SetError(-1)
Return
EndIf

Local $ix
Local $lParam = _MakeLong($x, $y)
Local $user32 = DllOpen("user32.dll")

$button = StringLower($button)

If $button = "left" Then
For $ix = 1 To $times
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x200, "int", 0, "long", $lParam) ; Move
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x201, "int", 1, "long", $lParam) ; Down
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x202, "int", 0, "long", $lParam) ; Up

If $ix < $times Then Sleep($delay)
Next
ElseIf $button = "right" Then
For $ix = 1 To $times
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x200, "int", 0, "long", $lParam) ; Move
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x204, "int", 2, "long", $lParam) ; Down
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", 0x205, "int", 0, "long", $lParam) ; Up

If $ix < $times Then Sleep($delay)
Next
Else
SetError(-2)
If $user32 <> -1 Then DllClose($user32)
Return
EndIf
If $user32 <> -1 Then DllClose($user32)
EndFunc ;==>_MouseClick

[aLasca]

Originally Posted by j199207

Die Identfunktion ist für 800*600

War bei dieser Funktion nicht das Problem das er das Identkit mitzieht?

€: Dunham muss wieder Sig. ändern

[i4mSoH34Vy]

Originally Posted by aLasca

War bei dieser Funktion nicht das Problem das er das Identkit mitzieht?

€: Dunham muss wieder Sig. ändern

Nö

[aLasca]

doch muss er..hrhrhr

[i4mSoH34Vy]

Originally Posted by aLasca

doch muss er..hrhrhr

Wenn man den Sleep höher als 300 setzt ist es kein Problem^^

[aLasca]

ich hatte ihn schon auf 5000 und es ging nicht

[Dunham]

j199207 muss ich da noch iwas um stellen? hab jetzt die coords geändert aber da tut sich nichts.. der klickt zwar aufs ident werkzeug aber nicht mehr auf ein item :-(

[i4mSoH34Vy]

Global $Hwnd1 = WinGetHandle("Guild Wars")
Oben Links in die Ecke

[Dunham]

ahh perfekt!! jetzt geht es! danke :-)