Script Function: Q46M

 function int Q46M(loc where, obj Q68S)
 {
   list Q5FJ;
   getObjectsAt(Q5FJ, where);
   int num = numInList(Q5FJ);
   for(int i = 0x00; i < num; i++)
   {
     obj it = Q5FJ[i];
     if (it != Q68S)
     {
       if (Q4ZK(it))
       {
         return (0x01);
       }
     }
   }
   return (0x00);
 }