// set vampire coffin locations
void main()
{
  object oOb;
  string sMsg;
  int nC=0;
  int nL=0;
  string sCoffinTag="VampireCoffin";
  oOb=GetObjectByTag(sCoffinTag,nL);
  while(oOb!=OBJECT_INVALID)
  { // count coffins
    nC++;
    sMsg=sMsg+","+GetName(GetArea(oOb));
    nL++;
    oOb=GetObjectByTag(sCoffinTag,nL);
  } // count coffins
  if (nC==0)
  {
    sMsg="no coffins that can be destroyed in the realm";
  }
  else
  { // coffins
    sMsg="of coffins in the following areas that need to be destroyed"+sMsg;
  } // coffins
  SetCustomToken(4182004,sMsg);
}