while ($edtpost =~ /\[roll=(\S+?)\]/i) {
	  $seed = $1;
	  if(!$seed || $seed > 12 || $seed < 1) {
	    $seed=6;
	  }
	  srand();
	  $rndrslt = 0;
          $rndrslt = int(rand($seed)) + 1;
          print "$rndrslt\n";
}