Script Function: Q4MH

 function int Q4MH(obj user, obj corpse)
 {
   loc Q4VS = getLocation(user);
   loc there = Q4VS;
   list Q5DR;
   there = getLocation(corpse);
   faceHere(user, getDirectionInternal(Q4VS, there));
   int Q5UZ = 0x00;
   int Q4NC = Q4SB(this, user, Q5UZ, corpse);
   int Q68G = 0x021D;
   obj daemon = createGlobalNPCAt(Q68G, there, 0x00);
   if (daemon == NULL())
   {
     barkTo(user, user, "Something is in the way.");
     return (0x00);
   }
   doLocAnimation(there, 0x3728, 0x0A, 0x0A, 0x00, 0x00);
   doLocAnimation(there, 0x3728, 0x08, 0x14, 0x00, 0x00);
   attachScript(daemon, "destcrea");
   int Q5NC = Q558(daemon, user, 0x64, 0x01);
   Q5AA(corpse);
   faceHere(daemon, getDirectionInternal(there, Q4VS));
   callback(daemon, Q4NC, 0x08);
   return (0x01);
 }