Script Function: Q5AA

 function void Q5AA(obj corpse)
 {
   list Q4E4;
   getContents(Q4E4, corpse);
   int num = numInList(Q4E4);
   for(int i = 0x00; i < num; i++)
   {
     obj Q61K = Q4E4[i];
     if (isHair(Q61K))
     {
       deleteObject(Q61K);
     }
     else
     {
       int Q5NC = teleport(Q61K, getLocation(corpse));
     }
   }
   deleteObject(corpse);
   return ();
 }