Script Function: Q4X2

 function void Q4X2(obj house, obj vendor)
 {
   if (hasObjListVar(house, "vendors"))
   {
     list Q5AV;
     getObjListVar(Q5AV, house, "vendors");
     removeSpecificItem(Q5AV, vendor);
     if (numInList(Q5AV) > 0x00)
     {
       setObjVar(house, "vendors", Q5AV);
     }
     else
     {
       removeObjVar(house, "vendors");
     }
   }
   return ();
 }