34 lines
607 B
Perl
34 lines
607 B
Perl
package OSRIC::Class::Paladin;
|
|
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 => 12,
|
|
dex => 6,
|
|
con => 9,
|
|
intl => 9,
|
|
wis => 13,
|
|
cha => 17,
|
|
}
|
|
}
|
|
|
|
# The allowed alignments
|
|
sub get_alignments
|
|
{
|
|
my @a = grep { $_ =~ /^lawful good$/i } alignments;
|
|
return \@a;
|
|
}
|
|
|
|
1;
|