Es gab schonmal nen Thread über Golderkennung und daran arbeite ich jetzt wieder.
Ich hab jetzt das script so, dass er nur die ersten 5 Items checkt, wovon alle gold sind außer das 4.
Aber wenn ich das laufen lasse, dann sagt er mir dass alle items golden sind
und zeigt mir auch danach an, dass insgesamt 5 gold sind.
er zeigt mir sogar an, dass es was goldenes ist, wenn der slot leer ist. also ich das 1. item weg lasse
Hier mal das script:
Code:
sleep(1000)
WinActivate( "Guild Wars" )
Sleep(6000)
_Check_Gold_Item()
sleep(6000)
Func _Check_Gold_Item() ; x und y vom jeweiligen itemslot
$x1= 272
$x2= 317
$x3= 356
$x4= 396
$x5= 439
$y1= 101
$y2= 152
$y3= 201
$y4= 252
$y5= 331
$y6= 411
$y7= 463
$y8= 545
$y9= 592
$GoldItems=0
IniWrite("Test.txt", "blubb", "GoldItems", $GoldItems)
MouseMove ($x1, $y1,1) ;Maus auf das Item bewegen, damit die Schrift angezeigt wird
sleep(100)
_Goldcheck()
MouseMove ($x2, $y1,1) ;Maus auf das Item bewegen, damit die Schrift angezeigt wird
sleep(100)
_Goldcheck()
MouseMove ($x3, $y1,1) ;Maus auf das Item bewegen, damit die Schrift angezeigt wird
sleep(100)
_Goldcheck()
MouseMove ($x4, $y1,1) ;Maus auf das Item bewegen, damit die Schrift angezeigt wird
sleep(100)
_Goldcheck()
MouseMove ($x5, $y1,1) ;Maus auf das Item bewegen, damit die Schrift angezeigt wird
sleep(100)
_Goldcheck()
$GoldItems= IniRead ("Test.txt", "blubb", "GoldItems", $GoldItems)
MsgBox(0,"fndjsnk", "Golditems ist jetz schon " & $GoldItems)
EndFunc
Func _Goldcheck()
$Golditems= 0
$GoldItems= IniRead("Test.txt", "blubb", "GoldItems", $GoldItems)
$truhe1= 40 ; X- Koordinate der I-Truhe
$truhe2= 90 ; X- Koordinate der II-Truhe
$truhe3= 140 ; X- Koordinate der III-Truhe
$truhe4= 180 ; X- Koordinate der IV-Truhe
PixelSearch (233, 30, 630, 580, 0xFFCC55) ;sucht nach der farbe der goldenen schrift
sleep(50)
if not @error Then
MsgBox(0,"Gold", "Gold!")
sleep(50)
$GoldItems = $GoldItems + 1
sleep(100)
MouseDown("left")
;die items solange in den jeweiligen truhenslot legen, solang dieser noch nicht voll ist:
if $GoldItems <= 1 Then
MouseMove ($truhe1, 150, 1)
sleep(200)
MouseUp("left")
EndIf
if $GoldItems > 1 and $GoldItems <=2 Then
MouseMove ($truhe2, 150, 1)
sleep(100)
MouseUp("left")
EndIf
if $GoldItems > 2 and $Golditems <=3 Then
MouseMove ($truhe3, 150, 1)
sleep(100)
MouseUp("left")
EndIf
if $GoldItems >3 And $GoldItems Then
MouseMove ($truhe4, 150, 1)
sleep(100)
MouseUp("left")
EndIf
IniWrite ("Test.txt", "blubb", "GoldItems", $GoldItems)
EndIf
EndFunc
Den Aufbau an sich, wie er jetzt ist würde ich gerne beibehalten. ich suche eigtl nur den Fehler, wieso er jetz jedesmal ein positives ergebis bei der Pixelsearch erhält?
Dann dacht ich mir: "testest halt mal aus, ob er da wirklich ein positives Ergebnis bekommt"
dann hab ich das hier laufen lassen.
Code:
sleep(1000)
WinActivate( "Guild Wars" )
Sleep(6000)
MouseMove (396, 101,1) ;Maus auf das Item bewegen, damit die Schrift angezeigt wird (weißes Item)
sleep(300)
$coord = PixelSearch (233, 30, 630, 580, 0xFFCC55) ; nach goldener Farbe suchen
If Not @error Then
MsgBox(0, "X and Y are:", $coord[0] & "," & $coord[1])
Else
MsgBox(0,"gold", "hier ist nix gold!")
EndIf
sleep(200)
und hier bekomm ich immer die Msgbox, dass hier nix gold ist!
Ich versteh nicht, weil das genau die gleiche Pixelsearch ist.
Vllt steh ich auch nur aufm schlauch, aber ich se da keinen unterschied O.o
VIELEN Dank, falls ihr mir helfen könnt und danke schonmal fürs lesen
Ok hab nach den Mousemoves die zeiten auf 1sekunde gesetzt und er hats immer noch nicht erkannt.
und wenn er den ganzen desktop absucht, dann wirds ja noch ungenauer bzw noch wahrscheinlicher, das in der umgebung iwo so ein Pixel rumliegt oder?
versucht hab ichs, aber hat auch ned geklappt.
PixelSearch (233, 30, 630, 580, 0xFFCC55) ;sucht nach der farbe der goldenen schrift
sleep(50)
mach da mal das sleep weg, ich hatte das vor 2 tagen bei meinem neuen Bot auch, das sleep lässt das pixelsearch alles finden aber nicht die farbe , so war das bei mir
wie schon vermutet... ein dummer Fehler auf den ich nie kommen würd
Hier jetzt nochmal das script wie es geht:
Code:
Func _Check_Gold_Item() ; x und y vom jeweiligen itemslot
$x1= 272
$x2= 317
$x3= 356
$x4= 396
$x5= 439
$y1= 101
$y2= 152
$y3= 201
$y4= 252
$y5= 331
$y6= 411
$y7= 463
$y8= 545
$y9= 592
$GoldItems=0
IniWrite("Test.txt", "blubb", "GoldItems", $GoldItems)
MouseMove ($x1, $y1,1) ;Maus auf das Item bewegen, damit die Schrift angezeigt wird
sleep(100)
_Goldcheck()
MouseMove ($x2, $y1,1) ;Maus auf das Item bewegen, damit die Schrift angezeigt wird
sleep(100)
_Goldcheck()
MouseMove ($x3, $y1,1) ;Maus auf das Item bewegen, damit die Schrift angezeigt wird
sleep(100)
_Goldcheck()
MouseMove ($x4, $y1,1) ;Maus auf das Item bewegen, damit die Schrift angezeigt wird
sleep(100)
_Goldcheck()
MouseMove ($x5, $y1,1) ;Maus auf das Item bewegen, damit die Schrift angezeigt wird
sleep(100)
_Goldcheck()
$GoldItems= IniRead ("Test.txt", "blubb", "GoldItems", $GoldItems)
EndFunc
Func _Goldcheck()
$Golditems= 0
$GoldItems= IniRead("Test.txt", "blubb", "GoldItems", $GoldItems)
$truhe1= 40 ; X- Koordinate der I-Truhe
$truhe2= 90 ; X- Koordinate der II-Truhe
$truhe3= 140 ; X- Koordinate der III-Truhe
$truhe4= 180 ; X- Koordinate der IV-Truhe
PixelSearch (233, 30, 630, 580, 0xFFCC55,1) ;sucht nach der farbe der goldenen schrift
if not @error Then
sleep(50)
$GoldItems = $GoldItems + 1
sleep(100)
MouseDown("left")
EndIf
;die items solange in den jeweiligen truhenslot legen, solang dieser noch nicht voll ist:
if $GoldItems <= 20 Then
MouseMove ($truhe1, 150, 1)
sleep(200)
MouseUp("left")
EndIf
if $GoldItems > 20 and $GoldItems <=40 Then
MouseMove ($truhe2, 150, 1)
sleep(100)
MouseUp("left")
EndIf
if $GoldItems > 40 and $Golditems <=60 Then
MouseMove ($truhe3, 150, 1)
sleep(100)
MouseUp("left")
EndIf
if $GoldItems >60 Then
MouseMove ($truhe4, 150, 1)
sleep(100)
MouseUp("left")
EndIf
IniWrite ("Test.txt", "blubb", "GoldItems", $GoldItems)
EndFunc
Having problem Wierd problem with [GUIDE-DETIALED] How to setup a server! 02/10/2010 - EO PServer Hosting - 1 Replies Hellow,
I just used this guide, to set up an EO private server.
Everything is correct, but my AccountServer Keeps bugging.
Can someOne help me ( via TeamViewer, .. ) ?
Thnx,
Greets Joris
[Problem] Problem with server starting - cannot find quest index for PaxHeader 12/22/2009 - Metin2 Private Server - 1 Replies Hello!
I have this same problem as here when i'm starting my server:
http://www.elitepvpers.com/forum/metin2-pserver-di scussions-questions/307143-metin2-serverfiles-ques t-index-fehler.html
But I didn't know the answer.. how to repair this?
Greetings