// und_preserve - corpses perserved in this area
void main()
{
   object oFirst=GetFirstObjectInArea(OBJECT_SELF);
   object oOb;
   int nN;
   if (GetTag(oFirst)=="corpseres") SetLocalInt(oFirst,"bPreserved",TRUE);
   nN=1;
   oOb=GetNearestObjectByTag("corpseres",oFirst,nN);
   while(oOb!=OBJECT_INVALID)
   { // set to preserved
     SetLocalInt(oOb,"bPreserved",TRUE);
     nN++;
     oOb=GetNearestObjectByTag("corpseres",oFirst,nN);
   } // set to preserved
}