Better skarmory.

examples/modifyJorgeTeam.pl

@@ -38,12 +38,24 @@ sub start {
     save_changes( @saves, $extra, $output );
 }
 
+sub _hihalf_u32 {
+    my $n = shift;
+    return ( ( $n & 0xFFFF0000 ) >> 16 );
+}
+
+sub _lowhalf_u32 {
+    my $n = shift;
+    return ( $n & 0xFFFF );
+}
+
 sub modifyMoltres($pokemon) {
     print Data::Dumper::Dumper $pokemon;
     $pokemon->{personality} = 0x336E4D34;
     my $ivs_egg_status_and_ability =
       $pokemon->{substructures}[3]{ivs_egg_status_and_ability};
 
+    say _hihalf_u32($pokemon->{otid});
+    say _lowhalf_u32($pokemon->{otid});
     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;
@@ -176,7 +188,7 @@ sub modifyJolteon ($pokemon) {
 }
 
 sub modifySkarmory ($pokemon) {
-    $pokemon->{personality} = 0x845BABD6;
+    $pokemon->{personality} = 0xFB0CCAA8;
     my $ivs_egg_status_and_ability =
       $pokemon->{substructures}[3]{ivs_egg_status_and_ability};
 
@@ -191,8 +203,8 @@ sub modifySkarmory ($pokemon) {
 
     (
         $iv_hp, $iv_attack, $iv_defense, $iv_special_attack,
-        $iv_special_defense, $iv_speed
-    ) = ( 31, 31, 29, 30, 22, 31 );
+        $iv_special_defense, $iv_speed, $ability
+    ) = ( 30, 30, 30, 23, 30, 30, 0 );
 
     $ivs_egg_status_and_ability = 0;
     $ivs_egg_status_and_ability |= ( ( $ability & 1 ) << 31 );