Ascalon Farben-Farm-Bot-1 v.2a

[Hokler]

Hallo,

Heute will ich schon wieder einen Ascalon-Bot veröffenlichen

Infos:

Dieser Bot Farmt Farben im Ascalon Tutorial. Der Bot ist nicht soo ertragreich aber man kann sich ein par Platins dazu verdienen. Der Bot Farmt die Eingeschworenen Banditen die bei der Quest "Banditenüberfall" auftauchen. Die Quest bekommt man in Ascalon (wo genau weis ich grad nicht mehr).
Der Bot läuft komplett im Hintergrund und nutzt die neuste tt6 Engine (MoveTo)


Vorgehensweise:

Er startet in der Aschfurt-Abtei und läuft dan raus in das Gebiet. Wen er drausen angelangt ist läuft er zu den Banditen und tötet sie mit Feuersturm.
Wen alle Tot sind sammelt er die gedropten Items ein und kehrt zurück nach Aschfurt-Abtei und fängt von vorne an.

Wichtig: Dieser Bot hatt keine Verkaufs-Funktion!!!

Hir ein Bild der Farmstelle:



Was ihr Benötigt:

- Einen Elementarmagier der mindestens auf Stufe 8 ist. (weis nicht ob es bei niedrigeren Stufen geht)

- Diese Skillung: OgBCoHPAtIXMAAAAAAA

- Die Quest "Banditenüberfall"

- Den Ausenposten "Aschfurt-Abtei"


Anleitung:

Grafik-Einstellungen:
Auflösung: Fenster
Interface Größe: Klein

Tasten-Einstellungen:
Nächstbefindlicher Gegenstand: ohh
Nächstbefindlicher Feind: c

Wen ihr den Bot gedownloadet habt, startet ihr GW. Loggt euch mit euren Elementarmagier ein, holt euch die Quest (Gibts in Ascalon) und reist zur Aschfurt-Abtei. Wen ihr in der Aschfurt-Abtei seit startet ihr die Ascalon Farben-Farm Bot v.2a.exe. Jetzt drückt ihr zu erst auf den Button wo "1) GW Fenster Anpassen" draufsteht und danach auf den Button wo "Bot Starten" drauf steht. Und schon legt der Bot los =)


Was man alles Farmt:
- Getragene Gürtel (Haufenweise)
- Verschiedene Waffen
- Farben (Alle möglichen hab schon 2 mal Schwarz bekommen )

Was man pro Stunde einnimt kann ich nicht sagen hab den Bot erst vor 10 minuten Fertiggestellt.


Update Notes:
- Der Fehler das der Bot manchmal vor dem Portal stehen bleibt wurde behoben.

Der Viren-Scan:

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


Scanned by


So und nun viel Spaß beim Botten

So Update ist da!!
die datei update downloaden und entpacken die enpackte datei (update.ini) einfach in den data ordner rein und ersetzen.

mfg
Hokler

[Syc0n]

Ich dachte immer Farben droppen häufig bei den Spinnen?!

Denke daher nicht, dass es allzu ertragreich seien wird...

[wodan89]

Werd dein Bot mal testen. Ist mal was neues^^

[Hokler]

Originally Posted by Weedman00992

Ich dachte immer Farben droppen häufig bei den Spinnen?!

Denke daher nicht, dass es allzu ertragreich seien wird...

Ja bei den Spinnen droppen auch farben aber da hab ich noch nie schwarz bekommen aber bei den banditen schon

und ich hab auch geschrieben das er nicht so ertragreich ist =)

[aLasca]

Originally Posted by Weedman00992

Ich dachte immer Farben droppen häufig bei den Spinnen?!

Denke daher nicht, dass es allzu ertragreich seien wird...

Welche Spinnen? Die beim WaldiBoss? [Under Construction]

[Hokler]

Originally Posted by aLasca

Welche Spinnen? Die beim WaldiBoss? [Under Construction]

ne auch im ascalon tutorial die spinnen in den katakompen =)

[aLasca]

Aso..^^ Ich kenn das bei den Skaalen in Fort Ranik~

[Read Me]

Dachte auch erst, dass es um die Skaale bei Fort Ranik geht, da es dort ca 25 Gegner gibt und diese um eingies mehr einbringen^^

[aLasca]

***^^

[Hokler]

Hier mal die Source dan könnt ihr nochn bissle dran Rumbasteln =)

PHP Code:

#include <NomadMemory.au3>
#include "tt6.au3"
#include <GUIConstants.au3>

$Form1 = GUICreate("Ascalon Farben-Farm Bot v.2a", 292, 91, 193, 125)
$Button1 = GUICtrlCreateButton("1) GW Fenster Anpassen", 8, 8, 129, 49, 0)
$Button2 = GUICtrlCreateButton("2) Bot Starten", 152, 8, 129, 49, 0)
$Label1 = GUICtrlCreateLabel("Copyright(c) by Hokler", 80, 64, 108, 17)
GUISetState()

While 1
$msg=GuiGetMsg()
If $msg=$Button1 Then button1()
If $msg=$Button2 Then button2()
Wend


Func  button2()
Call("_start")
endFunc

Func button1()
Call("gw_anpassen")
EndFunc
;==========================================================================
HotKeySet("{PAUSE}", "TogglePause")
Global $Paused

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("Script is running")
If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
EndIf
Sleep(2000)
EndFunc
;==========================================================================
func RandomSleep($min, $max)
    $time = Random($min, $max)
    Sleep($time)
endfunc
;==========================================================================
Func gw_anpassen()
    Controlmove("Guild Wars", "", 0, 0, 0, 1024, 768)    
    Opt("MouseCoordMode",0)
EndFunc
;==========================================================================
Func _start()
While 1
If CheckArea(-12135, -8432) Then
PrepMoveTo()
MoveTo(1, -12400, -7930)
MoveTo(1, -12767, -6957)
MoveTo(1, -12730, -6529)
MoveTo(1, -12348, -6242)
MoveTo(1, -11898, -6202)
MoveTo(1, -11323, -6235)
StopMoveTo()

ElseIf CheckArea(-13078, -7728) Then
PrepMoveTo()
MoveTo(1, -12767, -7002)
MoveTo(1, -12316, -6368)
MoveTo(1, -12018, -6267)
MoveTo(1, -11319, -6237)
StopMoveTo()

ElseIf CheckArea(-12012, -5624) Then
PrepMoveTo()
MoveTo(1, -11796, -5996)
MoveTo(1, -11319, -6237)
StopMoveTo()

Randomsleep(7000, 7100)

ElseIf CheckArea(-11001, -6233) Then
PrepMoveTo()
MoveTo(1, -10202, -5987)
MoveTo(1, -8811, -5238)
MoveTo(1, -7578, -4317)
MoveTo(1, -6667, -4035)
MoveTo(1, -6136, -3652)
StopMoveTo()

KeySend("1")
RandomSleep(250, 255)
Send("2")
RandomSleep(1000, 1005)
Send("c")
RandomSleep(500, 550)
KeySend("3")
RandomSleep(12000, 12100)

KeySend("o")
RandomSleep(50, 51)
KeySend("space")
RandomSleep(1000, 1100)
KeySend("o")
RandomSleep(50, 51)
KeySend("space")
RandomSleep(1000, 1100)
KeySend("o")
RandomSleep(50, 51)
KeySend("space")
RandomSleep(1000, 1100)
KeySend("o")
RandomSleep(50, 51)
KeySend("space")
RandomSleep(1000, 1100)

resign()
RandomSleep(500, 510)
ControlClick("Guild Wars","","","left",1,500, 389)
EndIf
Wend
EndFunc 


[Rosemarie Lein]

Ich hab dafür ebenfalls einmal einen Bot geschrieben. Die Stelle ist an Events recht ertragreich, zumindest fürs Tutorial und bringt, wenn ich mich recht erinnere meist ca. 10 Eventitems pro Stunde. Pro Nacht ca. 1-2 Schwarz.

EDIT: geht btw. auch als Mo/E mit Feuersturm und Symbol des Zorns.

[Winter Green]

hö? wo kann man sich den bot downloaden? im ersten post sehe ich ncihts!

[Hokler]

Originally Posted by Winter Green

hö? wo kann man sich den bot downloaden? im ersten post sehe ich ncihts!

so jetzt isser wieder da hab ihn ausversehen rausgemacht -.-

mfg
Hokler

[NBA]

Kommt irgentwann ein charr ident kit und charr taschen farmbot?

[Hokler]

Originally Posted by NBA

Kommt irgentwann ein charr ident kit und charr taschen farmbot?

des is ne gute idee =) aber dafür brauch ich erstmal nen 16er im tutorial. mein höchster is grad 8 -.-