Difference between revisions of "Script: Spelskil"

Latest revision as of 00:33, 21 October 2018

inherits sndfx;

function int Q4SW(int Q52T)
{
  return ((Q52T - 0x01) * 0x03E8 / 0x07);
}

function void Q4J5(obj user, int Q68O)
{
  int Q65M = getObjType(user);
  if (Q65M < 0xC8)
  {
    if (Q65M == 0x16)
    {
      animateMobile(user, 0x04 + Q68O - 0x01, 0x04, 0x01, 0x00, 0x00);
      return ();
    }
    if ((Q65M != 0x18) && (Q65M != 0x09) && (Q65M != 0x0A) && (Q65M != 0x04))
    {
      return ();
    }
    switch (Q68O)
    {
    case 0x01
      animateMobile(user, 0x0C, 0x07, 0x01, 0x00, 0x00);
      break;
    case 0x02
    case 0x03
      animateMobile(user, 0x0D, 0x07, 0x01, 0x00, 0x00);
      break;
    }
  }
  else
  {
    if (Q65M >= 0x0190)
    {
      if (getItemAtSlot(user, 0x19) != NULL())
      {
        return ();
      }
      switch (Q68O)
      {
      case 0x01
        animateMobile(user, 0x10, 0x07, 0x01, 0x00, 0x00);
        break;
      case 0x02
      case 0x03
        animateMobile(user, 0x11, 0x06, 0x01, 0x00, 0x00);
        break;
      }
    }
  }
  return ();
}

function int Q501(obj it)
{
  int Q5F8 = getObjType(it);
  if ((Q5F8 < 0x1F2D) || (Q5F8 > 0x1F6C))
  {
    return (0x00);
  }
  return (0x01);
}

function int Q505(obj it)
{
  if (!isValid(it))
  {
    return (0x00)
  }
  if (getObjType(it) == 0x0EFA)
  {
    return (0x01);
  }
  return (0x00);
}

function int Q4ZN(obj it)
{
  if (Q501(it))
  {
    obj container = containedBy(it);
    if (container == NULL())
    {
      return (0x01);
    }
    if (!Q505(container))
    {
      return (0x01);
    }
  }
  return (0x00);
}

function int isScroll()
{
  return (Q4ZN(this));
}

function int Q41P(obj user, int Q4EF)
{
  if (Q4EF > (getCurMana(user)))
  {
    barkToHued(user, user, 0x22, "Insufficient mana for this spell.");
    return (0x00);
  }
  return (0x01);
}

function int Q4T2(obj it)
{
  int num = getMiscData(it) - 0x01;
  return (num);
}

function int Q4SZ(int Q5UX)
{
  return (Q5UX + 0x01);
}

function int Q42S(obj Q4XN)
{
  int Q5US = 0x02;
  if (Q501(Q4XN))
  {
    Q5US = (Q4T2(Q4XN) / 0x08) + 0x01;
  }
  return (Q5US);
}

function int Q4SY(int num)
{
  return ((num / 0x08) + 0x01);
}

function int Q4SX(int Q52T)
{
  int Q4EF = 0x00;
  switch (Q52T)
  {
  case 0x01
    Q4EF = 0x04;
    break;
  case 0x02
    Q4EF = 0x06;
    break;
  case 0x03
    Q4EF = 0x09;
    break;
  case 0x04
    Q4EF = 0x0B;
    break;
  case 0x05
    Q4EF = 0x0E;
    break;
  case 0x06
    Q4EF = 0x14;
    break;
  case 0x07
    Q4EF = 0x28;
    break;
  case 0x08
    Q4EF = 0x32;
    break;
  }
  return (Q4EF);
}

function int Q4ZA(obj it)
{
  if (it == NULL())
  {
    return (0x01);
  }
  if (Q505(it))
  {
    return (0x01);
  }
  return (0x00);
}

function int Q49Q(obj user, int Q55B)
{
  obj rightHand = getItemAtSlot(user, 0x01);
  obj leftHand = getItemAtSlot(user, 0x02);
  if (!Q4ZA(rightHand))
  {
    barkToHued(user, user, 0x22, "Your hands must be free to cast spells.");
    return (0x00);
  }
  if (getCompileFlag(0x01))
  {
    if (!Q4ZA(leftHand))
    {
      barkToHued(user, user, 0x22, "Your hands must be free to cast spells.");
      return (0x00);
    }
  }
  else
  {
    if ((!isUsingVirtueShield(user)) && (!Q4ZA(leftHand)))
    {
      barkToHued(user, user, 0x22, "Your hands must be free to cast spells.");
      return (0x00);
    }
  }
  if (!Q41P(user, Q55B))
  {
    barkToHued(user, user, 0x22, "Not enough mana to cast this spell.");
    return (0x00);
  }
  if (isDead(user))
  {
    return (0x00);
  }
  return (0x01);
}

function int Q49R(obj user, loc usedon, int Q55B)
{
  loc Q671 = getLocation(user);
  if ((!areSpellsOkay(usedon)) || (!areSpellsOkay(Q671)))
  {
    barkToHued(user, user, 0x22, "You can not cast spells here.");
    return (0x00);
  }
  return (Q49Q(user, Q55B));
}

function int Q4LU(obj user, loc usedon, int Q5UX, int Q50V)
{
  if (isPlayer(user))
  {
    if (hasObjVar(user, "spellCastersLevel"))
    {
      removeObjVar(user, "spellCastersLevel");
    }
  }
  Q662(user, 0x00);
  int Q5US = Q4SY(Q5UX);
  int Q55B = Q4SX(Q5US);
  if (!Q49R(user, usedon, Q55B))
  {
    return (0x00);
  }
  int Q5TG = 0x00;
  if (Q50V)
  {
    Q5TG = 0x02;
  }
  int Q4IB = Q4SW(Q5US - Q5TG);
  if (testAndLearnSkill(user, 0x19, Q4IB, 0x28) <= 0x00)
  {
    return (0x00);
  }
  loseMana(user, Q55B);
  return (0x01);
}

function int Q4LT(obj user, loc usedon, obj Q5UY)
{
  int Q50V = Q4ZN(Q5UY);
  int Q5UX = Q4T2(Q5UY);
  return (Q4LU(user, usedon, Q5UX, Q50V));
}

function int Q5YB(obj user, list Q5BD)
{
  int Q5LS = 0x00;
  int Q526 = 0x00;
  for(int Q4CK = 0x00; (Q4CK < numInList(Q5BD)) && (Q526 == 0x00); Q4CK++)
  {
    Q5LS = Q5BD[Q4CK];
    if (getGeneric(user, Q5LS) <= 0x00)
    {
      Q526 = 0x01;
      break;
    }
  }
  if (Q526 == 0x01)
  {
    if (isPlayer(user))
    {
      barkToHued(user, user, 0x22, "More reagents are needed for this spell.");
    }
    return (0x00);
  }
  else
  {
    for(int Q4SK = 0x00; Q4SK < numInList(Q5BD); Q4SK++)
    {
      Q5LS = Q5BD[Q4SK];
      destroyGeneric(user, Q5LS, 0x01);
    }
    return (0x01);
  }
  if (isPlayer(user))
  {
    bark(user, "BUG! Please report: Invalid takeReagent return.");
  }
  return (0x00);
}

function void Q4RD(obj user)
{
  if (isPlayer(user))
  {
    barkTo(user, user, "The spell fizzles.");
  }
  doMobAnimation(user, 0x3735, 0x06, 0x1E, 0x00, 0x00);
  sfx(getLocation(user), 0x5C, 0x00);
  return ();
}

function obj Q4ES(int Q5F8, loc place)
{
  int Q4XW = getTileHeight(Q5F8);
  int Q5JN = getZ(place) + 0x10;
  int Q5BH = getZ(place) - 0x10;
  setZ(place, findGoodZ(place, Q5BH, Q5JN, Q4XW, 0x01));
  if (getZ(place) != (0x00 - 0x80))
  {
    return (createGlobalObjectAt(Q5F8, place));
  }
  return (NULL());
}

function int Q46K(loc where, int Q4VQ)
{
  list Q5FJ;
  int Q57E = getZ(where);
  int Q56I = Q57E + Q4VQ;
  getObjectsAtInZRange(Q5FJ, where, Q57E, Q56I);
  int num = numInList(Q5FJ);
  obj it;
  for(int i = 0x00; i < num; i++)
  {
    it = Q5FJ[i];
    if (hasScript(it, "crtwall"))
    {
      return (0x01);
    }
  }
  return (0x00);
}

function obj Q4EQ(int Q5F8, loc place)
{
  int Q4XW = getTileHeight(Q5F8);
  int Q5JN = getZ(place) + 0x10;
  int Q5BH = getZ(place) - 0x10;
  setZ(place, findGoodZ(place, Q5BH, Q5JN, Q4XW, 0x01));
  if (getZ(place) != (0x00 - 0x80))
  {
    if (!Q46K(place, Q4XW))
    {
      return (createGlobalObjectAt(Q5F8, place));
    }
  }
  return (NULL());
}

function void Q4SL(list Q5LQ, int Q5UT)
{
  switch (Q5UT)
  {
  case 0x00
    Q5LQ = 0x0F7B, 0x0F88;
    break;
  case 0x01
    Q5LQ = 0x0F84, 0x0F85, 0x0F86;
    break;
  case 0x02
    Q5LQ = 0x0F85, 0x0F88;
    break;
  case 0x03
    Q5LQ = 0x0F84, 0x0F85, 0x0F8D;
    break;
  case 0x04
    Q5LQ = 0x0F7A, 0x0F88;
    break;
  case 0x05
    Q5LQ = 0x0F8D, 0x0F8C;
    break;
  case 0x06
    Q5LQ = 0x0F84, 0x0F8C, 0x0F8D;
    break;
  case 0x07
    Q5LQ = 0x0F84, 0x0F88;
    break;
  case 0x08
    Q5LQ = 0x0F7B, 0x0F86;
    break;
  case 0x09
    Q5LQ = 0x0F86, 0x0F88;
    break;
  case 0x0A
    Q5LQ = 0x0F84, 0x0F85;
    break;
  case 0x0B
    Q5LQ = 0x0F88, 0x0F8D;
    break;
  case 0x0C
    Q5LQ = 0x0F84, 0x0F8C, 0x0F8D;
    break;
  case 0x0D
    Q5LQ = 0x0F7B, 0x0F8C;
    break;
  case 0x0E
    Q5LQ = 0x0F84, 0x0F85, 0x0F8C;
    break;
  case 0x0F
    Q5LQ = 0x0F86, 0x0F88;
    break;
  case 0x10
    Q5LQ = 0x0F84, 0x0F86;
    break;
  case 0x11
    Q5LQ = 0x0F7A, 0x0F8C;
    break;
  case 0x12
    Q5LQ = 0x0F8C, 0x0F7B, 0x0F84;
    break;
  case 0x13
    Q5LQ = 0x0F88;
    break;
  case 0x14
    Q5LQ = 0x0F7B, 0x0F86;
    break;
  case 0x15
    Q5LQ = 0x0F7B, 0x0F86;
    break;
  case 0x16
    Q5LQ = 0x0F7B, 0x0F8C;
    break;
  case 0x17
    Q5LQ = 0x0F7B, 0x0F84;
    break;
  case 0x18
    Q5LQ = 0x0F84, 0x0F85, 0x0F86;
    break;
  case 0x19
    Q5LQ = 0x0F84, 0x0F85, 0x0F86, 0x0F8C;
    break;
  case 0x1A
    Q5LQ = 0x0F84, 0x0F88, 0x0F8C;
    break;
  case 0x1B
    Q5LQ = 0x0F7A, 0x0F8D, 0x0F8C;
    break;
  case 0x1C
    Q5LQ = 0x0F84, 0x0F85, 0x0F86, 0x0F8D;
    break;
  case 0x1D
    Q5LQ = 0x0F7A, 0x0F86, 0x0F8C;
    break;
  case 0x1E
    Q5LQ = 0x0F7A, 0x0F86, 0x0F8D;
    break;
  case 0x1F
    Q5LQ = 0x0F7A, 0x0F7B, 0x0F86;
    break;
  case 0x20
    Q5LQ = 0x0F7A, 0x0F86, 0x0F88;
    break;
  case 0x21
    Q5LQ = 0x0F84, 0x0F7A, 0x0F8D, 0x0F8C;
    break;
  case 0x22
    Q5LQ = 0x0F7B, 0x0F84, 0x0F88;
    break;
  case 0x23
    Q5LQ = 0x0F84, 0x0F86, 0x0F8D;
    break;
  case 0x24
    Q5LQ = 0x0F7A, 0x0F86, 0x0F88, 0x0F8C;
    break;
  case 0x25
    Q5LQ = 0x0F84, 0x0F86, 0x0F8D;
    break;
  case 0x26
    Q5LQ = 0x0F7A, 0x0F88, 0x0F8D;
    break;
  case 0x27
    Q5LQ = 0x0F7B, 0x0F86, 0x0F8D;
    break;
  case 0x28
    Q5LQ = 0x0F84, 0x0F86, 0x0F8C;
    break;
  case 0x29
    Q5LQ = 0x0F7A, 0x0F88;
    break;
  case 0x2A
    Q5LQ = 0x0F7A, 0x0F86, 0x0F8C;
    break;
  case 0x2B
    Q5LQ = 0x0F7B, 0x0F88;
    break;
  case 0x2C
    Q5LQ = 0x0F7A, 0x0F7B, 0x0F86;
    break;
  case 0x2D
    Q5LQ = 0x0F84, 0x0F86, 0x0F88, 0x0F8C;
    break;
  case 0x2E
    Q5LQ = 0x0F7A, 0x0F85, 0x0F8D;
    break;
  case 0x2F
    Q5LQ = 0x0F7B, 0x0F8C;
    break;
  case 0x30
    Q5LQ = 0x0F7A, 0x0F7B, 0x0F86, 0x0F8C;
    break;
  case 0x31
    Q5LQ = 0x0F7A, 0x0F86, 0x0F8D, 0x0F8C;
    break;
  case 0x32
    Q5LQ = 0x0F8D, 0x0F8C;
    break;
  case 0x33
    Q5LQ = 0x0F7A, 0x0F86, 0x0F8C;
    break;
  case 0x34
    Q5LQ = 0x0F86, 0x0F7A, 0x0F7B, 0x0F8D;
    break;
  case 0x35
    Q5LQ = 0x0F7A, 0x0F84, 0x0F86, 0x0F8C;
    break;
  case 0x36
    Q5LQ = 0x0F7B, 0x0F8D, 0x0F86, 0x0F8C;
    break;
  case 0x37
    Q5LQ = 0x0F7B, 0x0F86, 0x0F8D;
    break;
  case 0x38
    Q5LQ = 0x0F7B, 0x0F85, 0x0F86, 0x0F8C;
    break;
  case 0x39
    Q5LQ = 0x0F7A, 0x0F7B, 0x0F86, 0x0F88;
    break;
  case 0x3A
    Q5LQ = 0x0F7B, 0x0F84, 0x0F85;
    break;
  case 0x3B
    Q5LQ = 0x0F7B, 0x0F86, 0x0F8D;
    break;
  case 0x3C
    Q5LQ = 0x0F7B, 0x0F86, 0x0F8D, 0x0F8C;
    break;
  case 0x3D
    Q5LQ = 0x0F7B, 0x0F86, 0x0F8D;
    break;
  case 0x3E
    Q5LQ = 0x0F7B, 0x0F86, 0x0F8D, 0x0F8C;
    break;
  case 0x3F
    Q5LQ = 0x0F7B, 0x0F86, 0x0F8D;
    break;
  }
  return ();
}

function string Q4T5(int Q5UT)
{
  string name;
  switch (Q5UT)
  {
  case 0x00
    name = "Uus Jux";
    break;
  case 0x01
    name = "In Mani Ylem";
    break;
  case 0x02
    name = "Rel Wis";
    break;
  case 0x03
    name = "In Mani";
    break;
  case 0x04
    name = "In Por Ylem";
    break;
  case 0x05
    name = "In Lor";
    break;
  case 0x06
    name = "Flam Sanct";
    break;
  case 0x07
    name = "Des Mani";
    break;
  case 0x08
    name = "Ex Uus";
    break;
  case 0x09
    name = "Uus Wis";
    break;
  case 0x0A
    name = "An Nox";
    break;
  case 0x0B
    name = "An Mani";
    break;
  case 0x0C
    name = "In Jux";
    break;
  case 0x0D
    name = "An Jux";
    break;
  case 0x0E
    name = "Uus Sanct";
    break;
  case 0x0F
    name = "Uus Mani";
    break;
  case 0x10
    name = "Rel Sanct";
    break;
  case 0x11
    name = "Vas Flam";
    break;
  case 0x12
    name = "An Por";
    break;
  case 0x13
    name = "In Nox";
    break;
  case 0x14
    name = "Ort Por Ylem";
    break;
  case 0x15
    name = "Rel Por";
    break;
  case 0x16
    name = "Ex Por";
    break;
  case 0x17
    name = "In Sanct Ylem";
    break;
  case 0x18
    name = "Vas An Nox";
    break;
  case 0x19
    name = "Vas Uus Sanct";
    break;
  case 0x1A
    name = "Des Sanct";
    break;
  case 0x1B
    name = "In Flam Grav";
    break;
  case 0x1C
    name = "In Vas Mani";
    break;
  case 0x1D
    name = "Por Ort Grav";
    break;
  case 0x1E
    name = "Ort Rel";
    break;
  case 0x1F
    name = "Kal Ort Por";
    break;
  case 0x20
    name = "In Jux Hur Ylem";
    break;
  case 0x21
    name = "An Grav";
    break;
  case 0x22
    name = "Kal In Ex";
    break;
  case 0x23
    name = "In Jux Sanct";
    break;
  case 0x24
    name = "Por Corp Wis";
    break;
  case 0x25
    name = "An Ex Por";
    break;
  case 0x26
    name = "In Nox Grav";
    break;
  case 0x27
    name = "Kal Xen";
    break;
  case 0x28
    name = "An Ort";
    break;
  case 0x29
    name = "Corp Por";
    break;
  case 0x2A
    name = "Vas Ort Flam";
    break;
  case 0x2B
    name = "An Lor Xen";
    break;
  case 0x2C
    name = "Kal Por Ylem";
    break;
  case 0x2D
    name = "Vas Des Sanct";
    break;
  case 0x2E
    name = "In Ex Grav";
    break;
  case 0x2F
    name = "Wis Quas";
    break;
  case 0x30
    name = "Vas Ort Grav";
    break;
  case 0x31
    name = "In Sanct Grav";
    break;
  case 0x32
    name = "Kal Vas Flam";
    break;
  case 0x33
    name = "Vas Rel Por";
    break;
  case 0x34
    name = "Ort Sanct";
    break;
  case 0x35
    name = "Vas An Ort";
    break;
  case 0x36
    name = "Flam Kal Des Ylem";
    break;
  case 0x37
    name = "Vas Ylem Rel";
    break;
  case 0x38
    name = "In Vas Por";
    break;
  case 0x39
    name = "Vas Corp Por";
    break;
  case 0x3A
    name = "An Corp";
    break;
  case 0x3B
    name = "Kal Vas Xen Hur";
    break;
  case 0x3C
    name = "Kal Vas Xen Corp";
    break;
  case 0x3D
    name = "Kal Vas Xen Ylem";
    break;
  case 0x3E
    name = "Kal Vas Xen Flam";
    break;
  case 0x3F
    name = "Kal Vas Xen An Flam";
    break;
  }
  return (name);
}

function string Q4T0(int Q5UT)
{
  string name;
  switch (Q5UT)
  {
  case 0x00
    name = "Clumsy";
    break;
  case 0x01
    name = "Create Food";
    break;
  case 0x02
    name = "Feeblemind";
    break;
  case 0x03
    name = "Heal";
    break;
  case 0x04
    name = "Magic Arrow";
    break;
  case 0x05
    name = "Night Sight";
    break;
  case 0x06
    name = "Reactive Armor";
    break;
  case 0x07
    name = "Weaken";
    break;
  case 0x08
    name = "Agility";
    break;
  case 0x09
    name = "Cunning";
    break;
  case 0x0A
    name = "Cure";
    break;
  case 0x0B
    name = "Harm";
    break;
  case 0x0C
    name = "Magic Trap";
    break;
  case 0x0D
    name = "Magic Untrap";
    break;
  case 0x0E
    name = "Protection";
    break;
  case 0x0F
    name = "Strength";
    break;
  case 0x10
    name = "Bless";
    break;
  case 0x11
    name = "Fireball";
    break;
  case 0x12
    name = "Magic Lock";
    break;
  case 0x13
    name = "Poison";
    break;
  case 0x14
    name = "Telekinesis";
    break;
  case 0x15
    name = "Teleport";
    break;
  case 0x16
    name = "Unlock";
    break;
  case 0x17
    name = "Wall of Stone";
    break;
  case 0x18
    name = "Archcure";
    break;
  case 0x19
    name = "Archprotection";
    break;
  case 0x1A
    name = "Curse";
    break;
  case 0x1B
    name = "Fire Field";
    break;
  case 0x1C
    name = "Greater Heal";
    break;
  case 0x1D
    name = "Lightning";
    break;
  case 0x1E
    name = "Mana Drain";
    break;
  case 0x1F
    name = "Recall";
    break;
  case 0x20
    name = "Blade Spirits";
    break;
  case 0x21
    name = "Dispel Field";
    break;
  case 0x22
    name = "Incognito";
    break;
  case 0x23
    name = "Magic Reflection";
    break;
  case 0x24
    name = "Mind Blast";
    break;
  case 0x25
    name = "Paralyze";
    break;
  case 0x26
    name = "Poison Field";
    break;
  case 0x27
    name = "Summon Creature";
    break;
  case 0x28
    name = "Dispel";
    break;
  case 0x29
    name = "Energy Bolt";
    break;
  case 0x2A
    name = "Explosion";
    break;
  case 0x2B
    name = "Invisibility";
    break;
  case 0x2C
    name = "Mark";
    break;
  case 0x2D
    name = "Mass Curse";
    break;
  case 0x2E
    name = "Paralyze Field";
    break;
  case 0x2F
    name = "Reveal";
    break;
  case 0x30
    name = "Chain Lightning";
    break;
  case 0x31
    name = "Energy Field";
    break;
  case 0x32
    name = "Flamestrike";
    break;
  case 0x33
    name = "Gate Travel";
    break;
  case 0x34
    name = "Mana Vampire";
    break;
  case 0x35
    name = "Mass Dispel";
    break;
  case 0x36
    name = "Meteor Swarm";
    break;
  case 0x37
    name = "Polymorph";
    break;
  case 0x38
    name = "Earthquake";
    break;
  case 0x39
    name = "Energy Vortex";
    break;
  case 0x3A
    name = "Resurrection";
    break;
  case 0x3B
    name = "Summon Air Elemental";
    break;
  case 0x3C
    name = "Summon Daemon";
    break;
  case 0x3D
    name = "Summon Earth Elemental";
    break;
  case 0x3E
    name = "Summon Fire Elemental";
    break;
  case 0x3F
    name = "Summon Water Elemental";
    break;
  }
  return (name);
}

function string Q4SQ(int Q5UT)
{
  string name;
  switch (Q5UT)
  {
  case 0x00
    name = "clumsy";
    break;
  case 0x01
    name = "creatfod";
    break;
  case 0x02
    name = "feblmind";
    break;
  case 0x03
    name = "heal";
    break;
  case 0x04
    name = "magarrow";
    break;
  case 0x05
    name = "nitesite";
    break;
  case 0x06
    name = "reactarm";
    break;
  case 0x07
    name = "weaken";
    break;
  case 0x08
    name = "agility";
    break;
  case 0x09
    name = "cunning";
    break;
  case 0x0A
    name = "cure";
    break;
  case 0x0B
    name = "harm";
    break;
  case 0x0C
    name = "magctrap";
    break;
  case 0x0D
    name = "mguntrap";
    break;
  case 0x0E
    name = "protect";
    break;
  case 0x0F
    name = "strength";
    break;
  case 0x10
    name = "bless";
    break;
  case 0x11
    name = "fireball";
    break;
  case 0x12
    name = "magclock";
    break;
  case 0x13
    name = "poison";
    break;
  case 0x14
    name = "telknsis";
    break;
  case 0x15
    name = "teleport";
    break;
  case 0x16
    name = "unlock";
    break;
  case 0x17
    name = "wallston";
    break;
  case 0x18
    name = "archcure";
    break;
  case 0x19
    name = "aprotect";
    break;
  case 0x1A
    name = "curse";
    break;
  case 0x1B
    name = "firefild";
    break;
  case 0x1C
    name = "grtheal";
    break;
  case 0x1D
    name = "lightng";
    break;
  case 0x1E
    name = "manadran";
    break;
  case 0x1F
    name = "recall";
    break;
  case 0x20
    name = "bldsprts";
    break;
  case 0x21
    name = "dsplfild";
    break;
  case 0x22
    name = "incognto";
    break;
  case 0x23
    name = "magrflct";
    break;
  case 0x24
    name = "mindblst";
    break;
  case 0x25
    name = "paralyze";
    break;
  case 0x26
    name = "posnfild";
    break;
  case 0x27
    name = "summoncr";
    break;
  case 0x28
    name = "dispel";
    break;
  case 0x29
    name = "nrgybolt";
    break;
  case 0x2A
    name = "exploson";
    break;
  case 0x2B
    name = "invis";
    break;
  case 0x2C
    name = "mark";
    break;
  case 0x2D
    name = "mascurse";
    break;
  case 0x2E
    name = "parafild";
    break;
  case 0x2F
    name = "reveal";
    break;
  case 0x30
    name = "chainltg";
    break;
  case 0x31
    name = "nrgyfild";
    break;
  case 0x32
    name = "flamstrk";
    break;
  case 0x33
    name = "gatetrvl";
    break;
  case 0x34
    name = "manavamp";
    break;
  case 0x35
    name = "massdspl";
    break;
  case 0x36
    name = "meteor";
    break;
  case 0x37
    name = "polymrph";
    break;
  case 0x38
    name = "earthquk";
    break;
  case 0x39
    name = "nrgyvrtx";
    break;
  case 0x3A
    name = "resurect";
    break;
  case 0x3B
    name = "sumaire";
    break;
  case 0x3C
    name = "sumdaem";
    break;
  case 0x3D
    name = "sumearth";
    break;
  case 0x3E
    name = "sumfire";
    break;
  case 0x3F
    name = "sumh2o";
    break;
  }
  return (name);
}

function int Q4T1(int num)
{
  return ((num / 0x08) + 0x01);
}

function int Q4T3(int num)
{
  if ((num < 0x00) || (num > 0x3F))
  {
    return (0x00 - 0x01);
  }
  int Q5NC;
  if (num == 0x06)
  {
    Q5NC = 0x1F2D;
  }
  else
  {
    if ((num >= 0x00) && (num <= 0x05))
    {
      Q5NC = 0x1F2E + num;
    }
    else
    {
      Q5NC = 0x1F34 + num - 0x07;
    }
  }
  return (Q5NC);
}

function int Q4T4(int num)
{
  return (Q4T3(num - 0x01));
}

function string Q4SR(int Q5UT)
{
  return (Q4SQ(Q5UT - 0x01));
}

function int Q5YC(obj user, obj Q5UY)
{
  if (Q4ZN(Q5UY))
  {
    return (0x01);
  }
  list Q5LQ;
  Q4SL(Q5LQ, Q4T2(Q5UY));
  return (Q5YB(user, Q5LQ));
}

function int Q4NQ(obj user)
{
  obj rightHand = getItemAtSlot(user, 0x01);
  obj leftHand = getItemAtSlot(user, 0x02);
  if (leftHand != NULL())
  {
    if (isWeapon(leftHand))
    {
      barkToHued(user, user, 0x22, "You must have a free hand to drink a potion.");
      return (0x00);
    }
    if (rightHand != NULL())
    {
      barkToHued(user, user, 0x22, "You must have a free hand to drink a potion.");
      return (0x00);
    }
  }
  return (0x01);
}

function int Q558(obj Q487, obj boss, int Q54B, int Q5DC)
{
  list myBoss = boss;
  setObjVar(Q487, "myBoss", myBoss);
  setObjVar(Q487, "myLoyalty", Q54B);
  if (Q5DC)
  {
    setObjVar(Q487, "isPet", 0x01);
  }
  makeBeelineFailPathfind(Q487, 0x01);
  disableBehaviors(Q487);
  attachScript(Q487, "pet");
  return (0x01);
}

function int Q42P(int damage)
{
  int Q527 = damage * 0x19;
  if (Q527 > 0x03E8)
  {
    Q527 = 0x03E8;
  }
  return (Q527);
}

function int Q42Q(int Q52T)
{
  int Q527 = Q52T * 0x32;
  if (Q527 > 0x03E8)
  {
    Q527 = 0x03E8;
  }
  return (Q527);
}

function int Q4BH(obj user, obj usedon, int damage)
{
  if (isDead(usedon))
  {
    return (0x00);
  }
  if (testAndLearnSkill(usedon, 0x1A, Q42P(damage), 0x32) > 0x00)
  {
    systemMessage(usedon, "You feel yourself resisting magical energy!");
    return ((damage + 0x01) / 0x02);
  }
  return (damage);
}

function int Q4BI(obj user, obj usedon, int damage)
{
  if (isDead(usedon))
  {
    return (0x00);
  }
  if (Q5ZJ(usedon, 0x1A, Q42P(damage), 0x28) > 0x00)
  {
    systemMessage(usedon, "You feel yourself resisting magical energy!");
    return ((damage + 0x01) / 0x02);
  }
  return (damage);
}

function int Q4CM(obj user, obj usedon, int Q52T)
{
  if (isDead(usedon))
  {
    return (0x00);
  }
  if (testAndLearnSkill(usedon, 0x1A, Q42Q(Q52T), 0x32) > 0x00)
  {
    systemMessage(usedon, "You feel yourself resisting magical energy!");
    return (0x01);
  }
  return (0x00);
}

function int Q4CN(obj user, obj usedon, int Q52T)
{
  if (isDead(usedon))
  {
    return (0x00);
  }
  if (Q5ZJ(usedon, 0x1A, Q42Q(Q52T), 0x28) > 0x00)
  {
    systemMessage(usedon, "You feel yourself resisting magical energy!");
    return (0x01);
  }
  return (0x00);
}

function void Q5UK(obj user, obj usedon, int num, int Q5NO)
{
  if (user == usedon)
  {
    return ();
  }
  obj Q49N = user;
  obj victim = usedon;
  if (Q5NO)
  {
    Q49N = usedon;
    victim = user;
  }
  if (getCompileFlag(0x01))
  {
    if (!canBeFreelyAggressedBy(victim, Q49N))
    {
      committedCrimeAt(Q49N, getLocation(victim), 0x01E0);
    }
  }
  else
  {
    callGuards(Q49N, getLocation(victim), num);
  }
  return ();
}

function void Q5UL(obj user, loc where, int num, int Q5NO)
{
  if (getCompileFlag(0x01))
  {
    committedCrimeAt(user, where, 0x01E0);
  }
  else
  {
    callGuards(user, where, num);
  }
  return ();
}

function int Q41X(obj user, obj target)
{
  int Q5NC = 0x00;
  if (hasScript(target, "reflctor"))
  {
    Q5NC = 0x01;
  }
  return (Q5NC);
}

function int Q4Z7(obj it)
{
  return (isHuman(it));
}

function int Q43E(obj Q5U8, obj target, int damage)
{
  int Q5NH = damage;
  int Q5DD = 0x01;
  int Q5T9 = 0x00;
  if (Q5U8 != NULL())
  {
    loc Q5TR = getLocation(Q5U8);
    Q5T9 = inJusticeRegion(Q5TR);
    if (isNPC(Q5U8))
    {
      if (!Q4Z7(Q5U8))
      {
        Q5DD = 0x00;
      }
    }
  }
  int Q637 = 0x00;
  if (target != NULL())
  {
    loc Q639 = getLocation(target);
    Q637 = inJusticeRegion(Q639);
    if (isNPC(target))
    {
      if (!Q4Z7(target))
      {
        Q5DD = 0x00;
      }
    }
  }
  if (Q5DD && (Q5T9 || Q637))
  {
    Q5NH = 0x00;
  }
  return (Q5NH);
}

function void Q422(obj Q5U8, obj target, int damage, int Q5NM)
{
  int Q5CL = Q43E(Q5U8, target, damage);
  if (Q5NM)
  {
    doDamage(target, Q5U8, 0x00);
  }
  doDamage(Q5U8, target, Q5CL);
  return ();
}

function void Q423(obj Q5U8, obj target, int damage, int Q65M, int Q5NM)
{
  int Q5CL = Q43E(Q5U8, target, damage);
  if (Q5NM)
  {
    doDamage(target, Q5U8, 0x00);
  }
  doDamageType(Q5U8, target, Q5CL, Q65M);
  return ();
}

function int Q41L(obj Q4P2, obj target)
{
  if (isCounselor(target))
  {
    return (0x00);
  }
  int Q5NC = 0x00;
  loc Q4P3 = getLocation(Q4P2);
  int Q6A1 = getZ(Q4P3);
  loc Q5YV = getLocation(target);
  int Q6A3 = getZ(Q5YV);
  int Q4HE = 0x08;
  if (Q6A3 >= Q6A1)
  {
    int Q63Q = Q6A1 + Q4HE;
    if (Q6A3 <= Q63Q)
    {
      Q5NC = 0x01;
    }
  }
  return (Q5NC);
}

function void Q41T(obj scroll, string Q5OL)
{
  if (Q5OL == "")
  {
    return ();
  }
  string Q5FL;
  int objtype = getObjType(scroll);
  Q5FL = objtype;
  if (!hasScript(scroll, Q5FL))
  {
    attachScript(scroll, Q5FL);
  }
  if (!hasScript(scroll, Q5OL))
  {
    attachScript(scroll, Q5OL);
  }
  if (hasScript(scroll, "magscroll"))
  {
    detachScript(scroll, "magscroll");
  }
  list Q5OO;
  getScripts(Q5OO, scroll);
  int Q5F0 = 0x00;
  int Q5EV = 0x00;
  int Q5ET = 0x00;
  int Q5EX = 0x00;
  int Q4QI = 0x00;
  int Q5EY = numInList(Q5OO);
  for(int i = 0x00; i < Q5EY; i++)
  {
    Q4QI = 0x00;
    string Q4GF = Q5OO[i];
    if (Q4GF == Q5OL)
    {
      Q5F0++;
      Q4QI = 0x01;
    }
    if (Q4GF == Q5FL)
    {
      Q5EV++;
      Q4QI = 0x01;
    }
    if (Q4GF == "vended")
    {
      Q5EX++;
      Q4QI = 0x01;
    }
    if (!Q4QI)
    {
      detachScript(scroll, Q4GF);
    }
  }
  return ();
}

function void Q41U(obj scroll)
{
  int Q57F = getMiscData(scroll);
  int objtype = getObjType(scroll);
  if (objtype != Q4T4(Q57F))
  {
    deleteObject(scroll);
    return ();
  }
  Q41T(scroll, Q4SR(Q57F));
  return ();
}

function int Q4SS(int Q5VX, int Q463)
{
  int num = 0x00;
  switch (Q5VX)
  {
  case 0x00
    if (Q463 > 0x00)
    {
      num = 0x01;
    }
    else
    {
      num = 0x02;
    }
    break;
  case 0x01
    if (Q463 > 0x00)
    {
      num = 0x03;
    }
    else
    {
      num = 0x04;
    }
    break;
  case 0x02
    if (Q463 > 0x00)
    {
      num = 0x05;
    }
    else
    {
      num = 0x06;
    }
    break;
  }
  return (num);
}

function string Q4T9(int Q5VX, int Q463)
{
  string Q5OK;
  int num = Q4SS(Q5VX, Q463);
  switch (num)
  {
  case 0x01
    Q5OK = "strup";
    break;
  case 0x02
    Q5OK = "strdown";
    break;
  case 0x03
    Q5OK = "dexup";
    break;
  case 0x04
    Q5OK = "dexdown";
    break;
  case 0x05
    Q5OK = "intup";
    break;
  case 0x06
    Q5OK = "intdown";
    break;
  }
  return (Q5OK);
}

function int Q4T8(int Q5VX, int Q463)
{
  int num = Q4SS(Q5VX, Q463);
  int Q5NC = 0x00;
  switch (num)
  {
  case 0x01
    Q5NC = 0x67;
    break;
  case 0x02
    Q5NC = 0x68;
    break;
  case 0x03
    Q5NC = 0x69;
    break;
  case 0x04
    Q5NC = 0x6A;
    break;
  case 0x05
    Q5NC = 0x6B;
    break;
  case 0x06
    Q5NC = 0x6C;
    break;
  }
  return (Q5NC);
}

function int Q432(obj user, int Q5VX, int Q463)
{
  if (Q463 == 0x00)
  {
    return (0x00);
  }
  return (hasScript(user, Q4T9(Q5VX, Q463)));
}

function void Q43I(obj user, int Q5VX, int Q463, int Q4NC)
{
  if (Q463 == 0x00)
  {
    return ();
  }
  if (!isMobile(user))
  {
    return ();
  }
  string Q5OK = Q4T9(Q5VX, Q463);
  int Q4AT = Q4T8(Q5VX, Q463);
  setObjVar(user, Q5OK, Q463);
  int Q4I5 = modifyStat(user, Q5VX, Q463);
  attachScript(user, Q5OK);
  callback(user, Q4NC, Q4AT);
  return ();
}

function void Q43H(obj user, int Q5VX, int Q463)
{
  if (!isMobile(user))
  {
    return ();
  }
  if (Q463 == 0x00)
  {
    return ();
  }
  int Q5NC = modifyStat(user, Q5VX, Q463);
  return ();
}

function int Q41Q(obj user, int Q5VX, int Q463, int Q4NC)
{
  if (Q463 == 0x00)
  {
    return (0x01);
  }
  if (!isMobile(user))
  {
    return (0x00);
  }
  if (!Q432(user, Q5VX, Q463))
  {
    Q43I(user, Q5VX, Q463, Q4NC);
    return (0x01);
  }
  return (0x00);
}

function int Q4TA(int Q5VX, int Q463)
{
  int num = Q4SS(Q5VX, Q463);
  switch (num)
  {
  case 0x01
    return (0x01EE);
  case 0x02
    return (0x01E6);
  case 0x03
    return (0x01E7);
  case 0x04
    return (0x01DF);
  case 0x05
    return (0x01EB);
  case 0x06
    return (0x01E4);
  }
  return (0x00);
}

function int Q4T7(int Q5VX, int Q4ID)
{
  if (Q4ID)
  {
    return (0x375A);
  }
  else
  {
    return (0x3779);
  }
  return (0x00);
}

function int Q433(obj it)
{
  return (hasScript(it, "reflctor"));
}

function void Q42D(obj it, int Q5VX, int Q4ID)
{
  int Q463 = 0x01;
  if (!Q4ID)
  {
    Q463 = 0x00 - 0x01;
  }
  if (!isMobile(it))
  {
    return ();
  }
  string name = Q4T9(Q5VX, Q463);
  if (hasObjVar(it, name))
  {
    Q463 = getObjVar(it, name);
    Q43H(it, Q5VX, 0x00 - Q463);
    removeObjVar(it, name);
  }
  if (hasScript(it, name))
  {
    detachScript(it, name);
  }
  return ();
}

function void Q660(obj it)
{
  setPoisoned(it, 0x00);
  if (hasObjVar(it, "poison_strength"))
  {
    removeObjVar(it, "poison_strength");
  }
  detachScript(it, "poisoned");
  handleHealthGain(it);
  return ();
}

function void Q41C(obj Q5U8, obj target, int Q5NM)
{
  if (Q5NM)
  {
    scriptTrig(Q5U8, 0x01, target);
  }
  else
  {
    scriptTrig(target, 0x01, Q5U8);
  }
  return ();
}

function int Q49V(obj Q5KD, obj Q5KC, int Q5NM)
{
  obj user = Q5KD;
  obj usedon = Q5KC;
  if (Q5NM)
  {
    user = Q5KC;
    usedon = Q5KD;
  }
  if (usedon == NULL())
  {
    return (0x00);
  }
  if (Q5KC != NULL())
  {
    if (getTopmostContainer(Q5KC) != Q5KD)
    {
      if (!canSeeObj(user, usedon))
      {
        systemMessage(user, "Target can not be seen.");
        return (0x00);
      }
      if (getDistanceInTiles(getLocation(user), getLocation(usedon)) > 0x0C)
      {
        systemMessage(user, "Target is too far away.");
        return (0x00);
      }
    }
  }
  return (0x01);
}

function int Q50O(obj Q4XN)
{
  int Q65M = getObjType(Q4XN);
  switch (Q65M)
  {
  case 0x0DF2
  case 0x0DF3
  case 0x0DF4
  case 0x0DF5
  case 0x13F8
  case 0x13F9
    return (0x01);
    break;
  }
  return (0x00);
}

function int Q49W(obj Q4XN, obj Q5KD, obj Q5KC, int Q5NM)
{
  if (Q5KC == NULL())
  {
    return (0x00);
  }
  if (Q50O(Q4XN))
  {
    if ((!isEquipped(Q4XN)) || (containedBy(Q4XN) != Q5KD))
    {
      systemMessage(Q5KD, "You must equip this item to use it.");
      return (0x00);
    }
  }
  return (Q49V(Q5KD, Q5KC, Q5NM));
}

function void Q5MF(obj it)
{
  if (hasScript(it, "reflctor"))
  {
    doMobAnimation(it, 0x37B9, 0x0A, 0x05, 0x00, 0x00);
    detachScript(it, "reflctor");
  }
  return ();
}

function int Q42R(int Q52T)
{
  int num;
  int die;
  int Q5J6;
  switch (Q52T)
  {
  case 0x01
    num = 0x01;
    die = 0x03;
    Q5J6 = 0x03;
    break;
  case 0x02
    num = 0x01;
    die = 0x08;
    Q5J6 = 0x04;
    break;
  case 0x03
    num = 0x04;
    die = 0x04;
    Q5J6 = 0x04;
    break;
  case 0x04
    num = 0x03;
    die = 0x08;
    Q5J6 = 0x05;
    break;
  case 0x05
    num = 0x05;
    die = 0x08;
    Q5J6 = 0x06;
    break;
  case 0x06
    num = 0x06;
    die = 0x08;
    Q5J6 = 0x08;
    break;
  case 0x07
    num = 0x07;
    die = 0x08;
    Q5J6 = 0x0A;
    break;
  case 0x08
    num = 0x07;
    die = 0x08;
    Q5J6 = 0x0A;
    break;
  default
    return (0x00);
    break;
  }
  int damage = (num * random(0x01, die)) + Q5J6;
  return (damage);
}

function int Q43F(int Q5TQ, int damage)
{
  int Q5CL = (damage * (0x32 + Q5TQ)) / 0x64;
  return (Q5CL);
}

function int Q43G(obj Q5UY, obj Q4XN, int damage)
{
  int Q5TQ = 0x00;
  if (isValid(Q5UY))
  {
    if (hasObjVar(Q5UY, "magicItemDamage"))
    {
      int Q54V = getObjVar(Q5UY, "magicItemDamage");
      Q5TQ = Q54V * 0x0A;
    }
    else
    {
      if (isValid(Q4XN))
      {
        if (isMobile(Q4XN))
        {
          Q5TQ = getSkillLevel(Q4XN, 0x19);
        }
      }
    }
  }
  else
  {
    if (isValid(Q4XN))
    {
      if (isMobile(Q4XN))
      {
        Q5TQ = getSkillLevel(Q4XN, 0x19);
      }
    }
  }
  return (Q43F(Q5TQ, damage));
}

function int Q428(obj Q5UY, int Q45Y, obj Q5U8, obj dest, int Q65M, int Q5NQ)
{
  int damage = Q45Y;
  if (isNPC(dest))
  {
    damage = Q45Y * 0x02;
  }
  obj caster = Q5U8;
  if (Q5NQ)
  {
    caster = dest;
  }
  damage = Q43G(Q5UY, caster, damage);
  if (isValid(dest))
  {
    if (inJusticeRegion(getLocation(dest)))
    {
      damage = Q4BI(Q5U8, dest, damage);
    }
    else
    {
      damage = Q4BH(Q5U8, dest, damage);
    }
  }
  Q423(Q5U8, dest, damage, Q65M, Q5NQ);
  return (damage);
}

function int Q427(obj Q5UY, int Q5UW, obj Q5U8, obj dest, int Q65M, int Q5NQ)
{
  int damage = Q42R(Q5UW);
  return (Q428(Q5UY, damage, Q5U8, dest, Q65M, Q5NQ));
}

function int Q429(obj Q5UY, obj Q5U8, obj dest, int Q65M, int Q5NQ)
{
  int Q5UW = Q42S(Q5UY);
  return (Q427(Q5UY, Q5UW, Q5U8, dest, Q65M, Q5NQ));
}

function int Q42B(int range, obj Q5UY, int Q45Y, obj Q5U8, list Q5YQ, int Q65M)
{
  int num = numInList(Q5YQ);
  int damage = Q45Y;
  if (num > 0x01)
  {
    damage = damage * 0x02;
  }
  int Q5I0 = damage / num;
  if ((Q45Y > 0x00) && (Q5I0 <= 0x00))
  {
    Q5I0 = 0x01;
  }
  obj Q5HY;
  int Q527;
  loc Q5UF = getLocation(Q5U8);
  loc Q4HT;
  int Q4IJ;
  int Q5KX;
  for(int i = 0x00; i < num; i++)
  {
    Q5HY = Q5YQ[i];
    if (isValid(Q5HY))
    {
      Q4HT = getLocation(Q5HY);
      Q4IJ = getDistanceInTiles(Q5UF, Q4HT);
      Q527 = Q428(Q5UY, Q5I0, Q5U8, Q5HY, Q65M, 0x00);
      scriptTrig(Q5HY, 0x01, Q5U8);
    }
  }
  return (Q45Y);
}

function int Q42A(int range, obj Q5UY, int Q5UW, obj Q5U8, list Q5YQ, int Q65M)
{
  int damage = Q42R(Q5UW);
  return (Q42B(range, Q5UY, damage, Q5U8, Q5YQ, Q65M));
}

function int Q42C(int range, obj Q5UY, obj Q5U8, list Q5YQ, int Q65M)
{
  int Q5UW = Q42S(Q5UY);
  return (Q42A(range, Q5UY, Q5UW, Q5U8, Q5YQ, Q65M));
}

function void Q5LZ(obj Q4XN, int Q4AT, int Q540, int Q4VZ)
{
  if (!hasCallback(Q4XN, Q4AT))
  {
    shortcallback(Q4XN, random(Q540, Q4VZ), Q4AT);
  }
  return ();
}

function int Q41G(obj it, int Q463, int Q5JO, int Q5BI)
{
  if (!isValid(it))
  {
    return (0x00);
  }
  int Q4FJ;
  Q4FJ = getNotoriety(it);
  int Q5C3 = Q4FJ + Q463;
  if (Q463 > 0x00)
  {
    if (Q4FJ > Q5JO)
    {
      Q5C3 = Q4FJ;
    }
    else
    {
      if (Q5C3 > Q5JO)
      {
        Q5C3 = Q5JO;
      }
    }
  }
  if (Q463 < 0x00)
  {
    if (Q4FJ < Q5BI)
    {
      Q5C3 = Q4FJ;
    }
    else
    {
      if (Q5C3 < Q5BI)
      {
        Q5C3 = Q5BI;
      }
    }
  }
  if (Q5C3 != Q4FJ)
  {
    setNotoriety(it, Q5C3);
    return (0x01);
  }
  return (0x00);
}

function int Q41W(obj Q5U8, obj dest, int Q5NM, int Q524, int Q54K)
{
  obj Q5AQ = Q5U8;
  obj Q5A9 = dest;
  if (Q5AQ == Q5A9)
  {
    return (0x00);
  }
  if (Q5NM)
  {
    Q5AQ = dest;
    Q5A9 = Q5U8;
  }
  if (getCompileFlag(0x01))
  {
    if (Q524 == 0x01)
    {
      receiveHelpfulActionFrom(Q5A9, Q5AQ);
      int value = getKarma(Q5A9) / 0x05;
      changeKarma(Q5AQ, value);
    }
  }
  if (!getCompileFlag(0x01))
  {
    int Q4IA = NotorietyCompare(Q5AQ, Q5A9);
    if ((Q524 == 0x01) && (Q4IA == 0x01) && (!Q4BD(Q5A9, Q5AQ)))
    {
      int Q463 = 0x00 - ((Q54K + 0x01) / 0x02);
      int Q5BI = (0x00 - (((Q54K + 0x01) / 0x02) * 0x18));
      if (Q41G(Q5AQ, Q463, 0x00, Q5BI))
      {
        systemMessage(Q5AQ, "That action is frowned upon.");
      }
      return (Q463);
    }
  }
  return (0x00);
}

function int Q41J(obj Q5U8, obj dest, int Q5NM, obj Q5UY)
{
  return (Q41W(Q5U8, dest, Q5NM, 0x01, Q42S(Q5UY)));
}

function void Q4WO(obj Q68S, obj Q68D)
{
  superTargetObj(Q68S, Q68D, 0x01);
  return ();
}

function void Q4WN(obj Q68S, obj Q68D, int range)
{
  superTargetLoc(Q68S, Q68D, 0x01, range);
  return ();
}

function void Q48A(obj Q68S, obj Q68D)
{
  superTargetObj(Q68S, Q68D, 0x02);
  return ();
}

function void Q489(obj Q68S, obj Q68D, int range)
{
  superTargetLoc(Q68S, Q68D, 0x02, range);
  return ();
}

function void Q554(obj Q68S, int Q4NC)
{
  setCriminal(Q68S, Q4NC);
  return ();
}

function loc Q5I9(obj Q68S)
{
  loc Q4G3 = getLocation(Q68S);
  loc Q4BA = Q4G3;
  int find = findGoodSpotNearMin(Q4BA, 0x01, 0x01, 0x10, 0x01);
  if ((!find) || (!Q4ZZ(Q68S, Q4BA)) || (!canSeeLoc(Q68S, Q4BA)))
  {
    Q4BA = (0x00 - 0x01), (0x00 - 0x01), (0x00 - 0x01);
  }
  return (Q4BA);
}

function int Q4RN(obj caster, int Q52T)
{
  return (0x0F + ((getSkillLevel(caster, 0x19) * 0x02) / Q52T));
}

function int Q4YT(obj Q68S)
{
  if (hasCallback(Q68S, 0x80))
  {
    return (0x01);
  }
  return (0x00);
}

function int Q4SV(int Q5US, int Q5UX)
{
  switch (Q5UX)
  {
  case 0x20
    return ((Q5US + 0x01) * 0x05);
    break;
  case 0x27
    return ((Q5US + 0x01) * 0x05);
    break;
  case 0x3B
    return ((Q5US + 0x01) * 0x05);
    break;
  case 0x3C
    return ((Q5US + 0x01) * 0x05);
    break;
  case 0x3D
    return ((Q5US + 0x01) * 0x05);
    break;
  case 0x3E
    return ((Q5US + 0x01) * 0x05);
    break;
  case 0x3F
    return ((Q5US + 0x01) * 0x05);
    break;
  }
  return (Q5US + 0x01);
}

function int Q507(obj Q68S)
{
  return (hasScript(Q68S, "targeting"));
}

function void Q4M9(obj spell, obj caster)
{
  if (Q4YT(caster) || Q507(caster))
  {
    systemMessage(caster, "You are already casting a spell.");
    return ();
  }
  if (getMobFlag(caster, 0x02))
  {
    systemMessage(caster, "You can not cast a spell while frozen.");
    return ();
  }
  int Q5UX = Q4T2(spell);
  int Q5US = Q4SY(Q5UX);
  int Q55B = Q4SX(Q5US);
  if (!Q49Q(caster, Q55B))
  {
    return ();
  }
  setObjVar(caster, "spellObj", spell);
  attachScript(caster, "casting");
  int Q4H9 = Q4SV(Q5US, Q5UX);
  shortcallback(caster, Q4H9, 0x80);
  shortcallback(caster, 0x00, 0x82);
  bark(caster, Q4T5(Q4T2(spell)));
  return ();
}

function obj Q4BB(obj this, list args)
{
  obj user = args[0x00];
  obj Q4WD = getTopmostContainer(this);
  if ((Q4WD != NULL()) && (Q4WD != user))
  {
    user = NULL();
  }
  return (user);
}

function int Q508(obj it)
{
  if (hasScript(it, "teleporter"))
  {
    return (0x01);
  }
  if (hasScript(it, "dec_teleport"))
  {
    return (0x01);
  }
  if (hasScript(it, "des1_ankh_tele_1"))
  {
    return (0x01);
  }
  if (hasScript(it, "des1_ankh_tele_2"))
  {
    return (0x01);
  }
  if (hasScript(it, "despise_teleporter_four"))
  {
    return (0x01);
  }
  if (hasScript(it, "despise_teleporter_one"))
  {
    return (0x01);
  }
  if (hasScript(it, "despise_teleporter_three"))
  {
    return (0x01);
  }
  if (hasScript(it, "despise_teleporter_two"))
  {
    return (0x01);
  }
  if (hasScript(it, "dest_tele_one"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_tele_new"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_teleporter"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_teleporter2"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_teleporter3"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_teleporter4"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_teleporter5"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_teleporter6"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_teleporter7"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_teler_lever_2"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_teler_switch"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_teleroom_lever"))
  {
    return (0x01);
  }
  if (hasScript(it, "sha_teleroom_wall"))
  {
    return (0x01);
  }
  if (hasScript(it, "trap_tele_gen_er_one"))
  {
    return (0x01);
  }
  return (0x00);
}

function int Q509(loc where, int range)
{
  list Q5FJ;
  getObjectsInRange(Q5FJ, where, range);
  int num = numInList(Q5FJ);
  for(int i = 0x00; i < num; i++)
  {
    obj it = Q5FJ[i];
    if (Q508(it))
    {
      return (0x01);
    }
  }
  return (0x00);
}

function int Q657(obj user, int objtype, loc place, int Q67X, int Q5EC, int walldur, int Q4UK, int Q4H9)
{
  if (!canSeeLoc(user, place))
  {
    return (0x00);
  }
  if (Q509(place, 0x03))
  {
    return (0x00);
  }
  obj Q4EZ = Q4EQ(objtype, place);
  if (Q4EZ != NULL())
  {
    Q5RC(Q4EZ, user);
    copyControllerInfo(Q4EZ, user);
    setObjVar(Q4EZ, "newType", Q67X);
    setObjVar(Q4EZ, "walltype", Q5EC);
    setObjVar(Q4EZ, "walldur", walldur);
    attachScript(Q4EZ, "crtwall");
    shortcallback(Q4EZ, Q4H9, 0x2E);
    if (!getCompileFlag(0x01))
    {
      if (Q4UK)
      {
        Q5UL(user, place, 0x01, 0x00);
      }
    }
    return (0x01);
  }
  return (0x00);
}

function void Q5RD(obj Q68S, obj Q5UY)
{
  if (!Q507(Q68S))
  {
    attachScript(Q68S, "targeting");
  }
  setObjVar(Q68S, "targetingForObj", Q5UY);
  return ();
}

function int Q4C8(obj Q68S, obj Q5UY)
{
  if (!Q507(Q68S))
  {
    return (0x00);
  }
  obj Q4D2;
  Q4D2 = getObjVar(Q68S, "targetingForObj");
  if (Q5UY != Q4D2)
  {
    return (0x00);
  }
  detachScript(Q68S, "targeting");
  removeObjVar(Q68S, "targetingForObj");
  return (0x01);
}

function int Q504(obj caster, int Q5US)
{
  if (getSkillSuccessChance(caster, 0x19, Q4SW(Q5US), 0x28) >= 0x01F4)
  {
    return (0x01);
  }
  return (0x00);
}

function int Q4A8(obj caster, int Q5US)
{
  if (getSkillSuccessChance(caster, 0x19, Q4SW(Q5US), 0x28) > 0x00)
  {
    return (0x01);
  }
  return (0x00);
}

function int Q50H(obj caster, obj victim)
{
  if (caster == victim)
  {
    return (0x00);
  }
  if (getMobFlag(victim, 0x02))
  {
    return (0x00);
  }
  if (isInvulnerable(victim))
  {
    return (0x00);
  }
  return (0x01);
}

function void Q556(obj it)
{
  if (isNPC(it))
  {
    if (Q50H(NULL(), it))
    {
      loc where = getLocation(it);
      setX(where, getX(where) + random(0x00, 0x0A) - 0x05);
      setY(where, getY(where) + random(0x00, 0x0A) - 0x05);
      walkTo(it, where, 0x17);
    }
  }
  return ();
}

function int Q50L(loc where)
{
  if (isInRegionWithPrefix("teleportation_in_no", where))
  {
    return (0x00);
  }
  return (0x01);
}

function int Q50M(loc where)
{
  if (isInRegionWithPrefix("teleportation_out_no", where))
  {
    return (0x00);
  }
  return (0x01);
}

function int Q5UM(obj user, obj usedon, int range)
{
  if (!canSeeObj(user, usedon))
  {
    systemMessage(user, "Target cannot be seen.");
    return (0x00);
  }
  if (getDistanceInTiles(getLocation(user), getLocation(usedon)) > range)
  {
    systemMessage(user, "Target is too far away.");
    return (0x00);
  }
  return (0x01);
}

function int Q4ZK(obj it)
{
  int Q65M = getObjType(it);
  switch (Q65M)
  {
  case 0x0F6C
    return (0x01);
    break;
  default
    return (0x00);
    break;
  }
  return (0x00);
}

function int Q46M(loc where, obj Q68S)
{
  list Q5FJ;
  getObjectsAt(Q5FJ, where);
  int num = numInList(Q5FJ);
  for(int i = 0x00; i < num; i++)
  {
    obj it = Q5FJ[i];
    if (it != Q68S)
    {
      if (Q4ZK(it))
      {
        return (0x01);
      }
    }
  }
  return (0x00);
}

function int Q46L(loc where)
{
  return (Q46M(where, NULL()));
}

function int Q50G(obj usedon)
{
  if (isMobile(usedon))
  {
    if (!isDead(usedon))
    {
      if (!isCounselor(usedon))
      {
        if (!getMobFlag(usedon, 0x01))
        {
          return (0x01);
        }
      }
    }
  }
  return (0x00);
}

function int Q50J(obj usedon)
{
  return (isValid(usedon));
}

function int Q50F(loc place)
{
  return (isInMap(place));
}

function void Q5UQ(obj it)
{
  shortcallback(it, 0x01, 0x48);
  return ();
}

function void Q5UR(obj it, int Q5NC)
{
  if (!Q5NC)
  {
    shortcallback(it, 0x01, 0x48);
  }
  return ();
}