Super Simple Mouse Script - All In One (VX Ace)

#============================================================================
# SUPER SIMPLE MOUSE SCRIPT
# v1.10 by Shaz
#----------------------------------------------------------------------------
# This is a conversion of the XP Mouse script by Near Fantastica and
# SephirothSpawn modified by Amaranth Games, to run under VX Ace.
#----------------------------------------------------------------------------
# To Install:
# Copy and paste into a new slot in materials, below all other scripts
#----------------------------------------------------------------------------
# To Customize:
# Add keyword icon index pairs to the ICON hash (below this documentation).
# Each of the keywords can be used in an event comment to make the mouse
# cursor change into that icon when hovering over the event.
#----------------------------------------------------------------------------
# To Use:
# Add the following comment to an event page:
#   <mouse icon [x y] [name]>
#   where icon is the keyword from the ICON hash below
#   x and y are the offsets to override player movement (optional)
#   name is the text to display next to the icon when hovering over the event (optional)
#
# Examples:
# <mouse fight>
#   will change the cursor into the 'fight' icon when over the event
# <mouse touch 0 1>
#   will change the cursor into the 'touch' icon when over the event, and
#   make the player walk to the tile below the event when the mouse button is
#   clicked
# <mouse talk Gloria>
#   will change the cursor into the 'talk' icon and display the name Gloria
# <mouse talk 0 2 Henry Smith>
#   will change the cursor into the 'talk' icon and display the name Henry Smith,
#   and when the mouse button is clicked, the player will walk to the tile
#   two below the event (good to use for shops where there's a counter in between)
#
# To force pathfinding on the player or an event, simply add a move route with
# the player or event as the subject, with a Script command, and call
# find_path(x, y) where x and y are the coordinates of the tile you want to move to
# Examples:
# Set Move Route (Player): Script: find_path(5, 8)
#   will make the player find a path to tile 5, 8
# Set Move Route (This Event): Script: find_path(10, 5)
#   will make the event find a path to tile 10, 5
#
# NOTE: The path will be ATTEMPTED.  If there is no path TO that exact tile,
# a path to an adjacent tile will be attempted.  If no path is found there
# either, no movement will occur.
# If a route is found, the player or event will begin moving towards it.  But
# if their path is blocked while they are moving, movement will be cancelled.
#----------------------------------------------------------------------------
# Author's Notes:
# This script should work with any RTP script.
# I do not guarantee that it will work with ANY other script (especially anything
# that overrides player or event movement, such as pixel movement scripts, or
# custom window scripts).
#
# Script OVERWRITES the following methods:
# Game_Map.setup_starting_map_event
# Game_Map.setup_autorun_common_event
#
# If you have other scripts that ALIAS these methods, this mouse script should
# be placed above them.
#----------------------------------------------------------------------------
# Terms:
# Use in free and commercial games
# Credit: Near Fantastica, SephirothSpawn, Amaranth Games, Shaz
#----------------------------------------------------------------------------
# Versions:
# 1.0  -  6 Sept 2013 - initial release
# 1.02 -  7 Sept 2013 - fixed crash when loading games saved prior to adding script
#                     - fixed player gets stuck on impassable area on world map
#                       when clicking while leaving air ship
# 1.03 -  8 Sept 2013 - fixed actor moving to diagonal tile instead of adjacent
# 1.04 - 10 Sept 2013 - fixed vehicle pathfinding on world map
#                     - fixed event trigger when no path found
# 1.05 - 14 Sept 2013 - tweaked accessing of tilemap offset
# 1.06 -  3 Nov  2013 - disabled mouse movement when waiting for NPC move route
#                     - fixed events not triggering after player finishes walking
# 1.07 -  6 Nov  2013 - slow down mouse scrolling, and don't loop save files
# 1.08 - 24 Nov  2013 - cater for YEA Core large resolution with too-small maps
#                     - fixed early event activation bug introduced in 1.06
#                     - replaced calc of Windows_Selectable boundaries with item_rect
#                     - added ability to completely disable mouse
# 1.09 - 21 Dec  2013 - fixed mouse re-enable when calling common events
# 1.10 -  6 Apr  2014 - add interaction for top part of > 32pixel high event
#                     - activate an event without walking up to it
#                       (add <autoactivate> comment at top of event page)
#                     - arrow keys override mouse movement when pathfinding
#                     - ignore mouse in menus when using keyboard
#                     - make player walk to counter opposite shopkeepers
#============================================================================






#============================================================================
# SUPER SIMPLE MOUSE SCRIPT
# Mouse Sprite
#============================================================================


# Add/remove/change icon names here.  The icon name is what will be used in the
# event <mouse ...> command to show a different mouse icon when hovering over
# the event.  These MUST be in lower case here!
ICON = {'arrow' => 386, 'talk' => 4, 'look' => 3, 'fight' => 116,
        'touch' => 491, 'exit' => 121}
DEFAULT_ICON = 'arrow'

class Sprite_Mouse < Sprite
  #--------------------------------------------------------------------------
  # * Initialization
  #--------------------------------------------------------------------------
  def initialize
    super
    self.z = 10100
    self.ox = 4
    update
    @dummy = Bitmap.new(32, 32)
    self.bitmap = Bitmap.new(32, 32)
    @enabled = true
    @ignored = false
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    return if !@enabled
    super
    if !SceneManager.scene.nil?
      if !Mouse.position.nil?
        mx, my = *Mouse.position
        if @cursor == DEFAULT_ICON
          self.x = mx unless mx.nil?
        else
          self.x = [mx, Graphics.width - self.bitmap.width].min unless mx.nil?
        end
        self.y = my unless my.nil?
      end
      if @scene != SceneManager.scene.class || Mouse.trigger?
        @scene = SceneManager.scene.class
        set_bitmap
      end
    end
  end
  #--------------------------------------------------------------------------
  # * Set Bitmap
  #--------------------------------------------------------------------------
  def set_bitmap(cursor = DEFAULT_ICON, text = nil)
    if @ignored
      cursor = DEFAULT_ICON
      text = nil
    end

    if @cursor != cursor || @text != text
      @cursor = cursor
      @text = text
      item_cursor = ICON[cursor]
      rect = Rect.new(item_cursor % 16 * 24, item_cursor / 16 * 24, 24, 24)
      if @text.nil?
        self.bitmap = Bitmap.new(24, 32)
        self.bitmap.blt(0, 0, Cache.system('Iconset'), rect)
      else
        w = @dummy.text_size(@text).width
        h = @dummy.font.size
        bitmap = Bitmap.new(26 + w, [32, h+2].max)
        bitmap.font.size = @dummy.font.size
        bitmap.font.shadow = true
        if self.x + 26 + w > Graphics.width
          bitmap.draw_text(0, 0, w, h, @text)
          bitmap.blt(w, 0, Cache.system('Iconset'), rect)
        else
          bitmap.blt(0, 0, Cache.system('Iconset'), rect)
          bitmap.draw_text(26, 0, w, h, @text)
        end
        self.bitmap = bitmap
      end
    end
  end
  #--------------------------------------------------------------------------
  # * Update Event Cursors
  #--------------------------------------------------------------------------
  def update_event_cursors
    # Remove mouse icon and text if we're off the grid
    if Mouse.grid.nil?
      set_bitmap
      return
    end
    # Set cursor and text according to event
    x, y = *Mouse.grid
    event = $game_map.lowest_mouse_event_xy(x, y)
    unless event.nil? && y < 410
      if !event.mouse_icon.nil? || !event.mouse_text.nil?
        set_bitmap(event.mouse_icon, event.mouse_text)
        return
      end
    end
    # default bitmap if not over an event
    set_bitmap
  end
  #--------------------------------------------------------------------------
  # * Enable Mouse
  #--------------------------------------------------------------------------
  def enabled=(value)
    @enabled = value
    self.visible = value
  end
  #--------------------------------------------------------------------------
  # * Mouse Enabled?
  #--------------------------------------------------------------------------
  def enabled?
    @enabled
  end
  #--------------------------------------------------------------------------
  # * Ignore Mouse
  #--------------------------------------------------------------------------
  def ignored=(value)
    @ignored = value
  end
  #--------------------------------------------------------------------------
  # * Mouse Ignored?
  #--------------------------------------------------------------------------
  def ignored?
    @ignored
  end
end

$mouse = Sprite_Mouse.new






#============================================================================
# SUPER SIMPLE MOUSE SCRIPT
# Mouse Module
#============================================================================


#==============================================================================
# ** Mouse Module
#------------------------------------------------------------------------------
#  by Near Fantastica and SephirothSpawn
#  adapted and converted to VX Ace by Shaz
#==============================================================================
module Mouse
  #--------------------------------------------------------------------------
  # * Mouse to Input Triggers
  #   key => Input::KeyCONSTANT (key: 0 - left, 1 - middle, 2 - right)
  #--------------------------------------------------------------------------
  Mouse_to_Input_Triggers = {0 => Input::C, 1 => Input::B, 2 => Input::A}
  #--------------------------------------------------------------------------
  # * API Declarations
  #--------------------------------------------------------------------------
  GAKS = Win32API.new('user32', 'GetAsyncKeyState', 'i', 'i')
  GSM = Win32API.new('user32', 'GetSystemMetrics', 'i', 'i')
  Cursor_Pos = Win32API.new('user32', 'GetCursorPos', 'p', 'i')
  Scr2cli = Win32API.new('user32', 'ScreenToClient', %w(l p), 'i')
  Client_rect = Win32API.new('user32', 'GetClientRect', %w(l p), 'i')
  Findwindow = Win32API.new('user32', 'FindWindowA', %w(p p), 'l')
  Readini = Win32API.new('kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l')
  ShowCursor = Win32API.new('user32', 'ShowCursor', 'i', 'l')
  #--------------------------------------------------------------------------
  # * Module Variables
  #--------------------------------------------------------------------------
  @triggers = [[0, 1], [0, 2], [0, 4]]
  @old_pos = 0
  @pos_i = 0
  @sys_cursor_visible = false
  #--------------------------------------------------------------------------
  # * Mouse Grid Position
  #--------------------------------------------------------------------------
  def self.grid
    return nil if @pos.nil?
    mx, my = SceneManager.scene.instance_variable_get(:@spriteset).tilemap_offset
    x = (@pos[0] + mx) / 32
    y = (@pos[1] + my) / 32
    return [x, y]
  end
  #--------------------------------------------------------------------------
  # * Mouse Position
  #--------------------------------------------------------------------------
  def self.position
    return @pos.nil? ? [0, 0] : @pos
  end
  #--------------------------------------------------------------------------
  # * Mouse Global Position
  #--------------------------------------------------------------------------
  def self.global_pos
    pos = [0, 0].pack('ll')
    return Cursor_Pos.call(pos) == 0 ? nil : pos.unpack('ll')
  end
  #--------------------------------------------------------------------------
  # * Screen to Client
  #--------------------------------------------------------------------------
  def self.screen_to_client(x=0, y=0)
    pos = [x, y].pack('ll')
    return Scr2cli.call(self.hwnd, pos) == 0 ? nil : pos.unpack('ll')
  end
  #--------------------------------------------------------------------------
  # * Mouse Position
  #--------------------------------------------------------------------------
  def self.pos
    gx, gy = global_pos
    x, y = screen_to_client(gx, gy)

    # Test boundaries
    begin
      if (x >= 0 && y >= 0 && x <= Graphics.width && y <= Graphics.height)
        return x, y
      else
        return -20, -20
      end
    rescue
      return 0, 0
    end
  end
  #--------------------------------------------------------------------------
  # * Update Mouse Position
  #--------------------------------------------------------------------------
  def self.update
    old_pos = @pos
    @pos = self.pos

    # Has mouse been moved?
    if old_pos != @pos
      Input.method = :mouse
    end

    # Which mouse to show - custom, or system?
    if $mouse.enabled? == @sys_cursor_visible
      @sys_cursor_visible = !@sys_cursor_visible
      ShowCursor.call(@sys_cursor_visible ? 1 : 0)
    end

    return if !$mouse.enabled?

    # Leaving / Entering Range?
    if old_pos != [-20, -20] && @pos == [-20, -20] # leaving range
      ShowCursor.call(1)
    elsif old_pos == [-20, -20] && @pos != [-20, -20] # entering range
      ShowCursor.call(0)
    end

    # Update Triggers
    for i in @triggers
      n = GAKS.call(i[1])
      if [0, 1].include?(n)
        i[0] = (i[0] > 0 ? i[0] * -1 : 0)
      else
        i[0] = (i[0] > 0 ? i[0] + 1 : 1)
      end
    end
  end
  #--------------------------------------------------------------------------
  # * Trigger?
  #   id : 0:Left, 1:Right, 2:Center
  #--------------------------------------------------------------------------
  def self.trigger?(id = 0)
    if pos != [-20, -20]
      return @triggers[id][0] == 1
    end
    return false
  end
  #--------------------------------------------------------------------------
  # * Repeat?
  #   id : 0:Left, 1:Right, 2:Center
  #--------------------------------------------------------------------------
  def self.repeat?(id = 0)
    return @triggers[id][0] > 0 && @triggers[id][0] % 5 == 1
  end
  #--------------------------------------------------------------------------
  # * Hwnd
  #--------------------------------------------------------------------------
  def self.hwnd
    if @hwnd.nil?
      title = "\0" * 256
      Readini.call('Game', 'Title', '', title, 255, '.\\Game.ini')
      title.delete!("\0")
      @hwnd = Findwindow.call('RGSS Player', title)
      ShowCursor.call(0)
    end
    return @hwnd
  end
  #--------------------------------------------------------------------------
  # * Client Size
  #--------------------------------------------------------------------------
  def self.client_size
    rect = [0, 0, 0, 0].pack('l4')
    Client_rect.call(self.hwnd, rect)
    return rect.unpack('l4')[2..3]
  end
end






#============================================================================
# SUPER SIMPLE MOUSE SCRIPT
# Input
#============================================================================


class << Input
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_accessor :method
  #--------------------------------------------------------------------------
  # * Alias Listings
  #--------------------------------------------------------------------------
  alias :seph_mouse_input_update :update
  alias :seph_mouse_input_trigger? :trigger?
  alias :seph_mouse_input_repeat? :repeat?
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    $mouse.update
    Mouse.update
    seph_mouse_input_update
    # Are we using the mouse or the keyboard?
    @method = :keyboard if dir4 != 0 || dir8 != 0
  end
  #--------------------------------------------------------------------------
  # * Trigger? Test
  #--------------------------------------------------------------------------
  def trigger?(constant)
    return true if seph_mouse_input_trigger?(constant)
    if $mouse.enabled? && !Mouse.pos.nil?
      if Mouse::Mouse_to_Input_Triggers.has_value?(constant)
        return true if Mouse.trigger?(Mouse::Mouse_to_Input_Triggers.index(constant))
      end
    end
    return false
  end
  #--------------------------------------------------------------------------
  # * Repeat? Test
  #--------------------------------------------------------------------------
  def repeat?(constant)
    return true if seph_mouse_input_repeat?(constant)
    if $mouse.enabled? && !Mouse.pos.nil?
      if Mouse::Mouse_to_Input_Triggers.has_value?(constant)
        return true if Mouse.repeat?(Mouse::Mouse_to_Input_Triggers.index(constant))
      end
    end
    return false
  end
end






#============================================================================
# SUPER SIMPLE MOUSE SCRIPT
# Map
#============================================================================


class Spriteset_Map
  #--------------------------------------------------------------------------
  # * Tilemap Offset
  #--------------------------------------------------------------------------
  def tilemap_offset
    if $imported && $imported["YEA-CoreEngine"]
      [@tilemap.ox - @viewport1.rect.x, @tilemap.oy - @viewport1.rect.y]
    else
      [@tilemap.ox, @tilemap.oy]
    end
  end
end

class Game_Map
  #--------------------------------------------------------------------------
  # * Detect/Set Up Starting Map Event
  #--------------------------------------------------------------------------
  def setup_starting_map_event
    event = @events.values.find {|event| event.starting }
    event.clear_starting_flag if event
    @interpreter.setup(event.list, event.id, event.trigger_in?([0,1,2,3])) if event
    event
  end
  #--------------------------------------------------------------------------
  # * Detect/Set Up Autorun Common Event
  #--------------------------------------------------------------------------
  def setup_autorun_common_event
    event = $data_common_events.find do |event|
      event && event.autorun? && $game_switches[event.switch_id]
    end
    @interpreter.setup(event.list, 0, true) if event
    event
  end
  #--------------------------------------------------------------------------
  # * Get ID of Lowest Mouse-enabled Event at Designated Coordinates
  #--------------------------------------------------------------------------
  def lowest_mouse_event_xy(x, y)
    list = events_xy(x, y) + events_xy(x, y+1)
    list.sort! {|a, b| b.y - a.y}
    evt = nil
    list.each do |event|
      if (event.pos?(x, y) || (event.pos?(x, y+1) && event.height > 32)) &&
        (evt.nil? || event.y > evt.y)
        evt = event
        break
      end
    end
    return evt
  end
end

class Scene_Map
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  alias shaz_mouse_scene_map_update update
  def update
    $mouse.update_event_cursors
    shaz_mouse_scene_map_update
  end
end






#============================================================================
# SUPER SIMPLE MOUSE SCRIPT
# Event
#============================================================================


module RPG
  class Event
    class Page
      #--------------------------------------------------------------------
      # * Public Instance Variables
      #--------------------------------------------------------------------
      attr_reader :mouse_icon
      attr_reader :mouse_text
      attr_reader :mouse_position
      attr_reader :mouse_autoactivate
      #--------------------------------------------------------------------
      # * Build Stats
      #--------------------------------------------------------------------
      def build_stats
        # Mouse icons (icon mandatory, others optional)
        # <mouse icon destx desty name>
        @mouse_icon = nil
        @mouse_text = nil
        @mouse_position = [0, 0]
        @mouse_autoactivate = false
        # look for mouse instructions
        list.each do |command|
          if [108, 408].include?(command.code)
            comment = command.parameters[0]
              case comment
              when /<mouse/i
                params = /<mouse (.*)>/i.match(comment)[1].split(' ')
                @mouse_icon = params.shift
                if params.size > 1 && params[0] =~ /\d+/ && params[1] =~ /\d+/
                  @mouse_position = [params.shift.to_i, params.shift.to_i]
                end
                if params.size > 0
                  @mouse_text = params.join(' ')
                end
              when /<autoactivate>/
                @mouse_autoactivate = true
              end
          end #if
        end #do
      end #def
    end
  end
end

class Game_Event < Game_Character
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_reader   :mouse_icon
  attr_reader   :mouse_text
  attr_reader   :mouse_position
  attr_reader   :mouse_autoactivate
  #--------------------------------------------------------------------------
  # * Start Event
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_event_start start
  def start
    $game_player.start_event(@id) if !empty?
    shaz_mouse_game_event_start
  end
  #--------------------------------------------------------------------------
  # * Clear Event Page Settings
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_event_clear_page_settings clear_page_settings
  def clear_page_settings
    shaz_mouse_game_event_clear_page_settings
    @mouse_icon = nil
    @mouse_text = nil
    @mouse_position = [0, 0]
    @mouse_autoactivate = false
    @height = 0
  end
  #--------------------------------------------------------------------------
  # * Set Up Event Page Settings
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_event_setup_page_settings setup_page_settings
  def setup_page_settings
    shaz_mouse_game_event_setup_page_settings
    @page.build_stats
    @mouse_icon         = @page.mouse_icon
    @mouse_text         = @page.mouse_text
    @mouse_position     = @page.mouse_position
    @mouse_autoactivate = @page.mouse_autoactivate
    set_size
  end
end






#============================================================================
# SUPER SIMPLE MOUSE SCRIPT
# Character
#============================================================================


class Game_CharacterBase
  attr_reader :height                            # Height of character bitmap
  #--------------------------------------------------------------------------
  # * Initialize Public Member Variables
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_characterbase_init_public_members init_public_members
  def init_public_members
    shaz_mouse_game_characterbase_init_public_members
    @height = 0
  end
  #--------------------------------------------------------------------------
  # * Change Graphics
  #     character_name  : new character graphic filename
  #     character_index : new character graphic index
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_characterbase_set_graphic set_graphic
  def set_graphic(character_name, character_index)
    shaz_mouse_game_characterbase_set_graphic(character_name, character_index)
    set_size
  end
  #--------------------------------------------------------------------------
  # * Set character width/height size
  #--------------------------------------------------------------------------
  def set_size
    bw = Cache.character(@character_name).width
    bh = Cache.character(@character_name).height
    sign = @character_name[/^[\!\$]./]
    if sign && sign.include?('$')
      @width = bw / 3
      @height = bh / 4
    else
      @width = bw / 12
      @height = bh / 8
    end
  end
  #--------------------------------------------------------------------------
  # * Detect Collision with Event
  #--------------------------------------------------------------------------
  def collide_with_events?(x, y)
    $game_map.events_xy_nt(x, y).any? do |event|
      self != event && (event.normal_priority? || self.is_a?(Game_Event))
    end
  end
  #--------------------------------------------------------------------------
  # * Detect Collision with Vehicle
  #--------------------------------------------------------------------------
  def collide_with_vehicles?(x, y)
    !self.is_a?(Game_Player) && ($game_map.boat.pos_nt?(x, y) || $game_map.ship.pos_nt?(x, y))
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_characterbase_update update
  def update
    run_path if @runpath
    shaz_mouse_game_characterbase_update
  end
  #--------------------------------------------------------------------------
  # * Run Path
  #--------------------------------------------------------------------------
  def run_path
    return if moving?
    @step = @map.nil? || @map[@x, @y].nil? ? 0 : @map[@x, @y] - 1
    if @step < 1
      clear_path
    else
      x, y = @x, @y
      dirs = []
      dirs.push(6) if @map[@x+1, @y] == @step && passable?(@x, @y, 6)
      dirs.push(2) if @map[@x, @y+1] == @step && passable?(@x, @y, 2)
      dirs.push(4) if @map[@x-1, @y] == @step && passable?(@x, @y, 4)
      dirs.push(8) if @map[@x, @y-1] == @step && passable?(@x, @y, 8)
      while dirs.size > 0
        dir = dirs.delete_at(rand(dirs.size))
        move_straight(dir)
        break if x != @x || y != @y
      end
      # clear the path if we couldn't move
      clear_path if x == @x && y == @y
    end
  end
  #--------------------------------------------------------------------------
  # * Find Path
  #--------------------------------------------------------------------------
  def find_path(x, y)
    sx, sy = @x, @y
    @tx, @ty = x, y
    result = setup_map(sx, sy)
    @runpath = result[0]
    @map = result[1]
    @map[sx, sy] = result[2] if result[2] != nil
  end
  #--------------------------------------------------------------------------
  # * Clear Path
  #--------------------------------------------------------------------------
  def clear_path
    @map = nil
    @runpath = false
  end
  #--------------------------------------------------------------------------
  # * Setup Map
  #--------------------------------------------------------------------------
  def setup_map(sx, sy)
    map = Table.new($game_map.width, $game_map.height)
    update_counter = 0
    map[@tx, @ty] = 1
    old_positions = [[@tx, @ty]]
    new_positions = []

    # if tile is impassable, but CAN move to adjacent tiles, use the adjacent tiles instead
    if (!passable?(@tx, @ty, 2) && !passable?(@tx, @ty, 4) &&
      !passable?(@tx, @ty, 6) && !passable?(@tx, @ty, 8)) ||
      $game_map.events_xy_nt(@tx, @ty).any? { |evt| evt.normal_priority? && evt != self }
      old_positions = []

      # Can we move from the destination tile in any direction?
      if map_passable?(@tx, @ty, 2)
        map[@tx, @ty+1] = 1
        old_positions.push([@tx, @ty+1])
      end
      if map_passable?(@tx, @ty, 8)
        map[@tx, @ty-1] = 1
        old_positions.push([@tx, @ty-1])
      end
      if map_passable?(@tx, @ty, 4)
        map[@tx-1, @ty] = 1
        old_positions.push([@tx-1, @ty])
      end
      if map_passable?(@tx, @ty, 6)
        map[@tx+1, @ty] = 1
        old_positions.push([@tx+1, @ty])
      end

      # If not, can we at least move up to the destination tile?
      if old_positions.size == 0
        if map_passable?(@tx-1,@ty,6)
          map[@tx-1,@ty] = 1
          old_positions.push([@tx-1,@ty])
        end
        if map_passable?(@tx+1,@ty,4)
          map[@tx+1,@ty] = 1
          old_positions.push([@tx+1,@ty])
        end
        if map_passable?(@tx,@ty-1,2)
          map[@tx,@ty-1] = 1
          old_positions.push([@tx,@ty-1])
        end
        if map_passable?(@tx,@ty+1,8)
          map[@tx,@ty+1] = 1
          old_positions.push([@tx,@ty+1])
        end
      end
    end

    # If there are any counters, can we move to the tile on the other side?
    if map_passable?(@tx-2,@ty,6) && $game_map.counter?(@tx-1,@ty)
      map[@tx-2,@ty] = 1
      old_positions.push([@tx-2,@ty])
    end
    if map_passable?(@tx+2,@ty,4) && $game_map.counter?(@tx+1,@ty)
      map[@tx+2,@ty] = 1
      old_positions.push([@tx+2,@ty])
    end
    if map_passable?(@tx,@ty-2,2) && $game_map.counter?(@tx,@ty-1)
      map[@tx,@ty-2] = 1
      old_positions.push([@tx,@ty-2])
    end
    if map_passable?(@tx,@ty+2,2) && $game_map.counter?(@tx,@ty+1)
      map[@tx,@ty+2] = 1
      old_positions.push([@tx,@ty+2])
    end


    depth = 2
    depth.upto(100) { |step|
      break if old_positions[0].nil?
      @step = step
      loop do
        break if old_positions[0].nil?
        x, y = old_positions.shift
        return [true, map, @step-1] if x == sx && y == sy
        if map[x, y + 1] == 0 && passable?(x, y, 2)
          map[x, y + 1] = @step
          new_positions.push([x, y + 1])
        end
        if map[x - 1, y] == 0 && passable?(x, y, 4)
          map[x - 1, y] = @step
          new_positions.push([x - 1, y])
        end
        if map[x + 1, y] == 0 && passable?(x, y, 6)
          map[x + 1, y] = @step
          new_positions.push([x + 1, y])
        end
        if map[x, y - 1] == 0 && passable?(x, y, 8)
          map[x, y - 1] = @step
          new_positions.push([x, y - 1])
        end
        # Update graphics? (to reduce lag)
        update_counter += 1
        if update_counter > 50
          Graphics.update
          update_counter = 0
        end
      end
      old_positions = new_positions
      new_positions = []
    }
    return [false, nil, nil]
  end
end

class Game_Character < Game_CharacterBase
  #--------------------------------------------------------------------------
  # * Force Move Route
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_character_force_move_route force_move_route
  def force_move_route(move_route)
    clear_path
    shaz_mouse_game_character_force_move_route(move_route)
  end
end






#============================================================================
# SUPER SIMPLE MOUSE SCRIPT
# Player
#============================================================================


class Game_Player < Game_Character
  #--------------------------------------------------------------------------
  # * Trigger Map Event
  #     triggers : Trigger array
  #     normal   : Is priority set to [Same as Characters] ?
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_player_start_map_event start_map_event
  def start_map_event(x, y, triggers, normal)
    @started_events = []
    shaz_mouse_game_player_start_map_event(x, y, triggers, normal)
  end
  #--------------------------------------------------------------------------
  # * Start Event
  #--------------------------------------------------------------------------
  def start_event(event_id)
    @started_events = [] if @started_events.nil?
    @started_events.push(event_id)
  end
  #--------------------------------------------------------------------------
  # * Processing of Movement via Input from Directional Buttons
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_player_move_by_input move_by_input
  def move_by_input
    if Input.dir4 > 0
      clear_path
      shaz_mouse_game_player_move_by_input
    else
      # Move by mouse input
      if !$game_message.busy? && !$game_message.visible && !@move_route_forcing &&
        !@vehicle_getting_on && !@vehicle_getting_off &&
        Mouse.trigger?(0) && !Mouse.grid.nil? && !$mouse.ignored?
        mx, my = *Mouse.grid
        # turn in direction
        if (@x - mx).abs >= (@y - my).abs
          set_direction(@x > mx ? 4 : 6)
        else
          set_direction(@y > my ? 8 : 2)
        end
        # find path
        @event = $game_map.lowest_mouse_event_xy(mx, my)
        if @event.nil?
          find_path(mx, my)
        elsif @event.mouse_autoactivate
          @event.start
          @started_events = []
          clear_path
        else
          find_path(@event.x + @event.mouse_position[0],
            @event.y + @event.mouse_position[1])
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_player_update update
  def update
    shaz_mouse_game_player_update
    update_pathfinding if !@event.nil? && !moving?
  end
  #--------------------------------------------------------------------------
  # * Check event after pathfinding
  #--------------------------------------------------------------------------
  def update_pathfinding
    if @map.nil? || @map[@x, @y] <= 1
      dir = @x < @event.x ? 6 : @x > @event.x ? 4 : @y < @event.y ? 2 : @y > @event.y ? 8 : 0
      # Face event and trigger it (only if not triggered by start_map_event)
      turn_toward_character(@event) if !@event.pos?(@x, @y)
      if !@started_events.include?(@event.id) && !@map.nil? && !in_airship?
        @event.start
        @started_events = []
      end
      clear_path
    end
  end
  #--------------------------------------------------------------------------
  # * Clear Path
  #--------------------------------------------------------------------------
  def clear_path
    @event = nil
    super
  end
end






#============================================================================
# SUPER SIMPLE MOUSE SCRIPT
# Interpreter
#============================================================================


class Game_Interpreter
  #--------------------------------------------------------------------------
  # * Event Setup
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_interpreter_setup setup
  def setup(list, event_id = 0, lock_player = false)
    shaz_mouse_game_interpreter_setup(list, event_id)
    @lock_player = lock_player
  end
  #--------------------------------------------------------------------------
  # * Execute
  #--------------------------------------------------------------------------
  alias shaz_mouse_game_interpreter_run run
  def run
    $mouse.ignored = true if @lock_player
    shaz_mouse_game_interpreter_run
    $mouse.ignored = false if @lock_player
  end
end






#============================================================================
# SUPER SIMPLE MOUSE SCRIPT
# Windows
#============================================================================


class Window_Selectable < Window_Base
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  alias shaz_mouse_window_selectable_update update
  def update
    shaz_mouse_window_selectable_update
    process_mouse_handling if Input.method == :mouse
  end
  #--------------------------------------------------------------------------
  # * Mouse Movement Processing
  #--------------------------------------------------------------------------
  def process_mouse_handling
    return unless $mouse.enabled? && cursor_movable?
    # Add a delay to prevent too-fast scrolling
    @delay = @delay ? @delay + 1 : 0
    return if @delay % 3 > 0

    mx, my = *Mouse.position
    vx = self.viewport ? self.x - self.viewport.ox + self.viewport.rect.x : self.x
    vy = self.viewport ? self.y - self.viewport.oy + self.viewport.rect.y : self.y
    if mx.between?(vx, vx + self.width) &&
      my.between?(vy, vy + self.height)
      mx -= vx
      mx -= padding
      my -= vy
      my -= padding
      my += oy
      for i in 0 ... item_max
        rect = item_rect(i)
        if mx.between?(rect.x, rect.x + rect.width) &&
          my.between?(rect.y, rect.y + rect.height)
          last_index = @index
          select(i)
          if @index != last_index
            Sound.play_cursor
          end
          break
        end
      end
    end
  end
end

class Window_NameInput < Window_Selectable
  #--------------------------------------------------------------------------
  # * Mouse Movement Processing
  #--------------------------------------------------------------------------
  def process_mouse_handling
    return unless $mouse.enabled?
    # Add a delay to prevent too-fast scrolling
    @delay = @delay ? @delay + 1 : 0
    return if @delay % 3 > 0

    mx, my = *Mouse.position
    vx = (self.viewport ? self.x - self.viewport.ox + self.viewport.rect.x : self.x) + padding
    vy = (self.viewport ? self.y - self.viewport.oy + self.viewport.rect.y : self.y) + padding
    if mx.between?(vx, vx + self.width - padding * 2) &&
      my.between?(vy, vy + self.height - padding * 2)
      mx -= vx
      my -= vy
      x = (mx > 5*32+16 ? mx-16 : mx) / 32
      y = my / line_height
      last_index = @index
      @index = y * 10 + x
      Sound.play_cursor if @index != last_index
    end
  end
end

class Scene_File < Scene_MenuBase
  #--------------------------------------------------------------------------
  # * Update Cursor
  #--------------------------------------------------------------------------
  alias shaz_mouse_scene_file_update_cursor update_cursor
  def update_cursor
    shaz_mouse_scene_file_update_cursor
    process_mouse_handling if Input.method == :mouse
  end
  #--------------------------------------------------------------------------
  # * Mouse Movement Processing
  #--------------------------------------------------------------------------
  def process_mouse_handling
    return unless $mouse.enabled?
    # Add a delay to prevent too-fast scrolling
    @delay = @delay ? @delay + 1 : 0
    return if @delay % 3 > 0

    mx, my = *Mouse.position
    vx = @savefile_viewport.ox + mx
    vy = @savefile_viewport.oy + my
    last_index = @index
    new_index = vy / savefile_height
    if @index != new_index
      if new_index > @index
        cursor_down(false)
      else
        cursor_up(false)
      end
      Sound.play_cursor
      @savefile_windows[last_index].selected = false
      @savefile_windows[@index].selected = true
    end
  end
end