KItemRefill XP

[kyonides]

KItemRefill XP

by Kyonides

Introduction

This script will let your heroes depend on a flask or potion bottle to get healed, it can be refilled at anytime or you could break it on purpose... MWAHAHAHAHA!

Since version 1.2.0, the potion or flask can be destroyed.  
Just add the item ID to the TOTAL_LOSS_IDS Constant and that's it!

Scripts

Latest Version

Code:

# * KItemRefill XP
#  Scripter : Kyonides-Arkanthes
#  v 1.2.0 - 2024-05-03

# * Script Calls *
# - Just refill the flask with whatever you want to.
#    KItemRefill.refill(ID)
# - Increase the number of sips. Hiccup! XD
#    KItemRefill.improve(ID)
# - Break the darn flask because you are evil!
#    KItemRefill.break(ID)
# - Is the flask broken?
#    KItemRefill.broken?(ID)
# - Fix the broken flask.
#    KItemRefill.replace(ID)
# - Heal depending on its mode
#    KItemRefill.new_mode(ID, MODE)
#  Modes: nil : Database setup, :hp & :mp are self evident
#  Many calls are optional, you are not forced to improve it or change its mode
#  so use your preferred calls instead.

#  Recommended Object Description:
#    Some Description. Uses Left:\u
#  The label should appear on the opposite side of the hero selection window.

#  SETTINGS

#  Pick one or more Non Consumable items, add them to the IDS array.
#  ITEM_KIND defines how the item will be used (1 out of 3 options)
#  Without ID nor any value or ID => nil : Based on Database settings
#  :hp => HP, :sp => SP or MP
#  USAGE_LIMITS: set ID => Maximum Number of Uses for each ID.
#  USAGE_INCREASE: set ID => Increase Uses for each ID.
#  MAX_LEVEL: set ID => Maximum Level (0 or higher) for each ID.
#  Don't forget to add as many commas as deemed necessary as a separator for
#  all key value pairs: 36 => 8, 37 => 5
#  REFILL_AFTER_IMPROVEMENT: set if you want the flask to be refilled or not
#  whenever it gets improved.
#  FILL_EMPTY_ITEM: set if the item should be filled at the beginning.

module KItemRefill
  IDS = [33]
  TOTAL_LOSS_IDS = [33]
  # Kind of Usage: ID => Use (nil, :hp, :sp)
  ITEM_KIND = { 33 => :hp }
  # Initial Maximum Level: ID => Level
  USAGE_LIMITS = { 33 => 8 }
  # Maximum Number of Improvements: ID => Maximum Number of Improvements
  USAGE_INCREASE = { 33 => 3 }
  # Maximum Level (0 or higher) : ID => Maximum Level
  MAX_LEVEL = { 33 => 4 }
  # Refill item after improving it? true OR false
  REFILL_AFTER_IMPROVEMENT = true
  # Refill item after getting it from some NPC? true OR false
  FILL_EMPTY_ITEM = true
  extend self
  def refill(id)
    $game_system.refill_items[id].refill
  end

  def improve(id)
    $game_system.refill_items[id].improve
  end

  def break(id)
    $game_system.refill_items[id].broken = true
  end

  def broken?(id)
    $game_system.refill_items[id].broken
  end

  def replace(id)
    $game_system.refill_items[id].broken = nil
  end

  def new_mode(id,mode)
    $game_system.refill_items[id].change_mode(mode)
  end
end

module ItemAddOns
  attr_accessor :sips, :broken
  attr_reader :sip_max, :level, :mode
  def level_max
    KItemRefill::MAX_LEVEL[@id]
  end

  def change_mode(new_mode)
    @mode = new_mode
  end

  def lose_refill?
    KItemRefill::TOTAL_LOSS_IDS.include?(@id)
  end
 
  def refill_empty?
    @sips == 0
  end

  def consume
    @sips -= 1 if @sips > 0
    $game_party.lose_item(@id, 1) if lose_refill? and refill_empty?
  end

  def fill
    @level = 0
    @mode = KItemRefill::ITEM_KIND[@id]
    refill_item
    @sips = KItemRefill::FILL_EMPTY_ITEM ? @sip_max : 0
  end

  def refill
    return @sips if @broken
    refill_item
    @sips = @sip_max
  end

  def improve
    return  @sips if @broken
    @level += 1 if @level < KItemRefill::MAX_LEVEL[@id]
    limit = KItemRefill::USAGE_LIMITS[@id]
    @sip_max = (limit + (@level * KItemRefill::USAGE_INCREASE[@id]))
    @sips = @sip_max if KItemRefill::REFILL_AFTER_IMPROVEMENT
  end
  private
  def refill_item
    limit = KItemRefill::USAGE_LIMITS[@id]
    @sip_max = (limit + (@level * KItemRefill::USAGE_INCREASE[@id]))
  end
end

class Game_System
  attr_reader :refill_items
  alias kyon_item_refill_gm_sys_init initialize
  def initialize
    @refill_items = {}
    KItemRefill::IDS.each do |id|
      item = $data_items[id].dup
      item.extend(ItemAddOns)
      item.fill
      @refill_items[id] = item
    end
    kyon_item_refill_gm_sys_init
  end
end

class Game_Actor
  alias :kitemrefill_gm_actor_item_effect :item_effect
  def item_effect(item)
    refill_items = $game_system.refill_items
    refill_item = refill_items[item.id]
    if !refill_item or !refill_item.mode
      effective = kitemrefill_gm_actor_item_effect(item)
    else
      effective = refill_item_effect(refill_item)
      refill_item.consume if effective
    end
    effective
  end

  def refill_item_effect(item)
    @critical = false
    if ((item.scope == 3 or item.scope == 4) and self.hp == 0) or
      ((item.scope == 5 or item.scope == 6) and self.hp >= 1)
      return false
    end
    effective = false
    # Set effective flag if common ID is effective
    effective |= item.common_event_id > 0
    hit_result = (rand(100) < item.hit)
    unless hit_result
      @damage = $game_temp.in_battle ? "Miss" : nil
      return false
    end
    # Set effective flag is skill is uncertain
    effective |= item.hit < 100
    if item.mode == :hp
      return effective = refill_hp_effect(item, effective)
    elsif item.mode == :sp
      return effective = refill_sp_effect(item, effective)
    end
  end

  def refill_hp_effect(item, effective)
    # Calculate amount of recovery
    recover_hp = maxhp * item.recover_hp_rate / 100 + item.recover_hp
    if recover_hp < 0
      recover_hp += self.pdef * item.pdef_f / 20
      recover_hp += self.mdef * item.mdef_f / 20
      recover_hp = [recover_hp, 0].min
    end
    # Element correction
    recover_hp *= elements_correct(item.element_set)
    recover_hp /= 100
    # Dispersion
    if item.variance > 0 and recover_hp.abs > 0
      amp = [recover_hp.abs * item.variance / 100, 1].max
      recover_hp += rand(amp+1) + rand(amp+1) - amp
    end
    # If recovery code is negative, guard correction
    recover_hp /= 2 if recover_hp < 0 and self.guarding?
    # Set damage value and reverse HP recovery amount
    @damage = -recover_hp
    # HP recovery
    last_hp = self.hp
    self.hp += recover_hp
    effective |= self.hp != last_hp
    # State change
    @state_changed = false
    effective |= states_plus(item.plus_state_set)
    effective |= states_minus(item.minus_state_set)
    # If parameter value increase is effective
    if item.parameter_type > 0 and item.parameter_points != 0
      case item.parameter_type
      when 1  # Max HP
        @maxhp_plus += item.parameter_points
      when 2  # Max SP
        @maxsp_plus += item.parameter_points
      when 3  # Strength
        @str_plus += item.parameter_points
      when 4  # Dexterity
        @dex_plus += item.parameter_points
      when 5  # Agility
        @agi_plus += item.parameter_points
      when 6  # Intelligence
        @int_plus += item.parameter_points
      end
      effective = true
    end
    if item.recover_hp_rate == 0 and item.recover_hp == 0
      # Set damage to empty string
      @damage = ""
      # If recovery amount is 0, and parameter increase value is ineffective.
      if item.parameter_type == 0 or item.parameter_points == 0
        # If state is unchanged Set damage to "Miss"
        @damage = "Miss" unless @state_changed
      end
    end
    return effective
  end

  def refill_sp_effect(item, effective)
    # Calculate amount of recovery
    recover_sp = maxsp * item.recover_sp_rate / 100 + item.recover_sp
    recover_sp *= elements_correct(item.element_set)
    recover_sp /= 100
    # Dispersion
    if item.variance > 0 and recover_sp.abs > 0
      amp = [recover_sp.abs * item.variance / 100, 1].max
      recover_sp += rand(amp+1) + rand(amp+1) - amp
    end
    # SP recovery
    last_sp = self.sp
    self.sp += recover_sp
    effective |= self.sp != last_sp
    # State change
    @state_changed = false
    effective |= states_plus(item.plus_state_set)
    effective |= states_minus(item.minus_state_set)
    # If parameter value increase is effective
    if item.parameter_type > 0 and item.parameter_points != 0
      case item.parameter_type
      when 1  # Max HP
        @maxhp_plus += item.parameter_points
      when 2  # Max SP
        @maxsp_plus += item.parameter_points
      when 3  # Strength
        @str_plus += item.parameter_points
      when 4  # Dexterity
        @dex_plus += item.parameter_points
      when 5  # Agility
        @agi_plus += item.parameter_points
      when 6  # Intelligence
        @int_plus += item.parameter_points
      end
      effective = true
    end
    if item.recover_sp_rate == 0 and item.recover_sp == 0
      # Set damage to empty string
      @damage = ""
      # If SP recovery rate / recovery amount are 0, and parameter increase
      # value is ineffective.
      if item.parameter_type == 0 or item.parameter_points == 0
        # If state is unchanged # Set damage to "Miss"
        @damage = "Miss" unless @state_changed
      end
    end
    return effective
  end
end

class Window_Help
  def set_text(item_id, text=nil, align=0)
    if text.is_a?(String)
      text = text.gsub(/\\[Uu]/){$game_system.refill_items[item_id].sips.to_s}
    elsif text.is_a?(Integer)
      align = text
      text = item_id
    else
      text = item_id
    end
    if text != @text or align != @align
      self.contents.clear
      self.contents.font.color = normal_color
      self.contents.draw_text(4, 0, self.width - 40, 32, text, align)
      @text = text
      @align = align
      @actor = nil
    end
    self.visible = true
  end
end

class Window_Item
  def update_help
    a = @index % 2 == 0 ? 0 : 2
    obj = self.item
    id, desc = self.item ? [obj.id, obj.description] : ["", nil]
    @help_window.set_text(id, desc, a)
  end
end

class Scene_Item
  def update_item
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Menu.new(0)
      return
    elsif Input.trigger?(Input::C)
      @item = @item_window.item
      if !@item.is_a?(RPG::Item) or !$game_party.item_can_use?(@item.id)
        return $game_system.se_play($data_system.buzzer_se)
      end
      $game_system.se_play($data_system.decision_se)
      @infinite_potion = KItemRefill::IDS.include?(@item.id)
      if @item.scope >= 3 or @infinite_potion
        if @infinite_potion
          @item = $game_system.refill_items[@item.id]
          if @item.sips == 0
            $game_system.se_play($data_system.buzzer_se)
            @infinite_potion = nil
            return
          end
        end
        @item_window.active = false
        @target_window.x = (@item_window.index + 1) % 2 * 304
        @target_window.visible = true
        @target_window.active = true
        if @item.scope == 4 || @item.scope == 6
          @target_window.index = -1
        else
          @target_window.index = 0
        end
      else
        if @item.common_event_id > 0
          $game_temp.common_event_id = @item.common_event_id
          $game_system.se_play(@item.menu_se)
          if @item.consumable
            $game_party.lose_item(@item.id, 1)
            $game_system.map_interpreter.update
            @item_window.draw_item(@item_window.index)
          end
          $scene = Scene_Map.new
        end
      end
      return
    end
  end

  def update_target
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      @item_window.refresh unless $game_party.item_can_use?(@item.id)
      @infinite_potion = nil
      @item_window.active = true
      @target_window.visible = false
      @target_window.active = false
      return
    elsif Input.trigger?(Input::C)
      if $game_party.item_number(@item.id) == 0
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      if @target_window.index == -1
        used = false
        for i in $game_party.actors
          used |= i.item_effect(@item)
        end
      end
      if @target_window.index >= 0
        if @infinite_potion
          if @item.sips == 0
            $game_system.se_play($data_system.buzzer_se)
            return
          end
        end
        target = $game_party.actors[@target_window.index]
        used = target.item_effect(@item)
        @item_window.update_help if @infinite_potion and used
      end
      if used
        $game_system.se_play(@item.menu_se)
        if @item.consumable
          $game_party.lose_item(@item.id, 1)
          @item_window.draw_item(@item_window.index)
        end
        @target_window.refresh
        if $game_party.all_dead?
          $scene = Scene_Gameover.new
          return
        end
        if @item.common_event_id > 0
          $game_temp.common_event_id = @item.common_event_id
          $scene = Scene_Map.new
          return
        end
      end
      $game_system.se_play($data_system.buzzer_se) unless used
      return
    end
  end
end

Old Scripts

English Version

Code:

# * KItemRefill XP
#   Scripter : Kyonides-Arkanthes
#   v 1.1.2 - 2019-01-21

# * Script Calls *
#      KItemRefill.refill(ID)
#   Just refill the flask with whatever you want to.
#      KItemRefill.improve(ID)
#   Increase the number of sips. Hiccup! XD
#      KItemRefill.break(ID)
#   Break the darn flask because you are evil!
#      KItemRefill.broken?(ID)
#   Is the flask broken?
#      KItemRefill.replace(ID)
#   Fix the broken flask.
#      KItemRefill.new_mode(ID, MODO)
#   Heal depending on its mode: nil : Database setup, :hp & :mp are self evident
#   Many calls are optional, you are not forced to improve it or change its mode
#   so use your preferred calls instead.

#   Object Description :   Uses Left:\u
#   The label should appear on the opposite side of the hero selection window.

#   SETTINGS

#   Pick one or more Non Consumable items, add them to the IDS array.
#   ITEM_KIND defines how the item will be used (1 out of 3 options)
#   Without ID nor any value or ID => nil : Based on Database settings
#   :hp => HP, :sp => SP or MP
#   USAGE_LIMITS: set ID => Maximum Number of Uses for each ID.
#   USAGE_INCREASE: set ID => Increase Uses for each ID.
#   MAX_LEVEL: set ID => Maximum Level (0 or higher) for each ID.
#   Don't forget to add as many commas as deemed necessary as a separator for
#   all key value pairs: 36 => 8, 37 => 5
#   REFILL_AFTER_IMPROVEMENT: set if you want the flask to be refilled or not
#   whenever it gets improved.
#   FILL_EMPTY_ITEM: set if the item should be filled at the beginning.

module KItemRefill
  IDS = [33]
  # Kind of Usage : ID => Use (nil, :hp, :sp)
  ITEM_KIND = { 33 => :hp }
  # Initial Maximum Level : ID => Level
  USAGE_LIMITS = { 33 => 8 }
  # Maximum Number of Improvements : ID => Maximum Number of Improvements
  USAGE_INCREASE = { 33 => 3 }
  # Maximum Level (0 or higher) : ID => Maximum Level
  MAX_LEVEL = { 33 => 4 }
  # Refill item after improving it? Yeah : true, No : false
  REFILL_AFTER_IMPROVEMENT = true
  # Refill item after getting it from some NPC? Yeah : true, No : false
  FILL_EMPTY_ITEM = true
  def self.refill(id) $game_system.refill_items[id].refill end
  def self.improve(id) $game_system.refill_items[id].improve end
  def self.break(id) $game_system.refill_items[id].broken = true end
  def self.broken?(id) $game_system.refill_items[id].broken end
  def self.replace(id) $game_system.refill_items[id].broken = nil end
  def self.new_mode(id,mode) $game_system.refill_items[id].change_mode(mode) end
end

module ItemAddOns
  attr_accessor :sips, :broken
  attr_reader :sip_max, :level, :mode
  def level_max() KItemRefill::MAX_LEVEL[@id] end
  def change_mode(new_mode) @mode = new_mode end
  def fill
    @level = 0
    @mode = KItemRefill::ITEM_KIND[@id]
    refill_item
    @sips = KItemRefill::FILL_EMPTY_ITEM ? @sip_max : 0
  end

  def refill
    return @sips if @broken
    refill_item
    @sips = @sip_max
  end

  def improve
    return  @sips if @broken
    @level += 1 if @level < KItemRefill::MAX_LEVEL[@id]
    limit = KItemRefill::USAGE_LIMITS[@id]
    @sip_max = (limit + (@level * KItemRefill::USAGE_INCREASE[@id]))
    @sips = @sip_max if KItemRefill::REFILL_AFTER_IMPROVEMENT
  end
  private
  def refill_item
    limit = KItemRefill::USAGE_LIMITS[@id]
    @sip_max = (limit + (@level * KItemRefill::USAGE_INCREASE[@id]))
  end
end

class Game_System
  attr_reader :refill_items
  alias kyon_item_refill_gm_sys_init initialize
  def initialize
    @refill_items = {}
    KItemRefill::IDS.each do |id|
      @refill_items[id] = $data_items[id].dup
      @refill_items[id].extend(ItemAddOns)
      @refill_items[id].fill
    end
    kyon_item_refill_gm_sys_init
  end
end

class Game_Actor
  alias kitemrefill_gm_actor_item_effect item_effect
  def item_effect(item)
    refill_item = $game_system.refill_items[item.id]
    return false if refill_item and refill_item.sips == 0
    if !refill_item or (refill_item and !refill_item.mode)
      effective = kitemrefill_gm_actor_item_effect(item)
    else
      effective = refill_item_effect(refill_item)
    end
    refill_item.sips -= 1 if effective and refill_item and refill_item.sips > 0
    effective
  end

  def refill_item_effect(item)
    self.critical = false
    if ((item.scope == 3 or item.scope == 4) and self.hp == 0) or
       ((item.scope == 5 or item.scope == 6) and self.hp >= 1)
      return false
    end
    effective = false
    # Set effective flag if common ID is effective
    effective |= item.common_event_id > 0
    hit_result = (rand(100) < item.hit)
    unless hit_result
      self.damage = $game_temp.in_battle ? "Miss" : nil
      return false
    end
    # Set effective flag is skill is uncertain
    effective |= item.hit < 100
    if item.mode == :hp
      return effective = refill_hp_effect(item, effective)
    elsif item.mode == :sp
      return effective = refill_sp_effect(item, effective)
    end
  end

  def refill_hp_effect(item, effective)
    # Calculate amount of recovery
    recover_hp = maxhp * item.recover_hp_rate / 100 + item.recover_hp
    if recover_hp < 0
      recover_hp += self.pdef * item.pdef_f / 20
      recover_hp += self.mdef * item.mdef_f / 20
      recover_hp = [recover_hp, 0].min
    end
    # Element correction
    recover_hp *= elements_correct(item.element_set)
    recover_hp /= 100
    # Dispersion
    if item.variance > 0 and recover_hp.abs > 0
      amp = [recover_hp.abs * item.variance / 100, 1].max
      recover_hp += rand(amp+1) + rand(amp+1) - amp
    end
    # If recovery code is negative, guard correction
    recover_hp /= 2 if recover_hp < 0 and self.guarding?
    # Set damage value and reverse HP recovery amount
    self.damage = -recover_hp
    # HP recovery
    last_hp = self.hp
    self.hp += recover_hp
    effective |= self.hp != last_hp
    # State change
    @state_changed = false
    effective |= states_plus(item.plus_state_set)
    effective |= states_minus(item.minus_state_set)
    # If parameter value increase is effective
    if item.parameter_type > 0 and item.parameter_points != 0
      case item.parameter_type
      when 1  # Max HP
        @maxhp_plus += item.parameter_points
      when 2  # Max SP
        @maxsp_plus += item.parameter_points
      when 3  # Strength
        @str_plus += item.parameter_points
      when 4  # Dexterity
        @dex_plus += item.parameter_points
      when 5  # Agility
        @agi_plus += item.parameter_points
      when 6  # Intelligence
        @int_plus += item.parameter_points
      end
      effective = true
    end
    if item.recover_hp_rate == 0 and item.recover_hp == 0
      # Set damage to empty string
      self.damage = ""
      # If recovery amount is 0, and parameter increase value is ineffective.
      if item.parameter_type == 0 or item.parameter_points == 0
        # If state is unchanged Set damage to "Miss"
        self.damage = "Miss" unless @state_changed
      end
    end
    return effective
  end

  def refill_sp_effect(item, effective)
    # Calculate amount of recovery
    recover_sp = maxsp * item.recover_sp_rate / 100 + item.recover_sp
    recover_sp *= elements_correct(item.element_set)
    recover_sp /= 100
    # Dispersion
    if item.variance > 0 and recover_sp.abs > 0
      amp = [recover_sp.abs * item.variance / 100, 1].max
      recover_sp += rand(amp+1) + rand(amp+1) - amp
    end
    # SP recovery
    last_sp = self.sp
    self.sp += recover_sp
    effective |= self.sp != last_sp
    # State change
    @state_changed = false
    effective |= states_plus(item.plus_state_set)
    effective |= states_minus(item.minus_state_set)
    # If parameter value increase is effective
    if item.parameter_type > 0 and item.parameter_points != 0
      case item.parameter_type
      when 1  # Max HP
        @maxhp_plus += item.parameter_points
      when 2  # Max SP
        @maxsp_plus += item.parameter_points
      when 3  # Strength
        @str_plus += item.parameter_points
      when 4  # Dexterity
        @dex_plus += item.parameter_points
      when 5  # Agility
        @agi_plus += item.parameter_points
      when 6  # Intelligence
        @int_plus += item.parameter_points
      end
      effective = true
    end
    if item.recover_sp_rate == 0 and item.recover_sp == 0
      # Set damage to empty string
      self.damage = ""
      # If SP recovery rate / recovery amount are 0, and parameter increase
      # value is ineffective.
      if item.parameter_type == 0 or item.parameter_points == 0
        # If state is unchanged # Set damage to "Miss"
        self.damage = "Miss" unless @state_changed
      end
    end
    return effective
  end
end

class Window_Help
  def set_text(item_id, text=nil, align=0)
    if text.is_a?(String)
      text = text.gsub(/\\[Uu]/){$game_system.refill_items[item_id].sips.to_s}
    elsif text.is_a?(Integer)
      align = text
      text = item_id
    else
      text = item_id
    end
    if text != @text or align != @align
      self.contents.clear
      self.contents.font.color = normal_color
      self.contents.draw_text(4, 0, self.width - 40, 32, text, align)
      @text = text
      @align = align
      @actor = nil
    end
    self.visible = true
  end
end

class Window_Item
  def update_help
    a = @index % 2 == 0 ? 0 : 2
    obj = self.item
    id, desc = self.item ? [obj.id, obj.description] : ["", nil]
    @help_window.set_text(id, desc, a)
  end
end

class Scene_Item
  def update_item
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Menu.new(0)
      return
    elsif Input.trigger?(Input::C)
      @item = @item_window.item
      if !@item.is_a?(RPG::Item) or !$game_party.item_can_use?(@item.id)
        return $game_system.se_play($data_system.buzzer_se)
      end
      $game_system.se_play($data_system.decision_se)
      @infinite_potion = KItemRefill::IDS.include?(@item.id)
      if @item.scope >= 3 or @infinite_potion
        if @infinite_potion
          @item = $game_system.refill_items[@item.id]
          if @item.sips == 0
            $game_system.se_play($data_system.buzzer_se)
            @infinite_potion = nil
            return
          end
        end
        @item_window.active = false
        @target_window.x = (@item_window.index + 1) % 2 * 304
        @target_window.visible = true
        @target_window.active = true
        if @item.scope == 4 || @item.scope == 6
          @target_window.index = -1
        else
          @target_window.index = 0
        end
      else
        if @item.common_event_id > 0
          $game_temp.common_event_id = @item.common_event_id
          $game_system.se_play(@item.menu_se)
          if @item.consumable
            $game_party.lose_item(@item.id, 1)
            $game_system.map_interpreter.update
            @item_window.draw_item(@item_window.index)
          end
          $scene = Scene_Map.new
        end
      end
      return
    end
  end

  def update_target
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      @item_window.refresh unless $game_party.item_can_use?(@item.id)
      @infinite_potion = nil
      @item_window.active = true
      @target_window.visible = false
      @target_window.active = false
      return
    elsif Input.trigger?(Input::C)
      if $game_party.item_number(@item.id) == 0
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      if @target_window.index == -1
        used = false
        for i in $game_party.actors
          used |= i.item_effect(@item)
        end
      end
      if @target_window.index >= 0
        if @infinite_potion
          if @item.sips == 0
            $game_system.se_play($data_system.buzzer_se)
            return
          end
        end
        target = $game_party.actors[@target_window.index]
        used = target.item_effect(@item)
        @item_window.update_help if @infinite_potion and used
      end
      if used
        $game_system.se_play(@item.menu_se)
        if @item.consumable
          $game_party.lose_item(@item.id, 1)
          @item_window.draw_item(@item_window.index)
        end
        @target_window.refresh
        if $game_party.all_dead?
          $scene = Scene_Gameover.new
          return
        end
        if @item.common_event_id > 0
          $game_temp.common_event_id = @item.common_event_id
          $scene = Scene_Map.new
          return
        end
      end
      $game_system.se_play($data_system.buzzer_se) unless used
      return
    end
  end
end

Spanish Version

Code:

# * KItemRefill XP
#   Scripter : Kyonides-Arkanthes
#   v 1.1.2 - 2019-01-21

#   Llamados a Script
#      KItemRefill.refill(ID)
#   Esto les permite rellenar el objeto, sea una poción, aceite, perfume, etc.
#      KItemRefill.improve(ID)
#   Esto les permite mejorar el objeto en cantidad de usos antes de recargarlo.
#      KItemRefill.break(ID)
#   Esto quebrará el frasco con ese ID.
#      KItemRefill.broken?(ID)
#   Esto verifica si ese frasco está roto o no lo está.
#      KItemRefill.replace(ID)
#   Esto reemplaza o repara el frasco roto.
#      KItemRefill.new_mode(ID, MODO)
#   Esto curará según el modo: nil : Lo que diga Base de Datos, :hp PV, :mp PM
#   El segundo y el tercer llamado son opcionales, si no quieren mejorarlo o no
#   quieren cambiar lo que cura o reestablece, no los usen.

#   En la descripción del objeto seleccionado :   Usos Restantes:\u
#   Esa leyenda se correrá al lado opuesto de la ventana de selección de héroes.

#   CONFIGURACIÓN

#   Elijan uno o más objetos No consumibles, agréguenlos al array IDS.
#   En ITEM_KIND definen qué uso tendrá el objeto (1 de 3 opciones)
#   Sin ID ni valor o ID => nil : lo que diga la Base de Datos (PV o PM o ambos)
#   :hp será para PV,  :sp será para PM
#   En USAGE_LIMITS colocan el ID => Máximo de Usos para cada ID.
#   En USAGE_INCREASE colocan el ID => Incremento de Usos para cada ID.
#   En MAX_LEVEL colocan el ID => Nivel Máximo (empieza en cero) para cada ID.
#   Al final de cada valor excepto en el último deben colocar una coma como el
#   separador de los pares de ID y sus valores.: 36 => 8, 37 => 5
#   En REFILL_AFTER_IMPROVEMENT definen si quieren o no quieren rellenar el
#   Objeto (¿la poción?) al Mejorarlo.
#   En FILL_EMPTY_ITEM definen si el objeto debe ser entregado lleno o vacío.

module KItemRefill
  IDS = [33]
  # Tipo de Uso : ID => Uso (nil, :hp, :sp) o sin la información para PV Y PM
  ITEM_KIND = { 33 => :hp }
  # Máximo Inicial del Objeto : ID => Máximo Inicial
  USAGE_LIMITS = { 33 => 8 }
  # Máximo Número de Mejoras para el Objeto : ID => Máximo de Mejoras
  USAGE_INCREASE = { 33 => 3 }
  # Nivel Máximo del Objeto Contando desde Cero : ID => Máximo
  MAX_LEVEL = { 33 => 4 }
  # ¿Debe rellenarse el Objeto al Mejorarlo? (Dejarlo al nuevo Máximo Nivel)
  REFILL_AFTER_IMPROVEMENT = true
  # ¿Se llenará el Objeto al obtenerlo de un NPC? Sí : true, No : false
  FILL_EMPTY_ITEM = true
  def self.refill(id) $game_system.refill_items[id].refill end
  def self.improve(id) $game_system.refill_items[id].improve end
  def self.break(id) $game_system.refill_items[id].broken = true end
  def self.broken?(id) $game_system.refill_items[id].broken end
  def self.replace(id) $game_system.refill_items[id].broken = nil end
  def self.new_mode(id,mode) $game_system.refill_items[id].change_mode(mode) end
end

module ItemAddOns
  attr_accessor :sips, :broken
  attr_reader :sip_max, :level, :mode
  def level_max() KItemRefill::MAX_LEVEL[@id] end
  def change_mode(new_mode) @mode = new_mode end
  def fill
    @level = 0
    @mode = KItemRefill::ITEM_KIND[@id]
    refill_item
    @sips = KItemRefill::FILL_EMPTY_ITEM ? @sip_max : 0
  end

  def refill
    return @sips if @broken
    refill_item
    @sips = @sip_max
  end

  def improve
    return  @sips if @broken
    @level += 1 if @level < KItemRefill::MAX_LEVEL[@id]
    limit = KItemRefill::USAGE_LIMITS[@id]
    @sip_max = (limit + (@level * KItemRefill::USAGE_INCREASE[@id]))
    @sips = @sip_max if KItemRefill::REFILL_AFTER_IMPROVEMENT
  end
  private
  def refill_item
    limit = KItemRefill::USAGE_LIMITS[@id]
    @sip_max = (limit + (@level * KItemRefill::USAGE_INCREASE[@id]))
  end
end

class Game_System
  attr_reader :refill_items
  alias kyon_item_refill_gm_sys_init initialize
  def initialize
    @refill_items = {}
    KItemRefill::IDS.each do |id|
      @refill_items[id] = $data_items[id].dup
      @refill_items[id].extend(ItemAddOns)
      @refill_items[id].fill
    end
    kyon_item_refill_gm_sys_init
  end
end

class Game_Actor
  alias kitemrefill_gm_actor_item_effect item_effect
  def item_effect(item)
    refill_item = $game_system.refill_items[item.id]
    return false if refill_item and refill_item.sips == 0
    if !refill_item or (refill_item and !refill_item.mode)
      effective = kitemrefill_gm_actor_item_effect(item)
    else
      effective = refill_item_effect(refill_item)
    end
    refill_item.sips -= 1 if effective and refill_item and refill_item.sips > 0
    effective
  end

  def refill_item_effect(item)
    self.critical = false
    if ((item.scope == 3 or item.scope == 4) and self.hp == 0) or
       ((item.scope == 5 or item.scope == 6) and self.hp >= 1)
      return false
    end
    effective = false
    # Set effective flag if common ID is effective
    effective |= item.common_event_id > 0
    hit_result = (rand(100) < item.hit)
    unless hit_result
      self.damage = $game_temp.in_battle ? "Miss" : nil
      return false
    end
    # Set effective flag is skill is uncertain
    effective |= item.hit < 100
    if item.mode == :hp
      return effective = refill_hp_effect(item, effective)
    elsif item.mode == :sp
      return effective = refill_sp_effect(item, effective)
    end
  end

  def refill_hp_effect(item, effective)
    # Calculate amount of recovery
    recover_hp = maxhp * item.recover_hp_rate / 100 + item.recover_hp
    if recover_hp < 0
      recover_hp += self.pdef * item.pdef_f / 20
      recover_hp += self.mdef * item.mdef_f / 20
      recover_hp = [recover_hp, 0].min
    end
    # Element correction
    recover_hp *= elements_correct(item.element_set)
    recover_hp /= 100
    # Dispersion
    if item.variance > 0 and recover_hp.abs > 0
      amp = [recover_hp.abs * item.variance / 100, 1].max
      recover_hp += rand(amp+1) + rand(amp+1) - amp
    end
    # If recovery code is negative, guard correction
    recover_hp /= 2 if recover_hp < 0 and self.guarding?
    # Set damage value and reverse HP recovery amount
    self.damage = -recover_hp
    # HP recovery
    last_hp = self.hp
    self.hp += recover_hp
    effective |= self.hp != last_hp
    # State change
    @state_changed = false
    effective |= states_plus(item.plus_state_set)
    effective |= states_minus(item.minus_state_set)
    # If parameter value increase is effective
    if item.parameter_type > 0 and item.parameter_points != 0
      case item.parameter_type
      when 1  # Max HP
        @maxhp_plus += item.parameter_points
      when 2  # Max SP
        @maxsp_plus += item.parameter_points
      when 3  # Strength
        @str_plus += item.parameter_points
      when 4  # Dexterity
        @dex_plus += item.parameter_points
      when 5  # Agility
        @agi_plus += item.parameter_points
      when 6  # Intelligence
        @int_plus += item.parameter_points
      end
      effective = true
    end
    if item.recover_hp_rate == 0 and item.recover_hp == 0
      # Set damage to empty string
      self.damage = ""
      # If recovery amount is 0, and parameter increase value is ineffective.
      if item.parameter_type == 0 or item.parameter_points == 0
        # If state is unchanged Set damage to "Miss"
        self.damage = "Miss" unless @state_changed
      end
    end
    return effective
  end

  def refill_sp_effect(item, effective)
    # Calculate amount of recovery
    recover_sp = maxsp * item.recover_sp_rate / 100 + item.recover_sp
    recover_sp *= elements_correct(item.element_set)
    recover_sp /= 100
    # Dispersion
    if item.variance > 0 and recover_sp.abs > 0
      amp = [recover_sp.abs * item.variance / 100, 1].max
      recover_sp += rand(amp+1) + rand(amp+1) - amp
    end
    # SP recovery
    last_sp = self.sp
    self.sp += recover_sp
    effective |= self.sp != last_sp
    # State change
    @state_changed = false
    effective |= states_plus(item.plus_state_set)
    effective |= states_minus(item.minus_state_set)
    # If parameter value increase is effective
    if item.parameter_type > 0 and item.parameter_points != 0
      case item.parameter_type
      when 1  # Max HP
        @maxhp_plus += item.parameter_points
      when 2  # Max SP
        @maxsp_plus += item.parameter_points
      when 3  # Strength
        @str_plus += item.parameter_points
      when 4  # Dexterity
        @dex_plus += item.parameter_points
      when 5  # Agility
        @agi_plus += item.parameter_points
      when 6  # Intelligence
        @int_plus += item.parameter_points
      end
      effective = true
    end
    if item.recover_sp_rate == 0 and item.recover_sp == 0
      # Set damage to empty string
      self.damage = ""
      # If SP recovery rate / recovery amount are 0, and parameter increase
      # value is ineffective.
      if item.parameter_type == 0 or item.parameter_points == 0
        # If state is unchanged # Set damage to "Miss"
        self.damage = "Miss" unless @state_changed
      end
    end
    return effective
  end
end

class Window_Help
  def set_text(item_id, text=nil, align=0)
    if text.is_a?(String)
      text = text.gsub(/\\[Uu]/){$game_system.refill_items[item_id].sips.to_s}
    elsif text.is_a?(Integer)
      align = text
      text = item_id
    else
      text = item_id
    end
    if text != @text or align != @align
      self.contents.clear
      self.contents.font.color = normal_color
      self.contents.draw_text(4, 0, self.width - 40, 32, text, align)
      @text = text
      @align = align
      @actor = nil
    end
    self.visible = true
  end
end

class Window_Item
  def update_help
    a = @index % 2 == 0 ? 0 : 2
    obj = self.item
    id, desc = self.item ? [obj.id, obj.description] : ["", nil]
    @help_window.set_text(id, desc, a)
  end
end

class Scene_Item
  def update_item
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Menu.new(0)
      return
    elsif Input.trigger?(Input::C)
      @item = @item_window.item
      if !@item.is_a?(RPG::Item) or !$game_party.item_can_use?(@item.id)
        return $game_system.se_play($data_system.buzzer_se)
      end
      $game_system.se_play($data_system.decision_se)
      @infinite_potion = KItemRefill::IDS.include?(@item.id)
      if @item.scope >= 3 or @infinite_potion
        if @infinite_potion
          @item = $game_system.refill_items[@item.id]
          if @item.sips == 0
            $game_system.se_play($data_system.buzzer_se)
            @infinite_potion = nil
            return
          end
        end
        @item_window.active = false
        @target_window.x = (@item_window.index + 1) % 2 * 304
        @target_window.visible = true
        @target_window.active = true
        if @item.scope == 4 || @item.scope == 6
          @target_window.index = -1
        else
          @target_window.index = 0
        end
      else
        if @item.common_event_id > 0
          $game_temp.common_event_id = @item.common_event_id
          $game_system.se_play(@item.menu_se)
          if @item.consumable
            $game_party.lose_item(@item.id, 1)
            $game_system.map_interpreter.update
            @item_window.draw_item(@item_window.index)
          end
          $scene = Scene_Map.new
        end
      end
      return
    end
  end

  def update_target
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      @item_window.refresh unless $game_party.item_can_use?(@item.id)
      @infinite_potion = nil
      @item_window.active = true
      @target_window.visible = false
      @target_window.active = false
      return
    elsif Input.trigger?(Input::C)
      if $game_party.item_number(@item.id) == 0
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      if @target_window.index == -1
        used = false
        for i in $game_party.actors
          used |= i.item_effect(@item)
        end
      end
      if @target_window.index >= 0
        if @infinite_potion
          if @item.sips == 0
            $game_system.se_play($data_system.buzzer_se)
            return
          end
        end
        target = $game_party.actors[@target_window.index]
        used = target.item_effect(@item)
        @item_window.update_help if @infinite_potion and used
      end
      if used
        $game_system.se_play(@item.menu_se)
        if @item.consumable
          $game_party.lose_item(@item.id, 1)
          @item_window.draw_item(@item_window.index)
        end
        @target_window.refresh
        if $game_party.all_dead?
          $scene = Scene_Gameover.new
          return
        end
        if @item.common_event_id > 0
          $game_temp.common_event_id = @item.common_event_id
          $scene = Scene_Map.new
          return
        end
      end
      $game_system.se_play($data_system.buzzer_se) unless used
      return
    end
  end
end

Default Battle System Add-On

Code:

# * KItemRefill Standard Battle System AddOn
#   Scripter : Kyonides-Arkanthes

class Scene_Battle
  def update_phase3_item_select
    @item_window.visible = true
    @item_window.update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      end_item_select
      return
    end
    if Input.trigger?(Input::C)
      @item = @item_window.item
      unless $game_party.item_can_use?(@item.id)
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      item = $game_system.refill_items[@item.id]
      if item and item.sips == 0
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      $game_system.se_play($data_system.decision_se)
      @active_battler.current_action.item_id = @item.id
      @item_window.visible = false
      # If effect scope is single enemy
      if @item.scope == 1
        start_enemy_select
      # If effect scope is single ally
      elsif @item.scope == 3 or @item.scope == 5
        start_actor_select
      # If effect scope is not single
      else
        end_item_select
        phase3_next_actor
      end
      return
    end
  end

  def make_item_action_result
    @item = $data_items[@active_battler.current_action.item_id]
    # If unable to use due to items running out
    unless $game_party.item_can_use?(@item.id)
      # Shift to step 1
      @phase4_step = 1
      return
    end
    # If consumable decrease used item by 1
    $game_party.lose_item(@item.id, 1) if @item.consumable
    @help_window.set_text(@item.name, 1)
    # Set animation ID
    @animation1_id = @item.animation1_id
    @animation2_id = @item.animation2_id
    # Set common event ID
    @common_event_id = @item.common_event_id
    # Decide on target
    index = @active_battler.current_action.target_index
    target = $game_party.smooth_target_actor(index)
    set_target_battlers(@item.scope)
    refill_item = $game_system.refill_items[@item.id]
    # Apply item effect
    unless refill_item
      @target_battlers.each {|target| effective = target.item_effect(@item) }
    else
      @target_battlers.each {|target| effective = target.item_effect(@item)
      @animation2_id = 0 unless effective }
    end
  end
end

DOWNLOAD DEMO

Terms & Conditions

Free for use in ANY game.
Due credit is mandatory.
That's it!

[kyonides]

Special Update

After so many but many years, I have revisited my script once again to add an old feature back: the special potion will be deleted if the number of uses left reaches 0.

Just add the item ID to the TOTAL_LOSS_IDS Constant and that's it! 

I also updated the terms of use here.