Pokemon Birthsigns

#===============================================================================
# Birthsigns - The Beacon
# Flash Skill effect:
# Mimics the effect of 'Flash'.
#===============================================================================
elsif cmdFlash>=0 && command==cmdFlash
  if Kernel.pbConfirmMessage(_INTL("Activate {1}'s birthsign?",pkmn.name))
    if true
      if $PokemonGlobal.flashUsed
        Kernel.pbMessage(_INTL("This is already active."))
        pbRefresh
      end
      if !pbGetMetadata($game_map.map_id,MetadataDarkMap)
        Kernel.pbMessage(_INTL("That can't be used here."))
        pbRefresh
      end
      darkness=$PokemonTemp.darknessSprite
      if !darkness || darkness.disposed?
        darkness!=$PokemonTemp.darknessSprite
      end
      if pbGetMetadata($game_map.map_id,MetadataDarkMap) &&
      !$PokemonGlobal.flashUsed &&
      !pbHiddenMoveAnimation(pkmn)
        Kernel.pbMessage(_INTL("{1} used Flash!",pkmn.name))
      end
      if pbGetMetadata($game_map.map_id,MetadataDarkMap) && 
      !$PokemonGlobal.flashUsed
        $PokemonGlobal.flashUsed=true
        pbDisplay(_INTL("{1} lit up the area by using the power of The Beacon!",pkmn.name))
        while darkness.radius<176
          Graphics.update
          Input.update
          pbUpdateSceneMap
          darkness.radius+=4
        end
      end
    end
    pbRefresh
  end
#===============================================================================
# Birthsigns - The Martyr
# Soft-Boiled Skill effect:
# Mimics the effect of 'Soft-Boiled'.
#===============================================================================
      elsif cmdSoftboiled>=0 && command==cmdSoftboiled
        if Kernel.pbConfirmMessage(_INTL("Activate {1}'s birthsign?",pkmn.name))
          if true
            @scene.pbSetHelpText(_INTL("Use on which Pokémon?"))
            oldpkmnid=pkmnid
            loop do
              @scene.pbPreSelect(oldpkmnid)
              [email protected](true)
              break if pkmnid<0
              newpkmn=@party[pkmnid]
              if Input.trigger?(Input::B)
                break
              elsif newpkmn.isEgg? || newpkmn.hp==0 || 
              newpkmn.hp==newpkmn.totalhp || newpkmn==pkmn
                pbDisplay(_INTL("It won't have any effect."))
                pbRefresh
              elsif pkmn.hp<=pkmn.totalhp/5
                pbDisplay(_INTL("Not enough HP..."))
                pbRefresh
              else
                pkmn.hp-=pkmn.totalhp/5
                hpgain=pbItemRestoreHP(newpkmn,pkmn.totalhp/5)
                pbDisplay(_INTL("{1}'s HP was restored by {2} points using the power of The Martyr!",newpkmn.name,hpgain))
              end
            end
          end
          break
          pbRefresh
        end
#===============================================================================
# Birthsigns - The Voyager
# Teleport Skill effect:
# Mimics the effect of 'Teleport'.
#===============================================================================
elsif cmdTeleport>=0 && command==cmdTeleport
  if Kernel.pbConfirmMessage(_INTL("Activate {1}'s birthsign?",pkmn.name))
    if true
      if !pbGetMetadata($game_map.map_id,MetadataOutdoor)
        Kernel.pbMessage(_INTL("That can only be used to quick travel outdoors."))
        pbRefresh
      end
      if $game_player.pbHasDependentEvents?
        Kernel.pbMessage(_INTL("It can't be used when you have someone with you."))
        pbRefresh
      end
      if pbGetMetadata($game_map.map_id,MetadataOutdoor) && !$game_player.pbHasDependentEvents?
        healing=$PokemonGlobal.healingSpot
        if !healing
          healing=pbGetMetadata(0,MetadataHome) # Home
        elsif healing
          mapname=pbGetMapNameFromId(healing[0])
        end
        if Kernel.pbConfirmMessage(_INTL("Do you want to return to {1}?",mapname))
          if true
            healing=$PokemonGlobal.healingSpot
            if !healing
              healing=pbGetMetadata(0,MetadataHome)
            elsif healing
              if !pbHiddenMoveAnimation(pkmn)
                Kernel.pbMessage(_INTL("{1} used Teleport!",pkmn.name))
              end
              pbFadeOutIn(99999){
                Kernel.pbCancelVehicles
                $game_temp.player_new_map_id=healing[0]
                $game_temp.player_new_x=healing[1]
                $game_temp.player_new_y=healing[2]
                $game_temp.player_new_direction=2
                $scene.transfer_player
                $game_map.autoplay
                $game_map.refresh
              }
              pbEraseEscapePoint
              pbDisplay(_INTL("{1} transported you back to {2} using the power of The Voyager!",pkmn.name,mapname))
              break
            end
          end
          pbRefresh
        end
      end
    end
    pbRefresh
  end
#===============================================================================

# Birthsigns - The Phoenix
# Rebirth Skill effect:
# Revives the user with 2 HP (can't seem to make it 1 HP for some reason).
#===============================================================================
elsif cmdRevive>=0 && command==cmdRevive
  if Kernel.pbConfirmMessage(_INTL("Activate {1}'s birthsign?",pkmn.name))
    if true
      if pkmn.hp==0
        hpgain=pbItemRestoreHP(pkmn,pkmn.hp=1)
        pbRefresh
        pbDisplay(_INTL("{1} was revived by the power of The Phoenix!",pkmn.name))
      else
        pbDisplay(_INTL("It won't have any effect."))
        pbRefresh
      end
    end
    pbRefresh
  end
#===============================================================================
# Birthsigns - The Fugitive
# Escape Skill effect:
# Mimics the effects of 'Dig' or 'Escape Rope'.
#===============================================================================
elsif cmdEscape>=0 && command==cmdEscape
  if Kernel.pbConfirmMessage(_INTL("Activate {1}'s birthsign?",pkmn.name))
    if true
      escape=($PokemonGlobal.escapePoint rescue nil)
      if !escape || escape==[] || pbGetMetadata($game_map.map_id,MetadataOutdoor)
        Kernel.pbMessage(_INTL("That can only be used to escape dungeons."))
        pbRefresh
      end
      if $game_player.pbHasDependentEvents?
        Kernel.pbMessage(_INTL("It can't be used when you have someone with you."))
        pbRefresh
      end
      if !pbGetMetadata($game_map.map_id,MetadataOutdoor) && !$game_player.pbHasDependentEvents?
        mapname=pbGetMapNameFromId(escape[0])
        if Kernel.pbConfirmMessage(_INTL("Want to escape from here and return to {1}?",mapname))
          if true
            if escape
              if !pbHiddenMoveAnimation(pkmn)
                Kernel.pbMessage(_INTL("{1} used Escape!",pkmn.name))
              end
              pbFadeOutIn(99999){
                Kernel.pbCancelVehicles
                $game_temp.player_new_map_id=escape[0]
                $game_temp.player_new_x=escape[1]
                $game_temp.player_new_y=escape[2]
                $game_temp.player_new_direction=escape[3]
                $scene.transfer_player
                $game_map.autoplay
                $game_map.refresh
              }
              pbEraseEscapePoint
              pbDisplay(_INTL("{1} escaped with you to {2} by using the power of The Fugitive!",pkmn.name,mapname))
              break
            end
          end
          pbRefresh
        end
      end
    end
    pbRefresh
  end
#===============================================================================
# Birthsigns - The Cleric
# Cure Skill effect:
# Heals the user's status conditions.
#===============================================================================
elsif cmdCure>=0 && command==cmdCure
  if Kernel.pbConfirmMessage(_INTL("Activate {1}'s birthsign?",pkmn.name))
    if true
      if pkmn.status>0 && pkmn.hp>0
        pkmn.status=0
        pkmn.statusCount=0
        pbRefresh
        pbDisplay(_INTL("{1}'s condition was healed by the power of The Cleric!",pkmn.name))
      else
        pbDisplay(_INTL("It won't have any effect."))
        pbRefresh
      end
    end
    pbRefresh
  end
#===============================================================================
# Birthsigns - The Monk
# Trance Skill effect:
# Relearns old moves.
#===============================================================================
elsif cmdTrance>=0 && command==cmdTrance
  if Kernel.pbConfirmMessage(_INTL("Activate {1}'s birthsign?",pkmn.name))
    if true
      pbDisplay(_INTL("{1} entered a deep trance...",pkmn.name))
      if pbGetRelearnableMoves(pkmn).length>0
        pbRelearnMoveScreen(pkmn)
      else
        pbDisplay(_INTL("...but it couldn't recall anything."))
      end
    else
      break
      pbRefresh
    end
  end
#===============================================================================
# Birthsigns - The Specialist
# Re-roll Skill effect:
# IV's are reset to yield Hidden Power combos of a chosen type.
#===============================================================================    
elsif cmdReroll>=0 && command==cmdReroll
  if Kernel.pbConfirmMessage(_INTL("Activate {1}'s birthsign?",pkmn.name))
    if true
      pbDisplay(_INTL("{1} can change its Hidden Power type!",pkmn.name))
      command=0
      loop do
        [email protected](_INTL("Choose a new Hidden Power."),[
        _INTL("Grass"),
        _INTL("Fire"),
        _INTL("Water"),
        _INTL("Electric"),
        _INTL("Ice"),
        _INTL("Fighting"),
        _INTL("Flying"),
        _INTL("Poison"),
        _INTL("Ground"),
        _INTL("Rock"),
        _INTL("Bug"),
        _INTL("Ghost"),
        _INTL("Steel"),
        _INTL("Psychic"),
        _INTL("Dragon"),
        _INTL("Dark"),
        _INTL("Cancel")
      ],command)
      case command
      when -1, 16
        break
    #Re-rolls the user's IV's for a new Hidden Power.
    #rand(32)/2.floor*2+1 are odd numbered IV's.
    #rand(32)/2.floor*2 are even numbered IV's.
      when 0 #Grass
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2
        pkmn.iv[4]=rand(32)/2.floor*2
        pkmn.iv[5]=rand(32)/2.floor*2+1
        pkmn.iv[3]=rand(32)/2.floor*2+1
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Grass.",pkmn.name))
        break
        pbRefresh
      when 1 #Fire
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2
        pkmn.iv[4]=rand(32)/2.floor*2
        pkmn.iv[5]=rand(32)/2.floor*2+1
        pkmn.iv[3]=rand(32)/2.floor*2
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Fire.",pkmn.name))
        break
        pbRefresh
      when 2 #Water
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2
        pkmn.iv[2]=rand(32)/2.floor*2
        pkmn.iv[4]=rand(32)/2.floor*2
        pkmn.iv[5]=rand(32)/2.floor*2+1
        pkmn.iv[3]=rand(32)/2.floor*2+1
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Water.",pkmn.name))
        break
        pbRefresh
      when 3 #Electric
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2+1
        pkmn.iv[4]=rand(32)/2.floor*2
        pkmn.iv[5]=rand(32)/2.floor*2+1
        pkmn.iv[3]=rand(32)/2.floor*2+1
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Electric.",pkmn.name))
        break
        pbRefresh
      when 4 #Ice
        pkmn.iv[0]=rand(32)/2.floor*2
        pkmn.iv[1]=rand(32)/2.floor*2
        pkmn.iv[2]=rand(32)/2.floor*2
        pkmn.iv[4]=rand(32)/2.floor*2+1
        pkmn.iv[5]=rand(32)/2.floor*2+1
        pkmn.iv[3]=rand(32)/2.floor*2+1
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Ice.",pkmn.name))
        break
        pbRefresh
      when 5 #Fighting
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2
        pkmn.iv[4]=rand(32)/2.floor*2
        pkmn.iv[5]=rand(32)/2.floor*2
        pkmn.iv[3]=rand(32)/2.floor*2
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Fighting.",pkmn.name))
        break
        pbRefresh
      when 6 #Flying
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2+1
        pkmn.iv[4]=rand(32)/2.floor*2
        pkmn.iv[5]=rand(32)/2.floor*2
        pkmn.iv[3]=rand(32)/2.floor*2
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Flying.",pkmn.name))
        break
        pbRefresh
      when 7 #Poison
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2
        pkmn.iv[4]=rand(32)/2.floor*2
        pkmn.iv[5]=rand(32)/2.floor*2
        pkmn.iv[3]=rand(32)/2.floor*2+1
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Poison.",pkmn.name))
        break
        pbRefresh
      when 8 #Ground
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2+1
        pkmn.iv[4]=rand(32)/2.floor*2
        pkmn.iv[5]=rand(32)/2.floor*2
        pkmn.iv[3]=rand(32)/2.floor*2+1
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Ground.",pkmn.name))
        break
        pbRefresh
      when 9 #Rock
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2
        pkmn.iv[4]=rand(32)/2.floor*2+1
        pkmn.iv[5]=rand(32)/2.floor*2
        pkmn.iv[3]=rand(32)/2.floor*2
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Rock.",pkmn.name))
        break
        pbRefresh
      when 10 #Bug
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2
        pkmn.iv[2]=rand(32)/2.floor*2
        pkmn.iv[4]=rand(32)/2.floor*2+1
        pkmn.iv[5]=rand(32)/2.floor*2
        pkmn.iv[3]=rand(32)/2.floor*2+1
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Bug.",pkmn.name))
        break
        pbRefresh
      when 11 #Ghost
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2
        pkmn.iv[4]=rand(32)/2.floor*2+1
        pkmn.iv[5]=rand(32)/2.floor*2
        pkmn.iv[3]=rand(32)/2.floor*2+1
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Ghost.",pkmn.name))
        break
        pbRefresh
      when 12 #Steel
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2+1
        pkmn.iv[4]=rand(32)/2.floor*2+1
        pkmn.iv[5]=rand(32)/2.floor*2
        pkmn.iv[3]=rand(32)/2.floor*2+1
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Steel.",pkmn.name))
        break
        pbRefresh
      when 13 #Psychic
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2
        pkmn.iv[4]=rand(32)/2.floor*2+1
        pkmn.iv[5]=rand(32)/2.floor*2+1
        pkmn.iv[3]=rand(32)/2.floor*2
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Psychic.",pkmn.name))
        break
        pbRefresh
      when 14 #Dragon
        pkmn.iv[0]=rand(32)/2.floor*2
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2+1
        pkmn.iv[4]=rand(32)/2.floor*2+1
        pkmn.iv[5]=rand(32)/2.floor*2+1
        pkmn.iv[3]=rand(32)/2.floor*2+1
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Dragon.",pkmn.name))
        break
        pbRefresh
      when 15 #Dark
        pkmn.iv[0]=rand(32)/2.floor*2+1
        pkmn.iv[1]=rand(32)/2.floor*2+1
        pkmn.iv[2]=rand(32)/2.floor*2+1
        pkmn.iv[4]=rand(32)/2.floor*2+1
        pkmn.iv[5]=rand(32)/2.floor*2+1
        pkmn.iv[3]=rand(32)/2.floor*2+1
        pbDisplay(_INTL("The power of The Specialist changed {1}'s Hidden Power to Dark.",pkmn.name))
        break
        pbRefresh
      end
    end
  end
  pbRefresh
end
#===============================================================================
# Birthsigns - The Parent
# Incubate Skill effect:
# Reduce eggsteps of an Egg to 1 if the Egg has less than 1,000 steps remaining.
#===============================================================================
elsif cmdIncubate>=0 && command==cmdIncubate
  if Kernel.pbConfirmMessage(_INTL("Activate {1}'s birthsign?",pkmn.name))
    if true
      @scene.pbSetHelpText(_INTL("Which Egg would you like to incubate?"))
      oldpkmnid=pkmnid
      loop do
        @scene.pbPreSelect(oldpkmnid)
        [email protected](true)
        break if pkmnid<0
        newpkmn=@party[pkmnid]
        if Input.trigger?(Input::B)
          break
        elsif !newpkmn.isEgg?
          pbDisplay(_INTL("You can only incubate eggs."))
          pbRefresh
        elsif newpkmn.isEgg? && newpkmn.eggsteps>1000
          pbDisplay(_INTL("It appears to be too early for this to have an effect."))
          pbRefresh
        elsif newpkmn.isEgg? && newpkmn.eggsteps<1000 
          newpkmn.eggsteps=1 
          pbDisplay(_INTL("{1} used the power of The Parent to incubate the Egg!",pkmn.name))
          pbDisplay(_INTL("The Egg is going to hatch now!"))
          pbRefresh
        end
      end
    end
    break
    pbRefresh
  end
#===============================================================================
# Birthsigns - The Eternal
# Reincarnate Skill effect:
# Resets the Pokemon as if it was hatched again, allowing it to inherit
# a new birthsign.
#===============================================================================
elsif cmdReincarnate>=0 && command==cmdReincarnate
  if Kernel.pbConfirmMessage(_INTL("Activate {1}'s birthsign?",pkmn.name))
    if true
      pbDisplay(_INTL("Activating this birthsign will reset {1}'s level and birthsign, and any affected attributes.",pkmn.name))
      if Kernel.pbConfirmMessage(_INTL("Are you sure you want to activate this birthsign?"))
        if true
          pkmn.giveRibbon(:SECONDSTEP)
          pkmn.level=EGGINITIALLEVEL
          pkmn.ev[0]=0
          pkmn.ev[1]=0
          pkmn.ev[2]=0
          pkmn.ev[3]=0
          pkmn.ev[4]=0
          pkmn.ev[5]=0
          pkmn.happiness=120
          pkmn.pokerus=0
          pkmn.timeEggHatched=pbGetTimeNow
          pkmn.obtainText=_INTL("From a previous life.")
          pbRefresh
          pbDisplay(_INTL("{1} was reincarnated by the power of The Eternal!",pkmn.name))
          #Default Birthsigns
          if pkmn.birthsign==_INTL("'The Apprentice'")
            pkmn.pokerus=16
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Apprentice!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Companion'")
            pkmn.happiness=255
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Companion!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Beacon'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Beacon!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Savage'")
            pkmn.iv[0]=0
            pkmn.iv[1]=31
            pkmn.iv[3]=31
            pkmn.iv[4]=31
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Savage!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Prodigy'")
            pkmn.abilityflag=2
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Prodigy!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Martyr'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Martyr!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Maiden'")
            pkmn.setGender(1)
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Maiden!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Gladiator'")
            pkmn.ev[1]=100
            pkmn.ev[4]=100
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Gladiator!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Voyager'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Voyager!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Thief'")
            pkmn.ev[3]=252
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Thief!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Glutton'")
            pkmn.iv[0]=31
            pkmn.iv[2]=31
            pkmn.iv[3]=0
            pkmn.iv[5]=31
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Glutton!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Wishmaker'")
            pkmn.shinyflag=true
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Wishmaker!",pkmn.name))
          end
          #New Birthsigns
          if pkmn.birthsign==_INTL("'The Phoenix'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Phoenix!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Scholar'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Scholar!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Fugitive'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Fugitive!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Aristocrat'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Aristocrat!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Cleric'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Cleric!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Monk'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Monk!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Ancestor'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Ancestor!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Specialist'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Specialist!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Assassin'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Assassin!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Parent'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Parent!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Hunter'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Hunter!",pkmn.name))
          end
          if pkmn.birthsign==_INTL("'The Eternal'")
            pbRefresh
            pbDisplay(_INTL("{1} gained the power of The Eternal!",pkmn.name))
          end
          if Kernel.pbConfirmMessage(_INTL("Would you like to rename the reincarnated Pokémon?"))
            species=PBSpecies.getName(pkmn.species)
            nickname=pbEnterPokemonName(_INTL("{1}'s new name?",pkmn.name),0,10,"",pkmn)
            pkmn.name=nickname if nickname!=""
            pbRefresh
          end
          pbDisplay(_INTL("You put the Second Step Ribbon on {1} to commemorate new life.",pkmn.name))
          pkmn.calcStats
          pbRefreshSingle(pkmnid)
        end
        pbRefresh
      end
    end
    pbRefresh
  end
#===============================================================================

#=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=
# Birthsign Page
#=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=
def drawBirthsignPage(pokemon)
    overlay=@sprites["overlay"].bitmap
    overlay.clear
    @sprites["background"].setBitmap("Graphics/Pictures/Birthsigns/summaryzodiac")
    imagepos=[]
    if USENEWBIRTHSIGNS
      zodiacimage=sprintf("Graphics/Pictures/Birthsigns/Birthsigns2/birthsign%02d",zodiacValue(@pokemon.timeEggHatched.mon))
    elsif !USENEWBIRTHSIGNS
      zodiacimage=sprintf("Graphics/Pictures/Birthsigns/birthsign%02d",zodiacValue(@pokemon.timeEggHatched.mon))
    end
    imagepos.push([zodiacimage,0,0,0,0,-1,-1])
    imagepos.push(["Graphics/Pictures/Birthsigns/summaryzboarder",0,0,0,0,-1,-1])
    if USENEWBIRTHSIGNS
      zodiactoken=sprintf("Graphics/Pictures/Birthsigns/Birthsigns2/token%02d",zodiacValue(@pokemon.timeEggHatched.mon))
    elsif !USENEWBIRTHSIGNS
      zodiactoken=sprintf("Graphics/Pictures/Birthsigns/token%02d",zodiacValue(@pokemon.timeEggHatched.mon))
    end
    imagepos.push([zodiactoken,4,122,0,0,-1,-1])
    pbDrawImagePositions(overlay,imagepos)
    [email protected]
    zodiac=pbGetZodiacName(zodiacValue(@pokemon.timeEggHatched.mon)) if !USENEWBIRTHSIGNS
    newzodiac=pbGetNewZodiacName(zodiacValue(@pokemon.timeEggHatched.mon)) if USENEWBIRTHSIGNS  
    zodiacdesc=pbGetZodiacDesc(zodiacValue(@pokemon.timeEggHatched.mon)) if !USENEWBIRTHSIGNS
    newzodiacdesc=pbGetNewZodiacDesc(zodiacValue(@pokemon.timeEggHatched.mon)) if USENEWBIRTHSIGNS
    base=Color.new(248,248,248)
    shadow=Color.new(104,104,104)
    pbSetSystemFont(overlay)
    textpos=[
        [_INTL("BIRTHSIGN"),26,16,0,base,shadow],
        [_INTL("{1}'s Birthsign",pokename),8,62,0,base,shadow],
        if USENEWBIRTHSIGNS
          [newzodiac,42,90,0,Color.new(64,64,64),Color.new(176,176,176)]
        elsif !USENEWBIRTHSIGNS
          [zodiac,42,90,0,Color.new(64,64,64),Color.new(176,176,176)]
        end
    ]
    if pokemon.obtainMode==1
      if pokemon.timeEggHatched
        month=pbGetAbbrevMonthName(pokemon.timeEggHatched.mon)
        date=pokemon.timeEggHatched.day
        year=pokemon.timeEggHatched.year
        textpos.push([_INTL("Birthday: {1} {2}, {3}\n",month,date,year),4,320,0,base,shadow])
      end
    end
#If you changed the range of dates for any of the Birthsigns in PField_Time, then you need to
#change the text in the section below to match your new date ranges.
#
#If you changed the names for any of the Birthsigns in PField_Time, then you need to change
#the text in the section below to match your new names. Changes must also be made in
#PScreen_Party, and PScreen_EggHatching.
    if pokemon.birthsign==_INTL("'The Apprentice'") || pokemon.birthsign==_INTL("'The Phoenix'")
      textpos.push([_INTL("Sign: Jan. 1st - 31st"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      elsif pokemon.birthsign==_INTL("'The Companion'") || pokemon.birthsign==_INTL("'The Scholar'")
        textpos.push([_INTL("Sign: Feb. 1st - 28th"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      elsif pokemon.birthsign==_INTL("'The Beacon'") || pokemon.birthsign==_INTL("'The Fugitive'")
        textpos.push([_INTL("Sign: Mar. 1st - 31st"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      elsif pokemon.birthsign==_INTL("'The Savage'") || pokemon.birthsign==_INTL("'The Aristocrat'")
        textpos.push([_INTL("Sign: Apr. 1st - 30th"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      elsif pokemon.birthsign==_INTL("'The Prodigy'") || pokemon.birthsign==_INTL("'The Cleric'")
        textpos.push([_INTL("Sign: May. 1st - 31st"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      elsif pokemon.birthsign==_INTL("'The Martyr'") || pokemon.birthsign==_INTL("'The Monk'")
        textpos.push([_INTL("Sign: Jun. 1st - 30th"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      elsif pokemon.birthsign==_INTL("'The Maiden'") || pokemon.birthsign==_INTL("'The Ancestor'")
        textpos.push([_INTL("Sign: Jul. 1st - 31st"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      elsif pokemon.birthsign==_INTL("'The Gladiator'") || pokemon.birthsign==_INTL("'The Specialist'")
        textpos.push([_INTL("Sign: Aug. 1st - 31st"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      elsif pokemon.birthsign==_INTL("'The Voyager'") || pokemon.birthsign==_INTL("'The Assassin'")
        textpos.push([_INTL("Sign: Sep. 1st - 30th"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      elsif pokemon.birthsign==_INTL("'The Thief'") || pokemon.birthsign==_INTL("'The Parent'")
        textpos.push([_INTL("Sign: Oct. 1st - 31st"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      elsif pokemon.birthsign==_INTL("'The Glutton'") || pokemon.birthsign==_INTL("'The Hunter'")
        textpos.push([_INTL("Sign: Nov. 1st - 30th"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      elsif pokemon.birthsign==_INTL("'The Wishmaker'") || pokemon.birthsign==_INTL("'The Eternal'")
        textpos.push([_INTL("Sign: Dec. 1st - 31st"),4,352,0,Color.new(64,64,64),Color.new(176,176,176)])
      end
    pbDrawTextPositions(overlay,textpos)
    pbSetSmallFont(overlay)
#If you changed the description text for any of the Birthsigns in PField_Time,
#then you can adjust the positioning of the text in the following line.
    if USENEWBIRTHSIGNS
      drawTextEx(overlay,260,320,258,0,newzodiacdesc,base,shadow)
    end
    if !USENEWBIRTHSIGNS
      drawTextEx(overlay,260,320,258,0,zodiacdesc,base,shadow)
    end
    [COLOR=Red]loop do
      Input.update
      Graphics.update
      if Input.trigger?(Input::B)
        Input.update
        break
      end
    end[/COLOR]
  end
#===============================================================================

elsif @page==1 && @pokemon.obtainMode==1
          drawBirthsignPage(@pokemon)
          [COLOR=Red]drawPageTwo(@pokemon)[/COLOR]