Script Function: Q656

 function int Q656(obj user, obj Q4XN)
 {
   if (isInList(Q535, Q4XN))
   {
     systemMessage(user, "This crystal is already linked with that crystal.");
     return (0x00);
   }
   appendToList(Q535, Q4XN);
   systemMessage(user, "That crystal has been linked to this crystal.");
   return (0x01);
 }