Thermallquellen Bot (Hardmode)

~~Therawarp~~ · 10/13/2008, 01:26

das problem kannst du beheben indem du mit autoit einen 2ten bot laufen lässt der die aktivität des gw fensters prüft und bei inaktivität es sofort wieder aktiviert

ludwigma · 10/13/2008, 13:26

hi

hab das 2er script grad perfekt laufen

was kann man denn am besten tun um nicht gebannt zu werden aber zeitweise bots zu verwenden...
ich will nur meine titles endlich raufbringen :-)

Dunham · 10/13/2008, 15:31

geabnnt kannste immer werden^^ ich botte jetzt auch schon ne weile und es ist nichts passiert :-) ich botte aber immer nur so max 5 std. mit meinem main acc.! mit meinem farm acc ca. 20 std. (den hab ich aber erst seit 2-3tagen^^)
und botte nich im deutschen dis. ! besser ist amiland oder asien

ludwigma · 10/19/2008, 17:06

so da ja lang und breit über keylogger und co gepostet wurde und du (blackworx) ja geschrieben hast man kann ja den bot decompilen und das selbst überprüfen

Gerne

schreib mal ne anleitung rein wenn du fair bist um die exe zu decompilen und sich das mal anzusehen

es wären dir sicher einige sehr verbunden
danke

i4mSoH34Vy · 10/19/2008, 17:41

LOL, wieso hat er denn nun den BoonBot rausgenommen

blackWorkx · 10/19/2008, 17:50

weil er nun kein bock mehr hat puplic für andere was zu machen

wer den bot noch hat kann ihn ja selber hochladen bzw. entcoden ich will hier nüscht mehr machen

wieder off*

~~kknb~~ · 10/19/2008, 18:21

viel spass damit, ist von mir nicht getestet usw....

ludwigma · 10/19/2008, 20:02

na das spricht ja dann wohl bände

naja es gibt zumindest ein nettes tool mit dem man alle offenen port connections mitprotokollieren kann :

nennt sich current ports

und um keylogging auszuweichen würd ich den bot erst starten wenn gw schon angemeldet ist und die Autologin variante nicht zu verwenden!!!

habe versucht die exe mal mit upx zu entpacken , hat auch geklappt aber decompilen kann man sie immer noch nicht mit autoit

vielleicht hat ja einer mehr erfahrung damit

ich will das jetzt einfach wissen mit welchen karten manche leut spielen sorry aber ich glaub das steht jeden zu

alternativ lasst es einfach und schreibt euch das ding selbst ist halb so wild

lg an die vertrauenswürdigen netten leute hier
markus

lox.0r · 10/19/2008, 20:26

Hoffe mal das Teil hatte nix ~.~

Gabba2 · 10/19/2008, 20:32

Wieviele haben den Bot genutzt? Bestimmt einige 100. und wieviele haben sich über gehackte Accs beschwert? Ich hab nicht den ganzen Thread gelesen aber wenns hoch kommt vielleicht 2 und so eine Anzahl wird man in jedem etwas längeren Bot Thread finden.
Außerdem meint ihr nicht, dass mal irgendwann irgendein Viren oder Spyware Programm was gemeldet hätte?
Übertreibt es mal nicht mit euren Verschwörungstheorien. Nur weil welche sagen, dass in manchen Bots Keylogger oder sonst was enthalten sind/waren heisst das nicht, dass auf einmal in jedem Bot von Person X oder von sonst wem ein Trojaner sein muss.
Und ich hätte wenn auch nicht unbedingt Lust einen Public Bot zur Verfügung zu stellen wenn es einen Post über mich gäbe in dem in kürzester Zeit 3 Seiten Anschuldigungen/Flame angehäuft wurden. Das auf "da war scheinbar sicher ein Keylogger enthalten sonst würde er es ja nicht rausnehmen" zurück zu führen ist mehr als vorschnell.

ludwigma · 10/19/2008, 20:39

source public machen und keine einzige diskussion kann aufkommen

wenns eh schon public is vollkommen egal

exit_Z · 10/19/2008, 21:07

Sauber 100%

Source:

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\BoneBot v2.0\Data\icon\favicon(3).ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs################################################################################################
	
	- Autor: BlackWorkX -
	- Project Name: GuildWars FarmBots - BoneBot version2b -
	- Edit: 02.06.2008 Berlin / Germany -
	- Copyrigth: (c)BlackWorkX 2007 GuildWars Tools -
	
									Warning do not delet the copyrigths or the header of this Bot!	
#ce################################################################################################
TrayTip("GuildWars - FarmBots", "Regelmäßige Updates für die FarmBots" & @CRLF & "Kostengünstige Update gebühr auf neuere Versionen" & @CRLF & "Sehr gute Anti- Detection in GuildWars" & @CRLF & "" & @CRLF & "Für mehr Infos zum Bot )", 11, 1)
SplashImageOn("1", @ScriptDir & "\data\laden1.jpg", 200, 200, -1, -1, 17)
sleep(300)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", WinGetHandle("1"), "int", 900, "long", 0x00090000);fade-out
SplashOff()
SplashImageOn("2", @ScriptDir & "\data\laden2.jpg", 200, 200, -1, -1, 17)
sleep(300)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", WinGetHandle("2"), "int", 900, "long", 0x00090000);fade-out
SplashOff()
SplashImageOn("Splash Screen", @ScriptDir & "\data\laden3.jpg", 200, 200, -1, -1, 17)
Sleep(2500)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", WinGetHandle("Splash Screen"), "int", 2000, "long", 0x00090000);fade-out
SplashOff();>Start Up Loading Screen

#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\BlackSun\Desktop\Form3.kxf
$Form3 = GUICreate("Guild Wars FarmBots - BoneBot v2b", 578, 520, -1, -1)
GUISetFont(8, 400, 0, "Verdana")
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("Bot Funktionen", 8, 0, 313, 201)
$Radio1 = GUICtrlCreateRadio("Farmen in Thermalquellen von Bergen", 32, 16, 257, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox1 = GUICtrlCreateCheckbox("Automatisch Hardmode Check", 32, 48, 209, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateCheckbox("Identifizieren und Verkaufen", 32, 72, 201, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox3 = GUICtrlCreateCheckbox("Keine Goldenen Items Identifizieren", 32, 96, 241, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Pause in der Gildenhalle", 32, 128, 153, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Pause in Löwenstein", 32, 152, 137, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Pausen mit Emotion", 32, 176, 145, 17)
$Label4 = GUICtrlCreateLabel("Runden", 240, 144, 47, 17)
$Input4 = GUICtrlCreateInput("14", 232, 168, 65, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Automatischer Account Login", 8, 208, 313, 161)
$Checkbox7 = GUICtrlCreateCheckbox("Auto Account Login", 32, 240, 161, 17)
$Input1 = GUICtrlCreateInput("", 112, 272, 169, 21)
$Label1 = GUICtrlCreateLabel("Login eM@il", 32, 280, 70, 17)
$Input2 = GUICtrlCreateInput("passwort", 112, 304, 169, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Label2 = GUICtrlCreateLabel("Passwort", 32, 312, 55, 17)
$Input3 = GUICtrlCreateInput("C:\Programme\GUILD WARS\Gw.exe", 112, 336, 185, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("Gw.exe Pfad", 32, 344, 76, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Extra Einstellungen", 8, 376, 313, 113)
$Label5 = GUICtrlCreateLabel("Login Zeit", 192, 400, 60, 17)
$Input5 = GUICtrlCreateInput("20000", 256, 392, 57, 21)
$Input6 = GUICtrlCreateInput("12000", 256, 424, 57, 21)
$Label6 = GUICtrlCreateLabel("Lade Zeit", 192, 432, 57, 17)
$Label7 = GUICtrlCreateLabel("Emotion1", 16, 400, 57, 17)
$Input7 = GUICtrlCreateInput("/dance", 88, 392, 65, 21)
$Label8 = GUICtrlCreateLabel("Emotion2", 16, 432, 57, 17)
$Input8 = GUICtrlCreateInput("/laugh", 88, 424, 65, 21)
$Label9 = GUICtrlCreateLabel("Emotion3", 16, 464, 57, 17)
$Input9 = GUICtrlCreateInput("/sit", 88, 456, 65, 21)
$Label18 = GUICtrlCreateLabel("Pause Zeit", 192, 464, 64, 17)
$Input17 = GUICtrlCreateInput("110000", 256, 456, 57, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Koordinaten X/Y", 328, 128, 241, 249)
$Label10 = GUICtrlCreateLabel("Hardmode Button", 344, 152, 104, 17)
$Input10 = GUICtrlCreateInput("777, 64", 496, 144, 57, 21)
$Label11 = GUICtrlCreateLabel("Gildenhallen Button", 344, 184, 115, 17)
$Input11 = GUICtrlCreateInput("897, 86", 496, 176, 57, 21)
$Label12 = GUICtrlCreateLabel("Verkaufen -Oben- Button", 344, 216, 148, 17)
$Input12 = GUICtrlCreateInput("797, 711", 496, 208, 57, 21)
$Label13 = GUICtrlCreateLabel("Verkaufen -Unten- Button", 344, 248, 151, 17)
$Input13 = GUICtrlCreateInput("585, 57", 496, 240, 57, 21)
$Label15 = GUICtrlCreateLabel("GiveUp  Button", 344, 280, 90, 17)
$Input14 = GUICtrlCreateInput("512, 413", 496, 272, 57, 21)
$Label16 = GUICtrlCreateLabel("Truhen Slot 1", 344, 312, 81, 17)
$Label17 = GUICtrlCreateLabel("Truhen Slot 2", 344, 344, 81, 17)
$Input15 = GUICtrlCreateInput("816, 431", 496, 304, 57, 21)
$Input16 = GUICtrlCreateInput("754, 431", 496, 336, 57, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Start Bot", 328, 432, 243, 42, 0)
$Button2 = GUICtrlCreateButton("ObjecktMapper Tool", 328, 384, 243, 42, 0)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\data\header2.jpg", 328, 8, 241, 113, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label14 = GUICtrlCreateLabel("(c)BlackWorkX´s 2007-FarmBots", 384, 480, 193, 17)
$MenuItem1 = GUICtrlCreateMenu("&Hauptmenü")
$MenuItem2 = GUICtrlCreateMenuItem("Speichern...", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Laden", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("GuildWars Trader Tool", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("", $MenuItem1)
$MenuItem16 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
$MenuItem6 = GUICtrlCreateMenu("&Einstellungen")
$MenuItem7 = GUICtrlCreateMenu("GuildWars Einstellungen", $MenuItem6)
$MenuItem11 = GUICtrlCreateMenuItem("GuildWars Tastenbelegungen", $MenuItem7)
$MenuItem12 = GUICtrlCreateMenuItem("GuildWars Interface Grafik", $MenuItem7)
$MenuItem13 = GUICtrlCreateMenuItem("GuildWars Skillcode", $MenuItem7)
$MenuItem10 = GUICtrlCreateMenu("BoneBot Einstellungen", $MenuItem6)
$MenuItem14 = GUICtrlCreateMenuItem("BoneBot Hotkeys", $MenuItem10)
$MenuItem15 = GUICtrlCreateMenuItem("ObjecktMapper Tool", $MenuItem10)
$MenuItem8 = GUICtrlCreateMenu("Ü&ber")
$MenuItem9 = GUICtrlCreateMenuItem("Über FarmBots Programme", $MenuItem8)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Opt("SendKeyDelay", 77)
_laden()

Dim $iii, $ii, $i
Dim $xyOben = StringSplit(GUICtrlRead($Input12), ",") , $xyUnten = StringSplit(GUICtrlRead($Input13), ",")
Dim $xytruhe1 = StringSplit(GUICtrlRead($Input15), ","), $xytruhe2 = StringSplit(GUICtrlRead($Input16), ",") , $xygiveup = StringSplit(GUICtrlRead($Input14), ",")
Dim $hardxy = StringSplit(GUICtrlRead($Input10), ","), $xyghall = StringSplit(GUICtrlRead($Input11), ",")
Dim $xybook1 = GUICtrlSetData(112, 501) , $xybook2 = GUICtrlSetData(168, 510) , $xybook3 = GUICtrlSetData(222, 508)
Dim $pause = GUICtrlRead($Input17), $login = GUICtrlRead($Input5), $laden = GUICtrlRead($Input6)
Dim $emo1 = GUICtrlRead($Input7), $emo2 = GUICtrlRead($Input8), $emo3 = GUICtrlRead($Input8), $exist = ProcessExists("gw.exe")
Dim $email = GUICtrlRead($Input1), $pass = GUICtrlRead($Input2), $exe = GUICtrlRead($Input3) , $runden = GUICtrlRead($Input4)
Dim $PAUSED, $alogin = False, $gold = False, $farm = False, $sellident = False, $pgh = False, $pla = False, $pemo = False, $mode = False

HotKeySet("{F1}", "_start")
HotKeySet("{F2}", "_break")
HotKeySet("{F3}", "_laden")
HotKeySet("{F4}", "_speichern")
HotKeySet("{F5}", "_about")
HotKeySet("{F6}", "_gwtaste")
HotKeySet("{F7}", "_objeckt")
HotKeySet("{F8}", "_exit")

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1;starten
			_start()
		Case $Button2;objecktTool	
			_Objeckt()	
		Case $MenuItem2;Speichern
			_speichern()
		Case $MenuItem3;Laden
			_laden()
		Case $MenuItem4;TraderTool
			_tradeTool()
		Case $MenuItem16;close
			_exit()
		Case $MenuItem11;GWTASTEN
			_gwTaste()
		Case $MenuItem12;GWGrafik
			_gwgraka()
		Case $MenuItem13;Skillcode
			_skillcode()
		Case $MenuItem14;BotHotkeys
			_hotkey()
		Case $MenuItem15;ObjecktMapper
			_objeckt()
		Case $MenuItem9;About
			_about()
		Sleep(13)
	EndSwitch
WEnd

Func _break()
	$PAUSED = Not $PAUSED
	While $PAUSED
		Sleep(100)
		ToolTip('Pause mit F2, beenden sie die Pause"', 0, 0)
	WEnd
	ToolTip("Pause beendet!")
	If Not WinActivate("Guild Wars") Then
		WinActivate("Guild Wars")
	EndIf
	Sleep(2000)
EndFunc   ;==>_break

func _exit()
	DllCall("user32.dll", "int", "AnimateWindow", "hwnd", WinGetHandle("Guild Wars FarmBots - BoneBot v2b"), "int", 3000, "long", 0x00090000)
	Exit
EndFunc;->Beenden

Func _about()
	Run(@ScriptDir & "\data\about.exe")
EndFunc;->about

Func _gwTaste()
	MsgBox("GuildWars Keys", "GuildWars Keys", "Nummernblock 1 -> Nächstbefindlichen Verbündeten anwählen" & @CRLF & "Nummernblock 2 -> Gilde Öffnen" & @CRLF & "Nummernblock 3 -> Sich selbst Anvisieren" & @CRLF & "Nummernblock 4 -> Fertigkeiten und Attribute öffnen" & @CRLF & "Nummernblock 5 -> Weltkarte öffnen" & @CRLF & "Nummernblock 6 -> Alle Taschen öffnen" & @CRLF & "Nummernblock 7 -> Gegenstand fallen lassen" & @CRLF & "Nummernblock 8 -> Nächsten Gegenstand" & @CRLF & "Nummernblock 9 -> Nächsten befindlichen Gegener" & @CRLF & "" & @CRLF & "Bindestrich ( - ) -> Chatbefehl beginnen" & @CRLF & "ENTER -> Chat öffnen" & @CRLF & "Leertaste/Space -> Aktion / Ausführen" & @CRLF & "TAB-> Nächsten Gegener" & @CRLF & "" & @CRLF & "W -> Vorwärts gehen" & @CRLF & "S -> Rückwärts gehen" & @CRLF & "A -> Nach Links drehen" & @CRLF & "D -> Nach Rechts drehen" & @CRLF & "Q -> Seitlich nach Links laufen" & @CRLF & "D -> Seitlich nach Rechts laufen")
EndFunc;->gwkeys

Func _hotkey()
	MsgBox("BoneBot Hotkeys", "BoneBot version 3 - Hotkeys", "F1 zum Starten des Bots" & @CRLF & "F2 zum Pausieren des Bots" & @CRLF & "F3 zum Laden der Einstellungen" & @CRLF & "F4 zum Speichern der Einstellungen" & @CRLF & "F5 Informationen über den BoneBot" & @CRLF & "F6 Informationen zu den Skillcodes" & @CRLF & "F7 zum Starten des Tools ObjecktMapper" & @CRLF & "F8 zum Beenden des Bots")
	TrayTip("BoneBot version 3 - Hotkeys", "F1 zum Starten des Bots" & @CRLF & "F2 zum Pausieren des Bots" & @CRLF & "F3 zum Laden der Einstellungen" & @CRLF & "F4 zum Speichern der Einstellungen" & @CRLF & "F5 Informationen über den BoneBot" & @CRLF & "F6 Informationen zu den Skillcodes" & @CRLF & "F7 zum Starten des Tools ObjecktMapper" & @CRLF & "F8 zum Beenden des Bots", 11, 1)
EndFunc;->hotkey

func _laden()
	GUICtrlSetState($Radio1, IniRead("bot-save.ini", "radio", "1", $GUI_CHECKED))
	GUICtrlSetState($Checkbox1, IniRead("bot-save.ini", "checkbox", "1", $GUI_CHECKED))
	GUICtrlSetState($Checkbox2, IniRead("bot-save.ini", "checkbox", "2", $GUI_CHECKED))
	GUICtrlSetState($Checkbox3, IniRead("bot-save.ini", "checkbox", "3", $GUI_UNCHECKED))
	GUICtrlSetState($Checkbox4, IniRead("bot-save.ini", "checkbox", "4", $GUI_UNCHECKED))
	GUICtrlSetState($Checkbox5, IniRead("bot-save.ini", "checkbox", "5", $GUI_UNCHECKED))
	GUICtrlSetState($Checkbox6, IniRead("bot-save.ini", "checkbox", "6", $GUI_UNCHECKED))
	GUICtrlSetState($Checkbox7, IniRead("bot-save.ini", "checkbox", "7", $GUI_UNCHECKED))
	GUICtrlSetData($Input1, IniRead("bot-save.ini", "input", "1", ""))
	GUICtrlSetData($Input2, IniRead("bot-save.ini", "input", "2", "password"))
	GUICtrlSetData($Input3, IniRead("bot-save.ini", "input", "3", "C:\Programme\GUILD WARS\Gw.exe"))
	GUICtrlSetData($Input4, IniRead("bot-save.ini", "input", "4", "14"))
	GUICtrlSetData($Input5, IniRead("bot-save.ini", "input", "5", "20000"))
	GUICtrlSetData($Input6, IniRead("bot-save.ini", "input", "6", "12000"))
	GUICtrlSetData($Input7, IniRead("bot-save.ini", "input", "7", "/dance"))
	GUICtrlSetData($Input8, IniRead("bot-save.ini", "input", "8", "/laugh"))
	GUICtrlSetData($Input9, IniRead("bot-save.ini", "input", "9", "/sit"))
	GUICtrlSetData($Input10, IniRead("bot-save.ini", "input", "10", "777, 64"))
	GUICtrlSetData($Input11, IniRead("bot-save.ini", "input", "11", "897, 86"))
	GUICtrlSetData($Input12, IniRead("bot-save.ini", "input", "12", "797, 711"))
	GUICtrlSetData($Input13, IniRead("bot-save.ini", "input", "13", "585, 57"))
	GUICtrlSetData($Input14, IniRead("bot-save.ini", "input", "14", "512, 413"))
	GUICtrlSetData($Input15, IniRead("bot-save.ini", "input", "15", "816, 431"))
	GUICtrlSetData($Input16, IniRead("bot-save.ini", "input", "16", "754, 431"))
	GUICtrlSetData($Input17, IniRead("bot-save.ini", "input", "17", "110000"))	
EndFunc;->laden

func _speichern()
	IniWrite("bot-save.ini", "input", "1", GUICtrlRead($Input1))
	IniWrite("bot-save.ini", "input", "2", GUICtrlRead($Input2))
	IniWrite("bot-save.ini", "input", "3", GUICtrlRead($Input3))
	IniWrite("bot-save.ini", "input", "4", GUICtrlRead($Input4))
	IniWrite("bot-save.ini", "input", "5", GUICtrlRead($Input5))
	IniWrite("bot-save.ini", "input", "6", GUICtrlRead($Input6))
	IniWrite("bot-save.ini", "input", "7", GUICtrlRead($Input7))
	IniWrite("bot-save.ini", "input", "8", GUICtrlRead($Input8))
	IniWrite("bot-save.ini", "input", "9", GUICtrlRead($Input9))
	IniWrite("bot-save.ini", "input", "10", GUICtrlRead($Input10))
	IniWrite("bot-save.ini", "input", "11", GUICtrlRead($Input11))
	IniWrite("bot-save.ini", "input", "12", GUICtrlRead($Input12))
	IniWrite("bot-save.ini", "input", "13", GUICtrlRead($Input13))
	IniWrite("bot-save.ini", "input", "14", GUICtrlRead($Input14))
	IniWrite("bot-save.ini", "input", "15", GUICtrlRead($Input15))
	IniWrite("bot-save.ini", "input", "16", GUICtrlRead($Input16))
	IniWrite("bot-save.ini", "input", "17", GUICtrlRead($Input17))
	IniWrite("bot-save.ini", "radio", "1", GUICtrlRead($Radio1))
	IniWrite("bot-save.ini", "checkbox", "1", GUICtrlRead($Checkbox1))
	IniWrite("bot-save.ini", "checkbox", "2", GUICtrlRead($Checkbox2))
	IniWrite("bot-save.ini", "checkbox", "3", GUICtrlRead($Checkbox3))
	IniWrite("bot-save.ini", "checkbox", "4", GUICtrlRead($Checkbox4))
	IniWrite("bot-save.ini", "checkbox", "5", GUICtrlRead($Checkbox5))
	IniWrite("bot-save.ini", "checkbox", "6", GUICtrlRead($Checkbox6))
	IniWrite("bot-save.ini", "checkbox", "7", GUICtrlRead($Checkbox7))
EndFunc;->speichern

func _skillcode()
	InputBox("SkillCode", "Skillcode für Thermalquellen von Bergen im Hardmode"&@CRLF&"55 Lebenspunkte Mönch", "OwAU0K3+S4F1DkGMl/DgiUeA")
EndFunc;->skillcode

func _objeckt()
	Run(@ScriptDir & "\ObjectMapper\ObjectMapper.exe")
EndFunc;->objecktmapper

func _tradeTool()
	Run(@ScriptDir & "\GW-TradeTool.exe")
EndFunc;->tradetool

func _gwgraka()
	MsgBox(0, "GuildWars Interface Grafik", "Auflösung ->  1024x768"&@CRLF&"Interface Größe ->  Größer"&@CRLF&"Interface Einstellung -> Standart")
EndFunc;->grafikInfo

Func _random_verkaufen()
If Random(1, 2, 1) = 1 Then
	_verkaufWeg1()
Else
	_verkaufWeg2()
EndIf
EndFunc   ;==>_sellTQ_rand

Func _random_zumKampf()
If Random(1, 2, 1) = 1 Then
	_wegKampf1()
Else
	_wegKampf2()
EndIf
EndFunc   ;==>_wayRand

Func _random_Distrikt()
If Random(1, 2, 1) = 1 Then
	_Ami()
Else
	_Asia()
EndIf
EndFunc   ;==>_disRand

Func RandomSleep($MIN, $MAX)
	Sleep(Random($MIN, $MAX))
EndFunc   ;==>RandomSleep

Func _Ami()
	MouseClick("left", 310, 24)
	RandomSleep(600, 800)
	MouseClick("left", 137, 100)
	RandomSleep(600, 800)
	MouseClick("left", 355, 358)
	RandomSleep(600, 800)
	MouseClick("left", 357, 384)
	RandomSleep(600, 800)
	MouseClick("left", 466, 402)
	RandomSleep(600, 800)
	Send("j")
EndFunc   ;==>_disAmi

Func _Asia()
	MouseClick("left", 310, 24)
	RandomSleep(600, 800)
	MouseClick("left", 112, 105)
	RandomSleep(600, 800)
	MouseClick("left", 385, 348)
	RandomSleep(600, 800)
	MouseClick("left", 373, 423)
	RandomSleep(600, 800)
	MouseClick("left", 514, 397)
	RandomSleep(600, 800)
	Send("j")
EndFunc   ;==>_disAsia

Func _Inter()
	MouseClick("left", 310, 24)
	RandomSleep(500, 600)
	MouseClick("left", 209, 105)
	RandomSleep(500, 600)
	MouseClick("left", 329, 355)
	RandomSleep(500, 600)
	MouseClick("left", 332, 435)
	RandomSleep(500, 600)
	MouseClick("left", 561, 397)
	Send("j")
EndFunc   ;==>_disInter

Func _verkaufen()
	MouseClick("left", $xyoben[1], $xyoben[2])
	RandomSleep(1000, 1100)
	For $iii = 1 To 20
		MouseClick("left", $xyunten[1], $xyunten[2])
		RandomSleep(800, 1000)
	Next
	RandomSleep(800, 1000)
	Send("{ESC}")
	RandomSleep(800, 1000)
EndFunc   ;==>_sellALG

Func _verkaufWeg1()
	Send("{a down}")
	RandomSleep(1000, 1100)
	Send("{a up}")
	RandomSleep(2000, 2100)
	Send("{w down}")
	RandomSleep(3700, 3950)
	Send("{d down}")
	RandomSleep(1100, 1200)
	Send("{d up}")
	RandomSleep(1300, 1500)
	Send("{w up}")
	RandomSleep(1, 2)
	Send("{NUMPAD1}")
	RandomSleep(1, 2)
	Send("{SPACE}")
	RandomSleep(7000, 8000)
EndFunc   ;==>_sellTQ1

Func _verkaufWeg2()
	Send("{a down}")
	RandomSleep(700, 800)
	Send("{a up}")
	RandomSleep(2000, 2100)
	Send("{w down}")
	RandomSleep(2700, 2900)
	Send("{w up}")
	RandomSleep(1, 2)
	Send("{NUMPAD1}")
	RandomSleep(1, 2)
	Send("{SPACE}")
	RandomSleep(7000, 8000)
EndFunc   ;==>_sellTQ3

Func _goldItems()
	$pixCordgold = PixelSearch(1, 1, 805, 346, 0xffcc55, 1, 2)
	If Not @error Then MouseDown("left")
EndFunc   ;==>_goldItems

Func _giveup()
	Send("{ENTER}")
	RandomSleep(1150, 1200)
	Send("/giveup", 1)
	RandomSleep(1150, 1200)
	Send("{ENTER}")
	RandomSleep(3500, 3700)
	MouseClick("left", $xygiveup[1], $xygiveup[2])
EndFunc   ;==>_giveup

Func _hardmode()
		RandomSleep(750, 1350)
		MouseClick("left", $hardxy[1], $hardxy[2])
		RandomSleep(750, 1350)
EndFunc   ;==>_hardmode

Func _wegKampf1()
	Send("{NUMPAD8}")
	RandomSleep(1000, 1200)
	Send("{SPACE}")
	RandomSleep(9000, 9100)
	Send("{w down}")
	RandomSleep(2300, 2310)
	Send("{d down}")
	RandomSleep(880, 910)
	Send("{d up}")
	RandomSleep(4000, 4030)
	Send("{w up}")
EndFunc   ;==>_tqwayto1

Func _wegKampf2()
	Send("{w down}")
	Sleep(4000)
	Send("{w up}")
	Send("{NUMPAD8}")
	Send("{SPACE}")
	RandomSleep(5000, 5100)
	Send("{w down}")
	RandomSleep(2200, 2410)
	Send("{e down}")
	RandomSleep(300, 500)
	Send("{e up}")
	Send("{d down}")
	RandomSleep(680, 710)
	Send("{d up}")
	RandomSleep(4000, 4030)
	Send("{w up}")
EndFunc   ;==>_tqwayto2

Func _TQfigth()
	Send("8")
	RandomSleep(6500, 7000)
	Send("7")
	RandomSleep(6500, 7000)
	Send("6")
	RandomSleep(6500, 7000)
	Send("5")
	RandomSleep(3000, 3500)
	Send("4")
	RandomSleep(12000, 13000)
	Send("1")
	RandomSleep(700, 800)
	Send("4")
	RandomSleep(2500, 2510)
	Send("{w down}")
	RandomSleep(3000, 3010)
	Send("{w up}")
	RandomSleep(1000, 1010)
	Send("{e down}")
	RandomSleep(2000, 2010)
	Send("{e up}")
	RandomSleep(500, 510)
	Send("1")
	RandomSleep(700, 710)
	Send("2")
	RandomSleep(1200, 1300)
	Send("{w down}")
	RandomSleep(6700, 6750)
	Send("{w up}")
	RandomSleep(90, 100)
	Send("2")
	RandomSleep(1000, 1100)
	Send("{q down}")
	RandomSleep(2600, 2700)
	Send("{q up}")
	RandomSleep(100, 110)
	Send("1")
	RandomSleep(600, 700)
	Send("{q down}")
	RandomSleep(2600, 2700)
	Send("{q up}")
	RandomSleep(200, 400)
	Send("2")
	RandomSleep(1500, 1600)
	Send("4")
	RandomSleep(2000, 2010)
	Send("1")
	RandomSleep(2000, 2010)
	Send("3")
	RandomSleep(3000, 3100)
	Send("2")
	RandomSleep(3000, 3100)
	Send("1")
	RandomSleep(3000, 3100)
	Send("2")
	RandomSleep(3000, 3100)
	Send("1")
	RandomSleep(1500, 1600)
	Send("4")
	RandomSleep(3000, 3100)
	Send("2")
	RandomSleep(3000, 3100)
	Send("1")
	RandomSleep(3000, 3100)
EndFunc   ;==>_TQfigth

Func _lootTQ()
	For $ii = 1 To 5
		RandomSleep(1100, 1200)
		Send("{NUMPAD8}")
		RandomSleep(1100, 1200)
		Send("{SPACE}")
		RandomSleep(3200, 3300)
	Next
	Send("1")
	RandomSleep(2000, 2010)
	Send("2")
	RandomSleep(1400, 1500)
	Send("{NUMPAD8}")
	RandomSleep(1100, 1200)
	Send("{SPACE}")
	RandomSleep(3500, 3800)
EndFunc   ;==>_lootTQ

Func _ident()
	Send("{NUMPAD6}")
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook1, 2)
	RandomSleep(800, 900)	
	MouseClick("left", 50, 109);slot1
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook2, 2)
	RandomSleep(800, 900)
	MouseClick("left", 100, 109);slot2
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook3, 2)
	RandomSleep(800, 900)
	MouseClick("left", 150, 109);slot3
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook3, 2)
	RandomSleep(800, 900)
	MouseClick("left", 200, 109);slot4
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook2, 2)
	RandomSleep(800, 900)
	MouseClick("left", 250, 109);slot5
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook1, 2)
	RandomSleep(800, 900)
	MouseClick("left", 50, 175);slot6
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook1, 2)
	RandomSleep(800, 900)
	MouseClick("left", 100, 175);slot7
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook2, 2)
	RandomSleep(800, 900)
	MouseClick("left", 150, 175);slot8
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook3, 2)
	RandomSleep(800, 900)
	MouseClick("left", 200, 175);slot9
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook3, 2)
	RandomSleep(800, 900)
	MouseClick("left", 250, 175);slot10
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook2, 2)
	RandomSleep(800, 900)
	MouseClick("left", 50, 242);slot11
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook1, 2)
	RandomSleep(800, 900)
	MouseClick("left", 100, 242);slot12
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook1, 2)
	RandomSleep(800, 900)
	MouseClick("left", 150, 242);slot13
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook2, 2)
	RandomSleep(800, 900)
	MouseClick("left", 200, 242);slot14
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook3, 2)
	RandomSleep(800, 900)
	MouseClick("left", 250, 242);slot15
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook3, 2)
	RandomSleep(800, 900)
	MouseClick("left", 50, 306);slot16
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook2, 2)
	RandomSleep(800, 900)
	MouseClick("left", 50, 306);slot17
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook1, 2)
	RandomSleep(800, 900)
	MouseClick("left", 100, 306);slot18
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook1, 2)
	RandomSleep(800, 900)
	MouseClick("left", 150, 306);slot19
	RandomSleep(1000, 1100)
	MouseClick("left", $xybook2, 2)
	RandomSleep(800, 900)
	MouseClick("left", 200, 306);slot20
	RandomSleep(1000, 1100)
	Send("{ESC}")
	RandomSleep(1000, 1100)
EndFunc   ;==>_ident

Func _storage()
	Send("{a down}")
	RandomSleep(1600, 1650)
	Send("{a up}")
	Send("{w down}")
	RandomSleep(3500, 3600)
	Send("{w up}")
	Send("{NUMPAD1}")
	Send("{SPACE}")
	RandomSleep(1800, 1900)
	Send("{NUMPAD6}")
	RandomSleep(500, 575)
	MouseMove(50, 109)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe1[1], $xytruhe1[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(100, 109)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe1[1], $xytruhe1[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(159, 109)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe1[1], $xytruhe1[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(215, 109)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe2[1], $xytruhe2[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(268, 109)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe2[1], $xytruhe2[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(50, 175)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe2[1], $xytruhe2[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(100, 175)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe2[1], $xytruhe2[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(159, 175)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe1[1], $xytruhe1[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(215, 175)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe2[1], $xytruhe2[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(268, 175)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe1[1], $xytruhe1[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(50, 242)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe2[1], $xytruhe2[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(100, 242)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe2[1], $xytruhe2[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(159, 242)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe1[1], $xytruhe1[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(215, 242)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe2[1], $xytruhe2[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(268, 242)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe1[1], $xytruhe1[2])
	MouseUp("left")
	;----Reihe 4------;
	RandomSleep(500, 575)
	MouseMove(50, 306)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe2[1], $xytruhe2[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(100, 306)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe1[1], $xytruhe1[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(159, 306)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe1[1], $xytruhe1[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(215, 306)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe1[1], $xytruhe1[2])
	MouseUp("left")
	RandomSleep(500, 575)
	MouseMove(268, 306)
	RandomSleep(500, 575)
	_goldItems()
	RandomSleep(500, 575)
	MouseMove($xytruhe2[1], $xytruhe2[2])
	MouseUp("left")
	RandomSleep(1800, 1900)
	Send("{ESC}")
	RandomSleep(1800, 1900)
	Send("{ESC}")
EndFunc   ;==>_storage

Func _breakGH()
	Send("{NUMPAD2}")
	RandomSleep(1000, 1400)
	MouseClick("left", $xyghall[1], $xyghall[2])
	Sleep($laden)
	Send("{ESC}")
	RandomSleep(1000, 1400)
	Send("{w down}")
	RandomSleep(2400, 2900)
	Send("{a down}")
	RandomSleep(1200, 1300)
	Send("{a up}")
	RandomSleep(100, 600)
	Send("{w up}")
	Sleep($pause)
	Send("{NUMPAD2}")
	RandomSleep(1000, 1400)
	MouseClick("left", $xyghall[1], $xyghall[2])
	Sleep($laden)
	Send("{ESC}")
EndFunc   ;==>_breakGH

Func _breakGH2()
	Send("{NUMPAD2}")
	RandomSleep(1000, 1400)
	MouseClick("left", $xyghall[1], $xyghall[2])
	Sleep($laden)
	Send("{ESC}")
	RandomSleep(1000, 1400)
	Send("{w down}")
	RandomSleep(2400, 2900)
	Send("{a down}")
	RandomSleep(1200, 1300)
	Send("{a up}")
	RandomSleep(100, 600)
	Send("{w up}")
	RandomSleep(1200, 1300)
	_emotion()
	Sleep($pause)
	Send("{NUMPAD2}")
	RandomSleep(1000, 1400)
	MouseClick("left", $xyghall[1], $xyghall[2])
	Sleep($laden)
	Send("{ESC}")
EndFunc   ;==>_breakGH2

Func _breakLA()
	Send("{NUMPAD5}")
	RandomSleep(1000, 1400)
	MouseClick("left", 0, 767)
	RandomSleep(1000, 1400)
	MouseClick("left", 507, 386)
	RandomSleep(1000, 1400)
	MouseClick("left", 410, 499, 2)
	Sleep($laden)
	Send("{ENTER}")
	RandomSleep(500, 700)
	Send("WTS: Globes of Ektoplasm for 5,3k / each || wisp me ||  na = nt (no answer = no thx ||", 1)
	RandomSleep(1500, 1600)
	Send("{ENTER}")
	Sleep($pause)
EndFunc   ;==>_breakLA

Func _breakLA2()
	Send("{NUMPAD5}")
	RandomSleep(1000, 1400)
	MouseClick("left", 0, 767)
	RandomSleep(1000, 1400)
	MouseClick("left", 507, 386)
	RandomSleep(1000, 1400)
	MouseClick("left", 410, 499, 2)
	Sleep($laden)
	_emotion()
	Sleep($pause)
EndFunc   ;==>_breakLA2

func _sleeptimer()
	Sleep($laden)
EndFunc

Func _emotion()
	Send("{ENTER}")
	RandomSleep(1400, 1500)
	Send($emo1, 1)
	RandomSleep(1400, 1500)
	Send("{ENTER}")
	Sleep($pause)
	Send("{ENTER}")
	RandomSleep(1400, 1500)
	Send($emo2, 1)
	RandomSleep(1400, 1500)
	Send("{ENTER}")
	Sleep($pause)
	Send("{ENTER}")
	RandomSleep(1400, 1500)
	Send($emo3, 1)
	RandomSleep(1400, 1500)
	Send("{ENTER}")
	Sleep($pause)
	Send("{ENTER}")
	RandomSleep(1400, 1500)
	Send($emo1, 1)
	RandomSleep(1400, 1500)
	Send("{ENTER}")
	Sleep($pause)
EndFunc   ;==>_emotion

Func _autologin()
		MouseClick("left",226, 318)
		RandomSleep(2000, 2500)
		Send($email, 1)
		RandomSleep(2000, 2500)
		MouseClick("left", 144, 383)
		RandomSleep(2000, 2500)
		Send($pass, 1)
		RandomSleep(2000, 2500)
		MouseClick("left", 377, 385)
		RandomSleep(3000, 5500)
		MouseClick("left", 609, 740)
EndFunc

func _start()
	If $exist = 0 Then
		Run($exe)
		Sleep($login)
	Else
		WinActivate("Guild Wars")
		Sleep($login)
	EndIf

	$STATE = GUICtrlRead($Radio1)
	If $STATE = 1 Then
		$farm = True
	Else
		$farm = False
	EndIf
	
	$STATE = GUICtrlRead($Checkbox1)
	If $STATE = 1 Then
		$mode = True
	Else
		$mode = False
	EndIf
	
	$STATE = GUICtrlRead($Checkbox2)
	If $STATE = 1 Then
		$sellident = True
	Else
		$sellident = False
	EndIf
	
	$STATE = GUICtrlRead($Checkbox3)
	If $STATE = 1 Then
		$gold = True
	Else
		$gold = False
	EndIf
	
	$STATE = GUICtrlRead($Checkbox4)
	If $STATE = 1 Then
		$pGH = True
	Else
		$pGH = False
	EndIf

	$STATE = GUICtrlRead($Checkbox5)
	If $STATE = 1 Then
		$pLA = True
	Else
		$pLA = False
	EndIf
	
	$STATE = GUICtrlRead($Checkbox6)
	If $STATE = 1 Then
		$pEmo = True
	Else
		$pEmo = False
	EndIf

	$STATE = GUICtrlRead($Checkbox7)
	If $STATE = 1 Then
		$alogin = True
	Else
		$alogin = False
	EndIf
	
	Select		
		case $alogin = true
			_autologin()
			_sleeptimer()
			
		
		case $mode = True
			_hardmode()
			
		While 1
			For $i = 1 to $runden
				_random_zumKampf()
				_sleeptimer()
				_TQfigth()
				_lootTQ()
				_giveup()
				_sleeptimer()
			Next
			
			Select
				Case $gold = True and $sellident = False
					_storage()
					_inter()
					_sleeptimer()
					_random_Distrikt()
					_sleeptimer()
					
				Case $gold and $sellident = True
					_storage()
					_ident()
					_inter()
					_sleeptimer()
					_random_verkaufen()
					_verkaufen()
					randomSleep(1000, 2000)
					_random_Distrikt()
					_sleeptimer()
					
				Case $gold = False and $sellident = True
					_ident()
					_inter()
					_sleeptimer()
					_random_verkaufen()
					_verkaufen()
					randomSleep(1000, 2000)
					_random_Distrikt()
					_sleeptimer()
					
				Case $pGH and $pemo = True
					_breakGH2()
					_sleeptimer()
				
				Case $pGH = True and $pemo = False
					_breakGH()
					_sleeptimer()
					
				Case $pgh = False and $pemo = True
					_emotion()
					_sleeptimer()
				
				Case $pLA and $pemo = True
					_breakLA2()
					_sleeptimer()
				
				Case $pLA = True and $pemo = False
					_breakLA()
					_sleeptimer()
					
				Case $pgh = False and $pemo = True
					_emotion()
					_sleeptimer()
				
				Case $pgh and $pla = False and $pemo = True
					_emotion()
					_sleeptimer()
			EndSelect
		WEnd
EndSelect
EndFunc

lox.0r · 10/20/2008, 23:30

Ich würde trotzdem allen die AutoLogin benutzt haben empfehlen das PW zu ändern. Man kann ja nie wissen.^^

spookycloud · 11/04/2008, 14:19

Quote:

Originally Posted by kknb

viel spass damit, ist von mir nicht getestet usw....

Diese Bot arbeitet er lief für 6 Stunden das Problem ist, dass es dem Händler die Beute es geht an die Waffe Händler und einfach aufhört.
Was ist falsch?

spookycloud · 11/05/2008, 04:06

Bitte seien Sie vorsichtig mit diesem Bot als mein Konto ist jetzt noch verboten, und ich nur den Bot für 10 Stunden.