Automatic word wrapping

ww.dnh

// because mkm was a dumbo at word wrapping
// THAT'S IT, FUCK MANUAL WORD WRAPPING
function ObjText_SetTextWW(text, string, maxWidth) {
	let right = 0;
	let lastSpace = -1;
	ObjText_SetText(text, "d"); // Great. Now you just barred all chance of supporting proportional fonts.
	let charWidth = ObjText_GetTotalWidth(text);
	let maxStrLen = maxWidth / charWidth;
	WriteLog(maxStrLen);
	let len = length(string);
	let prog = "";
	let saved = "";
	let cw = 0;
	let prevls = 0;
	while (right < len) {
		let c = string[right];
		if (c == ' ') {lastSpace = right; prog = prog ~ " "; saved = prog;}
		else if (c == '&') {
			while (string[right] != ';') {prog = prog ~ [string[right]]; right++; cw++;}
			prog = prog ~ ";";
		}
		else if (c == '[') {
			let tagCons = "";
			while (string[right] != ']') {
				prog = prog ~ [string[right]];
				tagCons = tagCons ~ [string[right]];
				right++; cw++;
			}
			prog = prog ~ "]";
			WriteLog(tagCons);
			if (tagCons == "[r") {
				lastSpace = right;
				saved = prog;
				cw = 0;
			}
		}
		else {prog = prog ~ [c];}
		ObjText_SetText(text, prog);
		if (cw > maxStrLen) {
			if (prevls != lastSpace) {
				prog = saved ~ "[r]";
				right = lastSpace;
				prevls = lastSpace;
			}
			cw = 0;
		}
		right++;
		cw++;
	}
	ObjText_SetText(text, prog);
}