strings

Author: mstop4

current-scripts/Demos/useful-scripts/scripts/debugging/debugging.gml

@@ -1,6 +1,6 @@
 /// @func      print(value1[,value2,...])
 /// @desc      Syntactic sugar for show_debug_message
-/// @param {*} [value1]
+/// @param {*} value1
 /// @param {*} [value2]
 /// ...
 function print() {

current-scripts/Demos/useful-scripts/scripts/strings/strings.gml

@@ -0,0 +1,93 @@
+/// @func      concat(val1[, val2, ...])
+/// @desc      Concatenates a bunch of arguments into a string
+/// @param {*} value1
+/// @param {*} [value2]
+/// ...
+function concat() {
+	var _str = "";
+
+	for (var i=0; i<argument_count; i++) {
+		_str += string(argument[i]);
+	}
+
+	return _str;
+}
+
+
+/// @func         dialogue_line_breaker(str, max_width, font)
+/// @desc         Formats a long string so that it doesn't exceed max_width
+/// @arg {string} str        
+/// @arg {real}   max_width 
+/// @arg {Font}   font       
+function dialogue_line_breaker(_str, _max_width, _font) {
+	var _old_font = draw_get_font();
+	draw_set_font(_font);
+    
+	// check to see if the string is already short enough to fit on one line.
+	if (string_width(_str) <= _max_width)
+		return _str;
+    
+	var _out_str = "";
+	var _in_str_len = string_length(_str);
+	var _line_buffer = "";
+	var _word_buffer = "";
+	var _cur_char = "";
+    
+	// break up string into lines
+	for (var i=1; i<=_in_str_len; i++) {
+	  _cur_char = string_char_at(_str,i);
+        
+	  // manual line break
+	  if (_cur_char == "\n") {
+		  // if current line is too long, break it
+		  if (string_width(_line_buffer + _word_buffer) > _max_width) {
+		    _out_str += _line_buffer + "\n" + _word_buffer + "\n";
+			} else {
+		    _out_str += _line_buffer + _word_buffer + "\n";
+			}
+            
+		  _line_buffer = "";
+		  _word_buffer = "";
+	  } else if (_cur_char == " ") { // space
+			if (string_width(_line_buffer + _word_buffer + _cur_char) > _max_width) {
+	      _out_str += _line_buffer + _word_buffer + "\n";
+	      _line_buffer = "";
+	      _word_buffer = "";
+	    } else {
+	      _line_buffer += _word_buffer + _cur_char;
+	      _word_buffer = "";
+	    }    
+	  } else { // others
+	    if (string_width(_line_buffer + _word_buffer + _cur_char) > _max_width) {
+	      _out_str += _line_buffer + "\n";
+	      _line_buffer = "";
+	      _word_buffer += _cur_char;
+	    } else {
+	      _word_buffer += _cur_char;
+	    }   
+	  }
+        
+	  // end of line
+	  if (i == _in_str_len) {
+	    _out_str += _line_buffer + _word_buffer;
+	  }
+	}
+
+	draw_set_font(_old_font);
+
+	return _out_str;
+}
+
+/// @func          pad_string(str, char, position, width)
+/// @desc          Pads a string with char until it is a certain width
+/// @arg {string}  str
+/// @arg {string}  char
+/// @arg {integer} position
+/// @arg {real}    width
+function pad_string(_str, _char, _position, _width) {
+	while (string_width(_str + _char) < _width) {
+		_str = string_insert(_char, _str, _position);
+	}
+
+	return _str;
+}