osric-cgi/lib/OSRIC/Class/Assassin.pm

34 lines
586 B
Perl
Raw Normal View History

2015-01-22 07:39:45 -05:00
package OSRIC::Class::Assassin;
use parent qw(OSRIC::Class);
2015-02-23 22:18:56 -05:00
use OSRIC::Util qw/d alignments/;
2015-01-07 11:13:22 -05:00
# 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 }
2015-01-28 04:34:27 -05:00
sub get_gold { (d(6, 2) * 10) } # 2d6 * 10
2015-01-07 11:13:22 -05:00
2015-02-10 11:07:42 -05:00
# The starting HP of the class:
sub get_hp { d(6) }
2015-01-07 11:13:22 -05:00
# Minimum score requirements:
sub minimum_scores
{
{
str => 12,
dex => 12,
con => 6,
int => 11,
wis => 6,
cha => 0,
}
}
2015-02-23 22:18:56 -05:00
# The allowed alignments
sub get_alignments
{
my @a = grep { $_ =~ /^evil/i } alignments;
return \@a;
}
2015-01-07 11:13:22 -05:00
1;