Enemy kill counter - VX

$imported = {} if $imported == nil
$imported["H87_EKC"] = true
#===============================================================================
# ** INCREMENTA VARIABILE CON UCCISIONE DEL NEMICO **
# Versione: 1.0 (15/04/2013)
# Difficoltà utente: ★
#===============================================================================
# DESCRIZIONE:
# Mettiamo che vuoi fare una quest come "Uccidi 10 Slime!" Come si fa a tenere
# il conto degli Slime uccisi? Con questo script, che li memorizza in una
# variabile!
#===============================================================================
# UTILIZZO:
# Installare lo script sotto Materials e prima del Main.
# Inserire, nel riquadro delle note del nemico, la seguente etichetta:
# <kill var: x>, dove x è la variabile (ID) che verrà incrementata quando quel
# mostro verrà ucciso. Semplice!
#===============================================================================
# COMPATIBILITA':
# Compatibile con quasi tutti gli script.
#===============================================================================


#===============================================================================
# Attenzione: Non modificare ciò che c'è oltre, a meno che tu non sappia ciò che
# fai!
#===============================================================================
module H87_EKC
  KillVariable = /<(?:KILL VAR|kill var):[ ]*(\d+)>/i
end

#===============================================================================
# ** Data Nemico
#===============================================================================
class RPG::Enemy
  attr_reader :killvariable

  #-----------------------------------------------------------------------------
  # *Carica le info sulla variabile
  #-----------------------------------------------------------------------------
  def carica_cache_personale_ekc
    return if @cache_caricata_ekc
    @cache_caricata_ekc = true
    @killvariable = 0
    self.note.split(/[\r\n]+/).each { |riga|
      case riga
      #---
      when H87_EKC::KillVariable
        @killvariable = $1.to_i
      end
    }
  end
end

#===============================================================================
# ** Scene_Title
#===============================================================================
class Scene_Title < Scene_Base

  #-----------------------------------------------------------------------------
  # *Alias metodo load_bt_database
  #-----------------------------------------------------------------------------
  alias carica_db_ekc load_bt_database unless $@
  def load_bt_database
    carica_db_ekc
    carica_enemy_ekc
  end

  #-----------------------------------------------------------------------------
  # *Alias metodo load_database
  #-----------------------------------------------------------------------------
  alias carica_db_ekc load_database unless $@
  def load_database
    carica_db_ekc
    carica_enemy_ekc
  end

  #-----------------------------------------------------------------------------
  # Inizializza nel caricamento
  #-----------------------------------------------------------------------------
  def carica_enemy_ekc
    for enemy in $data_enemies
      next if enemy == nil
      enemy.carica_cache_personale_ekc
    end
  end

end # scene_title

#===============================================================================
# ** Game_Enemy
#===============================================================================
class Game_Enemy < Game_Battler

  #-----------------------------------------------------------------------------
  # *inizializzazione
  #-----------------------------------------------------------------------------
  alias h87_ekc_initialize initialize unless $@
  def initialize(index, enemy_id)
    h87_ekc_initialize(index, enemy_id)
    @killed_variable = enemy.killvariable
  end

  #-----------------------------------------------------------------------------
  # *alias metodo di collasso (morte)
  #-----------------------------------------------------------------------------
  alias h87_ekc_collapse perform_collapse unless $@
  def perform_collapse
    increment_killed_var if $game_temp.in_battle and dead?
    h87_ekc_collapse
    end

  #-----------------------------------------------------------------------------
  # *incremento variabile se permesso
  #-----------------------------------------------------------------------------
  def increment_killed_var
    $game_variables[@killed_variable] += 1 if @killed_variable != 0
  end
end #game_enemy