package SkunkPlayer::Random;
my $meta_object = {
  NAME => "Random Roller",
  DESCRIPTION => "Rolls randomly",
  CREATE => sub { new (__PACKAGE__, @_} }
};

sub ask_to_roll {
  return (rand() < shift->{R}) ? 1 : 0;
}