i know im way too late, but it took me long to find the code because i had it on an old HDD.
Anyway if you wanna see another typewriter code, here it goes:
Code:
string getFileNum;
	string displayText;
	string typewriterText;

	function displayTextFromFile(file, number, textSpeed)
	{
		var fhandle;
		fhandle = file_open_read(file);
		// get number from the file
		str_cpy(getFileNum, str_for_num(NULL, number));
		str_cat(getFileNum, ": ");
		
		file_find(fhandle, getFileNum);
		file_str_read(fhandle, displayText);
		
		file_close(fhandle);
		
		var cutLength;
		var stringLength;
		stringLength = str_len(displayText);
		cutLength = stringLength;
		
		draw_textmode("Another Typewriter", 0, 38, 100); // set font
		// get position to place at middle
		var stringWidth;
		stringWidth = str_len(displayText) * (38/2);
		
		var stringPosX; stringPosX = (screen_size.x / 2) - (stringWidth / 2);
		var stringPosY; stringPosY = (screen_size.y * 0.90) - (38 / 2);
		
		while(1) {
			// check to see if it's a question, and allow this to break from key Y and N too
			if(key_y || key_n) {
				if(my){
					if(my.FLAG1 == 1) { break; }
				}
			}
			if(key_space) {
				if(my) {
					if(my.FLAG1 == 0) {
						break; 
					} 
					} else {
					break;
				}
			}
			
			cutLength -= textSpeed;
			cutLength = clamp(cutLength, 0, stringLength);
			str_cpy(typewriterText, displayText); // copy's file back again
			str_trunc(typewriterText, cutLength); // remove letters, to simulate typewriter effect
			
			draw_text(typewriterText, stringPosX, stringPosY, vector(255,255,255)); // draw text
			
			wait(1);
		}
	}



It reads the text out of a txt.file.
Code originaly written by helghast!