9
3

mystery_on_the_orc_iceberg.lua 3.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. --[[
  2. Script Name : Quests/FrostfangSea/mystery_on_the_orc_iceberg.lua
  3. Script Purpose : the quest Mystery on the Orc Iceberg
  4. Script Author : theFoof
  5. Script Date : 2013.7.23
  6. Script Notes :
  7. Zone : Frostfang Sea
  8. QuestGiver : Knut Orcbane
  9. Preceded by : Clan of the Cave Imps
  10. Followed by : Becoming Another Orcbane
  11. --]]
  12. function Init(Quest)
  13. AddQuestRewardCoin(Quest, math.random(5,90), math.random(12,25), 0, 0)
  14. AddQuestStep(Quest, 1, "Obtain any clues as to what the Ry'Gorr orcs are scheming on the small iceberg.", 4, 100, "Investigate what the Ry'Gorr orcs are doing on the small iceberg south of Jagged Daggers Isle.", 1668)
  15. AddQuestStepKill(Quest, 2, "Dispose of any Ry'Gorr orcs you happen to find on the iceberg.", 3, 100, "Investigate what the Ry'Gorr orcs are doing on the small iceberg south of Jagged Daggers Isle.", 611, 4700120, 4700543, 4700538, 4700119, 4700121, 4700542)
  16. AddQuestStepCompleteAction(Quest, 1, "FoundClues")
  17. AddQuestStepCompleteAction(Quest, 2, "KilledOrcs")
  18. end
  19. function Accepted(Quest, QuestGiver, Player)
  20. FaceTarget(QuestGiver, Player)
  21. conversation = CreateConversation()
  22. PlayFlavor(QuestGiver, "knut_orcbane/halas/cragged_spine/knut_orcbane_033.mp3", "", "", 4051446009, 1752564808, Player)
  23. AddConversationOption(conversation, "Gladly!")
  24. StartConversation(conversation, QuestGiver, Player, "I knew my confidence was not misplaced in you! Go over to the iceberg and see what you can find out. Kill any Ry'Gorr you encounter, but more importantly, see what items you can find that may tell us what they are up to.")
  25. end
  26. function Deleted(Quest, QuestGiver, Player)
  27. end
  28. function Declined(Quest, QuestGiver, Player)
  29. end
  30. function FoundClues(Quest, QuestGiver, Player)
  31. UpdateQuestStepDescription(Quest, 1, "You found Ry'Gorr pickaxes stashed on the small iceberg.")
  32. CheckProgress(Quest, QuestGiver, Player)
  33. end
  34. function KilledOrcs(Quest, QuestGiver, Player)
  35. UpdateQuestStepDescription(Quest, 2, "You've slain enough orcs.")
  36. CheckProgress(Quest, QuestGiver, Player)
  37. end
  38. function CheckProgress(Quest, QuestGiver, Player)
  39. if QuestStepIsComplete(Player, 80, 1) and QuestStepIsComplete(Player, 80, 2) then
  40. AddStep3(Quest, QuestGiver, Player)
  41. end
  42. end
  43. function AddStep3(Quest, QuestGiver, Player)
  44. UpdateQuestTaskGroupDescription(Quest, 1, "You found Ry'Gorr pickaxes stashed on the small iceberg and dealt with several orcs, along the way.")
  45. AddQuestStepChat(Quest, 3, "Return to Knut Orcbane and tell him of the Ry'Gorr pickaxes stashed on the small iceberg.", 1, "You should return to Knut Orcbane, at Cragged Spine, and tell him of the Ry'Gorr pickaxes stashed on the small iceberg.", 0, 4700113)
  46. AddQuestStepCompleteAction(Quest, 3, "CompleteQuest")
  47. end
  48. function CompleteQuest(Quest, QuestGiver, Player)
  49. GiveQuestReward(Quest, Player)
  50. end
  51. function Reload(Quest, QuestGiver, Player, Step)
  52. if QuestStepIsComplete(Player, 80, 1) then
  53. FoundClues(Quest, QuestGiver, Player)
  54. end
  55. if QuestStepIsComplete(Player, 80, 2) then
  56. KilledOrcs(Quest, QuestGiver, Player)
  57. end
  58. end