Script: Statue one

trigger use
{
  int Q4FS = getX(getLocation(this));
  int Q4FT = getY(getLocation(this));
  int Q4FU = getZ(getLocation(this));
  int Q5CG = Q4FU + 0x01;
  loc Q5C0 = Q4FS, Q4FT, Q5CG;
  loc trapLocation = 0x14CB, 0x023C, 0x00;
  list Q5DQ;
  if (!hasObjVar(this, "working"))
  {
    bark(this, "SOUND EFFECT");
    callback(this, 0x05, 0x01);
    int Q64U = teleport(this, Q5C0);
    [[messageToRange|messageToRange]](trapLocation, 0x0A, "disarm", Q5DQ);
    setObjVar(this, "working", 0x01);
  }
  return (0x01);
}

trigger callback(0x01)
{
  int Q4FS = getX(getLocation(this));
  int Q4FT = getY(getLocation(this));
  int Q4FU = getZ(getLocation(this));
  int Q5CG = Q4FU - 0x01;
  loc Q5C0 = Q4FS, Q4FT, Q5CG;
  bark(this, "SOUND EFFECT");
  bark(this, "returning");
  if (hasObjVar(this, "working"))
  {
    removeObjVar(this, "working");
  }
  int Q64U = teleport(this, Q5C0);
  return (0x01);
}