マップコマンド

■ 概　　要

・マップ画面で使用するデバッグ用のコマンド集です。

■ スクリーンショット

※ 画像は開発中のものです。

■ 更新履歴

11/04/09
　『その他の操作』を追加
　『モンスター図鑑 #2』のコマンドを更新
　
11/01/25
　『モンスター図鑑 #2』のコマンドを追加

■ 共通スクリプト

■ パーティの操作

if CAO::Debug::USE_MAP_COMMAND
class Scene_DebugCommand < Scene_Base
  #--------------------------------------------------------------------------
  # ● 定数
  #--------------------------------------------------------------------------
  COMMANDS[0x00] = "パーティ全回復"
#~   COMMANDS[0x01] = "パーティＨＰ回復"
#~   COMMANDS[0x02] = "パーティＭＰ回復"
#~   COMMANDS[0x03] = "パーティ状態異常回復"
  COMMANDS[0x04] = "パーティヘダメージ"
  COMMANDS[0x05] = "初期パーティ"
  COMMANDS[0x06] = "パーティ解散"
  COMMANDS[0x07] = "パーティへ追加"
  COMMANDS[0x08] = "パーティから削除"
  CMD_NAME += COMMANDS.values_at(*(0x00..0x08)).compact
  #--------------------------------------------------------------------------
  # ○ コマンド処理の更新
  #--------------------------------------------------------------------------
  alias _cao_input_command_cmd1 input_command
  def input_command
    _cao_input_command_cmd1
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x00   # パーティ全回復
      Sound.play_recovery
      $game_party.members.each {|actor| actor.recover_all }
    when 0x01   # パーティＨＰ回復
      Sound.play_recovery
      $game_party.members.each {|actor| actor.hp = actor.maxhp }
    when 0x02   # パーティＭＰ回復
      Sound.play_recovery
      $game_party.members.each {|actor| actor.mp = actor.maxmp }
    when 0x03   # パーティ状態異常回復
      Sound.play_recovery
      for actor in $game_party.members
        $data_states.each {|state| actor.remove_state(state.id) }
      end
    when 0x04   # パーティヘダメージ
      show_number
      @number_window.set(3, 0, true)
    when 0x05   # 初期パーティ
      Sound.play_decision
      $game_party.setup_starting_members
      $game_player.refresh
    when 0x06   # パーティ解散
      Sound.play_enemy_collapse
      for actor in $game_party.members
        $game_party.remove_actor(actor.id)
      end
    when 0x07   # パーティへ追加
      show_select
      cmds = Array.new($data_actors.size - 1) {|i| $game_actors[i + 1].name }
      @select_window.set(cmds, 2)
    when 0x08   # パーティから削除
      show_select
      @select_window.set($game_party.members.collect {|actor| actor.name })
    end
  end
  #--------------------------------------------------------------------------
  # ○ 数値入力の更新
  #--------------------------------------------------------------------------
  alias _cao_input_number_cmd1 input_number
  def input_number
    _cao_input_number_cmd1
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x04   # パーティヘダメージ
      Sound.play_actor_damage
      $game_party.members.each {|actor| actor.hp -= @number_window.number }
      hide_number
    end
  end
  #--------------------------------------------------------------------------
  # ○ 項目選択の更新
  #--------------------------------------------------------------------------
  alias _cao_input_select_cmd1 input_select
  def input_select
    _cao_input_select_cmd1
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x07   # パーティへ追加
      actor_id = @select_window.index + 1
      if $game_party.members.any? {|actor| actor_id == actor.id }
        Sound.play_buzzer
      else
        Sound.play_decision
        $game_party.add_actor(actor_id)
        hide_select
      end
    when 0x08   # パーティから削除
      Sound.play_enemy_collapse
      $game_party.remove_actor($game_party.members[@select_window.index].id)
      hide_select
    end
  end
end
end # if CAO::Debug::USE_MAP_COMMAND

■ アイテムの操作

if CAO::Debug::USE_MAP_COMMAND
class Scene_DebugCommand < Scene_Base
  #--------------------------------------------------------------------------
  # ● 定数
  #--------------------------------------------------------------------------
  COMMANDS[0x10] = "全アイテム１個追加"
  COMMANDS[0x11] = "全アイテム削除"
  CMD_NAME += COMMANDS.values_at(*(0x10..0x11)).compact
  #--------------------------------------------------------------------------
  # ○ コマンド処理の更新
  #--------------------------------------------------------------------------
  alias _cao_input_command_cmd2 input_command
  def input_command
    _cao_input_command_cmd2
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x10   # 全アイテム１個追加
      Sound.play_decision
      for item in ($data_items + $data_weapons + $data_armors)
        $game_party.gain_item(item, 1) if item
      end
    when 0x11   # 全アイテム削除
      Sound.play_decision
      for item in ($data_items + $data_weapons + $data_armors)
        $game_party.lose_item(item, 9999) if item
      end
    end
  end
end
end # if CAO::Debug::USE_MAP_COMMAND

■ スキルの操作

if CAO::Debug::USE_MAP_COMMAND
class Scene_DebugCommand < Scene_Base
  #--------------------------------------------------------------------------
  # ● 定数
  #--------------------------------------------------------------------------
  COMMANDS[0x20] = "全スキル取得 [ アクター ]"
  COMMANDS[0x21] = "全スキル取得 [ パーティ ]"
  CMD_NAME += COMMANDS.values_at(*(0x20..0x21)).compact
  #--------------------------------------------------------------------------
  # ○ コマンド処理の更新
  #--------------------------------------------------------------------------
  alias _cao_input_command_cmd3 input_command
  def input_command
    _cao_input_command_cmd3
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x20   # 全スキル取得 [ アクター ]
      show_select
      cmds = Array.new($data_actors.size - 1) {|i| $game_actors[i + 1].name }
      @select_window.set(cmds, 3)
    when 0x21   # 全スキル取得 [ パーティ ]
      Sound.play_decision
      for actor in $game_party.members
        for i in 1...$data_skills.size
          actor.learn_skill(i)
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # ○ 項目選択の更新
  #--------------------------------------------------------------------------
  alias _cao_input_select_cmd3 input_select
  def input_select
    _cao_input_select_cmd3
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x20   # 全スキル取得
      Sound.play_decision
      for i in 1...$data_skills.size
        $game_actors[@select_window.index + 1].learn_skill(i)
      end
      hide_select
    end
  end
end
end # if CAO::Debug::USE_MAP_COMMAND

■ システムの操作

if CAO::Debug::USE_MAP_COMMAND
class Scene_DebugCommand < Scene_Base
  #--------------------------------------------------------------------------
  # ● 定数
  #--------------------------------------------------------------------------
  COMMANDS[0x30] = "セーブ許可"
  COMMANDS[0x31] = "セーブ禁止"
#~   COMMANDS[0x32] = "メニュー許可"
#~   COMMANDS[0x33] = "メニュー禁止"
  COMMANDS[0x34] = "エンカウント許可"
  COMMANDS[0x35] = "エンカウント禁止"
  CMD_NAME += COMMANDS.values_at(*(0x30..0x31)).compact
  #--------------------------------------------------------------------------
  # ○ コマンド処理の更新
  #--------------------------------------------------------------------------
  alias _cao_input_command_cmd4 input_command
  def input_command
    _cao_input_command_cmd4
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x30   # セーブ許可
      Sound.play_decision
      $game_system.save_disabled = false
    when 0x31   # セーブ禁止
      Sound.play_decision
      $game_system.save_disabled = true
    when 0x32   # メニュー許可
      Sound.play_decision
      $game_system.menu_disabled = false
    when 0x33   # メニュー禁止
      Sound.play_decision
      $game_system.menu_disabled = true
    when 0x34   # エンカウント許可
      Sound.play_decision
      $game_system.encounter_disabled = false
    when 0x35   # エンカウント禁止
      Sound.play_decision
      $game_system.encounter_disabled = true
    end
  end
end
end # if CAO::Debug::USE_MAP_COMMAND

■ その他の操作

if CAO::Debug::USE_MAP_COMMAND
class Scene_DebugCommand < Scene_Base
  #--------------------------------------------------------------------------
  # ● 定数
  #--------------------------------------------------------------------------
  COMMANDS[0x90] = "戦闘開始"
  COMMANDS[0x91] = ""
  CMD_NAME += COMMANDS.values_at(*(0x90..0x99)).compact
  #--------------------------------------------------------------------------
  # ○ コマンド処理の更新
  #--------------------------------------------------------------------------
  alias _cao_cmd9_input_command input_command
  def input_command
    _cao_cmd9_input_command
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x90   # 戦闘開始
      show_select
      @select_window.set($data_troops.map {|g| g ? g.name : nil }.compact)
    end
  end
  #--------------------------------------------------------------------------
  # ○ 項目選択の更新
  #--------------------------------------------------------------------------
  alias _cao_cmd9_input_select input_select
  def input_select
    _cao_cmd9_input_select
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x90   # 戦闘開始
      Sound.play_decision
      troop_id = @select_window.index + 1
      return if $data_troops[troop_id] == nil
      $game_troop.setup(troop_id)
      $game_troop.can_escape = true
      $game_troop.can_lose = true
      $game_temp.battle_proc = nil
      $game_temp.map_bgm = RPG::BGM.last
      $game_temp.map_bgs = RPG::BGS.last
      RPG::BGM.stop
      RPG::BGS.stop
      $game_system.battle_bgm.play
      $scene = Scene_Battle.new
    end
  end
end
end # if CAO::Debug::USE_MAP_COMMAND

■ 素材別スクリプト

■ モンスター図鑑 #2

if CAO::Debug::USE_MAP_COMMAND
class Scene_DebugCommand < Scene_Base
  #--------------------------------------------------------------------------
  # ● 定数
  #--------------------------------------------------------------------------
  COMMANDS[0x100] = "図鑑表示"
  COMMANDS[0x101] = "図鑑情報"
  COMMANDS[0x102] = "表示項目の追加"
  COMMANDS[0x103] = "表示項目の削除"
  COMMANDS[0x104] = "図鑑へ登録"
#~   COMMANDS[0x105] = "図鑑から削除"
  COMMANDS[0x106] = "図鑑を完成"
#~   COMMANDS[0x107] = "図鑑をクリア"
  COMMANDS[0x108] = "閲覧の可否変更"
  COMMANDS[0x109] = "撃退数の変更"
  COMMANDS[0x10A] = "図鑑の初期化"
  COMMANDS[0x10B] = "エネミーの初期化"
  CMD_NAME += COMMANDS.values_at(*(0x100..0x10B)).compact
  #--------------------------------------------------------------------------
  # ○ コマンド処理の更新
  #--------------------------------------------------------------------------
  alias _cao_mbook_input_command input_command
  def input_command
    _cao_mbook_input_command
    @versatile ||= {}
    @versatile[:name] ||= $game_mbook[].map {|e| e.name }
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x102, 0x103, 0x104, 0x105, 0x108, 0x109, 0x10B
      Sound.play_decision
      show_select
      @select_window.set(@versatile[:name], 4)
    when 0x100   # 図鑑表示
      Sound.play_decision
      $game_temp.next_scene = "mbook"
      return_scene
    when 0x101   # 図鑑情報
      Sound.play_decision
      print "図鑑完成率：#{$game_mbook.completion_count}%\n"\
            "遭遇数：#{$game_mbook.encount_count}/"\
              "#{$game_mbook.size} (#{$game_mbook.encount_rate}%)\n"\
            "図鑑登録数：#{$game_mbook.entry_count}"\
              "(#{$game_mbook.entry_count(:name)}:"\
              "#{$game_mbook.completion_count})\n"\
            "総撃退数：#{$game_mbook.defeat_count}"
    when 0x106  # 図鑑を完成
      Sound.play_decision
      $game_mbook.complete
    when 0x107  # 図鑑をクリア
      Sound.play_decision
      $game_mbook[].each {|e| e.clear }
    when 0x10A  # 初期化
      Sound.play_decision
      show_select
      c = ["すべて", "登録状況", "閲覧可否", "撃退数", "既読状態"]
      @select_window.set(c, 1, 1)
    end
  end
  #--------------------------------------------------------------------------
  # ○ 数値入力の更新
  #--------------------------------------------------------------------------
  alias _cao_mbook_input_number input_number
  def input_number
    _cao_mbook_input_number
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x109   # 撃退数の変更
      Sound.play_decision
      @versatile[:enemy].defeat = @number_window.number
      @versatile[:enemy] = nil
      hide_number
    end
  end
  #--------------------------------------------------------------------------
  # ○ 項目選択の更新
  #--------------------------------------------------------------------------
  alias _cao_mbook_input_select input_select
  def input_select
    _cao_mbook_input_select
    case COMMANDS.index(CMD_NAME[@command_window.index])
    when 0x102, 0x103, 0x104, 0x105, 0x108, 0x109, 0x10B
      Sound.play_decision
      if @versatile[:enemy]
        case COMMANDS.index(CMD_NAME[@command_window.index])
        when 0x102, 0x103    # 表示項目の追加・削除
          case @select_window.index
          when 0; param = :name
          when 1; param = :graphics
          when 2; param = :status
          when 3; param = :params
          when 4; param = :drop
          when 5; param = :weak
          when 6; param = :come
          end
          id = @versatile[:enemy].enemy.id
          if COMMANDS.index(CMD_NAME[@command_window.index]) == 0x102
            CAO::MB::Commands.add_entry_item(id, param)
          else
            CAO::MB::Commands.remove_entry_item(id, param)
          end
        when 0x104    # 図鑑へ登録
          id = @versatile[:enemy].enemy.id
          case @select_window.index
          when 0  # 初期
            CAO::MB::Commands.set_entry_item(id, "START")
          when 1  # 遭遇
            CAO::MB::Commands.set_entry_item(id, "ENCOUNT")
          when 2  # 勝利
            CAO::MB::Commands.set_entry_item(id, "WINNER")
          when 3  # 解析
            CAO::MB::Commands.set_entry_item(id, "ANALYZE")
          when 4  # 完成
            CAO::MB::Commands.set_entry_item(id, "COMPLETE")
          else
            CAO::MB::Commands.set_entry_item(id,
              @select_window.commands[@select_window.index].to_sym)
          end
        when 0x108    # 閲覧の可否変更
          @versatile[:enemy].secret = @select_window.index == 1
        when 0x10B  # 
          case @select_window.index
          when 0  # すべて
            @versatile[:enemy].reset
          when 1  # 登録状況
            @versatile[:enemy].reset_entry
          when 2  # 閲覧可否
            @versatile[:enemy].reset_secret
          when 3  # 撃退数
            @versatile[:enemy].rdefeat = 0
          when 4  # 既読状態
            @versatile[:enemy].unread = true
          end
        end
        @versatile[:enemy] = nil
        hide_select
      else
        @versatile[:enemy] = $game_mbook[@select_window.index]
        if @versatile[:enemy]
          show_select
          case COMMANDS.index(CMD_NAME[@command_window.index])
          when 0x102, 0x103  # 表示項目の追加・削除
            cmds = ["名前", "画像", "ステータス", "経験値・お金",
                    "ドロップアイテム", "有効度", "コメント"]
            @select_window.set(cmds, 1, 1)
          when 0x104  # 図鑑へ登録
            cmds = ["初期", "遭遇", "勝利", "解析", "完成"]
            cmds.concat(CAO::MB::ENTRY_LIST.keys)
            @select_window.set(cmds, 2, 1)
          when 0x105  # 図鑑から削除
            @versatile[:enemy].entry = []
            hide_select
          when 0x108  # 閲覧の可否変更
            @select_window.set(["可能", "不可能"], 2, 1)
          when 0x109  # 撃退数の変更
            hide_select
            show_number
            @number_window.set(3, @versatile[:enemy].defeat, true)
          when 0x10B  # エネミーの初期化
            cmds = ["すべて", "登録状況", "閲覧可否", "撃退数", "既読状態"]
            @select_window.set(cmds, 1, 1)
          end
        else
          hide_select
        end
      end
    when 0x10A        # 図鑑の初期化
      Sound.play_decision
      case @select_window.index
      when 0  # すべて
        $game_mbook.reset
      when 1  # 登録状況
        $game_mbook[].each {|e| e.reset_entry }
      when 2  # 閲覧可否
        $game_mbook[].each {|e| e.reset_secret }
      when 3  # 撃退数
        $game_mbook[].each {|e| e.defeat = 0 }
      when 4  # 既読状態
        $game_mbook[].each {|e| e.unread = true }
      end
    end
  end
end
end # if CAO::Debug::USE_MAP_COMMAND

■ 必須事項

■ 動作に必要なスクリプト

このマップコマンドは、『＜拡張＞デバッグ機能』の機能の一部です。
こちらのスクリプトを使用するには、『＜拡張＞デバッグ機能』の導入が必要です。

■ 導入場所

マップ画面で F8 キーを押すと表示されるコマンドの項目を追加します。
『＜拡張＞デバッグ機能』より下に配置してください。

使用しない場合は、追加する必要はありません。
デフォルトでコマンド使用はＯＮになっていますので、
空のウィンドウが表示されるのが気になる方は、
『＜拡張＞デバッグ機能』のUSE_MAP_COMMANDの値をfalseにしてください。

マップコマンドの項目を非表示にする方法や新しい処理の追加方法は、
次の記事を参考にしてください。
http://cacaosoft.blog42.fc2.com/blog-entry-426.html