file = file_text_open_read('text.txt')   
txtlol = file_text_read_string(file)

spr = sprite_add());

draw_sprite(spr, номер кадра, x, y);

// для движения
coef = 0.2; // значение, на которое будет меняться скорость при опр. действиях
max_speed = 5; // максимальная скорость
direction = 0; // направление движения
hspeed = 0; // стартовая горизонтальная скорость

// для стрельбы
time = 0; // обнуляем таймер

if (keyboard_check(vk_right)) // если зажата кнопка ВПРАВО
     {
     if (hspeed < max_speed) hspeed += coef // если горизонтальная скорость меньше максимальной, то увеличиваем её на указанное значение
     }
else
     if (hspeed > 0) hspeed -= coef; // если кнопка ВПРАВО отпущена и объект ещё движется, то уменьшаем горизонтальную скорость на указанное значение
      
time += 1; // считаем "шаги"
if (time == room_speed) // если их кол-во достигло кол-ва шагов, содержащихся в 1 секунде
     {
     instance_create(x, y, object); // создаем объект пули
     time = 0; // обнуляем таймер
     }

bool ObjectSetSprite(short objID, short sprID)  
{  
if (objID < nom && sprID < Nspr)  
   {  
   hgeSprite *_spr = new hgeSprite(*Sprite[sprID]);  
   Object[objID]->sprite_index = _spr;  
   delete _spr; // эта строчка даёт сбой  
   _spr = 0;  
   return true;  
   }  
else return false;  
}

bool ObjectSetSprite(short objID, short sprID)
{
if (objID < nom && sprID < Nspr)
  {
  hgeSprite *spr = new hgeSprite(*Sprite[sprID]);
  Object[objID]->sprite_index = spr;
  delete spr;
  spr = NULL;
  return true;
  }
else return false;
}

bool ObjectSetSprite(short objID, short sprID)
{
if (objID < nom && sprID < Nspr)
  {
  hgeSprite *_spr = new hgeSprite(*Sprite[sprID]);
  Object[objID]->sprite_index = _spr;
  delete _spr; // эта строчка даёт сбой
  _spr = 0;
  return true;
  }
else return false;
}

rectWidth = 100; // ширина области
rectLen = 200; // длина области

angle = point_direction(x, y, mouse_x, mouse_y); // вместо направления движения объекта

// ====== вычисление ограниченной прямоугольной области перед объектом =======
x1 = x + lengthdir_x(rectWidth / 2, angle + 90);
y1 = y + lengthdir_y(rectWidth / 2, angle + 90);

x2 = x + lengthdir_x(rectWidth / 2, angle - 90);
y2 = y + lengthdir_y(rectWidth / 2, angle - 90);

x3 = x1 + lengthdir_x(rectLen, angle);
y3 = y1 + lengthdir_y(rectLen, angle);

x4 = x2 + lengthdir_x(rectLen, angle);
y4 = y2 + lengthdir_y(rectLen, angle);
// ===========================================================================

// рисую круг вместо спрайта объекта
draw_circle(x, y, 3, false);

// визуальное представление области
draw_line(x, y, x1, y1);
draw_line(x, y, x2, y2);
draw_line(x1, y1, x3, y3);
draw_line(x2, y2, x4, y4);
draw_line(x3, y3, x4, y4);