Drachenmoos Farm-Bot

Page 1 of 3 1 23
01/28/2009 23:27 Darkbladercore#1
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
01/29/2009 02:09 blauwiggle#2
Da fehlt etwas vom Scriptcode ;)
01/29/2009 08:48 Heikofant#3
nur NM, oder?

brechen die im HM net aggro?
01/29/2009 12:25 Specter cason#4
Quote:
Originally Posted by Darkbladercore View Post
Schwerer Modus
steht eig dabei
01/29/2009 12:33 Noisuf-X#5
nice einen 1 run bot^^

Tipp: bau noch eine schleife ein weil was bis jetzt macht der nur 1 run und das wars
01/29/2009 12:49 Heikofant#6
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?
01/29/2009 12:56 Lonf#7
DEn bot gibts hier schonmal im Forum!!
Von Revo
01/29/2009 13:01 Noisuf-X#8
Quote:
Originally Posted by Heikofant View Post
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

Quote:
Originally Posted by Lonf View Post
DEn bot gibts hier schonmal im Forum!!
Von Revo
der läuft aber nicht im hintergrund
01/29/2009 13:08 Darkbladercore#9
Quote:
Originally Posted by Noisuf-X View Post
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.
01/29/2009 13:15 Heikofant#10
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
01/29/2009 13:18 Specter cason#11
teste es doch einfach mal und guck ws rauskommt :D
01/29/2009 13:19 Darkbladercore#12
Probier den Bot aus dann siehst du, dass das klappt :D
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.
01/29/2009 13:45 Heikofant#13
jo, bin grad halt bei der arbeit ;)

aber ich hab eh ne ganz andere skillvariante, die vermutlich auch genauso schnell geht :D
01/29/2009 13:50 Noisuf-X#14
Quote:
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
01/29/2009 13:54 Heikofant#15
If $loot >= 25 Then wäre doch das selbe wie

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