lpst.pl - changed enum for pieces

lpst.pl

@@ -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,