printf$CHAR" sibling, named [".$ch."](".$ch.".html) who ";
$var=roll(10,1);
if(($var==1)||($var==2)){
printf$CHAR"dislikes you\n\n";
@ -152,7 +155,7 @@ sub generate {
lastSWITCH;
};
$var==6&&do{
printf$CHAR"Lover, friend, or relative killed. You lost someone you really cared about (named ".name($_[0],$_[1],$_[2],0).") ";
printf$CHAR"Lover, friend, or relative killed. You lost someone you really cared about (named ".name($_[0],$_[1],$_[2],@SEXES,0).") ";
my$how=roll(10,1);
if($how<=5){
printf$CHAR"They died accidentally.\n\n";
@ -229,11 +232,11 @@ sub generate {
}elsif($var<=6){
$var=roll(10,1);
if($var<=5){
my$ch=name($_[0],$_[1],$_[2]);
my$ch=name($_[0],$_[1],$_[2],@SEXES);
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");
}else{
my$ch=name($_[0],$_[1],$_[2]);
my$ch=name($_[0],$_[1],$_[2],@SEXES);
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);
@ -293,7 +296,7 @@ sub generate {
}
}
}elsif($var<=8){
my$ch=name($_[0],$_[1],$_[2]);
my$ch=name($_[0],$_[1],$_[2],@ORIENTATION);
printf$CHAR"You had a romance! With someone named [".$ch."](".$ch.".html).\n\n";