Script Function: Q4LM

 function void Q4LM(obj this, obj usedon, obj user)
 {
   if (Q4BD(this, usedon))
   {
     Q4LJ(this);
   }
   else
   {
     if (!Q4KK(this, 0x00))
     {
       return ();
     }
   }
   if (usedon == this)
   {
     removeObjVar(this, "petWhoFollow");
     stopFollowing(this);
   }
   else
   {
     setObjVar(this, "petWhoFollow", usedon);
     followNpc(this, usedon, 0x00);
   }
   removeObjVar(this, "petFollow");
   return ();
 }