Script Function: Q4MM

 function int Q4MM(obj user, loc there)
 {
   int Q5NC = 0x00;
   there = Q4TC(user, there);
   if (getZ(there) != (0x00 - 0x80))
   {
     int Q4NA;
     loc Q4VS = getLocation(user);
     int Q5ZL = teleport(user, there);
     if (Q5ZL)
     {
       doLocAnimation(Q4VS, 0x3728, 0x0A, 0x0A, 0x00, 0x00);
       doLocAnimation(there, 0x3728, 0x0A, 0x0A, 0x00, 0x00);
       sfx(there, 0x01FE, 0x00);
       Q5NC = 0x01;
     }
     else
     {
       bark(user, "I can't teleport there!");
     }
   }
   Q5UQ(this);
   return (Q5NC);
 }