//Message(x,y,width,height,text,color,speed)
var i,a,j,h,oc; i=0;a="";h=0;

if !variable_global_exists("font") global.font=(font0) //Load the font if we haven't already

//Step one - wrap the text
for (j=0;j<string_length(argument4);j+=1){ //Go slowly through the text
  if string_width(string_copy(argument4,0,j))>argument2 {  //If the text so far is too long
   for (h=j;h>0;h-=1) { if (string_char_at(argument4,h)=" " or j-h>20) break; } //Go *back* in a loop until we hit a space, then break at that point
   if j-h>20 { while string_width(string_copy(argument4,0,h+2))<argument2 { h+=1 } }
   argument4=string_insert("#",argument4,h+1); //Add the return character, then
   j+=1;
  }
}

//Step two - draw the text
draw_sprite(sprMessageBox,0,argument0,argument1)
while i<=string_length(argument4) and string_count("#",a)<argument3{
a=string_copy(argument4,0,i) //Take the section of text
draw_text(argument0+7,argument1+7,a)
i+=1;
screen_refresh()
sleep((100-(70*keyboard_check(vk_space)))/argument6) //Space - the key to skip text
}

//Step three - continue if there's more to say
a=string_copy(argument4,i,(string_length(argument4)-i)+1) //Find remaining text
a=string_replace_all(a,"#","") //Remove new-line markings so it can recalculate them on the next run
if a!="" {
draw_sprite(sprTextMore,0,argument0+128,argument1+64)
screen_refresh()
keyboard_wait() //Don't go on yet...
scrTText(argument0, argument1, argument2, argument3, a, argument5, argument6) //Call it with the same but the text
}else keyboard_wait() //Else it's over and just hold the scree

//Quicker than typing all the info each time
//Message(message)
scrTText(32,160,242,3,argument0,c_white,5)