9
3

rat_man_bloodsaber_crusade.lua 2.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061
  1. --[[
  2. Script Name : Quests/GraystoneYard/rat_man_bloodsaber_crusade.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.03.09 03:03:41
  5. Script Purpose :
  6. Zone : Graystone Yard
  7. Quest Giver : Watcher Curmogliel
  8. Preceded by : None
  9. Followed by : None
  10. --]]
  11. require "SpawnScripts/Generic/DialogModule"
  12. function Init(Quest)
  13. AddQuestStepKill(Quest, 1, "I must kill four ratonga Bloodsabers.", 4, 100, "I need to slay four ratonga Bloodsabers in the Down Below.", 611, 8340015,8340016,8340017,8340018, 8340019, 8340055)
  14. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  15. UpdateQuestZone(Quest,"The Down Below")
  16. end
  17. function Step1Complete(Quest,QuestGiver,Player)
  18. UpdateQuestStepDescription(Quest, 1, " I have killed enough ratongas.")
  19. UpdateQuestTaskGroupDescription(Quest, 1, "I have slain four Bloodsabers.")
  20. AddQuestStepChat(Quest, 2, "I need to return to to Watcher Curmogliel.", 1, "I must report my deed to Watcher Curmogliel in Graystone.", 2482, 2350011)
  21. AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
  22. end
  23. function Accepted(Quest, QuestGiver, Player)
  24. FaceTarget(QuestGiver, Player)
  25. PlayFlavor(QuestGiver, "","","agree",0,0,Player)
  26. Dialog.New(QuestGiver, Player)
  27. Dialog.AddDialog("Then seek out the catacombs! You must slay the Bloodsabers in the caverns. May your faith in the righteous bring you victory, or welcome you in the afterlife. The gods are watching!")
  28. Dialog.AddVoiceover("voiceover/english/watcher_curmogliel_kar_thal/qey_village03/watchercurmogliel002.mp3", 1937849354, 1911529851)
  29. Dialog.AddOption("I will prove myself. I will be back.")
  30. Dialog.Start()
  31. end
  32. function Declined(Quest, QuestGiver, Player)
  33. -- Add dialog here for when the quest is declined
  34. end
  35. function Deleted(Quest, QuestGiver, Player)
  36. -- Remove any quest specific items here when the quest is deleted
  37. end
  38. function QuestComplete(Quest, QuestGiver, Player)
  39. UpdateQuestTaskGroupDescription(Quest, 2, "I have reported my success against the Bloodsabers.")
  40. UpdateQuestZone(Quest,"Graystone Yard")
  41. UpdateQuestDescription(Quest, "I have slain the Bloodsabers and shown my faith to Watcher Curmogliel.")
  42. GiveQuestReward(Quest, Player)
  43. end
  44. function Reload(Quest, QuestGiver, Player, Step)
  45. if Step == 1 then
  46. Step1Complete(Quest, QuestGiver, Player)
  47. elseif Step == 2 then
  48. QuestComplete(Quest, QuestGiver, Player)
  49. end
  50. end