This code snippet contains a bug free(R) expression allowing you to parse D20 notation dice, so you can parse strings like 3D6,3D6+4 and 3D6+4x1000 obtaining as result (for 3D6+4x1000):
$dtime = 3
$dface = 6
$addfact = 4
$mulfact = 1000
The snippet set also right default value is a field is missing, so you can use returned value directly for calculation 
#!/usr/bin/perl -w 
use strict;
my @sample=("3D6+","3D6","3D6+4","3D6+4x1000");
##############################THE BIG, THE ONE
my $rexp='^([1-9][0-9]*)[Dd]([1-9][0-9]*)(\+([1-9][0-9]*)(x([1-9][0-9]
+*))?)?$';
my ($dtime,$dface,$foo,$addfact,$bar,$mulfact);
foreach (@sample)
{
    if (/$rexp/)
    {
        map{$_=0 if !defined($_)}($dtime,$dface,$foo,$addfact,$bar)=($
+1,$2,$3,$4,$5);
        $mulfact=(!defined($6))?1:$6;
        print "$_ is $dtime dices with $dface faces plus $addfact all 
+mult by $mulfact\n";
    }
}

[download]

Replies are listed 'Best First'.
Re: D20 dice throw parser
by thor (Priest) on Dec 17, 2004 at 13:53 UTC
    What about Games::Die::Dice?

    thor

    Feel the white light, the light within
    Be your own disciple, fan the sparks of will
    For all of us waiting, your kingdom will come

[reply]
      It doesn't parse the xDIGIT* component. I've developed it for teasure generator, that require this features.
[reply]
        What about this: 
        use Game::Die::Dice;
my $input = "1D4x10";
my ($pass_to_module, $mult) = split('x', $input);
$mult = defined($mult) ? $mult : 1;
my $dice = new Games::Die::Dice($pass_to_module);
my $treasure -= $mult * $dice->roll();

        [download]

        Alternatively, submit a patch to the maintainers of that module so that it accepts multipliers. Something to consider though: what about rolls like "1d4x10+10"? Your current approach probably doesn't handle this...

        thor

        Feel the white light, the light within
        Be your own disciple, fan the sparks of will
        For all of us waiting, your kingdom will come

[reply]
[d/l]

Back to Cool Uses for Perl