#!/usr/bin/perl
#this script is meant to generate common dice for dicejinni
# Generate beginning of xml document
print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
print "<DiceJinni> \n";
#name of the set for the dropdown
print " <DiceSet name=\"One of everything\">\n";
#Die sizes in array
foreach (2, 3, 4, 6, 8, 10, 12, 20, 100){
   $dievalue=1;
   $diesize=$_;
   print "  <Dice canStay=\"true\">\n";
#while loop to generate value tags
   while ($dievalue <= $diesize) {
      print "   <Value value=\"$dievalue/$diesize\"/> \n" ;
      $dievalue = $dievalue + 1;}
      print "  </Dice>\n";}
print " </DiceSet>\n";
print "</DiceJinni>\n";