Yet more script rearranging

Data/Scripts/015_Trainers and player/001_Trainer.rb

@@ -0,0 +1,186 @@
+#===============================================================================
+# Basic trainer class (use a child class rather than this one)
+#===============================================================================
+class Trainer
+  attr_accessor :trainer_type
+  attr_accessor :name
+  attr_accessor :id
+  attr_accessor :language
+  attr_accessor :party
+
+  def full_name
+    return _INTL("{1} {2}", trainer_type_name, @name)
+  end
+
+  #=============================================================================
+
+  # Portion of the ID which is visible on the Trainer Card
+  def public_ID(id = nil)
+    return id ? id & 0xFFFF : @id & 0xFFFF
+  end
+
+  # Other portion of the ID
+  def secret_ID(id = nil)
+    return id ? id >> 16 : @id >> 16
+  end
+
+  # Random ID other than this Trainer's ID
+  def make_foreign_ID
+    loop do
+      ret = rand(2 ** 16) | rand(2 ** 16) << 16
+      return ret if ret != @id
+    end
+    return 0
+  end
+
+  #=============================================================================
+
+  def trainer_type_name; return GameData::TrainerType.get(@trainer_type).name;        end
+  def base_money;        return GameData::TrainerType.get(@trainer_type).base_money;  end
+  def gender;            return GameData::TrainerType.get(@trainer_type).gender;      end
+  def male?;             return GameData::TrainerType.get(@trainer_type).male?;       end
+  def female?;           return GameData::TrainerType.get(@trainer_type).female?;     end
+  def skill_level;       return GameData::TrainerType.get(@trainer_type).skill_level; end
+  def skill_code;        return GameData::TrainerType.get(@trainer_type).skill_code;  end
+
+  def has_skill_code?(code)
+    c = skill_code
+    return c && c != "" && c[/#{code}/]
+  end
+
+  #=============================================================================
+
+  def pokemon_party
+    return @party.find_all { |p| p && !p.egg? }
+  end
+
+  def able_party
+    return @party.find_all { |p| p && !p.egg? && !p.fainted? }
+  end
+
+  def party_count
+    return @party.length
+  end
+
+  def pokemon_count
+    ret = 0
+    @party.each { |p| ret += 1 if p && !p.egg? }
+    return ret
+  end
+
+  def able_pokemon_count
+    ret = 0
+    @party.each { |p| ret += 1 if p && !p.egg? && !p.fainted? }
+    return ret
+  end
+
+  def party_full?
+    return party_count >= Settings::MAX_PARTY_SIZE
+  end
+
+  # Returns true if there are no usable Pokémon in the player's party.
+  def all_fainted?
+    return able_pokemon_count == 0
+  end
+
+  def first_party
+    return @party[0]
+  end
+
+  def first_pokemon
+    return pokemon_party[0]
+  end
+
+  def first_able_pokemon
+    return able_party[0]
+  end
+
+  def last_party
+    return (@party.length > 0) ? @party[@party.length - 1] : nil
+  end
+
+  def last_pokemon
+    p = pokemon_party
+    return (p.length > 0) ? p[p.length - 1] : nil
+  end
+
+  def last_able_pokemon
+    p = able_party
+    return (p.length > 0) ? p[p.length - 1] : nil
+  end
+
+  def remove_pokemon_at_index(index)
+    return false if index < 0 || index >= party_count
+    have_able = false
+    @party.each_with_index do |pkmn, i|
+      have_able = true if i != index && pkmn.able?
+      break if have_able
+    end
+    return false if !have_able
+    @party.delete_at(index)
+    return true
+  end
+
+  # Checks whether the trainer would still have an unfainted Pokémon if the
+  # Pokémon given by _index_ were removed from the party.
+  def has_other_able_pokemon?(index)
+    @party.each_with_index { |pkmn, i| return true if i != index && pkmn.able? }
+    return false
+  end
+
+  # Returns true if there is a Pokémon of the given species in the trainer's
+  # party. You may also specify a particular form it should be.
+  def has_species?(species, form = -1)
+    return pokemon_party.any? { |p| p && p.isSpecies?(species) && (form < 0 || p.form == form) }
+  end
+
+  # Returns whether there is a fatefully met Pokémon of the given species in the
+  # trainer's party.
+  def has_fateful_species?(species)
+    return pokemon_party.any? { |p| p && p.isSpecies?(species) && p.obtain_method == 4 }
+  end
+
+  # Returns whether there is a Pokémon with the given type in the trainer's
+  # party.
+  def has_pokemon_of_type?(type)
+    return false if !GameData::Type.exists?(type)
+    type = GameData::Type.get(type).id
+    return pokemon_party.any? { |p| p && p.hasType(type) }
+  end
+
+  # Checks whether any Pokémon in the party knows the given move, and returns
+  # the first Pokémon it finds with that move, or nil if no Pokémon has that move.
+  def get_pokemon_with_move(move)
+    pokemon_party.each { |pkmn| return pkmn if pkmn.hasMove?(move) }
+    return nil
+  end
+
+  # Fully heal all Pokémon in the party.
+  def heal_party
+    @party.each { |pkmn| pkmn.heal }
+  end
+
+  #=============================================================================
+
+  def initialize(name, trainer_type)
+    @trainer_type = trainer_type
+    @name         = name
+    @id           = rand(2 ** 16) | rand(2 ** 16) << 16
+    @language     = pbGetLanguage
+    @party        = []
+  end
+end
+
+#===============================================================================
+# Trainer class for NPC trainers
+#===============================================================================
+class NPCTrainer < Trainer
+  attr_accessor :items
+  attr_accessor :lose_text
+
+  def initialize(name, trainer_type)
+    super
+    @items     = []
+    @lose_text = nil
+  end
+end