Das is der Dumper im tt6 ordner.
Func MouseSend($btn, $evt, $xpos, $ypos)
$user32 = DllOpen("user32.dll")
if $user32 = -1 Then
ConsoleWrite("MouseSend: cannot open user32.dll")
Exit
EndIf
;define missing constans
$MK_LBUTTON = 0x0001
$WM_LBUTTONDOWN = 0x0201
$WM_LBUTTONDBLCLK = 0x0203
$MK_RBUTTON = 0x0002
$WM_RBUTTONDOWN = 0x0204
$WM_RBUTTONUP = 0x0205
$WM_RBUTTONDBLCLK = 0x0206
;map button to event
If $btn = "left" Then
$button = $MK_LBUTTON
$btdown = $WM_LBUTTONDOWN
$btup = $WM_LBUTTONUP
$btdbl = $WM_LBUTTONDBLCLK
ElseIf $btn = "right" Then
$button = $MK_RBUTTON
$btdown = $WM_RBUTTONDOWN
$btup = $WM_RBUTTONUP
$btdbl = $WM_RBUTTONDBLCLK
ElseIf $btn = "none" Then
If Not ($evt = "move") Then
ConsoleWrite(StringFormat("MouseSend: bad call: %s , %s",$btn, $evt))
Exit
EndIf
Else ;error
ConsoleWrite(StringFormat("MouseSend: bad button: %s",$btn))
Exit
EndIf
;send messages
$pos = MakeLong($xpos, $ypos)
Select
Case $evt = "move"
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_MOUSEMOVE, "int", 0, "long", $pos)
Case $evt = "down"
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $btdown, "int", $button, "long", $pos)
Case $evt = "up"
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $btup, "int", 0, "long", $pos)
Case $evt = "click"
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_MOUSEMOVE, "int", 0, "long", $pos)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $btdown, "int", $button, "long", $pos)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $btup, "int", 0, "long", $pos)
Case $evt = "dclick"
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_MOUSEMOVE, "int", 0, "long", $pos)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $btdown, "int", $button, "long", $pos)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $btup, "int", 0, "long", $pos)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $btdbl, "int", $button, "long", $pos)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $btup, "int", 0, "long", $pos)
EndSelect
DllClose($user32)
EndFunc
Func raus()
;Kampf betreten
PrepMoveTo()
; Kaufmann ( unten links)
if CheckArea(-1595,623) Then
MoveTo(1,-1163,822)
MoveTo(1,-316,1314)
MoveTo(1,606,1779)
MoveTo(1,1129,2111)
MoveTo(1,1622,2596)
MoveTo(1,2453,3521)
; Waffen ( oben links )
ElseIf CheckArea(-1928,2827) Then
MoveTo(1,-1889,3129)
MoveTo(1,-1746,3552)
MoveTo(1,-1648,3841)
MoveTo(1,-1389,4094)
MoveTo(1,-1158,4111)
MoveTo(1,-724,4137)
MoveTo(1,-161,4167)
MoveTo(1,305,4137)
MoveTo(1,885,4054)
MoveTo(1,1295,3988)
MoveTo(1,1753,3893)
MoveTo(1,2193,3704)
MoveTo(1,2428,3533)
; Heldenrüstungen ( oben rechts )
ElseIf CheckArea(2033,2936) Then
MoveTo(1,2436,3517)
; Sammler ( unten rechts )
ElseIf CheckArea(1561,766) Then
MoveTo(1,1247,1025)
MoveTo(1,949,1420)
MoveTo(1,888,1763)
MoveTo(1,1094,2040)
MoveTo(1,1494,2477)
MoveTo(1,2003,3031)
MoveTo(1,2431,3537)
Else
TransferGH()
sleep(3000)
TransferGH()
ControlClick($client, "", "", "left", 1, 403, 24) ; Hardmode
raus()
EndIf
StopMoveTo()
sleep(1000)
ControlSend($client,"","","{space}")
sleep(3000)
ControlClick($client,"","", "left", 1, 232, 396)
sleep(100)
While (_memoryread($memmap,$mem)) <> 1
Sleep(500)
WEnd
RndSleep(13000)
fight() ; siehe unten bei Funktionen!
EndFunc
mein z-kerne bot hat manchmal ein ähnliches problem....Quote:
Ich bin leider komplett ratlos. Anfangs dachte ich das macht er, wenn er den Spawnpunkt nicht kennt, dann hab ich das mit dem TransferGH() eingebaut, aber der Fehler taucht trotzdem manchmal auf.