Gw Bot schreiben Risiken ?

TurboGolom · 10/24/2010, 13:58

hihi ja da hast du recht er hatte mir dort einen script fehler angezeigt nämlich das er sich net an der Position befindet und das script beendet hat. Ich hatte mehrmals Checkarea then
ElseIf Cheackarea etc drinne weil das in dem Tutotial auch mehrmals abgefragt wurde
Aber mal nebenbei. ich starte ja meistens wenn ich einen Posten betrete an unterschiedlichen Stellen. das ich nicht genau an den Selben stellen spawne ist mir klar aber wenn ich jetzt an ganz anderen stellen spawne müsste ich doch mehrere checkarea abfragen machen oder nicht ^^

~~kknb~~ · 10/24/2010, 14:04

ja musst du logischerweise für jeden spawnpunkt machen.

TurboGolom · 10/24/2010, 14:08

kk ich mach mich mal an die arbeit vielen dank für die Hilfe

TurboGolom · 10/24/2010, 14:38

K hab jetzt die Spawnpunkte ausgelesen und auch versucht zu integrieren allerdings motzt er ein bisschen mit der checkarea abfrage +/- 250

PHP Code:


			
#include "tt6.au3"
Opt("SendKeyDownDelay", 50)
Opt("SendKeyDelay", 50)

WinWaitActive("Guild Wars")

Hotkeyset("{F2}","End")



While 1
    GoOut()
    PrepMoveTo()
    MoveTo(1, 1724, 17478)
    MoveTo(1, 2008, 17919)
    MoveTo(1, 2376, 18254)
    MoveTo(1, 2909, 18406)
    MoveTo(1, 3370, 18282)
    MoveTo(1, 3987, 17971)
    MoveTo(1, 4602, 17844)
    MoveTo(1, 5190, 17797)
    MoveTo(1, 5764, 17805)
    MoveTo(1, 5772, 18209)
    MoveTo(1, 5815, 18692)
    MoveTo(1, 6372, 18712)
    MoveTo(1, 7038, 18634)
    MoveTo(1, 7134, 17953)
    MoveTo(1, 7315, 17119)
    MoveTo(1, 7377, 16160)
    MoveTo(1, 8067, 15854)
    MoveTo(1, 7943, 15312)
    MoveTo(1, 7969, 14999)
    MoveTo(1, 7982, 14661)
    MoveTo(1, 7994, 14294)
    MoveTo(1, 7981, 14229)

    StopMoveTo()

    Sleep(5000)
    Send("6")
    Sleep(3000)
    Send("5")
    Sleep(1000)
    Send("{space}")
    Sleep(500)
    Send("1")
    Sleep(1000)
    Send("2")
    Sleep(5000)
    
    Send("6")
    Sleep(3000)
    Send("5")
    Sleep(2000)
    Send("1")
    Sleep(1000)
    Send("2")
    Sleep(3000)
    
    Send("6")
    Sleep(3000)
    Send("5")
    Sleep(2000)
    Send("1")
    Sleep(1000)
    Send("2")
    Sleep(5000)
    
    Send("6")
    Sleep(3000)
    Send("5")
    Sleep(2000)
    Send("1")
    Sleep(1000)
    Send("2")
    Sleep(5000)
    
    Send("6")
    Sleep(3000)
    Send("5")
    Sleep(1500)

    For $i = 1 To 15
        Send("1")
        Sleep(750)
        Send("3")
        Sleep(500)
        Send("4")
        Sleep(750)
        Send("2")
        Sleep(2000)
        Send("6")
        Sleep(3000)
        Send("5")
        Sleep(3500)
    Next

    For $i = 1 To 15
        Send("{+}")
        Sleep(250)
        Send("{space}")
        Sleep(1000)
    Next

    Send("{enter}")
    Send("/resign")
    Send("{enter}")
sleep (2000)
    MouseMove(528, 4133)
    sleep (2000)
    MouseClick("left", 528, 413)
    Sleep(11000)
    
For
    Func CheckArea($xval, $yval)
    $ret = False
    $pX = _memoryread($memx,$hprocess,'float')
    $pY = _memoryread($memy,$hprocess,'float')
    
    if ($pX < $xval + 250) And ($pX > $xval - 250) And ($pY < $yval + 250) And ($pY > $yval - 250) Then
        $ret = True
    EndIf
    Return $ret    
EndFunc
Next



If Checkarea(1, -426, 25495) Then
    MoveTo(1, -311, 22679)
MoveTo(1, -130, 22967)
MoveTo(1, 46, 23249)
MoveTo(1, 121, 23395)
MouseMove (522,366)
sleep (2000)
Mouseclick ("left",522,366)
sleep (1000)
MouseMove (456,58)
sleep (1000)
Mouseclick ("left",456,58)
sleep  (1000)
Mousemove (440,317)
Mouseclick ("left",440,317)
sleep (1000)
MouseMove (808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
    
    
ElseIf Checkarea(1, 591, 24178) Then
MoveTo(1, 320, 23954)
MoveTo(1, 198, 23726)
MoveTo(1, 163, 23544)

MouseMove (528,378)
sleep (2000)
Mouseclick ("left",528,378)
sleep (1000)
MouseMove (463,57)
sleep (1000)
Mouseclick ("left",463,57)
sleep  (1000)
Mousemove (448,319)
Mouseclick ("left",448,319)
sleep (1000)
MouseMove (808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)

ElseIf Checkarea (1, 50, 25197) Then
MoveTo(1, 59, 24939)
MoveTo(1, 76, 24612)
MoveTo(1, 126, 24352)
MoveTo(1, 151, 24100)
MoveTo(1, 146, 23849)
MoveTo(1, 131, 23541)

MouseMove (526,360)
sleep (2000)
Mouseclick ("left",526,360)
sleep (1000)
MouseMove (463,57)
sleep (1000)
Mouseclick ("left",463,57)
sleep  (1000)
Mousemove (448,319)
Mouseclick ("left",448,319)
sleep (1000)
MouseMove (808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
sleep (2000)
Mouseclick ("left",808,592)
EndIf

    
WEnd

Func goout()
    MouseMove(202, 259)
    Sleep(1000)
    MouseClick("left", 202, 259)
    MouseMove(541, 430)
    Sleep(1000)
    MouseClick("left", 541, 430)
    Sleep(10000)
    Send("8")
    Sleep(2000)
    Send("7")
    Sleep(2000)

    PrepMoveTo()
    MoveTo(1, 2322, 23686)
    MoveTo(1, 2534, 23340)
    MoveTo(1, 2616, 22884)
    MoveTo(1, 2650, 22363)
    MoveTo(1, 2701, 21854)
    MoveTo(1, 2748, 21320)
    MoveTo(1, 2751, 20776)
    MoveTo(1, 2675, 20260)
    MoveTo(1, 2587, 19775)
    MoveTo(1, 2478, 19163)
    MoveTo(1, 2392, 18684)
    MoveTo(1, 2177, 18180)
    MoveTo(1, 1867, 17720)
    MoveTo(1, 1612, 17333)
    StopMoveTo()

    For $i = 1 To 7
        Send("{c}")
        Sleep(500)
        Send("{space}")
        Sleep(6000)
        Send("6")
        Sleep(2000)
        Send("5")
        Sleep(2000)
        Send("1")
        Sleep(2000)
        Send("2")
        Sleep(4000)
        Send("4")
        Sleep(5000)
        Send("1")
        Sleep(2000)
        Send("2")
        Sleep(250)
    Next

    For $i = 1 To 10
        Send("{+}")
        Sleep(250)
        Send("{space}")
        Sleep(1000)
    Next
EndFunc   ;==>goout

Ob das mit den koords der MouseMove etc klappt weiß ich nocht net. Und unübersichtlich wie immer xD. Achso bevor ich es vergesse empfiehlst du vllt irgendetwas womit man gut autoIT lernen kann ^^? Hab schon bissle was gefunden aber vllt hat ja jemand was womit man es vllt besser lernt/versteht.
Edit:Oh shit sry wegen doppelpost

in MIND · 10/24/2010, 17:52

Schau dir andere Bots an und versuch zu verstehen.
Imo die beste Methode AutoIt zu lernen.

~~kknb~~ · 10/24/2010, 21:28

klar motzt der mit checkararea bei deinem script rum.
Checkarea(1, -426, 25495)

was hat die 1 da drin zu suchen?

ausserdem kannst du die funktion da nicht einfach irgendwo in die schleife packen, lösch die da wieder raus, du hast doch die funktion bereits in der tt6.au3

rolololo · 10/27/2010, 15:14

Genau, das "includen" bringt dir u.a. die Funktionen eines anderen Scrips quasi in dein Script, sodass du diese ganz normal aufrufen kannst, ohne die Funktion nochmal in dein eigentliches Script rein zuschreiben.

buFFy! · 10/27/2010, 18:10

Quote:

Originally Posted by rolololo

Genau, das "includen" bringt dir u.a. die Funktionen eines anderen Scrips quasi in dein Script, sodass du diese ganz normal aufrufen kannst, ohne die Funktion nochmal in dein eigentliches Script rein zuschreiben.

komische erklärung. include erlaubt dir den vollzugriff auf alle elemente der inkludierten datei.

~~kknb~~ · 10/27/2010, 19:44

sagte ich doch