diff --git a/examples/enable_mirage_island.pl b/examples/enable_mirage_island.pl
new file mode 100644
index 0000000..984d450
--- /dev/null
+++ b/examples/enable_mirage_island.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+use v5.34.1;
+
+use strict;
+use warnings;
+
+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/;
+
+use Rsaves::Constants::Ruby::Global qw/$MALE $FEMALE/;
+
+sub start {
+    my ( @saves_raw, $extra );
+    ( @saves_raw[ 0, 1 ], $extra ) = read_save('ruby.sav');
+    check_correct_size( @saves_raw, $extra );
+    my @saves              = get_saves(@saves_raw);
+    my $current_save_index = find_current_save_index(@saves);
+    my $save               = $saves[$current_save_index];
+
+    # Sightly more complex for other flags, take a look to enable_eon_ticket to see how it works.
+    my $pc = read_pc_storage($save);
+    my $pokemon = $pc->{boxes}[0][4];
+    enable_mirage_island_for_pokemon($save, $pokemon);
+    save_changes( @saves, $extra, 'ruby1.sav' );
+}
+
+start;
diff --git a/lib/Rsaves.pm b/lib/Rsaves.pm
index 21b370d..5f8f547 100644
--- a/lib/Rsaves.pm
+++ b/lib/Rsaves.pm
@@ -8,7 +8,7 @@ use warnings;
 use Data::Dumper;
 
 use Rsaves::Constants::Ruby::Flags qw/$FLAG_SYS_HAS_EON_TICKET $FLAG_LEGENDARY_BATTLE_COMPLETED $FLAG_HIDE_LEGEND_MON_CAVE_OF_ORIGIN/;
-use Rsaves::Constants::Ruby::Vars qw/$VAR_CAVE_OF_ORIGIN_B4F_STATE $VARS_START/;
+use Rsaves::Constants::Ruby::Vars qw/$VAR_CAVE_OF_ORIGIN_B4F_STATE $VARS_START $VAR_MIRAGE_RND_H/;
 
 use Exporter;
 
@@ -20,7 +20,7 @@ our @EXPORT_OK = (
     find_current_save_index check_correct_size find_pokemon_substruct
     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/
+    check_flag_id enable_mirage_island_for_pokemon/
 );
 
 my $SAVE_SIZE                  = 57344;
@@ -750,6 +750,19 @@ sub enable_eon_ticket {
     set_first_super_data( $save, $superdata );
 }
 
+sub enable_mirage_island_for_pokemon {
+    my $save      = shift;
+    my $pokemon = shift;
+    my $superdata = get_first_super_data($save);
+    my $personality = $pokemon->{personality};
+    my $substruct0 = find_pokemon_substruct($pokemon->{substructures}, 0);
+    say $substruct0->{species};
+
+    printf "%x\n", $personality & 0xffff;
+    set_var($save, $superdata, $VAR_MIRAGE_RND_H, $personality & 0xffff);
+    set_first_super_data ( $save, $superdata );
+}
+
 sub enable_rematch_main_legendary {
     my $save      = shift;
     my $superdata = get_first_super_data($save);