Script Function: Q4WS

 function void Q4WS(obj house)
 {
   list Q5AV;
   Q4WY(house, Q5AV);
   obj vendor;
   int num = numInList(Q5AV);
   for(int i = 0x00; i < num; i++)
   {
     vendor = Q5AV[i];
     if (isValid(vendor))
     {
       list args;
       appendToList(args, house);
       message(vendor, "housedecay", args);
     }
   }
   removeObjVar(house, "vendors");
   return ();
 }