[SCRIPT] AUTO-POTION (VX ACE)

class Scene_Battle < Scene_Base

  alias :use_item_autoitem :use_item unless $@
  def use_item(*args)
    # First call the original method
    use_item_autoitem(*args)
    # Now see if now's the time to use an auto item
    if @subject.is_a? Game_Actor 
      # The subject is an actor so see if the party has any items that can be
      # autoused here
      auto_item = $game_party.items.
        select{|x| x.auto_item_condition(@subject)}.
        sort_by{ |a| a.auto_item_priority }.
        first;
      # If no auto item was found then there's no work to do
      return if auto_item.nil?
      
      # Otherwise we found an item and it's time to use it!
      
      # Prepare to use the item! This will display it to the user and consume the item
      @log_window.display_use_item(@subject, auto_item)
      @subject.use_item(auto_item)
      refresh_status
      # Create an action to represent this auto item execution
      action = Game_Action.new(@subject, true)
      action.set_item(auto_item.id)
      # And generate the targets for it
      targets = action.make_targets.compact
      show_animation(targets, auto_item.animation_id)
      # Now use the item!
      invoke_item(@subject, auto_item)
    end
  end
  
end



class RPG::Item < RPG::UsableItem
  
  def auto_item_condition(actor)
    return (@id == 1 and actor.mp == 0)
  end
  
  def auto_item_priority
    return @id == 1 ? 1 : 0
  end
end

def auto_item_condition(actor)
    return (@id == 1 and actor.mp == 0)
  end

class Scene_Battle < Scene_Base

  #alias :use_item_autoitem :use_item unless $@
  def use_item(*args)
    # First call the original method
    item = @subject.current_action.item
    @log_window.display_use_item(@subject, item)
    @subject.use_item(item)
    refresh_status
    targets = @subject.current_action.make_targets.compact
    show_animation(targets, item.animation_id)
    targets.each {|target| item.repeats.times { invoke_item(target, item) } }
    
    # If the subject is an actor then they can use an autoitem after their turn
    if @subject.is_a? Game_Actor
      use_autoitem(@subject, :after_action)
    # Otherwise if its an enemy then actors can act if they were a target
    elsif @subject.is_a? Game_Enemy
      # Use the determined actors list to see who gets a turn at auto item!
      targets.each do |target|
        use_autoitem(target, :after_target, @subject)
      end
    end
  end


  def use_autoitem(actor, phase = :after_target, source = nil)
    # Sanity check, we only deal with actors
    return unless actor.is_a? Game_Actor and actor.alive?
    
    # Look for items in the player's inventory that the current actor can
    # use as an autoitem
    auto_item = get_autoitem(actor, phase)
    # If no auto item was found then there's no work to do
    return if auto_item.nil?
    
    # Otherwise we found an item and it's time to use it!
    
    # Prepare to use the item! This will display it to the user and consume the item
    @log_window.display_use_item(actor, auto_item)
    actor.use_item(auto_item)
    refresh_status
    
    # And generate the targets for it
    targets = []
    
    # If the item is a single-target ally item then the user will use it on themselves
    if auto_item.for_friend? and not auto_item.for_all?
      targets = [actor]
    # If the target is for a single enemy use the source target (if they aren't nil)
    elsif auto_item.for_opponent? and not auto_item.for_all? and not source.nil?
      targets = [source]
    # Otherwise just use a standard action to generate our targets
    else
      # Create an action to represent this auto item execution
      action = Game_Action.new(actor, true)
      action.set_item(auto_item.id)
      targets = action.make_targets.compact
    end
    
    # Show the animation for the item being used
    show_animation(targets, auto_item.animation_id)
    # Now use the item!
    targets.each {|target| auto_item.repeats.times { invoke_item(target, auto_item) } }
    
  end
  
  def get_autoitem(actor, phase)
    case phase
      when :after_action
        return  $game_party.items.
          select{|x| x.auto_item_condition_after_action(actor, $game_party, $game_troop)}.
          sort_by{ |a| a.auto_item_priority_after_action(actor, $game_party, $game_troop) }.
          last;
      when :after_target
        return $game_party.items.
          select{|x| x.auto_item_condition_after_target(actor, $game_party, $game_troop)}.
          sort_by{ |a| a.auto_item_priority_after_target(actor, $game_party, $game_troop) }.
          last;
    end
    
  end
  
end



class RPG::Item < RPG::UsableItem
  
  AutoItemConditionAfterActionRegEx =
    /<AutoItemConditionAfterAction>(.*)<\/AutoItemConditionAfterAction>/mix
   
  def auto_item_condition_after_action(user, party, enemies)
    # First get the eval to execute for the item
    if @aicaa.nil?
      if @note =~ AutoItemConditionAfterActionRegEx
        @aicaa = $1
      else
        @aicaa = ""
      end
    end
    # If the condition eval is empty then this is always false
    return false if @aicaa == ""
    # Otherwise try to execute the condition
    begin
      return eval(@aicaa)
    rescue
      print "Error occured evaluating #{@aicaa} in auto_item_condition_after_action, error: #{$!}\n"
      return false
    end
  end
  
  AutoItemPriorityAfterActionRegEx =
    /<AutoItemPriorityAfterAction>(.*)<\/AutoItemPriorityAfterAction>/mix
  
  def auto_item_priority_after_action(user, party, enemies)
    # First get the eval to execute for the item
    if @aipaa.nil?
      if @note =~ AutoItemPriorityAfterActionRegEx
        @aipaa = $1
      else
        @aipaa = ""
      end
    end
    # If the condition eval is empty then this is always false
    return 0 if @aipaa == ""
    # Otherwise try to execute the condition
    begin
      return eval(@aipaa)
    rescue
      print "Error occured evaluating #{@aipaa} in auto_item_priority_after_action, error: #{$!}\n"
      return false
    end
  end
  
  AutoItemConditionAfterTargetRegEx =
    /<AutoItemConditionAfterTarget>(.*)<\/AutoItemConditionAfterTarget>/mix
    
  def auto_item_condition_after_target(user, party, enemies)
    # First get the eval to execute for the item
    if @aicat.nil?
      if @note =~ AutoItemConditionAfterTargetRegEx
        @aicat = $1
      else
        @aicat = ""
      end
    end
    # If the condition eval is empty then this is always false
    return false if @aicat == ""
    # Otherwise try to execute the condition
    begin
      return eval(@aicat)
    rescue
      print "Error occured evaluating #{@aicat} in auto_item_condition_after_target, error: #{$!}\n"
      return false
    end
  end
  
  AutoItemPriorityAfterTargetRegEx =
    /<AutoItemPriorityAfterTarget>(.*)<\/AutoItemPriorityAfterTarget>/mix
  
  def auto_item_priority_after_target(user, party, enemies)
    # First get the eval to execute for the item
    if @aipat.nil?
      if @note =~ AutoItemPriorityAfterTargetRegEx
        @aipat = $1
      else
        @aipat = ""
      end
    end
    # If the condition eval is empty then this is always false
    return 0 if @aipat == ""
    # Otherwise try to execute the condition
    begin
      return eval(@aipat)
    rescue
      print "Error occured evaluating #{@aipat} in auto_item_priority_after_target, error: #{$!}\n"
      return -1
    end
  end
end

class Scene_Battle < Scene_Base

  alias :use_item_autoitem :use_item unless $@
  def use_item(*args)
    # First call the original method
    use_item_autoitem
    # And get the targets last hit by the above method
    targets = @subject.current_action.last_targets.compact
    
    # If the subject is an actor then they can use an autoitem after their turn
    if @subject.is_a? Game_Actor
      use_autoitem(@subject, :after_action)
    # Otherwise if its an enemy then actors can act if they were a target
    elsif @subject.is_a? Game_Enemy and not targets.nil?
      # Use the determined actors list to see who gets a turn at auto item!
      targets.each do |target|
        use_autoitem(target, :after_target, @subject)
      end
    end
  end


  def use_autoitem(actor, phase = :after_target, source = nil)
    # Sanity check, we only deal with actors
    return unless actor.is_a? Game_Actor and actor.alive?
    
    # Look for items in the player's inventory that the current actor can
    # use as an autoitem
    auto_item = get_autoitem(actor, phase)
    # If no auto item was found then there's no work to do
    return if auto_item.nil?
    
    # Otherwise we found an item and it's time to use it!
    
    # Prepare to use the item! This will display it to the user and consume the item
    @log_window.display_use_item(actor, auto_item)
    actor.use_item(auto_item)
    refresh_status
    
    # And generate the targets for it
    targets = []
    
    # If the item is a single-target ally item then the user will use it on themselves
    if auto_item.for_friend? and not auto_item.for_all?
      targets = [actor]
    # If the target is for a single enemy use the source target (if they aren't nil)
    elsif auto_item.for_opponent? and not auto_item.for_all? and not source.nil?
      targets = [source]
    # Otherwise just use a standard action to generate our targets
    else
      # Create an action to represent this auto item execution
      action = Game_Action.new(actor, true)
      action.set_item(auto_item.id)
      targets = action.make_targets.compact
    end
    
    # Show the animation for the item being used
    show_animation(targets, auto_item.animation_id)
    # Now use the item!
    targets.each {|target| auto_item.repeats.times { invoke_item(target, auto_item) } }
    
  end
  
  def get_autoitem(actor, phase)
    case phase
      when :after_action
        return  $game_party.items.
          select{|x| x.auto_item_condition_after_action(actor, $game_party, $game_troop)}.
          sort_by{ |a| a.auto_item_priority_after_action(actor, $game_party, $game_troop) }.
          last;
      when :after_target
        return $game_party.items.
          select{|x| x.auto_item_condition_after_target(actor, $game_party, $game_troop)}.
          sort_by{ |a| a.auto_item_priority_after_target(actor, $game_party, $game_troop) }.
          last;
    end
    
  end
  
end

class Game_Action

  # We need to access the last targets of this action without invoking
  # make_targets again since it isn't determinate. This will cache the last
  # targets and make it accessible
  attr_reader :last_targets

  alias :make_targets_autoitem :make_targets unless $@
  def make_targets
    @last_targets = make_targets_autoitem
    return @last_targets
  end
  
end



class RPG::Item < RPG::UsableItem
  
  AutoItemConditionAfterActionRegEx =
    /<AutoItemConditionAfterAction>(.*)<\/AutoItemConditionAfterAction>/mix
   
  def auto_item_condition_after_action(user, party, enemies)
    # First get the eval to execute for the item
    if @aicaa.nil?
      if @note =~ AutoItemConditionAfterActionRegEx
        @aicaa = $1
      else
        @aicaa = ""
      end
    end
    # If the condition eval is empty then this is always false
    return false if @aicaa == ""
    # Otherwise try to execute the condition
    begin
      return eval(@aicaa)
    rescue
      print "Error occured evaluating #{@aicaa} in auto_item_condition_after_action, error: #{$!}\n"
      return false
    end
  end
  
  AutoItemPriorityAfterActionRegEx =
    /<AutoItemPriorityAfterAction>(.*)<\/AutoItemPriorityAfterAction>/mix
  
  def auto_item_priority_after_action(user, party, enemies)
    # First get the eval to execute for the item
    if @aipaa.nil?
      if @note =~ AutoItemPriorityAfterActionRegEx
        @aipaa = $1
      else
        @aipaa = ""
      end
    end
    # If the condition eval is empty then this is always false
    return 0 if @aipaa == ""
    # Otherwise try to execute the condition
    begin
      return eval(@aipaa)
    rescue
      print "Error occured evaluating #{@aipaa} in auto_item_priority_after_action, error: #{$!}\n"
      return false
    end
  end
  
  AutoItemConditionAfterTargetRegEx =
    /<AutoItemConditionAfterTarget>(.*)<\/AutoItemConditionAfterTarget>/mix
    
  def auto_item_condition_after_target(user, party, enemies)
    # First get the eval to execute for the item
    if @aicat.nil?
      if @note =~ AutoItemConditionAfterTargetRegEx
        @aicat = $1
      else
        @aicat = ""
      end
    end
    # If the condition eval is empty then this is always false
    return false if @aicat == ""
    # Otherwise try to execute the condition
    begin
      return eval(@aicat)
    rescue
      print "Error occured evaluating #{@aicat} in auto_item_condition_after_target, error: #{$!}\n"
      return false
    end
  end
  
  AutoItemPriorityAfterTargetRegEx =
    /<AutoItemPriorityAfterTarget>(.*)<\/AutoItemPriorityAfterTarget>/mix
  
  def auto_item_priority_after_target(user, party, enemies)
    # First get the eval to execute for the item
    if @aipat.nil?
      if @note =~ AutoItemPriorityAfterTargetRegEx
        @aipat = $1
      else
        @aipat = ""
      end
    end
    # If the condition eval is empty then this is always false
    return 0 if @aipat == ""
    # Otherwise try to execute the condition
    begin
      return eval(@aipat)
    rescue
      print "Error occured evaluating #{@aipat} in auto_item_priority_after_target, error: #{$!}\n"
      return -1
    end
  end
end