9
3

tapping_the_torrent.lua 2.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  1. --[[
  2. Script Name : Quests/MultipleZones/tapping_the_torrent.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.06.01 12:06:28
  5. Script Purpose :
  6. Zone : MultipleZones
  7. Quest Giver:
  8. Preceded by: None
  9. Followed by:
  10. --]]
  11. function Init(Quest)
  12. AddQuestStepObtainItem(Quest, 1, "Hunt fiendish creatures to obtain more ebon storm gems.", 7, 100, "I am driven to obtain more ebon storm gems from the fiendish monsters of Norrath such as the Nightbloods. More gems will bring me closer to understanding a new language.", 1133, 15153)
  13. AddQuestStepCompleteAction(Quest, 1, "QuestComplete")
  14. end
  15. function Accepted(Quest, QuestGiver, Player)
  16. if HasItem(Player, 6663) then
  17. RemoveItem(Player, 6663,1)
  18. end
  19. end
  20. function Declined(Quest, QuestGiver, Player)
  21. -- Add dialog here for when the quest is declined
  22. end
  23. function Deleted(Quest, QuestGiver, Player)
  24. -- Remove any quest specific items here when the quest is deleted
  25. end
  26. function QuestComplete(Quest, QuestGiver, Player)
  27. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  28. UpdateQuestStepDescription(Quest, 1, "I have a consumed the power of an ebon storm gem.")
  29. UpdateQuestTaskGroupDescription(Quest, 1, "I have learned Chaos Tongue, language of the fiends in Rivervale and the Enchanted Lands.")
  30. AddLanguage(Player, 24)
  31. SendMessage(Player, "You have learned the basics of Chaos Tongue.", "White")
  32. UpdateQuestDescription(Quest, "I tapped the power of a number of ebon storm gems. Their voices flooded my mind and then all of the sudden I could comprehend the language called Chaos Tongue, spoken by the fiends that have invaded parts of Norrath from worlds unknown. <br> <br>")
  33. GiveQuestReward(Quest, Player)
  34. end
  35. function Reload(Quest, QuestGiver, Player, Step)
  36. if Step == 1 then
  37. QuestComplete(Quest, QuestGiver, Player)
  38. end
  39. end