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

Adding logic to print the box name.

This commit is contained in:
Sergiotarxz 2024-03-07 00:08:01 +01:00
parent e274f22aba
commit dbacdcdf79
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/GEmeTool/View/MainWindow.pm
View File

@ -338,12 +338,28 @@ sub activate_view_pc {
$self->draw_box($cairo);
$self->draw_pokemon($cairo);
$self->draw_box_name($cairo);
}
);
$gtk_window->set_child($canvas);
$gtk_window->present;
}
sub draw_box_name {
my $self = shift;
my $cairo = shift;
my $save = $self->_save;
my $pc = $save->get_pc_system;
my $box = $pc->get_box(0);
my $name = Rsaves::translate_3rd_encoding($box->name);
$cairo->scale( 1, 1 );
$cairo->set_source_rgb(0, 0, 0);
$cairo->select_font_face('monospace', 'normal', 'normal');
$cairo->set_font_size(20);
$cairo->move_to(75 - (length($name) * 5), 19);
$cairo->show_text($name);
}
sub draw_pokemon {
my $self = shift;
my $cairo = shift;

10
lib/Rsaves.pm
View File

@ -464,10 +464,20 @@ sub _write_pokemon_substruct_fh {
$translate_real_table{$char} = chr($counter);
$counter++;
}
$counter = 0xa1;
for my $char ( '0'..'9') {
$translate_encoding_table{ chr($counter) } = $char;
$translate_real_table{$char} = chr($counter);
$counter++;
}
$translate_real_table{'♂'} = chr(0xB5);
$translate_real_table{'♀'} = chr(0xB6);
$translate_real_table{'-'} = chr(0xae);
$translate_real_table{'.'} = chr(0xad);
$translate_encoding_table{ chr(0xB5) } = '♂';
$translate_encoding_table{ chr(0xB6) } = '♀';
$translate_encoding_table{ chr(0xae) } = '-';
$translate_encoding_table{ chr(0xad) } = '.';
}
sub to_3rd_encoding {