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

//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=font_add_sprite(sprFont,33,1,3) //Load the font if we haven't already
draw_set_font(font0)
oc=draw_get_color()
draw_set_color(argument5)
screen_redraw() //Clear the screen just in case  

//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+3,a)
sound_play(text)
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!="" {
sound_play(textarrow)
draw_sprite(sprTextMore,0,argument0+65,argument1+37)
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 screen until they wish to continue