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

Added functions to generate and set class, set race, set irc

Browse Source
This commit is contained in:
Alex Kerr 2015-02-03 15:37:27 +00:00
parent d0d47c901f
commit 65a34abb19
1 changed files with 69 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
lib/OSRIC/Character.pm
View File

@ -23,6 +23,9 @@ use OSRIC::Class::Thief;
use OSRIC::Util qw/d/; use OSRIC::Util qw/d/;
use JSON qw/encode_json/; use JSON qw/encode_json/;
# These functions are ordered in this file in the order they are to be
# called in:
# Generates a new character: # Generates a new character:
sub new sub new
{ {
@ -71,6 +74,13 @@ sub new
bless $character, $class; bless $character, $class;
} }
# Sets the player's irc nick:
sub set_irc
{
my $self = shift;
$self->{irc} = shift;
}
# Generates the 6 major stats: # Generates the 6 major stats:
sub generate_stats sub generate_stats
{ {
@ -116,6 +126,65 @@ sub get_available_races
return @races; return @races;
} }
# Sets the race of the player:
sub set_race
{
my $self = shift;
$self->{personal}->{race} = shift;
# Increase the stats based on any racial stat boosts:
my $stats_boosts = "OSRIC::Race::$self->{personal}->{race}"->stats_boosts;
print "Stats:\n";
for my $stat(keys %{$self->{stats}})
{
$self->{stats}->{$stat} += $stats_boosts->{$stat};
print "\t$stat = $self->{stats}->{$stat}\n";
}
}
# Return a list of available classes based on the player's race and stats:
sub get_available_classes
{
my $self = shift;
my $race = $self->{personal}->{race};
my $possible_classes = "OSRIC::Race::$race"->permitted_classes;
my @classes = @$possible_classes;
# Loops over the permitted classes:
my $break = 0;
for my $classes(@$possible_classes)
{
# Loop over each class (there are some dual or triple classes):
for my $class(@$classes)
{
# Check if the player's stats allow for this class:
my $min = "OSRIC::Class::$class"->minimum_scores;
for my $stat(keys %$min)
{
if($self->{stats}->{$stat} < $min->{$stat})
{
# If not, remove it from the list of possible classes:
@classes = grep { $_ != $classes } @classes;
# Break from the loop:
$break = 1;
last;
}
last if($break);
}
$break = 0 if($break);
}
}
return @classes;
}
# Takes an arrayref to an array of class names, sets it to the plauer's class:
sub set_class
{
my $self = shift;
$self->{personal}->{classes} = shift;
}
# Gives the player a certain amount of starting gold (class-dependant): # Gives the player a certain amount of starting gold (class-dependant):
sub generate_gold sub generate_gold
{ {