9
3

pelles_manuscript.lua 3.9 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576
  1. --[[
  2. Script Name : pelles_manuscript.lua
  3. Script Purpose : Handles the quest, "Pelle's Manuscript"
  4. Script Author : Dorbin
  5. Script Date : 5/2/2022
  6. Script Notes :
  7. Zone : The Elddar Grove
  8. Quest Giver :
  9. Preceded by : None
  10. Followed by : None
  11. --]]
  12. require "SpawnScripts/Generic/DialogModule"
  13. function Init(Quest)
  14. AddQuestStepChat(Quest, 1, "I need to speak with Rune Shimmerstar in South Qeynos.", 1, "I must give this manuscript to Rune Shimmerstar at the mage's tower in South Qeynos.", 711, 2310081)
  15. AddQuestStepCompleteAction(Quest, 1, "QuestStep2")
  16. UpdateQuestZone(Quest, "South Qeynos")
  17. end
  18. function Accepted(Quest, QuestGiver, Player)
  19. FaceTarget(QuestGiver, Player)
  20. Dialog.New(QuestGiver, Player)
  21. Dialog.AddDialog("Great news! Best I've had all day really. Now, make certain it is a human by the name of Rune Shimmerstar who recieves this. He's the only one at the Three Towers I'll trust! Hehe, never made it much of a habbit to put much faith in those magi-folk. You know, we had quite a number of adventures together, Rune and me! Quite a nice chap once you get to know him.")
  22. Dialog.AddVoiceover("voiceover/english/pelle_shinkicker/qey_elddar/pelleshinkicker003.mp3", 2052304892, 1411111467)
  23. PlayFlavor(QuestGiver, "", "", "smile", 0, 0, Player)
  24. Dialog.AddOption("I'll be back shortly.")
  25. Dialog.AddOption("If we don't stop talking now I may never get there!")
  26. Dialog.Start()
  27. end
  28. function Declined(Quest, QuestGiver, Player)
  29. -- Add dialog here for when the quest is declined
  30. end
  31. function Deleted(Quest, QuestGiver, Player)
  32. -- Remove any quest specific items here when the quest is deleted
  33. end
  34. function QuestStep2(Quest, QuestGiver, Player)
  35. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  36. UpdateQuestStepDescription(Quest, 1, "I've spoken with Rune Shimmerstar.")
  37. UpdateQuestTaskGroupDescription(Quest, 1, "Rune Shimmerstar has laid an enchantment on the book to preserve it.")
  38. UpdateQuestZone(Quest, "Oakmyst Forest")
  39. AddQuestStepChat(Quest, 2, "I need to deliver this book to Aundor Singingsword in the Oakmyst Forest", 1, "Rune Shimmerstar asked me to show Aundor Singingsword the newly bound book.", 720, 1950021,8300020)
  40. AddQuestStepCompleteAction(Quest, 2, "QuestStep3")
  41. end
  42. function QuestStep3(Quest, QuestGiver, Player)
  43. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  44. UpdateQuestStepDescription(Quest, 2, "I've spoken with Aundor Singingsword.")
  45. UpdateQuestTaskGroupDescription(Quest, 2, "Aundor Singingsword revealed some of Pelle's exaggerations.")
  46. UpdateQuestZone(Quest, "The Elddar Forest")
  47. AddQuestStepChat(Quest, 3, "I need to deliver this book to Pelle Shinkicker in the Elddar Grove", 1, "Pelle Shinkicker is waiting for his book to be returned in the Elddar Grove.", 720, 2070067)
  48. AddQuestStepCompleteAction(Quest, 3, "QuestComplete")
  49. end
  50. function QuestComplete(Quest, QuestGiver, Player)
  51. UpdateQuestStepDescription(Quest, 3, "I've returned to Pelle Shinkicker.")
  52. UpdateQuestTaskGroupDescription(Quest, 3, "Pelle was pleased to hear about how his new work was recieved.")
  53. UpdateQuestDescription(Quest, "After I spoke with Rune Shimmerstar, he sent me off to go speak with yet another of their old company. I was relieved to find Aundor only wished me to return Pelle's copy of the book and not play messenger any longer. When I returned to Pelle, he did have a rather nice bracelet for me!")
  54. GiveQuestReward(Quest, Player)
  55. end
  56. function Reload(Quest, QuestGiver, Player, Step)
  57. if Step == 1 then
  58. QuestStep2(Quest,Questgiver,Player)
  59. elseif Step == 2 then
  60. QuestStep3(Quest,Questgiver,Player)
  61. elseif Step == 3 then
  62. QuestComplete(Quest, QuestGiver, Player)
  63. end
  64. end