9
3

far_seas_requisition_okf063.lua 3.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  1. --[[
  2. Script Name : Quests/Oakmyst/far_seas_requisition_okf063.lua
  3. Script Purpose : Handles the quest, "Far Seas Requisition #OKF063"
  4. Script Author : ememjr
  5. Script Date : 5/9/2017
  6. Script Notes :
  7. Zone : Oakmyst Forest
  8. Quest Giver :
  9. Preceded by : None
  10. Followed by : None
  11. --]]
  12. function Init(Quest)
  13. AddQuestStepKill(Quest, 1, "I must collect five Oakmyst deer pelts.", 5, 80, "To fill the requisition, I must hunt down the creatures in Oakmyst Forest, reachable by any number of mariner bells in the City of Qeynos.", 138, 1950001, 1950007, 8300015,8300013)
  14. AddQuestStepKill(Quest, 2, "I must collect five badger cub pelts.", 5, 80, "To fill the requisition, I must hunt down the creatures in Oakmyst Forest, reachable by any number of mariner bells in the City of Qeynos.", 129, 1950035)
  15. AddQuestStepKill(Quest, 3, "I must collect a single bear cub pelt.", 1, 70, "To fill the requisition, I must hunt down the creatures in Oakmyst Forest, reachable by any number of mariner bells in the City of Qeynos.", 128, 1950000)
  16. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  17. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  18. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  19. end
  20. function Step1Complete(Quest, QuestGiver, Player)
  21. UpdateQuestStepDescription(Quest, 1, "I have collected five Oakmyst fawn pelts.")
  22. QuestCheck(Quest, QuestGiver, Player)
  23. end
  24. function Step2Complete(Quest, QuestGiver, Player)
  25. UpdateQuestStepDescription(Quest, 2, "I have collected five badger cub pelts.")
  26. QuestCheck(Quest, QuestGiver, Player)
  27. end
  28. function Step3Complete(Quest, QuestGiver, Player)
  29. UpdateQuestStepDescription(Quest, 3, "I have collected a single bear cub pelt.")
  30. QuestCheck(Quest, QuestGiver, Player)
  31. end
  32. function QuestCheck(Quest, QuestGiver, Player)
  33. if QuestStepIsComplete(Player,237,1) and QuestStepIsComplete(Player,237,2) and QuestStepIsComplete(Player,237,3) then
  34. UpdateQuestTaskGroupDescription(Quest, 1, "I have collected all of the items listed in the requisition.")
  35. UpdateQuestZone(Quest, "Baubbleshire")
  36. AddQuestStepChat(Quest, 4, "I need to talk to Diggin Diggs", 1, "I must go to the province district of Qeynos to seek out the client for this order.", 10, 6600085, 2380049)
  37. AddQuestStepCompleteAction(Quest, 4, "QuestComplete")
  38. end
  39. end
  40. function QuestComplete(Quest, QuestGiver, Player)
  41. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  42. UpdateQuestStepDescription(Quest, 4, "I talked to Diggin Diggs.")
  43. UpdateQuestTaskGroupDescription(Quest, 4, "I have delivered the goods to Diggin Diggs.")
  44. UpdateQuestDescription(Quest, "I filled the Far Seas Requisition and delivered the goods to the client in the Baubbleshire & Qeynos Province District. I have been paid in full for this work, but the order was late.")
  45. GiveQuestReward(Quest, Player)
  46. if HasItem(Player, 7079) then
  47. RemoveItem(Player, 7079)
  48. end
  49. end
  50. function Reload(Quest, QuestGiver, Player, Step)
  51. if Step == 1 then
  52. Step1Complete(Quest, QuestGiver, Player)
  53. elseif Step == 2 then
  54. Step2Complete(Quest, QuestGiver, Player)
  55. elseif Step == 3 then
  56. Step3Complete(Quest, QuestGiver, Player)
  57. elseif Step == 4 then
  58. QuestComplete(Quest, QuestGiver, Player)
  59. end
  60. end
  61. function Accepted(Quest, QuestGiver, Player)
  62. -- Add dialog here for when the quest is accepted
  63. end
  64. function Declined(Quest, QuestGiver, Player)
  65. -- Add dialog here for when the quest is declined
  66. end