Simple Presearing Lvl Bot GWA² based

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=160px-Miniatur-Prinz_Rurik.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include "GWA².au3"

Opt("GUIOnEventMode",1)

FileInstall("C:\Dokumente und Einstellungen\Jonas\Desktop\GWA²\PresearingLvlBot\Rurik.jpg", @TempDir & "Rurik.jpg")

Global $loopVar = False
Global $questId = 46
Global $ModelID = 30847
Global $moveVar = 7260
Global $health = 51
Global $speed = Random(2000, 3000, 1)
Global $runsDone = 0
Global $startXp = 0
Global $earnedXp = 0
Global $timeElapsed = 0

Global $listText

Global $windowName = "Guild Wars"
Global $stealth
Global $timer


#Region ### START Koda GUI section ### Form=
$gui = GUICreate("Presearing_LevelBot2.5 by Jonas93", 425, 220, 195, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "_eventHandler")
GUISetBkColor(0xFFFFFF)
$list = GUICtrlCreateList("", 8, 8, 305, 150, BitOR($LBS_NOTIFY,$WS_VSCROLL,$WS_BORDER))
$startButton = GUICtrlCreateButton("start", 8, 160, 40, 21)
GUICtrlSetOnEvent(-1,"_eventHandler")
$infoButton = GUICtrlCreateButton("info", 55, 160, 40, 21)
GUICtrlSetOnEvent(-1,"_eventHandler")
$windowButton = GUICtrlCreateButton("set window name", 225, 160, 90, 21)   ;320,10,
GUICtrlSetOnEvent(-1,"_eventHandler")
$stoneCheckBox = GUICtrlCreateCheckbox("Summoning Stone",8,185)
$useSkillCheckBox = GUICtrlCreateCheckbox("Use Skill",120,185)
$survivorCheckBox = GUICtrlCreateCheckbox("Survivor",190,185)
$slowpcCheckBox = GUICtrlCreateCheckbox("Slow Pc",260,185)
GUICtrlCreatePic(@TempDir & "Rurik.jpg", 314, 5, 123, 175)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_startMessage()

HotKeySet("{F1}" , "_stealth")

While 1
    If $loopVar Then _botLoop()
WEnd

Func _eventHandler()
    Switch(@GUI_CtrlId)
        Case $infoButton

                    If $loopVar = True Then
                        $milisecs = TimerDiff($timer)
                        $secs = $milisecs /1000
                        $mins = $secs/60
                        If $secs < 60 Then
                            $timeElapsed = round($secs) & " secs"
                        Else
                            $timeElapsed = round($mins) & " mins"
                        EndIf
                    EndIf

                    UpdateStatus("-------------BotStatus-------------")
                    UpdateStatus("runs Done: " & $runsDone )
                    UpdateStatus("experience earned: " & $earnedXp)
                    UpdateStatus("time elapsed: " & $timeElapsed)
                    UpdateStatus("-------------BotStatus-------------")
        Case $startButton
                    Initialize(WinGetProcess($windowName),True, True)
                    $startXp = GetExperience()
                    $timer = TimerInit()
                    $loopVar = Not $loopVar
        Case $windowButton
                    $windowName = InputBox("Settings - WindowName","Please Insert your GuildWars window name")
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
EndFunc


Func _botLoop()
    If GUICtrlRead($slowpcCheckBox) = 1 Then
    $speed = Random(5000, 6000, 1)
    endif
    UpdateStatus("Abandon Quest")
    AbandonQuest($questId)
    UpdateStatus("Move to Rurik")
    MoveTo(5740,10636)
    UpdateStatus("Accept Quest")
    $agent = GetNearestNPCToAgent(-2)
    GoToNPC($agent)
    AcceptQuest($questId)
    RndSleep(1000)
    UpdateStatus("Move out of Ascalon")
    MoveTo(7118,10695)
    MoveTo(7483,10459)
    MoveTo(7404,5933)
    Move($moveVar,5450); because MoveTo() crash in Portals
    UpdateStatus("Wait map to load")
    Sleep(Random(3000,4000,1)); for the way to the Portal
	Sleep($speed)
    Do
        RndSleep(500)
        $lMe = GetAgentByID(-2)
        $x = DllStructGetData($lMe, 'X')
    Until $x <> 0
    UpdateStatus("Wait for Rurik")
    MoveTo(5526,4505,100)
    RndSleep(6000)
    UpdateStatus("Move infront of Charr")
    MoveTo(4498,5469,100)
    MoveTo(3297,6157,100)
    MoveTo(2149,6378,100)
    MoveTo(836,6645,100)
    MoveTo(-382,7450,100)
    MoveTo(-1032,7992,100)
    MoveTo(-2125,8739,100)
    UpdateStatus("Follow Rurik")
    Do
        $rurikAgent = GetNearestNPCToAgent(-2)
        $aX = DllStructGetData($rurikAgent, 'X')
        $aY = DllStructGetData($rurikAgent, 'Y')
        MoveTo($aX,$aY)
        $nearestEnemy = GetNearestEnemyToAgent()
        $distance = GetDistance($nearestEnemy,-2)
    Until $distance < 1800
    RndSleep(250)

    If GUICtrlRead($stoneCheckbox) = 1 Then
        $id = GetItemByModelID($ModelID)
        UseItem($id)
    EndIf

    UpdateStatus("Wait until all Charr are dead")
    Do
        $nearestEnemy = GetNearestEnemyToAgent()
        Attack($nearestEnemy)
        If GUICtrlRead($useSkillCheckBox) = 1 then
            If GetSkillbarSkillRecharge(1) = 0 Then
                If GetEnergy() > 10 then UseSkill(1,$nearestEnemy)
            EndIf
        EndIf
        $distance = GetDistance($nearestEnemy,-2)
        $living = GetIsLiving(-2)
        If GUICtrlRead($survivorCheckBox) = 1 Then    $health = GetHealth()
        sleep(250)
    Until $distance > 3000 or $living <> True or $health < 50
    UpdateStatus("Travel back to Ascalon")
    TravelTo(148)
    Sleep($speed)
    Do
        RndSleep(500)
        $lMe = GetAgentByID(-2)
        $x = DllStructGetData($lMe, 'X')
    Until $x <> 0

    UpdateInfos()

Endfunc

Func UpdateStatus($text)
    GUICtrlSetData($list, "")
    $listText = $text & "|" & $listText
    GUICtrlSetData($list,$listText)
EndFunc

Func UpdateInfos()
    $runsDone +=1

    $currentXp = GetExperience()
    $earnedXp = $currentXp - $startXp
EndFunc

Func _stealth()

    If $stealth = 0 Then
        WinSetState($gui, "", @SW_HIDE)
        WinSetTrans($gui, "", 0)
        WinSetState($windowName, "", @SW_HIDE)
        WinSetTrans($windowName, "", 0)
        Opt("TrayIconHide", 1)
                $stealth =1

    ElseIf $stealth = 1 Then
        WinSetState($gui, "", @SW_SHOW)
        WinSetTrans($gui, "", 255)
        WinSetState($windowName, "", @SW_SHOW)
        WinSetTrans($windowName, "", 255)
        Opt("TrayIconHide", 0)
                 $stealth = 0
    EndIf

Endfunc

Func _startMessage()
    GUICtrlSetData($list, "                  Presearing_LevelBot2.5 by Jonas93")
    GUICtrlSetData($list, "_________________________________________________")
    GUICtrlSetData($list, "To hide and show the Bot window and Guild Wars window")
    GUICtrlSetData($list, "press F1")
    GUICtrlSetData($list, " ")
    GUICtrlSetData($list, 'check "Summoning Stone" to use Summoning Stone.')
    GUICtrlSetData($list, 'check "Use Skill" to Use 1. SkillbarSkill in fight.')
    GUICtrlSetData($list, 'check "Survivor" to Travel back if your Health < 50')
EndFunc