sry, wenn ich dieses thema wieder aufrolle,..
der run funktioniert super, keine probleme,
allerdings reward funktioniert irgendwie garnicht (nimmt quest nicht an, sondern reist in die GH), habs für mich umgeschrieben, nun nimmt er den quest an aber...
er reist in die stadt und macht diese aktion mit "h" und rennt den falschen weg in der stadt rumm, so als ob ihm "die weg raus funktion" fehlen würde...
hast du vielleicht eine Ahnung woran das liegen kann?
..Gui Einstellung, nur häckchen bei PUB Spenden..
Hier das original:
PHP Code:
Func _REWARD()
$AA = Random(1, 1000)
Send("{a down}")
Sleep($800)
Select
Case $AA <= 500
Send("{NUMPADDIV}")
Sleep($50)
Send("{NUMPADMULT}")
Sleep($50)
Case $AA > 500
Send("{NUMPADMULT}")
Sleep($50)
Send("{NUMPADDIV}")
Sleep($50)
EndSelect
Send("{a up}")
Send("r")
Sleep($2000)
Sleep($300)
Select
Case $AA < 500
Send("{NUMPAD7}")
Sleep($50)
Send("{NUMPAD8}")
Case Else
Send("{NUMPAD8}")
Sleep($50)
Send("{NUMPAD7}")
EndSelect
Sleep($50)
Send("v")
Sleep($5)
Send("{Space}")
Sleep($2000)
Call("_MOUSEMOVE")
Sleep($800)
MouseClick("left", Random(466, 784), Random(705, 747), 1, GUICtrlRead($MOUSE))
Sleep($1000)
$AA = Random(1, 1000)
Select
Case $AA < 500
Send("{NUMPADDIV}")
Sleep($50)
Send("{NUMPADMULT}")
Case Else
Send("{NUMPADMULT}")
Sleep($50)
Send("{NUMPADDIV}")
EndSelect
Sleep($50)
For $I = 10 To 1 Step -1
Send("{space}")
Sleep($600)
If PixelChecksum(496, 612, 502, 619) = $Q Then
ExitLoop
EndIf
If PixelChecksum(496, 612, 502, 619) <> $Q Then
Sleep($500)
EndIf
Next
If PixelChecksum(496, 612, 502, 619) = $Q Then
MouseClick("left", Random(482, 800), Random(596, 635), 1, GUICtrlRead($MOUSE))
Sleep($100)
Call("_CHECKERROR")
Call("_SUICED")
Call("_LOADINGB")
ElseIf PixelChecksum(496, 612, 502, 619) <> $Q Then
$ERR = $ERR + 1
Call("_ERROR")
EndIf
EndFunc
Jetzt meine geänderte Version:
PHP Code:
Func _REWARD()
$AA = Random(1, 1000)
Send("{a down}")
Sleep($800)
Select
Case $AA <= 500
Send("{NUMPADDIV}")
Sleep($50)
Send("{NUMPADMULT}")
Sleep($50)
Case $AA > 500
Send("{NUMPADMULT}")
Sleep($50)
Send("{NUMPADDIV}")
Sleep($50)
EndSelect
Send("{a up}")
Send("r")
Sleep($2000)
Sleep($300)
Select
Case $AA < 500
Send("{NUMPAD7}")
Sleep($50)
Send("{NUMPAD8}")
Case Else
Send("{NUMPAD8}")
Sleep($50)
Send("{NUMPAD7}")
EndSelect
Sleep($50)
Send("v")
Sleep($5)
Send("{Space}")
Sleep($2000)
Call("_MOUSEMOVE")
Sleep($800)
MouseClick("left", Random(466, 784), Random(705, 747), 1, GUICtrlRead($MOUSE))
Sleep($1000)
$AA = Random(1, 1000)
Select
Case $AA < 500
Send("{NUMPADDIV}")
Sleep($50)
Send("{NUMPADMULT}")
Case Else
Send("{NUMPADMULT}")
Sleep($50)
Send("{NUMPADDIV}")
EndSelect
Sleep($50)
;For $I = 10 To 1 Step -1
Send("{space}")
Sleep($600)
Send("v") ;ab hier eigen...
$rndnumber = Random(200, 400)
Sleep($rndnumber)
Send("{SPACE}")
$rndnumber = Random(900, 1000)
Sleep($rndnumber)
MouseClick("left", Random(482, 800), Random(596, 635), 1, GUICtrlRead($MOUSE))
$rndnumber = Random(900, 1200)
Sleep($rndnumber)
;travel
Send("m")
$rndnumber = Random(500, 600)
Sleep($rndnumber)
MouseClick("left", Random(671, 680), Random(524, 530), 1, GUICtrlRead($MOUSE))
$rndnumber = Random(200, 400)
Sleep($rndnumber)
Send("{Space}")
Sleep($100)
Call("_LOADINGB")
;If PixelChecksum(496, 612, 502, 619) = $Q Then
; ExitLoop
;EndIf
;If PixelChecksum(496, 612, 502, 619) <> $Q Then
; Sleep($500)
;EndIf
;Next
;If PixelChecksum(496, 612, 502, 619) = $Q Then
; MouseClick("left", Random(482, 800), Random(596, 635), 1, GUICtrlRead($MOUSE))
; Sleep($100)
; Call("_CHECKERROR")
; Call("_SUICED")
; Call("_LOADINGB")
;ElseIf PixelChecksum(496, 612, 502, 619) <> $Q Then
; $ERR = $ERR + 1
; Call("_ERROR")
;EndIf
EndFunc
__________________________
Jemand eine Idee?
mfg