Chain Fishing

Chain Fishing

Pokémon Essentials Version
v16.2 ➖
This script adds the Chain Fishing mechanic to the game.
Since information on the actual chance increases is vague at best, I just kind of made a guess. Feel free to fiddle with the numbers if you know what you're doing.

Code:
class PokemonTemp
 
 attr_accessor :fishingChain
 
 alias chain_init initialize
 def initialize
	chain_init
	@fishingChain=0
 end
 
end
alias chain_pbFishing pbFishing
def pbFishing(hasencounter,rodtype=1)
 ret=chain_pbFishing(hasencounter,rodtype)
 if ret
	$PokemonTemp.fishingChain+=1
 else
	$PokemonTemp.fishingChain=0
 end
 return ret
end
Events.onStepTakenFieldMovement+=proc{|sender,e|
 event=e[0]
 if event==$game_player && $scene.is_a?(Scene_Map)
	$PokemonTemp.fishingChain=0
 end
}
 
# Give wild pokemon an extra chance to be shiny when chain fishing
Events.onWildPokemonCreate+=proc {|sender,e|
 pokemon=e[0]
 if $PokemonTemp.fishingChain>0 && !pokemon.isShiny?
   
	boost=($PokemonTemp.fishingChain>40)? 40 : $PokemonTemp.fishingChain
	pokemon.personalID=rand(65536)|(rand(65536)<<16+boost)
 end
}
Credits
mej71
Author
mej71
First release
Last update
Rating
0.00 star(s) 0 ratings

More resources from mej71

Top