Func PickUpDungeonKey()
    Update("Picking Up Dungeon Key")
    MoveTo(-13174, 2951)
    $Key = GetAgentByName("Dungeon Key")
    If GetDistance($Key) < 4000 Then
        GoToSignpost($Key)
        PickUpItem($Key)
        RndSleep(1000)
    Else
        Resign()
    EndIf
EndFunc