#!/usr/bin/env perl
use v5.34.1;

use strict;
use warnings;

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 pokemon_fill_pp to_3rd_encoding translate_3rd_encoding/;
use Rsaves::Constants::Global
  qw/$MOVE_SPIKES $MOVE_DRILL_PECK $MOVE_HIDDEN_POWER $MOVE_TAUNT $MOVE_THUNDERBOLT $MOVE_ROAR $MOVE_THUNDER_WAVE $ITEM_LEFTOVERS $MOVE_DRAGON_DANCE $MOVE_ROCK_SLIDE $MOVE_EARTHQUAKE $MOVE_TAUNT $MOVE_FLAMETHROWER $MOVE_WILL_O_WISP $MOVE_HYDRO_PUMP $MOVE_ICE_BEAM $MOVE_FOCUS_PUNCH $MOVE_PSYCHIC $MOVE_FIRE_PUNCH $MOVE_WISH $MOVE_PROTECT $MOVE_TOXIC $MOVE_LEECH_SEED $MOVE_RECOVER $MOVE_RAPID_SPIN $MOVE_EXPLOSION $MOVE_SURF $MOVE_REFRESH $MOVE_BRICK_BREAK $MOVE_DRAGON_CLAW $MOVE_FIRE_BLAST/;

use Rsaves::Constants::Ruby::Global qw/$MALE $FEMALE/;

my $input   = $ARGV[0] or die "No input save";
my $output  = $ARGV[1] or die "No output save";
my $version = parse_version_name( $ARGV[2] ) // parse_version_name('ruby');

sub start {
    my ( @saves_raw, $extra );
    ( @saves_raw[ 0, 1 ], $extra ) = read_save($input);
    my @saves              = get_saves( @saves_raw, $version );
    my $current_save_index = find_current_save_index(@saves);
    my $save               = $saves[$current_save_index];

    my $pc       = read_pc_storage($save);
    my $salamence = $pc->{boxes}[13][0];
    my $celebi   = $pc->{boxes}[13][1];
    my $jirachi  = $pc->{boxes}[13][2];
    my $claydol  = $pc->{boxes}[13][3];
    my $milotic  = $pc->{boxes}[13][4];
    my $tyranitar = $pc->{boxes}[13][5];
    modifyJirachi($jirachi);
    modifyCelebi($celebi);
    modifySalamence($salamence);
    modifyClaydol($claydol);
    modifyMilotic($milotic);
    modifyTyranitar($tyranitar);

    #    modifyJolteon($jolteon);
    #    modifyLarvitar($larvitar);
    #    modifyMoltres($moltres);
    #    modifyMudkip($mudkip);
    #    modifyStarmie($starmie);
    #
    pokemon_fill_pp($jirachi);
    pokemon_fill_pp($celebi);
    pokemon_fill_pp($salamence);
    pokemon_fill_pp($claydol);
    pokemon_fill_pp($milotic);
    pokemon_fill_pp($tyranitar);

    #    pokemon_fill_pp($larvitar);
    #    pokemon_fill_pp($moltres);
    #    pokemon_fill_pp($mudkip);
    #    pokemon_fill_pp($starmie);

    save_pc_changes( $save, $pc );
    save_changes( @saves, $extra, $output );
}

sub modifyTyranitar ($pokemon) {
    $pokemon->{personality} = 0x9CF2063B;

    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, 30, 30, 23, 30, 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}              = 240;
    $pokemon->{substructures}[2]{attack_ev}          = 232; 
    $pokemon->{substructures}[2]{defense_ev}         = 0;
    $pokemon->{substructures}[2]{special_attack_ev}  = 0;
    $pokemon->{substructures}[2]{special_defense_ev} = 0;
    $pokemon->{substructures}[2]{speed_ev}           = 36;

    $pokemon->{substructures}[1]{movements}[0] = $MOVE_FOCUS_PUNCH;
    $pokemon->{substructures}[1]{movements}[1] = $MOVE_ROCK_SLIDE;
    $pokemon->{substructures}[1]{movements}[2] = $MOVE_EARTHQUAKE;
    $pokemon->{substructures}[1]{movements}[3] = $MOVE_HIDDEN_POWER;
    $pokemon->{substructures}[0]{held_item}    = $ITEM_LEFTOVERS;
    $pokemon->{substructures}[0]{experience}   = 1_250_000;
}

sub modifyMilotic ($pokemon) {
    $pokemon->{personality} = 0x85F1BE0B;

    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
    ) = ( 30, 31, 30, 30, 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}              = 248;
    $pokemon->{substructures}[2]{attack_ev}          = 0;
    $pokemon->{substructures}[2]{defense_ev}         = 212;
    $pokemon->{substructures}[2]{special_attack_ev}  = 0;
    $pokemon->{substructures}[2]{special_defense_ev} = 0;
    $pokemon->{substructures}[2]{speed_ev}           = 48;

    $pokemon->{substructures}[1]{movements}[0] = $MOVE_SURF;
    $pokemon->{substructures}[1]{movements}[1] = $MOVE_TOXIC;
    $pokemon->{substructures}[1]{movements}[2] = $MOVE_REFRESH;
    $pokemon->{substructures}[1]{movements}[3] = $MOVE_RECOVER;
    $pokemon->{substructures}[0]{held_item}    = $ITEM_LEFTOVERS;
    $pokemon->{substructures}[0]{experience}   = 600_000;
}

sub modifyClaydol ($pokemon) {
    $pokemon->{personality} = 0x61A47352;

    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
    ) = ( 30, 28, 30, 31, 30, 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}              = 4;
    $pokemon->{substructures}[2]{attack_ev}          = 252;
    $pokemon->{substructures}[2]{defense_ev}         = 0;
    $pokemon->{substructures}[2]{special_attack_ev}  = 0;
    $pokemon->{substructures}[2]{special_defense_ev} = 0;
    $pokemon->{substructures}[2]{speed_ev}           = 252;

    $pokemon->{substructures}[1]{movements}[0] = $MOVE_EARTHQUAKE;
    $pokemon->{substructures}[1]{movements}[1] = $MOVE_RAPID_SPIN;
    $pokemon->{substructures}[1]{movements}[2] = $MOVE_PSYCHIC;
    $pokemon->{substructures}[1]{movements}[3] = $MOVE_EXPLOSION;
    $pokemon->{substructures}[0]{held_item}    = $ITEM_LEFTOVERS;
    $pokemon->{substructures}[0]{experience}   = 1_000_000;
}
sub modifyCelebi ($pokemon) {
    my $hi_otid = _hihalf_u32( $pokemon->{otid} );
    my $lo_otid = _lowhalf_u32( $pokemon->{otid} );

    my $personality    = $pokemon->{personality} = 0xAB1B5E9E;
    my $hi_personality = _hihalf_u32($personality);
    my $lo_personality = _lowhalf_u32($personality);

    $hi_otid = $hi_personality ^ $lo_personality ^ 6 ^ $lo_otid;
    $pokemon->{otid} = ( $hi_otid << 16 ) | $lo_otid;
    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
    ) = ( 29, 30, 31, 30, 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}              = 248;
    $pokemon->{substructures}[2]{attack_ev}          = 0;
    $pokemon->{substructures}[2]{defense_ev}         = 80;
    $pokemon->{substructures}[2]{special_attack_ev}  = 0;
    $pokemon->{substructures}[2]{special_defense_ev} = 44;
    $pokemon->{substructures}[2]{speed_ev}           = 136;

    $pokemon->{substructures}[1]{movements}[0] = $MOVE_PSYCHIC;
    $pokemon->{substructures}[1]{movements}[1] = $MOVE_HIDDEN_POWER;
    $pokemon->{substructures}[1]{movements}[2] = $MOVE_LEECH_SEED;
    $pokemon->{substructures}[1]{movements}[3] = $MOVE_RECOVER;
    $pokemon->{substructures}[0]{held_item}    = $ITEM_LEFTOVERS;
    $pokemon->{substructures}[0]{experience}   = 1_059_862;
}

sub modifySalamence ($pokemon) {
    $pokemon->{personality} = 0x39D14879;
    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
    ) = ( 30, 31, 30, 30, 11, 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}          = 4;
    $pokemon->{substructures}[2]{defense_ev}         = 0;
    $pokemon->{substructures}[2]{special_attack_ev}  = 252;
    $pokemon->{substructures}[2]{special_defense_ev} = 0;
    $pokemon->{substructures}[2]{speed_ev}           = 252;

    $pokemon->{substructures}[1]{movements}[0] = $MOVE_BRICK_BREAK;
    $pokemon->{substructures}[1]{movements}[1] = $MOVE_DRAGON_CLAW;
    $pokemon->{substructures}[1]{movements}[2] = $MOVE_FIRE_BLAST;
    $pokemon->{substructures}[1]{movements}[3] = $MOVE_HIDDEN_POWER;
    $pokemon->{substructures}[0]{held_item}    = $ITEM_LEFTOVERS;
    $pokemon->{substructures}[0]{experience}   = 1_250_000;
}

sub modifyJirachi ($pokemon) {
    $pokemon->{personality} = 0xC6C32B9F;
    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
    ) = ( 30, 28, 31, 31, 30, 27, 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}              = 248;
    $pokemon->{substructures}[2]{attack_ev}          = 0;
    $pokemon->{substructures}[2]{defense_ev}         = 184;
    $pokemon->{substructures}[2]{special_attack_ev}  = 24;
    $pokemon->{substructures}[2]{special_defense_ev} = 32;
    $pokemon->{substructures}[2]{speed_ev}           = 20;

    $pokemon->{substructures}[1]{movements}[0] = $MOVE_WISH;
    $pokemon->{substructures}[1]{movements}[1] = $MOVE_PROTECT;
    $pokemon->{substructures}[1]{movements}[2] = $MOVE_TOXIC;
    $pokemon->{substructures}[1]{movements}[3] = $MOVE_FIRE_PUNCH;
    $pokemon->{substructures}[0]{held_item}    = $ITEM_LEFTOVERS;
    $pokemon->{substructures}[0]{experience}   = 1_250_000;
}

sub modifyStarmie ($pokemon) {
    $pokemon->{personality} = 0x6BB2770A;
    $pokemon->{nickname}    = to_3rd_encoding('Doctor');
    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
    ) = ( 30, 11, 31, 30, 31, 31, 1 );

    $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;

    #    /*0x02*/ u16 metLevel:7;
    #    /*0x02*/ u16 metGame:4;
    #    /*0x03*/ u16 pokeball:4;
    #    /*0x03*/ u16 otGender:1;
    my $meet_data = $pokemon->{substructures}[3]{met_data};

    my $ot_gender  = $meet_data >> 15 & 1;
    my $pokeball   = $meet_data >> 11 & 0xF;
    my $meet_game  = $meet_data >> 7 & 0xF;
    my $meet_level = $meet_data & 0x7F;

    $meet_level = 22;

    $meet_data = 0;

    $meet_data |= ( $ot_gender & 1 ) << 15;
    $meet_data |= ( $pokeball & 0xF ) << 11;
    $meet_data |= ( $meet_game & 0xF ) << 7;
    $meet_data |= ( $meet_level & 0x7F );

    $pokemon->{substructures}[3]{met_data} = $meet_data;

    $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_HYDRO_PUMP;
    $pokemon->{substructures}[1]{movements}[1] = $MOVE_ICE_BEAM;
    $pokemon->{substructures}[1]{movements}[2] = $MOVE_THUNDERBOLT;
    $pokemon->{substructures}[1]{movements}[3] = $MOVE_PSYCHIC;
    $pokemon->{substructures}[0]{held_item}    = $ITEM_LEFTOVERS;
}

sub modifyMudkip ($pokemon) {
    $pokemon->{personality} = 0x6BB2770A;
    $pokemon->{nickname}    = to_3rd_encoding('Kumena');
    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, 29, 30, 30, 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_HYDRO_PUMP;
    $pokemon->{substructures}[1]{movements}[1] = $MOVE_EARTHQUAKE;
    $pokemon->{substructures}[1]{movements}[2] = $MOVE_ICE_BEAM;
    $pokemon->{substructures}[1]{movements}[3] = $MOVE_FOCUS_PUNCH;
    $pokemon->{substructures}[0]{held_item}    = $ITEM_LEFTOVERS;
}

sub modifyMoltres ($pokemon) {
    $pokemon->{personality} = 0x336E4D34;
    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
    ) = ( 30, 18, 31, 30, 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_FLAMETHROWER;
    $pokemon->{substructures}[1]{movements}[1] = $MOVE_HIDDEN_POWER;
    $pokemon->{substructures}[1]{movements}[2] = $MOVE_WILL_O_WISP;
    $pokemon->{substructures}[1]{movements}[3] = $MOVE_ROAR;
    $pokemon->{substructures}[0]{held_item}    = $ITEM_LEFTOVERS;
}

sub _hihalf_u32 {
    my $n = shift;
    return ( ( $n & 0xFFFF0000 ) >> 16 );
}

sub _lowhalf_u32 {
    my $n = shift;
    return ( $n & 0xFFFF );
}

sub modifyLarvitar ($pokemon) {
    $pokemon->{personality} = 0x9CF2063B;
    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, 30, 30, 23, 30, 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_DRAGON_DANCE;
    $pokemon->{substructures}[1]{movements}[1] = $MOVE_ROCK_SLIDE;
    $pokemon->{substructures}[1]{movements}[2] = $MOVE_EARTHQUAKE;
    $pokemon->{substructures}[1]{movements}[3] = $MOVE_TAUNT;
    $pokemon->{substructures}[0]{held_item}    = $ITEM_LEFTOVERS;
}

sub modifyJolteon ($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;
    $pokemon->{substructures}[0]{held_item}    = $ITEM_LEFTOVERS;
}
start;