【专业伸手党】请教一下如何实现随机下拉菜单？谢谢啦

一瞬间的幻觉

看到手机游戏里面有一个文字置放型游戏。
里面的迷宫行动，都用一行行文字来显示，
蛮好玩啊，VX怎么才能显示一行行文字这样的方式呢？
（每行文字都是独立的框，并且选择进入后可以看到下一阶的内容。）

比如：

进入迷宫第\v[1]层

得到一个宝箱（进入查看） ==》 打开宝箱得到100G

遇见一群怪物（进入查看） ==》 战斗过程。。。。



如果不进入查看的话，就显示第一阶的文字

所有的文字都可以上拉下拉来查看，最多可以保存999+行文字


谢谢啦，给你们带来困扰了。

怪蜀黍

小瞬你看看这个《P叔的动作列表》是否满足你的要求。

---

范例： P叔的动作列表.rar (249.93 KB, 下载次数: 83)

2013-3-15 19:08 上传

点击文件名下载附件

截图：

脚本（使用时务必注明来源）：

RUBY 代码复制

#==============================================================================
# ■ P叔的动作列表
#------------------------------------------------------------------------------
# 请设定动作列表保留的最大行数：
  Line_Max = 999
# 三点注意事项：  
# 1、需要保留动作的文章，在文章开头打上符号 \+
# 2、不需要保留动作的文章，直接打字即可
# 3、文章不要太长，一般不要超过一行，不然会显示不全
# 4、对于颜色显示、队员名称显示、变量显示都支持
#------------------------------------------------------------------------------
#                      请注明脚本来源：
#                  本脚本来自[url]www.66rpg.com[/url]
#==============================================================================
 
 
#==============================================================================
# ■ Game_Message
#------------------------------------------------------------------------------
# 　处理讯息窗口状态、执行文字显示、选项等的类。 本类的实例请参考 $game_message。
#==============================================================================
 
class Game_Message
  #--------------------------------------------------------------------------
  # ● 定义实例变量
  #--------------------------------------------------------------------------
  attr_accessor :action_table               # 行动列表
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #--------------------------------------------------------------------------
  def initialize
    @action_table = [] if @action_table.nil?
    clear
    @visible = false
  end
end 
 
#==============================================================================
# ■ Window_Message
#------------------------------------------------------------------------------
# 　显示文章的信息窗口。
#==============================================================================
 
class Window_Message < Window_Selectable
  #--------------------------------------------------------------------------
  # ● 转换特殊符号
  #--------------------------------------------------------------------------
  def convert_special_characters
    @text.gsub!(/\\V\[([0-9]+)\]/i) { $game_variables[$1.to_i] }
    @text.gsub!(/\\N\[([0-9]+)\]/i) { $game_actors[$1.to_i].name }
    @text.gsub!(/\\C\[([0-9]+)\]/i) { "\x01[#{$1}]" }
    @text.gsub!(/\\G/)              { "\x02" }
    @text.gsub!(/\\\./)             { "\x03" }
    @text.gsub!(/\\\|/)             { "\x04" }
    @text.gsub!(/\\!/)              { "\x05" }
    @text.gsub!(/\\>/)              { "\x06" }
    @text.gsub!(/\\</)              { "\x07" }
    @text.gsub!(/\\\^/)             { "\x08" }
    @text.gsub!(/\\\\/)             { "\\" }
    @text.gsub!(/\\\+/)             { "" }
  end
end  
 
#==============================================================================
# ■ Game_Interpreter
#------------------------------------------------------------------------------
# 　执行事件命令的解释器。本类在 Game_Map 类、Game_Troop 类、与
# Game_Event 类的内部使用。
#==============================================================================
 
class Game_Interpreter
  #--------------------------------------------------------------------------
  # ● 显示文章
  #--------------------------------------------------------------------------
  def command_101
    unless $game_message.busy
      $game_message.face_name = @params[0]
      $game_message.face_index = @params[1]
      $game_message.background = @params[2]
      $game_message.position = @params[3]
      text = ""
      @index += 1
      while @list[@index].code == 401       # 文章数据
        $game_message.texts.push(@list[@index].parameters[0])
        @index += 1
      end
      for i in 0...2
        text += $game_message.texts[i] unless $game_message.texts[i].nil?
      end
      text = convert_special_characters(text)
      $game_message.action_table.push(text) if text.include?("\x09")
      if $game_message.action_table.size > 999
        $game_message.action_table.delete_at(0)
      end  
      if @list[@index].code == 102          # 显示选择项
        setup_choices(@list[@index].parameters)
      elsif @list[@index].code == 103       # 数值输入处理
        setup_num_input(@list[@index].parameters)
      end
      set_message_waiting                   # 设置等待信息结束
    end
    return false
  end
  #--------------------------------------------------------------------------
  # ● 转换特殊符号
  #--------------------------------------------------------------------------
  def convert_special_characters(texts)
    text = texts.dup
    text.gsub!(/\\V\[([0-9]+)\]/i) { $game_variables[$1.to_i] }
    text.gsub!(/\\N\[([0-9]+)\]/i) { $game_actors[$1.to_i].name }
    text.gsub!(/\\C\[([0-9]+)\]/i) { "\x01[#{$1}]" }
    text.gsub!(/\\G/)              { "" }
    text.gsub!(/\\\./)             { "" }
    text.gsub!(/\\\|/)             { "" }
    text.gsub!(/\\!/)              { "" }
    text.gsub!(/\\>/)              { "" }
    text.gsub!(/\\</)              { "" }
    text.gsub!(/\\\^/)             { "" }
    text.gsub!(/\\\\/)             { "\\" }
    text.gsub!(/\\\+/)             { "\x09" }
    return text
  end
end  
 
#==============================================================================
# ■ Window_Action
#------------------------------------------------------------------------------
# 　显示行动列表的窗口。
#==============================================================================
 
class Window_Action < Window_Base
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #     x      : 窗口 X 座标
  #     y      : 窗口 Y 座标
  #--------------------------------------------------------------------------
  def initialize(x, y)
    super(x, y, 544, 416)
    @self_index = 0
    @contents_x = 4
    refresh
  end
  def update
    max = $game_message.action_table.size
    max = 999 if max > 999
    if Input.trigger?(Input::B)
      Sound.play_cancel
      $scene = Scene_Map.new
    elsif Input.repeat?(Input::UP)
      if @self_index < max - 16
        @self_index += 1
        refresh
      else
        Sound.play_buzzer
      end  
    elsif Input.repeat?(Input::DOWN)
      if @self_index > 0
        @self_index -= 1 
        refresh
      else
        Sound.play_buzzer
      end  
    elsif Input.repeat?(Input::L)
      if @self_index < max - 16
        @self_index += 16
        @self_index = max - 16 if @self_index > max - 16
        refresh
      else
        Sound.play_buzzer
      end  
    elsif Input.repeat?(Input::R)
      if @self_index > 0
        @self_index -= 16 
        @self_index = 0 if @self_index < 0
        refresh
      else
        Sound.play_buzzer
      end    
    end
  end  
  #--------------------------------------------------------------------------
  # ● 刷新
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    max = $game_message.action_table.size
    max = 16 if max > 16
    action_table = $game_message.action_table
    for i in 0...max
      text = action_table[action_table.size - i - @self_index - 1]
      update_message(text, i)
    end
  end
 
  def update_message(text, i)
    dupped_text = text.dup
    @contents_x = 4
    join = false 
    loop do
      c = dupped_text.slice!(/./m)             # 获取一个文字
      case c
      when nil                          # 无法获取文字时
        break
      when "\n"                         # 新行
 
      when "\x01"                       # \C[n]（文字变色）
        dupped_text.sub!(/\[([0-9]+)\]/, "")
        contents.font.color = text_color($1.to_i)
        next  
      when "\x09"                       # \+（需要加入动作）
        join = true
      else  
        if join
          contents.draw_text(@contents_x, WLH * (15 - i), 544, WLH, c)
          c_width = contents.text_size(c).width
          @contents_x += c_width  
        end
      end
    end   
  end
end
 
#==============================================================================
# ■ Scene_Action
#------------------------------------------------------------------------------
# 　处理战斗画面的类。
#==============================================================================
 
class Scene_Action < Scene_Base
  #--------------------------------------------------------------------------
  # ● 开始处理
  #--------------------------------------------------------------------------
  def start
    super
    @action_window = Window_Action.new(0, 0)
  end
  #--------------------------------------------------------------------------
  # ● 结束处理
  #--------------------------------------------------------------------------
  def terminate
    super
    @action_window.dispose
  end
  #--------------------------------------------------------------------------
  # ● 更新画面
  #--------------------------------------------------------------------------
  def update
    super
    @action_window.update
  end
end

#==============================================================================


# ■ P叔的动作列表


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


# 请设定动作列表保留的最大行数：


  Line_Max = 999


# 三点注意事项：  


# 1、需要保留动作的文章，在文章开头打上符号 \+


# 2、不需要保留动作的文章，直接打字即可


# 3、文章不要太长，一般不要超过一行，不然会显示不全


# 4、对于颜色显示、队员名称显示、变量显示都支持


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


#                      请注明脚本来源：


#                  本脚本来自[url]www.66rpg.com[/url]


#==============================================================================


 


 


#==============================================================================


# ■ Game_Message


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


# 　处理讯息窗口状态、执行文字显示、选项等的类。 本类的实例请参考 $game_message。


#==============================================================================


 


class Game_Message


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


  # ● 定义实例变量


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


  attr_accessor :action_table               # 行动列表


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


  # ● 初始化对像


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


  def initialize


    @action_table = [] if @action_table.nil?


    clear


    @visible = false


  end


end 


 


#==============================================================================


# ■ Window_Message


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


# 　显示文章的信息窗口。


#==============================================================================


 


class Window_Message < Window_Selectable


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


  # ● 转换特殊符号


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


  def convert_special_characters


    @text.gsub!(/\\V\[([0-9]+)\]/i) { $game_variables[$1.to_i] }


    @text.gsub!(/\\N\[([0-9]+)\]/i) { $game_actors[$1.to_i].name }


    @text.gsub!(/\\C\[([0-9]+)\]/i) { "\x01[#{$1}]" }


    @text.gsub!(/\\G/)              { "\x02" }


    @text.gsub!(/\\\./)             { "\x03" }


    @text.gsub!(/\\\|/)             { "\x04" }


    @text.gsub!(/\\!/)              { "\x05" }


    @text.gsub!(/\\>/)              { "\x06" }


    @text.gsub!(/\\</)              { "\x07" }


    @text.gsub!(/\\\^/)             { "\x08" }


    @text.gsub!(/\\\\/)             { "\\" }


    @text.gsub!(/\\\+/)             { "" }


  end


end  


 


#==============================================================================


# ■ Game_Interpreter


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


# 　执行事件命令的解释器。本类在 Game_Map 类、Game_Troop 类、与


# Game_Event 类的内部使用。


#==============================================================================


 


class Game_Interpreter


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


  # ● 显示文章


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


  def command_101


    unless $game_message.busy


      $game_message.face_name = @params[0]


      $game_message.face_index = @params[1]


      $game_message.background = @params[2]


      $game_message.position = @params[3]


      text = ""


      @index += 1


      while @list[@index].code == 401       # 文章数据


        $game_message.texts.push(@list[@index].parameters[0])


        @index += 1


      end


      for i in 0...2


        text += $game_message.texts[i] unless $game_message.texts[i].nil?


      end


      text = convert_special_characters(text)


      $game_message.action_table.push(text) if text.include?("\x09")


      if $game_message.action_table.size > 999


        $game_message.action_table.delete_at(0)


      end  


      if @list[@index].code == 102          # 显示选择项


        setup_choices(@list[@index].parameters)


      elsif @list[@index].code == 103       # 数值输入处理


        setup_num_input(@list[@index].parameters)


      end


      set_message_waiting                   # 设置等待信息结束


    end


    return false


  end


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


  # ● 转换特殊符号


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


  def convert_special_characters(texts)


    text = texts.dup


    text.gsub!(/\\V\[([0-9]+)\]/i) { $game_variables[$1.to_i] }


    text.gsub!(/\\N\[([0-9]+)\]/i) { $game_actors[$1.to_i].name }


    text.gsub!(/\\C\[([0-9]+)\]/i) { "\x01[#{$1}]" }


    text.gsub!(/\\G/)              { "" }


    text.gsub!(/\\\./)             { "" }


    text.gsub!(/\\\|/)             { "" }


    text.gsub!(/\\!/)              { "" }


    text.gsub!(/\\>/)              { "" }


    text.gsub!(/\\</)              { "" }


    text.gsub!(/\\\^/)             { "" }


    text.gsub!(/\\\\/)             { "\\" }


    text.gsub!(/\\\+/)             { "\x09" }


    return text


  end


end  


 


#==============================================================================


# ■ Window_Action


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


# 　显示行动列表的窗口。


#==============================================================================


 


class Window_Action < Window_Base


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


  # ● 初始化对像


  #     x      : 窗口 X 座标


  #     y      : 窗口 Y 座标


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


  def initialize(x, y)


    super(x, y, 544, 416)


    @self_index = 0


    @contents_x = 4


    refresh


  end


  def update


    max = $game_message.action_table.size


    max = 999 if max > 999


    if Input.trigger?(Input::B)


      Sound.play_cancel


      $scene = Scene_Map.new


    elsif Input.repeat?(Input::UP)


      if @self_index < max - 16


        @self_index += 1


        refresh


      else


        Sound.play_buzzer


      end  


    elsif Input.repeat?(Input::DOWN)


      if @self_index > 0


        @self_index -= 1 


        refresh


      else


        Sound.play_buzzer


      end  


    elsif Input.repeat?(Input::L)


      if @self_index < max - 16


        @self_index += 16


        @self_index = max - 16 if @self_index > max - 16


        refresh


      else


        Sound.play_buzzer


      end  


    elsif Input.repeat?(Input::R)


      if @self_index > 0


        @self_index -= 16 


        @self_index = 0 if @self_index < 0


        refresh


      else


        Sound.play_buzzer


      end    


    end


  end  


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


  # ● 刷新


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


  def refresh


    self.contents.clear


    max = $game_message.action_table.size


    max = 16 if max > 16


    action_table = $game_message.action_table


    for i in 0...max


      text = action_table[action_table.size - i - @self_index - 1]


      update_message(text, i)


    end


  end


 


  def update_message(text, i)


    dupped_text = text.dup


    @contents_x = 4


    join = false 


    loop do


      c = dupped_text.slice!(/./m)             # 获取一个文字


      case c


      when nil                          # 无法获取文字时


        break


      when "\n"                         # 新行


 


      when "\x01"                       # \C[n]（文字变色）


        dupped_text.sub!(/\[([0-9]+)\]/, "")


        contents.font.color = text_color($1.to_i)


        next  


      when "\x09"                       # \+（需要加入动作）


        join = true


      else  


        if join


          contents.draw_text(@contents_x, WLH * (15 - i), 544, WLH, c)


          c_width = contents.text_size(c).width


          @contents_x += c_width  


        end


      end


    end   


  end


end


 


#==============================================================================


# ■ Scene_Action


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


# 　处理战斗画面的类。


#==============================================================================


 


class Scene_Action < Scene_Base


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


  # ● 开始处理


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


  def start


    super


    @action_window = Window_Action.new(0, 0)


  end


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


  # ● 结束处理


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


  def terminate


    super


    @action_window.dispose


  end


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


  # ● 更新画面


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


  def update


    super


    @action_window.update


  end


end

119143201

话说，这是什么游戏啊，头一次见呢，感觉还挺有意思，有点像塞班系统的文字网游。

一瞬间的幻觉

protosssonny 发表于 2013-3-14 23:04
小瞬你看看这个《P叔的动作列表》是否满足你的要求。

---

范例：

有什么办法，让每行文字都能独立存在？

我可能表达不清楚，是这样的
进入这个界面后，是有那个闪动的光框在第一行文字上的
之所以要这个光框模式因为小瞬不仅仅想要看到历史文字
更想对文字进行操作：

操作一：光框所在位置点击一下确定键就能进入下一层的解释
操作二：光框所在行数，文字超过一行的会进行滚动播出
操作三：进入界面时，光框永远停留在最近一次信息位置上。

关于【操作一】的解释：

文字信息分两层
第一层是简介，第二层是内容
就像论坛里面的帖子一样
第一层就是帖子标题，第二层就是帖子内容


希望P叔把剩下的节操都给我