a_murky_miasma_of_a_mystery.lua 2.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
  1. --[[
  2. Script Name : Quests/FrostfangSea/a_murky_miasma_of_a_mystery.lua
  3. Script Purpose : the quest A Murky Miasma of a Mystery
  4. Script Author : theFoof
  5. Script Date : 2013.5.26
  6. Zone : Frostfang Sea
  7. Quest Giver : Dolur Axebeard
  8. Preceded by : The Glimmer Orc
  9. Followed by : A Scattering of Ashes
  10. --]]
  11. function Accepted(Quest, QuestGiver, Player)
  12. FaceTarget(QuestGiver, Player)
  13. conversation = CreateConversation()
  14. PlayFlavor(QuestGiver, "dolur_axebeard/halas/great_shelf/dolur_axebeard/dolur_axebeard020.mp3", "", "", 3770331911, 592699035, Player)
  15. AddConversationOption(conversation, "I suspect they will have what you need.")
  16. AddConversationOption(conversation, "Let's hope this isn't a dead end.")
  17. StartConversation(conversation, QuestGiver, Player, "Ye'll find the miasmas not far from here. Look to the icy shelf above the battlefield, south of here. Bring back whatever you can find after taking them out, and hopefully it'll solve the mystery of the Ry'Gorr's invisibility.")
  18. end
  19. function Declined(Quest, QuestGiver, Player)
  20. end
  21. function Deleted(Quest, QuestGiver, Player)
  22. end
  23. function Init(Quest)
  24. AddQuestRewardCoin(Quest, math.random(10,80), math.random(6,15), 0, 0)
  25. AddQuestStepKill(Quest, 1, "I must collect several deepice crystals from deepice miasmas.", 8, 100, "I must collect several deepice crystals from deepice miasmas. The miasmas tend to wander to the west of Herga's Choke, on the ledge above the battlefield.", 3774, 4700085)
  26. AddQuestStepCompleteAction(Quest, 1, "GotCrystals")
  27. end
  28. function GotCrystals(Quest, QuestGiver, Player)
  29. UpdateQuestTaskGroupDescription(Quest, 1, "I have collected several deepice crystals.")
  30. AddQuestStepChat(Quest, 2, "I must speak with Dolur Axebeard.", 1, "I must speak with Dolur Axebeard, who can be found in the cave at the Great Shelf.", 0, 4700078)
  31. AddQuestStepCompleteAction(Quest, 2, "CompleteQuest")
  32. end
  33. function CompleteQuest(Quest, QuestGiver, Player)
  34. GiveQuestReward(Quest, Player)
  35. end
  36. function Reload(Quest, QuestGiver, Player, Step)
  37. if Step == 1 then
  38. GotCrystals(Quest, QuestGiver, Player)
  39. end
  40. end