多功能 DLL SiNova v10015【6/9更新鼠标脚本】 - Project1

#==============================================================================
# ** F12 Reset Fix
# Author: Acezon
# Date: 2 June 2013
#------------------------------------------------------------------------------
# Version 2.1
# - Fixed issue where game window is not in focus
# when Console_on is set to false
# - Now compatible with Tsuki's Test Edit script
# Version 2.0
# - Console option added
# - Automatically focuses window after pressing F12
# Version 1.1
# - Respawning the exe was better
# Version 1.0
# - Initial Release
#------------------------------------------------------------------------------
# Just credit me. Free to use for commercial/non-commercial games.
# Thanks to Tsukihime and Cidiomar for the console scriptlet
#==============================================================================
$imported = {} if $imported.nil?
$imported["Acezon-F12ResetFix"] = true
#==============================================================================
# ** START Configuration
#==============================================================================
module Config
Console_on = false # duh
end
#==============================================================================
# ** END Configuration
#==============================================================================
alias f12_reset_fix rgss_main
def rgss_main(*args, &block)
f12_reset_fix(*args) do
if $run_once_f12
#pid = spawn ($TEST ? 'Game.exe test' : 'Game')
pid = spawn ($TEST ? 'Game.exe test' : 'Game.exe')
# Tell OS to ignore exit status
Process.detach(pid)
sleep(0.01)
exit
end
$run_once_f12 = true
# Run default rgss_main
block.call
end
end
module SceneManager
class << self
alias :acezon_f12_first :first_scene_class
end
def self.first_scene_class
focus_game_window
acezon_f12_first
end
def self.focus_game_window
# Just to prevent re-spawning the console since
# Tsuki uses this same part in his Test Edit script
if !$imported["TH_TestEdit"]
# Get game window text
console_w = Win32API.new('user32','GetForegroundWindow', 'V', 'L').call
buf_len = Win32API.new('user32','GetWindowTextLength', 'L', 'I').call(console_w)
str = ' ' * (buf_len + 1)
Win32API.new('user32', 'GetWindowText', 'LPI', 'I').call(console_w , str, str.length)
if Config::Console_on
# Initiate console
Win32API.new('kernel32.dll', 'AllocConsole', '', '').call
Win32API.new('kernel32.dll', 'SetConsoleTitle', 'P', '').call('RGSS3 Console')
$stdout.reopen('CONOUT)
end
end
end
end

复制代码

#--------------------------------------------------------------------------
  # ● 由鼠标移动
  #--------------------------------------------------------------------------
  def move_by_mouse
    unless @mouse_move_path.empty? # 移动路线数组不为空则执行移动
      dir = @mouse_move_path.shift
      if passable?(x, y, dir) && !@mouse_move_path.empty?
        move_straight(dir)
      elsif @mouse_move_path.empty? # 判断是否是最后一步
        x2 = $game_map.round_x_with_direction(x, dir)
        y2 = $game_map.round_y_with_direction(y, dir)
        move_straight(dir) unless dir.zero?
        unless @x == x2 && @y == y2 # 如果移动失败，检查是否启动前方事件
          check_event_trigger_there([0,1,2])
          get_on_off_vehicle unless $game_map.setup_starting_event
        end
        $mouse_move_sign.transparent = true if $mouse_move_sign.direction == 2
        @mouse_dash = false
      elsif @mouse_move_path[0].zero? # 目标点无法抵达，调整朝向→目标点
        @mouse_move_path.shift
        @direction = dir
        @mouse_dash = false
      else
        draw_move_path
      end
    end
  end

#--------------------------------------------------------------------------


  # ● 由鼠标移动


  #--------------------------------------------------------------------------


  def move_by_mouse


    unless @mouse_move_path.empty? # 移动路线数组不为空则执行移动


      dir = @mouse_move_path.shift


      if passable?(x, y, dir) && !@mouse_move_path.empty?


        move_straight(dir)


      elsif @mouse_move_path.empty? # 判断是否是最后一步


        x2 = $game_map.round_x_with_direction(x, dir)


        y2 = $game_map.round_y_with_direction(y, dir)


        move_straight(dir) unless dir.zero?


        unless @x == x2 && @y == y2 # 如果移动失败，检查是否启动前方事件


          check_event_trigger_there([0,1,2])


          get_on_off_vehicle unless $game_map.setup_starting_event


        end


        $mouse_move_sign.transparent = true if $mouse_move_sign.direction == 2


        @mouse_dash = false


      elsif @mouse_move_path[0].zero? # 目标点无法抵达，调整朝向→目标点


        @mouse_move_path.shift


        @direction = dir


        @mouse_dash = false


      else


        draw_move_path


      end


    end


  end