[RMXP] RunTime Script Caller

#:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
# Run-Time Script Caller
# Author: ForeverZer0
# Version: 1.0
# Date: 11.27.2010
#:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
#
# Introduction:
#
#  This script will allow you to open a small box while the game is running and
#  type script calls into, which will execute when the Enter button is pressed.
#
# Feature:
#
#  - Simple to use.
#  - Built in rescue to keep game from crashing if the script call is written
#    wrong, etc. Instead it shows the error and continues on.
#  - Did I mention you can make up script calls and change things at run-time.
#
# Instructions:
#
#  - Place script anywhere.
#  - Configure call button below (F7 by default)
#
#:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

#===============================================================================
# ** ScriptEditor
#===============================================================================

class ScriptEditor

  CALL_BUTTON = Input::F7
  # Set the button to call the script box.

  def initialize
    # Get game window title from Game.ini
    ini = Win32API.new('kernel32', 'GetPrivateProfileString','PPPPLP', 'L')
    @title = "\0" * 256
    ini.call('Game', 'Title', '', @title, 256, '.\\Game.ini')
    @title.delete!("\0")
    # Set game window to an instance variable, using the title we found.
    @main = Win32API.new('user32', 'FindWindowA', 'PP', 'L').call('RGSS Player', @title)
    # Set variables to call for creating showing, and destroying the window.
    @create_window = Win32API.new('user32','CreateWindowEx','lpplllllllll','l')
    @show_window = Win32API.new('user32','ShowWindow',%w(l l),'l')
    @destroy_window = Win32API.new('user32','DestroyWindow','p','l')
    # Set variables to get the window size, position, text, etc, etc.
    @window_text = Win32API.new('user32','GetWindowText',%w(n p n ),'l')
    @metrics = Win32API.new('user32', 'GetSystemMetrics', 'I', 'I')
    @set_window_pos = Win32API.new('user32', 'SetWindowPos', 'LLIIIII', 'I')
    @window_rect = Win32API.new('user32','GetWindowRect',%w(l p),'i')
    # Define the coordinates to display the window.
    @x = (@metrics.call(0) - 576) / 2
    @y = (@metrics.call(1) - 22) / 2
    # Updates the client area of the window.
    @update_window = Win32API.new('user32','UpdateWindow','p','i')
    # Set a button that will register when button is pressed.
    @input = Win32API.new('user32','GetAsyncKeyState','i','i')
  end

  def destroy_window
    # Disposes the created box for typing text, and sets variable to nil.
    @destroy_window.call(@script_window)
    @script_window = nil
  end

  def show_window
    # End method now if window is already there.
    if @script_window != nil
      return
    end
    # Create text box for adding text into, using window dimensions.
    @script_window = @create_window.call(768, 'Edit', '', 0x86000000, @x, @y, 576, 22, @main, 0, 0, 0)
    # Set the 'visibility' of the window.
    @show_window.call(@script_window, 1)
    # Begin the loop for the text box.
    start_script_update
  end

  def start_script_update
    # Enter update loop.
    loop {
      # Update the Graphics, and the window. Breaks when Enter button is pressed.
      Graphics.update
      @update_window.call(@script_window)
      break if @input.call(0x0D) & 0x01 == 1
    }
    # Get the text from the window.
    text = "\0" * 256
    @window_text.call(@script_window, text, 0x3E80)
    text.delete!("\0")
    # Evaluate the text, simply displaying a message if it throws an error.
    begin
      eval(text)
    rescue#'start_script_update'
      # Simply write the type of the error.
      message = $!.message.gsub("(eval):1:in `start_script_update'") { '' }
      print("#{$!.class}\r\n\r\n#{message}")
    end
    destroy_window
  end
end

if $DEBUG

  $editor = ScriptEditor.new
  # Create in instance of the class so it is ready to call.

  module Input

    class << self
      alias zer0_script_editor_upd update
    end

    def self.update
      # Alias the Input.update method to check if call button is pressed.
      $editor.show_window if self.trigger?(ScriptEditor::CALL_BUTTON)
      zer0_script_editor_upd
    end
  end
end