| 
 
| 赞 | 1 |  
| VIP | 7 |  
| 好人卡 | 9 |  
| 积分 | 1 |  
| 经验 | 7021 |  
| 最后登录 | 2014-11-30 |  
| 在线时间 | 140 小时 |  
 Lv1.梦旅人 小黑 
	梦石0 星屑50 在线时间140 小时注册时间2011-8-23帖子536 | 
| 写好了,给你参考(我建议你不要用我的,因为我是脚本盲,这个不知道能不能帮到你) 复制代码#==============================================================================
# ■ Scene_Menu
#------------------------------------------------------------------------------
#  处理菜单画面的类。
#==============================================================================
#---------------------------------------------------------
# ●菜单中显示地图
#---------------------------------------------------------
class Game_Map
attr_reader   :map_id  
  def mpname
  $mpname = load_data("Data/MapInfos.rvdata") 
  $mpname[@map_id].name
  end
end
class Window_Mapname < Window_Base
  def initialize(x, y)
    super(0, 272, 160, WLH + 64)
    refresh
  end  
  def refresh
    self.contents.clear
    self.contents.font.color = system_color
    self.contents.draw_text(4, 0, 120, 32, "GPRS位置:")
    self.contents.font.color = normal_color
    self.contents.draw_text(4, 32, 120, 32, $game_map.mpname.to_s, 2)
  end
end
#---------------
#正式开始菜单
#---------------
class Scene_Menu < Scene_Base
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #     menu_index : 命令窗口光标初始位置
  #--------------------------------------------------------------------------
  def initialize(menu_index = 0)
    @menu_index = menu_index
  end
  #--------------------------------------------------------------------------
  # ● 开始处理
  #--------------------------------------------------------------------------
  def start
    super
    create_menu_background
    create_command_window
    @gold_window = Window_Gold.new(0, 360)
    @status_window = Window_MenuStatus.new(160, 0)
    @mapname_window = Window_Mapname.new(0, 178)
    @mapname_window.openness = 0
    @mapname_window.open
  end
  #--------------------------------------------------------------------------
  # ● 结束处理
  #--------------------------------------------------------------------------
  def terminate
    super
    dispose_menu_background
    @command_window.dispose
    @gold_window.dispose
    @status_window.dispose
    @mapname_window.dispose
  end
  #--------------------------------------------------------------------------
  # ● 更新画面
  #--------------------------------------------------------------------------
  def update
    super
    update_menu_background
    @command_window.update
    @gold_window.update
    @status_window.update
    @mapname_window.update
    if @command_window.active
      update_command_selection
    elsif @status_window.active
      update_actor_selection
    end
  end
  #--------------------------------------------------------------------------
  # ● 生成命令窗口
  #--------------------------------------------------------------------------
  def create_command_window
    s1 = Vocab::item
    s2 = Vocab::skill
    s3 = Vocab::equip
    s4 = Vocab::status
    s5 = Vocab::save
    if
    $game_switches[88] == true    #开关
    s6 = "BUG提交"
    end
    
    s7 = Vocab::game_end
    @command_window = Window_Command.new(160, [s1, s2, s3, s4, s5 ,s7])
  if
    $game_switches[88] == true    #开关
    @command_window = Window_Command.new(160, [s1, s2, s3, s4, s5 , s6, s7])
  end
  
    @command_window.index = @menu_index
    if $game_party.members.size == 0          # 如果队伍为空
      @command_window.draw_item(0, false)     # 无效化物品选项
      @command_window.draw_item(1, false)     # 无效化技能选项
      @command_window.draw_item(2, false)     # 无效化装备选项
      @command_window.draw_item(3, false)     # 无效化状态选项
    end
    if $game_system.save_disabled             # 如果禁止存档
      @command_window.draw_item(4, false)     # 无效化存档选项
    end
  end
  #--------------------------------------------------------------------------
  # ● 更新命令窗口
  #--------------------------------------------------------------------------
  def update_command_selection
    if Input.trigger?(Input::B)
      Sound.play_cancel
      $scene = Scene_Map.new
      
    elsif Input.trigger?(Input::C)
      if $game_party.members.size == 0 and @command_window.index < 4
        Sound.play_buzzer
        return
      elsif $game_system.save_disabled and @command_window.index == 4
        Sound.play_buzzer
        return
      end
      Sound.play_decision
      case @command_window.index
      when 0      # 物品
        $scene = Scene_Item.new
      when 1,2,3  # 技能、装备、状态
        start_actor_selection
      when 4      # 存档
        $scene = Scene_File.new(true, false, false)
      when 5      # BUG提交
          print "谢谢你的合作!"
      a = Win32API.new('shell32.dll','ShellExecuteA',%w(p p p p p i),'i')#
      a.call(0, 'open','http://rpg.blue',0, 0, 1) # 
      when 6      # 结束游戏
        $scene = Scene_End.new
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 角色选择开始
  #--------------------------------------------------------------------------
  def start_actor_selection
    @command_window.active = false
    @status_window.active = true
    if $game_party.last_actor_index < @status_window.item_max
      @status_window.index = $game_party.last_actor_index
    else
      @status_window.index = 0
    end
  end
  #--------------------------------------------------------------------------
  # ● 角色选择结束
  #--------------------------------------------------------------------------
  def end_actor_selection
    @command_window.active = true
    @status_window.active = false
    @status_window.index = -1
  end
  #--------------------------------------------------------------------------
  # ● 角色选择更新
  #--------------------------------------------------------------------------
  def update_actor_selection
    if Input.trigger?(Input::B)
      Sound.play_cancel
      end_actor_selection
    elsif Input.trigger?(Input::C)
      $game_party.last_actor_index = @status_window.index
      Sound.play_decision
      case @command_window.index
      when 1  # 技能
        $scene = Scene_Skill.new(@status_window.index)
      when 2  # 装备
        $scene = Scene_Equip.new(@status_window.index)
      when 3  # 状态
        $scene = Scene_Status.new(@status_window.index)
      end
    end
  end
end
 | 
 |