Script Function: Q4BT

 function int Q4BT(obj this, string Q698, obj speaker, int Q4V9)
 {
   if (Q698 != "follow")
   {
     return (0x00);
   }
   if (Q4V9)
   {
     if (Q4BD(this, speaker))
     {
       if (Q4SC() > 0x00)
       {
         Q4LJ(this);
       }
       setObjVar(this, "petWhoFollow", speaker);
       followNpc(this, speaker, 0x00);
     }
     return (0x01);
   }
   setObjVar(this, "petFollow", 0x01);
   if (!isPet(this))
   {
     bark(this, "Who shall I follow?");
   }
   else
   {
     systemMessage(speaker, "Click on the person to follow.");
   }
   targetObj(speaker, this);
   return (0x01);
 }