subdice100
{
  my($me,)=@_;
  #A random number between 1 and 100, inclusive.
  $value = int(rand(100 +1);
  #Announce result to room.
  &tellRoom($objects[$me]{"location:},$me,$objects[$me]{"name"} "rolled $value.");