party wipe v 1.1

=begin =========================================================================
Dekita's                                                                   v1.1
                           ★ Pokémon Party Wipe™ ★

================================================================================
 Script Information:
====================
 This script replicates the party wipe feature from pokemon, e.g party wipe's
 and transfers to last used pokemon center (set by script calls)
 and you lose a fraction of your current gold.

================================================================================
 ★☆★☆★☆★☆★☆★☆★☆★ TERMS AND CONDITIONS: ☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================================
 1. You must give credit to "Dekita"
 2. You are NOT allowed to repost this script.(or modified versions)
 3. You are NOT allowed to convert this script.(into other game engines e.g RGSS2)
 4. You are NOT allowed to use this script for Commercial games.
 5. ENJOY!

"FINE PRINT"
By using this script you hereby agree to the above terms and conditions,
 if any violation of the above terms occurs "legal action" may be taken.
Not understanding the above terms and conditions does NOT mean that
 they do not apply to you.
If you wish to discuss the terms and conditions in further detail you can
contact me at http://dekitarpg.wordpress.com/ or DekitaRPG@gmail.com

================================================================================
 History:
=========
 D /M /Y
 13/o1/2o13 - Compatability update, (RealTime Effects)
 27/10/2o12 - started and finished,

================================================================================
 Credit and Thanks to :
=======================
 Hyde - for sparking my desire to write this ^_^

================================================================================
 Known Bugs:
============
 N/A

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 If a new bug is found please contact me at
 http://dekitarpg.wordpress.com/

================================================================================
 INSTRUCTIONS:
==============
 Place this script UNDER "▼ Materials" and ABOVE "▼ Main" in your script editor.

================================================================================
 Script Calls:
==============
 change_revival_point(map_id, x, y, direction)

 map_id = the id of the map to transfer to.
 x = the x location of the map
 y = the y location of the map
 direction = the direction you are facing after transfer (2,4,6,8)

=end #==========================================================================#

module Dekita__Pokémon_Party_wipe

    # Initial Revival Point Map id.
    Map_id = 2
    # Initial Revival Point Map x.
    Map_x = 12
    # Initial Revival Point Map y.
    Map_y = 5
    # Initial Revival Point Character Direction.( 2 / 4 / 6 / 8 )
    Map_Dir = 2

    # The loss of gold when the party fails, please note that the party's
    # TOTAL gold will be divided by this amount, then the party will
    # lose that value of gold...
    Gold_Loss = 3

    # Note, fade time will happen 4 times in a row, scene fadein/out and
    # graphics fadein/out
    Fade_Time = 30

                            #####################
                            # CUSTOMISATION END #
end                         #####################
#☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★#
#                                                                               #
#                       http://dekitarpg.wordpress.com/                         #
#                                                                               #
#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆#
#===============================================================================#
# ARE YOU MODIFYING BEYOND THIS POINT? \.\.                                     #
# YES?\.\.                                                                      #
# OMG, REALLY? \|                                                               #
# WELL SLAP MY FACE AND CALL ME A DRAGONITE.\..\..                              #
# I REALLY DIDN'T THINK YOU HAD IT IN YOU.\..\..                                #
#===============================================================================#

$imported = {} if $imported.nil?
$imported[:Dekita_Pokémon_Party_Wipe] = true

#==============================================================================
class Game_Map
#==============================================================================

  attr_accessor :poke_rev_co_ords

  alias pokewipe_initiGM initialize
  def initialize
    pokewipe_initiGM
    reviv_mid = Dekita__Pokémon_Party_wipe::Map_id
    reviv_x = Dekita__Pokémon_Party_wipe::Map_x
    reviv_y = Dekita__Pokémon_Party_wipe::Map_y
    reviv_dir = Dekita__Pokémon_Party_wipe::Map_Dir
    @poke_rev_co_ords = [reviv_mid, reviv_x, reviv_y, reviv_dir]
  end

end

#==============================================================================
class Scene_Gameover < Scene_Base
#==============================================================================

  alias pokefaint_startfogo start
  def start
    pokefaint_startfogo
    do_pokefaint_stylee
  end

  def do_pokefaint_stylee
    Graphics.fadeout(Dekita__Pokémon_Party_wipe::Fade_Time)
    poke_pty_wipe
    SceneManager.call(Scene_Map)
    Graphics.fadein(Dekita__Pokémon_Party_wipe::Fade_Time)
  end

  def update
    super
  end

  def create_background
  end

  def dispose_background
  end

  def fadeout_speed
    return Dekita__Pokémon_Party_wipe::Fade_Time
  end

  def fadein_speed
    return Dekita__Pokémon_Party_wipe::Fade_Time
  end

  def poke_pty_wipe
    poke_revival_point
    poke_wipe_GL
    poke_rev_heal
  end

  def poke_revival_point
    $game_map.screen.start_fadeout(Dekita__Pokémon_Party_wipe::Fade_Time)
    map_i = $game_map.poke_rev_co_ords[0]
    map_x = $game_map.poke_rev_co_ords[1]
    map_y = $game_map.poke_rev_co_ords[2]
    map_d = $game_map.poke_rev_co_ords[3]
    $game_player.reserve_transfer(map_i, map_x, map_y, map_d)
    $game_player.perform_transfer
    if $imported[:Dekita_Pokémon_RealTime_Clock]
      if $mog_rgss3_weather_ex == true ; $game_system.weather.clear ; end
      $game_system.screen_tint = $game_system.update_time_light
      $game_system.refresh_the_map_for_tint = true
      Time_Tint.updt
    end
    $game_map.screen.start_fadein(Dekita__Pokémon_Party_wipe::Fade_Time)
  end

  def poke_wipe_GL
    if $imported[:Dekita_Game_Settings]
      case $game_settings.difficulty_lv
      when 0
        g_c = ($game_party.gold/Dekita_Game_Settings::Gold_Loss_On_Wipe[0]).to_i
      when 1
        g_c = ($game_party.gold/Dekita_Game_Settings::Gold_Loss_On_Wipe[1]).to_i
      when 2
        g_c = ($game_party.gold/Dekita_Game_Settings::Gold_Loss_On_Wipe[2]).to_i
      end
    else
      g_c = ($game_party.gold/Dekita__Pokémon_Party_wipe::Gold_Loss).to_i
    end
    $game_party.lose_gold(g_c)
  end

  def poke_rev_heal
    $game_party.members.size.times {|i| $game_party.members[i].recover_all }
  end

end # Scene_Gameover < Scene_Base

#==============================================================================
class Game_Interpreter
#==============================================================================

  def change_revival_point(map_id, x, y, direction)
    $game_map.poke_rev_co_ords = [map_id, x, y, direction]
  end

end # Game_Interpreter

#===============================================================================#
#                               - SCRIPT END -                                  #
#===============================================================================#
#                      http://dekitarpg.wordpress.com/                          #
#===============================================================================#