From d7da1100fe50e18318ae5d983338742f73e46823 Mon Sep 17 00:00:00 2001 From: Sergiotarxz Date: Sun, 10 Mar 2024 21:47:50 +0100 Subject: [PATCH] Adding missing natures. --- lib/Rsaves/Constants/Emerald/Natures.pm | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 lib/Rsaves/Constants/Emerald/Natures.pm diff --git a/lib/Rsaves/Constants/Emerald/Natures.pm b/lib/Rsaves/Constants/Emerald/Natures.pm new file mode 100644 index 0000000..f567122 --- /dev/null +++ b/lib/Rsaves/Constants/Emerald/Natures.pm @@ -0,0 +1,21 @@ +package Rsaves::Constants::Emerald::Natures; + +use v5.16.3; + +use strict; +use warnings; + +our @NATURES = ( + 'HARDY', 'LONELY', 'BRAVE', 'ADAMANT', 'NAUGHTY', 'BOLD', + 'DOCILE', 'RELAXED', 'IMPISH', 'LAX', 'TIMID', 'HASTY', + 'SERIOUS', 'JOLLY', 'NAIVE', 'MODEST', 'MILD', 'QUIET', + 'BASHFUL', 'RASH', 'CALM', 'GENTLE', 'SASSY', 'CAREFUL', + 'QUIRKY', +); + +our %NATURE_TO_ID; +for (my $i = 0; $i < scalar @NATURES; $i++) { + my $nature = $NATURES[$i]; + $NATURE_TO_ID{$nature} = $i; +} +1;