Added directories and symlinks to distinguish characters by gender to allow later usage

pinebook
silverwizard 5 years ago
parent c0c5b6cf2c
commit ac3b888288
  1. 3
      Cyberpunk.pl

@ -8,7 +8,7 @@ $ARGV[0] =~ s/ /_/g;
mkdir $ARGV[0], 0755 unless -d $ARGV[0]; mkdir $ARGV[0], 0755 unless -d $ARGV[0];
foreach my $item ("Male", "Female", "Nonbinary", "Cyborg"){ foreach my $item ("Male", "Female", "Nonbinary", "Cyborg"){
mkdir $ARGV[0] . "/" . $item,"0755" unless -d $ARGV[0] . "/" . $item; mkdir $ARGV[0] . "/" . $item unless -d $ARGV[0] . "/" . $item;
} }
generate($ARGV[0], $ARGV[0], 1); generate($ARGV[0], $ARGV[0], 1);
@ -33,6 +33,7 @@ sub generate {
push(@ORIENTATION, $item); push(@ORIENTATION, $item);
} }
} }
symlink($_[0] . "/" . $_[1] . ".md", $_[0] . "/" . $GENDER . "/" . $_[1] . ".md");
printf $CHAR "Name: " . $_[1] . "\n\n"; printf $CHAR "Name: " . $_[1] . "\n\n";
printf $CHAR "INT: " . $INT . "\n"; printf $CHAR "INT: " . $INT . "\n";

Loading…
Cancel
Save