history_of_the_barbarians_part_i.lua 4.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103
  1. --[[
  2. Script Name : Quests/Antonica/history_of_the_barbarians_part_i.lua
  3. Script Author : Ememjr
  4. Script Date : 2019.03.28 04:03:19
  5. Script Purpose :
  6. Zone : Antonica
  7. Quest Giver:
  8. Preceded by: None
  9. Followed by:
  10. Quest 477
  11. this script is still being worked on
  12. --]]
  13. function Init(Quest)
  14. -- updated via zone quest
  15. AddQuestStepLocation(Quest, 1, "I need to visit Crater Pond.", 10, "I would like to visit the Crater Pond in Antonica.", 11, 160, -24, 441)
  16. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  17. end
  18. function Accepted(Quest, QuestGiver, Player)
  19. Item = GetTempVariable(Player, "Q477")
  20. conversation = CreateConversation()
  21. AddConversationOption(conversation, "Continue Story 1","ContStory1")
  22. AddConversationOption(conversation, "Close")
  23. StartDialogConversation(conversation, 2, Item, Player, "Q Our Name Struck Fear .... text needed")
  24. end
  25. function Declined(Quest, QuestGiver, Player)
  26. Item = GetTempVariable(Player, "Q477")
  27. CloseItemConversation(Item, Player)
  28. end
  29. function Deleted(Quest, QuestGiver, Player)
  30. -- Remove any quest specific items here when the quest is deleted
  31. end
  32. function Step1Complete(Quest, QuestGiver, Player)
  33. UpdateQuestStepDescription(Quest, 1, "I have seen Crater Pond.")
  34. UpdateQuestTaskGroupDescription(Quest, 1, "I have seen Crater Pond.")
  35. AddQuestStep(Quest, 2, "I should read the book.", 1, 100, "I should read the book now that I have a new page.", 2180)
  36. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  37. end
  38. function Step2Complete(Quest, QuestGiver, Player)
  39. UpdateQuestStepDescription(Quest, 2, "I have read the book.")
  40. UpdateQuestTaskGroupDescription(Quest, 2, "I have read the book.")
  41. AddQuestStepLocation(Quest, 3, "I need to visit the Collapsed Everfrost Tunnel.", 10, "I must visit the Collapsed Everfrost Tunnel in Blackburrow.", 11, -95, 0, -95)
  42. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  43. end
  44. function Step3Complete(Quest, QuestGiver, Player)
  45. UpdateQuestStepDescription(Quest, 3, "I have seen the Collapsed Everfrost Tunnel.")
  46. UpdateQuestTaskGroupDescription(Quest, 3, "I have seen the Collapsed Everfrost Tunnel.")
  47. AddQuestStep(Quest, 4, "I should read the book.", 1, 100, "I should read the book now that I have a new page.", 2180)
  48. AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
  49. end
  50. function Step4Complete(Quest, QuestGiver, Player)
  51. UpdateQuestStepDescription(Quest, 4, "I have read the book.")
  52. UpdateQuestTaskGroupDescription(Quest, 4, "I have read the book.")
  53. AddQuestStepLocation(Quest, 5, "I need to visit The Keep of the Gnollslayers.", 10, "I need to visit the Keep of the Gnollslayers in Antonica.", 11, -2104, -43, 438 )
  54. AddQuestStepCompleteAction(Quest, 5, "Step5Complete")
  55. end
  56. function Step5Complete(Quest, QuestGiver, Player)
  57. UpdateQuestStepDescription(Quest, 5, "I have seen The Keep of the Gnollslayers.")
  58. UpdateQuestTaskGroupDescription(Quest, 5, "I have seen the Keep of the Gnollslayers in Antonica.")
  59. AddQuestStep(Quest, 6, "I should read the book.", 1, 100, "I should read the book now that I have a new page.", 2180)
  60. AddQuestStepCompleteAction(Quest, 6, "QuestComplete")
  61. end
  62. function QuestComplete(Quest, QuestGiver, Player)
  63. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  64. UpdateQuestStepDescription(Quest, 6, "I have read the book.")
  65. UpdateQuestTaskGroupDescription(Quest, 6, "I have read the book.")
  66. UpdateQuestDescription(Quest, "I have visited several sites and pondered their meaning, reading more of this tome along the way. Soon I shall have enough experience to consider Part Two.")
  67. GiveQuestReward(Quest, Player)
  68. end
  69. function Reload(Quest, QuestGiver, Player, Step)
  70. if Step == 1 then
  71. Step1Complete(Quest, QuestGiver, Player)
  72. elseif Step == 2 then
  73. Step2Complete(Quest, QuestGiver, Player)
  74. elseif Step == 3 then
  75. Step3Complete(Quest, QuestGiver, Player)
  76. elseif Step == 4 then
  77. Step4Complete(Quest, QuestGiver, Player)
  78. elseif Step == 5 then
  79. Step5Complete(Quest, QuestGiver, Player)
  80. elseif Step == 6 then
  81. QuestComplete(Quest, QuestGiver, Player)
  82. end
  83. end