Der Bot ist sehr einfach gehalten, sollte bei jedem laufen
NOCHMAL GROß GESCHRIEBEN: JADESTEINBRUCH..lesen FTW
Vor dem ersten Start müssen die x, y Koords vom Betreten Button geändert werden... E/: Indi Kann beim Bot starten gemacht werden
SPENDEN GEHT NUR FÜR LUXON!
Es ist KEINE Abgabe/Spende Funktion für de Fraktions / Balthasarpunkte enthalten! /E/: Indijetzt die der Luxon Punkte :P
Der Bot kann ca 5 Stunden (abhängig davon wie viele Punkte man maximal haben kann) durchlaufen, bis man manuell die Fraktionspunkte spenden muss... E/: Indi jetzt auch ohne eingreifen^^
hoffe ihr könnt was damit anfangen^^
mfg Deagles
Den Bot hat Deagles geschrieben und ich habe ihn um ein paar Sachen erweitert!
Also wenn ein Thx zu uns beiden^^
sollte etwas nicht laufen einfach bei ihm oder mir melden...
PHP Code:
; Standart Steuerung + "E" = Nächster Gegenstand, "NUM 1" = Ziel Löschen
; Skillcode : OQMT0w4SXpv8LAbq9nRCAAAA
;Includes
#include "tt6.au3"
#include <GUIConstants.au3>
; Variablen
$PID = WinGetProcess("Guild Wars")
$hprocess = _MemoryOpen($PID)
$NPC_Check = IniRead("update.ini","SECTION D","NPC_ID_SELECT","Not found") ; NPC ID (Auswahl)
$Map_Check = IniRead("update.ini","SECTION D","CHECK_MAP","Not found") ; 0=Stadt, 1=Instanz, 2=Laden
$Death_Check = IniRead("update.ini","SECTION 9-A","DEATH","Not found") ; 0=Leben, 1=Tot
Global $x
Global $y
Global $version = "Bot Gui"
$hWnd = WinGetHandle("Guild Wars")
; Script Exit
hotkeyset("{END}", "end")
HotKeySet("{PAUSE}", "TogglePause")
Func end()
Exit
EndFunc
GUICreate("Deagles_Farm_bot" , 318, 300, 496, 307)
$button1=guictrlCreateButton("START",8,8,300,50)
$button2=guictrlCreateButton("exit",200,250,113,40)
$button3=guictrlCreateButton("Hilfe",8,80,300,50)
$button4=guictrlCreateButton("Pause",8,150,300,50)
GuiSetState()
While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
If $msg=$button3 Then button3()
If $msg=$button4 Then button4()
Wend
func button1()
Global $x = Inputbox("Bot Gui"&$Version,"Gib hier ein die X Koordinaten des Betreten Buttons ein!","")
Global $y = Inputbox("Bot Gui"&$Version,"Gib hier ein die Y Koordinaten des Betreten Buttons ein!","")
Global $Runden = Inputbox("Bot Gui"&$Version,"Gib hier ein wie viele Runden er Laufen soll!","100")
Global $Name = Inputbox("Bot Gui"&$Version,"Gib hier deinen Charakternamen ein!","")
loop()
EndFunc
func button2()
Exit
EndFunc
func button3()
ShellExecute('http://www.elitepvpers.com/forum')
EndFunc
Func button4()
Call("TogglePause")
EndFunc
Func randomsleep($min, $max)
Sleep(Random($min, $max))
Endfunc
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip($client)
If Not WinActivate($client) Then
WinActivate($client)
EndIf
sleep(2000)
EndFunc
Func fix()
If _MemoryRead($Death_Check, $hprocess) = 1 Then
While _MemoryRead($Death_Check, $hprocess) <> 0
Sleep(100)
WEnd
randomsleep(1500, 1600)
KeySend("6")
randomsleep(2500, 2600)
Switch Random(1, 3, 1)
Case 1
KeySend("e")
randomsleep(100, 150)
KeySend("SPACE")
randomsleep(6500, 6600)
Case 2
KeySend("e")
randomsleep(100, 150)
KeySend("e")
randomsleep(100, 150)
KeySend("SPACE")
randomsleep(8500, 8600)
Case 3
KeySend("e")
randomsleep(100, 150)
KeySend("e")
randomsleep(100, 150)
KeySend("e")
randomsleep(100, 150)
KeySend("SPACE")
randomsleep(8500, 8600)
EndSwitch
KeySend("NUM1")
ElseIf _MemoryRead($NPC_Check, $hprocess) = 0 Then
KeySend("c")
randomsleep(200, 300)
KeySend("SPACE")
EndIf
EndFunc
Func battle()
While _MemoryRead($Map_Check, $hprocess) <> 0
KeySend("5")
randomsleep(9000, 10000)
If _MemoryRead($NPC_Check, $hprocess) <> 0 Then KeySend("1")
randomsleep(5000, 6000)
If _MemoryRead($NPC_Check, $hprocess) <> 0 Then KeySend("2")
randomsleep(3000, 4000)
KeySend("NUM1")
randomsleep(3000, 4000)
If _MemoryRead($NPC_Check, $hprocess) <> 0 Then KeySend("3")
randomsleep(4000, 5000)
If _MemoryRead($NPC_Check, $hprocess) <> 0 Then KeySend("4")
randomsleep(2000, 3000)
WEnd
EndFunc
Func loop()
If Not WinActive("Guild Wars","") Then
WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")
EndIf
While True
MouseSend("left", "click", $x, $y) ; ANPASSUNG: BETRETEN BUTTON
While _MemoryRead($Map_Check, $hprocess) <> 1
Sleep(500)
WEnd
randomsleep(5500, 5600)
KeySend("6")
randomsleep(2500, 2600)
KeySend("e")
randomsleep(100, 150)
KeySend("SPACE")
randomsleep(100, 150)
KeySend("NUM1")
randomsleep(50000, 50500)
AdlibEnable("fix", 1000)
battle()
AdlibDisable()
randomsleep(3000, 3500)
WEnd
EndFunc
Func GivePoints()
PrepMoveTo()
if CheckArea(4579, 10666) Then
MoveTo($hWnd,4517,11414)
MoveTo($hWnd,4041,12645)
MoveTo($hWnd,3748,13019)
MoveTo($hWnd,3492,13110)
ElseIf CheckArea(4991,12525) Then
MoveTo($hWnd,4183,12069)
MoveTo($hWnd,3667,11635)
MoveTo($hWnd,3323,10983)
MoveTo($hWnd,4132,10073)
MoveTo($hWnd,4517,11414)
MoveTo($hWnd,4041,12645)
MoveTo($hWnd,3748,13019)
MoveTo($hWnd,3492,13110)
ElseIf CheckArea(3215,12065)
MoveTo($hWnd,3205,11475)
MoveTo($hWnd,3456,10898)
MoveTo($hWnd,4248,10779)
MoveTo($hWnd,4517,11414)
MoveTo($hWnd,4041,12645)
MoveTo($hWnd,3748,13019)
MoveTo($hWnd,3492,13110)
EndIf
KeepMoveTo()
Keysend("v")
Randomsleep(500,1000)
Keysend("SPACE")
Randomsleep(1500,2000)
MouseSend("left", "click",617,593)
randomsleep(1000,1500)
controlsend($hWnd, "", "", $name)
randomsleep(2000,2500)
For $i = 0 To 10
MouseSend("left", "click",719,716)
randomsleep(2000,2500)
Next
MouseSend("left", "click", 830,716)
randomsleep(2000,2500)
MouseSend("left", "click", $x, $y)
EndFunc
While 1
for $i = $Runden to 1 Step -1
loop()
Next
GivePoints()
Wend
