From d62540f8b5aad51fde446fcaca4cc56b8385355c Mon Sep 17 00:00:00 2001 From: silverwizard Date: Sat, 24 Aug 2019 00:23:24 -0400 Subject: [PATCH] Fixed so that gender is now tagged on all characters --- Cyberpunk.pl | 38 ++++++++++++++++++++------------------ 1 file changed, 20 insertions(+), 18 deletions(-) diff --git a/Cyberpunk.pl b/Cyberpunk.pl index c2ff111..efc4f2e 100755 --- a/Cyberpunk.pl +++ b/Cyberpunk.pl @@ -33,25 +33,11 @@ sub generate { push(@ORIENTATION, $item); } } - symlink($_[0] . "/" . $_[1] . ".md", $_[0] . "/" . $GENDER . "/" . $_[1] . ".md"); - printf $CHAR "Name: " . $_[1] . "\n\n"; - printf $CHAR "INT: " . $INT . "\n"; - printf $CHAR "REF: " . $REF . "\n"; - printf $CHAR "CL: " . $CL . "\n"; - printf $CHAR "TECH: " . $TECH . "\n"; - printf $CHAR "LK: " . $LK . "\n"; - printf $CHAR "ATT: " . $ATT . "\n"; - printf $CHAR "MA: " . $MA . "\n"; - printf $CHAR "EMP: " . $EMP . "\n"; - printf $CHAR "BT: " . $BT . "\n\n"; - printf $CHAR $GENDER; - printf $CHAR $SEX; - printf $CHAR "Orientation: "; - foreach my $item (@ORIENTATION) { - printf $CHAR $item . " "; - } - printf $CHAR "\n\n"; + $GENDER =~ s/^.*: //; + chomp($GENDER); + chomp($GENDER); + symlink($_[0] . "/" . $_[1] . ".md", $_[0] . "/" . $GENDER . "/" . $_[1] . ".md"); printf $CHAR table("Biker Leathers", "Blue Jeans", "Corporate Suits", "Jumpsuits", "Miniskirts", "High Fashion", "Cammos", "Normal Clothes", "Nude", "Bag Lady Chic", "Generally Wears"); printf $CHAR table("Mohawk", "Long & Ratty", "Short & Spiked", "Wild & all over", "Bald", "Stripped", "Tinted", "Neat, short", "Short, curly", "Long, straight", "Hair"); @@ -323,6 +309,22 @@ sub generate { } $age = $age-1; } + printf $CHAR "Name: " . $_[1] . "\n\n"; + printf $CHAR "INT: " . $INT . "\n"; + printf $CHAR "REF: " . $REF . "\n"; + printf $CHAR "CL: " . $CL . "\n"; + printf $CHAR "TECH: " . $TECH . "\n"; + printf $CHAR "LK: " . $LK . "\n"; + printf $CHAR "ATT: " . $ATT . "\n"; + printf $CHAR "MA: " . $MA . "\n"; + printf $CHAR "EMP: " . $EMP . "\n"; + printf $CHAR "BT: " . $BT . "\n\n"; + printf $CHAR $GENDER; + printf $CHAR $SEX; + printf $CHAR "Orientation: "; + foreach my $item (@ORIENTATION) { + printf $CHAR $item . " "; + } printf $CHAR "\n\n"; close($CHAR); }