Pixel-Composer/scripts/string_cut/string_cut.gml

function draw_text_cut(x, y, str, w, scale = 1) {
	draw_text_transformed(x, y, string_cut(str, w,, scale), scale, scale, 0);
}

function string_cut(str, w, tail = "...", scale = 1) {
	var ww   = 0;
	var ind  = 1;
	var ss   = "";
	var _str = str;
	var tw = string_width(tail) * scale;
	if(string_width(str) <= w) return str;
	
	var amo = string_length(str);
	for( var i = 1; i <= amo; i++ ) {
		var ch = string_char_at(str, 1);
		   str = string_copy(str, 2, string_length(str) - 1);
		
		var _w  = string_width(ch) * scale;
		ww += _w;
		
		var _tl = string_width(str) * scale;
		
		if(ww + tw > w)
			return ww + _tl <= w? _str : ss + tail;
		ss += ch;
	}
	
	return ss;
}

function string_cut_line(str, w) {
	var i  = 1;
	var ss = "";
	var ww = 0;
	
	while(i <= string_length(str) ) {
		var _chr = string_char_at(str, i);
		ss += _chr;
		
		ww += string_width(_chr);
		if(ww > w) {
			ww = 0;
			ss +=  "\n";
		}
		
		i++;
	}
	
	return ss;
}