// Устанавливаем мышь в границах игрового окна
window_mouse_set(clamp(window_mouse_get_x(), 0, window_get_width()), clamp(window_mouse_get_y(), 0, window_get_height()));

// Пример из справки
var i;
for (i = 0; i < instance_number(obj_Enemy); i += 1)
   {
   enemy[i] = instance_find(obj_Enemy,i);
   }

// Объявляем массив с объектами для наглядности
objects[0] = obj_knight;
objects[1] = obj_mage;
objects[2] = obj_thief;

// Создаём стэк и заполняем его нужными нам свойствами
attributes_stack = ds_stack_create();
ds_stack_push( attributes_stack, "Health", "Stamina", "Mana", "Stealth",  "Science", "Intellect", "Luck" );

// Распихиваем свойства
do
{
        var obj = irandom( array_length_1d( objects ) - 1)          // Получаем id случайного объекта из массива выше              
        var inst = irandom( instance_number( objects[obj] ) - 1)    // Получаем id случайного экземпляра объекта, выбранного выше
        var inst_temp = instance_find( objects[obj], inst );        // Находим экземпляр
        
        if (is_undefined( inst_temp.map_id ))                       // Если у экземпляра ещё нет "карты"...
            inst_temp.map_id = ds_map_create()                      // ...то создаём "карту" и присваиваем идентификатор экземпляру
            
        ds_map_add( inst_temp.map_id, ds_stack_pop( attributes_stack ), irandom(10) );    // Добавляем в "карту" свойство из стека.
                    // Вместо стека можно использовать и очередь, и пронумерованную очередь...
                    // ...в общем, как захочется.               
}
until (!ds_stack_empty( attributes_stack ));                        // Повторяем действия до тех пор, пока стек не закончится

// Достаём свойства в специальной функции, которая возвращает false, если у экземпляра нет карты
{
        var obj = irandom( array_length_1d( objects ) - 1)          //  
        var inst = irandom( instance_number( objects[obj] ) - 1)    // Как и выше - получаем случайный экземпляр случайного объекта
        var inst_temp = instance_find( objects[obj], inst );        //
        
        if (is_undefined( inst_temp.map_id ))                       // Если "карты" для этого объекта нет, то выходим из функции
            return false;

        var ID, key, value;                    // Объявляем временные переменные, в которых будем хранить идентификатор, ключ и значение "карты"
        ID = inst_temp.map_id;                    // Получаем id "карты" - чисто для краткости написания
        key = ds_map_find_first(ID);                    // Получаем первый ключ "карты"

        for (var i = 0; i < ds_map_size(ID); i++)                   // Перебираем все ключи в "карте"
        {
             value = ds_map_find_value(ID, key);                    // Получаем значение по ключу
             show_debug_message( key + " : " + value );             // Выводим сообщение с "КЛЮЧ : ЗНАЧЕНИЕ" в консоле отладки
             key = ds_map_find_next(ID, key);                       // Получаем следующий ключ
        }
}

...
properties[1] = "Health";
properties[2] = 100;
properties[3] = "Mana";
properties[4] = 70;
...

GiveItem (char, items, rate)

name = "Sword";
cost = 200;
durability = 100;

global.GEMS = 0

if is_undefined(global.GEMS)
    global.GEMS = 0;

if is_undefined(A1L1_GEMS)
{A1L1_GEMS = 0;}
draw_text(160, 160, "A1L1 GEMS =:" + string(A1L1_GEMS));

globalvar SomeVariableName;

global.SomeVariableName = 0

globalvar GEMS;

globalvar GEMS; // я не могу задать, будет обнуляться
global.TOTAL_A1_GEMS = 0; // потом сложим
global.A1L1_GEMS = LEVEL_1_SYS.GEMS;
if (is_undefined(LEVEL_1_SYS.GEMS))
{LEVEL_1_SYS.GEMS = 0;}

GEMS = 0;

A1L1_GEMS = GEMS;