Finde den Fehler *g*

#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