Drachenmoos Farm-Bot

[Darkbladercore]

Habe mich heute mal drangesetzt und habe einen Drachenmoos Farm-Bot geschrieben^^
WICHTIG! Es ist mein erster Bot und ich habe erst wenig Erfahrung damit.

-Auflösung ist bei 1024x768
-"tt6.au3" wird benötigt
-Fertigkeiten:
1:Schutzgeißt
2:Schild der Absorbtion
3:Schützende Hände
4:Strahl des Urteils
5:Arkanes Echo
6:---
7:Gesegnete Aura
8:Balthasars Geißt

Attribute:
16 Peinigungsgebete
15Schutzgebete

Ausrüstung:
55/105/135 HP
+20% Verzauberung
Schwerer Modus

Ausgangsort ist "Schrein der heiligen Anjeka"

PHP Code:

#include "tt6.au3"

Global $runs = 0

While True
    
    ;go to exit
    PrepMoveTo()

    ;north
    if CheckArea(-12121, -22134) Then
        MoveTo(1, -11769, -22464)
        
    ;middle
    ElseIf CheckArea(-11523, -21276) Then 
        Moveto(1, -11338, -21781)
        Moveto(1, -11318, -22421)
        Moveto(1, -11206, -22796)
        Moveto(1, -11206, -23200)
    
    ;south
    ElseIf CheckArea(-11543, -21280) Then
        Moveto(1, -11498, -21518)
        Moveto(1, -11243, -22412)
        Moveto(1, -11136, -22875)
        
    ;west
    ElseIf CheckArea(-10857, -21016) Then
        Moveto(1, -10992, -21685)
        Moveto(1, -11149, -22297)
        Moveto(1, -11137, -22804)
        Moveto(1, -11128, -23000)
    Endif

    
    While (_memoryread($memmap,$hprocess)) <> 1
        Sleep(2000)
    WEnd
    RndSleep(3000)
    Keysend("7")
    Sleep(2500)
    Keysend("8")
    Sleep(3000)
    PrepMoveTo()
    KeySend("r")
    Sleep(10)
    MoveTo(1, -9846, 19007)
    MoveTo(1, -8439, 18742)
    MoveTo(1, -6966, 17862)
    KeySend("1")
    KeySend("r")
    Sleep(10)
    MoveTo(1, -6278, 17071)
    Keysend("3")
    Keysend("r")
    Sleep(10)
    MoveTo(1, -5486, 16207)
    Keysend("2")
    Keysend("x")
    Keysend("r")
    sleep(600)
    MoveTo(1, -6364, 18175)
    StopMoveTo()
    Sleep(1400)
    Keysend("3")
    sleep(500)
    Keysend("1")
    Sleep(8000)
    Keysend("2")
    Sleep(1000)
    Keysend("5")
    Sleep(3000)
    Keysend("x")
    Sleep(300)
    Keysend("r")
    Sleep(1400)
    Keysend("4")
    Sleep(2000)
    Keysend("3")
    Sleep(1000)
    Keysend("5")
    Sleep(6500)
    Keysend("2")
    Sleep(600)
    Keysend("1")
    Sleep(8300)
    Keysend("3")
    Sleep(8000)
    Keysend("2")
    Sleep(1000)
    Keysend("4")
    
    KeySend("ö")
    Sleep(6000)
    $sel = _memoryread($memnpcidselect,$hprocess)
    If $sel > 0 Then
        RndSleep(2000)
        CollectLoot(5)
    EndIf
    
    KeySend("ö")
    Sleep(1000)
    $sel = _memoryread($memnpcidselect,$hprocess)
    If $sel > 0 Then
        RndSleep(1000)
        CollectLoot(5)
    EndIf
    
    KeySend("ö")
    Sleep(1000)
    $sel = _memoryread($memnpcidselect,$hprocess)
    If $sel > 0 Then
        RndSleep(1000)
        CollectLoot(5)
    EndIf
    
    KeySend("ö")
    Sleep(1000)
    $sel = _memoryread($memnpcidselect,$hprocess)
    If $sel > 0 Then
        RndSleep(1000)
        CollectLoot(5)
    EndIf
    
    KeySend("ö")
    Sleep(1000)
    $sel = _memoryread($memnpcidselect,$hprocess)
    If $sel > 0 Then
        RndSleep(1000)
        CollectLoot(5)
    EndIf
    
    KeySend("ö")
    Sleep(1000)
    $sel = _memoryread($memnpcidselect,$hprocess)
    If $sel > 0 Then
        RndSleep(1000)
        CollectLoot(5)
    EndIf
    
    KeySend("ö")
    Sleep(1000)
    $sel = _memoryread($memnpcidselect,$hprocess)
    If $sel > 0 Then
        RndSleep(1000)
        CollectLoot(5)
    EndIf
    
    RndSleep(4000)
    Resign()
    ControlClick("Guild Wars","","","left",1,500, 360)
     
    While (_memoryread($memmap,$hprocess)) <> 0
        Sleep(1000)
        if _memoryread($memdeath,$hprocess) = 1 Then
            ControlClick($client, "", "", "left", 1, $DTclickX, $DTclickY)
        EndIf
    WEnd
    $runs +=1
    RndSleep(4000)
    
WEnd 


Was er schon alles kann

PHP Code:

Weg nach draußen finden
Gegner anlocken und töten
Im Hintergrund laufen
Drops aufheben
Aufgeben und tum Außenposten reisen
Neuen Farm-Run beginnen 


Bitte um Verbesserungsvorschläge

MfG Darkbladercore

Edit: kleiner Error Fehler wurde behoben

[blauwiggle]

Da fehlt etwas vom Scriptcode

[Heikofant]

nur NM, oder?

brechen die im HM net aggro?

[Specter cason]

Originally Posted by Darkbladercore

Schwerer Modus

steht eig dabei

[Noisuf-X]

nice einen 1 run bot^^

Tipp: bau noch eine schleife ein weil was bis jetzt macht der nur 1 run und das wars

[Heikofant]

ok ich tests zuhause mal, dachte die viecher brechen im HM immer aggro sobald sie aoe abkriegen ...

oder hast du dich vertippt und meinst schild des urteils?

[Lonf]

DEn bot gibts hier schonmal im Forum!!
Von Revo

[Noisuf-X]

Originally Posted by Heikofant

ok ich tests zuhause mal, dachte die viecher brechen im HM immer aggro sobald sie aoe abkriegen ...

oder hast du dich vertippt und meinst schild des urteils?

na denke mal der meint das schild strahl reicht nicht um die zu killen
zumindestens nicht so wenig

Originally Posted by Lonf

DEn bot gibts hier schonmal im Forum!!
Von Revo

der läuft aber nicht im hintergrund

[Darkbladercore]

Originally Posted by Noisuf-X

na denke mal der meint das schild strahl reicht nicht um die zu killen
zumindestens nicht so wenig



der läuft aber nicht im hintergrund

Nein, Strahl des Urteils ist richtig^^
Und die Schleife muss natürlich noch einbearbeitet werden womit ich mich auch heute beschäfftigen werde.

[Heikofant]

aber ob strahl so gut ist? wenn die drachis einmal weiter auseinadner stehen trifft der net alle .... und dass die net kyten wundert mich auch

[Specter cason]

teste es doch einfach mal und guck ws rauskommt

[Darkbladercore]

Probier den Bot aus dann siehst du, dass das klappt
Es ist mit Strahl schneller als mit Schild, deßhalb bevorzuge ich das


PS: Er holt jetzt alle drops und "Resign'ed" und reist in den Außenposten zurück.

[Heikofant]

jo, bin grad halt bei der arbeit

aber ich hab eh ne ganz andere skillvariante, die vermutlich auch genauso schnell geht

[Noisuf-X]

Func _main()
_wayout()
While 1
_fight()
_loot()
If $loot >= 25 Then
_trade()
_wayout()
Else
_wayout()
EndIf
WEnd
EndFunc

unterteile alles einfach in funktionen dann sieht man auch schneller was welcher teil ist und man kann es leichter verändern

[Heikofant]

If $loot >= 25 Then wäre doch das selbe wie

for $farmen = 1 to 40
(unter _farmen fällt _wayout+_loot)