Finde den Fehler *g*

[Reextion]

Huhu,

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:

 Spoiler

#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

[Killerzwerg829]

Heißt das GW Fenster auch "Guild Wars"? Ist ein anderes Fenster vorder im Vordergrund gewesen?
Hast du beim Rausfinden der Coords auch richtigen Coord Mode angehabt? (Falls du die Coords über das Autoit Info Tool gesucht hast)
Memorys aktuell?

Mehr fällt mir grad nicht ein o.O

[buFFy!]

tt6 bot. da sind mit sicherheit die mem's veraltet.

[Reextion]

Ja soweit kann ich auch denken xD Trotzdem danke^^
Kordis richtig. sonst würd er ja noch i.wo hinklicken !
Memorys aktuell. Alles



Riesengroßes"Ichbineinfail"edit:
Ahh xD Ich bin zu dumm für diese Welt xD Sorry Kann geclosed werden xD
Gwca dll war noch injected xD Mein gott.. xD . Ich dachte nur Trottel machen solche Fehler *g*

[Frutex]

Originally Posted by Reextion

Ja soweit kann ich auch denken xD Trotzdem danke^^
Kordis richtig. sonst würd er ja noch i.wo hinklicken !
Memorys aktuell. Alles



Riesengroßes"Ichbineinfail"edit:
Ahh xD Ich bin zu dumm für diese Welt xD Sorry Kann geclosed werden xD
Gwca dll war noch injected xD Mein gott.. xD . Ich dachte nur Trottel machen solche Fehler *g*

Den Bot habe ich sogar irgendwann mal geschrieben

[kknb]

hm nun frage ich mich warum das eine rolle spielt das die dll noch injeziert war?!

[Frutex]

Originally Posted by kknb

hm nun frage ich mich warum das eine rolle spielt das die dll noch injeziert war?!

Vielleicht verschiebt sich dadurch irgendwas, wodurch die tt6 nicht mehr funktioniert.
Aber eigentlich harmonieren beide herrlich zusammen...

[buFFy!]

Originally Posted by kknb

hm nun frage ich mich warum das eine rolle spielt das die dll noch injeziert war?!

paar memshifts und hooks die da stress machen könnten.

#closed