Register for your free account! | Forgot your password?

You last visited: Today at 20:26

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



UW² Ecto Bot v1 [A/E]

Discussion on UW² Ecto Bot v1 [A/E] within the GW Exploits, Hacks, Bots, Tools & Macros forum part of the Guild Wars category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Sep 2008
Posts: 732
Received Thanks: 216
UW² Ecto Bot v1 [A/E]

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.



PHP Code:
#cs
AutoIt Version3.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)
BesonderheitenGruppenfenster rechts oben!
FunktionenFarmen (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(868953,9281013)
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(53538,63346)
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(78334,79447)
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(53538,63346)
    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",106467
    
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(356926,425936)
        if 
$check 2943090078 Then
        Call
("weg")
        
ExitLoop
        
Else
        
$wait1 1
    
EndIf
    
WEnd    
    
While 1
        $check 
PixelChecksum(868953,9281013)
        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


Überprüft von


~ Maaan

Der Bot geht nicht mehr!
Dunham is offline  
Thanks
1 User
Old 11/11/2008, 21:26   #2
 
D_S's Avatar
 
elite*gold: 0
Join Date: Jul 2008
Posts: 164
Received Thanks: 9
Bin ma gespannt ob das mit Pixelchecksum bei allen hinhaut
D_S is offline  
Old 11/11/2008, 21:28   #3
 
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
mit sicherheit nicht.
kknb is offline  
Old 11/11/2008, 21:32   #4
 
D_S's Avatar
 
elite*gold: 0
Join Date: Jul 2008
Posts: 164
Received Thanks: 9
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_S is offline  
Old 11/11/2008, 21:36   #5
 
elite*gold: 0
Join Date: Dec 2007
Posts: 680
Received Thanks: 141
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 !
xSharkoonX is offline  
Old 11/11/2008, 21:59   #6
 
elite*gold: 0
Join Date: Sep 2008
Posts: 732
Received Thanks: 216
joa ich kann ja auch ne erklärung dazu schreiben wenn es probleme gibt ^^
Dunham is offline  
Old 11/11/2008, 22:36   #7


 
Sayael's Avatar
 
elite*gold: 5
Join Date: Nov 2007
Posts: 16,440
Received Thanks: 3,696
Öhm, was machen die Leute, die die Auflösung in GW nicht können?
Klingt zwar komisch, ist aber so.
Sayael is offline  
Old 11/11/2008, 23:07   #8
 
elite*gold: 0
Join Date: Sep 2008
Posts: 732
Received Thanks: 216
hmm jo die müssen sich den neu anpassen ^^
Dunham is offline  
Old 11/12/2008, 09:42   #9


 
Sayael's Avatar
 
elite*gold: 5
Join Date: Nov 2007
Posts: 16,440
Received Thanks: 3,696
Was ist mit den Leuten, die nicht so ne Ahnung davon haben?
Sayael is offline  
Old 11/12/2008, 13:44   #10
 
elite*gold: 0
Join Date: Sep 2008
Posts: 732
Received Thanks: 216
ganz erlioch das ist mein erster bot un wenn sie probleme haben haben sie halt probleme :-) kann das doch noch nicht benutzerfreundlich machen ^^
Dunham is offline  
Old 11/12/2008, 14:32   #11
 
ziff's Avatar
 
elite*gold: 0
Join Date: Jul 2008
Posts: 100
Received Thanks: 6
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
ziff is offline  
Old 11/12/2008, 14:33   #12


 
Sayael's Avatar
 
elite*gold: 5
Join Date: Nov 2007
Posts: 16,440
Received Thanks: 3,696
Ja stimmt auch wieder ^^

Mach doch einfach 1024x768, dass kann wirklich jeder
Sayael is offline  
Old 11/12/2008, 15:13   #13
 
elite*gold: 0
Join Date: Sep 2008
Posts: 732
Received Thanks: 216
joa kann ich auch machen ^^
Dunham is offline  
Old 11/12/2008, 15:17   #14


 
Sayael's Avatar
 
elite*gold: 5
Join Date: Nov 2007
Posts: 16,440
Received Thanks: 3,696
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

Ne ich werds selbst machen ^^
Oder einfach ne neue Graka kaufen
Sayael is offline  
Old 11/12/2008, 15:29   #15
 
elite*gold: 0
Join Date: Dec 2007
Posts: 680
Received Thanks: 141
ich hatte wegen dir in 2tagen mein postfach voll xDDD
xSharkoonX is offline  
Reply


Similar Threads Similar Threads
Wtb Ecto Stacks
06/08/2010 - Guild Wars Trading - 0 Replies
Plz get at me... also want armbraces and zkey stacks..
WTB Ecto for allopass
05/16/2010 - Guild Wars Trading - 0 Replies
WTB Ecto for allopass
WTS ecto ~!~!~
03/13/2010 - Guild Wars Trading - 1 Replies
WTS ecto Stack = 30 € or 40 $ USD if you take 5 stacks or more it will be 26 € or 35 $USD each stack 10 Stacks instock at the moment u can pay in Euro or dollars =) payment via Paypal vertified
WTS Big Ecto Pack/// WTS großes Ecto Packet
12/02/2009 - Guild Wars Trading - 2 Replies
hi, WTS 1850ectos das ganze packet wird nur als 1 packet verkauf, d.h. ich verkaufe nicht nur 50e sondern nur 1850ectos. wer interesse an diesem schönen packet hat, soll mir hier ne pm hinterlassen :)
ecto hunting
07/19/2007 - Guild Wars - 2 Replies
hello GW ppl i need a guide for ecto hunting if me primare proffesion is warrior PLS if you have any links post them text2schild.php?smilienummer=1&text=thx for your help' border='0' alt='thx for your help' />



All times are GMT +1. The time now is 20:27.


Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.