GeologistFribden.lua 4.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798
  1. --[[
  2. Script Name : SpawnScripts/Blackburrow/GeologistFribden.lua
  3. Script Author : Premierio015
  4. Script Date : 2022.07.12 08:07:46
  5. Script Purpose :
  6. :
  7. --]]
  8. require "SpawnScripts/Generic/DialogModule"
  9. local RareRocksLost = 5640
  10. function spawn(NPC)
  11. ProvidesQuest(NPC, RareRocksLost)
  12. end
  13. function hailed(NPC, Spawn)
  14. FaceTarget(NPC, Spawn)
  15. if not HasQuest(Spawn, RareRocksLost) and not HasCompletedQuest(Spawn, RareRocksLost) then
  16. Option0(NPC, Spawn)
  17. elseif GetQuestStep(Spawn, RareRocksLost) == 1 or GetQuestStep(Spawn, RareRocksLost) == 2 or GetQuestStep(Spawn, RareRocksLost) == 3 or GetQuestStep(Spawn, RareRocksLost) == 4 then
  18. Progress(NPC, Spawn)
  19. elseif GetQuestStep(Spawn, RareRocksLost) == 5 then
  20. Option3(NPC, Spawn)
  21. elseif HasCompletedQuest(Spawn, RareRocksLost) then
  22. Finished(NPC, Spawn)
  23. end
  24. end
  25. function Progress(NPC, Spawn)
  26. Dialog.New(NPC, Spawn)
  27. Dialog.AddVoiceover("voiceover/english/geologist_fribden/blackburrow/geologist_fribden008.mp3", 3978965868, 3637464686)
  28. Dialog.AddOption("Not yet.")
  29. Dialog.AddDialog("Well then. You recovered the rock samples I lost?")
  30. end
  31. function Option0(NPC, Spawn)
  32. Dialog.New(NPC, Spawn)
  33. Dialog.AddDialog("I've found such amazing rock formation in these caves. They're dangerous, indeed, but the sights are worth the treacherous journey.")
  34. Dialog.AddVoiceover("voiceover/english/geologist_fribden/blackburrow/geologist_fribden001.mp3", 2146454780, 3217102942)
  35. Dialog.AddOption("What are you doing down here?", "Option1")
  36. Dialog.AddOption("I'll keep an eye out.")
  37. end
  38. function Option1(NPC, Spawn)
  39. FaceTarget(NPC, Spawn)
  40. Dialog.New(NPC, Spawn)
  41. Dialog.AddDialog("Why, isn't it obvious? Wilabus and I are studying the structure and mineral constitution of Antonica ... Perhaps it's not so obvious, you appear to be one of those adventuring types, am I right?")
  42. Dialog.AddVoiceover("voiceover/english/geologist_fribden/blackburrow/geologist_fribden005.mp3", 4214643568, 2530978770)
  43. Dialog.AddOption("[continue]", "Option2")
  44. end
  45. function Option2(NPC, Spawn)
  46. FaceTarget(NPC, Spawn)
  47. Dialog.New(NPC, Spawn)
  48. Dialog.AddDialog("Why, yes, of course you are. Say! I need someone with your unique credentials. While in the upper mines, I lost some rather rare samples that I had been collecting. Would you venture to the mines and recover them for me?")
  49. Dialog.AddVoiceover("voiceover/english/geologist_fribden/blackburrow/geologist_fribden006.mp3", 2444720403, 3772890138)
  50. Dialog.AddOption("I can for a price.", "offer")
  51. Dialog.AddOption("No can do. ")
  52. end
  53. function Option3(NPC, Spawn)
  54. FaceTarget(NPC, Spawn)
  55. Dialog.New(NPC, Spawn)
  56. Dialog.AddDialog("Good to see you again, my adventurous friend. I see you've recovered my samples. It would have taken me weeks to replace them. I'm truly in your debt.")
  57. Dialog.AddVoiceover("voiceover/english/geologist_fribden/blackburrow/geologist_fribden010.mp3", 2842935841, 2634256248)
  58. Dialog.AddOption("Pay me and we'll be square. ", "Option4")
  59. end
  60. function Option4(NPC, Spawn)
  61. SetStepComplete(Spawn, RareRocksLost, 5)
  62. FaceTarget(NPC, Spawn)
  63. Dialog.New(NPC, Spawn)
  64. Dialog.AddDialog("Of course, accept these gems as compensation for your efforts. It has been an honor to make your acquaintance. May whatever faith guide you, shine evermore brightly.")
  65. Dialog.AddVoiceover("voiceover/english/geologist_fribden/blackburrow/geologist_fribden011.mp3", 3464640416, 2538518646)
  66. Dialog.AddOption("Thanks.")
  67. end
  68. function Finished(NPC, Spawn)
  69. FaceTarget(NPC, Spawn)
  70. Dialog.New(NPC, Spawn)
  71. Dialog.AddDialog("These gnolls are quite adept at mining. I would even venture to say their mining skills surpass those of the dwarves.")
  72. Dialog.AddVoiceover("voiceover/english/geologist_fribden/blackburrow/geologist_fribden012.mp3", 293315046, 2022548794)
  73. Dialog.AddOption("You don't say.")
  74. end
  75. function offer(NPC, Spawn)
  76. OfferQuest(NPC, Spawn, RareRockskLost)
  77. end
  78. function respawn(NPC)
  79. spawn(NPC)
  80. end