gashapwn/lpst
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lpst.pl - changed enum for pieces

Browse Source
This commit is contained in:
gashapwn 2021-04-04 01:20:45 +00:00
parent 5bf5dc8d3f
commit 36e02db08c
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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