the_patchwork_tapestry_classic.lua 1.9 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  1. --[[
  2. Script Name : the_patchwork_tapestry.lua
  3. Script Purpose : Handles the quest, "The Patchwork Tapestry"
  4. Script Author : QuestParser (Replace this)
  5. Script Date : 5/28/2022
  6. Script Notes : CLASSIC Version of quest. Gives Studied version of item that actually counts for update.
  7. Zone : Language
  8. Quest Giver :
  9. Preceded by : None
  10. Followed by : None
  11. --]]
  12. function Init(Quest)
  13. AddQuestStepObtainItem(Quest, 1, "Hunt fairies in Norrath to gain fay fabric patches to study.", 7, 100, "I must obtain more patches of fay fabric to piece together the foundation of the fairy language. I must get the fabric patches from fairies of Norrath.", 417, 13526)
  14. AddQuestStepCompleteAction(Quest, 1, "QuestComplete")
  15. end
  16. function Accepted(Quest, QuestGiver, Player)
  17. if HasItem(Player, 7003) then
  18. RemoveItem(Player, 7003,1)
  19. end
  20. end
  21. function Declined(Quest, QuestGiver, Player)
  22. -- Add dialog here for when the quest is declined
  23. end
  24. function Deleted(Quest, QuestGiver, Player)
  25. -- Remove any quest specific items here when the quest is deleted
  26. end
  27. function QuestComplete(Quest, QuestGiver, Player)
  28. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  29. UpdateQuestStepDescription(Quest, 1, "I have a studied a fay fabric patch.")
  30. UpdateQuestTaskGroupDescription(Quest, 1, "I have learned Fayfolk, language of the fairies.")
  31. AddLanguage(Player, 23)
  32. SendMessage(Player, "You have learned the basics of the Fay language.", "White")
  33. UpdateQuestDescription(Quest, "I pieced together patches of fay fabric to discover the foundation of two languages, Norrathian and Fay. I have used the fabric patches to learn the language of the fairies, Fayfolk.")
  34. GiveQuestReward(Quest, Player)
  35. end
  36. function Reload(Quest, QuestGiver, Player, Step)
  37. if Step == 1 then
  38. QuestComplete(Quest, QuestGiver, Player)
  39. end
  40. end