Script Function: Q4ZX

 function int Q4ZX(obj this, obj givenobj)
 {
   int i;
   int Q518;
   string Q4NH;
   string Q5KO;
   list Q4Q7;
   list Q5KP;
   if (!getResourcesOnObj(givenobj, 0x03, Q5KP))
   {
     return (0x00);
   }
   if (!getResourcesOnObj(this, 0x00, Q4Q7))
   {
     return (0x00);
   }
   for(i = 0x00; i < numInList(Q4Q7); i++)
   {
     for(Q518 = 0x00; Q518 < numInList(Q5KP); Q518++)
     {
       Q4NH = Q4Q7[i];
       Q5KO = Q5KP[Q518];
       if (Q4NH == Q5KO)
       {
         return (0x01);
       }
     }
   }
   return (0x00);
 }