Class Game_Interpreter < Object

# File Game_Interpreter.rb, line 18
def initialize(depth = 0)
  @depth = depth
  check_overflow
  clear
end

# File Game_Interpreter.rb, line 29
def check_overflow
  if @depth >= 100
    msgbox(Vocab::EventOverflow)
    exit
  end
end

# File Game_Interpreter.rb, line 39
def clear
  @map_id = 0
  @event_id = 0
  @list = nil                       # 実行内容
  @index = 0                        # インデックス
  @branch = {}                      # 分岐データ
  @fiber = nil                      # ファイバー
end

# File Game_Interpreter.rb, line 275
def command_101
  wait_for_message
  $game_message.face_name = @params[0]
  $game_message.face_index = @params[1]
  $game_message.background = @params[2]
  $game_message.position = @params[3]
  while next_event_code == 401       # 文章データ
    @index += 1
    $game_message.add(@list[@index].parameters[0])
  end
  case next_event_code
  when 102  # 選択肢の表示
    @index += 1
    setup_choices(@list[@index].parameters)
  when 103  # 数値入力の処理
    @index += 1
    setup_num_input(@list[@index].parameters)
  when 104  # アイテム選択の処理
    @index += 1
    setup_item_choice(@list[@index].parameters)
  end
  wait_for_message
end

# File Game_Interpreter.rb, line 302
def command_102
  wait_for_message
  setup_choices(@params)
  Fiber.yield while $game_message.choice?
end

# File Game_Interpreter.rb, line 334
def command_103
  wait_for_message
  setup_num_input(@params)
  Fiber.yield while $game_message.num_input?
end

# File Game_Interpreter.rb, line 351
def command_104
  wait_for_message
  setup_item_choice(@params)
  Fiber.yield while $game_message.item_choice?
end

# File Game_Interpreter.rb, line 367
def command_105
  Fiber.yield while $game_message.visible
  $game_message.scroll_mode = true
  $game_message.scroll_speed = @params[0]
  $game_message.scroll_no_fast = @params[1]
  while next_event_code == 405
    @index += 1
    $game_message.add(@list[@index].parameters[0])
  end
  wait_for_message
end

# File Game_Interpreter.rb, line 382
def command_108
  @comments = [@params[0]]
  while next_event_code == 408
    @index += 1
    @comments.push(@list[@index].parameters[0])
  end
end

# File Game_Interpreter.rb, line 393
def command_111
  result = false
  case @params[0]
  when 0  # スイッチ
    result = ($game_switches[@params[1]] == (@params[2] == 0))
  when 1  # 変数
    value1 = $game_variables[@params[1]]
    if @params[2] == 0
      value2 = @params[3]
    else
      value2 = $game_variables[@params[3]]
    end
    case @params[4]
    when 0  # と同値
      result = (value1 == value2)
    when 1  # 以上
      result = (value1 >= value2)
    when 2  # 以下
      result = (value1 <= value2)
    when 3  # 超
      result = (value1 > value2)
    when 4  # 未満
      result = (value1 < value2)
    when 5  # 以外
      result = (value1 != value2)
    end
  when 2  # セルフスイッチ
    if @event_id > 0
      key = [@map_id, @event_id, @params[1]]
      result = ($game_self_switches[key] == (@params[2] == 0))
    end
  when 3  # タイマー
    if $game_timer.working?
      if @params[2] == 0
        result = ($game_timer.sec >= @params[1])
      else
        result = ($game_timer.sec <= @params[1])
      end
    end
  when 4  # アクター
    actor = $game_actors[@params[1]]
    if actor
      case @params[2]
      when 0  # パーティにいる
        result = ($game_party.members.include?(actor))
      when 1  # 名前
        result = (actor.name == @params[3])
      when 2  # 職業
        result = (actor.class_id == @params[3])
      when 3  # スキル
        result = (actor.skill_learn?($data_skills[@params[3]]))
      when 4  # 武器
        result = (actor.weapons.include?($data_weapons[@params[3]]))
      when 5  # 防具
        result = (actor.armors.include?($data_armors[@params[3]]))
      when 6  # ステート
        result = (actor.state?(@params[3]))
      end
    end
  when 5  # 敵キャラ
    enemy = $game_troop.members[@params[1]]
    if enemy
      case @params[2]
      when 0  # 出現している
        result = (enemy.alive?)
      when 1  # ステート
        result = (enemy.state?(@params[3]))
      end
    end
  when 6  # キャラクター
    character = get_character(@params[1])
    if character
      result = (character.direction == @params[2])
    end
  when 7  # ゴールド
    case @params[2]
    when 0  # 以上
      result = ($game_party.gold >= @params[1])
    when 1  # 以下
      result = ($game_party.gold <= @params[1])
    when 2  # 未満
      result = ($game_party.gold < @params[1])
    end
  when 8  # アイテム
    result = $game_party.has_item?($data_items[@params[1]])
  when 9  # 武器
    result = $game_party.has_item?($data_weapons[@params[1]], @params[2])
  when 10  # 防具
    result = $game_party.has_item?($data_armors[@params[1]], @params[2])
  when 11  # ボタン
    result = Input.press?(@params[1])
  when 12  # スクリプト
    result = eval(@params[1])
  when 13  # 乗り物
    result = ($game_player.vehicle == $game_map.vehicles[@params[1]])
  end
  @branch[@indent] = result
  command_skip if !@branch[@indent]
end

# File Game_Interpreter.rb, line 503
def command_112
end

# File Game_Interpreter.rb, line 518
def command_113
  loop do
    @index += 1
    return if @index >= @list.size - 1
    return if @list[@index].code == 413 && @list[@index].indent < @indent
  end
end

# File Game_Interpreter.rb, line 529
def command_115
  @index = @list.size
end

# File Game_Interpreter.rb, line 536
def command_117
  common_event = $data_common_events[@params[0]]
  if common_event
    child = Game_Interpreter.new(@depth + 1)
    child.setup(common_event.list, same_map? ? @event_id : 0)
    child.run
  end
end

# File Game_Interpreter.rb, line 548
def command_118
end

# File Game_Interpreter.rb, line 554
def command_119
  label_name = @params[0]
  @list.size.times do |i|
    if @list[i].code == 118 && @list[i].parameters[0] == label_name
      @index = i
      return
    end
  end
end

# File Game_Interpreter.rb, line 567
def command_121
  (@params[0]..@params[1]).each do |i|
    $game_switches[i] = (@params[2] == 0)
  end
end

# File Game_Interpreter.rb, line 576
def command_122
  value = 0
  case @params[3]  # オペランド
  when 0  # 定数
    value = @params[4]
  when 1  # 変数
    value = $game_variables[@params[4]]
  when 2  # 乱数
    value = @params[4] + rand(@params[5] - @params[4] + 1)
  when 3  # ゲームデータ
    value = game_data_operand(@params[4], @params[5], @params[6])
  when 4  # スクリプト
    value = eval(@params[4])
  end
  (@params[0]..@params[1]).each do |i|
    operate_variable(i, @params[2], value)
  end
end

# File Game_Interpreter.rb, line 703
def command_123
  if @event_id > 0
    key = [@map_id, @event_id, @params[0]]
    $game_self_switches[key] = (@params[1] == 0)
  end
end

# File Game_Interpreter.rb, line 713
def command_124
  if @params[0] == 0  # 始動
    $game_timer.start(@params[1] * Graphics.frame_rate)
  else                # 停止
    $game_timer.stop
  end
end

# File Game_Interpreter.rb, line 724
def command_125
  value = operate_value(@params[0], @params[1], @params[2])
  $game_party.gain_gold(value)
end

# File Game_Interpreter.rb, line 732
def command_126
  value = operate_value(@params[1], @params[2], @params[3])
  $game_party.gain_item($data_items[@params[0]], value)
end

# File Game_Interpreter.rb, line 740
def command_127
  value = operate_value(@params[1], @params[2], @params[3])
  $game_party.gain_item($data_weapons[@params[0]], value, @params[4])
end

# File Game_Interpreter.rb, line 748
def command_128
  value = operate_value(@params[1], @params[2], @params[3])
  $game_party.gain_item($data_armors[@params[0]], value, @params[4])
end

# File Game_Interpreter.rb, line 756
def command_129
  actor = $game_actors[@params[0]]
  if actor
    if @params[1] == 0    # 加える
      if @params[2] == 1  # 初期化
        $game_actors[@params[0]].setup(@params[0])
      end
      $game_party.add_actor(@params[0])
    else                  # 外す
      $game_party.remove_actor(@params[0])
    end
  end
end

# File Game_Interpreter.rb, line 773
def command_132
  $game_system.battle_bgm = @params[0]
end

# File Game_Interpreter.rb, line 780
def command_133
  $game_system.battle_end_me = @params[0]
end

# File Game_Interpreter.rb, line 787
def command_134
  $game_system.save_disabled = (@params[0] == 0)
end

# File Game_Interpreter.rb, line 794
def command_135
  $game_system.menu_disabled = (@params[0] == 0)
end

# File Game_Interpreter.rb, line 801
def command_136
  $game_system.encounter_disabled = (@params[0] == 0)
  $game_player.make_encounter_count
end

# File Game_Interpreter.rb, line 809
def command_137
  $game_system.formation_disabled = (@params[0] == 0)
end

# File Game_Interpreter.rb, line 816
def command_138
  $game_system.window_tone = @params[0]
end

# File Game_Interpreter.rb, line 823
def command_201
  return if $game_party.in_battle
  Fiber.yield while $game_player.transfer? || $game_message.visible
  if @params[0] == 0                      # 直接指定
    map_id = @params[1]
    x = @params[2]
    y = @params[3]
  else                                    # 変数で指定
    map_id = $game_variables[@params[1]]
    x = $game_variables[@params[2]]
    y = $game_variables[@params[3]]
  end
  $game_player.reserve_transfer(map_id, x, y, @params[4])
  $game_temp.fade_type = @params[5]
  Fiber.yield while $game_player.transfer?
end

# File Game_Interpreter.rb, line 843
def command_202
  if @params[1] == 0                      # 直接指定
    map_id = @params[2]
    x = @params[3]
    y = @params[4]
  else                                    # 変数で指定
    map_id = $game_variables[@params[2]]
    x = $game_variables[@params[3]]
    y = $game_variables[@params[4]]
  end
  vehicle = $game_map.vehicles[@params[0]]
  vehicle.set_location(map_id, x, y) if vehicle
end

# File Game_Interpreter.rb, line 860
def command_203
  character = get_character(@params[0])
  if character
    if @params[1] == 0                      # 直接指定
      character.moveto(@params[2], @params[3])
    elsif @params[1] == 1                   # 変数で指定
      new_x = $game_variables[@params[2]]
      new_y = $game_variables[@params[3]]
      character.moveto(new_x, new_y)
    else                                    # 他のイベントと交換
      character2 = get_character(@params[2])
      character.swap(character2) if character2
    end
    character.set_direction(@params[4]) if @params[4] > 0
  end
end

# File Game_Interpreter.rb, line 880
def command_204
  return if $game_party.in_battle
  Fiber.yield while $game_map.scrolling?
  $game_map.start_scroll(@params[0], @params[1], @params[2])
end

# File Game_Interpreter.rb, line 889
def command_205
  $game_map.refresh if $game_map.need_refresh
  character = get_character(@params[0])
  if character
    character.force_move_route(@params[1])
    Fiber.yield while character.move_route_forcing if @params[1].wait
  end
end

# File Game_Interpreter.rb, line 901
def command_206
  $game_player.get_on_off_vehicle
end

# File Game_Interpreter.rb, line 908
def command_211
  $game_player.transparent = (@params[0] == 0)
end

# File Game_Interpreter.rb, line 915
def command_212
  character = get_character(@params[0])
  if character
    character.animation_id = @params[1]
    Fiber.yield while character.animation_id > 0 if @params[2]
  end
end

# File Game_Interpreter.rb, line 926
def command_213
  character = get_character(@params[0])
  if character
    character.balloon_id = @params[1]
    Fiber.yield while character.balloon_id > 0 if @params[2]
  end
end

# File Game_Interpreter.rb, line 937
def command_214
  $game_map.events[@event_id].erase if same_map? && @event_id > 0
end

# File Game_Interpreter.rb, line 944
def command_216
  $game_player.followers.visible = (@params[0] == 0)
  $game_player.refresh
end

# File Game_Interpreter.rb, line 952
def command_217
  return if $game_party.in_battle
  $game_player.followers.gather
  Fiber.yield until $game_player.followers.gather?
end

# File Game_Interpreter.rb, line 961
def command_221
  Fiber.yield while $game_message.visible
  screen.start_fadeout(30)
  wait(30)
end

# File Game_Interpreter.rb, line 970
def command_222
  Fiber.yield while $game_message.visible
  screen.start_fadein(30)
  wait(30)
end

# File Game_Interpreter.rb, line 979
def command_223
  screen.start_tone_change(@params[0], @params[1])
  wait(@params[1]) if @params[2]
end

# File Game_Interpreter.rb, line 987
def command_224
  screen.start_flash(@params[0], @params[1])
  wait(@params[1]) if @params[2]
end

# File Game_Interpreter.rb, line 995
def command_225
  screen.start_shake(@params[0], @params[1], @params[2])
  wait(@params[1]) if @params[2]
end

# File Game_Interpreter.rb, line 1003
def command_230
  wait(@params[0])
end

# File Game_Interpreter.rb, line 1010
def command_231
  if @params[3] == 0    # 直接指定
    x = @params[4]
    y = @params[5]
  else                  # 変数で指定
    x = $game_variables[@params[4]]
    y = $game_variables[@params[5]]
  end
  screen.pictures[@params[0]].show(@params[1], @params[2],
    x, y, @params[6], @params[7], @params[8], @params[9])
end

# File Game_Interpreter.rb, line 1025
def command_232
  if @params[3] == 0    # 直接指定
    x = @params[4]
    y = @params[5]
  else                  # 変数で指定
    x = $game_variables[@params[4]]
    y = $game_variables[@params[5]]
  end
  screen.pictures[@params[0]].move(@params[2], x, y, @params[6],
    @params[7], @params[8], @params[9], @params[10])
  wait(@params[10]) if @params[11]
end

# File Game_Interpreter.rb, line 1041
def command_233
  screen.pictures[@params[0]].rotate(@params[1])
end

# File Game_Interpreter.rb, line 1048
def command_234
  screen.pictures[@params[0]].start_tone_change(@params[1], @params[2])
  wait(@params[2]) if @params[3]
end

# File Game_Interpreter.rb, line 1056
def command_235
  screen.pictures[@params[0]].erase
end

# File Game_Interpreter.rb, line 1063
def command_236
  return if $game_party.in_battle
  screen.change_weather(@params[0], @params[1], @params[2])
  wait(@params[2]) if @params[3]
end

# File Game_Interpreter.rb, line 1072
def command_241
  @params[0].play
end

# File Game_Interpreter.rb, line 1079
def command_242
  RPG::BGM.fade(@params[0] * 1000)
end

# File Game_Interpreter.rb, line 1086
def command_243
  $game_system.save_bgm
end

# File Game_Interpreter.rb, line 1093
def command_244
  $game_system.replay_bgm
end

# File Game_Interpreter.rb, line 1100
def command_245
  @params[0].play
end

# File Game_Interpreter.rb, line 1107
def command_246
  RPG::BGS.fade(@params[0] * 1000)
end

# File Game_Interpreter.rb, line 1114
def command_249
  @params[0].play
end

# File Game_Interpreter.rb, line 1121
def command_250
  @params[0].play
end

# File Game_Interpreter.rb, line 1128
def command_251
  RPG::SE.stop
end

# File Game_Interpreter.rb, line 1135
def command_261
  Fiber.yield while $game_message.visible
  Fiber.yield
  name = @params[0]
  Graphics.play_movie('Movies/' + name) unless name.empty?
end

# File Game_Interpreter.rb, line 1145
def command_281
  $game_map.name_display = (@params[0] == 0)
end

# File Game_Interpreter.rb, line 1152
def command_282
  $game_map.change_tileset(@params[0])
end

# File Game_Interpreter.rb, line 1159
def command_283
  $game_map.change_battleback(@params[0], @params[1])
end

# File Game_Interpreter.rb, line 1166
def command_284
  $game_map.change_parallax(@params[0], @params[1], @params[2],
                            @params[3], @params[4])
end

# File Game_Interpreter.rb, line 1174
def command_285
  if @params[2] == 0      # 直接指定
    x = @params[3]
    y = @params[4]
  else                    # 変数で指定
    x = $game_variables[@params[3]]
    y = $game_variables[@params[4]]
  end
  case @params[1]
  when 0      # 地形タグ
    value = $game_map.terrain_tag(x, y)
  when 1      # イベント ID
    value = $game_map.event_id_xy(x, y)
  when 2..4   # タイル ID
    value = $game_map.tile_id(x, y, @params[1] - 2)
  else        # リージョン ID
    value = $game_map.region_id(x, y)
  end
  $game_variables[@params[0]] = value
end

# File Game_Interpreter.rb, line 1198
def command_301
  return if $game_party.in_battle
  if @params[0] == 0                      # 直接指定
    troop_id = @params[1]
  elsif @params[0] == 1                   # 変数で指定
    troop_id = $game_variables[@params[1]]
  else                                    # マップ指定の敵グループ
    troop_id = $game_player.make_encounter_troop_id
  end
  if $data_troops[troop_id]
    BattleManager.setup(troop_id, @params[2], @params[3])
    BattleManager.event_proc = Proc.new {|n| @branch[@indent] = n }
    $game_player.make_encounter_count
    SceneManager.call(Scene_Battle)
  end
  Fiber.yield
end

# File Game_Interpreter.rb, line 1240
def command_302
  return if $game_party.in_battle
  goods = [@params]
  while next_event_code == 605
    @index += 1
    goods.push(@list[@index].parameters)
  end
  SceneManager.call(Scene_Shop)
  SceneManager.scene.prepare(goods, @params[4])
  Fiber.yield
end

# File Game_Interpreter.rb, line 1255
def command_303
  return if $game_party.in_battle
  if $data_actors[@params[0]]
    SceneManager.call(Scene_Name)
    SceneManager.scene.prepare(@params[0], @params[1])
    Fiber.yield
  end
end

# File Game_Interpreter.rb, line 1267
def command_311
  value = operate_value(@params[2], @params[3], @params[4])
  iterate_actor_var(@params[0], @params[1]) do |actor|
    next if actor.dead?
    actor.change_hp(value, @params[5])
    actor.perform_collapse_effect if actor.dead?
  end
  SceneManager.goto(Scene_Gameover) if $game_party.all_dead?
end

# File Game_Interpreter.rb, line 1280
def command_312
  value = operate_value(@params[2], @params[3], @params[4])
  iterate_actor_var(@params[0], @params[1]) do |actor|
    actor.mp += value
  end
end

# File Game_Interpreter.rb, line 1290
def command_313
  iterate_actor_var(@params[0], @params[1]) do |actor|
    already_dead = actor.dead?
    if @params[2] == 0
      actor.add_state(@params[3])
    else
      actor.remove_state(@params[3])
    end
    actor.perform_collapse_effect if actor.dead? && !already_dead
  end
end

# File Game_Interpreter.rb, line 1305
def command_314
  iterate_actor_var(@params[0], @params[1]) do |actor|
    actor.recover_all
  end
end

# File Game_Interpreter.rb, line 1314
def command_315
  value = operate_value(@params[2], @params[3], @params[4])
  iterate_actor_var(@params[0], @params[1]) do |actor|
    actor.change_exp(actor.exp + value, @params[5])
  end
end

# File Game_Interpreter.rb, line 1324
def command_316
  value = operate_value(@params[2], @params[3], @params[4])
  iterate_actor_var(@params[0], @params[1]) do |actor|
    actor.change_level(actor.level + value, @params[5])
  end
end

# File Game_Interpreter.rb, line 1334
def command_317
  value = operate_value(@params[3], @params[4], @params[5])
  iterate_actor_var(@params[0], @params[1]) do |actor|
    actor.add_param(@params[2], value)
  end
end

# File Game_Interpreter.rb, line 1344
def command_318
  iterate_actor_var(@params[0], @params[1]) do |actor|
    if @params[2] == 0
      actor.learn_skill(@params[3])
    else
      actor.forget_skill(@params[3])
    end
  end
end

# File Game_Interpreter.rb, line 1357
def command_319
  actor = $game_actors[@params[0]]
  actor.change_equip_by_id(@params[1], @params[2]) if actor
end

# File Game_Interpreter.rb, line 1365
def command_320
  actor = $game_actors[@params[0]]
  actor.name = @params[1] if actor
end

# File Game_Interpreter.rb, line 1373
def command_321
  actor = $game_actors[@params[0]]
  actor.change_class(@params[1]) if actor && $data_classes[@params[1]]
end

# File Game_Interpreter.rb, line 1381
def command_322
  actor = $game_actors[@params[0]]
  if actor
    actor.set_graphic(@params[1], @params[2], @params[3], @params[4])
  end
  $game_player.refresh
end

# File Game_Interpreter.rb, line 1392
def command_323
  vehicle = $game_map.vehicles[@params[0]]
  vehicle.set_graphic(@params[1], @params[2]) if vehicle
end

# File Game_Interpreter.rb, line 1400
def command_324
  actor = $game_actors[@params[0]]
  actor.nickname = @params[1] if actor
end

# File Game_Interpreter.rb, line 1408
def command_331
  value = operate_value(@params[1], @params[2], @params[3])
  iterate_enemy_index(@params[0]) do |enemy|
    return if enemy.dead?
    enemy.change_hp(value, @params[4])
    enemy.perform_collapse_effect if enemy.dead?
  end
end

# File Game_Interpreter.rb, line 1420
def command_332
  value = operate_value(@params[1], @params[2], @params[3])
  iterate_enemy_index(@params[0]) do |enemy|
    enemy.mp += value
  end
end

# File Game_Interpreter.rb, line 1430
def command_333
  iterate_enemy_index(@params[0]) do |enemy|
    already_dead = enemy.dead?
    if @params[1] == 0
      enemy.add_state(@params[2])
    else
      enemy.remove_state(@params[2])
    end
    enemy.perform_collapse_effect if enemy.dead? && !already_dead
  end
end

# File Game_Interpreter.rb, line 1445
def command_334
  iterate_enemy_index(@params[0]) do |enemy|
    enemy.recover_all
  end
end

# File Game_Interpreter.rb, line 1454
def command_335
  iterate_enemy_index(@params[0]) do |enemy|
    enemy.appear
    $game_troop.make_unique_names
  end
end

# File Game_Interpreter.rb, line 1464
def command_336
  iterate_enemy_index(@params[0]) do |enemy|
    enemy.transform(@params[1])
    $game_troop.make_unique_names
  end
end

# File Game_Interpreter.rb, line 1474
def command_337
  iterate_enemy_index(@params[0]) do |enemy|
    enemy.animation_id = @params[1] if enemy.alive?
  end
end

# File Game_Interpreter.rb, line 1483
def command_339
  iterate_battler(@params[0], @params[1]) do |battler|
    next if battler.death_state?
    battler.force_action(@params[2], @params[3])
    BattleManager.force_action(battler)
    Fiber.yield while BattleManager.action_forced?
  end
end

# File Game_Interpreter.rb, line 1495
def command_340
  BattleManager.abort
  Fiber.yield
end

# File Game_Interpreter.rb, line 1503
def command_351
  return if $game_party.in_battle
  SceneManager.call(Scene_Menu)
  Window_MenuCommand::init_command_position
  Fiber.yield
end

# File Game_Interpreter.rb, line 1513
def command_352
  return if $game_party.in_battle
  SceneManager.call(Scene_Save)
  Fiber.yield
end

# File Game_Interpreter.rb, line 1522
def command_353
  SceneManager.goto(Scene_Gameover)
  Fiber.yield
end

# File Game_Interpreter.rb, line 1530
def command_354
  SceneManager.goto(Scene_Title)
  Fiber.yield
end

# File Game_Interpreter.rb, line 1538
def command_355
  script = @list[@index].parameters[0] + "\n"
  while next_event_code == 655
    @index += 1
    script += @list[@index].parameters[0] + "\n"
  end
  eval(script)
end

# File Game_Interpreter.rb, line 320
def command_402
  command_skip if @branch[@indent] != @params[0]
end

# File Game_Interpreter.rb, line 327
def command_403
  command_skip if @branch[@indent] != 4
end

# File Game_Interpreter.rb, line 496
def command_411
  command_skip if @branch[@indent]
end

# File Game_Interpreter.rb, line 509
def command_413
  begin
    @index -= 1
  end until @list[@index].indent == @indent
end

# File Game_Interpreter.rb, line 1219
def command_601
  command_skip if @branch[@indent] != 0
end

# File Game_Interpreter.rb, line 1226
def command_602
  command_skip if @branch[@indent] != 1
end

# File Game_Interpreter.rb, line 1233
def command_603
  command_skip if @branch[@indent] != 2
end

# File Game_Interpreter.rb, line 221
def command_skip
  @index += 1 while @list[@index + 1].indent > @indent
end

# File Game_Interpreter.rb, line 62
def create_fiber
  @fiber = Fiber.new { run } if @list
end

# File Game_Interpreter.rb, line 209
def execute_command
  command = @list[@index]
  @params = command.parameters
  @indent = command.indent
  method_name = "command_#{command.code}"
  send(method_name) if respond_to?(method_name)
end

# File Game_Interpreter.rb, line 598
def game_data_operand(type, param1, param2)
  case type
  when 0  # アイテム
    return $game_party.item_number($data_items[param1])
  when 1  # 武器
    return $game_party.item_number($data_weapons[param1])
  when 2  # 防具
    return $game_party.item_number($data_armors[param1])
  when 3  # アクター
    actor = $game_actors[param1]
    if actor
      case param2
      when 0      # レベル
        return actor.level
      when 1      # 経験値
        return actor.exp
      when 2      # HP
        return actor.hp
      when 3      # MP
        return actor.mp
      when 4..11  # 通常能力値
        return actor.param(param2 - 4)
      end
    end
  when 4  # 敵キャラ
    enemy = $game_troop.members[param1]
    if enemy
      case param2
      when 0      # HP
        return enemy.hp
      when 1      # MP
        return enemy.mp
      when 2..9   # 通常能力値
        return enemy.param(param2 - 2)
      end
    end
  when 5  # キャラクター
    character = get_character(param1)
    if character
      case param2
      when 0  # X 座標
        return character.x
      when 1  # Y 座標
        return character.y
      when 2  # 向き
        return character.direction
      when 3  # 画面 X 座標
        return character.screen_x
      when 4  # 画面 Y 座標
        return character.screen_y
      end
    end
  when 6  # パーティ
    actor = $game_party.members[param1]
    return actor ? actor.id : 0
  when 7  # その他
    case param1
    when 0  # マップ ID
      return $game_map.map_id
    when 1  # パーティ人数
      return $game_party.members.size
    when 2  # ゴールド
      return $game_party.gold
    when 3  # 歩数
      return $game_party.steps
    when 4  # プレイ時間
      return Graphics.frame_count / Graphics.frame_rate
    when 5  # タイマー
      return $game_timer.sec
    when 6  # セーブ回数
      return $game_system.save_count
    when 7  # 戦闘回数
      return $game_system.battle_count
    end
  end
  return 0
end

# File Game_Interpreter.rb, line 236
def get_character(param)
  if $game_party.in_battle
    nil
  elsif param < 0
    $game_player
  else
    events = same_map? ? $game_map.events : {}
    events[param > 0 ? param : @event_id]
  end
end

# File Game_Interpreter.rb, line 136
def iterate_actor_id(param)
  if param == 0
    $game_party.members.each {|actor| yield actor }
  else
    actor = $game_actors[param]
    yield actor if actor
  end
end

# File Game_Interpreter.rb, line 162
def iterate_actor_index(param)
  if param < 0
    $game_party.members.each {|actor| yield actor }
  else
    actor = $game_party.members[param]
    yield actor if actor
  end
end

# File Game_Interpreter.rb, line 150
def iterate_actor_var(param1, param2)
  if param1 == 0
    iterate_actor_id(param2) {|actor| yield actor }
  else
    iterate_actor_id($game_variables[param2]) {|actor| yield actor }
  end
end

# File Game_Interpreter.rb, line 189
def iterate_battler(param1, param2)
  if $game_party.in_battle
    if param1 == 0
      iterate_enemy_index(param2) {|enemy| yield enemy }
    else
      iterate_actor_id(param2) {|actor| yield actor }
    end
  end
end

# File Game_Interpreter.rb, line 175
def iterate_enemy_index(param)
  if param < 0
    $game_troop.members.each {|enemy| yield enemy }
  else
    enemy = $game_troop.members[param]
    yield enemy if enemy
  end
end

# File Game_Interpreter.rb, line 71
def marshal_dump
  [@depth, @map_id, @event_id, @list, @index + 1, @branch]
end

# File Game_Interpreter.rb, line 80
def marshal_load(obj)
  @depth, @map_id, @event_id, @list, @index, @branch = obj
  create_fiber
end

# File Game_Interpreter.rb, line 228
def next_event_code
  @list[@index + 1].code
end

# File Game_Interpreter.rb, line 253
def operate_value(operation, operand_type, operand)
  value = operand_type == 0 ? operand : $game_variables[operand]
  operation == 0 ? value : -value
end

# File Game_Interpreter.rb, line 679
def operate_variable(variable_id, operation_type, value)
  begin
    case operation_type
    when 0  # 代入
      $game_variables[variable_id] = value
    when 1  # 加算
      $game_variables[variable_id] += value
    when 2  # 減算
      $game_variables[variable_id] -= value
    when 3  # 乗算
      $game_variables[variable_id] *= value
    when 4  # 除算
      $game_variables[variable_id] /= value
    when 5  # 剰余
      $game_variables[variable_id] = value
    end
  rescue
    $game_variables[variable_id] = 0
  end
end

# File Game_Interpreter.rb, line 108
def run
  wait_for_message
  while @list[@index] do
    execute_command
    @index += 1
  end
  Fiber.yield
  @fiber = nil
end

# File Game_Interpreter.rb, line 121
def running?
  @fiber != nil
end

# File Game_Interpreter.rb, line 88
def same_map?
  @map_id == $game_map.map_id
end

# File Game_Interpreter.rb, line 202
def screen
  $game_party.in_battle ? $game_troop.screen : $game_map.screen
end

# File Game_Interpreter.rb, line 51
def setup(list, event_id = 0)
  clear
  @map_id = $game_map.map_id
  @event_id = event_id
  @list = list
  create_fiber
end

# File Game_Interpreter.rb, line 311
def setup_choices(params)
  params[0].each {|s| $game_message.choices.push(s) }
  $game_message.choice_cancel_type = params[1]
  $game_message.choice_proc = Proc.new {|n| @branch[@indent] = n }
end

# File Game_Interpreter.rb, line 360
def setup_item_choice(params)
  $game_message.item_choice_variable_id = params[0]
end

# File Game_Interpreter.rb, line 343
def setup_num_input(params)
  $game_message.num_input_variable_id = params[0]
  $game_message.num_input_digits_max = params[1]
end

# File Game_Interpreter.rb, line 95
def setup_reserved_common_event
  if $game_temp.common_event_reserved?
    setup($game_temp.reserved_common_event.list)
    $game_temp.clear_common_event
    true
  else
    false
  end
end

# File Game_Interpreter.rb, line 128
def update
  @fiber.resume if @fiber
end

# File Game_Interpreter.rb, line 261
def wait(duration)
  duration.times { Fiber.yield }
end

# File Game_Interpreter.rb, line 268
def wait_for_message
  Fiber.yield while $game_message.busy?
end