ppw

=begin =========================================================================
Dekita's                                                                   v1.0
                           ★ 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
 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 = 1
    #Initial Revival Point Map x.
    Map_x = 9
    #Initial Revival Point Map y.
    Map_y = 2
    #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 devided by this amount...
    Gold_Loss = 3

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

    # CUSTOMISATION OPTIONS END

end # Dekita__Pokémon_Party_wipe

$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
    poke_pty_wipe
    Graphics.fadeout(Dekita__Pokémon_Party_wipe::Fade_Time)
    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
    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_map.setup(map_i)
#    $game_map.autoplay # < - needed ?
    $game_player.moveto(map_x, map_y)
    $game_player.set_direction(map_d)
  end

  def poke_wipe_GL
    gold_count = ($game_party.gold / Dekita__Pokémon_Party_wipe::Gold_Loss).to_i
    $game_party.lose_gold(gold_count)
  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/                          #
#===============================================================================#