Which one is you? I can't seem to find you among your gang for some reason.
Here is seriously what I have.
my $line = "--------------------------------------------------------------------------------";
print $line;
print "\nBLACK PEARL\n";
print "WHIPPLE GAMES 2015\n\n";
print $line;
print "\nWARNING, CLOSING THE GAME WILL CAUSE LOSS OF DATA, DO NOT CLOSE THE GAME UNTIL\nYOU ARE FINISHED\n\n";
print $line;
while (42) {
print "\nWelcome, to Black Pearl. To start, we need to build you a character. \nCan I have your name?\n";
my $name = <STDIN>;
chomp $name;
print "\nGender? Enter as m or f\n";
my $gender = <STDIN>;
chomp $gender;
while($gender ne 'm' and $gender ne 'f') {
print "\nQuit trying, pick m or f\n";
$gender = <STDIN>;
chomp $gender;
};
if($gender eq 'm'){
$fullgender = "male";
chomp $fullgender;
$he = "he";
$his = "his";
$him = "him";
};
if($gender eq 'f'){
$fullgender = "female";
chomp $fullgender;
$he = "she";
$his = "her";
$him = "her";
};
print "\nSo, your name is $name and you are $fullgender\nIs this correct?\n(y/n)\n";
$begin = <STDIN>;
chomp $begin;
if($begin eq 'y'){
last;
};
};
print $line;
print "
You open your eyes, far to quickly as you soon realise. The light burns your
pupils, and you fell intense pain. You cover your eyes with your forearm, and
lift yourself off of a stone floor.
'Look, fresh meat's awake!' someone shouts from your right.
'Why is $he so _____'
a)small
b)bulky\n";
my $choice = <STDIN>;
chomp $choice;
my $choiceans = "
";
while ($choice ne 'a' and $choice ne 'b') {
print "\nHINT: Answer a or b\n";
$choice = <STDIN>;
chomp $choice;
};
#Defining stats here-----------------------------------------------------
my $hp = 0;
my $weight = 0;
my $speed = 0;
my $defense = 0;
my $strength = 0;
my $int = 0;
my $dex = 0;
if($choice eq 'a'){
$hp = 10;
$speed = 4;
$defense = 1;
$weight = 55;
$dex = 3;
$choiceans = "small";
chomp $choiceans;
};
if($choice eq 'b'){
$hp = 20;
$speed = 1;
$defense = 4;
$weight = 90;
$dex = 0;
$choiceans = "bulky";
chomp $choiceans;
};
print "
'Yah, he is pretty $choiceans' a woman agrees.
You finally open your eyes, and can see clearly. You look to the left and see
bars, you're in a prison. The smell of salt and sounds of waves inform you of
an ocean right outside. You try to remember why you are here, but you only
remember your name, $name.
You stand up straight, and another comment erupts.
'Wow, $he ____ really fit'
a) is
b) isn't\n";
my $choice = <STDIN>;
chomp $choice;
my $choiceans = "
";
while ($choice ne 'a' and $choice ne 'b') {
print "\nHINT: Answer a or b\n";
$choice = <STDIN>;
chomp $choice;
};
if($choice eq 'a'){
$strength = 4;
$speed += 1;
$int = 2;
$dex += 4;
$choiceans = "buff";
chomp $choiceans;
};
if($choice eq 'b'){
$strength = 10;
$speed -= 1;
$int = 7;
$dex += 1;
$choiceans = "fat";
chomp $choiceans;
};
print "
'Yeuh, $he be $choiceans'
You look at your cellmates. Four people stand before you.
A blonde woman sits on the top bunk of the bed provided. She has her legs
hanging over the edge. She is a little taller than you, and has a scar on her
forehead.
A bulky man stands in the corner with an idiotic look on his face. He made the
grammatically lacking comment on your physical form a few seconds ago. He
towers over you, and is missing several teeth.
Another man is on the bottom bunk. He is messing with a rock he probably pulled
out of the crumbling wall. He seems to be giving you only half of his attention
and the other half seems to be wandering. He also has an idiotic grin, but it's
probably because he just came up with a pun.
Finally, a short, impish person is hanging from the ceiling. He is gripping the
ceiling of the cell on a little ledge that shouldn't support his weight, yet he
seems to be in no danger of falling, he lets go, and flips in the air, landing
on the ground with his hand outstretched to welcome a handshake.
";
<STDIN>
Look nice?
This is 45 seconds of gameplay
FML