Script Function: Q4LR

 function int Q4LR(obj user, obj usedon, int Q5NM)
 {
   int Q5NC = 0x00;
   if (Q50G(usedon))
   {
     int Q5JD;
     int Q66X;
     loc Q4VS = getLocation(user);
     loc there = getLocation(usedon);
     faceHere(user, getDirectionInternal(Q4VS, there));
     doMobAnimation(usedon, 0x374A, 0x0A, 0x0F, 0x00, 0x00);
     sfx(there, 0x0205, 0x00);
     if (!hasScript(usedon, "poisoned"))
     {
       Q422(user, usedon, 0x00, Q5NM);
       receiveUnhealthyActionFrom(usedon, user);
       Q5UK(user, usedon, 0x02, Q5NM);
       if (isValid(usedon) && (!Q4CN(user, usedon, 0x03)))
       {
         Q66X = getSkillLevel(user, 0x19);
         if (random(0x01, 0x64) < Q66X)
         {
           Q5JD = 0x02;
         }
         else
         {
           Q5JD = 0x04;
         }
         if ((!hasObjVar(usedon, "poison_strength")) && (!hasScript(usedon, "poisoned")))
         {
           setObjVar(usedon, "poison_strength", Q5JD);
           attachScript(usedon, "poisoned");
           Q5NC = 0x01;
           if (isValid(usedon))
           {
             scriptTrig(usedon, 0x01, user);
           }
         }
       }
     }
   }
   Q5UQ(this);
   return (Q5NC);
 }