Penalty Escape

=begin
#===============================================================================
 Title: Escape_Penalty
 Author: Sprawl
 Date: August 15, 2013
--------------------------------------------------------------------------------
 ** Change log
 August 15, 2013
   - Initial Release
------------------------------------------------------------------------------
 ** Description

 This script allows you to take a full image of any of your game's maps
 and export. An image of the map is referred to as a "mapshot" (as opposed to
 screenshot).

------------------------------------------------------------------------------
 ** Usage

Cut and Paste in the Materials Section. If you have any other scripts that
affect escape penalties, things may not work.
--------------------------------------------------------------------------------
 ** Licensing

Feel free to use for free or commercial use, but give credit to "zSprawl".

--------------------------------------------------------------------------------
 ** Credits

  Sprawl
    -Wrote the Script.
  Merdouille44
    -Replied to my post on the forums to get me motitivated to fix this.
================================================================================
=end

$imported = {} if $imported.nil?
$imported["Sprawl_Escape"] = true

module BattleManager
  def self.process_abort
    replay_bgm_and_bgs
    SceneManager.return
    battle_end(1)

    $game_party.all_members.each do |actor|
      @exp_loss = -1 * actor.exp * 0.005;
      actor.gain_exp(@exp_loss)
    end

    @xp_loss_str = @exp_loss * -1

    text = "You lose " + @xp_loss_str.to_i.to_s + " experience points for fleeing."
    $game_message.add('\.' + text)
    wait_for_message
    return true
  end
end