UW² Ecto Bot v1 [A/E]

Page 1 of 7 1 23 Last »
11/11/2008 20:44 Dunham#1
Hi, es ist soweit v1 meines ersten Bottes ist fertig!

Code:
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.

[Only registered and activated users can see links. Click Here To Register...]

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 
Quote:
Originally Posted by Maaan View Post
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

[Only registered and activated users can see links. Click Here To Register...]
Überprüft von [Only registered and activated users can see links. Click Here To Register...]


~ Maaan

Der Bot geht nicht mehr!
11/11/2008 21:26 D_S#2
Bin ma gespannt ob das mit Pixelchecksum bei allen hinhaut :D
11/11/2008 21:28 kknb#3
mit sicherheit nicht.
11/11/2008 21:32 D_S#4
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 :D
11/11/2008 21:36 xSharkoonX#5
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 !
11/11/2008 21:59 Dunham#6
joa ich kann ja auch ne erklärung dazu schreiben wenn es probleme gibt ^^
11/11/2008 22:36 Sayael#7
Öhm, was machen die Leute, die die Auflösung in GW nicht können?
Klingt zwar komisch, ist aber so.
11/11/2008 23:07 Dunham#8
hmm jo die müssen sich den neu anpassen ^^
11/12/2008 09:42 Sayael#9
Was ist mit den Leuten, die nicht so ne Ahnung davon haben?
11/12/2008 13:44 Dunham#10
ganz erlioch das ist mein erster bot un wenn sie probleme haben haben sie halt probleme :-) kann das doch noch nicht benutzerfreundlich machen ^^
11/12/2008 14:32 ziff#11
Quote:
Originally Posted by Sayael View Post
Ö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
11/12/2008 14:33 Sayael#12
Ja stimmt auch wieder ^^

Mach doch einfach 1024x768, dass kann wirklich jeder :)
11/12/2008 15:13 Dunham#13
joa kann ich auch machen ^^
11/12/2008 15:17 Sayael#14
Quote:
Originally Posted by ziff View Post
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 :D

Ne ich werds selbst machen ^^
Oder einfach ne neue Graka kaufen :)
11/12/2008 15:29 xSharkoonX#15
ich hatte wegen dir in 2tagen mein postfach voll xDDD
Page 1 of 7 1 23 Last »