ok! I did the needful!

pinebook
silverwizard 5 years ago
parent 171483672f
commit 0d185b281e
  1. 32
      Cyberpunk.pl

@ -3,7 +3,7 @@ use strict;
use warnings;
use File::Random qw/:all/;
use constant depth => 10;
use constant depth => 5;
$ARGV[0] =~ s/ /_/g;
$ARGV[1] =~ s/ /_/g;
@ -28,8 +28,9 @@ sub generate {
my $MA = roll(8,3);
my $EMP = roll(8,3);
my $BT = roll(8,3);
my @POSSEX = $_[3]->[0];
my $genderroll = roll(scalar @POSSEX-1,0);
my @POSSEX = @{ $_[3] };
my $genderroll = roll(scalar @POSSEX,1);
$genderroll = $genderroll -1;
my $GENDER = $POSSEX[$genderroll];
my $SEX = table($GENDER, $GENDER, $GENDER, "Male", "Male", "Female", "Male", "Female", "Female", "Male", "Female", "Nonbinary", "Cyborg", "Sex");
my @ORIENTATION;
@ -38,10 +39,6 @@ sub generate {
push(@ORIENTATION, $item);
}
}
$GENDER =~ s/^.*: //;
chomp($GENDER);
chomp($GENDER);
symlink("../" . "/" . $_[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");
@ -73,10 +70,8 @@ sub generate {
}else{
printf $CHAR " twin";
}
#my $ch = name($_[0],$_[1],0,0);
my $ch = name($_[0],$_[1],$_[2],\@SEXES,1);
#printf $CHAR " sibling, named " . $ch . " who ";
printf $CHAR " sibling, named [" . $ch . "](" . $ch . ".html) who ";
printf $CHAR " sibling, named " . $ch . " who ";
$var = roll(10,1);
if(($var == 1)||($var == 2)){
printf $CHAR "dislikes you\n\n";
@ -334,21 +329,21 @@ sub name{
my $name;
my $flip;
my $named = 0;
my @POSSEX = $_[3]->[0];
my @POSSEX = @{ $_[3] };
if (scalar @POSSEX == 0){
@POSSEX = @SEXES;
}
my $genderroll = roll(scalar @POSSEX-1,0);
my $GENDER = $POSSEX[$genderroll];
$flip = roll(depth*2,1);
if($flip <= $_[2] || $_[2] > depth || defined $_[4] ){
$flip = roll(depth*1.5,1);
if($flip <= $_[2] && $_[2] < depth && !defined $_[4] ){
my $dir = "./" . $ARGV[0] . "/" . $GENDER;
print "Dir: ". $dir . "\n";
$name = File::Random::random_file(
-dir => "$dir",
-follow => 1,
-recursive => 1
);
print "Name: " . $name . "\n";
$name =~ s/.md$//g;
if($name ne $_[1]){
if($name ne $_[1] && $name ne ""){
$named = 1;
}
}
@ -356,10 +351,11 @@ sub name{
$name = `notwhoami|head -n1`;
$name =~ s/ /_/g;
chomp($name);
if($_[2] < depth){
if($_[2] < depth && !defined $_[4]){
generate($_[0], $name, $_[2]+1,\@POSSEX);
}
}
$name =~ s/.md$//g;
return $name;
}

Loading…
Cancel
Save