Theo - On Encounter Lose Exception

# =============================================================================
# TheoAllen - On Encounter Lose Exception
# Version : 1.0
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
($imported ||= {})[:Theo_EncounterLoseEx] = true
# =============================================================================
# Change Logs:
# -----------------------------------------------------------------------------
# 2013.11.04 - Finished script
# =============================================================================
=begin

  Perkenalan :
  Kalo dalam event battle processing ada "continue when lose", script ini juga
  ngebikin kalo kalah dalam random encounter bisa tetep lanjut dengan manggil
  common event

  Cara penggunaan :
  Pasang script ini dibawah material namun diatas main

  Gunakan script call seperti ini untuk mengganti common event id yang akan
  dipanggil jika kalah dalam encounter
  - $game_system.lose_common_event = 1 <-- angka = ID common event

  Secara default ID angkanya adalah 0

  Terms of use :
  Credit gw, TheoAllen. Kalo semisal u bisa ngedit2 script gw trus jadi lebih
  keren, terserah. Ane bebasin. Asal ngga ngeklaim aja. Kalo semisal mau
  dipake buat komersil, jangan lupa, gw dibagi gratisannya.

=end
# =============================================================================
# Tidak ada konfigurasi
# =============================================================================
class Game_System
  attr_accessor :lose_common_event

  alias theo_lose_encounter_init initialize
  def initialize
    theo_lose_encounter_init
    @lose_common_event = 0  # <-- Common Event ID
  end

end

class << BattleManager

  alias theo_lose_encounter_init_members init_members
  def init_member
    theo_lose_encounter_init_members
    @common_event = 0
    @encounter = false
  end

  alias theo_on_lose_encounter on_encounter
  def on_encounter
    theo_on_lose_encounter
    @common_event = $game_system.lose_common_event
    @encounter = true
    @can_lose = @common_event > 0
  end

  alias theo_lose_encounter_revive revive_battle_members
  def revive_battle_members
    theo_lose_encounter_revive
    if @encounter
      $game_temp.reserve_common_event(@common_event)
    end
  end

end