luisutoverison

##                     Sistema de Combos de Captura
##                         by Diego Mertens

class PokemonTemp #Aquí se definen las variables que usaremos
  attr_accessor :catchcombo
  attr_accessor :buscando
  attr_accessor :actual
  attr_accessor :newchances
end
CADENAMAXIMA=31 #el nivel máximo en el que la cadena buscará por shinies Y por los IV's de un Pokémon
INTERRUPTOR=118 #pongan aquí un interruptor que no uses
chances = EncounterTypes::EnctypeChances[EncounterTypes::Land] #aquí se definen las probabilidades en el pasto, sólo si no surfeas
Events.onStartBattle+=proc {|sender,e| #al iniciar la batalla, ocurre lo siguiente
  species=e[0]
  $PokemonTemp.newchances= chances if $PokemonTemp.newchances= $PokemonTemp.newchances==nil# se definen las chances si no se había hecho ya
  $PokemonTemp.catchcombo=0 if !$game_switches[INTERRUPTOR] #interruptor con el cual diremos que todo comenzó
    if $PokemonTemp.catchcombo==6 && PBTerrain.isGrass?($game_map.terrain_tag($game_player.x,$game_player.y)) #si la cadena es igual a 6 y se está en la hierba, se cambian las chances de encuentro
      chances = [15,15,10,10,10,10,5,5,4,4,6,6]
    elsif $PokemonTemp.catchcombo==12 && PBTerrain.isGrass?($game_map.terrain_tag($game_player.x,$game_player.y))
      chances = [10,10,10,10,10,10,5,5,4,4,11,11]
    elsif $PokemonTemp.catchcombo==24 && PBTerrain.isGrass?($game_map.terrain_tag($game_player.x,$game_player.y))
      chances = [10,10,10,10,5,5,5,5,9,9,11,11]
    elsif $PokemonTemp.catchcombo==30 && PBTerrain.isGrass?($game_map.terrain_tag($game_player.x,$game_player.y))
      chances = [15,15,10,10,10,10,5,5,4,4,6,6]
    elsif $PokemonTemp.catchcombo==0 && PBTerrain.isGrass?($game_map.terrain_tag($game_player.x,$game_player.y))# se restaura a sus valores originales cuando la cadena se rompe
      chances = [20,20,10,10,10,10,5,5,4,4,1,1]
    end
    $PokemonTemp.newchances= chances
}

Events.onWildBattleEnd+=proc {|sender,e| #al terminar la batalla, pasará lo siguiente
  species=e[0]
  result=e[2]
  $PokemonTemp.newchances= chances if $PokemonTemp.newchances==nil
  $PokemonTemp.buscando = species if $PokemonTemp.catchcombo==0 #se define la especie que buscamos si la cadena es igual a 0, por lo que al iniciar, se quedará igual
  $PokemonTemp.actual = species #se define la especie actual, es decir, la ultima especie que vimos salvaje
  if $PokemonTemp.catchcombo>=1 #si la cadena es mayor o igual a uno, pasa eso
    if result==4 && $PokemonTemp.actual==$PokemonTemp.buscando #si se capturó al pokemon, y es igual al que buscabamos, sigue
      $PokemonTemp.catchcombo+=1 if $PokemonTemp.catchcombo<=CADENAMAXIMA # se le suma +1 a la cadena si no alcanzó ya su valor máximo
      $game_switches[INTERRUPTOR]=true #se enciende el interruptor que dice que iniciamos la cadena
    elsif result==4 && $PokemonTemp.buscando != $PokemonTemp.actual || result != 4 && $PokemonTemp.buscando == $PokemonTemp.actual #si no atrapamos al pokemon que buscabamos o si atrapamos al que no era, se rompe la cadena
      $game_switches[INTERRUPTOR]=false #se apaga el interruptor que decía que la cadena estaba activa
      $PokemonTemp.catchcombo=0 #el nivel de cadena se va a 0
    end
  else #si la cadena es menor a 1, pasa lo siguiente
    if result==4 #si se atrapa al Pokémon, sigue
      $PokemonTemp.catchcombo+=1 #se le suma uno a la cadena
      $game_switches[INTERRUPTOR]=true #se indica que la cadena inició
    else
      $game_switches[INTERRUPTOR]=false
      $PokemonTemp.catchcombo=0
      if PBTerrain.isGrass?($game_map.terrain_tag($game_player.x,$game_player.y))
        chances = [20,20,10,10,10,10,5,5,4,4,1,1]
      end
      $PokemonTemp.newchances= chances
    end
  end
  Kernel.pbMessage(_INTL("Combo de captura actual: {1}, de {2}.",$PokemonTemp.catchcombo,PBSpecies.getName($PokemonTemp.buscando))) if $PokemonTemp.catchcombo>=1

}

Events.onWildPokemonCreate+=proc{|sender,e| #al momento de crear al pokemon salvaje
  pokemon =e[0]
  $PokemonTemp.catchcombo=0 if $PokemonTemp.catchcombo==nil
  if rand(10)<$PokemonTemp.catchcombo #si un numero al azar entre 0 y 128 es menor a la cadena, pueden modificar el 128 por el numero que quieran...
    pokemon.makeShiny #se fuerza a que sea shiny, mientras mas chico el numero rand(x), mas chances habra de que sea shiny, pero no puede ser mas chiquito que 32
  else #si no,
    pokemon.makeNotShiny #se fuerza a que NO sea shiny
  end
  for i in 0..$PokemonTemp.catchcombo #no se como explicar esto xd, pero digamos que busca valores entre el 0 y el valor de la cadena
    pokemon.iv[0]=i #setea los ivs para que sean iguales al numero de cadena
    pokemon.iv[1]=i
    pokemon.iv[2]=i
    pokemon.iv[3]=i
    pokemon.iv[4]=i
    pokemon.iv[5]=i
  end
  if rand(5)<$PokemonTemp.catchcombo # genera un numero al azar entre 0 y 50, si es menor al nivel de la cadena, se creará el pokémon que buscamos
    pokemon=$PokemonTemp.buscando # el pokemon que encontramos será de la misma especie que el que buscamos
  end
}