9
3

bat_fur_for_fevalin_.lua 3.7 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182
  1. --[[
  2. Script Name : Quests/CastleviewHamlet/bat_fur_for_fevalin_.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.01.28 04:01:14
  5. Script Purpose :
  6. original copper value: 67c
  7. Zone : CastleviewHamlet
  8. Quest Giver: Fevalin
  9. Preceded by: None
  10. Followed by:
  11. --]]
  12. function Init(Quest)
  13. AddQuestStepKill(Quest, 1, "I need to obtain the albino fur of the cave bats.", 5, 80, "I need to gather the rare albino fur of the bats from the Caves near the Baubbleshire.", 126, 1970014,1970023,8260073, 8260016,8260018,8260073, 8260080)
  14. AddQuestStepCompleteAction(Quest, 1, "Bats1")
  15. UpdateQuestZone(Quest,"Caves")
  16. end
  17. function Accepted(Quest, QuestGiver, Player)
  18. -- Add dialog here for when the quest is accepted
  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 Bats1(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 gathered the bat fur I need.")
  29. UpdateQuestTaskGroupDescription(Quest, 1, "I've gathered the rare albino fur of some cave bats for Merchant Fevalin.")
  30. AddQuestStepChat(Quest, 2, "I need to return to Fevalin.", 1, "I need to delivery the rare albino fur of the bats to Fevalin.", 126, 2360039)
  31. AddQuestStepCompleteAction(Quest, 2, "BatsReturn1")
  32. UpdateQuestZone(Quest,"Castleview Hamlet")
  33. end
  34. function BatsReturn1(Quest, QuestGiver, Player)
  35. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  36. UpdateQuestStepDescription(Quest, 2, "I returned to Fevalin")
  37. UpdateQuestTaskGroupDescription(Quest, 2, "I've delivered the albino pelts to Fevalin.")
  38. AddQuestStepKill(Quest, 3, "I need to obtain MORE albino fur of the cave bats.", 5, 100, "I need to gather MORE rare albino fur of the bats from the Caves near the Baubbleshire.", 126, 1970014,1970023,8260073, 8260016,8260018,8260073,8260080)
  39. AddQuestStepCompleteAction(Quest, 3, "Bats2")
  40. UpdateQuestZone(Quest,"Caves")
  41. end
  42. function Bats2(Quest, QuestGiver, Player)
  43. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  44. UpdateQuestStepDescription(Quest, 3, "I have gathered additional bat fur I need.")
  45. UpdateQuestTaskGroupDescription(Quest, 3, "I've gathered additional rare albino fur of some cave bats for Merchant Fevalin.")
  46. AddQuestStepChat(Quest, 4, "I need to return to Fevalin, again.", 1, "I need to delivery the additional rare albino fur of the bats to Fevalin.", 126, 2360039)
  47. AddQuestStepCompleteAction(Quest, 4, "QuestCompelte")
  48. UpdateQuestZone(Quest,"Castleview Hamlet")
  49. end
  50. function QuestCompelte(Quest, QuestGiver, Player)
  51. UpdateQuestStepDescription(Quest, 4, "I returned to Fevalin.")
  52. UpdateQuestTaskGroupDescription(Quest, 4, "I've gathered additional rare albino fur for Merchant Fevalin.")
  53. UpdateQuestDescription(Quest, "Despite asking me for a second set of rare albino fur, I gathered all the bat fur Fevalin needed. Perhaps I am the stronger for it.")
  54. GiveQuestReward(Quest, Player)
  55. end
  56. function Reload(Quest, QuestGiver, Player, Step)
  57. if Step == 1 then
  58. Bats1(Quest, QuestGiver, Player)
  59. elseif Step == 2 then
  60. BatsReturn1(Quest, QuestGiver, Player)
  61. elseif Step == 3 then
  62. Bats2(Quest, QuestGiver, Player)
  63. elseif Step == 4 then
  64. QuestCompelte(Quest, QuestGiver, Player)
  65. end
  66. end