lpst.pl - changed enum for pieces

This commit is contained in:
gashapwn 2021-04-04 01:20:45 +00:00
parent 5bf5dc8d3f
commit 36e02db08c

34
lpst.pl
View File

@ -23,23 +23,23 @@ my $TRAIL_2 = substr($HEX_1, -1, 1);
my $TRAIL_3 = substr($HEX_1, 0, 2);
# Pieces
my $MG_A = 0; # Apprentice
my $MG_I = 1; # Iron Maiden
my $MG_N = 2; # Nekomata
my $MG_IT = 3; # Ittan-Momen
my $MG_H = 4; # Harpy
my $MG_S = 5; # Slime
my $MG_RC = 6; # Redcap
my $MG_RO = 7; # Red Oni
my $MG_HS = 8; # Holstaur
my $MG_B = 9; # Blue Oni
my $MG_P = 10; # Preistess
my $MG_IM = 11; # Imp
my $MG_F = 12; # False Angel
my $MG_QS = 13; # Queen slime
my $MG_AU = 14; # Automaton
my $MG_SY = 15; # Sylph
my $MG_Q = 16; # Queen
my $MG_A = "A"; # Apprentice
my $MG_I = "I"; # Iron Maiden
my $MG_N = "N"; # Nekomata
my $MG_IT = "It"; # Ittan-Momen
my $MG_H = "H"; # Harpy
my $MG_S = "S"; # Slime
my $MG_RC = "Rc"; # Redcap
my $MG_RO = "Hs"; # Red Oni
my $MG_HS = "Ro"; # Holstaur
my $MG_B = "B"; # Blue Oni
my $MG_P = "P"; # Preistess
my $MG_IM = "Im"; # Imp
my $MG_F = "F"; # False Angel
my $MG_QS = "Qs"; # Queen slime
my $MG_AU = "Au"; # Automaton
my $MG_SY = "Sy"; # Sylph
my $MG_Q = "Q"; # Queen
my %AXIS = (
"A" => 1,