scr_dialogbox

//made by Miles Lombardi
//argument0 = the text
//argument1 = whether or not to draw the box at the end
//argument2 = whether or not to initiate the text
//argument3 = whether or not to draw the text box
//argument4 = the font to use
//` = white text
//^ = red text
//{ = blue text
//} = green text
global.drawingtext = true //the game is drawing text
if argument2 = true //if it is the first time through
 {
  self.position = 1//set the position as 1
  self.done = false //the text isn't done
 }
global.text = argument0
global.more = argument1
global.font = spr_letters //set the font at the beggining of the script
//sets the postion of the pointer, so it knows how much text should be drawn
if keyboard_check(vk_enter) = true //if enter is pushed
 {
  self.done = true //you are done
  self.position = string_length(global.text) //end the text
  self.curstring = global.text //set the string to the text
  keyboard_clear(vk_enter) //stop generating events
 }
if self.done = false //if the text line isn't done
 {
  self.curstring = string_copy(global.text, 1, self.position) //the first line is a part of the actual first line
  if string_length(self.curstring) = string_length(global.text) //if the text is done
   {
    self.done = true //this line is done
    self.position = 1  //reset the start point
   }
 }
if self.done = false //if not all text is done
 {
  self.position += 1 //add one to the position
 }

//draws the important stuff
if argument3 = true //if you should draw the text box
 { 
  draw_sprite(spr_textbox, 0, view_xview[1] + 16, view_yview[1] + 160) //draw the text box
 }
self.pointx = 22 //a little to the right...
self.pointy = 166 //a little down...
for(i = 1; i < string_length(self.curstring) + 1; i += 1) //once for every character
 {
  self.lettertemp = string_copy(self.curstring, i, 1) //get the letter
  if self.pointx >= 290 //if it is too far over
   {
    self.pointx = 22 //go back a bit
    self.pointy += 16 //go down a line
   }
  if self.lettertemp <> " " and self.lettertemp <> "~" //if it isn't a space or a tilde
   {
    if self.lettertemp <> "`" and self.lettertemp <> "^" and self.lettertemp <> "{" and self.lettertemp <> "}" //if it's not changing the font
     {
      self.todraw = scr_getletter(self.lettertemp) //get the imagesingle of the value
      draw_sprite(global.font, self.todraw, view_xview[1] + self.pointx, view_yview[1] + self.pointy)
      self.pointx += 8//move over for the next letter
     }
    else //if it is changing the font
     {
      if self.lettertemp = "`" //set it white
       {
        global.font = spr_letters //sets it
       }
      if self.lettertemp = "^" //the caret
       {
        global.font = spr_letters//sets it
       }
      if self.lettertemp = "{" //blue
       {
        global.font = spr_letters //sets it
       }
      if self.lettertemp = "}" //green
       {
        global.font = spr_letters//sets it
       }
     }
   }
  if self.lettertemp = " " //if it is a space
   {
    self.pointx += 8 //move over for the next letter
   }
  if self.lettertemp = "~" //if it is a tilde
   {
    self.pointy += 16 //move down for the next letter
    self.pointx = 22 //reset to the start of the line
   }
 }
screen_refresh() //refreshes the screen so you can actually see it

if self.done = true and global.more = true //if we need to draw an arrow
 {
  draw_sprite(spr_textmore, 0, view_xview[1] + 155, view_yview[1] + 216) //draw the arrow
 }

if self.done = false //if the text isn't done
 {
   sound_play(snd_letter)
   sleep(30)
   scr_dialogbox(argument0, argument1, false, argument3) //do it all again
 }
else //yer done!
 {
  screen_refresh() //refresh the screen 
  keyboard_wait() //wait for the keyboard 
  sleep(30)
  keyboard_clear(vk_space)
  keyboard_clear(vk_shift)
  sound_stop(snd_letter)
  global.drawingtext = false //get on with your regular life
 }

___________________________________________________________________________________________________________________
scr_getletter:

//made by Miles Lombardi
letter = argument0
if ord(letter) >= ord("A") and ord(letter) <= ord("Z") //if it is an uppercase letter 
 {
  return (32 + (ord(letter) - ord("A"))) //return a value for the letter
 }
if ord(letter) >= ord("a") and ord(letter) <= ord("z") //if it is a lowercase letter
 {
  return (64 + (ord(letter) - ord("a"))) //return a value for the letter
 }
if letter = "!" //exclamation mark
 {
  return 0
 }
if letter = '"' //quotations
 {
  return 1 
 }
if letter = "#" //number sign
 {
  return 2
 }
if letter = "$" //dollar sign
 {
  return 3 
 }
if letter = "%" //percent sign
 {
  return 4
 }
if letter = "&" //ampersand
 {
  return 5
 }
if letter = "'" //semi-qute
 {
  return 6
 }
if letter = "(" //parentheses
 {
  return 7 
 }
if letter = ")" //parentheses
 {
  return 8
 }
if letter = "*" //asterisk
 {
  return 9
 }
if letter = "+" //plus sign
 {
  return 10
 }
if letter = "," //comma
 {
  return 11
 }
if letter = "-" //dash
 {
  return 12
 }
if letter = "." //period
 {
  return 13
 }
if letter = "/" //slash
 {
  return 14
 }
if letter = "0" //0
 {
  return 15
 }
if letter = "1" //1
 {
  return 16
 }
if letter = "2" //2
 {
  return 17 
 }
if letter = "3" //3
 {
  return 18
 }
if letter = "4" //4
 {
  return 19
 }
if letter = "5" //5
 {
  return 20
 }
if letter = "6" //6
 {
  return 21
 }
if letter = "7" //7
 {
  return 22
 }
if letter = "8" //8
 {
  return 23
 }
if letter = "9" //9
 {
  return 24
 }
if letter = ":" //colon
 {
  return 25
 }
if letter = ";" //semi colon
 {
  return 26
 }
if letter = "<" //less than
 {
  return 27
 }
if letter = "=" //equal to
 {
  return 28
 }
if letter = ">" //greater than
 {
  return 29
 }
if letter = "?" //question mark
 {
  return 30
 }
if letter = "@" //at sign
 {
  return 31
 }
if letter = "[" //bracket
 {
  return 58
 }
if letter = "\" //slash
 {
  return 59
 }
if letter = "]" //bracket
 {
  return 60
 }
if letter = "^" //carot
 {
  return 61
 }
if letter = "_" //underscore
 {
  return 62
 }
if letter = "'" //quotation mark
 {
  return 63
 }