RINE'S PROFILE

class Game_Interpreter
  def missionListCreate
    #Clean out the list of any old entries
    $mission_list.clear
    #Get the size of the mission array.
    @size = $mission.size
    #Where are we in the array
    @index = 0
    #Determines if location 1 is already full
    @loc1 = 0
    #Determines if location 2 is already full
    @loc2 = 0
    #Determines if location 3 is already full
    @loc3 = 0
    #Determines of location 4 is already full
    @loc4 = 0
    #Determines if we're done
    @done = 0
    #Determines current location in the $mission_list array
    @current = 0
    #Holder for the location of $mission.location
    @currentloc = 0
    #Start our loop
    while @done == 0
      #Check to see if the mission is available, which is value 1 on completed
      if $mission[@index].completed == 1
        #Set the location of the mission.
         @currentloc = $mission[@index].location
          #Check to see if location of the mission is 1
          if @currentloc == 1
            #See if any other missions have been there on this list
            if @loc1 == 0
              @loc1 = 1
              $mission_list[@current] = $mission[@index]
              @current += 1
            end
          end    
          #Check to see if location of the mission is 1
          if @currentloc == 2
            #See if any other missions have been there on this list
            if @loc2 == 0
              #Set location as used, add mission, increment location in mission 
              # list
              @loc2 = 1
              $mission_list[@current] = $mission[@index]
              @current += 1
            end
          end
          #Check to see if location of the mission is 1
          if @currentloc == 3
            #See if any other missions have been there on this list
            if @loc3 == 0
              #Set location as used, add mission, increment location in mission 
              # list
              @loc3 = 1
              $mission_list[@current] = $mission[@index]
              @current += 1
            end
          end
          #Check to see if location of the mission is 1
          if @currentloc == 4
            #See if any other missions have been there on this list
            if @loc4 == 0
              #Set location as used, add mission, increment location in mission 
              # list
              @loc4 = 1
              $mission_list[@current] = $mission[@index]
              @current += 1
            end
          end
          #check if there is no location set.
         if @currentloc == 0
           #Add mission, increment location in mission list
              $mission_list[@current] = $mission[@index]
              @current += 1
          end 
        end  
      #Make sure we're not going past the size of $mission  
      if @size == @index + 1
        @done = 1
      end
      #Make sure we're not adding more than 5 missions
      if $mission_list.size == 5
        @done = 1
      end
      #Increment where we are in $mission
      @index += 1
    end
  end
end

$mission[0] = Mission.new(1, 10, 10, 10, 8, 0, "Alley", 
    "We are receiving a distress call from an Alley in Paris.
    Our scans indicate a Wyrd signature, along with several
    readings of undead in the area. Recover the individual
    and report back to base.")

class Window_MissionDesc < Window_Base
  def initialize(list_window, x, y, width, height)
    super(x, y, width, height)
    @list_window = list_window
    @list = @list_window.item
    @width = width
    @height = height
    draw_desc(x, y, @list)
    refresh
  end
  def draw_desc(x, y, list)
    draw_text(0, 0, width, height, list.desc)
  end
  
  def update
    super
    refresh
  end
  
  def refresh
    contents.clear
    @list = @list_window.item
    draw_desc(0, 0, @list)
  end
end

class Scene_ActorAssign < Scene_MenuBase
  def start
    super
    @list_window = Window_CharacterList.new(0, 0, 200)
    @list_window.set_handler(:cancel,  method(:return_scene))
    @face_window = Window_CharacterFace.new(@list_window, 200, 0, Graphics.width - 200, Graphics.width - 300)
    @face_window.viewport = @viewport
  end
end

class Window_CharacterFace < Window_Base
  def initialize(face_window, x, y, width, height)
    super(x, y, width, height)
    @face_window = face_window
    refresh
  end
  
  def get_face
    Cache.face(@face.face_name)
  end

  def draw_face(actor, x, y)
    bmp = setup_face_graphic(x, y)
    src_rect = Rect.new(0, 0, bmp.rect.width, bmp.rect.height)
    contents.blt(x, y, bmp, src_rect, 150)
    bmp.dispose
  end
  
  def setup_face_graphic(x, y)
    bmp = get_face
    rect = Rect.new(x, y, contents_width, contents_height)
    dest_rect, fits = face_rect(bmp, rect)
    dummy_bmp = Bitmap.new(contents_width, contents_height)
    if fits
      dummy_bmp.blt(dest_rect.x, dest_rect.y, bmp, bmp.rect)
    else
      src_rect = Rect.new((bmp.rect.width - dest_rect.width) / 2, 
      (bmp.rect.height - dest_rect.height) / 2, dest_rect.width, dest_rect.height)
      dummy_bmp.blt(dest_rect.x, dest_rect.y, bmp, src_rect)
    end
    dummy_bmp
  end
  
  def face_rect(bmp, rect)
    dest_rect = bmp.rect.dup
    fits = dest_rect.width <= rect.width && dest_rect.height <= rect.height
    if !fits
      dest_rect.width = rect.width if dest_rect.width > rect.width
      dest_rect.height = rect.height if dest_rect.height > rect.height
    end
    dest_rect.x = ((rect.width - dest_rect.width) / 2)
    dest_rect.y = ((rect.height - dest_rect.height) / 2)
    return dest_rect, fits
  end
  
  def refresh
    contents.clear
    @face = @face_window.item
    draw_face(@face, 1, 1)
  end
  
  def item
    @data && index >= 0 ? @data[index] : nil
  end

    
end

class Window_CharacterList < Window_Selectable
  def initialize(x, y, width)
    super(x, y, width, Graphics.height - y)
    data = []
    self.index = 0
    activate
    refresh
  end

  def item
    @data && index >= 0 ? @data[index] : nil
  end
  
  def item_max
    @data ? @data.size : 1
  end
    
  def make_item_list
    @data = $data_actors.compact
  end
  
  def draw_item(index)
    item = @data[index]
    if item
      rect = item_rect_for_text(index)
      draw_text(rect, item.name)
    end
  end
  
  def refresh
    make_item_list
    create_contents
    draw_all_items
  end
end