Script Function: Q4YP

 function obj Q4YP(obj user, loc where)
 {
   list Q4ND;
   getObjectsInRange(Q4ND, where, 0x02);
   int num = numInList(Q4ND);
   for(int i = 0x00; i < num; i++)
   {
     obj it = Q4ND[i];
     if (isMultiComp(it))
     {
       obj multi = getMultiSlaveId(it);
       if (Q58P(multi) == 0x00)
       {
         if (Q4X6(multi, user))
         {
           return (multi);
         }
       }
     }
   }
   return (NULL());
 }