Project1

标题: 帮忙看看购买物品时,柜型框的修改. [打印本页]

作者: hgfor 时间: 2008-12-21 23:35
标题: 帮忙看看购买物品时,柜型框的修改.
  下面这段代码是购买物品时,柜型框按键方向的代码.

帮忙看看,怎么修改成上下左右来选择物品.

谢谢了

   def update
super
# 可以移动光标的情况下
#if self.active
   #self.opacity = 255
#else
   #self.opacity = 160
#end
if self.active and @item_max > 0 and @index >= 0
   # 方向键下被按下的情况下
   if Input.repeat?(Input::DOWN)
      # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
      # 或光标位置在(项目数-列数)之前的情况下
      if (@column_max == 1 and Input.trigger?(Input::DOWN)) or
         @index < @item_max - @column_max
      # 光标向下移动
      $game_system.se_play($data_system.cursor_se)
      @index = (@index + @column_max) % @item_max
      end
   end
   # 方向键上被按下的情况下
   if Input.repeat?(Input::UP)
      # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
      # 或光标位置在列之后的情况下
      if (@column_max == 1 and Input.trigger?(Input::UP)) or
         @index >= @column_max
      # 光标向上移动
      $game_system.se_play($data_system.cursor_se)
      @index = (@index - @column_max + @item_max) % @item_max
      end
   end
   # 方向键右被按下的情况下
   if Input.repeat?(Input::RIGHT)
      # 列数为 2 以上并且、光标位置在(项目数 - 1)之前的情况下
      if @column_max >= 2 and @index < @item_max - 1
      # 光标向右移动
      $game_system.se_play($data_system.cursor_se)
      @index += 1
      end
   end
   # 方向键左被按下的情况下
   if Input.repeat?(Input::LEFT)
      # 列数为 2 以上并且、光标位置在 0 之后的情况下
      if @column_max >= 2 and @index > 0
      # 光标向左移动
      $game_system.se_play($data_system.cursor_se)
      @index -= 1
      end
   end
   # R 键被按下的情况下
   if Input.repeat?(Input::R)
      # 显示的最后行在数据中最后行上方的情况下
      if self.top_row + (self.page_row_max - 1) < (self.row_max - 1)
      # 光标向后移动一页
      $game_system.se_play($data_system.cursor_se)
      @index = [@index + self.page_item_max, @item_max - 1].min
      self.top_row += self.page_row_max
      end
   end
   # L 键被按下的情况下
   if Input.repeat?(Input::L)
      # 显示的开头行在位置 0 之后的情况下
      if self.top_row > 0
      # 光标向前移动一页
      $game_system.se_play($data_system.cursor_se)
      @index = [@index - self.page_item_max, 0].max
      self.top_row -= self.page_row_max
      end
   end
end
# 刷新帮助文本 (update_help 定义了继承目标)
if self.active and @help_window != nil
   update_help
end
# 刷新光标矩形
update_cursor_rect
  end

作者: hgfor 时间: 2008-12-23 17:12
别的都不说,看来一问这种脚本类的,就很难有人解答,还是得自己找答案.

作者: hgfor 时间: 2008-12-24 17:13
等高人来看看.

作者: goahead 时间: 2008-12-24 19:36
提示: 作者被禁止或删除内容自动屏蔽

欢迎光临 Project1 (https://rpg.blue/)