Customizing Menu

[Hypershadow180]

This is a locked, single-post thread from Creation Asylum. Archived here to prevent its loss.
No support is given. If you are the owner of the thread, please contact administration.

Features:
Message Windowskin/Font/Fontsize
Menu Windowskin/Font/Fontsize
Toggle Between Fullscreen and 640 x 480
Message Text Color
Easy to Customize

Trying to Add:
Letter by Letter Mode On/Off
BGM/BGS/SE/ME Control Over Volume/Pitch

Screenshot

This is suppsed to go with Dubealex's Advanced Message Script.
This code should be inserted into a new script above "Main".

Call using:

Code:

$scene = Scene_Customize.new

Scene_Customize

Code:

#-----------------------------------------------------------------
#  Scene_Customize
#-----------------------------------------------------------------
#  By:  Hypershadow180
#-----------------------------------------------------------------
class Scene_Customize
#-----------------------------------------------------------------
#  Main
#-----------------------------------------------------------------
  def main
    s1 = "Screen Size"
    s2 = "Menu Skin"
    s3 = "Menu Font"
    s4 = "Menu Font Size"
    s5 = "Message Skin"
    s6 = "Message Font"
    s7 = "Message Font Size"
    s8 = "Message Color"
    s9 = "Cancel"
    @command_window = Window_Command.new(192, [s1, s2, s3, s4, s5, s6, s7, s8, s9])
    @command_window.x = 320 - @command_window.width / 2
    @command_window.y = 240 - @command_window.height / 2
    @menustuff_window = Window_MenuStuff.new
    @menustuff_window.x = 65
    @menustuff_window.y = 240 - @command_window.height / 2
    @messstuff_window = Window_MessageStuff.new
    @messstuff_window.x = 415
    @messstuff_window.y = 240 - @command_window.height / 2
    @messcolor_window = Window_MessageColor.new
    @messcolor_window.x = 415
    @messcolor_window.y = 368
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @command_window.dispose
    @menustuff_window.dispose
    @messstuff_window.dispose
    @messcolor_window.dispose
    if $scene.is_a?(Scene_Title)
      Graphics.transition
      Graphics.freeze
    end
  end
#-----------------------------------------------------------------
#  Update
#-----------------------------------------------------------------
  def update
    @command_window.update
    @menustuff_window.update
    @messstuff_window.update
    @messcolor_window.update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Menu.new
      return
    end
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0
        $game_system.se_play($data_system.decision_se)
        $showm = Win32API.new 'user32', 'keybd_event', %w(l l l l), ''
        $showm.call(18,0,0,0)
        $showm.call(13,0,0,0)
        $showm.call(13,0,2,0)
        $showm.call(18,0,2,0)
      when 1
        $game_system.se_play($data_system.decision_se)
        $scene = Scene_Windowskin.new
      when 2
        $game_system.se_play($data_system.decision_se)
        $scene = Scene_Font.new
      when 3
        $game_system.se_play($data_system.decision_se)
        $scene = Scene_FontSize.new
      when 4
        $game_system.se_play($data_system.decision_se)
        $scene = Scene_MessageSkin.new
      when 5
        $game_system.se_play($data_system.decision_se)
        $scene = Scene_MessageFont.new
      when 6
        $game_system.se_play($data_system.decision_se)
        $scene = Scene_MessageFontSize.new
      when 7
        $game_system.se_play($data_system.decision_se)
        $scene = Scene_MessageColor.new
      when 8
        command_cancel
      end
      return
    end
  end
#-----------------------------------------------------------------
#  Cancel
#-----------------------------------------------------------------
  def command_cancel
    $game_system.se_play($data_system.decision_se)
    $scene = Scene_Menu.new
  end
end
#-----------------------------------------------------------------
class Scene_Windowskin
#-----------------------------------------------------------------
#  Main
#-----------------------------------------------------------------
  def main
    s1 = "Dark"
    s2 = "Old"
    s3 = "Cancel"
    @command_window = Window_Command.new(192, [s1, s2, s3])
    @command_window.x = 320 - @command_window.width / 2
    @command_window.y = 240 - @command_window.height / 2
    @menuskin_window = Window_MenuSkin.new
    @menuskin_window.x = 65
    @menuskin_window.y = 240 - @command_window.height / 2
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @command_window.dispose
    @menuskin_window.dispose
    if $scene.is_a?(Scene_Title)
      Graphics.transition
      Graphics.freeze
    end
  end
#-----------------------------------------------------------------
#  Update
#-----------------------------------------------------------------
  def update
    @command_window.update
    @menuskin_window.update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Customize.new
      return
    end
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0
        $game_system.se_play($data_system.decision_se)
        $game_system.windowskin_name = "Dark"
      when 1
        $game_system.se_play($data_system.decision_se)
        $game_system.windowskin_name = "Old"
      when 2
        command_cancel
      end
      return
    end
  end
#-----------------------------------------------------------------
#  Cancel
#-----------------------------------------------------------------
  def command_cancel
    $game_system.se_play($data_system.decision_se)
    $scene = Scene_Customize.new
  end
end
#-----------------------------------------------------------------
class Scene_Font
#-----------------------------------------------------------------
#  Main
#-----------------------------------------------------------------
  def main
    s1 = "Tahoma"
    s2 = "Arial"
    s3 = "Comic Sans MS"
    s4 = "Times New Roman"
    s5 = "TypoUpright BT"
    s6 = "Cancel"
    @command_window = Window_Command.new(192, [s1, s2, s3, s4, s5, s6])
    @command_window.x = 320 - @command_window.width / 2
    @command_window.y = 240 - @command_window.height / 2
    @menufont_window = Window_MenuFont.new
    @menufont_window.x = 65
    @menufont_window.y = 240 - @command_window.height / 2
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @command_window.dispose
    @menufont_window.dispose
    if $scene.is_a?(Scene_Title)
      Graphics.transition
      Graphics.freeze
    end
  end
#-----------------------------------------------------------------
#  Update
#-----------------------------------------------------------------
  def update
    @command_window.update
    @menufont_window.update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Customize.new
      return
    end
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0
        $game_system.se_play($data_system.decision_se)
        $defaultfonttype = $fontface = $fontname = Font.default_name = "Tahoma"
        $scene = Scene_Customize.new
      when 1
        $game_system.se_play($data_system.decision_se)
        $defaultfonttype = $fontface = $fontname = Font.default_name = "Arial"
        $scene = Scene_Customize.new
      when 2
        $game_system.se_play($data_system.decision_se)
        $defaultfonttype = $fontface = $fontname = Font.default_name = "Comic Sans MS"
        $scene = Scene_Customize.new
      when 3
        $game_system.se_play($data_system.decision_se)
        $defaultfonttype = $fontface = $fontname = Font.default_name = "Times New Roman"
        $scene = Scene_Customize.new
      when 4
        $game_system.se_play($data_system.decision_se)
        $defaultfonttype = $fontface = $fontname = Font.default_name = "TypoUpright BT"
        $scene = Scene_Customize.new
      when 5
        command_cancel
      end
      return
    end
  end
#-----------------------------------------------------------------
#  Cancel
#-----------------------------------------------------------------
  def command_cancel
    $game_system.se_play($data_system.decision_se)
    $scene = Scene_Customize.new
  end
end
#-----------------------------------------------------------------
class Scene_FontSize
#-----------------------------------------------------------------
#  Main
#-----------------------------------------------------------------
  def main
    s1 = "10"
    s2 = "15"
    s3 = "20"
    s4 = "25"
    s5 = "30"
    s6 = "Cancel"
    @command_window = Window_Command.new(192, [s1, s2, s3, s4, s5, s6])
    @command_window.x = 320 - @command_window.width / 2
    @command_window.y = 240 - @command_window.height / 2
    @menusize_window = Window_MenuFontSize.new
    @menusize_window.x = 65
    @menusize_window.y = 240 - @command_window.height / 2
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @command_window.dispose
    @menusize_window.dispose
    if $scene.is_a?(Scene_Title)
      Graphics.transition
      Graphics.freeze
    end
  end
#-----------------------------------------------------------------
#  Update
#-----------------------------------------------------------------
  def update
    @command_window.update
    @menusize_window.update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Customize.new
      return
    end
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0
        $game_system.se_play($data_system.decision_se)
        $defaultfontsize = $fontsize = Font.default_size =  10
        $scene = Scene_Customize.new
      when 1
        $game_system.se_play($data_system.decision_se)
        $defaultfontsize = $fontsize = Font.default_size =  15
        $scene = Scene_Customize.new
      when 2
        $game_system.se_play($data_system.decision_se)
        $defaultfontsize = $fontsize = Font.default_size =  20
        $scene = Scene_Customize.new
      when 3
        $game_system.se_play($data_system.decision_se)
        $defaultfontsize = $fontsize = Font.default_size =  25
        $scene = Scene_Customize.new
      when 4
        $game_system.se_play($data_system.decision_se)
        $defaultfontsize = $fontsize = Font.default_size =  30
        $scene = Scene_Customize.new
      when 5
        command_cancel
      end
      return
    end
  end
#-----------------------------------------------------------------
#  Cancel
#-----------------------------------------------------------------
  def command_cancel
    $game_system.se_play($data_system.decision_se)
    $scene = Scene_Customize.new
  end
end
#-----------------------------------------------------------------
class Scene_MessageSkin
#-----------------------------------------------------------------
#  Main
#-----------------------------------------------------------------
  def main
    s1 = "Zelda Message"
    s2 = "Dark"
    s3 = "Old"
    s4 = "Cancel"
    @command_window = Window_Command.new(192, [s1, s2, s3, s4])
    @command_window.x = 320 - @command_window.width / 2
    @command_window.y = 240 - @command_window.height / 2
    @messskin_window = Window_MessageSkin.new
    @messskin_window.x = 415
    @messskin_window.y = 240 - @command_window.height / 2
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @command_window.dispose
    @messskin_window.dispose
    if $scene.is_a?(Scene_Title)
      Graphics.transition
      Graphics.freeze
    end
  end
#-----------------------------------------------------------------
#  Update
#-----------------------------------------------------------------
  def update
    @command_window.update
    @messskin_window.update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Customize.new
      return
    end
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0
        $game_system.se_play($data_system.decision_se)
        $ams.message_box_skin  = $ams.name_box_skin = "Zelda Message"
      when 1
        $game_system.se_play($data_system.decision_se)
        $ams.message_box_skin = $ams.name_box_skin = "Dark"
      when 2
        $game_system.se_play($data_system.decision_se)
        $ams.message_box_skin = $ams.name_box_skin = "Old"
      when 3
        command_cancel
      end
      return
    end
  end
#-----------------------------------------------------------------
#  Cancel
#-----------------------------------------------------------------
  def command_cancel
    $game_system.se_play($data_system.decision_se)
    $scene = Scene_Customize.new
  end
end
#-----------------------------------------------------------------
class Scene_MessageFont
#-----------------------------------------------------------------
#  Main
#-----------------------------------------------------------------
  def main
    s1 = "Tahoma"
    s2 = "Arial"
    s3 = "Comic Sans MS"
    s4 = "Times New Roman"
    s5 = "TypoUpright BT"
    s6 = "Cancel"
    @command_window = Window_Command.new(192, [s1, s2, s3, s4, s5, s6])
    @command_window.x = 320 - @command_window.width / 2
    @command_window.y = 240 - @command_window.height / 2
    @messfont_window = Window_MessageFont.new
    @messfont_window.x = 415
    @messfont_window.y = 240 - @command_window.height / 2
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @command_window.dispose
    @messfont_window.dispose
    if $scene.is_a?(Scene_Title)
      Graphics.transition
      Graphics.freeze
    end
  end
#-----------------------------------------------------------------
#  Update
#-----------------------------------------------------------------
  def update
    @command_window.update
    @messfont_window.update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Customize.new
      return
    end
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0
        $game_system.se_play($data_system.decision_se)
        $ams.font_type = $ams.name_font_type = "Tahoma"
        $scene = Scene_Customize.new
      when 1
        $game_system.se_play($data_system.decision_se)
        $ams.font_type = $ams.name_font_type = "Arial"
        $scene = Scene_Customize.new
      when 2
        $game_system.se_play($data_system.decision_se)
        $ams.font_type = $ams.name_font_type = "Comic Sans MS"
        $scene = Scene_Customize.new
      when 3
        $game_system.se_play($data_system.decision_se)
        $ams.font_type = $ams.name_font_type = "Times New Roman"
        $scene = Scene_Customize.new
      when 4
        $game_system.se_play($data_system.decision_se)
        $ams.font_type = $ams.name_font_type = "TypoUpright BT"
        $scene = Scene_Customize.new
      when 5
        command_cancel
      end
      return
    end
  end
#-----------------------------------------------------------------
#  Cancel
#-----------------------------------------------------------------
  def command_cancel
    $game_system.se_play($data_system.decision_se)
    $scene = Scene_Customize.new
  end
end
#-----------------------------------------------------------------
class Scene_MessageFontSize
#-----------------------------------------------------------------
#  Main
#-----------------------------------------------------------------
  def main
    s1 = "10"
    s2 = "15"
    s3 = "20"
    s4 = "25"
    s5 = "30"
    s6 = "Cancel"
    @command_window = Window_Command.new(192, [s1, s2, s3, s4, s5, s6])
    @command_window.x = 320 - @command_window.width / 2
    @command_window.y = 240 - @command_window.height / 2
    @messsize_window = Window_MessageFontSize.new
    @messsize_window.x = 415
    @messsize_window.y = 240 - @command_window.height / 2
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @command_window.dispose
    @messsize_window.dispose
    if $scene.is_a?(Scene_Title)
      Graphics.transition
      Graphics.freeze
    end
  end
#-----------------------------------------------------------------
#  Update
#-----------------------------------------------------------------
  def update
    @command_window.update
    @messsize_window.update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Customize.new
      return
    end
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0
        $game_system.se_play($data_system.decision_se)
        $ams.font_size =  $ams.name_font_size = 10
        $scene = Scene_Customize.new
      when 1
        $game_system.se_play($data_system.decision_se)
        $ams.font_size =  $ams.name_font_size = 15
        $scene = Scene_Customize.new
      when 2
        $game_system.se_play($data_system.decision_se)
        $ams.font_size =  $ams.name_font_size = 20
        $scene = Scene_Customize.new
      when 3
        $game_system.se_play($data_system.decision_se)
        $ams.font_size =  $ams.name_font_size = 25
        $scene = Scene_Customize.new
      when 4
        $game_system.se_play($data_system.decision_se)
        $ams.font_size =  $ams.name_font_size = 30
        $scene = Scene_Customize.new
      when 5
        command_cancel
      end
      return
    end
  end
#-----------------------------------------------------------------
#  Cancel
#-----------------------------------------------------------------
  def command_cancel
    $game_system.se_play($data_system.decision_se)
    $scene = Scene_Customize.new
  end
end
#-----------------------------------------------------------------
class Scene_MessageColor
#-----------------------------------------------------------------
#  Main
#-----------------------------------------------------------------
  def main
    s1 = "White"
    s2 = "Blue"
    s3 = "Red"
    s4 = "Green"
    s5 = "Light Blue"
    s6 = "Purple"
    s7 = "Yellow"
    s8 = "Grey"
    s9 = "Cancel"
    @command_window = Window_Command.new(192, [s1, s2, s3, s4, s5, s6, s7, s8, s9])
    @command_window.x = 320 - @command_window.width / 2
    @command_window.y = 240 - @command_window.height / 2
    @messcolor_window = Window_MessageColor.new
    @messcolor_window.x = 415
    @messcolor_window.y = 240 - @command_window.height / 2
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @command_window.dispose
    @messcolor_window.dispose
    if $scene.is_a?(Scene_Title)
      Graphics.transition
      Graphics.freeze
    end
  end
#-----------------------------------------------------------------
#  Update
#-----------------------------------------------------------------
  def update
    @command_window.update
    @messcolor_window.update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Customize.new
      return
    end
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0
        $game_system.se_play($data_system.decision_se)
        $ams.message_box_text_color =  $ams.name_box_text_color = 0
        $scene = Scene_Customize.new
      when 1
        $game_system.se_play($data_system.decision_se)
        $ams.message_box_text_color =  $ams.name_box_text_color = 1
        $scene = Scene_Customize.new
      when 2
        $game_system.se_play($data_system.decision_se)
        $ams.message_box_text_color =  $ams.name_box_text_color = 2
        $scene = Scene_Customize.new
      when 3
        $game_system.se_play($data_system.decision_se)
        $ams.message_box_text_color =  $ams.name_box_text_color = 3
        $scene = Scene_Customize.new
      when 4
        $game_system.se_play($data_system.decision_se)
        $ams.message_box_text_color =  $ams.name_box_text_color = 4
        $scene = Scene_Customize.new
      when 5
        $game_system.se_play($data_system.decision_se)
        $ams.message_box_text_color =  $ams.name_box_text_color = 5
        $scene = Scene_Customize.new
      when 6
        $game_system.se_play($data_system.decision_se)
        $ams.message_box_text_color =  $ams.name_box_text_color = 6
        $scene = Scene_Customize.new
      when 7
        $game_system.se_play($data_system.decision_se)
        $ams.message_box_text_color =  $ams.name_box_text_color = 7
        $scene = Scene_Customize.new
      when 8
        command_cancel
      end
      return
    end
  end
#-----------------------------------------------------------------
#  Cancel
#-----------------------------------------------------------------
  def command_cancel
    $game_system.se_play($data_system.decision_se)
    $scene = Scene_Customize.new
  end
end
#-----------------------------------------------------------------
class Window_MenuStuff < Window_Base
#-----------------------------------------------------------------
#  Initialize
#-----------------------------------------------------------------
  def initialize
    super(0, 0, 160, 288)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
#-----------------------------------------------------------------
#  Refresh
#-----------------------------------------------------------------
  def refresh
   self.contents.clear
   self.contents.font.color = system_color
   self.contents.draw_text(4, 0, 120, 32, "Menu Skin:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 32, 120, 32, $game_system.windowskin_name.to_s, 2)
   self.contents.font.color = system_color
   self.contents.draw_text(4, 96, 120, 32, "Menu Font:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 128, 120, 32, $fontface.to_s, 2)
   self.contents.font.color = system_color
   self.contents.draw_text(4, 192, 120, 32, "Menu Font Size:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 224, 120, 32, $fontsize.to_s, 2)
  end
end
#-----------------------------------------------------------------
class Window_MessageStuff < Window_Base
#-----------------------------------------------------------------
#  Initialize
#-----------------------------------------------------------------
  def initialize
    super(0, 0, 160, 288)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
#-----------------------------------------------------------------
#  Refresh
#-----------------------------------------------------------------
  def refresh
   self.contents.clear
   self.contents.font.color = system_color
   self.contents.draw_text(4, 0, 120, 32, "Message Skin:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 32, 120, 32, $ams.message_box_skin.to_s, 2)
   self.contents.font.color = system_color
   self.contents.draw_text(4, 96, 120, 32, "Message Font:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 128, 120, 32, $ams.font_type.to_s, 2)
   self.contents.font.color = system_color
   self.contents.draw_text(4, 192, 120, 32, "Message Font Size:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 224, 120, 32, $ams.font_size.to_s, 2)
  end
end
#-----------------------------------------------------------------
class Window_MenuSkin < Window_Base
#-----------------------------------------------------------------
#  Initialize
#-----------------------------------------------------------------
  def initialize
    super(0, 0, 160, 96)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
#-----------------------------------------------------------------
#  Refresh
#-----------------------------------------------------------------
  def refresh
   self.contents.clear
   self.contents.font.color = system_color
   self.contents.draw_text(4, 0, 120, 32, "Menu Skin:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 32, 120, 32, $game_system.windowskin_name.to_s, 2)
  end
end
#-----------------------------------------------------------------
class Window_MenuFont < Window_Base
#-----------------------------------------------------------------
#  Initialize
#-----------------------------------------------------------------
  def initialize
    super(0, 0, 160, 96)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
#-----------------------------------------------------------------
#  Refresh
#-----------------------------------------------------------------
  def refresh
   self.contents.clear
   self.contents.font.color = system_color
   self.contents.draw_text(4, 0, 120, 32, "Menu Font:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 32, 120, 32, $fontface.to_s, 2)
  end
end
#-----------------------------------------------------------------
class Window_MenuFontSize < Window_Base
#-----------------------------------------------------------------
#  Initialize
#-----------------------------------------------------------------
  def initialize
    super(0, 0, 160, 96)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
#-----------------------------------------------------------------
#  Refresh
#-----------------------------------------------------------------
  def refresh
   self.contents.clear
   self.contents.font.color = system_color
   self.contents.draw_text(4, 0, 120, 32, "Menu Font Size:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 32, 120, 32, $fontsize.to_s, 2)
  end
end
#-----------------------------------------------------------------
class Window_MessageSkin < Window_Base
#-----------------------------------------------------------------
#  Initialize
#-----------------------------------------------------------------
  def initialize
    super(0, 0, 160, 96)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
#-----------------------------------------------------------------
#  Refresh
#-----------------------------------------------------------------
  def refresh
   self.contents.clear
   self.contents.font.color = system_color
   self.contents.draw_text(4, 0, 120, 32, "Message Skin:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 32, 120, 32, $ams.message_box_skin.to_s, 2)
  end
end
#-----------------------------------------------------------------
class Window_MessageFont < Window_Base
#-----------------------------------------------------------------
#  Initialize
#-----------------------------------------------------------------
  def initialize
    super(0, 0, 160, 96)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
#-----------------------------------------------------------------
#  Refresh
#-----------------------------------------------------------------
  def refresh
   self.contents.clear
   self.contents.font.color = system_color
   self.contents.draw_text(4, 0, 120, 32, "Message Font:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 32, 120, 32, $ams.font_type.to_s, 2)
  end
end
#-----------------------------------------------------------------
class Window_MessageFontSize < Window_Base
#-----------------------------------------------------------------
#  Initialize
#-----------------------------------------------------------------
  def initialize
    super(0, 0, 160, 96)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
#-----------------------------------------------------------------
#  Refresh
#-----------------------------------------------------------------
  def refresh
   self.contents.clear
   self.contents.font.color = system_color
   self.contents.draw_text(4, 0, 120, 32, "Message Font Size:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 32, 120, 32, $ams.font_size.to_s, 2)
  end
end
#-----------------------------------------------------------------
class Window_MessageColor < Window_Base
#-----------------------------------------------------------------
#  Initialize
#-----------------------------------------------------------------
  def initialize
    super(0, 0, 160, 96)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
#-----------------------------------------------------------------
#  Refresh
#-----------------------------------------------------------------
  def refresh
   self.contents.clear
   self.contents.font.color = system_color
   self.contents.draw_text(4, 0, 120, 32, "Message Color:")
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 32, 120, 32, $ams.message_box_text_color.to_s, 2)
  end
end

To prevent errors, replace Main with this

Code:

#-----------------------------------------------------------------
#  Main
#-----------------------------------------------------------------
#  Edited By:  Hypershadow180
#-----------------------------------------------------------------
begin
  $defaultfonttype = $fontface = $fontname = Font.default_name = "Comic Sans MS"
  $defaultfontsize = $fontsize = Font.default_size =  20
  Graphics.freeze
  $scene = Scene_Title.new
  while $scene != nil
    $scene.main
  end
  Graphics.transition(20)
rescue Errno::ENOENT
  filename = $!.message.sub("No such file or directory - ", "")
  print("File #{filename} was not found.")
end

Customizing Instructions

To change Menu Windowskins, find lines 114-115 and change the words in quotes to the name of the windowskin (without extension). Do the same on lines 155 and 158 (make sure they match up).

To change Menu Fonts, find lines 179-183 and change the words in quotes to the font names you would like to use. Do the same on lines 223, 227, 231, 235, and 239 (make sure they match up).

To change Menu Font Sizes, find lines 261-265 and change the numbers in quotes to the font sizes you would like to use. Do the same on lines 305, 309, 313, 317, and 321 (make sure they match up).

To change Message Windowskins, find lines 343-345 and change the words in quotes to the name of the windowskin (without extension). Do the same on lines 385, 388, and 391 (make sure they match up).

To change Message Fonts, find lines 412-416 and change the words in quotes to the font names you would like to use. Do the same on lines 456, 460, 464, 468, and 472 (make sure they match up).

To change Menu Font Sizes, find lines 494-498 and change the numbers in quotes to the font sizes you would like to use. Do the same on lines 538, 542, 546, 550, and 554 (make sure they match up).

To increase the amount of selections, just add another "s#" (example: s6 = Windowskin Name).

Enjoy!
-Hypershadow180