Battle Size Options

#In UI_Options (PScreen_Options in earlier versions), right at the top-
class PokemonSystem
  attr_accessor :textspeed
  attr_accessor :battlescene
  attr_accessor :battlestyle
  attr_accessor :frame
  attr_writer   :textskin
  attr_accessor :font
  attr_accessor :screensize
  attr_writer   :border
  attr_writer   :language
  attr_writer   :runstyle
  attr_writer   :bgmvolume
  attr_writer   :sevolume
  attr_writer   :textinput
#Add:
  attr_accessor :battlesize


#Below that:
  def initialize
    @textspeed   = 1     # Text speed (0=slow, 1=normal, 2=fast)
    @battlescene = 0     # Battle effects (animations) (0=on, 1=off)
    @battlestyle = 0     # Battle style (0=switch, 1=set)
    @frame       = 0     # Default window frame (see also $TextFrames)
    @textskin    = 0     # Speech frame
    @font        = 0     # Font (see also $VersionStyles)
    @screensize  = (SCREEN_ZOOM.floor).to_i   # 0=half size, 1=full size, 2=double size
    @border      = 0     # Screen border (0=off, 1=on)
    @language    = 0     # Language (see also LANGUAGES in script PokemonSystem)
    @runstyle    = 0     # Run key functionality (0=hold to run, 1=toggle auto-run)
    @bgmvolume   = 100   # Volume of background music and ME
    @sevolume    = 100   # Volume of sound effects
    @textinput   = 0     # Text input mode (0=cursor, 1=keyboard)
#Add:
    @battlesize  = 0     # Battle size (0 = single, 1 = double)


#Further down, below
       EnumOption.new(_INTL("Battle Effects"),[_INTL("On"),_INTL("Off")],
         proc { $PokemonSystem.battlescene },
         proc { |value| $PokemonSystem.battlescene = value }
       ),
#Add:
       EnumOption.new(_INTL("Battle Size"),[_INTL("Single"),_INTL("Double"),_INTL("Triple")],
         proc { $PokemonSystem.battlesize },
         proc { |value| $PokemonSystem.battlesize = value }
       ),


#This last part can technically be put in any section, but I think it's best to put in PField_EncounterModifiers, with similar scripts-
Events.onTrainerPartyLoad += proc { |_sender, e|
  if $PokemonTemp.battleRules["size"] == nil && e[0]
  case $PokemonSystem.battlesize
    when 1
        setBattleRule("double") if pbCanDoubleBattle?
    when 2
        setBattleRule("triple") if pbCanTripleBattle?
        setBattleRule("double") if !pbCanTripleBattle? && pbCanDoubleBattle?
    end
  end
}