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

Renamed 'Classes' class, use class methods

Browse Source
This commit is contained in:
Alex Kerr 2015-01-22 12:40:56 +00:00
parent 3e5cab4aee
commit 30c4f4929d
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lib/OSRIC/Character.pm
View File

@ -1,15 +1,15 @@
package OSRIC::Character;
use OSRIC::Classes;
use OSRIC::Classes::Assassin;
use OSRIC::Classes::Cleric;
use OSRIC::Classes::Druid;
use OSRIC::Classes::Fighter;
use OSRIC::Classes::Illusionist;
use OSRIC::Classes::MagicUser;
use OSRIC::Classes::Paladin;
use OSRIC::Classes::Ranger;
use OSRIC::Classes::Thief;
use OSRIC::Class;
use OSRIC::Class::Assassin;
use OSRIC::Class::Cleric;
use OSRIC::Class::Druid;
use OSRIC::Class::Fighter;
use OSRIC::Class::Illusionist;
use OSRIC::Class::MagicUser;
use OSRIC::Class::Paladin;
use OSRIC::Class::Ranger;
use OSRIC::Class::Thief;
use OSRIC::Util qw/d/;
use JSON qw/encode_json/;
@ -20,9 +20,9 @@ sub new
my $class = shift;
my $character =
{
irc => "", # The player's irc nick, not found on the character sheet.
personal =>
{
irc => "", # The player's irc nick, not found on the character sheet.
name => "",
classes => [ ],
alignment => "",
@ -82,11 +82,12 @@ sub generate_gold
my $self = shift;
# Get the classes and sort by the highest starting gold (see page 28):
my @sorted = sort { $a->max_starting_gold <=> $b->max_starting_gold }
@{$self->{personal}->{classes}};
my @sorted = sort { "OSRIC::Class::$a"->max_starting_gold <=>
"OSRIC::Class::$b"->max_starting_gold }
@{$self->{personal}->{classes}};
# Generate the starting gold:
$self->{wealth}->{coins} = $classes[0]->get_gold;
$self->{wealth}->{coins} = "OSRIC::Class::$classes[0]"->get_gold;
}
# Encodes the character to JSON: