9
3

quills_for_ommanoden.lua 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263
  1. --[[
  2. Script Name : Quests/StarcrestCommune/quills_for_ommanoden.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.07.01 07:07:52
  5. Script Purpose :
  6. Zone : StarcrestCommune
  7. Quest Giver: Scribe Ommanoden
  8. Preceded by: None
  9. Followed by:
  10. --]]
  11. require "SpawnScripts/Generic/DialogModule"
  12. function Init(Quest)
  13. UpdateQuestZone(Quest, "Antonica")
  14. AddQuestStepKill(Quest, 1, "I must find five feathers from hawks in Antonica.", 5, 75, "I must find five perfect hawk feathers from the hawks in Antonica for Scribe Ommanoden.", 149, 2370108,120064,120029)
  15. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  16. end
  17. function Accepted(Quest, QuestGiver, Player)
  18. FaceTarget(QuestGiver, Player)
  19. Dialog.New(QuestGiver, Player)
  20. Dialog.AddDialog("Now, these quills must be perfect. Take your time and examine each feather for the correct width, breadth, and sturdiness. If the feathers are even slightly imperfect, toss them aside. I've no use for them. Now, run along and fetch my quills.")
  21. PlayFlavor(QuestGiver, "", "", "orate", 0, 0, Player)
  22. Dialog.AddVoiceover("voiceover/english/scribe_ommanoden/qey_village02/ommanoden001.mp3", 3176284758, 506456632)
  23. Dialog.AddOption("Perfect feathers for perfect quills. Got it.")
  24. Dialog.Start()
  25. end
  26. function Declined(Quest, QuestGiver, Player)
  27. -- Add dialog here for when the quest is declined
  28. end
  29. function Deleted(Quest, QuestGiver, Player)
  30. -- Remove any quest specific items here when the quest is deleted
  31. end
  32. function Step1Complete(Quest, QuestGiver, Player)
  33. UpdateQuestStepDescription(Quest, 1, "I have found five feathers from the hawks in Antonica.")
  34. UpdateQuestTaskGroupDescription(Quest, 1, "I've found a perfect sample of hawk feathers for Scribe Ommanoden.")
  35. UpdateQuestZone(Quest, "Starcrest Commune")
  36. AddQuestStepChat(Quest, 2, "I must return to Scribe Ommanoden.", 1, "I need to deliver these feathers to Scribe Ommanoden in Starcrest Commune.", 149, 2340052)
  37. AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
  38. end
  39. function QuestComplete(Quest, QuestGiver, Player)
  40. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  41. UpdateQuestStepDescription(Quest, 2, "I have returned to Scribe Ommanoden.")
  42. UpdateQuestTaskGroupDescription(Quest, 2, "I've delievered the hawk feathers to Scribe Ommanoden.")
  43. UpdateQuestDescription(Quest, "Despite gathering the most perfect feathers for his quills, the Erudite scribe remained aloof. Perhaps one day I will call on him to find information for me in all those books and scrolls he pens.")
  44. GiveQuestReward(Quest, Player)
  45. end
  46. function Reload(Quest, QuestGiver, Player, Step)
  47. if Step == 1 then
  48. Step1Complete(Quest, QuestGiver, Player)
  49. elseif Step == 2 then
  50. QuestComplete(Quest, QuestGiver, Player)
  51. end
  52. end