Adding missing natures.
This commit is contained in:
parent
27bddb53f8
commit
d7da1100fe
|
@ -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;
|
Loading…
Reference in New Issue