Pokemon emerald 100 catch rate gameshark vba