Select Code to Download

use Tie::Array;
@ISA = qw(Tie::StdArray);
...
    }
    $self->[$index];
}

my @MagicItems; tie @MagicItems, main; # main, or the package of your 
+code
@MagicItems = (
...
    sub { "repels $MagicItemGroup[rand @MagicItemGroup] $radius"},
    sub { "destroys $MagicItemGroup[rand @MagicItemGroup] $radius"},
);

for (1..10) {
    print $MagicItems[rand(@MagicItems,)],"\n";
};

can not use any magic items
can not use magic items in the Magical Liquids group
...
causes magic items in the Humorous Items group to loose their power in
+ a 20' radius
can only use magic items in the Weird Stuff group
can only use magic items in the Humorous Items group