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; package OSRIC::Character;
use OSRIC::Classes; use OSRIC::Class;
use OSRIC::Classes::Assassin; use OSRIC::Class::Assassin;
use OSRIC::Classes::Cleric; use OSRIC::Class::Cleric;
use OSRIC::Classes::Druid; use OSRIC::Class::Druid;
use OSRIC::Classes::Fighter; use OSRIC::Class::Fighter;
use OSRIC::Classes::Illusionist; use OSRIC::Class::Illusionist;
use OSRIC::Classes::MagicUser; use OSRIC::Class::MagicUser;
use OSRIC::Classes::Paladin; use OSRIC::Class::Paladin;
use OSRIC::Classes::Ranger; use OSRIC::Class::Ranger;
use OSRIC::Classes::Thief; use OSRIC::Class::Thief;
use OSRIC::Util qw/d/; use OSRIC::Util qw/d/;
use JSON qw/encode_json/; use JSON qw/encode_json/;
@ -20,9 +20,9 @@ sub new
my $class = shift; my $class = shift;
my $character = my $character =
{ {
irc => "", # The player's irc nick, not found on the character sheet.
personal => personal =>
{ {
irc => "", # The player's irc nick, not found on the character sheet.
name => "", name => "",
classes => [ ], classes => [ ],
alignment => "", alignment => "",
@ -82,11 +82,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 { $a->max_starting_gold <=> $b->max_starting_gold } my @sorted = sort { "OSRIC::Class::$a"->max_starting_gold <=>
@{$self->{personal}->{classes}}; "OSRIC::Class::$b"->max_starting_gold }
@{$self->{personal}->{classes}};
# Generate the starting gold: # 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: # Encodes the character to JSON: