24 lines
421 B
Perl
24 lines
421 B
Perl
package OSRIC::Classes::Druid;
|
|
use parent qw(Classes);
|
|
use OSRIC::Util qw/d/;
|
|
|
|
# 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 { 180 }
|
|
sub get_gold { ((d(6) + d(6) + d(6)) * 10) } # 3d6 * 10
|
|
|
|
# Minimum score requirements:
|
|
sub minimum_scores
|
|
{
|
|
{
|
|
str => 6,
|
|
dex => 6,
|
|
con => 6,
|
|
int => 6,
|
|
wis => 12,
|
|
cha => 15,
|
|
}
|
|
}
|
|
|
|
1;
|