far_seas_requisition_okf050.lua 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081
  1. --[[
  2. Script Name : Quests/Oakmyst/far_seas_requisition_okf050.lua
  3. Script Purpose : Handles the quest, "Far Seas Requisition #OKF050"
  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 gather some mystail yearling tails.", 4, 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.", 172, 1950009,8300035)
  14. AddQuestStepKill(Quest, 2, "I must gather tongues from clearwater frogs.", 3, 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.", 1104, 1950020, 8300003)
  15. AddQuestStepKill(Quest, 3, "I must get the hide from one Oakmyst great bear.", 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.", 127, 1950023,8300016)
  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 gathered some mystail yearling tails.")
  22. QuestCheck(Quest, QuestGiver, Player)
  23. end
  24. function Step2Complete(Quest, QuestGiver, Player)
  25. UpdateQuestStepDescription(Quest, 2, "I have gathered tongues from clearwater frogs.")
  26. QuestCheck(Quest, QuestGiver, Player)
  27. end
  28. function Step3Complete(Quest, QuestGiver, Player)
  29. UpdateQuestStepDescription(Quest, 3, "I have collected the hide of an Oakmyst great bear.")
  30. QuestCheck(Quest, QuestGiver, Player)
  31. end
  32. function QuestCheck(Quest, QuestGiver, Player)
  33. if QuestStepIsComplete(Player,236,1) and QuestStepIsComplete(Player,236,2) and QuestStepIsComplete(Player,236,3) then
  34. UpdateQuestTaskGroupDescription(Quest, 1, "I have hunted down all the resources to fill the requisition.")
  35. UpdateQuestZone(Quest, "Baubbleshire")
  36. AddQuestStepChat(Quest, 4, "I need to talk to Diggin Diggs", 1, "I must go to the Baubbleshire or the Qeynos Province District 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, 7078) then
  47. RemoveItem(Player, 7078)
  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