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

Fixed gold generation

Browse Source
This commit is contained in:
Alex Kerr 2015-02-10 00:34:35 +00:00
parent 591c8e5dae
commit 262f337b7b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/OSRIC/Character.pm
View File

@ -189,12 +189,12 @@ sub generate_gold
my $self = shift; my $self = shift;
# Get the classes and sort by the highest starting gold (see page 28): # Get the classes and sort by the highest starting gold (see page 28):
my @sorted = sort { "OSRIC::Class::$a"->max_starting_gold <=> my @sorted = sort { "OSRIC::Class::$b"->max_starting_gold <=>
"OSRIC::Class::$b"->max_starting_gold } "OSRIC::Class::$a"->max_starting_gold }
@{$self->{personal}->{classes}}; @{$self->{personal}->{classes}};
# Generate the starting gold: # Generate the starting gold:
$self->{wealth}->{coins} = "OSRIC::Class::$classes[0]"->get_gold; $self->{wealth}->{coins} = "OSRIC::Class::$sorted[0]"->get_gold;
} }
# Encodes the character to JSON: # Encodes the character to JSON: