diff --git a/examples/modifyJorgeTeam.pl b/examples/modifyJorgeTeam.pl index ebccfc9..cd13a58 100644 --- a/examples/modifyJorgeTeam.pl +++ b/examples/modifyJorgeTeam.pl @@ -9,7 +9,7 @@ use feature 'signatures'; use Rsaves qw/read_save check_correct_size get_saves find_current_save_index check_correct_size find_pokemon_substruct change_gender read_pc_storage save_pc_changes enable_eon_ticket save_changes pokemon_set_shiny read_pkm_file_box enable_mirage_island_for_pokemon parse_version_name/; use Rsaves::Constants::Global - qw/$MOVE_SPIKES $MOVE_DRILL_PECK $MOVE_HIDDEN_POWER $MOVE_TAUNT/; + qw/$MOVE_SPIKES $MOVE_DRILL_PECK $MOVE_HIDDEN_POWER $MOVE_TAUNT $MOVE_THUNDERBOLT $MOVE_ROAR $MOVE_THUNDER_WAVE/; use Rsaves::Constants::Ruby::Global qw/$MALE $FEMALE/; @@ -26,14 +26,61 @@ sub start { my $save = $saves[$current_save_index]; my $pc = read_pc_storage($save); - my $pokemon = $pc->{boxes}[0][5]; - modifySkarmory($pokemon); + my $skarmory = $pc->{boxes}[0][5]; + my $jolteon = $pc->{boxes}[0][4]; + modifySkarmory($skarmory); + modifyJolteon($jolteon); save_pc_changes( $save, $pc ); save_changes( @saves, $extra, $output ); } -sub modifySkarmory ($pokemon) { +sub modifyJolteon ($pokemon) { print Data::Dumper::Dumper $pokemon; + $pokemon->{personality} = 0x46F43BCA; + my $ivs_egg_status_and_ability = + $pokemon->{substructures}[3]{ivs_egg_status_and_ability}; + + my $ability = $ivs_egg_status_and_ability >> 31 & 1; + my $egg = $ivs_egg_status_and_ability >> 30 & 1; + my $iv_special_defense = $ivs_egg_status_and_ability >> 25 & 0x1F; + my $iv_special_attack = $ivs_egg_status_and_ability >> 20 & 0x1F; + my $iv_speed = $ivs_egg_status_and_ability >> 15 & 0x1F; + my $iv_defense = $ivs_egg_status_and_ability >> 10 & 0x1F; + my $iv_attack = $ivs_egg_status_and_ability >> 5 & 0x1F; + my $iv_hp = $ivs_egg_status_and_ability >> 0 & 0x1F; + + ( + $iv_hp, $iv_attack, $iv_defense, $iv_special_attack, + $iv_special_defense, $iv_speed, $ability + ) = ( 31, 22, 30, 31, 31, 31, 0 ); + + $ivs_egg_status_and_ability = 0; + $ivs_egg_status_and_ability |= ( ( $ability & 1 ) << 31 ); + $ivs_egg_status_and_ability |= ( ( $egg & 1 ) << 30 ); + $ivs_egg_status_and_ability |= ( ( $iv_special_defense & 0x1F ) << 25 ); + $ivs_egg_status_and_ability |= ( ( $iv_special_attack & 0x1F ) << 20 ); + $ivs_egg_status_and_ability |= ( ( $iv_speed & 0x1F ) << 15 ); + $ivs_egg_status_and_ability |= ( ( $iv_defense & 0x1F ) << 10 ); + $ivs_egg_status_and_ability |= ( ( $iv_attack & 0x1F ) << 5 ); + $ivs_egg_status_and_ability |= ( ( $iv_hp & 0x1F ) ); + $pokemon->{substructures}[3]{ivs_egg_status_and_ability} = + $ivs_egg_status_and_ability; + + $pokemon->{substructures}[2]{hp_ev} = 0; + $pokemon->{substructures}[2]{attack_ev} = 0; + $pokemon->{substructures}[2]{defense_ev} = 0; + $pokemon->{substructures}[2]{speed_ev} = 0; + $pokemon->{substructures}[2]{special_attack_ev} = 0; + $pokemon->{substructures}[2]{special_defense_ev} = 0; + + $pokemon->{substructures}[1]{movements}[0] = $MOVE_THUNDERBOLT; + $pokemon->{substructures}[1]{movements}[1] = $MOVE_HIDDEN_POWER; + $pokemon->{substructures}[1]{movements}[2] = $MOVE_THUNDER_WAVE; + $pokemon->{substructures}[1]{movements}[3] = $MOVE_ROAR; + print Data::Dumper::Dumper $pokemon; +} + +sub modifySkarmory ($pokemon) { $pokemon->{personality} = 0x845BABD6; my $ivs_egg_status_and_ability = $pokemon->{substructures}[3]{ivs_egg_status_and_ability}; @@ -75,6 +122,5 @@ sub modifySkarmory ($pokemon) { $pokemon->{substructures}[1]{movements}[1] = $MOVE_DRILL_PECK; $pokemon->{substructures}[1]{movements}[2] = $MOVE_HIDDEN_POWER; $pokemon->{substructures}[1]{movements}[3] = $MOVE_TAUNT; - print Data::Dumper::Dumper $pokemon; } start; diff --git a/jolteon.gba b/jolteon.gba new file mode 100644 index 0000000..307f9ce Binary files /dev/null and b/jolteon.gba differ diff --git a/jolteon.sav b/jolteon.sav new file mode 100644 index 0000000..3e58d0e Binary files /dev/null and b/jolteon.sav differ