Ich hoffe ihr arbeitet alle kräftig mit an den Bot weiter. Vielleicht setzt sich jemand hin und schreibt mehr Wayouts.
Die Helden Builds sind optional, aber für diejenigen die keine Ahnung von Skills haben poste ich hier mein Build.
2 Ele-Helden : OgBCoMzDuAZMWnF0NcWTzIC
und ein
Mesmer : OQZCAsyDwwXgzKiEDyKyAXA
für den Flächen Dmg.
Dein Build : OwIT0Uoi356EX/IAAAAAAAAAAA
Gruppe heilen ist optional
Gruppenfenster und Minimap komplett über das Fenster gezogen
/resign einmal vorher in den Chat schreiben bevor ihr startet.
Tastenbelegung:
U - Minimap öffnen
Numpad[+] - Gruppe befehligen
R - Automatisch laufen
Code:
#include <GUIConstants.au3>
#include "tt6.au3"
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $Hwnd = WinGetHandle($Client)
Global $CurrentPosX, $CurrentPosY, $PID, $hprocess, $Map, $Paused
HotKeySet("{Pause}", "TogglePause")
Global $memoryx = IniRead("update.ini", "SECTION D", "POSX", "0")
Global $memoryy = IniRead("update.ini", "SECTION D", "POSY", "0")
Global $CheckMap = IniRead("update.ini", "SECTION D", "CHECK_MAP", "0")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("The NEW Generation: Brauer Academy", 421, 212, 207, 181, -1, $WS_EX_ACCEPTFILES)
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Start", 208, 144, 83, 25, 0)
$Button2 = GUICtrlCreateButton("Cancel", 304, 176, 83, 25, 0)
$Button3 = GUICtrlCreateButton("Customize", 208, 176, 83, 25, 0)
$Edit1 = GUICtrlCreateEdit("", 8, 32, 177, 137, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $ES_NUMBER, $WS_VSCROLL))
GUICtrlSetData(-1, "Edit1")
GUICtrlSetBkColor(-1, 0xFFFBF0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("What makes the bot in the moment?", 8, 8, 175, 17)
$Input1 = GUICtrlCreateInput("www.elitepvpers.com/forum/guild-wars", 8, 176, 177, 21)
$Button4 = GUICtrlCreateButton("Save", 304, 144, 83, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput("If you want to raise the alliance, put your name in and save", 208, 120, 177, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Group1 = GUICtrlCreateGroup("Faction", 208, 48, 177, 65)
$Radio1 = GUICtrlCreateRadio("Passage Scrolls", 216, 64, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Raise Alliance", 216, 88, 113, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Radio3 = GUICtrlCreateRadio("1280*1024 Screen", 216, 8, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio4 = GUICtrlCreateRadio("1024*768 Screen", 216, 32, 113, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
start()
Case $Button2
exitbot()
Case $Button3
anpassen()
Case $Button4
save()
EndSwitch
WEnd
Func travelhzh()
ControlSend($Hwnd, "", "", "m")
Sleep(2000)
ControlClick($Hwnd, "", "", "LEFT", 1, 614, 404)
Sleep(2000)
ControlClick($Hwnd, "", "", "LEFT", 1, 589, 430)
Sleep(2000)
ControlClick($Hwnd, "", "", "LEFT", 1, 452, 378)
Sleep(1000)
ControlSend($Hwnd, "", "", "{space}")
EndFunc ;==>travelhzh
Func travelback()
ControlSend($Hwnd, "", "", "m")
Sleep(2000)
ControlClick($Hwnd, "", "", "LEFT", 1, 614, 404)
Sleep(1000)
ControlClick($Hwnd, "", "", "LEFT", 1, 624, 512)
Sleep(1000)
ControlClick($Hwnd, "", "", "LEFT", 1, 586, 425)
Sleep(1000)
ControlSend($Hwnd, "", "", "{space}")
EndFunc ;==>travelback
Func anpassen()
If GUICtrlRead($Radio3) = $GUI_CHECKED Then
ControlMove("Guild Wars", "", "", 0, 0, 1024, 768)
ElseIf GUICtrlRead($Radio4) = $GUI_CHECKED Then
ControlMove("Guild Wars", "", "", 0, 0, 800, 600)
Else
MsgBox(0, "Screen", "Please select your screen")
EndIf
EndFunc ;==>anpassen
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 ;==>TogglePause
Func exitbot()
Exit
EndFunc ;==>exitbot
Func LogWrite($Message)
$TimeStamp = "[ " & @MON & "." & @MDAY & "." & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " ] "
GUICtrlSetData($Logfile, $TimeStamp & $Message & @CRLF, True)
EndFunc ;==>LogWrite
Func getnpc()
ControlSend($Hwnd, "", "", "{p}")
Sleep(1000)
ControlClick($Hwnd, "", "", "LEFT", 2, 272, 132)
Sleep(800)
ControlClick($Hwnd, "", "", "LEFT", 2, 185, 170)
Sleep(800)
ControlClick($Hwnd, "", "", "LEFT", 2, 163, 275)
Sleep(800)
ControlClick($Hwnd, "", "", "LEFT", 2, 152, 375)
Sleep(800)
ControlClick($Hwnd, "", "", "LEFT", 2, 204, 425)
Sleep(1000)
ControlSend($Hwnd, "", "", "{esc}")
EndFunc ;==>getnpc
Func questen()
PrepMoveTo()
MoveTo(1, 15347.638671875 + (Random(-5, 5)), 7027.5458984375 + (Random(-5, 5)))
MoveTo(1, 15234.2880859375 + (Random(-5, 5)), 7841.53955078125 + (Random(-5, 5)))
MoveTo(1, 15173.173828125 + (Random(-5, 5)), 8624.72265625 + (Random(-5, 5)))
MoveTo(1, 15135.8583984375 + (Random(-5, 5)), 9182.767578125 + (Random(-5, 5)))
MoveTo(1, 15106.974609375 + (Random(-5, 5)), 9633.2275390625 + (Random(-5, 5)))
MoveTo(1, 15093.123046875 + (Random(-5, 5)), 9658.3662109375 + (Random(-5, 5)))
StopMoveTo()
ControlClick($Hwnd, "", "", "Right", 1, 490, 460)
Sleep(500)
ControlSend($Hwnd, "", "", "{space}")
Sleep(1000)
ControlClick($Hwnd, "", "", "LEFT", 1, 490, 495)
Sleep(2000)
ControlClick($Hwnd, "", "", "Right", 1, 490, 460)
Sleep(400)
PrepMoveTo()
MoveTo(1, 14899.0400390625 + (Random(-5, 5)), 9796.6513671875 + (Random(-5, 5)))
MoveTo(1, 14465.7900390625 + (Random(-5, 5)), 10145.810546875 + (Random(-5, 5)))
MoveTo(1, 13990.623046875 + (Random(-5, 5)), 10528.7548828125 + (Random(-5, 5)))
MoveTo(1, 13582.0888671875 + (Random(-5, 5)), 10844.0458984375 + (Random(-5, 5)))
MoveTo(1, 13247.701171875 + (Random(-5, 5)), 11066.990234375 + (Random(-5, 5)))
MoveTo(1, 13024.189453125 + (Random(-5, 5)), 11215.0107421875 + (Random(-5, 5)))
MoveTo(1, 12805.587890625 + (Random(-5, 5)), 11313.5087890625 + (Random(-5, 5)))
MoveTo(1, 12472.0546875 + (Random(-5, 5)), 11349.5673828125 + (Random(-5, 5)))
MoveTo(1, 11964.5439453125 + (Random(-5, 5)), 11341.18359375 + (Random(-5, 5)))
MoveTo(1, 11607.642578125 + (Random(-5, 5)), 11354.482421875 + (Random(-5, 5)))
MoveTo(1, 11170.4404296875 + (Random(-5, 5)), 11403.873046875 + (Random(-5, 5)))
MoveTo(1, 10846.0625 + (Random(-5, 5)), 11481.5029296875 + (Random(-5, 5)))
MoveTo(1, 10586.01953125 + (Random(-5, 5)), 11667.42578125 + (Random(-5, 5)))
MoveTo(1, 10355.306640625 + (Random(-5, 5)), 11974.978515625 + (Random(-5, 5)))
MoveTo(1, 10192.9169921875 + (Random(-5, 5)), 12263.1591796875 + (Random(-5, 5)))
MoveTo(1, 9983.16015625 + (Random(-5, 5)), 12684.6943359375 + (Random(-5, 5)))
MoveTo(1, 9799.5810546875 + (Random(-5, 5)), 13079.400390625 + (Random(-5, 5)))
MoveTo(1, 9644.0654296875 + (Random(-5, 5)), 13395.0517578125 + (Random(-5, 5)))
MoveTo(1, 9489.853515625 + (Random(-5, 5)), 13654.9921875 + (Random(-5, 5)))
MoveTo(1, 9293.1650390625 + (Random(-5, 5)), 13865.3046875 + (Random(-5, 5)))
MoveTo(1, 9067.4775390625 + (Random(-5, 5)), 14100.5244140625 + (Random(-5, 5)))
MoveTo(1, 8877.8740234375 + (Random(-5, 5)), 14305.2265625 + (Random(-5, 5)))
MoveTo(1, 8679.3369140625 + (Random(-5, 5)), 14527.3251953125 + (Random(-5, 5)))
MoveTo(1, 8565.0712890625 + (Random(-5, 5)), 14685.8173828125 + (Random(-5, 5)))
MoveTo(1, 8457.7509765625 + (Random(-5, 5)), 14897.45703125 + (Random(-5, 5)))
MoveTo(1, 8366.01171875 + (Random(-5, 5)), 15161.2626953125 + (Random(-5, 5)))
MoveTo(1, 8315.4638671875 + (Random(-5, 5)), 15385.2119140625 + (Random(-5, 5)))
MoveTo(1, 8278.5703125 + (Random(-5, 5)), 15627.1787109375 + (Random(-5, 5)))
MoveTo(1, 8336.255859375 + (Random(-5, 5)), 15874.7431640625 + (Random(-5, 5)))
MoveTo(1, 8443.6474609375 + (Random(-5, 5)), 16101.69140625 + (Random(-5, 5)))
MoveTo(1, 9117.2939453125 + (Random(-5, 5)), 16687.482421875 + (Random(-5, 5)))
StopMoveTo()
ControlSend($Hwnd, "", "", "1")
Sleep(3000)
ControlSend($Hwnd, "", "", "u")
Sleep(1000)
ControlSend($Hwnd, "", "", "{Numpadadd}")
Sleep(1000)
ControlClick($Hwnd, "", "", "left", 1, 498, 368)
Sleep(1000)
ControlSend($Hwnd, "", "", "u")
Sleep(1000)
ControlClick($Hwnd, "", "", "Right", 1, 490, 460)
Sleep(4000)
ControlSend($Hwnd, "", "", "{2}")
Sleep(1000)
ControlSend($Hwnd, "", "", "{3}")
Sleep(5000)
ControlSend($Hwnd, "", "", "{3}")
Sleep(5000)
ControlSend($Hwnd, "", "", "{3}")
Sleep(45000)
ControlClick($Hwnd, "", "", "right", 1, 618, 612)
Sleep(1000)
PrepMoveTo()
MoveTo(1, 9003.3076171875 + (Random(-5, 5)), 16591.640625 + (Random(-5, 5)))
MoveTo(1, 8508.3720703125 + (Random(-5, 5)), 16102.4091796875 + (Random(-5, 5)))
MoveTo(1, 7944.197265625 + (Random(-5, 5)), 15897.43359375 + (Random(-5, 5)))
MoveTo(1, 7487.6533203125 + (Random(-5, 5)), 15942.7099609375 + (Random(-5, 5)))
MoveTo(1, 7096.326171875 + (Random(-5, 5)), 16118.0185546875 + (Random(-5, 5)))
MoveTo(1, 6858.06494140625 + (Random(-5, 5)), 16233.4501953125 + (Random(-5, 5)))
StopMoveTo()
ControlSend($Hwnd, "", "", "{space}")
Sleep(2000)
ControlClick($Hwnd, "", "", "left", 1, 483, 483)
Sleep(400)
ControlSend($Hwnd, "", "", "r")
Sleep(200)
ControlSend($Hwnd, "", "", "r")
EndFunc ;==>questen
Func _Check()
$PID = ProcessExists(WinGetProcess("Guild Wars"))
$hprocess = _MemoryOpen($PID)
$CurrentPosX = _MemoryRead($memoryx, $hprocess)
$CurrentPosY = _MemoryRead($memoryy, $hprocess)
$Map = _MemoryRead($CheckMap, $hprocess)
EndFunc ;==>_Check
Func _changedis()
ControlSend($Hwnd, "", "", "{g}")
Sleep(1000)
ControlClick($Hwnd, "", "", "LEFT", 1, 351, 61)
Sleep(15000)
Sleep(1000)
ControlClick($Hwnd, "", "", "LEFT", 1, 351, 61)
Sleep(15000)
ControlSend($Hwnd, "", "", "{g}")
EndFunc ;==>_changedis
Func wayout()
_Check()
Select
Case ($CurrentPosX <= 1182596319) And ($CurrentPosX >= 1182354478) And ($CurrentPosY <= 1162110744) And ($CurrentPosY >= 1160679162)
kaufmann(); Centre
Case ($CurrentPosX <= 1182927034) And ($CurrentPosX >= 1181057459) And ($CurrentPosY <= 1159248980) And ($CurrentPosY >= 1156208989)
sammler(); Spawn South
Case ($CurrentPosX <= 1181185199) And ($CurrentPosX >= 1180806142) And ($CurrentPosY <= 1163657663) And ($CurrentPosY >= 1161642322)
npc(); Spawn North
Case Else
_changedis()
getnpc()
wayout()
EndSelect
EndFunc ;==>wayout
Func sammler()
PrepMoveTo()
MoveTo(1, 15433.4375 + (Random(-5, 5)), 2347.06616210938 + (Random(-5, 5)))
MoveTo(1, 15600.3359375 + (Random(-5, 5)), 2724.662109375 + (Random(-5, 5)))
MoveTo(1, 15697.7451171875 + (Random(-5, 5)), 2996.7509765625 + (Random(-5, 5)))
MoveTo(1, 15710.8505859375 + (Random(-5, 5)), 3235.24096679688 + (Random(-5, 5)))
MoveTo(1, 15648.0791015625 + (Random(-5, 5)), 3394.89477539063 + (Random(-5, 5)))
MoveTo(1, 15492.2412109375 + (Random(-5, 5)), 3591.37133789063 + (Random(-5, 5)))
MoveTo(1, 15388.17578125 + (Random(-5, 5)), 3718.8017578125 + (Random(-5, 5)))
MoveTo(1, 15290.66796875 + (Random(-5, 5)), 3923.05737304688 + (Random(-5, 5)))
MoveTo(1, 15259.376953125 + (Random(-5, 5)), 4151.49560546875 + (Random(-5, 5)))
MoveTo(1, 15272.287109375 + (Random(-5, 5)), 4538.724609375 + (Random(-5, 5)))
MoveTo(1, 15292.0849609375 + (Random(-5, 5)), 4937.9345703125 + (Random(-5, 5)))
MoveTo(1, 15304.5556640625 + (Random(-5, 5)), 5305.697265625 + (Random(-5, 5)))
MoveTo(1, 15306.3046875 + (Random(-5, 5)), 5619.49462890625 + (Random(-5, 5)))
StopMoveTo()
ControlSend($Hwnd, "", "", "r")
EndFunc ;==>sammler
Func kaufmann()
PrepMoveTo()
MoveTo(1, 16032.07421875 + (Random(-5, 5)), 3060.05444335938 + (Random(-5, 5)))
MoveTo(1, 15739.9541015625 + (Random(-5, 5)), 3374.33374023438 + (Random(-5, 5)))
MoveTo(1, 15515.8349609375 + (Random(-5, 5)), 3617.58618164063 + (Random(-5, 5)))
MoveTo(1, 15400.2109375 + (Random(-5, 5)), 3753.12573242188 + (Random(-5, 5)))
MoveTo(1, 15331.337890625 + (Random(-5, 5)), 3887.86889648438 + (Random(-5, 5)))
MoveTo(1, 15303.2001953125 + (Random(-5, 5)), 4092.23779296875 + (Random(-5, 5)))
MoveTo(1, 15332.8330078125 + (Random(-5, 5)), 4432.26611328125 + (Random(-5, 5)))
MoveTo(1, 15350.1513671875 + (Random(-5, 5)), 4761.53076171875 + (Random(-5, 5)))
MoveTo(1, 15355.119140625 + (Random(-5, 5)), 5151.2490234375 + (Random(-5, 5)))
MoveTo(1, 15360.5859375 + (Random(-5, 5)), 5581.447265625 + (Random(-5, 5)))
StopMoveTo()
ControlSend($Hwnd, "", "", "r")
EndFunc ;==>kaufmann
Func npc()
PrepMoveTo()
MoveTo(1, 14745.1787109375 + (Random(-5, 5)), 3379.98999023438 + (Random(-5, 5)))
MoveTo(1, 14969.39453125 + (Random(-5, 5)), 3597.11987304688 + (Random(-5, 5)))
MoveTo(1, 15204.3935546875 + (Random(-5, 5)), 3950.55322265625 + (Random(-5, 5)))
MoveTo(1, 15312.1533203125 + (Random(-5, 5)), 4232.49951171875 + (Random(-5, 5)))
MoveTo(1, 15360.8603515625 + (Random(-5, 5)), 4651.05810546875 + (Random(-5, 5)))
MoveTo(1, 15372.0126953125 + (Random(-5, 5)), 5064.68505859375 + (Random(-5, 5)))
MoveTo(1, 15361.7607421875 + (Random(-5, 5)), 5400.0537109375 + (Random(-5, 5)))
MoveTo(1, 15354.712890625 + (Random(-5, 5)), 5629.9765625 + (Random(-5, 5)))
StopMoveTo()
ControlSend($Hwnd, "", "", "r")
EndFunc ;==>npc
Func start()
While 1
getnpc()
For $i = 1 To 27
wayout()
loading2()
questen()
giveup()
loading1()
Next
travelhzh()
Sleep(20000)
reward()
scrolls()
travelback()
Sleep(20000)
WEnd
EndFunc ;==>start
Func giveup()
ControlSend($Hwnd, "", "", "{enter}")
Sleep(1000)
ControlSend($Hwnd, "", "", "{up}")
Sleep(1000)
ControlSend($Hwnd, "", "", "{enter}")
Sleep(4000)
ControlClick($Hwnd, "", "", "LEFT", 1, 500, 400)
EndFunc ;==>giveup
Func loading1()
$T_INIT = TimerInit()
Do
Sleep(2000)
$T_DIFF = TimerDiff($T_INIT)
$PID = ProcessExists(WinGetProcess($Hwnd))
$hp1 = _MemoryOpen($PID)
$Map = _MemoryRead($memmap, $hp1)
Until ($Map = 0) Or ($T_DIFF > 30000)
If $T_DIFF > 30000 Then
_changedis()
getnpc()
wayout()
questen()
ElseIf $Map = 0 Then
Sleep(4000)
EndIf
EndFunc ;==>loading1
Func loading2()
$T_INIT = TimerInit()
Do
$T_DIFF = TimerDiff($T_INIT)
Sleep(2000)
$PID = ProcessExists(WinGetProcess($Hwnd))
$hp1 = _MemoryOpen($PID)
$Map = _MemoryRead($memmap, $hp1)
Until ($Map = 1) Or ($T_DIFF > 30000)
If $Map = 1 Then
Sleep(4000)
ElseIf $T_DIFF > 30000 Then
_changedis()
EndIf
EndFunc ;==>loading2
Func reward()
_Check()
Select
Case ($CurrentPosX <= 1171025358) And ($CurrentPosX >= 1170225358) And ($CurrentPosY <= 1161110744) And ($CurrentPosY >= 1159120802)
ferti(); Centre
Case ($CurrentPosX <= 1170108701) And ($CurrentPosX >= 1169397817) And ($CurrentPosY <= 1162475652) And ($CurrentPosY >= 1161209737)
zytka(); Spawn South
Case ($CurrentPosX <= 1169197817) And ($CurrentPosX >= 1168320285) And ($CurrentPosY <= 1164887663) And ($CurrentPosY >= 1161642322)
sammler1(); Spawn North
Case Else
reward()
EndSelect
EndFunc ;==>reward
Func ferti()
MoveTo(1, 5382, 1520)
Sleep(2000)
ControlSend($Hwnd, "", "", "{v}")
Sleep(400)
ControlSend($Hwnd, "", "", "{space}")
Sleep(2000)
EndFunc ;==>ferti
Func zytka();
MoveTo(1, 5369, 1541)
Sleep(2000)
ControlSend($Hwnd, "", "", "{v}")
Sleep(400)
ControlSend($Hwnd, "", "", "{space}")
Sleep(2000)
EndFunc ;==>zytka
Func sammler1()
MoveTo(1, 5365, 1525)
Sleep(2000)
ControlSend($Hwnd, "", "", "{v}")
Sleep(400)
ControlSend($Hwnd, "", "", "{space}")
Sleep(2000)
EndFunc ;==>sammler1
Func scrolls()
ControlClick($Hwnd, "", "", "LEFT", 1, 484, 397)
Sleep(1000)
ControlClick($Hwnd, "", "", "LEFT", 1, 467, 442)
Sleep(2000)
EndFunc ;==>scrolls







