osric-cgi/lib/OSRIC/Class/Fighter.pm
2015-02-24 03:18:56 +00:00

34 lines
571 B
Perl

package OSRIC::Class::Fighter;
use parent qw(OSRIC::Class);
use OSRIC::Util qw/d alignments/;
# A sub to get the maximum amount of starting gold (for sorting) and one to get
# an actual amount of starting gold:
sub max_starting_gold { 200 }
sub get_gold { ((d(6, 3) + 2) * 10) } # (3d6 + 2) * 10
# The starting HP of the class:
sub get_hp { d(10) }
# Minimum score requirements:
sub minimum_scores
{
{
str => 9,
dex => 6,
con => 7,
int => 3,
wis => 6,
cha => 6,
}
}
# The allowed alignments
sub get_alignments
{
my @a = alignments;
return \@a;
}
1;