1. local NPC_ID = 600004
  2. local METEOR = 41276
  4. local function ShaOfLust_OnCombat (event, creature, unit)
  5. local TARGET = creature:GetAITarget(1, true, 0, 45)
  6. creature:CastSpell(TARGET, 66552, true)
  7. unit:RegisterEvent(PhaseOne, 1000, 0)
  8. end
  10. local function PhaseOne (event, creature, unit)
  11. if (creature:GetHealthPct() <= 90) then
  12. unit:RemoveEvents()
  13. local TARGET2 = creature:GetAITarget(0, true, 0, 45)
  14. creature:CastSpell(TARGET2, 59351, true)
  15. unit:RegisterEvent(PhaseTwo, 1000, 0)
  16. end
  17. end
  19. local function PhaseTwo (event, creature, unit)
  20. if (creature:GetHealthPct() <= 75) then
  21. unit:RemoveEvents()
  22. creature:JumpToCoords(10322.841797, -6302.415039, 26.328140, 10, 10)
  23. creature:CastSpellAoF(10289.741211, -6288.017578, 26.145884, 41276, true) --one
  24. creature:CastSpellAoF(10297.828125, -6280.993652, 26.863653, 41276, true) --two
  25. creature:CastSpellAoF(10306.276367, -6276.641602, 27.530766, 41276, true) --three
  26. creature:CastSpellAoF(10289.741211, -6288.017578, 26.145884, 41276, true) --four
  27. creature:CastSpellAoF(10297.828125, -6280.993652, 26.863653, 41276, true) --five
  28. creature:CastSpellAoF(10306.276367, -6276.641602, 27.530766, 41276, true) --six
  29. unit:RegisterEvent(PhaseThree, 1000, 0)
  30. end
  31. end
  33. local function PhaseThree (event, creature, unit)
  34. if (creature:GetHealthPct() <= 30) then
  35. unit:RemoveEvents()
  36. local TARGET3 = creature:GetAITarget(1, true, 0, 45)
  37. creature:JumpToCoords(10329.123047, -6280.8548980, 26.420488, 10, 10)
  38. creature:CastSpell(TARGET3, 59351, true)
  39. unit:RegisterEvent(PhaseEnd, 1000, 0)
  40. end
  41. end
  43. local function PhaseEnd (event, creature, unit)
  44. if (creature:GetHealthPct() <= 10) then
  45. unit:RemoveEvents()
  46. creature:CastSpell(74458)
  47. creature:SendUnitSay("It would appear that I have been beaten, please forgive me.", 0)
  48. unit:RegisterEvent(Suicide, 6000, 1)
  49. end
  50. end
  52. local function Suicide (event, creature, unit)
  53. if (creature:GetAura(74458) == true) then
  54. creature:SendUnitSay("I will not let me blood stain your hands, I will rid this world of myself", 0)
  55. creature:CastSpell(creature, 7, true)
  56. end
  57. end
  59. RegisterCreatureEvent(NPC_ID, 1, ShaOfLust_OnCombat)

LUA Sha of Lust Script