Script: Rescue Chain [v17.2]

Events.onWildPokemonCreate+=proc{|sender,e|
   next if !$PokemonTemp.rescuechain
   pokemon =e[0]
   family=pbGetBabySpecies(pokemon.fSpecies)
   next if family != $PokemonTemp.rescuechain[1]
   shinyretries=($PokemonTemp.rescuechain[0]/EVOCHAINLENGTH).floor() # for every multiple of chain, try for shiny
   for i in 0...shinyretries
      break if pokemon.isShiny?
      pokemon.personalID=rand(65536)|(rand(65536)<<16)
    end
}

          pokemon.name=PBSpecies.getName(newspecies)
         pokemon.calcStats
         pokemon.resetMoves
[COLOR="Red"]       elsif evodata.length==0 # no more evolutions
         for i in 0...6
           pokemon.iv[i]=31
         end
         pokemon.calcStats[/COLOR]
       end

Events.onStartBattle+=proc

Events.onWildPokemonCreate+=proc

===============================================================================
# Rescue Chain - By Vendily [v17]
#This edited version was edited by lemiho19
# This script makes it so that if you chain pokemon of the same evolutionary
#  family together, an evolved form of the species will appear.
# I used no references and I completly misinterpreted a description of SOS
#  battles as this thing.
# * Minimum length of chain before evolved forms begin to appear. With every
#    multiple, the chance for the evolved form or a second evolved form to appear
#    increases. (Default 10)
# * Chance that the evolved form will even show up, 1 out of this constant.
#    (Default 4, for 1/4 chance, it's probably too high)
# * Random number added to the minimum level this pokemon can evolve at or
#    the wild pokemon's current level if it evolves through item (Default 5)
# * Disable this modifier while the pokeradar is being used.
#    I recommend leaving it as is as the pokeradar may behave strangely and the
#    two scripts may reset each others' chain. (Default true)
# * The maps where this effect can only take place in.
# * The maps where this effect will never happen. Ever.
# * The switch to disable this effect. (Default -1)
#===============================================================================
EVOCHAINLENGTH      = 4
EVORANDCHANCE       = 3
EVOLEVELWOBBLE      = 10
EVOPKRADERDISABLE   = true
EVOMAPSWHITELIST    = []
EVOMAPSBLACKLIST    = []
EVODISABLESWITCH    = -1
family = 0
species = 0
class PokemonTemp
  attr_accessor :rescuechain # [chain length, evo family]
end
 
Events.onStartBattle+=proc{|sender,e|
next if species.nil? 
family=pbGetBabySpecies(species)

   if family != $PokemonTemp.rescuechain[1]
      #p "DEBUG: Item ID: #{family}"
     $PokemonTemp.rescuechain=[0,family]
   end 
   }


Events.onWildPokemonCreate+=proc{|sender,e|
   next if EVOMAPSBLACKLIST.include?($game_map.map_id)
   next if EVOMAPSWHITELIST.length>0 && !EVOMAPSWHITELIST.include?($game_map.map_id)
   next if EVODISABLESWITCH>0 && $game_switches[EVODISABLESWITCH]
   next if EVOPKRADERDISABLE && !$PokemonTemp.pokeradar.nil?
   next if !$PokemonGlobal.roamEncounter.nil?
   pokemon=e[0]
   next if pokemon.nil?
   if !$PokemonTemp.rescuechain
     $PokemonTemp.rescuechain=[0,nil]
   end
       family=pbGetBabySpecies(pokemon.fSpecies)

   next if family != $PokemonTemp.rescuechain[1]
   if $PokemonTemp.rescuechain[0]>=EVOCHAINLENGTH
     for i in 0..($PokemonTemp.rescuechain[0]/EVOCHAINLENGTH).floor()
       evodata=pbGetEvolvedFormData(pokemon.fSpecies)
       if evodata.length>0 && rand(EVORANDCHANCE)==0
         fspecies=evodata[rand(evodata.length)][2]
         newspecies,newform=pbGetSpeciesFromFSpecies(fspecies)
         level=pbGetMinimumLevel(fspecies)
         level=[level,pokemon.level].max
         level+=rand(EVOLEVELWOBBLE)
         pokemon.species=newspecies
         pokemon.form=newform
         pokemon.level=level
         pokemon.name=PBSpecies.getName(newspecies)
         pokemon.calcStats
         pokemon.resetMoves
       end
     end
   end
}
 
Events.onWildBattleEnd+=proc {|sender,e|
   next if EVOMAPSBLACKLIST.include?($game_map.map_id)
   next if EVOMAPSWHITELIST.length>0 && !EVOMAPSWHITELIST.include?($game_map.map_id)
   next if EVODISABLESWITCH>0 && $game_switches[EVODISABLESWITCH]
   next if EVOPKRADERDISABLE && !$PokemonTemp.pokeradar.nil?
   next if !$PokemonTemp.rescuechain
   species=e[0]
   result=e[2]
   family=pbGetBabySpecies(species)
 
   if (result == 1 || result == 4) && family==$PokemonTemp.rescuechain[1]
    $PokemonTemp.rescuechain[0]+=1
  
   # $game_variables[200] = $PokemonTemp.rescuechain[0]#####################
   # $game_variables[199] = $PokemonTemp.rescuechain[1]#####################
   end
}