|
|
|
@ -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); |
|
|
|
|
} |
|
|
|
|