Gw Bot schreiben Risiken ?

Page 3 of 3 12 3
10/24/2010 13:58 TurboGolom#31
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 ^^
10/24/2010 14:04 kknb#32
ja musst du logischerweise für jeden spawnpunkt machen.
10/24/2010 14:08 TurboGolom#33
kk ich mach mich mal an die arbeit vielen dank für die Hilfe
10/24/2010 14:38 TurboGolom#34
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
10/24/2010 17:52 in MIND#35
Schau dir andere Bots an und versuch zu verstehen.
Imo die beste Methode AutoIt zu lernen.
10/24/2010 21:28 kknb#36
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
10/27/2010 15:14 rolololo#37
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.
10/27/2010 18:10 buFFy!#38
Quote:
Originally Posted by rolololo View Post
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.
10/27/2010 19:44 kknb#39
sagte ich doch :)
Page 3 of 3 12 3