My First actully a little good bot...(openSource)

Page 1 of 3 1 23
10/21/2008 21:17 NBA#1
Hier ist er, mein erster richtiger bot. Wie der Header schon sagt, ist er OpenSource also kann jeder was dran ändern. Zugegeben er ist nicht richtig ertragsreich(10-20p+goldene items und weise pro nacht) aber was will man von den ding auch erwarten... Also: Er farmt die elonaspitze so lange, bis man ihn beendet, was schwierigkeiten beiseiten des AntiScreensSavermoduls haben kann(mir ist grad nichts besseres eingefallen)..zu den Features zählen:

-farmen
-Autologin(wenn auch schnell)
-Wichtigtuerei(hab mich damals gelandweilt :D )

Hier der Code(ich glaube compilieren kann ihn jeder selbst. Ausserdem denke ich das ich ihn sehr ausführlich geschrieben hab...):
PHP Code:
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:        NBA(e*pvpers) alias Farmingbot(i*gamers.de)

 Script Function:
    Elona Reach OpenSource-Farmbot

#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here

;Variabelen erstellen
Dim $Zufall = Random(1,500,1)
Dim $ZufallSleeptime = Random(600000,60000,1)
Dim $Zufalllogout = Random(0,1000,1)
;Nachfrage ob man den Bot wirlich Laufen lassen will...und wenn ja wie lange(muss noch geschrieben werden)+Wichtigtuerei(kommt von langeweile)?
Dim $StartBox = MsgBox(4,"Willst du den Bot starten?","Durch das starten des Bottes, egal welcher Weise, stimmst du den AGB's zu.Willst du den Bot nun starten?")
if $Startbox = 7 then exit
    
Dim $inputPasswort = InputBox("Passwort","Tippe bitte dein Passwort in dem unteren Textfeld ein.","","*")
if @error then Exit
;Fortschrittsbalken um wichtig zu machen ;-)
ProgressOn("Loading", "Loads Data of the Bot", "0%")
For $i = 1 to 100 step 1
    sleep(50)
    ProgressSet( $i, $i & " %")
Next
ProgressSet(100 , "Bot loaded", "Completed loading the Bot")
sleep(3000)
ProgressOff()
while 1

;Guild Wars Fenster Öffnen
Run("C:\Programme\Guild Wars\Gw.exe")
WinActivate("Guild Wars")
WinWaitActive("Guild Wars")
sleep(2000)
send($inputPasswort)
sleep(3000)
MouseMove(367,295)
MouseClick("left")
sleep(2000)
send("{enter}")
sleep(5000)

;Nach Random ausloggen

If $Zufalllogout > 500 then
    MouseMove(872,19,800)
    MouseClick("left")
    sleep(2000)
    Sleep($ZufallSleeptime)
    ;Verhindere den Screensaver während des Random Sleep Times(AntiScreenSaver)
    while 1
        Mousemove(232,123)
        Mousemove(323,321)
        WEnd
    Run("C:\Programme\GUILD WARS\Gw.exe")
    sleep(10000)
    send($inputPasswort)
    sleep(3000)
    send("{Enter}")
    sleep(4000)
EndIf
If $Zufalllogout <= 500 Then
    EndIf

;-------------------------
;-------------------------
;-------------------------
;Betreten Nach Random
;------------------------


If $Zufall = 1 then
    MouseMove(384,344,800)
    MouseMove(130,310,800)
    MouseClick("left")
    MouseMove(467,401,800)
    MouseClick("Left")
    sleep(9000)
    Endif
    
    If $Zufall = 2 then
        MouseMove(444, 168,801)
        MouseMove(75, 309)
        MouseClick("Left")
        MouseMove(445,393,801)
        MouseClick("left")
        sleep(7093)
    endif
    
    If $Zufall = 3 Then
        MouseMove(598,258,799)
        MouseMOVE(144,312)
        MouseClick("Left")
        MouseMove(452,397,799)
        Send("{Enter}")
        sleep(2038)
    EndIf
    
    If $Zufall = 4 Then
        MouseMove(771,487,790)
        MouseMove(97,312,810)
        MouseClick("Left")
        MouseMove(446,395,820)
        MouseClick("left") ;or send("{Enter}")
        sleep(2312)
    EndIf
    
    IF $ZUFALL = 5 THEN
        MOUSEMOVE(106,311,800)
        MOUSECLICK("LEFT")
        MOUSEMOVE(435,392,788)
        MOUSECLICK("LEFT")
        SLEEP(10000)
    ENDIF
    
;Caste die Verzauberungen
Sleep(9995)
If $Zufall > 2 then
sleep(10000)
MouseMove(508,649,800) ;Glaubensaura
MouseClick("left")
sleep(2200)
MouseMove(620,659,560) ;Baltharsars Geist
Mouseclick("left")
Sleep(2122)
Mousemove(550,657,600) ;Essenzbindung
MouseClick("left")
MouseMove(469,654,589)    
sleep(4000)
sleep(3000)
EndIf
If $Zufall = 2 Then
    sleep(10000)
Mousemove(620,659,560) ;Baltharsars Geist
MouseClick("left")
sleep(3000)
MouseMove(508,649,800) ;Glaubensaura
MouseClick("left")
sleep(2200)
MouseMove(550,657,600) ;Essenzbindung
Mouseclick("left")
Sleep(2122)
endif    
If $Zufall < 2 Then
MouseMove(550,657,600) ;Essenzbindung
Mouseclick("left")
Sleep(2122)
Mousemove(620,659,560) ;Baltharsars Geist
MouseClick("left")
sleep(3000)
MouseMove(508,649,800) ;Glaubensaura    
MouseClick("left")
sleep(2200)
endif
;Geist Anwesieren
send("{v}")
sleep(344)
send("{SPACE}")
sleep(10000)
;Gegenstand fallenlassen
send("o")
;Sich selbst anwählen
send("f")
sleep(1000)
send("{w down}")
sleep(4000)
send("{w up}")
send("{e down}")
sleep(2500)
send("{e up}")
send("{w down}")
sleep(9000)
send("{W UP}")
send("{1}")
sleep(500)
send("{2}")
sleep(500)
send("{q down}")
sleep(7900)
send("{q up}")
send("{3}")
sleep(7900)
send("{2}")
sleep(510)
send("{1}")
sleep(6500)
send("{3}")
;Gegner Anwählen und Boshafter Geist casten
sleep(1000)
send("{tab}")
send("{4}")
sleep(8000)
send("{2}")
sleep(500)
send("{1}")
sleep(7500)
send("{3}")
sleep(1000)
send("{4}")
sleep(7000)
send("{2}")
sleep(7000)
send("{3}")
sleep(1000)
send("{1}")
sleep(500)
;Sachen Aufheben
send("ö")
send(" ")
sleep(1000)
send("ö")
send(" ")
sleep(1000)
send("ö")
send(" ")
sleep(1000)
send("ö")
send(" ")
sleep(1000)
;Aufgeben
send("{enter}")
send("/Resign")
send("{enter}")
sleep(3000)
MouseMove(515,402,800)
MouseClick("left")
wend 
Skillvorlage: OwQTc4HDnpesSur5BAAARfIPAA
Mö/Ne mit Boshafter geist

Ausrüstung: 55hp ausrüstung+farmcestus+casterwaffe..
Bildschirmauflösung: 1024*768
Das interface/den code muss sich jeder selbst verändern.. :p
Botte seit einiger zeit mit dem(Testphase) geht ganz ok...

MFG,
NBA

P.S.: Freue mich auf abgewandelten Code ;)... Er muss ja nicht nur die ElonaSpitze farmen, man könnte auch eine reise z.B. nach Flachland funktion einbauen ;D


Bild:
[Only registered and activated users can see links. Click Here To Register...]
10/21/2008 21:45 blauwiggle#2
Kennst du schon Tidy?
[Only registered and activated users can see links. Click Here To Register...]

Ansonsten ist er schön übersichtlich :)
Vorallem finde ich den Teil hier ganz lustig:

Code:
send("ö")
send(" ")
Da wär ich im Leben nicht drauf gekommen, ich mach das immer mit SPACE drücken lassen ^^
10/21/2008 21:54 NBA#3
Anfängerglück XD

Achja: Darthwith hatte ja mal das Problem mit dem dauerhaften deathcheck..ob das auch mit while 1 geht??
achjaachja: Tidy kannte ich noch nicht..
10/21/2008 22:28 darthwitch#4
Quote:
achjaachja: Tidy kannte ich noch nicht.
Das muss man nicht können einfach auf tidy autoit source klicken oder strg+t im script machen udn dann macht der alles
Quote:
Darthwith hatte ja mal das Problem mit dem dauerhaften deathcheck..ob das auch mit while 1 geht??
ja habe mich nicht weiter drum gekümmert bauen wir am ende in unseren bot^^ kann mich dann ja bei dir melden
10/21/2008 22:34 i4mSoH34Vy#5
Quote:
Originally Posted by darthwitch View Post
Das muss man nicht können einfach auf tidy autoit source klicken oder strg+t im script machen udn dann macht der alles ja habe mich nicht weiter drum gekümmert bauen wir am ende in unseren bot^^ kann mich dann ja bei dir melden
Da steht das er das noch nicht kannte und nicht das er das nicht kann ^^
10/21/2008 22:37 darthwitch#6
Quote:
Da steht das er das noch nicht kannte und nicht das er das nicht kann ^^
Huch xD sry
10/21/2008 22:48 NBA#7
Jedem passiert ma nen Fehler...naja WENN ich wüsste wie würde ich ihn zum flachland reisen lassen das er da dann die Insecten farmt...bzw auch das Build wechseln und die Bosse mitfarmen. Einziges Problem: Ich weiß nicht wie/kanns nicht xD
10/22/2008 00:11 lox.0r#8
Wenn man schon einen unertragreichen Bot benutzt dann sollte man doch wenigstens in Thermalquellen botten.(Find ich)^^
10/22/2008 07:44 NBA#9
Ja aber der ist nicht so einfach XDXD
10/22/2008 10:34 Azunai#10
Code:
AntiScreensSavermoduls
?????

sinn?
bei jedem click oder tastendruck, ausgeführt von au3 wird die wartezeit des screensavers neu gestartet --> kein saver startet
falls doch --> beendet sich direkt wenn der bot weiter macht
10/22/2008 10:54 darthwitch#11
Quote:
sollte man doch wenigstens in Thermalquellen botten

Ja aber der ist nicht so einfach XDXD
Doch der ist einfacher
10/22/2008 13:58 Azunai#12
beides gleich einfach ? xD
10/22/2008 15:45 NBA#13
Eigentlich ja schon, blos ist mein problem das er sich nach den screensaver ausloggt..man müsste sich also neu einloggen was (soweit ich weiß) mit dem Bot nicht möglich ist..
10/22/2008 21:02 NBA#14
Das GUI wurde erstellt...mit den Functionen müsst ihr euch selbst verlinken, hier unser GUI für den Bot:
PHP Code:
GUICreate("Farmbot OpenSource NBA 1.0")

GUISetState(@Sw_Show)

GUICtrlCreateLabel("Gibt hier die Anzahl Runden ein die du Farmen willst :",1,0)

GUICtrlCreateInput("",1,20)

GuiCtrlCreateLabel("Gib hier an wo du überall farmen willst :",1,41)

GUICtrlCreateCheckbox("Elonasptize",1,60)

GUICtrlCreateCheckbox("Thermalquellen",1,80)

GUICtrlCreateCheckbox("Flachland Von Jarin",1,100)

GUICtrlCreateLabel("Willst du den Zufallslogout nutzen?",1,120)

GUICtrlCreateCheckbox("Ja",1,140)

GUICtrlCreateLabel("Gib hier die Zufallszahlen an(nur bei Zufallslogout) : ",1,160)

GUICtrlCreateInput("Zahl 1",1,181,60,20) 

GUICtrlCreateInput("Zahl 2",80,181,60,20)

GUICtrlCreateButton("Start",70,210,250,30) 
Mir ist grad etwas eingefallen:
Könnte man nicht die Karte nehmen, Routen einzeichnen unde den bot die routen gehen lassen?

Edit: Und Danke Darthwith wegen des supports ;)
10/23/2008 23:44 Illuminatus#15
zufallszahlen die nicht zufällig sind? sinn?
Page 1 of 3 1 23