hab im Forum nach nen jq bot gestöbert (Jadesteinbruchbot) und auch einen gefunden. Nun hab ich das Problem das er nichts macht. Ich geb die x und y cordis vom betreten button + charakternamen ein. Dannach passiert gar nix mehr.
Code gibts hier:
Code:
#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
Wäre super wenn mir jemand helfen würd *g*
lg
reextion
Kann geclosed werden xD
. Ich dachte nur Trottel machen solche Fehler *g*
