printf$CHAR"Lover, friend, or relative killed. You lost someone you really cared about (named ".name().") ";
printf$CHAR"Lover, friend, or relative killed. You lost someone you really cared about (named ".name($_[0],$_[1],$_[2],0).") ";
my$how=roll(10,1);
if($how<=5){
printf$CHAR"They died accidentally.\n\n";
@ -228,18 +228,14 @@ sub generate {
}elsif($var<=6){
$var=roll(10,1);
if($var<=5){
my$ch=name();
printf$CHAR"You made a friend named [".substr($ch,0,-1)."](".substr($ch,0,-1).".html).\n\n";
#DEBUG
print"0: ".$_[0]." 2: ".$_[2]."\n";
my$ch=name($_[0],$_[1],$_[2]);
printf$CHAR"You made a friend named [".$ch."](".$ch.".html).\n\n";
printf$CHARtable("They are like a big brother/sister to you.","They are like a kid sister/brother to you.","They are like a teacher or mentor.","They are like a partner or co-worker.","They're an old lover.","They're an old enemy.","They are like a foster parent to you.","They're a relative.","You've reconnected with an old childhood friend.","You met through a common interest.","Your relationship");
if($_[2]<depth){
generate($_[0],substr($ch,0,-1),$_[2]+1);
}
}else{
my$ch=name();
printf$CHAR"You made an enemy named [".substr($ch,0,-1)."](".substr($ch,0,-1).".html).\n\n";
if($_[2]<depth){
generate($_[0],substr($ch,0,-1),$_[2]+1);
}
my$ch=name($_[0],$_[1],$_[2]);
printf$CHAR"You made an enemy named [".$ch."](".$ch.".html).\n\n";
printf$CHARtable("Ex friend.","Ex lover.","Relative.","Childhood enemy.","Person working for you.","Person you work for.","Partner or co-worker.","Booster gang member.","Corporate Exec.","Government official.","Who are they");
my$why=roll(10,1);
SWITCH:{
@ -298,12 +294,9 @@ sub generate {
}
}
}elsif($var<=8){
my$ch=name();
printf$CHAR"You had a romance! With someone named [".substr($ch,0,-1)."](".substr($ch,0,-1).".html).\n\n";
my$ch=name($_[0],$_[1],depth+1,0);
printf$CHAR"You had a romance! With someone named [".$ch."](".$ch.".html).\n\n";