UW² Ecto Bot v1 [A/E]

[Dunham]

Hi, es ist soweit v1 meines ersten Bottes ist fertig!

AutoIt Version: 3.2.12.1
Author: Dunham 


Farmort: UW²
Klasse: A/E
Skillung: OwZTkY/85hH6KQGAgUBPS6rzAA
Energie: ~55
Auflösung: Vollbild - 1280 x 1024
Interface: Größer (Standart)
Besonderheiten: Gruppenfenster rechts oben!
Funktionen: Farmen (Verkaufs-Funktion fehlt)



Danke NBA und alle andern die mir geholfen haben!!

Update 14.11.2008: Habe ein Script für pixelchecksum + Bild mit bescheibung der Coords dazugepackt.

PHP Code:

#cs
AutoIt Version: 3.2.12.1
Author: Dunham 


Farmort: UW²
Klasse: A/E
Skillung: OwZTkY/85hH6KQGAgUBPS6rzAA
Energie: ~55
Auflösung: Vollbild - 1280 x 1024
Interface: Größer (Standart)
Besonderheiten: Gruppenfenster rechts oben!
Funktionen: Farmen (Verkaufs-Funktion fehlt)



Danke NBA für die Hilfe!!


#ce
HotKeySet("{End}","end")
Func end()
    Exit
EndFunc

GuiCreate("UW² Ecto Bot v1 by Dunham",242,202,387,200)
$button1=GuiCtrlCreateButton("Bot starten",-2,-2,246,109)
$button2=GuiCtrlCreateButton("Exit",-3,104,247,78)
$input1=GuiCtrlCreateInput("OwZTkY/85hH6KQGAAAAPS6rzAA",90,182,138,20)
$label1=GuiCtrlCreateLabel("A/E Skillung:",3,186,70,15)
GuiSetState()

$Runden = Inputbox("UW² Ecto Bot v1","Geb hier ein wieviel Runden du farmen willst")
$i = 0

While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
Wend

Func button1()
Call("start")    
EndFunc

Func button2()
    Exit
EndFunc  

Func RS($min, $max)
    $time = Random($min, $max)
    Sleep($time)
EndFunc

Func sf()
    
While 1
$pixel1 = PixelChecksum(868, 953,928, 1013)
if $pixel1 = 167713478 Then
    Send("6")
    RS(100,200)
    Send("7")
    RS(500,900)
    Send("8")
ExitLoop
Else
$schattenform = 0
EndIf
WEnd

EndFunc
    
Func Target1()
While 1
$pixel2 = PixelChecksum(535, 38,633, 46)
if $pixel2 = 1387931340 Then
    Send(" ")
ExitLoop
Else
Send("{tab}")
RS(10,60)
EndIf
WEnd
EndFunc

Func sr()
    
While 1
$pixel3 = PixelChecksum(342,952,401,1013)
if $pixel3 = 2115857573 Then
    RS(1,1000)
    Send("3")
    RS(900,1200)
    Send("1")
    RS(3000,4000)
    Send("2")
ExitLoop
Else
$splitter = 0
EndIf
WEnd
EndFunc

Func loot()
For $i = 10 to 1 step -1
    Send("o")
    RS(100,200)
    $pixel4 = PixelChecksum(783, 34,794, 47)
if $pixel4 = 3006085956 Then
    RS(100,200)
    Send("{space}")
    RS(10,20)
    Send("{space}")
    RS(1400,1800)
    Send(",")
    RS(10,100)
Else 
    RS(1000,1200)
    Call("resign")
ExitLoop
EndIf
Next
Call("resign")
EndFunc

Func resign()
send("-")
sleep(400)
send("resign")
sleep(700)
send("{enter}")
RS(2000,3000)
Mouseclick("left",623,543) 
EndFunc

Func check()
    While 1
    $pixel2 = PixelChecksum(535, 38,633, 46)
    if $pixel2 = 1387931340 Then
    Send(" ")
    ExitLoop
    Else
    Call("Target1")
    RS(10,60)
EndIf
WEnd
EndFunc
    
Func uw()
Call("sf")
RS(2500,3500)
Send("r")
RS(5900,6000)
Send("{d down}")
RS(900,1000)
Send("{d up}")
RS(3000,3100)
Send("{a down}")
RS(800,900)
Send("{a up}")
RS(2100,2250)
Send("{a down}")
RS(500,600)
Send("{a up}")
RS(3300,3600)
Send("{a down}")
RS(300,350)
Send("{a up}")
RS(2700,3200)
Send("r")
Call("Target1")
RS(1000,1500)
Call("sf")
RS(1200,1500)
Call("sr")
RS(9000,12000)
Call("check")
Sleep(100)
Call("sf")
RS(1200,1500)
Call("sr")
RS(9000,12000)
Call("check")
Sleep(100)
Call("sf")
RS(1300,1500)
Send(",")
RS(100,200)
Call("sr")
RS(10000,11000)
Call("loot")
EndFunc

Func HM()
    Mouseclick("left",1064, 67) 
    RS(200,300)
EndFunc

Func weg()
    send("o")
    RS(0,2000)
    send("{space}")
    Sleep(3000)
EndFunc
    

Func farm()
    RS(1,1000)
    While 1
        $check = PixelChecksum(356, 926,425, 936)
        if $check = 2943090078 Then
        Call("weg")
        ExitLoop
        Else
        $wait1 = 1
    EndIf
    WEnd    
    While 1
        $check = PixelChecksum(868, 953,928, 1013)
        if $check = 167713478 Then
        Call("uw")
        ExitLoop
        Else
        $wait2 = 0
    EndIf
    WEnd    
EndFunc

Func start()
Winactivate("Guild Wars")
Winwaitactive("Guild Wars")
RS(1000,2000)
Call("HM")
For $i = $Runden to 1 step -1
    Call("farm")
Next

EndFunc 


Originally Posted by Maaan

Ich adde mal den Antivirus Report nach, wenn das OK ist


Antivir: Nichts gefunden
ArcaVir: Nichts gefunden
Avast: Nichts gefunden
AVG: Nichts gefunden
BitDefender: Nichts gefunden
F-Prot: Nichts gefunden
Norman: Nichts gefunden
Rising: Nichts gefunden
VirusBlokAda32: Nichts gefunden
VirusBuster: Nichts gefunden


Überprüft von


~ Maaan

Der Bot geht nicht mehr!

[D_S]

Bin ma gespannt ob das mit Pixelchecksum bei allen hinhaut

[kknb]

mit sicherheit nicht.

[D_S]

Denk ich nämlich auch, die die Ahnung haben könnens ja leicht anpassen wobei ein auskommentieren natürlich sehr von vorteil wäre. Aber ansonsten wird es hier bald viele "omg ich kriegs nich hin" posts geben

[xSharkoonX]

wenn die grafik einstellungen korrekt sind und gleich bei allen dann passt es

vllt post ich morgen mal wenn es bei welchen nicht klappt wie sie ihre checksums dort eintragen können !

[Dunham]

joa ich kann ja auch ne erklärung dazu schreiben wenn es probleme gibt ^^

[Sayael]

Öhm, was machen die Leute, die die Auflösung in GW nicht können?
Klingt zwar komisch, ist aber so.

[Dunham]

hmm jo die müssen sich den neu anpassen ^^

[Sayael]

Was ist mit den Leuten, die nicht so ne Ahnung davon haben?

[Dunham]

ganz erlioch das ist mein erster bot un wenn sie probleme haben haben sie halt probleme :-) kann das doch noch nicht benutzerfreundlich machen ^^

[ziff]

Originally Posted by Sayael

Öhm, was machen die Leute, die die Auflösung in GW nicht können?
Klingt zwar komisch, ist aber so.

Dann annst du den Leuten ja helfen und den super A/E-UW²-Bot-Support-Thread feat. Sayael aufmachen, der dann innerhalb von 2 Tagen voll mit QQ-Posts is :P

[Sayael]

Ja stimmt auch wieder ^^

Mach doch einfach 1024x768, dass kann wirklich jeder

[Dunham]

joa kann ich auch machen ^^

[Sayael]

Originally Posted by ziff

Dann annst du den Leuten ja helfen und den super A/E-UW²-Bot-Support-Thread feat. Sayael aufmachen, der dann innerhalb von 2 Tagen voll mit QQ-Posts is :P

Moah, lass ma, möchte mein Postfach nicht in 2 Tagen voll haben

Ne ich werds selbst machen ^^
Oder einfach ne neue Graka kaufen

[xSharkoonX]

ich hatte wegen dir in 2tagen mein postfach voll xDDD