9
3

forsaking_the_grave.lua 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748
  1. --[[
  2. Script Name : Quests/FrostfangSea/forsaking_the_grave.lua
  3. Script Purpose : the quest Forsaking the Grave
  4. Script Author : theFoof
  5. Script Date : 2013.6.5
  6. Zone : Frostfang Sea
  7. Quest Giver : Battlepriest Herga
  8. Preceded by : The Siege is Not Over
  9. Followed by : All That Remains
  10. --]]
  11. function Init(Quest)
  12. AddQuestRewardCoin(Quest, math.random(5,90), math.random(6,15), 0, 0)
  13. AddQuestStepKill(Quest, 1, "I must kill several reanimated Ry'Gorr skeletons on the Forbidden Ossuary of Ice.", 8, 100, "I must kill several reanimated Ry'Gorr skeletons on the Forbidden Ossuary of Ice.", 611, 4700878)
  14. AddQuestStepCompleteAction(Quest, 1, "KilledOrcs")
  15. end
  16. function Accepted(Quest, QuestGiver, Player)
  17. FaceTarget(QuestGiver, Player)
  18. conversation = CreateConversation()
  19. PlayFlavor(QuestGiver, "battlepriest_herga/halas/great_shelf/battlepriest_herga/battlepriest_herga044.mp3", "", "", 2826724628, 2053031770, Player)
  20. AddConversationOption(conversation, "The abominations will be eliminated.")
  21. AddConversationOption(conversation, "I know exactly where to find them.")
  22. StartConversation(conversation, QuestGiver, Player, "Seek out the skeletons on the isle known as the Forbidden Ossuary of Ice. The Ossuary floats off the coast, to the southwest of Erollis.")
  23. end
  24. function Deleted(Quest, QuestGiver, Player)
  25. end
  26. function Declined(Quest, QuestGiver, Player)
  27. end
  28. function KilledOrcs(Quest, QuestGiver, Player)
  29. UpdateQuestTaskGroupDescription(Quest, 1, "I have killed several reanimated Ry'Gorr skeletons.")
  30. AddQuestStepChat(Quest, 2, "I must speak with Battlepriest Herga.", 1, "I must speak with Battlepriest Herga, who can be found on the battlefield at the Great Shelf.", 0, 4700100)
  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. KilledOrcs(Quest, QuestGiver, Player)
  39. end
  40. end