TheGreatFloodofBlackburrow.lua 8.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116
  1. --[[
  2. Script Name : ItemScripts/TheGreatFloodofBlackburrow.lua
  3. Script Author : Premierio015
  4. Script Date : 2022.07.22 05:07:31
  5. Script Purpose :
  6. :
  7. --]]
  8. local TheGreatFlood = 5689
  9. function examined(Item, Player)
  10. if not HasQuest(Player, TheGreatFlood) and not HasCompletedQuest(Player, TheGreatFlood) then
  11. OfferQuest(nil, Player, TheGreatFlood)
  12. end
  13. conversation = CreateConversation()
  14. AddConversationOption(conversation, "Entry One", "EntryOne")
  15. AddConversationOption(conversation, "Put book away", "CloseItemConversation")
  16. StartDialogConversation(conversation, 2, Item, Player, "While the pages of this book appear blank at first glance, there is actually faint writing on each of the existing pages. They are the observations of someone who was trapped in Blackburrow when the waters rose to fill the lower tunnels.")
  17. end
  18. function EntryOne(Item, Player)
  19. conversation = CreateConversation()
  20. if QuestStepIsComplete(Player, TheGreatFlood, 1) then
  21. AddConversationOption(conversation, "Entry Two", "EntryTwo")
  22. end
  23. AddConversationOption(conversation, "Put book away", "CloseItemConversation")
  24. StartDialogConversation(conversation, 2, Item, Player, "The route through the Blackburrow of the gnolls from Everfrost is dark, twisting and deep. I have quite often gotten lost as I do not use any source of light. That would reveal my presence to the cursed gnolls. My business is my own, taking me through these dark passages every fortnight.")
  25. end
  26. function EntryTwo(Item, Player)
  27. SetStepComplete(Player, TheGreatFlood, 2)
  28. conversation = CreateConversation()
  29. if QuestStepIsComplete(Player, TheGreatFlood, 3) then
  30. AddConversationOption(conversation, "Entry Three", "EntryThree")
  31. end
  32. AddConversationOption(conversation, "Put book away", "CloseItemConversation")
  33. StartDialogConversation(conversation, 2, Item, Player, "My home is Halas of the North. My business takes me to Qeynos Hills and for that reason alone, I must suffer the trek through the stench of the gnoll pits. Sometimes I will send ahead my pet wolf Silkie to find sport in the darkness. She enjoys the exercise, for the gnolls cannot outrun her. I can follow their cries and need not use any of the dark methods I have learned to see in the dark.")
  34. end
  35. function EntryThree(Item, Player)
  36. SetStepComplete(Player, TheGreatFlood, 4)
  37. conversation = CreateConversation()
  38. if QuestStepIsComplete(Player, TheGreatFlood, 5) then
  39. AddConversationOption(conversation, "Entry Four", "EntryFour")
  40. end
  41. AddConversationOption(conversation, "Put book away", "CloseItemConversation")
  42. StartDialogConversation(conversation, 2, Item, Player, "On this journey, Silkie and I found the snows melting by day and freezing at night. Daggers of ice hung from the rocky outcroppings, sometimes breaking off and shattering on the ground below with a loud crack. Her tail between her legs, her ears darting back and forth, Silkie panted and paced, uneasy. Her troubled behavior made me uneasy as well.")
  43. end
  44. function EntryFour(Item, Player)
  45. SetStepComplete(Player, TheGreatFlood, 6)
  46. conversation = CreateConversation()
  47. if QuestStepIsComplete(Player, TheGreatFlood, 7) then
  48. AddConversationOption(conversation, "Entry Five", "EntryFive")
  49. end
  50. AddConversationOption(conversation, "Put book away", "CloseItemConversation")
  51. StartDialogConversation(conversation, 2, Item, Player, "At the entrance to the tunnels, we found the gnoll guards had abandoned their posts, leaving behind nothing but the cold embers of their watch fires. There used to be snow at this level, but there was not. The ground was moist with melting snow. Silkie refused to enter the tunnel until I threatened her. Then she scuttled ahead sideways, like a crab, trying to see both ahead of us and behind.")
  52. end
  53. function EntryFive(Item, Player)
  54. SetStepComplete(Player, TheGreatFlood, 8)
  55. conversation = CreateConversation()
  56. if QuestStepIsComplete(Player, TheGreatFlood, 9) then
  57. AddConversationOption(conversation, "Entry Six", "EntrySix")
  58. end
  59. AddConversationOption(conversation, "Put book away", "CloseItemConversation")
  60. StartDialogConversation(conversation, 2, Item, Player, "Down we went on our usual route, encountering nothing. The tunnels were silent, but for the constant drip-drip-drip of water in the dark. As we emerged from one narrow tunnel into a wider space, Silkie whimpered and whined, her misery echoing around the chamber. \"Be still!\" I commanded her. She fell silent and I was aware that the entire world had gone silent as well.")
  61. end
  62. function EntrySix(Item, Player)
  63. SetStepComplete(Player, TheGreatFlood, 10)
  64. conversation = CreateConversation()
  65. if QuestStepIsComplete(Player, TheGreatFlood, 11) then
  66. AddConversationOption(conversation, "Entry Seven", "EntrySeven")
  67. end
  68. AddConversationOption(conversation, "Put book away", "CloseItemConversation")
  69. StartDialogConversation(conversation, 2, Item, Player, "Suddenly came a large rending sound that shook the marrow of the mountains and threw me and Silkie to the ground. She scrambled to her feet and ran howling away through the darkness. I lay pressed against the rocky ground, hugging it as though I could stop its convulsions. Finally, it grew still. \"Silkie!\" I called into the silence. She did not answer.")
  70. end
  71. function EntrySeven(Item, Player)
  72. SetStepComplete(Player, TheGreatFlood, 12)
  73. conversation = CreateConversation()
  74. if QuestStepIsComplete(Player, TheGreatFlood, 13) then
  75. AddConversationOption(conversation, "Entry Eight", "EntryEight")
  76. end
  77. AddConversationOption(conversation, "Put book away", "CloseItemConversation")
  78. StartDialogConversation(conversation, 2, Item, Player, "No, Silkie did not come at my call, though I could still hear her terrified, high-pitched whimper echoing. Then she fell silent and I heard something else -- a roar that I have never heard in those tunnels before. It reminded me of the scream the snow makes as it tumbles down a mountainside on a sleigh of ice. A roar covered in velvet.")
  79. end
  80. function EntryEight(Item, Player)
  81. SetStepComplete(Player, TheGreatFlood, 14)
  82. conversation = CreateConversation()
  83. if QuestStepIsComplete(Player, TheGreatFlood, 15) then
  84. AddConversationOption(conversation, "Entry Nine", "EntryNine")
  85. end
  86. AddConversationOption(conversation, "Put book away", "CloseItemConversation")
  87. StartDialogConversation(conversation, 2, Item, Player, "I too scrambled to my feet, but with the unseen roar echoing through the chamber, could not know which way to turn. I began my enchantment, though my teeth chattered. A heavy wind rushed into the chamber, bringing with it the smell of generations of foul gnolls from somewhere deep in the Blackburrow. It broke my concentration and my spell dissipated before I could cast.")
  88. end
  89. function EntryNine(Item, Player)
  90. SetStepComplete(Player, TheGreatFlood, 16)
  91. conversation = CreateConversation()
  92. if QuestStepIsComplete(Player, TheGreatFlood, 17) then
  93. AddConversationOption(conversation, "Entry Ten", "EntryTen")
  94. end
  95. AddConversationOption(conversation, "Put book away", "CloseItemConversation")
  96. StartDialogConversation(conversation, 2, Item, Player, "And then the water surrounded me. It tumbled me over and over like a pebble on the sea shore. I could not tell what was skyward and which way led to death in its depths. The waters rushed onward, as frantic as I to find an outlet. After an eternity, the waters threw me onto an unseen ledge near the roof of the cavern before swirling away.")
  97. end
  98. function EntryTen(Item, Player)
  99. SetStepComplete(Player, TheGreatFlood, 18)
  100. conversation = CreateConversation()
  101. AddConversationOption(conversation, "Close Book.", "CloseItemConversation")
  102. StartDialogConversation(conversation, 2, Item, Player, "Though I lay on the ledge for days, the water did not drain. I was finally able to cast my light-giving spell and saw the ruin of the cavern below. My thoughts lay on my certain death and I was bitter and angry to die like a gnoll and not with honor in battle. I would not die unsung. You who read this, know that the world was shaken and I survived. For a little while.")
  103. end