Guild Wars Drachenmoos Bot

[eddi233]

Habe in einem anderen Forum einen Bot zum Drachenmoos farmen gefunden.
Allerdings scheint irgendwas nicht zu stimmen, wenn man auf Start klick kommt immer folgende Fehlermeldung

Line 81 (Pfad)

GUICtrlSetState ($GUI_BUTTON_REFRESH,$GUI_DISABLE)
GUICtrlSetState (^ERROR

Error:Variable used without being declared

Da ich mich zu meinen bedauern mit sowas nicht auskenne wollte ich mal Fragen ob jemand hier ne Ahnung hat woran das liegen könnte.

Folgende Dateien wurden für den Bot hochgeladen

fiber.au3

PHP Code:

#include "GWCAConstants.au3"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <Date.au3>

Global $BotRunning = False, $Time, $Stopped = 0, $hour, $mins, $secs, $dead, $alltime = 0, $timeStart, $TotalRuns, $Successfull, $failed, $totaltime, $besttime, $worsttime, $averagetime, $storegolds, $disablegraphics, $charname
Opt("GUIOnEventMode", 1)
$GUI = GUICreate("Dragon Moss Bot", 303, 311, 848, 188)
GUICtrlCreateGroup(" Status : Runs ", 176, 8, 113, 81)
GUICtrlCreateLabel("Total Runs:", 192, 32, 59, 17)
GUICtrlCreateLabel("Successful:", 192, 48, 59, 17)
GUICtrlSetColor(-1, 0x008000)
GUICtrlCreateLabel("Failed:", 192, 64, 35, 17)
GUICtrlSetColor(-1, 0x800000)
$GUi_TotalRuns = GUICtrlCreateLabel("0", 254, 32, 20, 17, $SS_RIGHT)
$GUI_Successfull = GUICtrlCreateLabel("0", 254, 48, 20, 17, $SS_RIGHT)
$GUI_Failed = GUICtrlCreateLabel("0", 254, 64, 20, 17, $SS_RIGHT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Status : Time ", 8, 88, 281, 65)
GUICtrlCreateLabel("Total:", 24, 112, 31, 17)
GUICtrlCreateLabel("Best:", 24, 128, 28, 17)
GUICtrlSetColor(-1, 0x008000)
GUICtrlCreateLabel("Worst:", 168, 128, 35, 17)
GUICtrlSetColor(-1, 0x800000)
$GUI_TotalTime = GUICtrlCreateLabel("0", 70, 112, 60, 17, $SS_RIGHT)
$GUI_BestTime = GUICtrlCreateLabel("0", 70, 128, 60, 17, $SS_RIGHT)
$GUI_WorstTime = GUICtrlCreateLabel("0", 214, 128, 60, 17, $SS_RIGHT)
GUICtrlCreateLabel("Average:", 168, 112, 47, 17)
$GUI_AverageTime = GUICtrlCreateLabel("0", 214, 112, 60, 17, $SS_RIGHT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("Dragon Moss Bot", 16, 24, 148, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("By Nicolas210", 48, 56, 90, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("Config : General ", 8, 152, 281, 73)
GUICtrlCreateLabel("Name :", 18, 174, 53, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$GUI_CHARNAME = GUICtrlCreateInput("My Char Name", 74, 174, 209, 21)
;~ Global $GUI_CHARNAME = GUICtrlCreateCombo("", 18, 170, 192, 21, BitOR(3, 64))
;~ GUICtrlSetTip(-1, "Choose which instance of the game you want to use")
;~ Global $GUI_BUTTON_REFRESH = GUICtrlCreateButton("Refresh", 215, 169, 70, 23, 0)
;~ GUICtrlSetOnEvent(-1, "gui_eventHandler")
$GUI_DisableGraphics = GUICtrlCreateCheckbox("Disable graphics", 18, 198, 105, 17, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_RIGHT))
GUICtrlSetOnEvent(-1, "gui_eventHandler")
$GUI_StoreGolds = GUICtrlCreateCheckbox("Store golds items", 146, 198, 105, 17, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_RIGHT))
GUICtrlSetOnEvent(-1, "gui_eventHandler")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Status : Current Action ", 8, 224, 281, 49)
$GUI_CurrentAction = GUICtrlCreateLabel("Script not started yet", 16, 248, 250, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GUI_ButtonStart = GUICtrlCreateButton("Start", 8, 280, 283, 25)
GUICtrlSetOnEvent(-1, "gui_eventHandler")
GUISetOnEvent($GUI_EVENT_CLOSE, "gui_eventHandler")
GUISetState(@SW_SHOW)

Func GUI_EVENTHANDLER()
    Switch (@GUI_CtrlId)
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_ButtonStart
            If $BotRunning = False Then
                $TimeStart = TimerInit()
                $BotRunning = True
                $Stopped = 0
                $TotalRuns = 0
                $Successfull = 0
                $failed = 0
                $TotalTime = 0
                $WorstTime = 0
                $BestTime = 0
                $AverageTime = 0
                $storegolds = GUICtrlRead($GUI_StoreGolds)
                $DisableGraphics = GUICtrlRead($GUI_DisableGraphics)
                $CHARNAME = GUICtrlRead($GUI_CHARNAME)
                GUICtrlSetState($GUI_CHARNAME, $GUI_DISABLE)
                GUICtrlSetState($GUI_BUTTON_REFRESH, $GUI_DISABLE)
                GUICtrlSetData($GUI_ButtonStart, "Stop")
                _GWCA_CLOSESTREAM()
                If $CHARNAME = "" Then
                    $SGW = "Guild Wars -"
                Else
                    $SGW = $CHARNAME
                EndIf
                GUICtrlSetData($GUI_TotalRuns, 0)
                GUICtrlSetData($GUI_Successfull, 0)
                GUICtrlSetData($GUI_Failed, 0)
                GUICtrlSetData($GUI_TotalTime, 0)
                GUICtrlSetData($GUI_WorstTime, 0)
                GUICtrlSetData($GUI_BestTime, 0)
                GUICtrlSetData($GUI_AverageTime, 0)
                $cbType = "int"
                $map = CmdCB($CA_GetMapId)
                If $map[0] <> 349 Then
                    GuiUpdateStatus("Traveling to outpost")
                    TravelTo(349)
                    Do
                        $cbType = "int"
                        $hp = cmdCB($CA_GetMyMaxHP)
                        $map = CmdCB($CA_GetMapId)
                        sleep(250)
                    Until $hp[0] <> 0 And $map[0] = 349
                EndIf
                
            Else
                $BotRunning = False
                GUICtrlSetState($GUI_CHARNAME, $GUI_ENABLE)
                GUICtrlSetState($GUI_BUTTON_REFRESH, $GUI_ENABLE)
                GUICtrlSetData($GUI_ButtonStart, "Start")
                GUICtrlSetState($GUI_ButtonStart, $GUI_DISABLE)
                $Stopped = 1
                GuiUpdateStatus("Bot will stop after this run.")
            EndIf
        Case $GUI_DisableGraphics
            $DisableGraphics = GUICtrlRead($GUI_DisableGraphics)
            $CHARNAME = GUICtrlRead($GUI_CHARNAME)
            If $CHARNAME = "" Then
                $SGW = "Guild Wars -"
            Else
                $SGW = $CHARNAME
            EndIf
            If $DisableGraphics = $GUI_CHECKED Then
                WinSetState($SGW, "", @SW_HIDE)
                CMD($CA_SETENGINEHOOK, 1)
            Else
                CMD($CA_SETENGINEHOOK, 0)
                WinSetState($SGW, "", @SW_SHOW)
            EndIf
        Case $GUI_StoreGolds
            $StoreGolds = GUICtrlRead($GUI_StoreGolds)
    EndSwitch
EndFunc

Func GuiUpdateStatus($msg)
    GUICtrlSetData($GUI_CurrentAction, $msg)
EndFunc

Func KeepBuff()
    $old_cbtype = $cbType
    If $dead Then Return
    $cbType = "float"
    $sh = CmdCB($CA_GetEffectDuration, 299)
    $sa = CmdCB($CA_GetEffectDuration, 1399)
    $ps = CmdCB($CA_GetEffectDuration, 245)
    If $ps[1] < 7500 Then UseSkill(1)
    If $sh[1] < 3000 And $sa[1] < 3000 Then 
        $cbType = "int"
        $sh1 = CmdCB($CA_SkillRecharge, 2)        
        $sa1 = CmdCB($CA_SkillRecharge, 3)
        If $sh1[0] = 0 Then 
            UseSkill(2)
        ElseIf $sa1[0] = 0 Then 
            UseSkill(3)
        EndIf
    EndIf
    $cbType = $old_cbtype
EndFunc ; => KeepBuff : Maintenir main du prot + Bouclier d'abso + esprit prot.

Func UseSkill($slot)
    $old_cbtype = $cbType
    $cbType = "int"
    CmdCB($CA_SkillRecharge, $slot)
    If $cbVar[0] = 0 And $dead = 0 Then
        Cmd($CA_UseSkill, $slot)
        $blurp2 = TimerInit()
        Do
            $cbType = "int"
            CmdCB($CA_SkillRecharge, $slot)
            Sleep(250)
        Until $cbVar[0] <> 0 Or TimerDiff($blurp2) > 2500
    EndIf
    $cbType = $old_cbtype
EndFunc ; => UseSkill : Utiliser un skill s'il est recast et attendre qu'il soit en recast (donc utilis驍

Func DeathCheck()
    $old_cbtype = $cbType
    If $dead = 0 Then
        $cbType = "float"
        CmdCB($CA_GetDead)
        If $cbVar[0] = 1 Or TimerDiff($runTime) > 150000 Then $dead = 1
    EndIf
    $cbType = $old_cbtype
EndFunc ; => DeathCheck : Check si t'es mort !

Func Timer()
    _TicksToTime(Int(TimerDiff($timestart)), $Hour, $Mins, $Secs )
  Local $sTime = $TotalTime; save current time to be able to test and avoid flicker..
  $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
  GUICtrlSetData($GUI_TotalTime, $Time)
EndFunc

Func Farm()
    $dead = 0
    Global $runTime = TimerInit()
    GuiUpdateStatus("Going out and waiting for map load")
    MoveEx(-11242, -23500)
    Do
        $cbType = "int"
        $hp = cmdCB($CA_GetMyMaxHP)
        $map = CmdCB($CA_GetMapId)
        sleep(250)
    Until $hp[0] <> 0 And $map[0] = 195
    Sleep(2500)
    GuiUpdateStatus("Putting ench 7")
    $cbType = "int"
    Do
        UseSkill(7) ; buffs
        CmdCB($CA_GetEffectCount)
    Until $cbVar[0] = 2
    GuiUpdateStatus("Putting ench 8")
    Do
        UseSkill(8) ; buffs
        CmdCB($CA_GetEffectCount)
    Until $cbVar[0] = 3 ; buffs
    GuiUpdateStatus("Moving to waypoint: FarmSpot 1")
    MoveToEx(-8789.9,18906.1) ; move 1
    GuiUpdateStatus("Moving to waypoint: FarmSpot 2")
    MoveToEx(-8102.6,18965.2) ; move 2
    GuiUpdateStatus("Moving to waypoint: FarmSpot 3")
    MoveToEx(-7618,18600) ; move 3
    GuiUpdateStatus("Moving to waypoint: FarmSpot 4")
    MoveToEx(-7249.8,18406.8) ; move 4
    GuiUpdateStatus("Moving to waypoint: FarmSpot 5")
    MoveToEx(-6573,17207) ; adlib
    GuiUpdateStatus("Putting protection ench")
    AdlibRegister("KeepBuff", 1000)
    AdlibRegister("DeathCheck", 1000)
    GuiUpdateStatus("Moving to waypoint: Aggro 1")
    If $dead = 0 Then MoveToEx(-5948.5,16253.3) ; aggro 1
    GuiUpdateStatus("Moving to waypoint: Aggro 2")
    If $dead = 0 Then MoveToEx(-5092.1,15772.3) ; aggro    2
    GuiUpdateStatus("Moving to waypoint: Back 1")
    If $dead = 0 Then MoveToEx(-6271,16624) ; back
    GuiUpdateStatus("Moving to waypoint: Back 2")
    If $dead = 0 Then MoveToEx(-7134.1,17502.2) ; back 2
    GuiUpdateStatus("Moving to waypoint: Back 3")
    If $dead = 0 Then MoveToEx(-7436,18397.9) ; back 3
;~     If $dead = 0 Then MoveToEx(-6718,17760) ; bad waypont, don't work
;~     If $dead = 0 Then MoveToEx(-6418.3,16931.7) ; bad waypont too
    
    GuiUpdateStatus("Killing all Dragon Moss")
    Do
        $cbType = "float"
        $sh2 = CmdCB($CA_GetEffectDuration, 299)
        $sa2 = CmdCB($CA_GetEffectDuration, 1399)
        $ps2 = CmdCB($CA_GetEffectDuration, 245)
        If ($sh2[1] > 6000 Or $sa2[1] > 6000) And $ps2[1] > 12000 Then
            If $dead = 0 Then UseSkill(4)
            If $dead = 0 Then UseSkill(5)
        EndIf
        $cbType = "int"
        $soj = CmdCB($CA_SkillRecharge, 5)
    Until $soj[0] <> 0 Or $dead = 1

    $blurp = TimerInit()
    While TimerDiff($blurp) < 17000 And $dead = 0
        Sleep(100)
    WEnd
    If $dead = 0 Then UseSkill(4)
    
    $timetokill = TimerInit()
    Do
        UseSkill(6)
        sleep(1000)
        If TimerDiff($timetokill) > 25000 Then UseSkill(5)
        $cbType = "float"
        CmdCB($CA_GetNearestAliveEnemyToAgent, -2)
        $distance = $cbVar[1]
    Until $distance > 1800 Or $dead = 1 Or TimerDiff($timetokill) > 60000
    
    AdlibUnRegister("KeepBuff")
    
    GuiUpdateStatus("Picking up items")
    $nbItems = 0
    $deadlock = TimerInit()
    Do
        $cbType = "int"
        $item = CmdCB($CA_GetNearestItemToAgentEx, -2)
        If $item[0] = 0 Or _INTTOFLOAT($item[1]) > 1700 Or TimerDiff($deadlock) > 30000 Then ExitLoop
        Cmd($CA_PickupItem, $item[0])
        $deadlock2 = TimerInit()
        Do
            Sleep(500)
            CmdCB($CA_GetAgentExist, $item[0])    
            If TimerDiff($deadlock2) > 5000 Then ContinueLoop 2
        Until $cbVar[0] = 0
        $nbItems += 1
    Until $nbItems = -1    Or $dead = 1
    
    AdlibUnRegister("DeathCheck")
    
    GuiUpdateStatus("Traveling to outpost")
    Travel(349)
EndFunc

Func StoreGolds()
    GuiUpdateStatus("Going to storage")
    $cbType = "int"
    $storage = GetNearestNpcToCoords(8027, -18227)
    Cmd($CA_GONPC, $storage)
    Sleep(10000)
    
    GuiUpdateStatus("Storing golds")
    For $bag = 0 To 4
        
        $cbType = "int"
        $bagsize = CmdCB($CA_GetBagSize, $bag)
            
        For $slot = 0 to $bagsize[0]
            $cbType = "int"
            CmdCB($CA_GetItemInfo, $slot, $bag)        
            If $cbvar[0] = 64 Then
                $cbType = "int"
                $emptystorage = CmdCB($CA_FindEmptySlot,8)      
                MoveItem($bag, $slot, $emptystorage[0], $emptystorage[1])
                sleep(500)
            EndIf        
        Next
    Next
EndFunc ; => StoreGolds().

Func CountSlots()
    Local $temp = 0
    $cbType = "int"
    $Bag1 = CmdCB($CA_GetBagSize, 1)
    $temp += $Bag1[0] - $Bag1[1]
    $Bag2 = CmdCB($CA_GetBagSize, 2)
    $temp += $Bag2[0] - $Bag2[1]
    $Bag3 = CmdCB($CA_GetBagSize, 3)
    $temp += $Bag3[0] - $Bag3[1]
    $Bag4 = CmdCB($CA_GetBagSize, 4)
    $temp += $Bag4[0] - $Bag4[1]
    Return $temp
EndFunc

Func Mercant()
    GuiUpdateStatus("Going To Mercant")
    $mercant = GetNearestNPCToCoords(11040,-18944)
    Cmd($CA_GoNPC, $mercant)
    Sleep(10000)
    Dim $item[10][25][5]
    For $bag = 0 To 4
        $cbType = "int"
        $bagsize = CmdCB($CA_GetBagSize, $bag)
        For $slot = 0 to $bagsize[0]
            $cbType = "int"
            CmdCB($CA_GetItemId, $slot, $bag)
            $item[$bag][$slot][0] = $cbVar[0] ; => item ID
            $item[$bag][$slot][1] = $cbVar[1] ; => item ModelId
            CmdCB($CA_GetItemInfo, $slot, $bag)
            $item[$bag][$slot][2] = $cbVar[0] ; => item Rarity
            CmdCB($CA_GetItemReq, $slot, $bag)
            $item[$bag][$slot][3] = $cbVar[0] ; => item req
        Next
    Next
    
    GuiUpdateStatus("Identifying all items")
    If CountSlots() = 0 Then Cmd($CA_SellItem, 4, 9)
    If CountSlots() = 0 Then Cmd($CA_SellItem, 4, 8)
        For $bag = 0 To 4
        $cbType = "int"
        $bagsize = CmdCB($CA_GetBagSize, $bag)
        For $slot = 0 to $bagsize[0]
            $cbType = "int"
            CmdCB($CA_GetIdKit)
            If $cbVar[0] = 0 Then
                Cmd($CA_BuyIdKit)
                Sleep(Random(500,1000))
                CmdCB($CA_GetIdKit)
                Sleep(Random(500,1000))
                MoveItemById($cbVar[0], 4, 1) ;Move IDKit to Spot (4, 1)
                Sleep(Random(500,1000))
            EndIf
            
            If $item[$bag][$slot][2] <> 64 Or $storegolds <> $GUI_Checked Then Cmd($CA_IdentifyItem, $bag, $slot)
            Sleep(Random(290, 310))
        Next
    Next

    GuiUpdateStatus("Selling all items")
    For $bag = 0 To 4
        $cbType = "int"
        $bagsize = CmdCB($CA_GetBagSize, $bag)
        For $slot = 0 to $bagsize[0]
            If $item[$bag][$slot][2] <> 64 Or $storegolds <> $GUI_Checked Then
                If ($item[$bag][$slot][1] <> 934 Or $item[$bag][$slot][3] <> 0)  And $item[$bag][$slot][1] <> 956 And $item[$bag][$slot][1] <> 819 And $item[$bag][$slot][1] <> 146 Then
                    Cmd($CA_SellItem, $bag, $slot)
                    Sleep(Random(500,750))
                EndIf
            EndIf
        Next
    Next
EndFunc

Func OutPost()
    If CountSlots() < 4 Then
        Travel(284)
        If $storegolds = $GUI_Checked Then    StoreGolds()
        Mercant()
        Travel(349)
    EndIf
EndFunc

Func Travel($outpost)
    TravelTo($outpost)
    Do
        $cbType = "int"
        $hp = cmdCB($CA_GetMyMaxHP)
        $map = CmdCB($CA_GetMapId)
        sleep(250)
    Until $hp[0] <> 0 And $map[0] = $outpost
    Sleep(2000)
EndFunc

Func UpdateStats()
    $TotalRuns += 1
;~     $TotalTime = TimerDiff($TimeStart)/60000
    If $dead = 0 Then
        $Successfull += 1
        $AllTime += TimerDiff($runTime)
        If $totalRuns = 1 Then $BestTime = Ceiling(TimerDiff($runTime)/1000)
        If TimerDiff($runTime)/1000 > $WorstTime Then $WorstTime = Ceiling(TimerDiff($runTime)/1000)
        If TimerDiff($runTime)/1000 < $BestTime Then $BestTime = Ceiling(TimerDiff($runTime)/1000)
    Else
        $Failed += 1
    EndIf
    $AverageTime = Ceiling($AllTime/(1000*$Successfull))
    
    GuiUpdateStatus("Updating Stats")
    GUICtrlSetData($GUI_TotalRuns, $TotalRuns)
    GUICtrlSetData($GUI_Successfull, $Successfull)
    GUICtrlSetData($GUI_Failed, $Failed)
;~     GUICtrlSetData($GUI_TotalTime, $TotalTime & " min")
    GUICtrlSetData($GUI_WorstTime, $WorstTime & " secs")
    GUICtrlSetData($GUI_BestTime, $BestTime & " secs")
    GUICtrlSetData($GUI_AverageTime, $AverageTime & " secs")
EndFunc

Func PurgeEngineHook()
    CMD($CA_SETENGINEHOOK, 0)
    Sleep(150)
    CMD($CA_SETENGINEHOOK, 1)
    GuiUpdateStatus("Purging Engine Hook")
EndFunc

Func HM()
    Cmd($CA_SwitchMode, 1)
    GuiUpdateStatus("Switching to Hard Mode")    
EndFunc

While 1
    If $BotRunning Then
        AdlibRegister("timer", 500)
        If $DisableGraphics = $GUI_CHECKED Then PurgeEngineHook()
        HM()
        OutPost()
        Farm()
        UpdateStats()
        AdlibUnRegister("timer")
    EndIf
    
    If $Stopped =1 Then 
        GuiUpdateStatus("Script not started yet")
        GUICtrlSetState($GUI_ButtonStrat, $GUI_ENABLE)
        $Stopped = 0
    EndIf
WEnd 


GWCAConstants.au3

PHP Code:

; # -+-+-+-+-+-+-+ #
;   GWCA Constants
;      By Sune C
; # +-+-+-+-+-+-+- #

#include-once

#include <NamedPipes.au3>
#include <WinAPI.au3>

; The SkillLog structure for use with the Skill Log feature
Global $tagSKILLLOGSTRUCT = "long AgentId;long MyId;long SkillId;float Activation;byte TeamId;ushort Allegiance;float Distance;long Ping;long TargetId"
Global $tagPARTYINFO = "hwnd Receiver;long TeamSize;long TeamId;" & _
    "long Agent1Id;float Agent1X;float Agent1Y;float Agent1HP;long Agent1Effects;byte Agent1Hex;dword Agent1Name;byte Agent1Primary;byte Agent1Secondary;long Agent1Target;word Agent1Skill;word Agent1Weapon;" & _
    "long Agent2Id;float Agent2X;float Agent2Y;float Agent2HP;long Agent2Effects;byte Agent2Hex;dword Agent2Name;byte Agent2Primary;byte Agent2Secondary;long Agent2Target;word Agent2Skill;word Agent2Weapon;" & _
    "long Agent3Id;float Agent3X;float Agent3Y;float Agent3HP;long Agent3Effects;byte Agent3Hex;dword Agent3Name;byte Agent3Primary;byte Agent3Secondary;long Agent3Target;word Agent3Skill;word Agent3Weapon;" & _
    "long Agent4Id;float Agent4X;float Agent4Y;float Agent4HP;long Agent4Effects;byte Agent4Hex;dword Agent4Name;byte Agent4Primary;byte Agent4Secondary;long Agent4Target;word Agent4Skill;word Agent4Weapon;" & _
    "long Agent5Id;float Agent5X;float Agent5Y;float Agent5HP;long Agent5Effects;byte Agent5Hex;dword Agent5Name;byte Agent5Primary;byte Agent5Secondary;long Agent5Target;word Agent5Skill;word Agent5Weapon;" & _
    "long Agent6Id;float Agent6X;float Agent6Y;float Agent6HP;long Agent6Effects;byte Agent6Hex;dword Agent6Name;byte Agent6Primary;byte Agent6Secondary;long Agent6Target;word Agent6Skill;word Agent6Weapon;" & _
    "long Agent7Id;float Agent7X;float Agent7Y;float Agent7HP;long Agent7Effects;byte Agent7Hex;dword Agent7Name;byte Agent7Primary;byte Agent7Secondary;long Agent7Target;word Agent7Skill;word Agent7Weapon;" & _
    "long Agent8Id;float Agent8X;float Agent8Y;float Agent8HP;long Agent8Effects;byte Agent8Hex;dword Agent8Name;byte Agent8Primary;byte Agent8Secondary;long Agent8Target;word Agent8Skill;word Agent8Weapon;"

; The constants
Global Enum $CA_DisconnectPipe = 0x001, $CA_AliveRequest, $CA_IsAlive, _
    $CA_Error = 0x050, _
    $CA_CommandsBegin = 0x101, _
    $CA_Attack, $CA_Dialog, $CA_CancelAction, $CA_ClearPacketQueue, $CA_QuestAbandon, $CA_DonateFaction, $CA_SetLogAndHwnd,  _
    $CA_Move, $CA_GoNpc, $CA_GoPlayer, $CA_GoSignpost, $CA_GoAgent,  _
    $CA_UseSkill, $CA_SetEventSkillMode, $CA_SetSkillbarSkill, $CA_SetAttribute, $CA_ChangeSecondProfession,  _
    $CA_ChangeWeaponSet, $CA_EquipItem, $CA_EquipItemById, $CA_UseItem, $CA_UseItemById,  _
    $CA_DropGold, $CA_DepositGold, $CA_WithdrawGold, _
    $CA_ChangeTarget, $CA_TargetNearestFoe, $CA_TargetNearestAlly, $CA_TargetNextPartyMember, $CA_TargetNextFoe,  _
    $CA_TargetNearestItem, $CA_TargetCalledTarget, _
    $CA_UseHero1Skill, $CA_UseHero2Skill, $CA_UseHero3Skill, _
    $CA_CommandHero1, $CA_CommandHero2, $CA_CommandHero3, $CA_CommandAll, $CA_SetHeroMode,  _
    $CA_AddHero, $CA_KickHero, $CA_AddNpc, $CA_KickNpc,  _
    $CA_ChangeDistrict, $CA_ZoneMap, $CA_SwitchMode, $CA_InitMapLoad, $CA_SkipCinematic,  _
    $CA_DismissBuff, $CA_SendChat, $CA_SetTeamSize, $CA_FreeMem,  _
    $CA_Resign, $CA_ReturnToOutpost, $CA_EnterChallenge, $CA_TravelGH, $CA_LeaveGH,  _
    $CA_SetBag, $CA_PrepareMoveItem, $CA_MoveItem,  _
    $CA_IdentifyItem, $CA_IdentifyItemById, $CA_SalvageItem,  _
    $CA_SellItem, $CA_SellItemById, $CA_BuyIdKit, $CA_BuySuperiorIdKit, _
    $CA_BuyItem, $CA_TraderRequest, $CA_TraderRequestSell, $CA_TraderRequestSellById, $CA_TraderBuy, $CA_TraderSell, _
    $CA_OpenChest, $CA_AcceptAllItems, $CA_PickupItem, $CA_DropItem, $CA_DropItemById, $CA_OpenStorage, _
    $CA_UpdateAgentPosition, $CA_MoveOld, $CA_TradePlayer, $CA_SubmitOffer, $CA_ChangeOffer, $CA_OfferItem, _
    $CA_CancelTrade, $CA_AcceptTrade, $CA_ResetAttributes, $CA_SetEquipmentAgent, $CA_SetEquipmentModelId, $CA_SetEquipmentDye, _
    $CA_SetEquipmentShinyness, $CA_WriteWhisper, $CA_LockHero, $CA_CancelMaintainedEnchantment, $CA_EnterChallengeForeign, _
    $CA_PrepareZoneMapEx, $CA_ZoneMapEx, _
    $CA_CommandsEnd
Global Enum $CA_RequestsBegin = 0x301,  _
    $CA_GetCurrentTarget,  _
    $CA_GetMyId, $CA_GetMyMaxHP, $CA_GetMyMaxEnergy, $CA_GetMyNearestAgent, $CA_GetMyDistanceToAgent,  _
    $CA_Casting, $CA_SkillRecharge, $CA_SkillAdrenaline, $CA_GetSkillbarSkillId,  _
    $CA_GetTarget, $CA_GetAgentAndTargetPtr,  _
    $CA_GetBuildNumber, $CA_ChangeMaxZoom, $CA_GetLastDialogId, $CA_SetEngineHook,  _
    $CA_GetGold, $CA_GetBagSize, $CA_GetItemId,  _
    $CA_GetIdKit, $CA_GetSalvageKit,  _
    $CA_GetItemInfo, $CA_GetItemLastModifier, $CA_GetItemLastModifierById,  _
    $CA_FindItemByModelId, $CA_FindEmptySlot, $CA_FindGoldItem,  _
    $CA_GetItemPositionByItemId, $CA_GetItemPositionByModelId, $CA_GetItemPositionByRarity,  _
    $CA_GetItemModelIdById, $CA_GetItemInfoById,  _
    $CA_GetItemIdByAgent, $CA_GetItemInfoByAgent, $CA_GetItemLastModifierByAgent, $CA_GetNearestItemByModelId, _
    $CA_GetMapLoading, $CA_GetMapId, $CA_MapIsLoaded, $CA_GetRegionAndLanguage, $CA_GetPing, $CA_GetLoggedIn, $CA_GetDead,  _
    $CA_GetBalthFaction, $CA_GetKurzFaction, $CA_GetLuxonFaction,  _
    $CA_GetTitleTreasure, $CA_GetTitleLucky, $CA_GetTitleUnlucky, $CA_GetTitleWisdom, $CA_GetTitleGamer, $CA_GetExperience, _
    $CA_GetTitleSunspear, $CA_GetTitleLightbringer, $CA_GetTitleVanguard, $CA_GetTitleNorn, $CA_GetTitleAsura, $CA_GetTitleDeldrimor,  _
    $CA_GetTitleNorthMastery, $CA_GetTitleDrunkard, $CA_GetTitleSweet, $CA_GetTitleParty, $CA_GetTitleCommander, $CA_GetTitleLuxon, $CA_GetTitleKurzick,  _
    $CA_GetMapOverlayCoords, $CA_GetMapOverlayInfo, $CA_GetNearestMapOverlayToCoords, $CA_GetPartyInfo,  _
    $CA_GetAgentExist, $CA_GetProfessions, $CA_GetPlayerNumber, $CA_GetName, $CA_GetHP, $CA_GetRotation,  _
    $CA_GetSkill, $CA_GetCoords, $CA_GetWeaponSpeeds, $CA_GetSpiritRange, $CA_GetTeamId, $CA_GetCombatMode,  _
    $CA_GetModelMode, $CA_GetHpPips, $CA_GetEffects, $CA_GetHex, $CA_GetModelAnimation, $CA_GetEnergy, $CA_GetAgentPtr,  _
    $CA_GetType, $CA_GetLevel, $CA_GetNameProperties, $CA_GetMaxId, $CA_GetSpeed, $CA_GetAllegiance, $CA_GetWeaponType,  _
    $CA_GetModelState, $CA_GetIsAttacking, $CA_GetIsKnockedDown, $CA_GetIsMoving, $CA_GetIsDead, $CA_GetIsCasting, $CA_GetIsAttackedMelee, _
    $CA_PlayerHasBuff, $CA_Hero1HasBuff, $CA_Hero2HasBuff, $CA_Hero3HasBuff,  _
    $CA_GetFirstAgentByPlayerNumber, $CA_GetNearestAgentToAgent, $CA_GetDistanceFromAgentToAgent,  _
    $CA_GetNearestAgentToAgentEx, $CA_GetNearestEnemyToAgentEx, $CA_GetNearestItemToAgentEx,  _
    $CA_GetNearestAgentByPlayerNumber, $CA_GetNearestEnemyToAgentByAllegiance, $CA_GetNearestAliveEnemyToAgent,  _
    $CA_GetNearestSignpostToAgent, $CA_GetNearestNpcToAgentByAllegiance, $CA_GetNearestAgentToCoords, _
    $CA_GetNearestNpcToCoords, $CA_GetLoginNumber, $CA_GetNumberOfAgentsByPlayerNumber, $CA_GetNumberOfAliveEnemyAgents, $CA_GetNextItem,  _
    $CA_QuestCheck, $CA_QuestCoords, $CA_QuestActive, $CA_AllocMem, $CA_TraderCheck, _
    $CA_GetItemExtraId, $CA_GetItemExtraIdById, $CA_GetConnection, _
    $CA_GetItemExtraIdByAgent, $CA_GetItemReq, $CA_GetItemReqById, $CA_GetItemReqByAgent, $CA_GetDyePositionByColor, _
    $CA_GetNumberOfFoesInRangeOfAgent, $CA_GetNumberOfAlliesInRangeOfAgent, $CA_GetNumberOfItemsInRangeOfAgent, _
    $CA_GetAgentMovementPtr, $CA_GetMapBoundariesPtr, $CA_GetEffectCount, $CA_GetEffect, $CA_GetEffectByIndex, $CA_GetEffectDuration, _
    $CA_GetTimeStamp, $CA_GetAgentDanger, $CA_GetTypeMap, $CA_GetAgentWeapons, $CA_GetMatchStatus, _
    $CA_GetNextAgent, $CA_GetNextAlly, $CA_GetNextFoe, $CA_GetItemDmgMod, $CA_GetItemDmgModById, $CA_GetItemDmgModByAgent, _
    $CA_GetEquipmentModelId, $CA_GetEquipmentDyeInfo, $CA_GetExtraType, _
    $CA_PrepareNearestPlayerNumberToCoords, $CA_GetNearestPlayerNumberToCoords, $CA_GetSkillType, $CA_GetFirstAgentByPlayerNumberByTeam, _
    $CA_GetNearestAliveEnemyToCoords, $CA_GetNextAliveFoe, $CA_GetHeroCasting, $CA_GetHeroSkillRecharge, $CA_GetHeroSkillAdrenaline, _
    $CA_GetHeroSkillId, $CA_GetHeroAgentId, $CA_PrepareNearestAliveEnemyToCoordsByPlayerNumber, $CA_GetNearestAliveEnemyToCoordsByPlayerNumber, _
    $CA_GetNearestAliveAgentByPlayerNumber, _
    $CA_RequestsEnd


Global Enum $RARITY_White = 0x3D, $RARITY_Blue = 0x3F, $RARITY_Purple = 0x42, $RARITY_Gold = 0x40, $RARITY_Green = 0x43

Global Enum $BAG_Backpack = 1, $BAG_BeltPouch, $BAG_Bag1, $BAG_Bag2, $BAG_EquipmentPack, $BAG_UnclaimedItems = 7, $BAG_Storage1, $BAG_Storage2, _
            $BAG_Storage3, $BAG_Storage4, $BAG_Storage5, $BAG_Storage6, $BAG_Storage7, $BAG_Storage8, $BAG_StorageAnniversary

Global Enum $HERO_Norgu = 1, $HERO_Goren, $HERO_Tahlkora, $HERO_MasterOfWhispers, $HERO_AcolyteJin, $HERO_Koss, $HERO_Dunkoro, $HERO_AcolyteSousuke, $HERO_Melonni, _
            $HERO_ZhedShadowhoof, $HERO_GeneralMorgahn, $HERO_MargridTheSly, $HERO_Olias = 14, $HERO_Razah, $HERO_MOX, $HERO_Jora = 18, $HERO_PyreFierceshot, _
            $HERO_Livia = 21, $HERO_Hayda, $HERO_Kahmu, $HERO_Gwen, $HERO_Xandra, $HERO_Vekk, $HERO_Ogden

Global Enum $HEROMODE_Fight, $HEROMODE_Guard, $HEROMODE_Avoid

Global Enum $DYE_Blue = 2, $DYE_Green, $DYE_Purple, $DYE_Red, $DYE_Yellow, $DYE_Brown, $DYE_Orange, $DYE_Silver, $DYE_Black, $DYE_Gray, $DYE_White

Global Enum $ATTRIB_FastCasting, $ATTRIB_IllusionMagic, $ATTRIB_DominationMagic, $ATTRIB_InspirationMagic, _
            $ATTRIB_BloodMagic, $ATTRIB_DeathMagic, $ATTRIB_SoulReaping, $ATTRIB_Curses, _
            $ATTRIB_AirMagic, $ATTRIB_EarthMagic, $ATTRIB_FireMagic, $ATTRIB_WaterMagic, $ATTRIB_EnergyStorage, _
            $ATTRIB_HealingPrayers, $ATTRIB_SmitingPrayers, $ATTRIB_ProtectionPrayers, $ATTRIB_DivineFavor, _
            $ATTRIB_Strength, $ATTRIB_AxeMastery, $ATTRIB_HammerMastery, $ATTRIB_Swordsmanship, $ATTRIB_Tactics, _
            $ATTRIB_BeastMastery, $ATTRIB_Expertise, $ATTRIB_WildernessSurvival, $ATTRIB_Marksmanship, _
            $ATTRIB_DaggerMastery, $ATTRIB_DeadlyArts, $ATTRIB_ShadowArts, _
            $ATTRIB_Communing, $ATTRIB_RestorationMagic, $ATTRIB_ChannelingMagic, _
            $ATTRIB_CriticalStrikes, _
            $ATTRIB_SpawningPower, _
            $ATTRIB_SpearMastery, $ATTRIB_Command, $ATTRIB_Motivation, $ATTRIB_Leadership, _
            $ATTRIB_ScytheMastery, $ATTRIB_WindPrayers, $ATTRIB_EarthPrayers, $ATTRIB_Mysticism

Global Enum $EQUIP_Weapon, $EQUIP_Offhand, $EQUIP_Chest, $EQUIP_Legs, $EQUIP_Head, $EQUIP_Feet, $EQUIP_Hands

Global Enum $SKILLTYPE_Stance = 3, $SKILLTYPE_Hex, $SKILLTYPE_Spell, $SKILLTYPE_Enchantment, $SKILLTYPE_Signet, $SKILLTYPE_Well = 9, _
            $SKILLTYPE_Skill, $SKILLTYPE_Ward, $SKILLTYPE_Glyph, $SKILLTYPE_Attack = 14, $SKILLTYPE_Shout, $SKILLTYPE_Preparation = 19, _
            $SKILLTYPE_Trap = 21, $SKILLTYPE_Ritual, $SKILLTYPE_ItemSpell = 24, $SKILLTYPE_WeaponSpell, $SKILLTYPE_Chant = 27, $SKILLTYPE_EchoRefrain

Global Enum $REGION_International = -2, $REGION_America = 0, $REGION_Korea, $REGION_Europe, $REGION_China, $REGION_Japan

Global Enum $LANGUAGE_English = 0, $LANGUAGE_French = 2, $LANGUAGE_German, $LANGUAGE_Italian, $LANGUAGE_Spanish, $LANGUAGE_Polish = 9, $LANGUAGE_Russian

Global Enum $IS_NUMERIC = 0x00, _
            $IS_TEXT = 0x01, _
            $IS_COMMAND = 0x02, _
            $IS_REQUEST = 0x04, _
            $IS_RESPONSE = 0x08

Global Const $MSG_PartyCallback = 0x4A, _
             $MSG_SkillLogCallback = 0x4A, _
             $MSG_SkillCancelCallback = 0x501, _
             $MSG_SkillCompleteCallback = 0x502

Global Const $FLAG_RESET = 0x7F800000

; VARIABLES

Opt("WinTitleMatchMode", -1) ;Make sure that Guild Wars receives the messages (1 = match start, 2 = substring, 3 = exact)

Global $cbType = "int" ;What to read the callback values as
Global $cbVar[2] ;Array for callback wParam and lParam
Global $sGW = "Guild Wars -" ;Name of window
Global $hGWCA_STREAM = 0 ;Handle to the stream
Global $bGWCA_INTERNAL = False ;Is set to True when inside a Cmd() or CmdCB() call

; FUNCTIONS

Func _IntToFloat($iInt)
    Local $tFloat, $tInt

    $tInt = DllStructCreate("int")
    $tFloat = DllStructCreate("float", DllStructGetPtr($tInt))
    DllStructSetData($tInt, 1, $iInt)
    Return DllStructGetData($tFloat, 1)
EndFunc

Func _FloatToInt($fFloat)
    Local $tFloat, $tInt

    $tFloat = DllStructCreate("float")
    $tInt = DllStructCreate("int", DllStructGetPtr($tFloat))
    DllStructSetData($tFloat, 1, $fFloat)
    Return DllStructGetData($tInt, 1)
EndFunc

Func Cmd($uMsg, $wparam = 0, $lparam = 0)
    Local $iRead = 0
    Local $OutBuffer = DllStructCreate("WORD header;WORD type;BYTE wparam[4];BYTE lparam[4]") ;Pipes sending buffer
    Local $InBuffer = DllStructCreate("WORD header;WORD type;BYTE wparam[4];BYTE lparam[4]") ;Pipes incoming buffer
    $bGWCA_INTERNAL = True
    DllStructSetData($OutBuffer,"header",$uMsg)
    DllStructSetData($OutBuffer,"type",BitOR($IS_COMMAND, $IS_NUMERIC))
    DllStructSetData($OutBuffer,"wparam",Number($wparam)) ; set wparam
    DllStructSetData($OutBuffer,"lparam",Number($lparam)) ; set lparam

    If Not $hGWCA_STREAM Then
        If Not _NamedPipes_WaitNamedPipe("\\.\pipe\GWCA_"&WinGetProcess($sGW), 1000) Then
            Return
        EndIf
        $hGWCA_STREAM = _WinAPI_CreateFile("\\.\pipe\GWCA_"&WinGetProcess($sGW), 2, 6)
    EndIf

    If Not _WinAPI_WriteFile($hGWCA_STREAM,DllStructGetPtr($OutBuffer),12,$iRead) Then
        _GWCA_CloseStream()
    EndIf

    $bGWCA_INTERNAL = False
EndFunc

Func CmdCB($uMsg, $wparam = 0, $lparam = 0)
    Local $iRead = 0
    Local $OutBuffer = DllStructCreate("WORD header;WORD type;BYTE wparam[4];BYTE lparam[4]") ;Pipes sending buffer
    Local $InBuffer = DllStructCreate("WORD header;WORD type;BYTE wparam[4];BYTE lparam[4]") ;Pipes incoming buffer
    $bGWCA_INTERNAL = True
    $cbVar[0] = ""
    $cbVar[1] = ""
    DllStructSetData($OutBuffer,"header",$uMsg)
    DllStructSetData($OutBuffer,"type",BitOR($IS_REQUEST, $IS_NUMERIC))
    DllStructSetData($OutBuffer,"wparam",Number($wparam)) ; set wparam
    DllStructSetData($OutBuffer,"lparam",Number($lparam)) ; set lparam

    If Not $hGWCA_STREAM Then
        If Not _NamedPipes_WaitNamedPipe("\\.\pipe\GWCA_"&WinGetProcess($sGW), 1000) Then
            Return SetError(1, 0, $cbVar)
        EndIf
        $hGWCA_STREAM = _WinAPI_CreateFile("\\.\pipe\GWCA_"&WinGetProcess($sGW), 2, 6)
    EndIf

    If Not _WinAPI_WriteFile($hGWCA_STREAM,DllStructGetPtr($OutBuffer),12,$iRead) Then
        _GWCA_CloseStream()
    EndIf

    If Not _WinAPI_ReadFile($hGWCA_STREAM,DllStructGetPtr($InBuffer),12,$iRead) Then
        _GWCA_CloseStream()
    EndIf

    Switch $cbType
        Case "float"
            $cbVar[0] = DllStructGetData(DllStructCreate("float", DllStructGetPtr($InBuffer, "wparam")), 1)
            $cbVar[1] = DllStructGetData(DllStructCreate("float", DllStructGetPtr($InBuffer, "lparam")), 1)
        Case "int"
            $cbVar[0] = DllStructGetData(DllStructCreate("int", DllStructGetPtr($InBuffer, "wparam")), 1)
            $cbVar[1] = DllStructGetData(DllStructCreate("int", DllStructGetPtr($InBuffer, "lparam")), 1)
        Case "hex"
            $cbVar[0] = "0x"&Hex(DllStructGetData(DllStructCreate("int", DllStructGetPtr($InBuffer, "wparam")), 1))
            $cbVar[1] = "0x"&Hex(DllStructGetData(DllStructCreate("int", DllStructGetPtr($InBuffer, "lparam")), 1))
        Case Else
            $cbVar[0] = DllStructGetData(DllStructCreate("int", DllStructGetPtr($InBuffer, "wparam")), 1)
            $cbVar[1] = DllStructGetData(DllStructCreate("int", DllStructGetPtr($InBuffer, "lparam")), 1)
    EndSwitch

    $bGWCA_INTERNAL = False

    Return $cbVar
EndFunc

Func _GWCA_CloseStream()
    _WinAPI_CloseHandle($hGWCA_STREAM)
    $hGWCA_STREAM = 0
EndFunc

Func MoveEx($x, $y, $random = 50)
    Cmd($CA_MOVE, _FloatToInt($x+Random(-$random,$random)), _FloatToInt($y+Random(-$random,$random)))
EndFunc

Func GetNearestAgentToCoords($x, $y)
    $oldCbType = $cbType

    $cbType = "int"
    CmdCB($CA_GetNearestAgentToCoords, _FloatToInt($x), _FloatToInt($y))

    $cbType = $oldCbType

    Return $cbVar[0]
EndFunc

Func GetNearestNPCToCoords($x, $y)
    $oldCbType = $cbType

    $cbType = "int"
    CmdCB($CA_GetNearestNpcToCoords, _FloatToInt($x), _FloatToInt($y))

    $cbType = $oldCbType

    Return $cbVar[0]
EndFunc

Func GetNearestMapOverlayToCoords($x, $y)
    $oldCbType = $cbType

    $cbType = "int"
    CmdCB($CA_GetNearestMapOverlayToCoords, _FloatToInt($x), _FloatToInt($y))

    $cbType = $oldCbType

    Return $cbVar[0]
EndFunc

Func GetNearestPlayerNumberToCoords($plNum, $x, $y)
    $oldCbType = $cbType

    $cbType = "int"
    CmdCB($CA_PrepareNearestPlayerNumberToCoords, $plNum)
    CmdCB($CA_GetNearestPlayerNumberToCoords, _FloatToInt($x), _FloatToInt($y))

    $cbType = $oldCbType

    Return $cbVar[0]
EndFunc

Func GetNearestAliveEnemyToCoordsByPlayerNumber($plNum, $x, $y)
    $oldCbType = $cbType

    $cbType = "int"
    CmdCB($CA_PrepareNearestAliveEnemyToCoordsByPlayerNumber, $plNum)
    CmdCB($CA_GetNearestAliveEnemyToCoordsByPlayerNumber, _FloatToInt($x), _FloatToInt($y))

    $cbType = $oldCbType

    Return $cbVar[0]
EndFunc

Func GetNearestAliveEnemyToCoords($x, $y)
    $oldCbType = $cbType

    $cbType = "int"
    CmdCB($CA_GetNearestAliveEnemyToCoords, _FloatToInt($x), _FloatToInt($y))

    $cbType = $oldCbType

    Return $cbVar[0]
EndFunc

Func TravelTo($iMapId, $iDis = 0)
    $tMap = TimerInit()
    Cmd($CA_InitMapLoad)
    Cmd($CA_ZoneMap, $iMapId, $iDis)
    Do
        Sleep(200)
        $aLoad = CmdCB($CA_GetMapLoading)
        If TimerDiff($tMap) > 15000 AND $aLoad[0] <> 2 Then Cmd($CA_ZoneMap, $iMapId, $iDis)
        $aLoaded = CmdCB($CA_MapIsLoaded)
    Until $aLoad[0] = 0 AND $aLoaded[0] = 1
EndFunc

Func MoveItem($itemBag, $itemSlot, $newBag, $newSlot)
    Cmd($CA_PREPAREMOVEITEM, $itemBag, $itemSlot)
    Sleep(20)
    Cmd($CA_MOVEITEM, $newBag, $newSlot)
EndFunc

Func MoveItemById($itemId, $newBag, $newSlot)
    Cmd($CA_PREPAREMOVEITEM, $itemId)
    Sleep(20)
    Cmd($CA_MOVEITEM, $newBag, $newSlot)
EndFunc

Func PickupItems($iItems = -1, $fMaxDistance = 1012)
    Local $iItemsPicked = 0

    $oldCbType = $cbType

    $cbType = "int"

    $tDeadlock = TimerInit()
    Do
        $aItem = CmdCB($CA_GETNEARESTITEMTOAGENTEX, -2)
        If $aItem[0] = 0 OR _IntToFloat($aItem[1]) > $fMaxDistance OR TimerDiff($tDeadlock) > 30000 Then ExitLoop

        Cmd($CA_PICKUPITEM, $aItem[0])
        $tDeadlock2 = TimerInit()
        Do
            Sleep(500)
            CmdCB($CA_GETAGENTEXIST, $aItem[0])
            If TimerDiff($tDeadlock2) > 5000 Then ContinueLoop 2
        Until $cbVar[0] = 0

        $iItemsPicked += 1
    Until $iItemsPicked = $iItems

    $cbType = $oldCbType
EndFunc

Func GetItemId($iBag, $iSlot)
    $oldCbType = $cbType

    $cbType = "int"

    CmdCB($CA_SetBag, $iBag)
    CmdCB($CA_GetItemId, $iSlot)

    $cbType = $oldCbType

    Return $cbVar
EndFunc

Func GetItemInfo($iBag, $iSlot)
    $oldCbType = $cbType

    $cbType = "int"

    CmdCB($CA_SetBag, $iBag)
    CmdCB($CA_GetItemInfo, $iSlot)

    $cbType = $oldCbType

    Return $cbVar
EndFunc

Func GetItemLastModifier($iBag, $iSlot)
    $oldCbType = $cbType

    $cbType = "int"

    CmdCB($CA_SetBag, $iBag)
    CmdCB($CA_GetItemLastModifier, $iSlot)

    $cbType = $oldCbType

    Return $cbVar
EndFunc

Func MoveToEx($x, $y, $random = 50)
    Local $iBlocked = 0

    $oldCbType = $cbType

    $cbType = "int"
    $mState = CmdCB($CA_GetMapLoading)

    $cbType = "float"
    MoveEx($x, $y, $random)
    PingSleep()
    Do
        Sleep(150)
        $cbType = "int"
        CmdCB($CA_GETDEAD)
        If $cbVar[0] = 1 Then ExitLoop

        $mStateOld = $mState
        $mState = CmdCB($CA_GetMapLoading)
        If $mState[0] <> $mStateOld[0] Then ExitLoop

        CmdCB($CA_GetIsMoving, -2)
        If $cbVar[0] = 0 Then
            $iBlocked += 1
            Cmd($CA_UpdateAgentPosition, -2)
            MoveEx($x, $y, $random)
        EndIf

        $cbType = "float"
        CmdCB($CA_GETCOORDS, -2)
    Until ComputeDistanceEx($cbVar[0], $cbVar[1], $x, $y) < 220 OR $iBlocked > 14

    $cbType = $oldCbType
EndFunc

Func ComputeDistanceEx($x1, $y1, $x2, $y2)
    Return Sqrt(($y2 - $y1)^2 + ($x2 - $x1)^2)
EndFunc

Func UseSkillEx($iSkillSlot, $iTarget = 0)
    $oldCbType = $cbType

    $tDeadlock = TimerInit()
    $cbType = "int"
    Cmd($CA_USESKILL, $iSkillSlot, $iTarget)
    Do
        Sleep(250)
        CmdCB($CA_GETDEAD)
        If $cbVar[0] = 1 Then ExitLoop
        CmdCB($CA_GETSKILL, -2)
        If $cbVar[0] = 0 AND TimerDiff($tDeadlock) > 1000 Then ExitLoop
        CmdCB($CA_SKILLRECHARGE, $iSkillSlot)
    Until $cbVar[0] <> 0 OR TimerDiff($tDeadlock) > 15000

    $cbType = $oldCbType
EndFunc

Func _GWCAMemOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $iv_InheritHandle = 1)
    If Not ProcessExists($iv_Pid) Then
        SetError(1)
        Return 0
    EndIf

    Local $ah_Handle[2] = [DllOpen('kernel32.dll')]

    If @Error Then
        SetError(2)
        Return 0
    EndIf

    Local $av_OpenProcess = DllCall($ah_Handle[0], 'int', 'OpenProcess', 'int', $iv_DesiredAccess, 'int', $iv_InheritHandle, 'int', $iv_Pid)

    If @Error Then
        DllClose($ah_Handle[0])
        SetError(3)
        Return 0
    EndIf

    $ah_Handle[1] = $av_OpenProcess[0]
    Return $ah_Handle
EndFunc

Func _GWCAMemClose($ah_Handle)
    If Not IsArray($ah_Handle) Then
        SetError(1)
        Return 0
    EndIf

    DllCall($ah_Handle[0], 'int', 'CloseHandle', 'int', $ah_Handle[1])
    If Not @Error Then
        DllClose($ah_Handle[0])
        Return 1
    Else
        DllClose($ah_Handle[0])
        SetError(2)
        Return 0
    EndIf
EndFunc


Func _GWCAMemWrite($iv_Address, $ah_Handle, $v_Data, $sv_Type = 'dword')
    If Not IsArray($ah_Handle) Then
        SetError(1)
        Return 0
    EndIf

    Local $v_Buffer = DllStructCreate($sv_Type)

    If @Error Then
        SetError(@Error + 1)
        Return 0
    Else
        DllStructSetData($v_Buffer, 1, $v_Data)
        If @Error Then
            SetError(6)
            Return 0
        EndIf
    EndIf

    DllCall($ah_Handle[0], 'int', 'WriteProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

    If Not @Error Then
        Return 1
    Else
        SetError(7)
        Return 0
    EndIf
EndFunc

Func _GWCAMemRead($iv_Address, $ah_Handle, $sv_Type = 'dword')
    If Not IsArray($ah_Handle) Then
        SetError(1)
        Return 0
    EndIf

    Local $v_Buffer = DllStructCreate($sv_Type)

    If @Error Then
        SetError(@Error + 1)
        Return 0
    EndIf

    DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

    If Not @Error Then
        Local $v_Value = DllStructGetData($v_Buffer, 1)
        Return $v_Value
    Else
        SetError(6)
        Return 0
    EndIf
EndFunc

Func SendChat($hprocess, $Message)
    Local $ownHandle = True

    If Not IsArray($hprocess) Then
        $hprocess = _GWCAMemOpen($hprocess)
        If Not IsArray($hprocess) Then Return
        $ownHandle = False
    EndIf

    $oldCbType = $cbType
    $cbType = "int"

    $StringLen = StringLen($Message)
    $MemPtr = CmdCB($CA_AllocMem, ($StringLen + 1) * 2)
    $MemPtr = $MemPtr[0]

    _GWCAMemWrite($MemPtr, $hprocess, $Message, "wchar[" & $StringLen + 1 & "]")

    Cmd($CA_SendChat, $MemPtr)

    If $MemPtr <> 0 Then Cmd($CA_FreeMem, $MemPtr)
    If Not $ownHandle Then _GWCAMemClose($hprocess)

    $cbType = $oldCbType
EndFunc

Func GetPlayerName($iAgent = -2)
    Local $sRet = ""

    $oldCbType = $cbType

    $cbType = "int"
    CmdCB($CA_GetName, $iAgent)
    If Not @error AND $cbVar[0] <> 0 Then
        $ahHndl = _GWCAMemOpen(WinGetProcess($sGW))
        If Not @error Then
            $sRet = _GWCAMemRead($cbVar[0], $ahHndl, "wchar[24]")
            _GWCAMemClose($ahHndl)
        EndIf
    EndIf

    $cbType = $oldCbType

    Return $sRet
EndFunc

Func RechargeTimeLeft($iSkillSlot)
    Local $iRet = 0

    $oldCbType = $cbType

    $cbType = "int"

    $aRecharge = CmdCB($CA_SkillRecharge, $iSkillSlot)
    $aTimeStamp = CmdCB($CA_GetTimeStamp)
    If $aRecharge[0] = 0 Then
        $iRet = 0
    Else
        $iRet = ($aRecharge[0] - $aTimeStamp[0])
    EndIf

    $cbType = $oldCbType

    Return $iRet
EndFunc

Func HeroRechargeTimeLeft($iHeroIndex, $iSkillSlot)
    Local $iRet = 0

    $oldCbType = $cbType

    $cbType = "int"

    $aRecharge = CmdCB($CA_GetHeroSkillRecharge, $iHeroIndex, $iSkillSlot)
    $aTimeStamp = CmdCB($CA_GetTimeStamp)
    If $aRecharge[0] = 0 Then
        $iRet = 0
    Else
        $iRet = ($aRecharge[0] - $aTimeStamp[0])
    EndIf

    $cbType = $oldCbType

    Return $iRet
EndFunc

Func PingSleep($msExtra = 0)
    $oldCbType = $cbType

    $cbType = "int"
    CmdCB($CA_GetPing)
    Sleep($cbVar[0] + $msExtra)

    $cbType = $oldCbType
EndFunc

Func WriteWhisper($hprocess, $Name, $Message)
    Local $ownHandle = True

    If Not IsArray($hprocess) Then
        $hprocess = _GWCAMemOpen($hprocess)
        If Not IsArray($hprocess) Then Return
        $ownHandle = False
    EndIf

    $oldCbType = $cbType
    $cbType = "int"

    $StringLen = StringLen($Name)
    $MemPtr = CmdCB($CA_AllocMem, ($StringLen + 1) * 2)
    $MemPtr = $MemPtr[0]

    $StringLen2 = StringLen($Message)
    $MemPtr2 = CmdCB($CA_AllocMem, ($StringLen2 + 1) * 2)
    $MemPtr2 = $MemPtr2[0]

    _GWCAMemWrite($MemPtr, $hprocess, $Name, "wchar[" & $StringLen + 1 & "]")
    _GWCAMemWrite($MemPtr2, $hprocess, $Message, "wchar[" & $StringLen2 + 1 & "]")

    Cmd($CA_WriteWhisper, $MemPtr2, $MemPtr)

    If $MemPtr <> 0 Then Cmd($CA_FreeMem, $MemPtr)
    If $MemPtr2 <> 0 Then Cmd($CA_FreeMem, $MemPtr2)

    If Not $ownHandle Then _GWCAMemClose($hprocess)

    $cbType = $oldCbType
EndFunc

Func ZoneMapEx($iMapId, $iRegion, $iLanguage)
    Cmd($CA_PrepareZoneMapEx, $iMapId)
    Cmd($CA_ZoneMapEx, $iRegion, $iLanguage)
EndFunc

; END OF FILE 


Währe schön wenn sich das mal jemand angucken könnte, da der Drachenmoos Bot von Dani ja nicht mehr verfügbar ist

[Deset]

da ist ein ganz einfacher fehler drin.
relativ am anfang im GUI bereich sind ein paar zeilen hintereinander die mit ";~" anfangen. das musst du entfernen dann geht der error weg. Außerdem ist das GUI unsauber, weil 2 Labels übereinander liegen.

edit:
habs mal überarbeitet sodass du den fehler nicht mehr hast und die beiden sachen nicht mehr übereinander liegen.

#include "GWCAConstants.au3"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <Date.au3>

Global $BotRunning = False, $Time, $Stopped = 0, $hour, $mins, $secs, $dead, $alltime = 0, $timeStart, $TotalRuns, $Successfull, $failed, $totaltime, $besttime, $worsttime, $averagetime, $storegolds, $disablegraphics, $charname
Opt("GUIOnEventMode", 1)
$GUI = GUICreate("Dragon Moss Bot", 303, 363, 848, 188)
GUICtrlCreateGroup(" Status : Runs ", 176, 8, 113, 81)
GUICtrlCreateLabel("Total Runs:", 192, 32, 59, 17)
GUICtrlCreateLabel("Successful:", 192, 48, 59, 17)
GUICtrlSetColor(-1, 0x008000)
GUICtrlCreateLabel("Failed:", 192, 64, 35, 17)
GUICtrlSetColor(-1, 0x800000)
$GUi_TotalRuns = GUICtrlCreateLabel("0", 254, 32, 20, 17, $SS_RIGHT)
$GUI_Successfull = GUICtrlCreateLabel("0", 254, 48, 20, 17, $SS_RIGHT)
$GUI_Failed = GUICtrlCreateLabel("0", 254, 64, 20, 17, $SS_RIGHT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Status : Time ", 8, 88, 281, 65)
GUICtrlCreateLabel("Total:", 24, 112, 31, 17)
GUICtrlCreateLabel("Best:", 24, 128, 28, 17)
GUICtrlSetColor(-1, 0x008000)
GUICtrlCreateLabel("Worst:", 168, 128, 35, 17)
GUICtrlSetColor(-1, 0x800000)
$GUI_TotalTime = GUICtrlCreateLabel("0", 70, 112, 60, 17, $SS_RIGHT)
$GUI_BestTime = GUICtrlCreateLabel("0", 70, 128, 60, 17, $SS_RIGHT)
$GUI_WorstTime = GUICtrlCreateLabel("0", 214, 128, 60, 17, $SS_RIGHT)
GUICtrlCreateLabel("Average:", 168, 112, 47, 17)
$GUI_AverageTime = GUICtrlCreateLabel("0", 214, 112, 60, 17, $SS_RIGHT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("Dragon Moss Bot", 16, 24, 148, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("By Nicolas210", 48, 56, 90, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("Config : General ", 8, 152, 281, 123)
GUICtrlCreateLabel("Name :", 18, 234, 53, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$GUI_CHARNAME = GUICtrlCreateInput("My Char Name", 74, 234, 209, 21)
Global $GUI_CHARNAME = GUICtrlCreateCombo("", 18, 170, 192, 21, BitOR(3, 64))
GUICtrlSetTip(-1, "Choose which instance of the game you want to use")
Global $GUI_BUTTON_REFRESH = GUICtrlCreateButton("Refresh", 215, 169, 70, 23, 0)
GUICtrlSetOnEvent(-1, "gui_eventHandler")
$GUI_DisableGraphics = GUICtrlCreateCheckbox("Disable graphics", 18, 198, 105, 17, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_RIGHT))
GUICtrlSetOnEvent(-1, "gui_eventHandler")
$GUI_StoreGolds = GUICtrlCreateCheckbox("Store golds items", 146, 198, 105, 17, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_RIGHT))
GUICtrlSetOnEvent(-1, "gui_eventHandler")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Status : Current Action ", 8, 276, 281, 49)
$GUI_CurrentAction = GUICtrlCreateLabel("Script not started yet", 16, 300, 250, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GUI_ButtonStart = GUICtrlCreateButton("Start", 8, 332, 283, 25)
GUICtrlSetOnEvent(-1, "gui_eventHandler")
GUISetOnEvent($GUI_EVENT_CLOSE, "gui_eventHandler")
GUISetState(@SW_SHOW)

Func GUI_EVENTHANDLER()
    Switch (@GUI_CtrlId)
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_ButtonStart
            If $BotRunning = False Then
                $TimeStart = TimerInit()
                $BotRunning = True
                $Stopped = 0
                $TotalRuns = 0
                $Successfull = 0
                $failed = 0
                $TotalTime = 0
                $WorstTime = 0
                $BestTime = 0
                $AverageTime = 0
                $storegolds = GUICtrlRead($GUI_StoreGolds)
                $DisableGraphics = GUICtrlRead($GUI_DisableGraphics)
                $CHARNAME = GUICtrlRead($GUI_CHARNAME)
                GUICtrlSetState($GUI_CHARNAME, $GUI_DISABLE)
                GUICtrlSetState($GUI_BUTTON_REFRESH, $GUI_DISABLE)
                GUICtrlSetData($GUI_ButtonStart, "Stop")
                _GWCA_CLOSESTREAM()
                If $CHARNAME = "" Then
                    $SGW = "Guild Wars -"
                Else
                    $SGW = $CHARNAME
                EndIf
                GUICtrlSetData($GUI_TotalRuns, 0)
                GUICtrlSetData($GUI_Successfull, 0)
                GUICtrlSetData($GUI_Failed, 0)
                GUICtrlSetData($GUI_TotalTime, 0)
                GUICtrlSetData($GUI_WorstTime, 0)
                GUICtrlSetData($GUI_BestTime, 0)
                GUICtrlSetData($GUI_AverageTime, 0)
                $cbType = "int"
                $map = CmdCB($CA_GetMapId)
                If $map[0] <> 349 Then
                    GuiUpdateStatus("Traveling to outpost")
                    TravelTo(349)
                    Do
                        $cbType = "int"
                        $hp = cmdCB($CA_GetMyMaxHP)
                        $map = CmdCB($CA_GetMapId)
                        sleep(250)
                    Until $hp[0] <> 0 And $map[0] = 349
                EndIf
                
            Else
                $BotRunning = False
                GUICtrlSetState($GUI_CHARNAME, $GUI_ENABLE)
                GUICtrlSetState($GUI_BUTTON_REFRESH, $GUI_ENABLE)
                GUICtrlSetData($GUI_ButtonStart, "Start")
                GUICtrlSetState($GUI_ButtonStart, $GUI_DISABLE)
                $Stopped = 1
                GuiUpdateStatus("Bot will stop after this run.")
            EndIf
        Case $GUI_DisableGraphics
            $DisableGraphics = GUICtrlRead($GUI_DisableGraphics)
            $CHARNAME = GUICtrlRead($GUI_CHARNAME)
            If $CHARNAME = "" Then
                $SGW = "Guild Wars -"
            Else
                $SGW = $CHARNAME
            EndIf
            If $DisableGraphics = $GUI_CHECKED Then
                WinSetState($SGW, "", @SW_HIDE)
                CMD($CA_SETENGINEHOOK, 1)
            Else
                CMD($CA_SETENGINEHOOK, 0)
                WinSetState($SGW, "", @SW_SHOW)
            EndIf
        Case $GUI_StoreGolds
            $StoreGolds = GUICtrlRead($GUI_StoreGolds)
    EndSwitch
EndFunc

Func GuiUpdateStatus($msg)
    GUICtrlSetData($GUI_CurrentAction, $msg)
EndFunc

Func KeepBuff()
    $old_cbtype = $cbType
    If $dead Then Return
    $cbType = "float"
    $sh = CmdCB($CA_GetEffectDuration, 299)
    $sa = CmdCB($CA_GetEffectDuration, 1399)
    $ps = CmdCB($CA_GetEffectDuration, 245)
    If $ps[1] < 7500 Then UseSkill(1)
    If $sh[1] < 3000 And $sa[1] < 3000 Then 
        $cbType = "int"
        $sh1 = CmdCB($CA_SkillRecharge, 2)        
        $sa1 = CmdCB($CA_SkillRecharge, 3)
        If $sh1[0] = 0 Then 
            UseSkill(2)
        ElseIf $sa1[0] = 0 Then 
            UseSkill(3)
        EndIf
    EndIf
    $cbType = $old_cbtype
EndFunc ; => KeepBuff : Maintenir main du prot + Bouclier d'abso + esprit prot.

Func UseSkill($slot)
    $old_cbtype = $cbType
    $cbType = "int"
    CmdCB($CA_SkillRecharge, $slot)
    If $cbVar[0] = 0 And $dead = 0 Then
        Cmd($CA_UseSkill, $slot)
        $blurp2 = TimerInit()
        Do
            $cbType = "int"
            CmdCB($CA_SkillRecharge, $slot)
            Sleep(250)
        Until $cbVar[0] <> 0 Or TimerDiff($blurp2) > 2500
    EndIf
    $cbType = $old_cbtype
EndFunc ; => UseSkill : Utiliser un skill s'il est recast et attendre qu'il soit en recast (donc utilis?

Func DeathCheck()
    $old_cbtype = $cbType
    If $dead = 0 Then
        $cbType = "float"
        CmdCB($CA_GetDead)
        If $cbVar[0] = 1 Or TimerDiff($runTime) > 150000 Then $dead = 1
    EndIf
    $cbType = $old_cbtype
EndFunc ; => DeathCheck : Check si t'es mort !

Func Timer()
    _TicksToTime(Int(TimerDiff($timestart)), $Hour, $Mins, $Secs )
  Local $sTime = $TotalTime; save current time to be able to test and avoid flicker..
  $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
  GUICtrlSetData($GUI_TotalTime, $Time)
EndFunc

Func Farm()
    $dead = 0
    Global $runTime = TimerInit()
    GuiUpdateStatus("Going out and waiting for map load")
    MoveEx(-11242, -23500)
    Do
        $cbType = "int"
        $hp = cmdCB($CA_GetMyMaxHP)
        $map = CmdCB($CA_GetMapId)
        sleep(250)
    Until $hp[0] <> 0 And $map[0] = 195
    Sleep(2500)
    GuiUpdateStatus("Putting ench 7")
    $cbType = "int"
    Do
        UseSkill(7) ; buffs
        CmdCB($CA_GetEffectCount)
    Until $cbVar[0] = 2
    GuiUpdateStatus("Putting ench 8")
    Do
        UseSkill(8) ; buffs
        CmdCB($CA_GetEffectCount)
    Until $cbVar[0] = 3 ; buffs
    GuiUpdateStatus("Moving to waypoint: FarmSpot 1")
    MoveToEx(-8789.9,18906.1) ; move 1
    GuiUpdateStatus("Moving to waypoint: FarmSpot 2")
    MoveToEx(-8102.6,18965.2) ; move 2
    GuiUpdateStatus("Moving to waypoint: FarmSpot 3")
    MoveToEx(-7618,18600) ; move 3
    GuiUpdateStatus("Moving to waypoint: FarmSpot 4")
    MoveToEx(-7249.8,18406.8) ; move 4
    GuiUpdateStatus("Moving to waypoint: FarmSpot 5")
    MoveToEx(-6573,17207) ; adlib
    GuiUpdateStatus("Putting protection ench")
    AdlibRegister("KeepBuff", 1000)
    AdlibRegister("DeathCheck", 1000)
    GuiUpdateStatus("Moving to waypoint: Aggro 1")
    If $dead = 0 Then MoveToEx(-5948.5,16253.3) ; aggro 1
    GuiUpdateStatus("Moving to waypoint: Aggro 2")
    If $dead = 0 Then MoveToEx(-5092.1,15772.3) ; aggro    2
    GuiUpdateStatus("Moving to waypoint: Back 1")
    If $dead = 0 Then MoveToEx(-6271,16624) ; back
    GuiUpdateStatus("Moving to waypoint: Back 2")
    If $dead = 0 Then MoveToEx(-7134.1,17502.2) ; back 2
    GuiUpdateStatus("Moving to waypoint: Back 3")
    If $dead = 0 Then MoveToEx(-7436,18397.9) ; back 3
;~     If $dead = 0 Then MoveToEx(-6718,17760) ; bad waypont, dont work
;~     If $dead = 0 Then MoveToEx(-6418.3,16931.7) ; bad waypont too
    
    GuiUpdateStatus("Killing all Dragon Moss")
    Do
        $cbType = "float"
        $sh2 = CmdCB($CA_GetEffectDuration, 299)
        $sa2 = CmdCB($CA_GetEffectDuration, 1399)
        $ps2 = CmdCB($CA_GetEffectDuration, 245)
        If ($sh2[1] > 6000 Or $sa2[1] > 6000) And $ps2[1] > 12000 Then
            If $dead = 0 Then UseSkill(4)
            If $dead = 0 Then UseSkill(5)
        EndIf
        $cbType = "int"
        $soj = CmdCB($CA_SkillRecharge, 5)
    Until $soj[0] <> 0 Or $dead = 1

    $blurp = TimerInit()
    While TimerDiff($blurp) < 17000 And $dead = 0
        Sleep(100)
    WEnd
    If $dead = 0 Then UseSkill(4)
    
    $timetokill = TimerInit()
    Do
        UseSkill(6)
        sleep(1000)
        If TimerDiff($timetokill) > 25000 Then UseSkill(5)
        $cbType = "float"
        CmdCB($CA_GetNearestAliveEnemyToAgent, -2)
        $distance = $cbVar[1]
    Until $distance > 1800 Or $dead = 1 Or TimerDiff($timetokill) > 60000
    
    AdlibUnRegister("KeepBuff")
    
    GuiUpdateStatus("Picking up items")
    $nbItems = 0
    $deadlock = TimerInit()
    Do
        $cbType = "int"
        $item = CmdCB($CA_GetNearestItemToAgentEx, -2)
        If $item[0] = 0 Or _INTTOFLOAT($item[1]) > 1700 Or TimerDiff($deadlock) > 30000 Then ExitLoop
        Cmd($CA_PickupItem, $item[0])
        $deadlock2 = TimerInit()
        Do
            Sleep(500)
            CmdCB($CA_GetAgentExist, $item[0])    
            If TimerDiff($deadlock2) > 5000 Then ContinueLoop 2
        Until $cbVar[0] = 0
        $nbItems += 1
    Until $nbItems = -1    Or $dead = 1
    
    AdlibUnRegister("DeathCheck")
    
    GuiUpdateStatus("Traveling to outpost")
    Travel(349)
EndFunc

Func StoreGolds()
    GuiUpdateStatus("Going to storage")
    $cbType = "int"
    $storage = GetNearestNpcToCoords(8027, -18227)
    Cmd($CA_GONPC, $storage)
    Sleep(10000)
    
    GuiUpdateStatus("Storing golds")
    For $bag = 0 To 4
        
        $cbType = "int"
        $bagsize = CmdCB($CA_GetBagSize, $bag)
            
        For $slot = 0 to $bagsize[0]
            $cbType = "int"
            CmdCB($CA_GetItemInfo, $slot, $bag)        
            If $cbvar[0] = 64 Then
                $cbType = "int"
                $emptystorage = CmdCB($CA_FindEmptySlot,8)      
                MoveItem($bag, $slot, $emptystorage[0], $emptystorage[1])
                sleep(500)
            EndIf        
        Next
    Next
EndFunc ; => StoreGolds().

Func CountSlots()
    Local $temp = 0
    $cbType = "int"
    $Bag1 = CmdCB($CA_GetBagSize, 1)
    $temp += $Bag1[0] - $Bag1[1]
    $Bag2 = CmdCB($CA_GetBagSize, 2)
    $temp += $Bag2[0] - $Bag2[1]
    $Bag3 = CmdCB($CA_GetBagSize, 3)
    $temp += $Bag3[0] - $Bag3[1]
    $Bag4 = CmdCB($CA_GetBagSize, 4)
    $temp += $Bag4[0] - $Bag4[1]
    Return $temp
EndFunc

Func Mercant()
    GuiUpdateStatus("Going To Mercant")
    $mercant = GetNearestNPCToCoords(11040,-18944)
    Cmd($CA_GoNPC, $mercant)
    Sleep(10000)
    Dim $item[10][25][5]
    For $bag = 0 To 4
        $cbType = "int"
        $bagsize = CmdCB($CA_GetBagSize, $bag)
        For $slot = 0 to $bagsize[0]
            $cbType = "int"
            CmdCB($CA_GetItemId, $slot, $bag)
            $item[$bag][$slot][0] = $cbVar[0] ; => item ID
            $item[$bag][$slot][1] = $cbVar[1] ; => item ModelId
            CmdCB($CA_GetItemInfo, $slot, $bag)
            $item[$bag][$slot][2] = $cbVar[0] ; => item Rarity
            CmdCB($CA_GetItemReq, $slot, $bag)
            $item[$bag][$slot][3] = $cbVar[0] ; => item req
        Next
    Next
    
    GuiUpdateStatus("Identifying all items")
    If CountSlots() = 0 Then Cmd($CA_SellItem, 4, 9)
    If CountSlots() = 0 Then Cmd($CA_SellItem, 4, 8)
        For $bag = 0 To 4
        $cbType = "int"
        $bagsize = CmdCB($CA_GetBagSize, $bag)
        For $slot = 0 to $bagsize[0]
            $cbType = "int"
            CmdCB($CA_GetIdKit)
            If $cbVar[0] = 0 Then
                Cmd($CA_BuyIdKit)
                Sleep(Random(500,1000))
                CmdCB($CA_GetIdKit)
                Sleep(Random(500,1000))
                MoveItemById($cbVar[0], 4, 1) ;Move IDKit to Spot (4, 1)
                Sleep(Random(500,1000))
            EndIf
            
            If $item[$bag][$slot][2] <> 64 Or $storegolds <> $GUI_Checked Then Cmd($CA_IdentifyItem, $bag, $slot)
            Sleep(Random(290, 310))
        Next
    Next

    GuiUpdateStatus("Selling all items")
    For $bag = 0 To 4
        $cbType = "int"
        $bagsize = CmdCB($CA_GetBagSize, $bag)
        For $slot = 0 to $bagsize[0]
            If $item[$bag][$slot][2] <> 64 Or $storegolds <> $GUI_Checked Then
                If ($item[$bag][$slot][1] <> 934 Or $item[$bag][$slot][3] <> 0)  And $item[$bag][$slot][1] <> 956 And $item[$bag][$slot][1] <> 819 And $item[$bag][$slot][1] <> 146 Then
                    Cmd($CA_SellItem, $bag, $slot)
                    Sleep(Random(500,750))
                EndIf
            EndIf
        Next
    Next
EndFunc

Func OutPost()
    If CountSlots() < 4 Then
        Travel(284)
        If $storegolds = $GUI_Checked Then    StoreGolds()
        Mercant()
        Travel(349)
    EndIf
EndFunc

Func Travel($outpost)
    TravelTo($outpost)
    Do
        $cbType = "int"
        $hp = cmdCB($CA_GetMyMaxHP)
        $map = CmdCB($CA_GetMapId)
        sleep(250)
    Until $hp[0] <> 0 And $map[0] = $outpost
    Sleep(2000)
EndFunc

Func UpdateStats()
    $TotalRuns += 1
;~     $TotalTime = TimerDiff($TimeStart)/60000
    If $dead = 0 Then
        $Successfull += 1
        $AllTime += TimerDiff($runTime)
        If $totalRuns = 1 Then $BestTime = Ceiling(TimerDiff($runTime)/1000)
        If TimerDiff($runTime)/1000 > $WorstTime Then $WorstTime = Ceiling(TimerDiff($runTime)/1000)
        If TimerDiff($runTime)/1000 < $BestTime Then $BestTime = Ceiling(TimerDiff($runTime)/1000)
    Else
        $Failed += 1
    EndIf
    $AverageTime = Ceiling($AllTime/(1000*$Successfull))
    
    GuiUpdateStatus("Updating Stats")
    GUICtrlSetData($GUI_TotalRuns, $TotalRuns)
    GUICtrlSetData($GUI_Successfull, $Successfull)
    GUICtrlSetData($GUI_Failed, $Failed)
;~     GUICtrlSetData($GUI_TotalTime, $TotalTime & " min")
    GUICtrlSetData($GUI_WorstTime, $WorstTime & " secs")
    GUICtrlSetData($GUI_BestTime, $BestTime & " secs")
    GUICtrlSetData($GUI_AverageTime, $AverageTime & " secs")
EndFunc

Func PurgeEngineHook()
    CMD($CA_SETENGINEHOOK, 0)
    Sleep(150)
    CMD($CA_SETENGINEHOOK, 1)
    GuiUpdateStatus("Purging Engine Hook")
EndFunc

Func HM()
    Cmd($CA_SwitchMode, 1)
    GuiUpdateStatus("Switching to Hard Mode")    
EndFunc

While 1
    If $BotRunning Then
        AdlibRegister("timer", 500)
        If $DisableGraphics = $GUI_CHECKED Then PurgeEngineHook()
        HM()
        OutPost()
        Farm()
        UpdateStats()
        AdlibUnRegister("timer")
    EndIf
    
    If $Stopped =1 Then 
        GuiUpdateStatus("Script not started yet")
        GUICtrlSetState($GUI_ButtonStrat, $GUI_ENABLE)
        $Stopped = 0
    EndIf
WEnd