becoming_a_cleric.lua 2.7 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162
  1. --[[
  2. Script Name : Quests/Hallmark/becoming_a_cleric.lua
  3. Script Author : Dorbin
  4. Script Date : 2023.09.29 02:09:48
  5. Script Purpose :
  6. Zone : Hallmark
  7. Quest Giver:
  8. Preceded by: None
  9. Followed by:
  10. --]]
  11. require "SpawnScripts/Generic/DialogModule"
  12. function Init(Quest)
  13. AddQuestStepChat(Quest, 1, "I need to speak to Modinite Z'Vol.", 1, "I need to find Modinite Z'Vol and tell him I am ready for the Threshing.", 11, 1440466)
  14. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  15. end
  16. function Accepted(Quest, QuestGiver, Player)
  17. FaceTarget(QuestGiver, Player)
  18. Dialog.New(QuestGiver, Player)
  19. Dialog.AddDialog("Well, this remains to be seen, child. The Dismal Rage requires all aspiring clerics to undergo a test of fortitude to ensure they are strong enough to stand for their faith. The Threshing will test your body and soul. Only the truly devout will emerge from the refiner's fire to take their place as clerics. ")
  20. Dialog.AddVoiceover("voiceover/english/priest_kelian/fprt_north/priestkelian012.mp3", 1989505954, 504674124)
  21. PlayFlavor(QuestGiver, "", "", "agree", 0, 0, Player)
  22. Dialog.AddOption("If it is required of me, then it will be done.")
  23. Dialog.Start()
  24. end
  25. function Declined(Quest, QuestGiver, Player)
  26. -- Add dialog here for when the quest is declined
  27. end
  28. function Deleted(Quest, QuestGiver, Player)
  29. -- Remove any quest specific items here when the quest is deleted
  30. end
  31. function Step1Complete(Quest, QuestGiver, Player)
  32. UpdateQuestStepDescription(Quest, 1, "I spoke to Modinite Z'Vol.")
  33. UpdateQuestTaskGroupDescription(Quest, 1, "I found Modinite Z'Vol and spoke to him.")
  34. AddQuestStep(Quest, 2, "I need to survive the Threshing.", 1, 100, "I need to enter the room to undergo the Threshing and then speak to Modinite Z'Vol. I must survive this test.", 11)
  35. AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
  36. end
  37. function QuestComplete(Quest, QuestGiver, Player)
  38. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  39. UpdateQuestStepDescription(Quest, 2, "I survived the Threshing.")
  40. UpdateQuestTaskGroupDescription(Quest, 2, "I survived the test and spoke to Z'Vol.")
  41. UpdateQuestDescription(Quest, "I survived the pain of the Threshing. I have emerged purified and worthy of the title I now hold. I am a Cleric.")
  42. GiveQuestReward(Quest, Player)
  43. end
  44. function Reload(Quest, QuestGiver, Player, Step)
  45. if Step == 1 then
  46. Step1Complete(Quest, QuestGiver, Player)
  47. elseif Step == 2 then
  48. QuestComplete(Quest, QuestGiver, Player)
  49. end
  50. end