badger_pelts_for_diggs.lua 2.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152
  1. --[[
  2. Script Name : Quests/Baubbleshire/badger_pelts_for_diggs.lua
  3. Script Purpose : Handles the quest, "Badger Pelts for Diggs"
  4. Script Author : Scatman
  5. Script Date : 2009.09.27
  6. Zone : Baubbleshire
  7. Quest Giver: Diggin Digs
  8. Preceded by: None
  9. Followed by: None
  10. --]]
  11. require "SpawnScripts/Generic/DialogModule"
  12. function Init(Quest)
  13. AddQuestStepKill(Quest, 1, "I need ten badger pelts.", 10, 100, "I must collect ten badger pelts in the Forest Ruins or Oakmyst Forest.", 93, 1960011, 1960017, 1950035, 1950039)
  14. AddQuestStepCompleteAction(Quest, 1, "step1_complete_killedBadgers")
  15. end
  16. function Accepted(Quest, QuestGiver, Player)
  17. FaceTarget(QuestGiver, Player)
  18. Dialog.New(QuestGiver, Player)
  19. Dialog.AddDialog("Then prepare for a hunting trip in the Forest Ruins. I'll pay you handsomely for a bundle of badger pelts. I may even toss in a bit of Diggs' finest armor.")
  20. Dialog.AddVoiceover("voiceover/english/merchant_diggin_diggs/qey_village06/merchantdiggindiggs002.mp3", 2590912109, 2110560767)
  21. Dialog.AddOption("I will return with the bundle of badger pelts. ", "Dialog8")
  22. Dialog.Start()
  23. end
  24. function Declined(Quest, QuestGiver, Player)
  25. end
  26. function step1_complete_killedBadgers(Quest, QuestGiver, Player)
  27. UpdateQuestStepDescription(Quest, 1, "I have collected ten badger pelts.")
  28. UpdateQuestTaskGroupDescription(Quest, 1, "I have collected then badger pelts for Diggs.")
  29. UpdateQuestZone(Quest, "The Baubbleshire")
  30. AddQuestStepChat(Quest, 2, "I must return to Armorsmith Diggs.", 1, "I must return to Armorsmith Diggs in Baubbleshire.", 93, 2380049 )
  31. AddQuestStepCompleteAction(Quest, 2, "quest_complete")
  32. end
  33. function quest_complete(Quest, QuestGiver, Player, Step)
  34. UpdateQuestStepDescription(Quest, 2, "I have collected the souls.")
  35. UpdateQuestTaskGroupDescription(Quest, 2, "I returned to Armorsmith Diggs in Baubbleshire.")
  36. UpdateQuestDescription(Quest, "I collected ten badger pelts for Armorsmith Diggs.")
  37. GiveQuestReward(Quest, Player)
  38. end
  39. function Reload(Quest, QuestGiver, Player, Step)
  40. if Step == 1 then
  41. step1_complete_killedBadgers(Quest, QuestGiver, Player)
  42. end
  43. end