UO Second Age

Code: Select all

integer Q4K4(object user, object usedon)
{
  integer Q5NC = 0x00;
  integer Q4EI;
  location Q4VS = getLocation(user);
  object caster = user;
  location dest = Q42F(Q4VS); // NOTE: Q42F just returns its parameter without doing anything with it
  faceHere(user, getDirectionInternal(Q4VS, dest));
  object Q55F = usedon;

  // Get the location of the player
  Q4VS = dest;

  // Get the destination from the rune
  location destination = getObjVar(Q55F, "markLoc");
  if(Q50L(destination) && Q50M(destination) && Q50L(dest) && Q50M(dest) && (!Q46L(dest)))
  {
    // Create the gate at your own position
    object Q4R9 = createGlobalObjectAt(0x0F6C, dest);
    Q4VS = getLocation(Q4R9); // Odd, can Q4VS != dest after creation?
    if(isValid(Q4R9))
    {
      integer xPoint = getX(destination);
      integer yPoint = getY(destination);
      integer zPoint = getZ(destination);
      setObjVar(Q4R9, "xPoint", xPoint);
      setObjVar(Q4R9, "yPoint", yPoint);
      setObjVar(Q4R9, "zPoint", zPoint);

      // Attach 2 scripts : opengate and destroy
      // opengate: does the actual gate-travelling
      // destroy: handles event 0x1E and destroys the gate when called
      attachScript(Q4R9, "opengate");
      attachScript(Q4R9, "destroy");
     
      // in 0x1E seconds (30) raise event 0x1E (destroy script)
      callback(Q4R9, 0x1E, 0x1E);

      // Create the second gate (at the same location of the first gate)
      object Q4R8 = createGlobalObjectAt(0x0F6C, Q4VS);
      if(isValid(Q4R8))
      {
        xPoint = getX(Q4VS);
        yPoint = getY(Q4VS);
        zPoint = getZ(Q4VS);
        setObjVar(Q4R8, "xPoint", xPoint);
        setObjVar(Q4R8, "yPoint", yPoint);
        setObjVar(Q4R8, "zPoint", zPoint);
        setObjVar(Q4R8, "sourceGate", Q4R9);

        // Same stuff
        // Two "destroy" scripts are needed (one for source, one for destination)
        attachScript(Q4R8, "opengate");
        attachScript(Q4R8, "destroy");
        callback(Q4R8, 0x1E, 0x1E);

        // This callback will destroy both gates (using the sourceGate link) if target is at a 'multi'
        shortcallback(Q4R8, 0x00, 0x79);
        Q5NC = 0x01;
        sfx(Q4VS, 0x020E, 0x00);

        // Move gate to final destination
        integer Q46Q = teleport(Q4R8, destination);
      }
    }
    else
    {
      barkTo(caster, caster, "I will need more room to cast this next time!");
    }
  }
  else
  {
    systemMessage(caster, "You can not teleport from here to the destination.");
  }
  Q5UQ(this);
  return(Q5NC);
}

Code: Select all

integer Q4JJ(object user, object usedon)
{
  integer Q5NC = 0x00;
  if(Q50G(usedon))
  {
    location Q4VS = getLocation(user);
    location there = getLocation(usedon);
    faceHere(user, getDirectionInternal(Q4VS, there));
    doLocAnimation(there, 0x376A, 0x09, 0x14, 0x00, 0x00);
    sfx(there, 0x0201, 0x00);
    if(hasScript(usedon, "destroy"))
    {
      deleteObject(usedon);
      Q5NC = 0x01;
    }
  }
  Q5UQ(this);
  return(Q5NC);
}