Rearranged some script files

Data/Scripts/014_Trainers/001_PokeBattle_Trainer.rb

@@ -0,0 +1,271 @@
+class PokeBattle_Trainer
+  attr_accessor(:name)
+  attr_accessor(:id)
+  attr_accessor(:metaID)
+  attr_accessor(:trainertype)
+  attr_accessor(:outfit)
+  attr_accessor(:badges)
+  attr_accessor(:money)
+  attr_accessor(:seen)
+  attr_accessor(:owned)
+  attr_accessor(:formseen)
+  attr_accessor(:formlastseen)
+  attr_accessor(:shadowcaught)
+  attr_accessor(:party)
+  attr_accessor(:pokedex)    # Whether the Pokédex was obtained
+  attr_accessor(:pokegear)   # Whether the Pokégear was obtained
+  attr_accessor(:language)
+
+  def trainerTypeName   # Name of this trainer type (localized)
+    return PBTrainers.getName(@trainertype) rescue _INTL("PkMn Trainer")
+  end
+
+  def fullname
+    return _INTL("{1} {2}",self.trainerTypeName,@name)
+  end
+
+  def publicID(id=nil)   # Portion of the ID which is visible on the Trainer Card
+    return id ? id&0xFFFF : @id&0xFFFF
+  end
+
+  def secretID(id=nil)   # Other portion of the ID
+    return id ? id>>16 : @id>>16
+  end
+
+  def getForeignID   # Random ID other than this Trainer's ID
+    fid=0
+    loop do
+      fid=rand(256)
+      fid|=rand(256)<<8
+      fid|=rand(256)<<16
+      fid|=rand(256)<<24
+      break if fid!=@id
+    end
+    return fid
+  end
+
+  def setForeignID(other)
+    @id=other.getForeignID
+  end
+
+  def metaID
+    @metaID=$PokemonGlobal.playerID if !@metaID
+    @metaID=0 if !@metaID
+    return @metaID
+  end
+
+  def outfit
+    @outfit=0 if !@outfit
+    return @outfit
+  end
+
+  def language
+    @language=pbGetLanguage() if !@language
+    return @language
+  end
+
+  def money=(value)
+    @money=[[value,MAX_MONEY].min,0].max
+  end
+
+  def moneyEarned   # Money won when trainer is defeated
+    data = pbGetTrainerTypeData(@trainertype)
+    return data[3] if data && data[3]
+    return 30
+  end
+
+  def skill   # Skill level (for AI)
+    data = pbGetTrainerTypeData(@trainertype)
+    return data[8] if data && data[8]
+    return 30
+  end
+
+  def skillCode
+    data = pbGetTrainerTypeData(@trainertype)
+    return data[9] if data && data[9]
+    return ""
+  end
+
+  def hasSkillCode(code)
+    c = skillCode
+    return true if c && c!="" && c[/#{code}/]
+    return false
+  end
+
+  def numbadges   # Number of badges
+    ret = 0
+    @badges.each { |b| ret += 1 if b }
+    return ret
+  end
+
+  def gender
+    data = pbGetTrainerTypeData(@trainertype)
+    return data[7] if data && data[7]
+    return 2   # Gender unknown
+  end
+
+  def male?; return self.gender==0; end
+  alias isMale? male?
+
+  def female?; return self.gender==1; end
+  alias isFemale? female?
+
+  def pokemonParty
+    return @party.find_all { |p| p && !p.egg? }
+  end
+
+  def ablePokemonParty
+    return @party.find_all { |p| p && !p.egg? && !p.fainted? }
+  end
+
+  def partyCount
+    return @party.length
+  end
+
+  def pokemonCount
+    ret = 0
+    @party.each { |p| ret += 1 if p && !p.egg? }
+    return ret
+  end
+
+  def ablePokemonCount
+    ret = 0
+    @party.each { |p| ret += 1 if p && !p.egg? && !p.fainted? }
+    return ret
+  end
+
+  def firstParty
+    return nil if @party.length==0
+    return @party[0]
+  end
+
+  def firstPokemon
+    p=self.pokemonParty
+    return nil if p.length==0
+    return p[0]
+  end
+
+  def firstAblePokemon
+    p=self.ablePokemonParty
+    return nil if p.length==0
+    return p[0]
+  end
+
+  def lastParty
+    return nil if @party.length==0
+    return @party[@party.length-1]
+  end
+
+  def lastPokemon
+    p=self.pokemonParty
+    return nil if p.length==0
+    return p[p.length-1]
+  end
+
+  def lastAblePokemon
+    p=self.ablePokemonParty
+    return nil if p.length==0
+    return p[p.length-1]
+  end
+
+  def pokedexSeen(region=-1)   # Number of Pokémon seen
+    ret=0
+    if region==-1
+      for i in 0..PBSpecies.maxValue
+        ret+=1 if @seen[i]
+      end
+    else
+      regionlist=pbAllRegionalSpecies(region)
+      for i in regionlist
+        ret+=1 if @seen[i]
+      end
+    end
+    return ret
+  end
+
+  def pokedexOwned(region=-1)   # Number of Pokémon owned
+    ret=0
+    if region==-1
+      for i in 0..PBSpecies.maxValue
+        ret+=1 if @owned[i]
+      end
+    else
+      regionlist=pbAllRegionalSpecies(region)
+      for i in regionlist
+        ret+=1 if @owned[i]
+      end
+    end
+    return ret
+  end
+
+  def numFormsSeen(species)
+    species=getID(PBSpecies,species)
+    return 0 if species<=0
+    ret=0
+    array=@formseen[species]
+    for i in 0...[array[0].length,array[1].length].max
+      ret+=1 if array[0][i] || array[1][i]
+    end
+    return ret
+  end
+
+  def seen?(species)
+    species=getID(PBSpecies,species)
+    return species>0 ? @seen[species] : false
+  end
+  alias hasSeen? seen?
+
+  def owned?(species)
+    species=getID(PBSpecies,species)
+    return species>0 ? @owned[species] : false
+  end
+  alias hasOwned? owned?
+
+  def setSeen(species)
+    species=getID(PBSpecies,species)
+    @seen[species]=true if species>0
+  end
+
+  def setOwned(species)
+    species=getID(PBSpecies,species)
+    @owned[species]=true if species>0
+  end
+
+  def clearPokedex
+    @seen         = []
+    @owned        = []
+    @formseen     = []
+    @formlastseen = []
+    for i in 1..PBSpecies.maxValue
+      @seen[i]         = false
+      @owned[i]        = false
+      @formlastseen[i] = []
+      @formseen[i]     = [[],[]]
+    end
+  end
+
+  def initialize(name,trainertype)
+    @name              = name
+    @language          = pbGetLanguage
+    @trainertype       = trainertype
+    @id                = rand(256)
+    @id                |= rand(256)<<8
+    @id                |= rand(256)<<16
+    @id                |= rand(256)<<24
+    @metaID            = 0
+    @outfit            = 0
+    @pokegear          = false
+    @pokedex           = false
+    clearPokedex
+    @shadowcaught      = []
+    for i in 1..PBSpecies.maxValue
+      @shadowcaught[i] = false
+    end
+    @badges            = []
+    for i in 0...8
+      @badges[i]       = false
+    end
+    @money             = INITIAL_MONEY
+    @party             = []
+  end
+end