Script Function: Q4KT

 function int Q4KT(obj user, obj usedon)
 {
   int Q5NC = 0x00;
   if (Q43D(user, usedon))
   {
     loc Q4VS = getLocation(user);
     if (Q50L(Q4VS))
     {
       Q5NC = 0x01;
       setObjVar(usedon, "markLoc", Q4VS);
       list Q5DR;
       message(usedon, "marked", Q5DR);
       doLocAnimation(getLocation(usedon), 0x3779, 0x0A, 0x0F, 0x00, 0x00);
       sfx(Q4VS, 0x01FA, 0x00);
     }
     else
     {
       systemMessage(user, "Thy spell doth not appear to work...");
     }
   }
   Q5UQ(this);
   return (Q5NC);
 }