srp/osric-cgi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added function to generate age

Browse Source
This commit is contained in:
Alex Kerr 2015-02-10 01:05:32 +00:00
parent b7ded35eca
commit e22b88537e
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lib/OSRIC/Character.pm
View File

@ -197,6 +197,27 @@ sub generate_gold
$self->{wealth}->{coins} = "OSRIC::Class::$sorted[0]"->get_gold; $self->{wealth}->{coins} = "OSRIC::Class::$sorted[0]"->get_gold;
} }
# Generates the player's age. If multiple classes are used, the average is
# taken (this was discussed with vypr):
sub generate_age
{
my $self = shift;
# Get the hash of age subs for the character's race:
my $race = $self->{personal}->{race};
my $age_subs = "OSRIC::Race::$race"->ages;
# Loop over each class and add the generated age to the player:
for my $class(@{$self->{personal}->{classes}})
{
my $class = lc $class;
$self->{personal}->{age} += &{$age_subs->{$class}};
}
# Divide by the number of classes:
$self->{personal}->{age} /= @{$self->{personal}->{classes}};
}
# Encodes the character to JSON: # Encodes the character to JSON:
sub as_json sub as_json
{ {