osric-cgi/lib/OSRIC/Class/Thief.pm
2015-01-28 09:34:27 +00:00

24 lines
409 B
Perl

package OSRIC::Class::Thief;
use parent qw(OSRIC::Class);
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 { 120 }
sub get_gold { (d(6, 2) * 10) } # 2d6 * 10
# Minimum score requirements:
sub minimum_scores
{
{
str => 6,
dex => 9,
con => 6,
int => 6,
wis => 0,
cha => 6,
}
}
1;