Drachenmoos Farm-Bot

Page 2 of 3 1 2 3
01/29/2009 14:05 Darkbladercore#16
Er ist nun Fertig

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 
Downloadlink: [Only registered and activated users can see links. Click Here To Register...]
Viruschief: Antivir: Nothing found
ArcaVir: Nothing found
Avast: Nothing found
AVG: Nothing found
BitDefender: Nothing found
F-Prot: Nothing found
Norman: Nothing found
Rising: Nothing found
VirusBlokAda32: Nothing found
VirusBuster: Nothing found

[Only registered and activated users can see links. Click Here To Register...]
Scanned by [Only registered and activated users can see links. Click Here To Register...]
01/29/2009 14:11 Noisuf-X#17
ne mit $loot meine ich die gegenstände die kann man ja mit zählen
Quote:
KeySend("o")
rs(200,1000)
While _memoryread($memnpcidselect,$hprocess,'int')<>4
$loot = $loot +1
KeySend("SPACE")
rs(3000,3500)
KeySend("o")
rs(200,1000)
WEnd
ka ob die fahne 4 hat müsstest du halt gucken
und unter trade muss dann noch $loot = 0
das hatte ich vergessen
und so kann man eigentlich recht genau die anzahl der gegenständer ermitteln und dann verkaufen wenn es 25 sind (gold und stackbare gegenstände mal abgesehen)
und 25 gegenstände wären der erste rucksack und die gürteltasche voll
01/29/2009 14:18 Coromu#18
Wieviel farmt der bot eigentlich so? Und was ist eigentlich dieses Drachenmoos oder wo gibs den Ort oder die dinger :D....ich weis es leider nicht.
01/29/2009 14:40 Noisuf-X#19
Ort:Schrein der heiligen Anjeka
Quest: Eine neue Eskorte
bekommt man einen ort weiter
01/29/2009 15:05 Heikofant#20
KeySend("ö")
Sleep(1000)
$sel = _memoryread($memnpcidselect,$hprocess)
If $sel > 0 Then
RndSleep(1000)
CollectLoot(5)
EndIf


wüde da auch gehen :

KeySend("ö")
Sleep(1000)
$sel = _memoryread($memnpcidselect,$hprocess)
While $sel > 0 Then
RndSleep(1000)
CollectLoot(5)
KeySend("ö")
Wend

?
01/29/2009 16:27 hitmaster55#21
danke tut einwandfrei und schnell ist er auch noch
zu den anderen : mekert mal net immer nur rum sonder bedankt euch mal^^
01/29/2009 17:53 -=ColdDeath=-#22
Quote:
Originally Posted by hitmaster55 View Post
danke tut einwandfrei und schnell ist er auch noch
zu den anderen : mekert mal net immer nur rum sonder bedankt euch mal^^

:handsdown: Danke das, dass mal einer sagt :)
01/30/2009 02:14 Heikofant#23
Quote:
Originally Posted by Noisuf-X View Post
ne mit $loot meine ich die gegenstände die kann man ja mit zählen


ka ob die fahne 4 hat müsstest du halt gucken
und unter trade muss dann noch $loot = 0
das hatte ich vergessen
und so kann man eigentlich recht genau die anzahl der gegenständer ermitteln und dann verkaufen wenn es 25 sind (gold und stackbare gegenstände mal abgesehen)
und 25 gegenstände wären der erste rucksack und die gürteltasche voll
der sagt mir leider immer beim $loot nen error

muss ich die vorher noch irgendwie definen/declaren oder so?
01/30/2009 08:20 -=ColdDeath=-#24
Quote:
Originally Posted by hitmaster55 View Post
danke tut einwandfrei und schnell ist er auch noch
zu den anderen : mekert mal net immer nur rum sonder bedankt euch mal^^
lohnt es sich von den drops überhaupt?
01/30/2009 08:58 Heikofant#25
drachenmose lohnt sich defenitiv, 5-8 goldis/h und wenn man alles verkauft (farben am ende des tages etc) kommt man so auf 6-7p/h
01/30/2009 09:42 -=ColdDeath=-#26
Quote:
Originally Posted by Heikofant View Post
drachenmose lohnt sich defenitiv, 5-8 goldis/h und wenn man alles verkauft (farben am ende des tages etc) kommt man so auf 6-7p/h

Nehme mit Vattiere bot in der stunde ca 15p :) Eiszeitsteine 100/stk. 10P + unid.
01/30/2009 09:49 Heikofant#27
schön, abgesehen davon is drachenmose trotzdem noch besser als rata/thermalquellen^^

btw. welchen vaettire bot benutzt du :D ?

/e: wenn man die folis 750 Gold/pro rechnet, dann macht der bot auch 4p mehr ;)

und eiszeitsteine 100=max 7p wenn überhaupt noch wer will^^
01/30/2009 10:09 -=ColdDeath=-#28
Quote:
Originally Posted by Heikofant View Post
schön, abgesehen davon is drachenmose trotzdem noch besser als rata/thermalquellen^^

btw. welchen vaettire bot benutzt du :D ?

/e: wenn man die folis 750 Gold/pro rechnet, dann macht der bot auch 4p mehr ;)

und eiszeitsteine 100=max 7p wenn überhaupt noch wer will^^

Müsste schaun ist aus Ebay :) Aber 100stk. 7p?^^ Machst du trozdem noch 11p :) Aber ich bekomm sie bei den amis noch für 10p weg :D
01/30/2009 10:59 Noisuf-X#29
Quote:
Originally Posted by Heikofant View Post
der sagt mir leider immer beim $loot nen error

muss ich die vorher noch irgendwie definen/declaren oder so?
ja einmal oben
Quote:
Gobal $loot = 0
03/13/2009 20:23 Flobbi#30
die .exe kann man nicht mehr downloaden =/ kann die plz nochmal jemand hochladen ? wär nett ...
Flobbi
Page 2 of 3 1 2 3