VA鼠标脚本 6/9 更新 v2.32 by Sion

Sion

更新日志

主要功能

    1，智能寻路，按住 D 键可以扩大寻路的范围
    2，变量输入框改良
    3，鼠标启动事件：
      在事件中加入“注释”：鼠标启动
      该事件将无法用其它方式启动，只能用鼠标左键点击启动
      
  鼠标指针图片 MouseCursor.png 放入 Graphics\System 文件夹
  路径点指示图片 $Arrow.png 放入 Graphics\Characters 文件夹
  如果未放入会使用RM自带图片代替缺失文件

改良的变量输入框

------- 下载 -------
鼠标2.32 + 指针变换脚本.rar (340.04 KB, 下载次数: 3963)

2014-6-9 12:56 上传

点击文件名下载附件

附件未包含 RGSS300.dll 运行前 Ctrl + S 保存即可。
https://rpg.blue/thread-347535-1-1.html 提供了 dll 支持的鼠标脚本 v3.00，支持鼠标滚轮功能。

------ 额外功能 ------
.rb 文件可以直接用记事本打开。
鼠标选择敌人v1.3.rb (4.27 KB, 下载次数: 1287)

2013-12-13 11:20 上传

点击文件名下载附件

鼠标选择敌人 v1.3 兼容后知后觉横版战斗.rb (4.33 KB, 下载次数: 948)

2013-12-13 11:20 上传

点击文件名下载附件

如果你没有使用这个横版战斗，请下载上面的脚本


八方移动补丁v1.3.rb (18.09 KB, 下载次数: 722)

2015-6-3 22:31 上传

点击文件名下载附件

需要使用八方行走图的话这里有：脚本链接

路径可视化补丁v1.1.rar (5.76 KB, 下载次数: 1173)

2013-11-16 23:19 上传

点击文件名下载附件

感觉蛮鸡肋，需要的话就带走吧。

Sion

429259591 发表于 2013-2-7 22:12
自动寻路的算法是怎么写的？没写过于是不知道是怎么样的←（喂，其实你是个脚本盲来的，说什么没写过啊，根 ...

从起点开始，逐步绘制所有可能的路径，直到覆盖到终点。然后反相移动回去得到路径。具体算法在脚本里780行左右。这个模型还算简单的，都是方格，上个图吧：

Sion

q854240045 发表于 2013-2-17 12:33
再麻烦您一次，用脸图战斗无法用鼠标选择单个敌人应该怎么优化？
http://rpg.blue/home.php?mod=spa ...

脸图战斗.rar (4.02 KB, 下载次数: 281)

2013-2-17 13:46 上传

点击文件名下载附件

用默认的选择框吧。

Sion

风与炎的旋律 发表于 2013-3-3 13:01
不好意思又来问问题了，想问下判定鼠标移动到了某选项或者物品上上的命令是怎么写的，我想整合一 ...

就参照默认的帮助窗口吧：Window_Help

1.   #--------------------------------------------------------------------------
   
2.   # ● 设置光标位置 （class Window_Selectable）
   
3.   #--------------------------------------------------------------------------
   
4.   def index=(index)
   
5.     @index = index
   
6.     update_cursor
   
7.     call_update_help # 这是设置好索引之后用来更新帮助窗口的命令
   
8.   end

复制代码

要让帮助窗口关闭，不太好弄吧。因为光标总是要停留在某一个物品上的，这个鼠标脚本只是根据鼠标的位置去设置光标的位置而已。你可以在鼠标脚本里搜索

1. Window_Selectable

复制代码

里面有详细的说明的

Sion

为RPG生 发表于 2013-3-14 21:16
首先说下，这真是个不错的脚本！
不过还是希望楼主能加入一个鼠标移动到选项会播放声效的效果——这个应该 ...

1. class Window_Selectable
   
2.   #--------------------------------------------------------------------------
   
3.   # ● 将光标设置到鼠标所在的位置，附带卷动菜单的功能
   
4.   #--------------------------------------------------------------------------
   
5.   def set_cursor
   
6.     mouse_row, mouse_col = mouse_window_area
   
7.     if    mouse_row == -1
   
8.       @move_state += 1 if need_scroll?
   
9.       cursor_up if (@move_state - 1) % 4 == 0 && !is_horzcommand?
   
10.     elsif mouse_row == -2
    
11.       @move_state += 1 if need_scroll?
    
12.       cursor_down if (@move_state - 1) % 4 == 0 && !is_horzcommand?
    
13.     elsif mouse_col == -1
    
14.       @move_state += 1 if need_scroll?
    
15.       cursor_left if (@move_state - 1) % 16 == 0 && is_horzcommand?
    
16.     elsif mouse_col == -2
    
17.       @move_state += 1 if need_scroll?
    
18.       cursor_right if (@move_state - 1) % 16 == 0 && is_horzcommand?
    
19.     else
    
20.       @move_state = 0
    
21.       new_index = (top_row + mouse_row) * col_max + mouse_col
    
22.       if new_index < item_max && new_index != @index
    
23.         Sound.play_cursor
    
24.         select(new_index)
    
25.       end
    
26.     end
    
27.   end
    
28. end

复制代码

你可以自己试一试效果，放到鼠标脚本以下就行了；一些特殊的菜单还要另外改

Sion

ayano2k 发表于 2013-3-20 16:34
感谢楼主的脚本，很好用~~
但是这个功能想知道该怎么设置??
  [[  1.3a: 代码小修改；

RUBY 代码复制

=begin ========================================================================
 
  八方移动补丁 置于Sion_Mouse_System脚本下
 
  2013.10.28 v1.2 鼠标2.0+更新修正
  2013.5.3 v1.1 修正斜向触发事件
  
=end #=========================================================================
 
class Game_Player
  # ───────────────────────────────────────
  #  † 八方移动
  # ───────────────────────────────────────
  def move_by_input
    return if !movable? || $game_map.interpreter.running?
    case Input.dir8
    when 2,4,6,8; move_straight(Input.dir8)
    when 1
      if diagonal_passable?(x, y, 4, 2); move_diagonal(4, 2)
      elsif passable?(x, y, 4); move_straight(4)
      else; move_straight(2)
      end
    when 3
      if diagonal_passable?(x, y, 6, 2); move_diagonal(6, 2)
      elsif passable?(x, y, 6); move_straight(6)
      else; move_straight(2)
      end
    when 7
      if diagonal_passable?(x, y, 4, 8); move_diagonal(4, 8)
      elsif passable?(x, y, 4); move_straight(4)
      else; move_straight(8)
      end
    when 9
      if diagonal_passable?(x, y, 6, 8); move_diagonal(6, 8)
      elsif passable?(x, y, 6); move_straight(6)
      else; move_straight(6)
      end
    else;   move_by_mouse
    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?
        if @mouse_move_path[0] == dir
          move_straight(dir)
        else
          if @mouse_move_path.size == 1 &&
              touch_event?(x, y, dir, @mouse_move_path[0])
            move_straight(dir)
          elsif dir == 4 || dir == 6
            move_diagonal(dir, @mouse_move_path.shift)
          else
            move_diagonal(@mouse_move_path.shift, dir)
          end
        end
      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 touch_event?(x, y, dir, dir_)
    x = $game_map.round_x_with_direction(
      $game_map.round_x_with_direction(x, dir), dir_)
    y = $game_map.round_y_with_direction(
      $game_map.round_y_with_direction(y, dir), dir_)
    if collide_with_events?(x, y)
      return x, y
    else
      return nil, nil
    end
  end
  # ───────────────────────────────────────
  #  † 步行路径
  # ───────────────────────────────────────
  def draw_walk_path
    # 准备绘制路径表格
    sheet = Table.new($game_map.width, $game_map.height)
    chase_path  = []
    new_end_points = [@moveto_x, @moveto_y]
    sheet[@moveto_x, @moveto_y] = 1
    reach_point = false
    step = 2
    loop do #loop1 开始填充表格
      draw_path = false
      check_points = new_end_points
      new_end_points = []
      break if step > KsOfSion::Break_Steps &&
               !Input.press?(KsOfSion::Find_Path_Key)
      loop do #loop3 从终点开始反向填充
        point_x = check_points.shift
        break if point_x == nil
        point_y = check_points.shift
        # 判断路径是否连通
        if point_x == x && point_y == y
          reach_point = true; break; end
        # 以需要抵达该点的步数填充路径表格 #
        left_x  = $game_map.round_x(point_x - 1)
        right_x = $game_map.round_x(point_x + 1)
        up_y    = $game_map.round_y(point_y - 1)
        down_y  = $game_map.round_y(point_y + 1)
        if sheet[left_x, point_y] == 0              &&
           $game_map.passable?(left_x, point_y, 6)  &&
           !collide_with_events?(left_x, point_y)   &&
           $game_map.passable?(point_x, point_y, 4) &&
           !collide_with_vehicles?(left_x, point_y) #judge_end
          sheet[left_x, point_y] = step
          draw_path = true
          new_end_points.push(left_x, point_y)
        end
        if sheet[right_x, point_y] == 0             &&
           $game_map.passable?(right_x, point_y, 4) &&
           !collide_with_events?(right_x, point_y)  &&
           $game_map.passable?(point_x, point_y, 6) &&
           !collide_with_vehicles?(right_x, point_y)#judge_end
          sheet[right_x, point_y] = step
          draw_path = true
          new_end_points.push(right_x, point_y)
        end
        if sheet[point_x, up_y] == 0                &&
           $game_map.passable?(point_x, up_y, 2)    &&
           !collide_with_events?(point_x, up_y)     &&
           $game_map.passable?(point_x, point_y, 8) &&
           !collide_with_vehicles?(point_x, up_y)   #judge_end
          sheet[point_x, up_y] = step
          draw_path = true
          new_end_points.push(point_x, up_y)
        end
        if sheet[point_x, down_y] == 0              &&
           $game_map.passable?(point_x, down_y, 8)  &&
           !collide_with_events?(point_x, down_y)   &&
           $game_map.passable?(point_x, point_y, 2) &&
           !collide_with_vehicles?(point_x, down_y) #judge_end
          sheet[point_x, down_y] = step
          draw_path = true
          new_end_points.push(point_x, down_y)
        end
      end#endOfLoop3
      break if !draw_path || reach_point
      step += 1
    end #endOfLoop1 路径表格填充完毕
    $mouse_move_sign.transparent = false
    # 判断指定地点能否抵达
    if reach_point
      $mouse_move_sign.direction = 2
    else
      return not_reach_point
    end
    # 根据路径表格绘制最短移动路径（正向）
    step -= 1 # 因为需要再填充一次才能判定是否抵达
    point_x, point_y = x, y
    for i in 2..step
    step -= 1
    if (@moveto_x - point_x).abs < (@moveto_y - point_y).abs
      if    sheet[point_x, $game_map.round_y(point_y + 1)] == step          &&
            $game_map.passable?(point_x, $game_map.round_y(point_y + 1), 8) &&
            $game_map.passable?(point_x, point_y, 2)                #judge_end
        chase_path.push(2)
        point_y = $game_map.round_y(point_y + 1)
      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step          &&
            $game_map.passable?(point_x, $game_map.round_y(point_y - 1), 2) &&
            $game_map.passable?(point_x, point_y, 8)                #judge_end
        chase_path.push(8)
        point_y = $game_map.round_y(point_y - 1)
      elsif sheet[$game_map.round_x(point_x - 1), point_y] == step          &&
            $game_map.passable?($game_map.round_x(point_x - 1), point_y, 6) &&
            $game_map.passable?(point_x, point_y, 4)                #judge_end
        chase_path.push(4)
        point_x = $game_map.round_x(point_x - 1)
      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step          &&
            $game_map.passable?($game_map.round_x(point_x + 1), point_y, 4) &&
            $game_map.passable?(point_x, point_y, 6)                #judge_end
        chase_path.push(6)
        point_x = $game_map.round_x(point_x + 1)
      end
    else
      if    sheet[$game_map.round_x(point_x - 1), point_y] == step          &&
            $game_map.passable?($game_map.round_x(point_x - 1), point_y, 6) &&
            $game_map.passable?(point_x, point_y, 4)                #judge_end
        chase_path.push(4)
        point_x = $game_map.round_x(point_x - 1)
      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step          &&
            $game_map.passable?($game_map.round_x(point_x + 1), point_y, 4) &&
            $game_map.passable?(point_x, point_y, 6)                #judge_end
        chase_path.push(6)
        point_x = $game_map.round_x(point_x + 1)
      elsif sheet[point_x, $game_map.round_y(point_y + 1)] == step          &&
            $game_map.passable?(point_x, $game_map.round_y(point_y + 1), 8) &&
            $game_map.passable?(point_x, point_y, 2)                #judge_end
        chase_path.push(2)
        point_y = $game_map.round_y(point_y + 1)
      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step          &&
            $game_map.passable?(point_x, $game_map.round_y(point_y - 1), 2) &&
            $game_map.passable?(point_x, point_y, 8)                #judge_end
        chase_path.push(8)
        point_y = $game_map.round_y(point_y - 1)
      end
    end
    end#endOfForLoop
    return chase_path
  end#walk
  # ───────────────────────────────────────
  #  † boat路径
  # ───────────────────────────────────────
  def draw_boat_path
    # 准备绘制路径表格
    sheet = Table.new($game_map.width, $game_map.height)
    chase_path  = []
    new_end_points = [@moveto_x, @moveto_y]
    sheet[@moveto_x, @moveto_y] = 1
    reach_point = false
    step = 2
    loop do #loop1 开始填充表格
      draw_path = false
      check_points = new_end_points
      new_end_points = []
      break if step > KsOfSion::Break_Steps &&
               !Input.press?(KsOfSion::Find_Path_Key)
      loop do #loop3 从终点开始反向填充
        point_x = check_points.shift
        break if point_x == nil
        point_y = check_points.shift
        left_x  = $game_map.round_x(point_x - 1)
        right_x = $game_map.round_x(point_x + 1)
        up_y    = $game_map.round_y(point_y - 1)
        down_y  = $game_map.round_y(point_y + 1)
        # 判断路径是否连通
        if left_x == x && point_y == y
          reach_point = true; break
        elsif right_x == x && point_y == y
          reach_point = true; break
        elsif point_x == x && up_y == y
          reach_point = true; break
        elsif point_x == x && down_y == y
          reach_point = true; break
        end
        # 以需要抵达该点的步数填充路径表格 #
        if sheet[left_x, point_y] == 0                &&
           $game_map.boat_passable?(left_x, point_y)  &&
           !collide_with_events?(left_x, point_y)     &&
           !collide_with_vehicles?(left_x, point_y)   #judge_end
          sheet[left_x, point_y] = step
          draw_path = true
          new_end_points.push(left_x, point_y)
        end
        if sheet[right_x, point_y] == 0               &&
           $game_map.boat_passable?(right_x, point_y) &&
           !collide_with_events?(right_x, point_y)    &&
           !collide_with_vehicles?(right_x, point_y)  #judge_end
          sheet[right_x, point_y] = step
          draw_path = true
          new_end_points.push(right_x, point_y)
        end
        if sheet[point_x, up_y] == 0                  &&
           $game_map.boat_passable?(point_x, up_y)    &&
           !collide_with_events?(point_x, up_y)       &&
           !collide_with_vehicles?(point_x, up_y)     #judge_end
          sheet[point_x, up_y] = step
          draw_path = true
          new_end_points.push(point_x, up_y)
        end
        if sheet[point_x, down_y] == 0                &&
           $game_map.boat_passable?(point_x, down_y)  &&
           !collide_with_events?(point_x, down_y)     &&
           !collide_with_vehicles?(point_x, down_y)   #judge_end
          sheet[point_x, down_y] = step
          draw_path = true
          new_end_points.push(point_x, down_y)
        end
      end#endOfLoop3
      break if !draw_path || reach_point
      step += 1
    end #endOfLoop1 路径表格填充完毕
    $mouse_move_sign.transparent = false
    # 判断指定地点能否抵达
    if reach_point
      $mouse_move_sign.direction = 2
    else
      return not_reach_point
    end
    # 根据路径表格绘制最短移动路径（正向）
    point_x, point_y = x, y
    for i in 2..step # forLoop
    step -= 1
    if (@moveto_x - point_x).abs < (@moveto_y - point_y).abs
      if    sheet[point_x, $game_map.round_y(point_y + 1)] == step
        chase_path.push(2)
        point_y = $game_map.round_y(point_y + 1)
      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step
        chase_path.push(8)
        point_y = $game_map.round_y(point_y - 1)
      elsif sheet[$game_map.round_x(point_x - 1), point_y] == step
        chase_path.push(4)
        point_x = $game_map.round_x(point_x - 1)
      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step
        chase_path.push(6)
        point_x = $game_map.round_x(point_x + 1)
      end
    else
      if    sheet[$game_map.round_x(point_x - 1), point_y] == step
        chase_path.push(4)
        point_x = $game_map.round_x(point_x - 1)
      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step
        chase_path.push(6)
        point_x = $game_map.round_x(point_x + 1)
      elsif sheet[point_x, $game_map.round_y(point_y + 1)] == step
        chase_path.push(2)
        point_y = $game_map.round_y(point_y + 1)
      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step
        chase_path.push(8)
        point_y = $game_map.round_y(point_y - 1)
      end
    end
    end #endOfForLoop
    # 如果指定点无法抵达或者登陆
    return not_reach_point unless landable?(@moveto_x, @moveto_y, chase_path)
    return chase_path
  end#boat
  # ───────────────────────────────────────
  #  † ship路径
  # ───────────────────────────────────────
  def draw_ship_path
    # 准备绘制路径表格
    sheet = Table.new($game_map.width, $game_map.height)
    chase_path  = []
    new_end_points = [@moveto_x, @moveto_y]
    sheet[@moveto_x, @moveto_y] = 1
    reach_point = false
    step = 2
    loop do #loop1 开始填充表格
      draw_path = false
      check_points = new_end_points
      new_end_points = []
      break if step > KsOfSion::Break_Steps &&
               !Input.press?(KsOfSion::Find_Path_Key)
      loop do #loop3 从终点开始反向填充
        point_x = check_points.shift
        break if point_x == nil
        point_y = check_points.shift
        left_x  = $game_map.round_x(point_x - 1)
        right_x = $game_map.round_x(point_x + 1)
        up_y    = $game_map.round_y(point_y - 1)
        down_y  = $game_map.round_y(point_y + 1)
        # 判断路径是否连通
        if left_x == x && point_y == y
          reach_point = true; break
        elsif right_x == x && point_y == y
          reach_point = true; break
        elsif point_x == x && up_y == y
          reach_point = true; break
        elsif point_x == x && down_y == y
          reach_point = true; break
        end
        # 以需要抵达该点的步数填充路径表格 #
        if sheet[left_x, point_y] == 0                &&
           $game_map.ship_passable?(left_x, point_y)  &&
           !collide_with_events?(left_x, point_y)     &&
           !collide_with_vehicles?(left_x, point_y)   #judge_end
          sheet[left_x, point_y] = step
          draw_path = true
          new_end_points.push(left_x, point_y)
        end
        if sheet[right_x, point_y] == 0               &&
           $game_map.ship_passable?(right_x, point_y) &&
           !collide_with_events?(right_x, point_y)    &&
           !collide_with_vehicles?(right_x, point_y)  #judge_end
          sheet[right_x, point_y] = step
          draw_path = true
          new_end_points.push(right_x, point_y)
        end
        if sheet[point_x, up_y] == 0                  &&
           $game_map.ship_passable?(point_x, up_y)    &&
           !collide_with_events?(point_x, up_y)       &&
           !collide_with_vehicles?(point_x, up_y)     #judge_end
          sheet[point_x, up_y] = step
          draw_path = true
          new_end_points.push(point_x, up_y)
        end
        if sheet[point_x, down_y] == 0                &&
           $game_map.ship_passable?(point_x, down_y)  &&
           !collide_with_events?(point_x, down_y)     &&
           !collide_with_vehicles?(point_x, down_y)   #judge_end
          sheet[point_x, down_y] = step
          draw_path = true
          new_end_points.push(point_x, down_y)
        end
      end#endOfLoop3
      break if !draw_path || reach_point
      step += 1
    end #endOfLoop1 路径表格填充完毕
    $mouse_move_sign.transparent = false
    # 判断指定地点能否抵达
    if reach_point
      $mouse_move_sign.direction = 2
    else
      not_reach_point
      return
    end
    # 根据路径表格绘制最短移动路径（正向）
    point_x, point_y = x, y
    for i in 2..step
    step -= 1
    if (@moveto_x - point_x).abs < (@moveto_y - point_y).abs
      if    sheet[point_x, $game_map.round_y(point_y + 1)] == step
        chase_path.push(2)
        point_y = $game_map.round_y(point_y + 1)
      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step
        chase_path.push(8)
        point_y = $game_map.round_y(point_y - 1)
      elsif sheet[$game_map.round_x(point_x - 1), point_y] == step
        chase_path.push(4)
        point_x = $game_map.round_x(point_x - 1)
      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step
        chase_path.push(6)
        point_x = $game_map.round_x(point_x + 1)
      end
    else
      if    sheet[$game_map.round_x(point_x - 1), point_y] == step
        chase_path.push(4)
        point_x = $game_map.round_x(point_x - 1)
      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step
        chase_path.push(6)
        point_x = $game_map.round_x(point_x + 1)
      elsif sheet[point_x, $game_map.round_y(point_y + 1)] == step
        chase_path.push(2)
        point_y = $game_map.round_y(point_y + 1)
      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step
        chase_path.push(8)
        point_y = $game_map.round_y(point_y - 1)
      end
    end
    end #endOfForLoop
    # 如果指定点无法抵达或者登陆
    return not_reach_point unless landable?(@moveto_x, @moveto_y, chase_path)
    return chase_path
  end#ship
end

=begin ========================================================================


 


  八方移动补丁 置于Sion_Mouse_System脚本下


 


  2013.10.28 v1.2 鼠标2.0+更新修正


  2013.5.3 v1.1 修正斜向触发事件


  


=end #=========================================================================


 


class Game_Player


  # ───────────────────────────────────────


  #  † 八方移动


  # ───────────────────────────────────────


  def move_by_input


    return if !movable? || $game_map.interpreter.running?


    case Input.dir8


    when 2,4,6,8; move_straight(Input.dir8)


    when 1


      if diagonal_passable?(x, y, 4, 2); move_diagonal(4, 2)


      elsif passable?(x, y, 4); move_straight(4)


      else; move_straight(2)


      end


    when 3


      if diagonal_passable?(x, y, 6, 2); move_diagonal(6, 2)


      elsif passable?(x, y, 6); move_straight(6)


      else; move_straight(2)


      end


    when 7


      if diagonal_passable?(x, y, 4, 8); move_diagonal(4, 8)


      elsif passable?(x, y, 4); move_straight(4)


      else; move_straight(8)


      end


    when 9


      if diagonal_passable?(x, y, 6, 8); move_diagonal(6, 8)


      elsif passable?(x, y, 6); move_straight(6)


      else; move_straight(6)


      end


    else;   move_by_mouse


    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?


        if @mouse_move_path[0] == dir


          move_straight(dir)


        else


          if @mouse_move_path.size == 1 &&


              touch_event?(x, y, dir, @mouse_move_path[0])


            move_straight(dir)


          elsif dir == 4 || dir == 6


            move_diagonal(dir, @mouse_move_path.shift)


          else


            move_diagonal(@mouse_move_path.shift, dir)


          end


        end


      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 touch_event?(x, y, dir, dir_)


    x = $game_map.round_x_with_direction(


      $game_map.round_x_with_direction(x, dir), dir_)


    y = $game_map.round_y_with_direction(


      $game_map.round_y_with_direction(y, dir), dir_)


    if collide_with_events?(x, y)


      return x, y


    else


      return nil, nil


    end


  end


  # ───────────────────────────────────────


  #  † 步行路径


  # ───────────────────────────────────────


  def draw_walk_path


    # 准备绘制路径表格


    sheet = Table.new($game_map.width, $game_map.height)


    chase_path  = []


    new_end_points = [@moveto_x, @moveto_y]


    sheet[@moveto_x, @moveto_y] = 1


    reach_point = false


    step = 2


    loop do #loop1 开始填充表格


      draw_path = false


      check_points = new_end_points


      new_end_points = []


      break if step > KsOfSion::Break_Steps &&


               !Input.press?(KsOfSion::Find_Path_Key)


      loop do #loop3 从终点开始反向填充


        point_x = check_points.shift


        break if point_x == nil


        point_y = check_points.shift


        # 判断路径是否连通


        if point_x == x && point_y == y


          reach_point = true; break; end


        # 以需要抵达该点的步数填充路径表格 #


        left_x  = $game_map.round_x(point_x - 1)


        right_x = $game_map.round_x(point_x + 1)


        up_y    = $game_map.round_y(point_y - 1)


        down_y  = $game_map.round_y(point_y + 1)


        if sheet[left_x, point_y] == 0              &&


           $game_map.passable?(left_x, point_y, 6)  &&


           !collide_with_events?(left_x, point_y)   &&


           $game_map.passable?(point_x, point_y, 4) &&


           !collide_with_vehicles?(left_x, point_y) #judge_end


          sheet[left_x, point_y] = step


          draw_path = true


          new_end_points.push(left_x, point_y)


        end


        if sheet[right_x, point_y] == 0             &&


           $game_map.passable?(right_x, point_y, 4) &&


           !collide_with_events?(right_x, point_y)  &&


           $game_map.passable?(point_x, point_y, 6) &&


           !collide_with_vehicles?(right_x, point_y)#judge_end


          sheet[right_x, point_y] = step


          draw_path = true


          new_end_points.push(right_x, point_y)


        end


        if sheet[point_x, up_y] == 0                &&


           $game_map.passable?(point_x, up_y, 2)    &&


           !collide_with_events?(point_x, up_y)     &&


           $game_map.passable?(point_x, point_y, 8) &&


           !collide_with_vehicles?(point_x, up_y)   #judge_end


          sheet[point_x, up_y] = step


          draw_path = true


          new_end_points.push(point_x, up_y)


        end


        if sheet[point_x, down_y] == 0              &&


           $game_map.passable?(point_x, down_y, 8)  &&


           !collide_with_events?(point_x, down_y)   &&


           $game_map.passable?(point_x, point_y, 2) &&


           !collide_with_vehicles?(point_x, down_y) #judge_end


          sheet[point_x, down_y] = step


          draw_path = true


          new_end_points.push(point_x, down_y)


        end


      end#endOfLoop3


      break if !draw_path || reach_point


      step += 1


    end #endOfLoop1 路径表格填充完毕


    $mouse_move_sign.transparent = false


    # 判断指定地点能否抵达


    if reach_point


      $mouse_move_sign.direction = 2


    else


      return not_reach_point


    end


    # 根据路径表格绘制最短移动路径（正向）


    step -= 1 # 因为需要再填充一次才能判定是否抵达


    point_x, point_y = x, y


    for i in 2..step


    step -= 1


    if (@moveto_x - point_x).abs < (@moveto_y - point_y).abs


      if    sheet[point_x, $game_map.round_y(point_y + 1)] == step          &&


            $game_map.passable?(point_x, $game_map.round_y(point_y + 1), 8) &&


            $game_map.passable?(point_x, point_y, 2)                #judge_end


        chase_path.push(2)


        point_y = $game_map.round_y(point_y + 1)


      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step          &&


            $game_map.passable?(point_x, $game_map.round_y(point_y - 1), 2) &&


            $game_map.passable?(point_x, point_y, 8)                #judge_end


        chase_path.push(8)


        point_y = $game_map.round_y(point_y - 1)


      elsif sheet[$game_map.round_x(point_x - 1), point_y] == step          &&


            $game_map.passable?($game_map.round_x(point_x - 1), point_y, 6) &&


            $game_map.passable?(point_x, point_y, 4)                #judge_end


        chase_path.push(4)


        point_x = $game_map.round_x(point_x - 1)


      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step          &&


            $game_map.passable?($game_map.round_x(point_x + 1), point_y, 4) &&


            $game_map.passable?(point_x, point_y, 6)                #judge_end


        chase_path.push(6)


        point_x = $game_map.round_x(point_x + 1)


      end


    else


      if    sheet[$game_map.round_x(point_x - 1), point_y] == step          &&


            $game_map.passable?($game_map.round_x(point_x - 1), point_y, 6) &&


            $game_map.passable?(point_x, point_y, 4)                #judge_end


        chase_path.push(4)


        point_x = $game_map.round_x(point_x - 1)


      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step          &&


            $game_map.passable?($game_map.round_x(point_x + 1), point_y, 4) &&


            $game_map.passable?(point_x, point_y, 6)                #judge_end


        chase_path.push(6)


        point_x = $game_map.round_x(point_x + 1)


      elsif sheet[point_x, $game_map.round_y(point_y + 1)] == step          &&


            $game_map.passable?(point_x, $game_map.round_y(point_y + 1), 8) &&


            $game_map.passable?(point_x, point_y, 2)                #judge_end


        chase_path.push(2)


        point_y = $game_map.round_y(point_y + 1)


      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step          &&


            $game_map.passable?(point_x, $game_map.round_y(point_y - 1), 2) &&


            $game_map.passable?(point_x, point_y, 8)                #judge_end


        chase_path.push(8)


        point_y = $game_map.round_y(point_y - 1)


      end


    end


    end#endOfForLoop


    return chase_path


  end#walk


  # ───────────────────────────────────────


  #  † boat路径


  # ───────────────────────────────────────


  def draw_boat_path


    # 准备绘制路径表格


    sheet = Table.new($game_map.width, $game_map.height)


    chase_path  = []


    new_end_points = [@moveto_x, @moveto_y]


    sheet[@moveto_x, @moveto_y] = 1


    reach_point = false


    step = 2


    loop do #loop1 开始填充表格


      draw_path = false


      check_points = new_end_points


      new_end_points = []


      break if step > KsOfSion::Break_Steps &&


               !Input.press?(KsOfSion::Find_Path_Key)


      loop do #loop3 从终点开始反向填充


        point_x = check_points.shift


        break if point_x == nil


        point_y = check_points.shift


        left_x  = $game_map.round_x(point_x - 1)


        right_x = $game_map.round_x(point_x + 1)


        up_y    = $game_map.round_y(point_y - 1)


        down_y  = $game_map.round_y(point_y + 1)


        # 判断路径是否连通


        if left_x == x && point_y == y


          reach_point = true; break


        elsif right_x == x && point_y == y


          reach_point = true; break


        elsif point_x == x && up_y == y


          reach_point = true; break


        elsif point_x == x && down_y == y


          reach_point = true; break


        end


        # 以需要抵达该点的步数填充路径表格 #


        if sheet[left_x, point_y] == 0                &&


           $game_map.boat_passable?(left_x, point_y)  &&


           !collide_with_events?(left_x, point_y)     &&


           !collide_with_vehicles?(left_x, point_y)   #judge_end


          sheet[left_x, point_y] = step


          draw_path = true


          new_end_points.push(left_x, point_y)


        end


        if sheet[right_x, point_y] == 0               &&


           $game_map.boat_passable?(right_x, point_y) &&


           !collide_with_events?(right_x, point_y)    &&


           !collide_with_vehicles?(right_x, point_y)  #judge_end


          sheet[right_x, point_y] = step


          draw_path = true


          new_end_points.push(right_x, point_y)


        end


        if sheet[point_x, up_y] == 0                  &&


           $game_map.boat_passable?(point_x, up_y)    &&


           !collide_with_events?(point_x, up_y)       &&


           !collide_with_vehicles?(point_x, up_y)     #judge_end


          sheet[point_x, up_y] = step


          draw_path = true


          new_end_points.push(point_x, up_y)


        end


        if sheet[point_x, down_y] == 0                &&


           $game_map.boat_passable?(point_x, down_y)  &&


           !collide_with_events?(point_x, down_y)     &&


           !collide_with_vehicles?(point_x, down_y)   #judge_end


          sheet[point_x, down_y] = step


          draw_path = true


          new_end_points.push(point_x, down_y)


        end


      end#endOfLoop3


      break if !draw_path || reach_point


      step += 1


    end #endOfLoop1 路径表格填充完毕


    $mouse_move_sign.transparent = false


    # 判断指定地点能否抵达


    if reach_point


      $mouse_move_sign.direction = 2


    else


      return not_reach_point


    end


    # 根据路径表格绘制最短移动路径（正向）


    point_x, point_y = x, y


    for i in 2..step # forLoop


    step -= 1


    if (@moveto_x - point_x).abs < (@moveto_y - point_y).abs


      if    sheet[point_x, $game_map.round_y(point_y + 1)] == step


        chase_path.push(2)


        point_y = $game_map.round_y(point_y + 1)


      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step


        chase_path.push(8)


        point_y = $game_map.round_y(point_y - 1)


      elsif sheet[$game_map.round_x(point_x - 1), point_y] == step


        chase_path.push(4)


        point_x = $game_map.round_x(point_x - 1)


      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step


        chase_path.push(6)


        point_x = $game_map.round_x(point_x + 1)


      end


    else


      if    sheet[$game_map.round_x(point_x - 1), point_y] == step


        chase_path.push(4)


        point_x = $game_map.round_x(point_x - 1)


      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step


        chase_path.push(6)


        point_x = $game_map.round_x(point_x + 1)


      elsif sheet[point_x, $game_map.round_y(point_y + 1)] == step


        chase_path.push(2)


        point_y = $game_map.round_y(point_y + 1)


      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step


        chase_path.push(8)


        point_y = $game_map.round_y(point_y - 1)


      end


    end


    end #endOfForLoop


    # 如果指定点无法抵达或者登陆


    return not_reach_point unless landable?(@moveto_x, @moveto_y, chase_path)


    return chase_path


  end#boat


  # ───────────────────────────────────────


  #  † ship路径


  # ───────────────────────────────────────


  def draw_ship_path


    # 准备绘制路径表格


    sheet = Table.new($game_map.width, $game_map.height)


    chase_path  = []


    new_end_points = [@moveto_x, @moveto_y]


    sheet[@moveto_x, @moveto_y] = 1


    reach_point = false


    step = 2


    loop do #loop1 开始填充表格


      draw_path = false


      check_points = new_end_points


      new_end_points = []


      break if step > KsOfSion::Break_Steps &&


               !Input.press?(KsOfSion::Find_Path_Key)


      loop do #loop3 从终点开始反向填充


        point_x = check_points.shift


        break if point_x == nil


        point_y = check_points.shift


        left_x  = $game_map.round_x(point_x - 1)


        right_x = $game_map.round_x(point_x + 1)


        up_y    = $game_map.round_y(point_y - 1)


        down_y  = $game_map.round_y(point_y + 1)


        # 判断路径是否连通


        if left_x == x && point_y == y


          reach_point = true; break


        elsif right_x == x && point_y == y


          reach_point = true; break


        elsif point_x == x && up_y == y


          reach_point = true; break


        elsif point_x == x && down_y == y


          reach_point = true; break


        end


        # 以需要抵达该点的步数填充路径表格 #


        if sheet[left_x, point_y] == 0                &&


           $game_map.ship_passable?(left_x, point_y)  &&


           !collide_with_events?(left_x, point_y)     &&


           !collide_with_vehicles?(left_x, point_y)   #judge_end


          sheet[left_x, point_y] = step


          draw_path = true


          new_end_points.push(left_x, point_y)


        end


        if sheet[right_x, point_y] == 0               &&


           $game_map.ship_passable?(right_x, point_y) &&


           !collide_with_events?(right_x, point_y)    &&


           !collide_with_vehicles?(right_x, point_y)  #judge_end


          sheet[right_x, point_y] = step


          draw_path = true


          new_end_points.push(right_x, point_y)


        end


        if sheet[point_x, up_y] == 0                  &&


           $game_map.ship_passable?(point_x, up_y)    &&


           !collide_with_events?(point_x, up_y)       &&


           !collide_with_vehicles?(point_x, up_y)     #judge_end


          sheet[point_x, up_y] = step


          draw_path = true


          new_end_points.push(point_x, up_y)


        end


        if sheet[point_x, down_y] == 0                &&


           $game_map.ship_passable?(point_x, down_y)  &&


           !collide_with_events?(point_x, down_y)     &&


           !collide_with_vehicles?(point_x, down_y)   #judge_end


          sheet[point_x, down_y] = step


          draw_path = true


          new_end_points.push(point_x, down_y)


        end


      end#endOfLoop3


      break if !draw_path || reach_point


      step += 1


    end #endOfLoop1 路径表格填充完毕


    $mouse_move_sign.transparent = false


    # 判断指定地点能否抵达


    if reach_point


      $mouse_move_sign.direction = 2


    else


      not_reach_point


      return


    end


    # 根据路径表格绘制最短移动路径（正向）


    point_x, point_y = x, y


    for i in 2..step


    step -= 1


    if (@moveto_x - point_x).abs < (@moveto_y - point_y).abs


      if    sheet[point_x, $game_map.round_y(point_y + 1)] == step


        chase_path.push(2)


        point_y = $game_map.round_y(point_y + 1)


      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step


        chase_path.push(8)


        point_y = $game_map.round_y(point_y - 1)


      elsif sheet[$game_map.round_x(point_x - 1), point_y] == step


        chase_path.push(4)


        point_x = $game_map.round_x(point_x - 1)


      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step


        chase_path.push(6)


        point_x = $game_map.round_x(point_x + 1)


      end


    else


      if    sheet[$game_map.round_x(point_x - 1), point_y] == step


        chase_path.push(4)


        point_x = $game_map.round_x(point_x - 1)


      elsif sheet[$game_map.round_x(point_x + 1), point_y] == step


        chase_path.push(6)


        point_x = $game_map.round_x(point_x + 1)


      elsif sheet[point_x, $game_map.round_y(point_y + 1)] == step


        chase_path.push(2)


        point_y = $game_map.round_y(point_y + 1)


      elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step


        chase_path.push(8)


        point_y = $game_map.round_y(point_y - 1)


      end


    end


    end #endOfForLoop


    # 如果指定点无法抵达或者登陆


    return not_reach_point unless landable?(@moveto_x, @moveto_y, chase_path)


    return chase_path


  end#ship


end

Sion

@曉磊 ，@米酒獭酱 ，@muyumuyulnny

这是区域响应的代码，因为时间比较紧，所以没有把它弄成傻瓜式的，需要大家自己动手设置了。
要使用它的话，预先在事件中执行脚本

1. area_response(type, ox, oy, width, height, switch_id)

复制代码

参数规范：
---------------------------------------------------------------------
其中type是区域响应类型
type = 0：鼠标移动到屏幕对应区域后开启对应的开关（只执行一次）
type = 1：鼠标在屏幕对应区域按下按键后，对应的开关开启（只执行一次）
type = 2：鼠标移动到屏幕对应区域时开关开启，移动到区域外时开关关闭，并行的处理。如果需要关闭响应，在事件脚本中执行代码

1. $area_responses.delete_if {|rsp| rsp.type == 2 }# 关闭全部类型为2的响应

复制代码

ox,oy  为区域左上角坐标 width,height 为区域宽度 switch_id为操作的公共开关id

例子：鼠标移动到屏幕左上角32*32区域内，按下鼠标左键，启动开关3（只响应一次）

1. area_response(1, 0, 0, 32, 32, 3)

复制代码

---------------------------------------------------------------------
type = 3：鼠标移动到地图坐标指定的事件上，则启动该区域上的事件（只执行一次）
type = 4；鼠标移动到地图坐标指定的事件上，则启动该事件（可以反复触发）如果需要关闭响应，在事件脚本中执行代码

1. $area_responses.delete_if {|rsp| rsp.type == 4 } # 关闭全部类型为4的响应

复制代码

例子：鼠标移动到地图坐标(0, 5) 时，启动位于该格子的事件

1. area_response(4, 0, 5) #启动事件只使用3个参数

复制代码

---------------------------------------------------------------------

以下代码放到鼠标脚本之下

1. ####泥煤的height
   
2. # [url=home.php?mod=space&uid=291977]@height[/url] = height
   
3. 
   
4. class Area_Response
   
5.   attr_accessor :type
   
6.   attr_reader :ox
   
7.   attr_reader :oy
   
8.   attr_reader :width
   
9.   attr_reader :height
   
10.   attr_reader :switch_id
    
11.   def initialize(type, ox, oy, width = 32, height = 32, switch_id = nil)
    
12.     @type = type
    
13.     @ox = ox
    
14.     @oy = oy
    
15.     @width = width
    
16.     @height = height
    
17.     @switch_id = switch_id
    
18.   end
    
19. end
    
20. 
    
21. $area_responses = []
    
22. 
    
23. class Scene_Map
    
24.   alias update_mouse_2013421 update_mouse_action
    
25.   def update_mouse_action
    
26.     update_area_response
    
27.     update_mouse_2013421
    
28.   end
    
29.   def update_area_response
    
30.     responses = $area_responses
    
31.     responses.each {|response|
    
32.       ox = response.ox
    
33.       oy = response.oy
    
34.       width = response.width
    
35.       height = response.height
    
36.       switch_id = response.switch_id
    
37.       case response.type
    
38.       when 0
    
39.         if mouse_in_area?(ox, oy, width, height)
    
40.           $game_switches[switch_id] = true
    
41.           $area_responses.delete(response)
    
42.         end
    
43.       when 1
    
44.         if mouse_in_area?(ox, oy, width, height) && Mouse.trigger?(0x01)
    
45.           $game_switches[switch_id] = true
    
46.           $area_responses.delete(response)
    
47.         end
    
48.       when 2
    
49.         if mouse_in_area?(ox, oy, width, height)
    
50.           $game_switches[switch_id] = true
    
51.         else
    
52.           $game_switches[switch_id] = false
    
53.         end
    
54.       when 3
    
55.         if mouse_in_area?((ox - $game_map.display_x) * 32 ,
    
56.             (oy - $game_map.display_y) * 32, width, height)
    
57.           $game_map.events_xy(ox, oy).each {|event|
    
58.           event.start
    
59.           $area_responses.delete(response)
    
60.           return
    
61.           }
    
62.         end
    
63.       when 4
    
64.         if mouse_in_area?((ox - $game_map.display_x) * 32,
    
65.             (oy - $game_map.display_y) * 32, width, height)
    
66.           $game_map.events_xy(ox, oy).each {|event|
    
67.             event.start
    
68.             return
    
69.           }
    
70.         end
    
71.       end
    
72.     }
    
73.   end
    
74.   def mouse_in_area?(ox, oy, width, height)
    
75.     Mouse.mouse_x >= ox && Mouse.mouse_x <= ox + width &&
    
76.     Mouse.mouse_y >= oy && Mouse.mouse_y <= oy + height
    
77.   end
    
78. end
    
79. class Game_Interpreter
    
80.   def area_response(*arg)
    
81.     $area_responses.push(Area_Response.new(*arg))
    
82.   end
    
83. end

复制代码

Sion

黑舞嗜 发表于 2013-4-29 20:08
没法配合8方行走图的脚本啊...把def move_by_input 到下一个 end 还有它们之间的内容都删掉也不行啊 ...

八方行走图补丁，鼠标八方移动补丁见29楼

1. #===============================================================================
   
2. #  八方向行走
   
3. #    by：铅笔描绘的思念
   
4. #    在Characters里添加八方向行走图（命名规范：在四方向上的基础上＋_8D）
   
5. #    行走动画就为8方向的。否则就会原4方向的代替8方向的。
   
6. #
   
7. #    八方向：数字键盘方向对应的数字
   
8. #     7   8   9
   
9. #      ↖ ↑ ↗
   
10. #     4← 0 →6
    
11. #      ↙ ↓ ↘
    
12. #     1   2   3
    
13. #
    
14. #  2013.4.30 Edited by me
    
15. #   
    
16. #    各种bug修正 + 各种效率优化
    
17. #    8d行走图需用.png格式
    
18. #
    
19. #    这个脚本可以独立正常工作
    
20. #    注意：同鼠标脚本配合使用，需要置于·八方移动补丁·上方！
    
21. #
    
22. #===============================================================================
    
23. 
    
24. class Game_Player
    
25.   def move_by_input
    
26.     return if !movable? || $game_map.interpreter.running?
    
27.     case Input.dir8
    
28.     when 2,4,6,8; move_straight(Input.dir8)
    
29.     when 1; move_diagonal(4, 2)
    
30.     when 3; move_diagonal(6, 2)
    
31.     when 7; move_diagonal(4, 8)
    
32.     when 9; move_diagonal(6, 8)
    
33.     end
    
34.   end
    
35. end
    
36. 
    
37. class Game_CharacterBase
    
38. 
    
39.   def move_diagonal(horz, vert)
    
40.     @move_succeed = diagonal_passable?(x, y, horz, vert)
    
41.     if @move_succeed
    
42.       @x = $game_map.round_x_with_direction(@x, horz)
    
43.       @y = $game_map.round_y_with_direction(@y, vert)
    
44.       @real_x = $game_map.x_with_direction(@x, reverse_dir(horz))
    
45.       @real_y = $game_map.y_with_direction(@y, reverse_dir(vert))
    
46.       increase_steps
    
47.     end
    
48.     if horz == 4
    
49.       vert == 2 ? set_direction(1) : set_direction(7)
    
50.     else
    
51.       vert == 2 ? set_direction(3) : set_direction(9)
    
52.     end
    
53.   end
    
54. end
    
55. 
    
56. class Sprite_Character < Sprite_Base
    
57. 
    
58.   def set_character_bitmap
    
59.     if File.exist?("Graphics/Characters/#{@character_name}_8D.png")
    
60.       @_8d = true
    
61.       bitmap1 = Cache.character(@character_name)
    
62.       bitmap2 = Cache.character(@character_name + "_8D")
    
63.       width = bitmap1.width
    
64.       height = bitmap1.height
    
65.       rect = Rect.new(0, 0, width, height)
    
66.       self.bitmap = Bitmap.new(width * 2, height * 2)
    
67.       self.bitmap.blt(0, 0, bitmap1, rect)
    
68.       self.bitmap.blt(width, 0, bitmap2, rect)
    
69.       sign = @character_name[/^[\!\$]./]
    
70.       if sign && sign.include?("$")
    
71.         @cw = width / 3
    
72.         @ch = height / 4
    
73.       else
    
74.         @cw = width / 12
    
75.         @ch = height / 8
    
76.       end
    
77.       self.ox = @cw / 2
    
78.       self.oy = @ch
    
79.     else
    
80.       self.bitmap = Cache.character(@character_name)
    
81.       sign = @character_name[/^[\!\$]./]
    
82.       if sign && sign.include?("$")
    
83.         @cw = bitmap.width / 3
    
84.         @ch = bitmap.height / 4
    
85.       else
    
86.         @cw = bitmap.width / 12
    
87.         @ch = bitmap.height / 8
    
88.       end
    
89.       self.ox = @cw / 2
    
90.       self.oy = @ch
    
91.     end
    
92.   end
    
93. 
    
94.   def update_src_rect
    
95.     return if @tile_id != 0
    
96.     index = @character.character_index
    
97.     pattern = @character.pattern < 3 ? @character.pattern : 1
    
98.     sx = (index % 4 * 3 + pattern) * @cw
    
99.     if @character.direction % 2 == 1
    
100.       sx += self.bitmap.width / 2 if @_8d
     
101.       row = case @character.direction
     
102.       when 1; 0
     
103.       when 3; 2
     
104.       when 7; 1
     
105.       when 9; 3
     
106.       end
     
107.       sy = (index / 4 * 4 + row) * @ch
     
108.     else
     
109.       sy = (index / 4 * 4 + (@character.direction - 2) / 2) * @ch
     
110.     end
     
111.     self.src_rect.set(sx, sy, @cw, @ch)
     
112.   end
     
113. end

复制代码

Sion

Mr.红茶 发表于 2013-5-18 18:11
鼠标脚本导致跳跃脚本出错了，阁下应如何解决
附上跳跃脚本：

改好了
使用时在事件内插入脚本jump_over 触发事件就会跳过去

1. class Game_Map
   
2. #--------------------------------------------------------------------------
   
3. # ● 计算地图元件ID
   
4. #--------------------------------------------------------------------------
   
5. def get_tile_id(x, y)
   
6. a = data[x, y, 0]
   
7. return 0 unless a
   
8. a-=2000
   
9. map_tile_id_0 = (a >= 0) ? a/48 : (a+593)
   
10. map_tile_id_1 = (data[x, y, 1]-2000) / 48
    
11. map_tile_id_2 = (data[x, y, 2])
    
12. 
    
13. map_tile_id_0 = 0 if map_tile_id_0 == -42 # A
    
14. map_tile_id_1 = 0 if map_tile_id_1 == -42 # I
    
15. map_tile_id_2 = 0 if map_tile_id_2 == -42 # B～E
    
16. 
    
17. # 图块 ID 矫正
    
18. map_tile_id_0 = map_tile_id_1 if map_tile_id_1 > 0
    
19. unless @events.nil?
    
20. for event in @events.values
    
21. if event.pos?(x, y) and event.tile_id > 0
    
22. # 若是事件使用地图元件，使用该地图元件的ID
    
23. map_tile_id_2 = event.tile_id
    
24. end
    
25. end
    
26. end
    
27. # 返回 [底层ID, 上层ID]
    
28. return [map_tile_id_0, map_tile_id_2]
    
29. end
    
30. end
    
31. 
    
32. 
    
33. class Game_Character < Game_CharacterBase
    
34. #--------------------------------------------------------------------------
    
35. # ● 获取地图元件ID
    
36. #--------------------------------------------------------------------------
    
37. def get_map_tile_id(x, y)
    
38. return $game_map.get_tile_id(x, y)
    
39. end
    
40. #--------------------------------------------------------------------------
    
41. # ● 判断是否能跳跃
    
42. #--------------------------------------------------------------------------
    
43. def can_jump?
    
44. # 面向与方向键不同时不跳跃
    
45. return false if Input.dir4 != @direction
    
46. return false if debug_through? # 测试行走(按下Ctrl)时不跳跃
    
47. x_f1 = x_f2 = @x
    
48. y_f1 = y_f2 = @y
    
49. 
    
50. # 计算前两格座标
    
51. case @direction
    
52. when 2
    
53. y_f2 += 2
    
54. y_f1 += 1
    
55. when 4
    
56. x_f2 -= 2
    
57. x_f1 -= 1
    
58. when 6
    
59. x_f2 += 2
    
60. x_f1 += 1
    
61. when 8
    
62. y_f2 -= 2
    
63. y_f1 -= 1
    
64. end
    
65. tile_id_0 = get_map_tile_id(@x, @y) # 获取当前格元件ID
    
66. tile_id_1 = get_map_tile_id(x_f1, y_f1) # 获取前一格元件ID
    
67. tile_id_2 = get_map_tile_id(x_f2, y_f2) # 获取前两格元件ID
    
68. event_1 = $game_map.events_xy(x_f1, y_f1) # 获取前一格事件
    
69. event_2 = $game_map.events_xy(x_f2, y_f2) # 获取前两格事件
    
70. 
    
71. # 事件判断
    
72. if !event_1.empty? # 若前一格有事件
    
73. return false if !event_2.empty? # 前两格也有事件则不能跳跃
    
74. return check_event_jumpable?(event_1) # 判断是否指定可以跳跃
    
75. end
    
76. 
    
77. # 前第一格判断
    
78. if tile_id_1[1]>1
    
79. return false # 前一格的B~E层无法通行时也不能跳跃
    
80. elsif $game_map.counter?(x_f1, y_f1)
    
81. return false # 前一格为柜台时无法跳跃
    
82. end
    
83. 
    
84. # 判断面前两格是否相同
    
85. return false if tile_id_1 == tile_id_2
    
86. return false if tile_id_1 == tile_id_0
    
87. 
    
88. # 判断面前一格是否墙壁元件
    
89. wall_tile = (89..96).to_a + (105..112).to_a + (121..128).to_a # 获取墙壁元件ID
    
90. w_top_tile = (81..88).to_a + (97..104).to_a + (113..120).to_a # 获取墙顶元件ID
    
91. return false if wall_tile.include?(tile_id_1[0]) # 前一格为墙壁时无法跳跃
    
92. if w_top_tile.include?(tile_id_0[0]) # 若当前格为墙顶
    
93. # 前一格非墙顶，而前两格为墙顶时则可以跳跃
    
94. if !w_top_tile.include?(tile_id_1[0]) && w_top_tile.include?(tile_id_2[0])
    
95. return true
    
96. end
    
97. end
    
98. return false if map_passable?(x_f1, y_f1, @direction) # 前一格能通行时不跳跃
    
99. return map_passable?(x_f2, y_f2, @direction) # 判断前两格是否能通行
    
100. end
     
101. #--------------------------------------------------------------------------
     
102. # ● 判断某格的事件是否能跳跃
     
103. #--------------------------------------------------------------------------
     
104. def check_event_jumpable?(events)
     
105. events.each{|event|
     
106. return true if event.can_jump?
     
107. }
     
108. return false
     
109. end
     
110. #--------------------------------------------------------------------------
     
111. # ● 执行跳跃
     
112. #--------------------------------------------------------------------------
     
113. def do_jump(d=@direction)
     
114. # 判断跳跃方向
     
115. case d
     
116. when 2; jump(0, 2) # 向下跳
     
117. when 4; jump(-2, 0) # 向左跳
     
118. when 6; jump(2, 0) # 向右跳
     
119. when 8; jump(0, -2) # 向上跳
     
120. end
     
121. end
     
122. end
     
123. 
     
124. 
     
125. class Game_Interpreter
     
126.   def jump_over
     
127.                 d = $game_player.direction
     
128.                         if $game_player.followers.visible # 队伍跟随时
     
129.                                 $game_player.followers.gather # 跟随队伍聚集
     
130.                                 while !$game_player.followers.gather?
     
131.                                         $game_player.followers.update # 跟随队伍刷新
     
132.                                 end
     
133.                                 # 跟随队员跳跃
     
134.                                 $game_player.followers.each{|follower| follower.do_jump(d)}
     
135.                         end
     
136.                         $game_player.do_jump(d) # 执行跳跃
     
137.         end
     
138. end

复制代码

吐槽：这是哪个大神写的脚本啊.....都不带缩进的- -b

Sion

夕仔 发表于 2013-11-18 20:37
发现了一个BUG，选择敌人的那个脚本，用 后知后觉的横版战斗系统，将敌人打死后，在下回合选择攻击时，一点 ...

那个BUG是早就修复了，主楼的脚本有更新。
你的传工程我今天才看到 - -b