Puedes usar otras variables, si tienes cierta medalla, objeto o un Pokémon con cierta habilidad.
chance=0
for i in $Trainer.party.length
if isConst?(i.ability,PBAbilities,:ILLUMINATE)
chance=6
end
end
if $PokemonBag.pbQuantity(PBItems::HONEY)>=1
if chance==0
chance=5
else
chance+=1
end
end
if $Trainer.badges[7]==true
chance+= 10-chance
end
if rand(10)>chance
Kernel.pbMessage(_INTL("Nothing..."))
else
if !pbEncounter(qrand(10)<=3 ? EncounterTypes::HeadbuttLow : EncounterTypes::HeadbuttHigh)
Kernel.pbMessage(_INTL("Nothing..."))
end
end
end
Solo tienes que jugar un poco con las variables.