From d62540f8b5aad51fde446fcaca4cc56b8385355c Mon Sep 17 00:00:00 2001
From: silverwizard <silver@callysto.com>
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);
 }