sergiotarxz/Rsaves
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing Kumena name.

Browse Source
This commit is contained in:
Sergiotarxz 2023-11-01 20:52:28 +01:00
parent f2e420c151
commit 1bde59217a
3 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
examples/modifyJorgeTeam.pl
View File

@ -7,7 +7,7 @@ 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/;
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/;
@ -48,13 +48,11 @@ sub start {
}
sub modifyMudkip ($pokemon) {
print Data::Dumper::Dumper $pokemon;
$pokemon->{personality} = 0x6BB2770A;
$pokemon->{nickname} = to_3rd_encoding('Kumena');
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;
@ -93,17 +91,13 @@ sub modifyMudkip ($pokemon) {
$pokemon->{substructures}[1]{movements}[2] = $MOVE_ICE_BEAM;
$pokemon->{substructures}[1]{movements}[3] = $MOVE_FOCUS_PUNCH;
$pokemon->{substructures}[0]{held_item} = $ITEM_LEFTOVERS;
print Data::Dumper::Dumper $pokemon;
}
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;
@ -142,7 +136,6 @@ sub modifyMoltres ($pokemon) {
$pokemon->{substructures}[1]{movements}[2] = $MOVE_WILL_O_WISP;
$pokemon->{substructures}[1]{movements}[3] = $MOVE_ROAR;
$pokemon->{substructures}[0]{held_item} = $ITEM_LEFTOVERS;
print Data::Dumper::Dumper $pokemon;
}
sub _hihalf_u32 {

18
lib/Rsaves.pm
View File

@ -29,7 +29,7 @@ our @EXPORT_OK = (
read_pkm_file_box calculate_shiny_personality pokemon_set_shiny
get_first_super_data set_first_super_data enable_rematch_main_legendary
check_flag_id enable_mirage_island_for_pokemon parse_version_name
enable_deoxys_firered match_again_rival_firered_cerulean pokemon_fill_pp/
enable_deoxys_firered match_again_rival_firered_cerulean pokemon_fill_pp to_3rd_encoding translate_3rd_encoding/
);
my $SAVE_SIZE = 57344;
@ -271,7 +271,15 @@ sub _write_pokemon_fh {
}
print $fh pack 'V', $pokemon->{personality};
print $fh pack 'V', $pokemon->{otid};
print $fh $pokemon->{nickname};
my $nickname = $pokemon->{nickname};
if (length $nickname < 10) {
$nickname .= chr(0xff);
my $to_add = 10 - length $nickname;
for (my $i = 0; $i < $to_add; $i++) {
$nickname .= chr(int(rand(256)));
}
}
print $fh $nickname;
print $fh pack 'C', $pokemon->{language};
print $fh pack 'C', $pokemon->{flags_eggs};
print $fh $pokemon->{ot_name};
@ -449,7 +457,7 @@ sub _write_pokemon_substruct_fh {
my %translate_encoding_table;
my %translate_real_table;
{
my $counter = hex 'BB';
my $counter = 0xBB;
for my $char ( 'A' .. 'Z', 'a' .. 'z' ) {
$translate_encoding_table{ chr($counter) } = $char;
$translate_real_table{$char} = chr($counter);
@ -461,7 +469,7 @@ sub _write_pokemon_substruct_fh {
$translate_encoding_table{ chr(0xB6) } = '♀';
}
sub _to_3rd_encoding {
sub to_3rd_encoding {
my $text = shift;
my @chars = split '', $text;
my $return_text = '';
@ -471,7 +479,7 @@ sub _write_pokemon_substruct_fh {
return $return_text;
}
sub _translate_3rd_encoding {
sub translate_3rd_encoding {
my $text = shift;
my @chars = split '', $text;
my $return_text = '';

BIN
mudkip.sav
View File

Binary file not shown.