9
3

InTheNameOfHate.lua 4.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394
  1. --[[
  2. Script Name : Quests/Freeport/InTheNameOfHate.lua
  3. Script Purpose : Handles the quest, "In The Name of Hate"
  4. Script Author : premierio015
  5. Script Date : 06.09.2020
  6. Script Notes : NOT DONE YET!
  7. Zone : The City of Freeport
  8. Quest Giver : Dyymona K'Vexx
  9. Preceded by : None
  10. Followed by : None
  11. --]]
  12. function Init(Quest)
  13. AddQuestStepKill(Quest, 1, "Find and slay the Thexian escapees", 10, 100, "I should find the hiding Thexians along the crumbling wall and guard towers within Commonlands, near Turmoil Cemetery.", 11, 1)
  14. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  15. end
  16. function Accepted(Quest, QuestGiver, Player)
  17. -- Add dialog here for when the quest is accepted
  18. end
  19. function Declined(Quest, QuestGiver, Player)
  20. -- Add dialog here for when the quest is declined
  21. end
  22. function Deleted(Quest, QuestGiver, Player)
  23. -- Remove any quest specific items here when the quest is deleted
  24. end
  25. function Step1Complete(Quest, QuestGiver, Player)
  26. UpdateQuestStepDescription(Quest, 1, "")
  27. UpdateQuestTaskGroupDescription(Quest, 1, "I found the escaped Thexians and cleansed this world of them!")
  28. AddQuestStep(Quest, 2, "Gather Thexian priest robe", 1, 100, "I have been entrusted with collecting the stolen tomes of arcanum and with stealing a Thexian robe around the crumbling wall and guard towers within Commonlands, near Turmoil Cemetery.", 11)
  29. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  30. end
  31. function Step2Complete(Quest, QuestGiver, Player)
  32. UpdateQuestStepDescription(Quest, 2, "")
  33. AddQuestStep(Quest, 3, "Gather Thexian tomes of arcanum", 5, 100, "I have been entrusted with collecting the stolen tomes of arcanum and with stealing a Thexian robe around the crumbling wall and guard towers within Commonlands, near Turmoil Cemetery.", 11)
  34. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  35. end
  36. function Step3Complete(Quest, QuestGiver, Player)
  37. UpdateQuestStepDescription(Quest, 3, "")
  38. UpdateQuestTaskGroupDescription(Quest, 2, "I collected the stolen tomes of arcanum and a Thexian robe for Dyymona K’Vexx.")
  39. AddQuestStepChat(Quest, 4, "Return to Dyymona K'Vexx", 1, "I should return to Dyymona K'Vexx, at the Academy of Arcane Science in the city of Freeport.", 11, 1)
  40. AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
  41. end
  42. function Step4Complete(Quest, QuestGiver, Player)
  43. UpdateQuestStepDescription(Quest, 4, "")
  44. UpdateQuestTaskGroupDescription(Quest, 3, "I returned to Dyymona K'Vexx, the dark elf mentor.")
  45. AddQuestStepChat(Quest, 5, "Deliver missive to L'rak Ta'Wound", 1, "Dyymona K'Vexx has given me a missive to deliver to L'rak Ta'Wound, an Arasai working at the Nerian embassy in Freeport.", 11, 1)
  46. AddQuestStepCompleteAction(Quest, 5, "Step5Complete")
  47. end
  48. function Step5Complete(Quest, QuestGiver, Player)
  49. UpdateQuestStepDescription(Quest, 5, "")
  50. UpdateQuestTaskGroupDescription(Quest, 4, "I delivered Dyymona's missive to L'rak Ta'Wound, at the Nerian embassy in Freeport.")
  51. AddQuestStepChat(Quest, 6, "Return to Dyymona K'Vexx", 1, "I should return to Dyymona K'Vexx, at the Academy of Arcane Science in the city of Freeport.", 11, 2)
  52. AddQuestStepCompleteAction(Quest, 6, "QuestComplete")
  53. end
  54. function QuestComplete(Quest, QuestGiver, Player)
  55. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  56. UpdateQuestStepDescription(Quest, 6, "")
  57. UpdateQuestTaskGroupDescription(Quest, 5, "I returned to Dyymona K'Vexx, the dark elf mentor.")
  58. UpdateQuestDescription(Quest, "After regaining the stolen tomes of arcanum and delivering a missive, Dyymona K'Vexx complimented me on my dependability, saying, \"It is rare to find another Teir'Dal whom you can trust, implicitly.\"")
  59. GiveQuestReward(Quest, Player)
  60. end
  61. function Reload(Quest, QuestGiver, Player, Step)
  62. if Step == 1 then
  63. Step1Complete(Quest, QuestGiver, Player)
  64. elseif Step == 2 then
  65. Step2Complete(Quest, QuestGiver, Player)
  66. elseif Step == 3 then
  67. Step3Complete(Quest, QuestGiver, Player)
  68. elseif Step == 4 then
  69. Step4Complete(Quest, QuestGiver, Player)
  70. elseif Step == 5 then
  71. Step5Complete(Quest, QuestGiver, Player)
  72. elseif Step == 6 then
  73. QuestComplete(Quest, QuestGiver, Player)
  74. end
  75. end