asddsa

class PokemonTemp
  attr_accessor :catchcombo
  attr_accessor :especie
  attr_accessor :especies
end
enctype = EncounterTypes::Land
chances    = EncounterTypes::EnctypeChances[enctype]
cadenamaxima=31
Events.onStartBattle+=proc {|sender,e|
  species=e[0]
  $PokemonTemp.catchcombo=0 if !$game_switches[118]
  $PokemonTemp.especies=species if $PokemonTemp.catchcombo==0
    if $PokemonTemp.catchcombo==1 && PBTerrain.isGrass?($game_map.terrain_tag($game_player.x,$game_player.y))
      chances = [1,4,5,5,5,10,10,10,10,10,15,15]
    elsif $PokemonTemp.catchcombo==6 && $PokemonGlobal && $PokemonGlobal.surfing
      chances = [50,30,5,9,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>=12 && $PokemonGlobal && $PokemonGlobal.surfing
      chances = [40,30,10,9,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==24 && $PokemonGlobal && $PokemonGlobal.surfing
      chances = [40,20,15,14,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==30 && $PokemonGlobal && $PokemonGlobal.surfing
      chances = [10,10,10,30,40]
    elsif $PokemonTemp.catchcombo==0 && 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]
    elsif $PokemonTemp.catchcombo==0 && $PokemonGlobal && $PokemonGlobal.surfing
      chances = [60,30,5,4,1]
    end

}

Events.onWildBattleEnd+=proc {|sender,e|
   species=e[0]
   result=e[2]
   $PokemonTemp.especie=species if !$PokemonTemp.catchcombo==0
   if result==4
     $PokemonTemp.catchcombo+=1
    if $PokemonTemp.catchcombo==1 && PBTerrain.isGrass?($game_map.terrain_tag($game_player.x,$game_player.y))
      chances = [1,4,5,5,5,10,10,10,10,10,15,15]
    elsif $PokemonTemp.catchcombo==6 && $PokemonGlobal && $PokemonGlobal.surfing
      chances = [50,30,5,9,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>=12 && $PokemonGlobal && $PokemonGlobal.surfing
      chances = [40,30,10,9,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==24 && $PokemonGlobal && $PokemonGlobal.surfing
      chances = [40,20,15,14,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==30 && $PokemonGlobal && $PokemonGlobal.surfing
      chances = [10,10,10,30,40]
    elsif $PokemonTemp.catchcombo==0 && 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]
    elsif $PokemonTemp.catchcombo==0 && $PokemonGlobal && $PokemonGlobal.surfing
      chances = [60,30,5,4,1]
    end
     $game_switches[118]=true
   elsif !result==4
     $game_switches[118]=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]
     elsif $PokemonGlobal && $PokemonGlobal.surfing
       chances = [60,30,5,4,1]
     end
   end

}

Events.onWildPokemonCreate+=proc{|sender,e|
  pokemon =e[0]
  $PokemonTemp.catchcombo=0 if $PokemonTemp.catchcombo==nil
  if $PokemonTemp.catchcombo>=1 && $PokemonTemp.catchcombo<=1
    pokemon.makeShiny
    if rand(11)<10
      pokemon = $PokemonTemp.especies
    end
  elsif $PokemonTemp.catchcombo>=3
    for i in 0...6
      pokemon.iv[i]=11
    end
    if rand(100)<10
      pokemon = $PokemonTemp.especies
    end
    if rand(4092)<2
      pokemon.makeShiny
    end
  elsif $PokemonTemp.catchcombo>=20
    for i in 0...6
      pokemon.iv[i]=21
    end
    if rand(4092)<4
      pokemon.makeShiny
    end
  elsif $PokemonTemp.catchcombo>=30
    for i in 0...6
      pokemon.iv[i]=31
    end
    if rand(4092)<8
      pokemon.makeShiny
    end
  end
}