- 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.
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
