Adding implemented for retrieve security key in Ruby.
This commit is contained in:
parent
7466b2583f
commit
a0e3b8d1df
@ -14,6 +14,7 @@ use Rsaves::Constants::Global
|
||||
qw/$SAPPHIRE_VERSION $RUBY_VERSION $EMERALD_VERSION $FIRERED_VERSION $LEAFGREEN_VERSION $COLOSSEUM_VERSION/;
|
||||
|
||||
use Rsaves::Constants::Firered::Flags qw/$FLAG_RECEIVED_AURORA_TICKET $FLAG_ENABLE_SHIP_BIRTH_ISLAND $FLAG_FOUGHT_DEOXYS $FLAG_DEOXYS_FLEW_AWAY/;
|
||||
use Rsaves::Constants::Firered::Vars qw/$VAR_MAP_SCENE_CERULEAN_CITY_RIVAL/;
|
||||
use Exporter;
|
||||
|
||||
use parent 'Exporter';
|
||||
@ -25,7 +26,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/
|
||||
enable_deoxys_firered match_again_rival_firered_cerulean/
|
||||
);
|
||||
|
||||
my $SAVE_SIZE = 57344;
|
||||
@ -66,6 +67,8 @@ my $ITEM_AURORA_TICKET = 371;
|
||||
my $POKEMON_NAME_LENGTH = 10;
|
||||
my $OT_NAME_LENGTH = 7;
|
||||
my $BOX_NAME_LENGTH = 9;
|
||||
my $RUBY_VARS_START = 0x1340;
|
||||
my $FIRERED_VARS_START = 0x1000;
|
||||
|
||||
my %CHECKSUM_BYTES = (
|
||||
$TRAINER_INFO => hex 'F80',
|
||||
@ -778,6 +781,17 @@ sub enable_eon_ticket {
|
||||
set_first_super_data( $save, $superdata );
|
||||
}
|
||||
|
||||
sub match_again_rival_firered_cerulean {
|
||||
my $save = shift;
|
||||
my $section0 = _find_section_save( $save, 0 );
|
||||
my $version = $section0->{version};
|
||||
die "This is not Pokemon Leafgreen or Firered"
|
||||
if !_is_leafgreen_or_firered($version);
|
||||
my $superdata = get_first_super_data($save);
|
||||
set_var( $save, $superdata, $VAR_MAP_SCENE_CERULEAN_CITY_RIVAL, 0 );
|
||||
set_first_super_data($save, $superdata);
|
||||
}
|
||||
|
||||
sub enable_deoxys_firered {
|
||||
my $save = shift;
|
||||
my $section0 = _find_section_save( $save, 0 );
|
||||
@ -843,6 +857,8 @@ sub get_security_key {
|
||||
read $fh, my $read, 0xf20;
|
||||
read $fh, $read, 4;
|
||||
return unpack 'V', $read;
|
||||
} elsif (_is_ruby_or_sapphire($version)) {
|
||||
return 0;
|
||||
}
|
||||
close $fh;
|
||||
die "Not implemented";
|
||||
@ -894,7 +910,15 @@ sub get_var {
|
||||
my $save = shift;
|
||||
my $superdata = shift;
|
||||
my $var = shift;
|
||||
my $read_until = ( ( $var - $VARS_START ) * 2 ) + 0x1340;
|
||||
my $section0 = _find_section_save( $save, 0 );
|
||||
my $version = $section0->{version};
|
||||
my $read_until = ( ( $var - $Rsaves::Constants::Ruby::Vars::VARS_START ) * 2 ) + $RUBY_VARS_START;
|
||||
if (_is_leafgreen_or_firered($version)) {
|
||||
$read_until = ( ( $var - $Rsaves::Constants::Firered::Vars::VARS_START ) * 2 ) + $FIRERED_VARS_START;
|
||||
}
|
||||
if (_is_emerald($version)) {
|
||||
die "Not implemented.";
|
||||
}
|
||||
open my $fh, '<', $superdata;
|
||||
read $fh, ( my $read ), $read_until or die "Unable to read";
|
||||
read $fh, $read, 2 or die "Unable to read";
|
||||
@ -908,8 +932,16 @@ sub set_var {
|
||||
my $superdata = shift;
|
||||
my $var = shift;
|
||||
my $value = shift;
|
||||
my $section0 = _find_section_save( $save, 0 );
|
||||
my $version = $section0->{version};
|
||||
die "$value bigger than 0xffff" if $value > 0xffff;
|
||||
my $read_until = ( ( $var - $VARS_START ) * 2 ) + 0x1340;
|
||||
my $read_until = ( ( $var - $Rsaves::Constants::Ruby::Vars::VARS_START ) * 2 ) + $RUBY_VARS_START;
|
||||
if (_is_leafgreen_or_firered($version)) {
|
||||
$read_until = ( ( $var - $Rsaves::Constants::Firered::Vars::VARS_START ) * 2 ) + $FIRERED_VARS_START;
|
||||
}
|
||||
if (_is_emerald($version)) {
|
||||
die "Not implemented.";
|
||||
}
|
||||
my $result = shift;
|
||||
open my $fh, '<', $superdata;
|
||||
read $fh, ( my $read ), $read_until or die "Unable to read";
|
||||
|
||||
327
lib/Rsaves/Constants/Firered/Vars.pm
Normal file
327
lib/Rsaves/Constants/Firered/Vars.pm
Normal file
@ -0,0 +1,327 @@
|
||||
package Rsaves::Constants::Firered::Vars;
|
||||
|
||||
use v5.34.1;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Exporter;
|
||||
|
||||
use parent 'Exporter';
|
||||
|
||||
my $text = '#define VARS_START 0x4000
|
||||
#define TEMP_VARS_START 0x4000
|
||||
#define VAR_TEMP_0 (TEMP_VARS_START + 0x0)
|
||||
#define VAR_TEMP_1 (TEMP_VARS_START + 0x1)
|
||||
#define VAR_TEMP_2 (TEMP_VARS_START + 0x2)
|
||||
#define VAR_TEMP_3 (TEMP_VARS_START + 0x3)
|
||||
#define VAR_TEMP_4 (TEMP_VARS_START + 0x4)
|
||||
#define VAR_TEMP_5 (TEMP_VARS_START + 0x5)
|
||||
#define VAR_TEMP_6 (TEMP_VARS_START + 0x6)
|
||||
#define VAR_TEMP_7 (TEMP_VARS_START + 0x7)
|
||||
#define VAR_TEMP_8 (TEMP_VARS_START + 0x8)
|
||||
#define VAR_TEMP_9 (TEMP_VARS_START + 0x9)
|
||||
#define VAR_TEMP_A (TEMP_VARS_START + 0xA)
|
||||
#define VAR_TEMP_B (TEMP_VARS_START + 0xB)
|
||||
#define VAR_TEMP_C (TEMP_VARS_START + 0xC)
|
||||
#define VAR_TEMP_D (TEMP_VARS_START + 0xD)
|
||||
#define VAR_TEMP_E (TEMP_VARS_START + 0xE)
|
||||
#define VAR_TEMP_F (TEMP_VARS_START + 0xF)
|
||||
#define TEMP_VARS_END VAR_TEMP_F
|
||||
#define VAR_OBJ_GFX_ID_0 0x4010
|
||||
#define VAR_OBJ_GFX_ID_1 0x4011
|
||||
#define VAR_OBJ_GFX_ID_2 0x4012
|
||||
#define VAR_OBJ_GFX_ID_3 0x4013
|
||||
#define VAR_OBJ_GFX_ID_4 0x4014
|
||||
#define VAR_OBJ_GFX_ID_5 0x4015
|
||||
#define VAR_OBJ_GFX_ID_6 0x4016
|
||||
#define VAR_OBJ_GFX_ID_7 0x4017
|
||||
#define VAR_OBJ_GFX_ID_8 0x4018
|
||||
#define VAR_OBJ_GFX_ID_9 0x4019
|
||||
#define VAR_OBJ_GFX_ID_A 0x401A
|
||||
#define VAR_OBJ_GFX_ID_B 0x401B
|
||||
#define VAR_OBJ_GFX_ID_C 0x401C
|
||||
#define VAR_OBJ_GFX_ID_D 0x401D
|
||||
#define VAR_OBJ_GFX_ID_E 0x401E
|
||||
#define VAR_OBJ_GFX_ID_F 0x401F
|
||||
#define VAR_REPEL_STEP_COUNT 0x4020
|
||||
#define VAR_HAPPINESS_STEP_COUNTER 0x4021
|
||||
#define VAR_POISON_STEP_COUNTER 0x4022
|
||||
#define VAR_RENEWABLE_ITEM_STEP_COUNTER 0x4023
|
||||
#define VAR_ALTERING_CAVE_WILD_SET 0x4024
|
||||
#define VAR_MASSAGE_COOLDOWN_STEP_COUNTER 0x4025
|
||||
#define VAR_DEOXYS_INTERACTION_STEP_COUNTER 0x4026
|
||||
#define VAR_QUEST_LOG_MON_COUNTS 0x4027
|
||||
#define VAR_WONDER_NEWS_STEP_COUNTER 0x4028
|
||||
#define VAR_0x4029 0x4029
|
||||
#define VAR_0x402A 0x402A
|
||||
#define VAR_0x402B 0x402B
|
||||
#define VAR_0x402C 0x402C
|
||||
#define VAR_0x402D 0x402D
|
||||
#define VAR_0x402E 0x402E
|
||||
|
||||
#define VAR_0x402F 0x402F
|
||||
|
||||
#define VAR_ICE_STEP_COUNT 0x4030
|
||||
#define VAR_STARTER_MON 0x4031
|
||||
#define VAR_RESET_RTC_ENABLE 0x4032
|
||||
#define VAR_ENIGMA_BERRY_AVAILABLE 0x4033
|
||||
|
||||
#define VAR_0x4034 0x4034
|
||||
#define VAR_RESORT_GOREGEOUS_STEP_COUNTER 0x4035
|
||||
#define VAR_RESORT_GORGEOUS_REQUESTED_MON 0x4036
|
||||
#define VAR_PC_BOX_TO_SEND_MON 0x4037
|
||||
#define VAR_FANCLUB_FAN_COUNTER 0x4038
|
||||
#define VAR_FANCLUB_LOSE_FAN_TIMER 0x4039
|
||||
#define VAR_ELEVATOR_FLOOR 0x403A
|
||||
#define VAR_RESORT_GORGEOUS_REWARD 0x403B
|
||||
#define VAR_0x403C 0x403C
|
||||
#define VAR_HERACROSS_SIZE_RECORD 0x403D
|
||||
#define VAR_DEOXYS_INTERACTION_NUM 0x403E
|
||||
#define VAR_0x403F 0x403F
|
||||
#define VAR_MAGIKARP_SIZE_RECORD 0x4040
|
||||
#define VAR_0x4041 0x4041
|
||||
#define VAR_TRAINER_CARD_MON_ICON_TINT_IDX 0x4042
|
||||
#define VAR_TRAINER_CARD_MON_ICON_1 0x4043
|
||||
#define VAR_TRAINER_CARD_MON_ICON_2 0x4044
|
||||
#define VAR_TRAINER_CARD_MON_ICON_3 0x4045
|
||||
#define VAR_TRAINER_CARD_MON_ICON_4 0x4046
|
||||
#define VAR_TRAINER_CARD_MON_ICON_5 0x4047
|
||||
#define VAR_TRAINER_CARD_MON_ICON_6 0x4048
|
||||
#define VAR_HOF_BRAG_STATE 0x4049
|
||||
#define VAR_EGG_BRAG_STATE 0x404A
|
||||
#define VAR_LINK_WIN_BRAG_STATE 0x404B
|
||||
#define VAR_POKELOT_RND2 0x404C
|
||||
#define VAR_QL_ENTRANCE 0x404D
|
||||
#define VAR_NATIONAL_DEX 0x404E
|
||||
#define VAR_LOTAD_SIZE_RECORD 0x404F
|
||||
#define VAR_MAP_SCENE_PALLET_TOWN_OAK 0x4050
|
||||
#define VAR_MAP_SCENE_VIRIDIAN_CITY_OLD_MAN 0x4051
|
||||
#define VAR_MAP_SCENE_CERULEAN_CITY_RIVAL 0x4052
|
||||
#define VAR_VERMILION_CITY_TICKET_CHECK_TRIGGER 0x4053
|
||||
#define VAR_MAP_SCENE_ROUTE22 0x4054
|
||||
#define VAR_MAP_SCENE_PALLET_TOWN_PROFESSOR_OAKS_LAB 0x4055
|
||||
#define VAR_MAP_SCENE_PALLET_TOWN_PLAYERS_HOUSE_2F 0x4056
|
||||
#define VAR_MAP_SCENE_VIRIDIAN_CITY_MART 0x4057
|
||||
#define VAR_MAP_SCENE_PALLET_TOWN_RIVALS_HOUSE 0x4058
|
||||
#define VAR_MAP_SCENE_POKEMON_TOWER_6F 0x4059
|
||||
#define VAR_MAP_SCENE_VIRIDIAN_CITY_GYM_DOOR 0x405A
|
||||
#define VAR_MAP_SCENE_S_S_ANNE_2F_CORRIDOR 0x405B
|
||||
#define VAR_MAP_SCENE_SILPH_CO_7F 0x405C
|
||||
#define VAR_MAP_SCENE_POKEMON_TOWER_2F 0x405D
|
||||
#define VAR_MAP_SCENE_ROUTE16 0x405E
|
||||
#define VAR_MAP_SCENE_ROUTE23 0x405F
|
||||
#define VAR_MAP_SCENE_SILPH_CO_11F 0x4060
|
||||
#define VAR_MAP_SCENE_PEWTER_CITY_MUSEUM_1F 0x4061
|
||||
#define VAR_MAP_SCENE_ROUTE5_ROUTE6_ROUTE7_ROUTE8_GATES 0x4062
|
||||
#define VAR_MAP_SCENE_SEAFOAM_ISLANDS_B4F 0x4063
|
||||
#define VAR_MAP_SCENE_VICTORY_ROAD_1F 0x4064
|
||||
#define VAR_MAP_SCENE_VICTORY_ROAD_2F_BOULDER1 0x4065
|
||||
#define VAR_MAP_SCENE_VICTORY_ROAD_2F_BOULDER2 0x4066
|
||||
#define VAR_MAP_SCENE_VICTORY_ROAD_3F 0x4067
|
||||
#define VAR_MAP_SCENE_POKEMON_LEAGUE 0x4068
|
||||
#define VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL 0x4069
|
||||
#define VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE 0x406A
|
||||
#define VAR_MAP_SCENE_ROUTE24 0x406B
|
||||
#define VAR_MAP_SCENE_PEWTER_CITY 0x406C
|
||||
#define VAR_0x406D 0x406D
|
||||
#define VAR_MAP_SCENE_FUCHSIA_CITY_SAFARI_ZONE_ENTRANCE 0x406E
|
||||
#define VAR_CABLE_CLUB_STATE 0x406F
|
||||
#define VAR_MAP_SCENE_PALLET_TOWN_SIGN_LADY 0x4070
|
||||
#define VAR_MAP_SCENE_CINNABAR_ISLAND 0x4071
|
||||
#define VAR_0x4072 0x4072
|
||||
#define VAR_MAP_SCENE_SAFFRON_CITY_POKEMON_TRAINER_FAN_CLUB 0x4073
|
||||
#define VAR_MAP_SCENE_SEVEN_ISLAND_HOUSE_ROOM1 0x4074
|
||||
#define VAR_MAP_SCENE_ONE_ISLAND_HARBOR 0x4075
|
||||
#define VAR_MAP_SCENE_ONE_ISLAND_POKEMON_CENTER_1F 0x4076
|
||||
#define VAR_0x4077 0x4077
|
||||
#define VAR_MAP_SCENE_TWO_ISLAND 0x4078
|
||||
#define VAR_MAP_SCENE_TWO_ISLAND_JOYFUL_GAME_CORNER 0x4079
|
||||
#define VAR_0x407A 0x407A
|
||||
#define VAR_MAP_SCENE_THREE_ISLAND 0x407B
|
||||
#define VAR_MAP_SCENE_POKEMON_CENTER_TEALA 0x407C
|
||||
#define VAR_MAP_SCENE_CERULEAN_CITY_ROCKET 0x407D
|
||||
#define VAR_MAP_SCENE_VERMILION_CITY 0x407E
|
||||
#define VAR_MAP_SCENE_MT_EMBER_EXTERIOR 0x407F
|
||||
#define VAR_MAP_SCENE_ICEFALL_CAVE_BACK 0x4080
|
||||
#define VAR_MAP_SCENE_SAFFRON_CITY_DOJO 0x4081
|
||||
#define VAR_MAP_SCENE_TRAINER_TOWER 0x4082
|
||||
#define VAR_MAP_SCENE_FIVE_ISLAND_LOST_CAVE_ROOM10 0x4083
|
||||
#define VAR_MAP_SCENE_FIVE_ISLAND_RESORT_GORGEOUS 0x4084
|
||||
#define VAR_MAP_SCENE_INDIGO_PLATEAU_EXTERIOR 0x4085
|
||||
#define VAR_MAP_SCENE_FOUR_ISLAND 0x4086
|
||||
#define VAR_0x4087 0x4087
|
||||
#define VAR_MAP_SCENE_ROCKET_WAREHOUSE 0x4088
|
||||
#define VAR_MAP_SCENE_SIX_ISLAND_POKEMON_CENTER_1F 0x4089
|
||||
#define VAR_MAP_SCENE_CINNABAR_ISLAND_2 0x408A
|
||||
#define VAR_MAP_SCENE_MT_MOON_B2F 0x408B
|
||||
|
||||
|
||||
#define VAR_0x408C 0x408C
|
||||
#define VAR_0x408D 0x408D
|
||||
#define VAR_0x408E 0x408E
|
||||
#define VAR_0x408F 0x408F
|
||||
#define VAR_0x4090 0x4090
|
||||
#define VAR_0x4091 0x4091
|
||||
#define VAR_0x4092 0x4092
|
||||
#define VAR_0x4093 0x4093
|
||||
#define VAR_0x4094 0x4094
|
||||
#define VAR_0x4095 0x4095
|
||||
#define VAR_0x4096 0x4096
|
||||
#define VAR_0x4097 0x4097
|
||||
#define VAR_0x4098 0x4098
|
||||
#define VAR_0x4099 0x4099
|
||||
#define VAR_0x409A 0x409A
|
||||
#define VAR_0x409B 0x409B
|
||||
#define VAR_0x409C 0x409C
|
||||
#define VAR_0x409D 0x409D
|
||||
#define VAR_0x409E 0x409E
|
||||
#define VAR_0x409F 0x409F
|
||||
#define VAR_0x40A0 0x40A0
|
||||
#define VAR_0x40A1 0x40A1
|
||||
#define VAR_0x40A2 0x40A2
|
||||
#define VAR_0x40A3 0x40A3
|
||||
#define VAR_0x40A4 0x40A4
|
||||
#define VAR_0x40A5 0x40A5
|
||||
#define VAR_0x40A6 0x40A6
|
||||
#define VAR_0x40A7 0x40A7
|
||||
#define VAR_0x40A8 0x40A8
|
||||
#define VAR_0x40A9 0x40A9
|
||||
|
||||
#define VAR_QLBAK_TRAINER_REMATCHES 0x40AA
|
||||
#define VAR_QLBAK_MAP_LAYOUT 0x40AE
|
||||
|
||||
#define VAR_0x40AF 0x40AF
|
||||
#define VAR_0x40B0 0x40B0
|
||||
#define VAR_0x40B1 0x40B1
|
||||
#define VAR_0x40B2 0x40B2
|
||||
#define VAR_0x40B3 0x40B3
|
||||
#define VAR_PORTHOLE 0x40B4
|
||||
#define VAR_EVENT_PICHU_SLOT 0x40B5
|
||||
#define VAR_MYSTERY_GIFT_1 0x40B6
|
||||
#define VAR_MYSTERY_GIFT_2 0x40B7
|
||||
#define VAR_MYSTERY_GIFT_3 0x40B8
|
||||
#define VAR_MYSTERY_GIFT_4 0x40B9
|
||||
#define VAR_MYSTERY_GIFT_5 0x40BA
|
||||
#define VAR_MYSTERY_GIFT_6 0x40BB
|
||||
#define VAR_MYSTERY_GIFT_7 0x40BC
|
||||
#define VAR_0x40BD 0x40BD
|
||||
#define VAR_0x40BE 0x40BE
|
||||
#define VAR_0x40BF 0x40BF
|
||||
#define VAR_0x40C0 0x40C0
|
||||
#define VAR_0x40C1 0x40C1
|
||||
#define VAR_0x40C2 0x40C2
|
||||
#define VAR_0x40C3 0x40C3
|
||||
#define VAR_0x40C4 0x40C4
|
||||
#define VAR_0x40C5 0x40C5
|
||||
#define VAR_0x40C6 0x40C6
|
||||
#define VAR_0x40C7 0x40C7
|
||||
#define VAR_0x40C8 0x40C8
|
||||
#define VAR_0x40C9 0x40C9
|
||||
#define VAR_0x40CA 0x40CA
|
||||
#define VAR_0x40CB 0x40CB
|
||||
#define VAR_0x40CC 0x40CC
|
||||
#define VAR_0x40CD 0x40CD
|
||||
#define VAR_0x40CE 0x40CE
|
||||
#define VAR_FRONTIER_FACILITY 0x40CF
|
||||
#define VAR_0x40D0 0x40D0
|
||||
#define VAR_0x40D1 0x40D1
|
||||
#define VAR_0x40D2 0x40D2
|
||||
#define VAR_0x40D3 0x40D3
|
||||
#define VAR_0x40D4 0x40D4
|
||||
#define VAR_0x40D5 0x40D5
|
||||
#define VAR_0x40D6 0x40D6
|
||||
#define VAR_0x40D7 0x40D7
|
||||
#define VAR_0x40D8 0x40D8
|
||||
#define VAR_0x40D9 0x40D9
|
||||
#define VAR_0x40DA 0x40DA
|
||||
#define VAR_0x40DB 0x40DB
|
||||
#define VAR_0x40DC 0x40DC
|
||||
#define VAR_0x40DD 0x40DD
|
||||
#define VAR_0x40DE 0x40DE
|
||||
#define VAR_0x40DF 0x40DF
|
||||
#define VAR_0x40E0 0x40E0
|
||||
#define VAR_0x40E1 0x40E1
|
||||
#define VAR_0x40E2 0x40E2
|
||||
#define VAR_0x40E3 0x40E3
|
||||
#define VAR_0x40E4 0x40E4
|
||||
#define VAR_0x40E5 0x40E5
|
||||
#define VAR_DAILY_SLOTS 0x40E6
|
||||
#define VAR_DAILY_WILDS 0x40E7
|
||||
#define VAR_DAILY_BLENDER 0x40E8
|
||||
#define VAR_DAILY_PLANTED_BERRIES 0x40E9
|
||||
#define VAR_DAILY_PICKED_BERRIES 0x40EA
|
||||
#define VAR_DAILY_ROULETTE 0x40EB
|
||||
#define VAR_0x40EC 0x40EC
|
||||
#define VAR_0x40ED 0x40ED
|
||||
#define VAR_0x40EE 0x40EE
|
||||
#define VAR_0x40EF 0x40EF
|
||||
#define VAR_0x40F0 0x40F0
|
||||
#define VAR_DAILY_BP 0x40F1
|
||||
#define VAR_0x40F2 0x40F2
|
||||
#define VAR_0x40F3 0x40F3
|
||||
#define VAR_0x40F4 0x40F4
|
||||
#define VAR_0x40F5 0x40F5
|
||||
#define VAR_0x40F6 0x40F6
|
||||
#define VAR_0x40F7 0x40F7
|
||||
#define VAR_0x40F8 0x40F8
|
||||
#define VAR_0x40F9 0x40F9
|
||||
#define VAR_0x40FA 0x40FA
|
||||
#define VAR_0x40FB 0x40FB
|
||||
#define VAR_0x40FC 0x40FC
|
||||
#define VAR_0x40FD 0x40FD
|
||||
#define VAR_0x40FE 0x40FE
|
||||
#define VAR_0x40FF 0x40FF
|
||||
|
||||
#define VARS_END 0x40FF
|
||||
#define VARS_COUNT (VARS_END - VARS_START + 1)
|
||||
|
||||
#define SPECIAL_VARS_START 0x8000
|
||||
|
||||
#define VAR_0x8000 0x8000
|
||||
#define VAR_0x8001 0x8001
|
||||
#define VAR_0x8002 0x8002
|
||||
#define VAR_0x8003 0x8003
|
||||
#define VAR_0x8004 0x8004
|
||||
#define VAR_0x8005 0x8005
|
||||
#define VAR_0x8006 0x8006
|
||||
#define VAR_0x8007 0x8007
|
||||
#define VAR_0x8008 0x8008
|
||||
#define VAR_0x8009 0x8009
|
||||
#define VAR_0x800A 0x800A
|
||||
#define VAR_0x800B 0x800B
|
||||
#define VAR_FACING 0x800C
|
||||
#define VAR_RESULT 0x800D
|
||||
#define VAR_ITEM_ID 0x800E
|
||||
#define VAR_LAST_TALKED 0x800F
|
||||
#define VAR_MON_BOX_ID 0x8010
|
||||
#define VAR_MON_BOX_POS 0x8011
|
||||
#define VAR_TEXT_COLOR 0x8012
|
||||
#define VAR_PREV_TEXT_COLOR 0x8013
|
||||
#define VAR_0x8014 0x8014
|
||||
#define SPECIAL_VARS_END 0x8014
|
||||
#define NPC_TEXT_COLOR_MALE 0
|
||||
#define NPC_TEXT_COLOR_FEMALE 1
|
||||
#define NPC_TEXT_COLOR_MON 2
|
||||
#define NPC_TEXT_COLOR_NEUTRAL 3
|
||||
#define NPC_TEXT_COLOR_DEFAULT 255';
|
||||
|
||||
our @EXPORT_OK;
|
||||
|
||||
open my $fh, '<', \$text;
|
||||
my $eval = "";
|
||||
my @vars;
|
||||
while (my $line = <$fh>) {
|
||||
next if $line =~ /^\s*$/;
|
||||
my ($var, $value) = $line =~ /^\s*#define\s+(\w+)\s+(.*)$/;
|
||||
push @vars, "\$$var";
|
||||
$value =~ s/\b([_a-zA-Z]+)\b/\$$1/g;
|
||||
$eval.="our \$$var = $value;\n";
|
||||
$eval.="push \@EXPORT_OK, \"\\\$$var\";\n";
|
||||
}
|
||||
close $fh;
|
||||
eval $eval;
|
||||
if ($@) {
|
||||
die $@;
|
||||
}
|
||||
1;
|
||||
20
lib/Rsaves/Constants/Global.pm
Normal file
20
lib/Rsaves/Constants/Global.pm
Normal file
@ -0,0 +1,20 @@
|
||||
package Rsaves::Constants::Global;
|
||||
|
||||
use v5.34.1;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Exporter;
|
||||
|
||||
use parent 'Exporter';
|
||||
|
||||
our $SAPPHIRE_VERSION = 1;
|
||||
our $RUBY_VERSION = 2;
|
||||
our $EMERALD_VERSION = 3;
|
||||
our $FIRERED_VERSION = 4;
|
||||
our $LEAFGREEN_VERSION = 5;
|
||||
our $COLOSSEUM_VERSION = 15;
|
||||
|
||||
our @EXPORT_OK = (qw/$SAPPHIRE_VERSION $RUBY_VERSION $EMERALD_VERSION $FIRERED_VERSION $LEAFGREEN_VERSION $COLOSSEUM_VERSION/);
|
||||
1;
|
||||
Loading…
Reference in New Issue
Block a user