silverwizard
/
Cyberpunk.enhanced
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Moved character sheet above backstory

Browse Source 
Fixed markdown type
Added a tool to htmlifize the output
master
Silverwizard 5 years ago
parent 4f834bccf9
commit c0134b6baf
2 changed files with 27 additions and 24 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 47
      Cyberpunk.pl
  2. 4
      tohtml.sh

47
Cyberpunk.pl
Unescape View File

@ -2,12 +2,9 @@
use strict; use strict;
use warnings; use warnings;
#print $#ARGV; use constant depth => 5;
#if($#ARGV+1 >= 2){
# use constant depth => $ARGV[1]; $ARGV[0] =~ s/ /_/g;
#}else{
use constant depth => 5;
#}
mkdir $ARGV[0], 0755 unless -d $ARGV[0]; mkdir $ARGV[0], 0755 unless -d $ARGV[0];
generate($ARGV[0], $ARGV[0], 1); generate($ARGV[0], $ARGV[0], 1);
@ -26,7 +23,7 @@ sub generate {
my $EMP = roll(8,3); my $EMP = roll(8,3);
my $BT = roll(8,3); my $BT = roll(8,3);
my $GENDER = table("Male", "Male", "Female", "Male", "Female", "Female", "Male", "Female", "Nonbinary", "Cyborg", "Gender"); my $GENDER = table("Male", "Male", "Female", "Male", "Female", "Female", "Male", "Female", "Nonbinary", "Cyborg", "Gender");
my $SEX = table("Male", "Male", "Female", "Male", "Female", "Female", "Male", "Female", "Nonbinary", "Cyborg", "Sex"); my $SEX = table($GENDER, $GENDER, $GENDER, "Male", "Male", "Female", "Male", "Female", "Female", "Male", "Female", "Nonbinary", "Cyborg", "Sex");
my @ORIENTATION; my @ORIENTATION;
foreach my $item ("Male", "Female", "Nonbinary", "Cyborg"){ foreach my $item ("Male", "Female", "Nonbinary", "Cyborg"){
if(roll(2,1)>1){ if(roll(2,1)>1){
@ -34,7 +31,23 @@ sub generate {
} }
} }
printf $CHAR "Name: " . $_[1] . "\n"; 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";
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("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"); printf $CHAR table("Mohawk", "Long & Ratty", "Short & Spiked", "Wild & all over", "Bald", "Stripped", "Tinted", "Neat, short", "Short, curly", "Long, straight", "Hair");
@ -306,21 +319,6 @@ sub generate {
} }
$age = $age-1; $age = $age-1;
} }
printf $CHAR "INT: " . $INT . "\n\n";
printf $CHAR "REF: " . $REF . "\n\n";
printf $CHAR "CL: " . $CL . "\n\n";
printf $CHAR "TECH: " . $TECH . "\n\n";
printf $CHAR "LK: " . $LK . "\n\n";
printf $CHAR "ATT: " . $ATT . "\n\n";
printf $CHAR "MA: " . $MA . "\n\n";
printf $CHAR "EMP: " . $EMP . "\n\n";
printf $CHAR "BT: " . $BT . "\n\n\n";
printf $CHAR $GENDER . "\n\n";
printf $CHAR $SEX . "\n\n";
printf $CHAR "Orientation: ";
foreach my $item (@ORIENTATION) {
printf $CHAR $item . " ";
}
printf $CHAR "\n\n"; printf $CHAR "\n\n";
close($CHAR); close($CHAR);
} }
@ -331,7 +329,8 @@ sub roll{
sub name{ sub name{
my $name = `notwhoami|head -n1`; my $name = `notwhoami|head -n1`;
return $name; $name =~ s/ /_/g;
return $name
} }
sub table{ sub table{

4
tohtml.sh
Unescape View File

@ -0,0 +1,4 @@
for char in `ls $1`
do
markdown $1/$char > $1/`echo $char |sed 's/.md$/.html/'`
done
Write Preview
Loading…
Cancel
Save