an_intriguing_eye.lua 6.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133
  1. --[[
  2. Script Name : Quests/TheDownBelow/an_intriguing_eye.lua
  3. Script Author : Premierio015
  4. Script Date : 2021.10.03 03:10:05
  5. Script Purpose : Access Quest
  6. Zone : The Down Below
  7. Quest Giver:
  8. Preceded by: None
  9. Followed by:
  10. --]]
  11. function Init(Quest)
  12. AddQuestStepKill(Quest, 1, "Slay Bloodsaber meddlers", 1, 30, "Writing on the book states that rat men, possibly the Bloodsabers of the Down Below carry information I need. I will hack through their ranks until I find a clue about the symbol.", 374, 1990027)
  13. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  14. end
  15. function Accepted(Quest, QuestGiver, Player)
  16. -- Add dialog here for when the quest is accepted
  17. end
  18. function Declined(Quest, QuestGiver, Player)
  19. -- Add dialog here for when the quest is declined
  20. end
  21. function Deleted(Quest, QuestGiver, Player)
  22. -- Remove any quest specific items here when the quest is deleted
  23. end
  24. function Step1Complete(Quest, QuestGiver, Player)
  25. UpdateQuestStepDescription(Quest, 1, "I've killed Bloodsaber meddlers.")
  26. UpdateQuestTaskGroupDescription(Quest, 1, "I slew Bloodsaber rat men until I found a clue.")
  27. GiveQuestItem(Quest, Player, "I slew Bloodsaber rat men until I found a clue.", 1236)
  28. AddQuestStep(Quest, 2, "Read the Bloodsaber note", 1, 100, "I should read the note I now carry in my inventory, the one I found on the Bloodsaber.", 11)
  29. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  30. end
  31. function Step2Complete(Quest, QuestGiver, Player)
  32. UpdateQuestStepDescription(Quest, 2, "I've read the Bloodsaber note.")
  33. UpdateQuestTaskGroupDescription(Quest, 2, "I read the note found on the Bloodsaber. Oddly...it was written in common Norrathian.")
  34. AddQuestStepChat(Quest, 3, "Speak to Gornit Penwiggle", 1, "I need to find Gornit Penwiggle in the Qeynos Province District. He is a record keeper and may know of this coin.", 11, 2380003, 6600257)
  35. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  36. end
  37. function Step3Complete(Quest, QuestGiver, Player)
  38. UpdateQuestStepDescription(Quest, 3, "I've spoken to Gornit Penwiggle.")
  39. UpdateQuestTaskGroupDescription(Quest, 3, "I spoke to Gornit Penwiggle about the coin.")
  40. AddQuestStepKill(Quest, 4, "Slay some coiled burrowers", 3, 100, "I need to fill the hunting list for Gornit Penwiggle. I should be able to find these critters in the Down Below.", 109, 1990009)
  41. AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
  42. end
  43. function Step4Complete(Quest, QuestGiver, Player)
  44. UpdateQuestStepDescription(Quest, 4, "I killed some coiled burrowers.")
  45. AddQuestStepKill(Quest, 5, "Slay some rabid shrillers", 4, 100, "I need to fill the hunting list for Gornit Penwiggle. I should be able to find these critters in the Down Below.", 178, 1990001)
  46. AddQuestStepCompleteAction(Quest, 5, "Step5Complete")
  47. end
  48. function Step5Complete(Quest, QuestGiver, Player)
  49. UpdateQuestStepDescription(Quest, 5, "I killed some rabid shrillers.")
  50. UpdateQuestTaskGroupDescription(Quest, 4, "I filled the hunting list for Gornit Penwiggle.")
  51. AddQuestStepChat(Quest, 6, "Speak to Gornit Penwiggle", 1, "I need to return to the Qeynos Province District to speak with Gornit Penwiggle.", 11, 2380003, 6600257)
  52. AddQuestStepCompleteAction(Quest, 6, "Step6Complete")
  53. end
  54. function Step6Complete(Quest, QuestGiver, Player)
  55. UpdateQuestStepDescription(Quest, 6, "I've spoken to Gornit Penwiggle.")
  56. UpdateQuestTaskGroupDescription(Quest, 5, "I returned to the Qeynos Province District and spoke with Gornit Penwiggle.")
  57. AddQuestStepChat(Quest, 7, "Speak to the collector", 1, "I need to speak to a collector at the Collector's Trove here in the Qeynos Province District.", 11, 2340024, 6600239)
  58. AddQuestStepCompleteAction(Quest, 7, "Step7Complete")
  59. end
  60. function Step7Complete(Quest, QuestGiver, Player)
  61. UpdateQuestStepDescription(Quest, 7, "I've spoken to Blagard.")
  62. UpdateQuestTaskGroupDescription(Quest, 6, "I spoke to Blagard at the Collector's Trove.")
  63. AddQuestStepChat(Quest, 8, "Speak to Constable Arathur", 1, "I need to speak to Constable Arathur somewhere in the Qeynos Province District.", 11, 2330048, 6600248)
  64. AddQuestStepCompleteAction(Quest, 8, "Step8Complete")
  65. end
  66. function Step8Complete(Quest, QuestGiver, Player)
  67. UpdateQuestStepDescription(Quest, 8, "I've spoken to Constable Arathur.")
  68. UpdateQuestTaskGroupDescription(Quest, 7, "I spoke to Constable Arathur in the Qeynos Province District.")
  69. AddQuestStepKill(Quest, 9, "Slay a fallen noble.", 1, 100, "I need to slay a fallen noble in the deep depths of the Down Below.", 11, 1990017, 1990018)
  70. AddQuestStepCompleteAction(Quest, 9, "Step9Complete")
  71. end
  72. function Step9Complete(Quest, QuestGiver, Player)
  73. UpdateQuestStepDescription(Quest, 9, "I destroyed a fallen noble")
  74. UpdateQuestTaskGroupDescription(Quest, 8, "I slew a fallen noble in the Down Below and gained an Unseen Hand Coin.")
  75. AddQuestStepZoneLoc(Quest, 10, "Find the hand statue.", 5, "I need to find the hand statue of the Circle of the Unseen Hand in the Down Below. Constable Arathur noted this as the entrance in the thieves' hive.", 975, -143, 0, -74, 199)
  76. AddQuestStepCompleteAction(Quest, 10, "QuestComplete")
  77. end
  78. function QuestComplete(Quest, QuestGiver, Player)
  79. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  80. UpdateQuestStepDescription(Quest, 10, "I found the hand statue.")
  81. UpdateQuestTaskGroupDescription(Quest, 9, "I discovered the hand statue of the Circle of the Unseen Hand.")
  82. UpdateQuestDescription(Quest, "The symbol has led me to believe there is a secret hideout of some sorts in the Down Below. Who is in the hideout is a mystery I will surely find out and report to the Qeynos Guard.")
  83. GiveQuestReward(Quest, Player)
  84. end
  85. function Reload(Quest, QuestGiver, Player, Step)
  86. if Step == 1 then
  87. Step1Complete(Quest, QuestGiver, Player)
  88. elseif Step == 2 then
  89. Step2Complete(Quest, QuestGiver, Player)
  90. elseif Step == 3 then
  91. Step3Complete(Quest, QuestGiver, Player)
  92. elseif Step == 4 then
  93. Step4Complete(Quest, QuestGiver, Player)
  94. elseif Step == 5 then
  95. Step5Complete(Quest, QuestGiver, Player)
  96. elseif Step == 6 then
  97. Step6Complete(Quest, QuestGiver, Player)
  98. elseif Step == 7 then
  99. Step7Complete(Quest, QuestGiver, Player)
  100. elseif Step == 8 then
  101. Step8Complete(Quest, QuestGiver, Player)
  102. elseif Step == 9 then
  103. Step9Complete(Quest, QuestGiver, Player)
  104. elseif Step == 10 then
  105. QuestComplete(Quest, QuestGiver, Player)
  106. end
  107. end