rmxp_extractor 1.6 → 1.7

data/Scripts/Interpreter 3.rb

@@ -1,474 +0,0 @@
-#==============================================================================
-# ** Interpreter (part 3)
-#------------------------------------------------------------------------------
-#  This interpreter runs event commands. This class is used within the
-#  Game_System class and the Game_Event class.
-#==============================================================================
-
-class Interpreter
-  #--------------------------------------------------------------------------
-  # * Show Text
-  #--------------------------------------------------------------------------
-  def command_101
-    # If other text has been set to message_text
-    if $game_temp.message_text != nil ||
-      $game_temp.message_ed_text != nil ||
-      $game_temp.message_doc_text != nil ||
-      $game_temp.message_desktop_text != nil ||
-      $game_temp.message_credits_text != nil
-      # End
-      return false
-    end
-
-    # Create full text string
-    choices = false
-    text = @list[@index].parameters[0].strip
-
-    # Translate text
-    text = Language.tr(text).clone
-
-    if text.start_with?('$')
-      is_doc = true
-      text.slice!(0)
-    elsif text.start_with?('@credits')
-      is_credits = true
-    else
-      is_doc = false
-    end
-    loop do
-      # 401: another line of text
-      if @list[@index+1].code == 401
-        @index += 1
-        text << " " << Language.tr(@list[@index].parameters[0].rstrip).clone
-      elsif @list[@index+1].code == 101 && (is_doc || is_credits)
-        # 101: Another message box
-        # Tack on if we're a doc
-        new_text = Language.tr(@list[@index+1].parameters[0].strip).clone
-        if new_text.start_with?('$')
-          text << "\n\n" << new_text[1..-1]
-          @index += 1
-        elsif  new_text.start_with?('@credits')
-          text << new_text[9..-1]
-          @index += 1
-        else
-          break
-        end
-      else
-        # 102: show choices
-        if @list[@index+1].code == 102
-          # Add choice data to message
-          @index += 1
-          setup_choices(@list[@index].parameters)
-          choices = true
-        # 103: choose number
-        elsif @list[@index+1].code == 103
-          # Add number data to message
-          @index += 1
-          $game_temp.num_input_variable_id = @list[@index].parameters[0]
-          $game_temp.num_input_digits_max = @list[@index].parameters[1]
-        end
-        break
-      end
-    end
-    text.gsub!(/\s*\\n\s*/, '\\n')
-    text.strip!
-    text = Language.tr(text)
-
-    # Parse first line for portrait specifier
-    if text[0,1] == '@'
-      # Set portrait if text begins with @
-      space = text.index(' ') || text.size
-      face = text[1..space-1]
-      if face == 'ed'
-        is_desktop = false
-        is_ed = true
-        is_credits = false
-      elsif face == 'desktop'
-        is_desktop = true
-        is_ed = false
-        is_credits = false
-      elsif face == 'credits'
-        is_desktop = false
-        is_ed = false
-        is_credits = true
-      else
-        is_desktop = false
-        is_ed = false
-        is_credits = false
-        $game_temp.message_face = face
-      end
-
-      # Remove portrait text
-      text.slice!(0..space)
-    end
-
-    # Set message end waiting flag and callback
-    if !text.empty? || choices
-      @message_waiting = true
-      $game_temp.message_proc = Proc.new { @message_waiting = false }
-    end
-
-    # Set message box text
-    unless text.empty?
-      if is_ed
-        $game_temp.message_ed_text = text
-      elsif is_doc
-        $game_temp.message_doc_text = text
-      elsif is_desktop
-        $game_temp.message_desktop_text = text
-      elsif is_credits
-        $game_temp.message_credits_text = text
-      else
-        $game_temp.message_text = text
-      end
-    end
-    return true
-  end
-  #--------------------------------------------------------------------------
-  # * Show Choices
-  #--------------------------------------------------------------------------
-  def command_102
-    # If text has been set to message_text
-    if $game_temp.message_text != nil
-      # End
-      return false
-    end
-    # Set message end waiting flag and callback
-    @message_waiting = true
-    $game_temp.message_proc = Proc.new { @message_waiting = false }
-    # Choices setup
-    setup_choices(@parameters)
-    # Continue
-    return true
-  end
-  #--------------------------------------------------------------------------
-  # * When [**]
-  #--------------------------------------------------------------------------
-  def command_402
-    # If fitting choices are selected
-    if @branch[@list[@index].indent] == @parameters[0]
-      # Delete branch data
-      @branch.delete(@list[@index].indent)
-      # Continue
-      return true
-    end
-    # If it doesn't meet the condition: command skip
-    return command_skip
-  end
-  #--------------------------------------------------------------------------
-  # * When Cancel
-  #--------------------------------------------------------------------------
-  def command_403
-    # If choices are cancelled
-    if @branch[@list[@index].indent] == 4
-      # Delete branch data
-      @branch.delete(@list[@index].indent)
-      # Continue
-      return true
-    end
-    # If it doen't meet the condition: command skip
-    return command_skip
-  end
-  #--------------------------------------------------------------------------
-  # * Input Number
-  #--------------------------------------------------------------------------
-  def command_103
-    # If text has been set to message_text
-    if $game_temp.message_text != nil
-      # End
-      return false
-    end
-    # Set message end waiting flag and callback
-    @message_waiting = true
-    $game_temp.message_proc = Proc.new { @message_waiting = false }
-    # Number input setup
-    $game_temp.num_input_variable_id = @parameters[0]
-    $game_temp.num_input_digits_max = @parameters[1]
-    # Continue
-    return true
-  end
-  #--------------------------------------------------------------------------
-  # * Change Text Options
-  #--------------------------------------------------------------------------
-  def command_104
-    # If message is showing
-    if $game_temp.message_window_showing
-      # End
-      return false
-    end
-    # Change each option
-    $game_system.message_position = @parameters[0]
-    $game_system.message_frame = @parameters[1]
-    # Continue
-    return true
-  end
-  #--------------------------------------------------------------------------
-  # * Button Input Processing
-  #--------------------------------------------------------------------------
-  def command_105
-    # Set variable ID for button input
-    @button_input_variable_id = @parameters[0]
-    # Advance index
-    @index += 1
-    # End
-    return false
-  end
-  #--------------------------------------------------------------------------
-  # * Wait
-  #--------------------------------------------------------------------------
-  def command_106
-    # Set wait count
-    @wait_count = @parameters[0] * 2
-    # Continue
-    return true
-  end
-  #--------------------------------------------------------------------------
-  # * Conditional Branch
-  #--------------------------------------------------------------------------
-  def command_111
-    # Initialize local variable: result
-    result = false
-    case @parameters[0]
-    when 0  # switch
-      result = ($game_switches[@parameters[1]] == (@parameters[2] == 0))
-    when 1  # variable
-      value1 = $game_variables[@parameters[1]]
-      if @parameters[2] == 0
-        value2 = @parameters[3]
-      else
-        value2 = $game_variables[@parameters[3]]
-      end
-      case @parameters[4]
-      when 0  # value1 is equal to value2
-        result = (value1 == value2)
-      when 1  # value1 is greater than or equal to value2
-        result = (value1 >= value2)
-      when 2  # value1 is less than or equal to value2
-        result = (value1 <= value2)
-      when 3  # value1 is greater than value2
-        result = (value1 > value2)
-      when 4  # value1 is less than value2
-        result = (value1 < value2)
-      when 5  # value1 is not equal to value2
-        result = (value1 != value2)
-      end
-    when 2  # self switch
-      if @event_id > 0
-        key = [$game_map.map_id, @event_id, @parameters[1]]
-        if @parameters[2] == 0
-          result = ($game_self_switches[key] == true)
-        else
-          result = ($game_self_switches[key] != true)
-        end
-      end
-    when 3  # timer
-      if $game_system.timer_working
-        sec = $game_system.timer / Graphics.frame_rate
-        if @parameters[2] == 0
-          result = (sec >= @parameters[1])
-        else
-          result = (sec <= @parameters[1])
-        end
-      end
-    when 4  # actor
-      actor = $game_actors[@parameters[1]]
-      if actor != nil
-        case @parameters[2]
-        when 0  # in party
-          result = ($game_party.actors.include?(actor))
-        when 1  # name
-          result = (actor.name == @parameters[3])
-        when 2  # skill
-          result = (actor.skill_learn?(@parameters[3]))
-        when 3  # weapon
-          result = (actor.weapon_id == @parameters[3])
-        when 4  # armor
-          result = (actor.armor1_id == @parameters[3] or
-                    actor.armor2_id == @parameters[3] or
-                    actor.armor3_id == @parameters[3] or
-                    actor.armor4_id == @parameters[3])
-        when 5  # state
-          result = (actor.state?(@parameters[3]))
-        end
-      end
-    when 5  # enemy
-      enemy = $game_troop.enemies[@parameters[1]]
-      if enemy != nil
-        case @parameters[2]
-        when 0  # appear
-          result = (enemy.exist?)
-        when 1  # state
-          result = (enemy.state?(@parameters[3]))
-        end
-      end
-    when 6  # character
-      character = get_character(@parameters[1])
-      if character != nil
-        result = (character.direction == @parameters[2])
-      end
-    when 7  # gold
-      if @parameters[2] == 0
-        result = ($game_party.gold >= @parameters[1])
-      else
-        result = ($game_party.gold <= @parameters[1])
-      end
-    when 8  # item
-      result = ($game_party.item_number(@parameters[1]) > 0)
-    when 9  # weapon
-      result = ($game_party.weapon_number(@parameters[1]) > 0)
-    when 10  # armor
-      result = ($game_party.armor_number(@parameters[1]) > 0)
-    when 11  # button
-      result = (Input.press?(@parameters[1]))
-    when 12  # script
-      result = !!eval(@parameters[1])
-    end
-    # Store determinant results in hash
-    @branch[@list[@index].indent] = result
-    # If determinant results are true
-    if @branch[@list[@index].indent] == true
-      # Delete branch data
-      @branch.delete(@list[@index].indent)
-      # Continue
-      return true
-    end
-    # If it doesn't meet the conditions: command skip
-    return command_skip
-  end
-  #--------------------------------------------------------------------------
-  # * Else
-  #--------------------------------------------------------------------------
-  def command_411
-    # If determinant results are false
-    if @branch[@list[@index].indent] == false
-      # Delete branch data
-      @branch.delete(@list[@index].indent)
-      # Continue
-      return true
-    end
-    # If it doesn't meet the conditions: command skip
-    return command_skip
-  end
-  #--------------------------------------------------------------------------
-  # * Loop
-  #--------------------------------------------------------------------------
-  def command_112
-    # Continue
-    return true
-  end
-  #--------------------------------------------------------------------------
-  # * Repeat Above
-  #--------------------------------------------------------------------------
-  def command_413
-    # Get indent
-    indent = @list[@index].indent
-    # Loop
-    loop do
-      # Return index
-      @index -= 1
-      # If this event command is the same level as indent
-      if @list[@index].indent == indent
-        # Continue
-        return true
-      end
-    end
-  end
-  #--------------------------------------------------------------------------
-  # * Break Loop
-  #--------------------------------------------------------------------------
-  def command_113
-    # Get indent
-    indent = @list[@index].indent
-    # Copy index to temporary variables
-    temp_index = @index
-    # Loop
-    loop do
-      # Advance index
-      temp_index += 1
-      # If a fitting loop was not found
-      if temp_index >= @list.size-1
-        # Continue
-        return true
-      end
-      # If this event command is [repeat above] and indent is shallow
-      if @list[temp_index].code == 413 and @list[temp_index].indent < indent
-        # Update index
-        @index = temp_index
-        # Continue
-        return true
-      end
-    end
-  end
-  #--------------------------------------------------------------------------
-  # * Exit Event Processing
-  #--------------------------------------------------------------------------
-  def command_115
-    # End event
-    command_end
-    # Continue
-    return true
-  end
-  #--------------------------------------------------------------------------
-  # * Erase Event
-  #--------------------------------------------------------------------------
-  def command_116
-    # If event ID is valid
-    if @event_id > 0
-      # Erase event
-      $game_map.events[@event_id].erase
-    end
-    # Advance index
-    @index += 1
-    # End
-    return false
-  end
-  #--------------------------------------------------------------------------
-  # * Call Common Event
-  #--------------------------------------------------------------------------
-  def command_117
-    # Get common event
-    common_event = $data_common_events[@parameters[0]]
-    # If common event is valid
-    if common_event != nil
-      # Make child interpreter
-      @child_interpreter = Interpreter.new(@depth + 1)
-      @child_interpreter.setup(common_event.list, @event_id, common_event.name)
-    end
-    # Continue
-    return true
-  end
-  #--------------------------------------------------------------------------
-  # * Label
-  #--------------------------------------------------------------------------
-  def command_118
-    # Continue
-    return true
-  end
-  #--------------------------------------------------------------------------
-  # * Jump to Label
-  #--------------------------------------------------------------------------
-  def command_119
-    # Get label name
-    label_name = @parameters[0]
-    # Initialize temporary variables
-    temp_index = 0
-    # Loop
-    loop do
-      # If a fitting label was not found
-      if temp_index >= @list.size-1
-        # Continue
-        return true
-      end
-      # If this event command is a designated label name
-      if @list[temp_index].code == 118 and
-         @list[temp_index].parameters[0] == label_name
-        # Update index
-        @index = temp_index
-        # Continue
-        return true
-      end
-      # Advance index
-      temp_index += 1
-    end
-  end
-end