Script Function: Q509

 function int Q509(loc where, int range)
 {
   list Q5FJ;
   getObjectsInRange(Q5FJ, where, range);
   int num = numInList(Q5FJ);
   for(int i = 0x00; i < num; i++)
   {
     obj it = Q5FJ[i];
     if (Q508(it))
     {
       return (0x01);
     }
   }
   return (0x00);
 }