sub rollDX { rand(shift->{dx}); }
    

##</code><code>##

    sub new { # this was named RNG
            my $class = shift;
            my $self = { dx => 0 };
            return bless $self, $class;
    }
    

##</code><code>##

    sub roll {
            my ($self, $dxx) = shift;
    

##</code><code>##

    sub roll {
            my ($self, $dxx) = @_;
    

##</code><code>##

    package HollyGameAI::RNG;
    use strict;
    use warnings;
    use Carp;

    our $roll_dispatch = {
        0  => sub {0},
        1  => \&rollD1,
        3  => \&rollD3,
        6  => \&rollD6,
        10 => \&rollD10,
        20 => \&rollD20,
    };

    sub roll {
            my ($self, $dxx) = @_;
            $self->set($dxx);        
            return 0 unless defined $roll_dispatch->{$dxx};
            return $roll_dispatch->{$dxx}->();
    }