Cambio de personaje

#Script de cambio de personaje mediante pulsar una tecla
#Por Caeles

###############################Settings###########################

#Nombres de los personajes. Te permite llamar pbSwitchChara("nombre")
nombre="nombre"
nombre1="nombre1"
nombre2="nombre2"
nombre3="nombre3"

#Si los personajes comparten dinero (true) o no (false)
compartir_dinero = false

#Número de personajes disponibles desde el inicio. Empieza desde cero.
#Para desbloquear el resto se deberá sumar uno desde un evento.
$game_variables[100] = 3
$game_switches[100] = true #condición general para estar activado
##################################################################

if personaje=nil
  personaje=0
end

#Cambio de equipo, bolsa y dinero
class Scene_Map
  def update
   if Input.trigger?(Input::L) && $game_switches[100]
      storechara(personaje)
      personaje+1
      if personaje>$game_variables[100]
        personaje=0
      end
      pbSwitchChara(personaje)
    end#if input
  update
 end #def
end #class

 def storechara(personaje)
    case personaje
    when 0,nombre;
     equipo0 = $Trainer.party.clone
     bolsa0 = $PokemonBag.clone
     compartir_dinero ? dinero0 = $Trainer.money : nil
    when 1,nombre1;
     equipo1 = $Trainer.party.clone
     bolsa1 = $PokemonBag.clone
     compartir_dinero ? dinero1 = $Trainer.money : nil
    when 2,nombre2;
     equipo2 = $Trainer.party.clone
     bolsa2 = $PokemonBag.clone
     compartir_dinero ? dinero2 = $Trainer.money : nil
    when 3,nombre3;
     equipo3 = $Trainer.party.clone
     bolsa3 = $PokemonBag.clone
     compartir_dinero ? dinero3 = $Trainer.money : nil
    end
  end

  def pbSwitchChara(personaje)
    case personaje
    when 0,nombre;
     $Trainer.party = equipo0
     $PokemonBag = bolsa0
     compartir_dinero ? $Trainer.money = dinero0  : nil
     $game_player.setDefaultCharName("trchar000",$game_player.fullPattern)
    when 1,nombre1;
     $Trainer.party = equipo1
     $PokemonBag = bolsa1
     compartir_dinero ? $Trainer.money = dinero1  : nil
     $game_player.setDefaultCharName("trchar001",$game_player.fullPattern)
    when 2,nombre2;
     $Trainer.party = equipo2
     $PokemonBag = bolsa2
     compartir_dinero ? $Trainer.money = dinero2  : nil
     $game_player.setDefaultCharName("trchar002",$game_player.fullPattern)
    when 3,nombre3;
     $Trainer.party = equipo3
     $PokemonBag = bolsa3
     compartir_dinero ? $Trainer.money = dinero3  : nil
     $game_player.setDefaultCharName("trchar003",$game_player.fullPattern)
    end
  end