skulls_for_the_taking.lua 2.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
  1. --[[
  2. Script Name : Quests/FrostfangSea/skulls_for_the_taking.lua
  3. Script Purpose : the quest "Skulls for the Taking"
  4. Script Author : theFoof
  5. Script Date : 2013.6.14
  6. Script Notes :
  7. Zone : Frostfang Sea
  8. Quest Giver : Hillfred Kinloch
  9. Preceded by : Blood Spilled for the Blade Maiden
  10. Followed by : Great Mystery
  11. --]]
  12. function Init(Quest)
  13. AddQuestRewardCoin(Quest, math.random(5,90), math.random(27,38), 0, 0)
  14. AddQuestStepKill(Quest, 1, "Slay the Ry'Gorr orcs that are camped out on Jagged Daggers isle.", 8, 100, "Hillfred believes the orcs are staging their beachfront charge from the nearby isle known as Jagged Daggers.", 611, 4700120, 4700543, 4700119, 4700538, 4700542, 4700121, 4700118)
  15. AddQuestStepCompleteAction(Quest, 1, "KilledOrcs")
  16. end
  17. function Accepted(Quest, QuestGiver, Player)
  18. FaceTarget(QuestGiver, Player)
  19. conversation = CreateConversation()
  20. PlayFlavor(QuestGiver, "hillfred_kinloch/halas/cragged_spine/hillfred_kinloch_010.mp3", "", "", 1103422610, 3121183656, Player)
  21. AddConversationOption(conversation, "This should be fun!")
  22. StartConversation(conversation, QuestGiver, Player, "Swim over there and fall upon the beasts as if you were a rabid wolf of the Everfrost! Bring me back a great many skulls as trophies to adorn our defenses.")
  23. end
  24. function Deleted(Quest, QuestGiver, Player)
  25. end
  26. function Declined(Quest, QuestGiver, Player)
  27. end
  28. function KilledOrcs(Quest, QuestGiver, Player)
  29. UpdateQuestTaskGroupDescription(Quest, 1, "You have enough Ry'Gorr skulls to suffice.")
  30. AddQuestStepChat(Quest, 2, "Return to Hillfred Kinloch now that you have enough Ry'Gorr skulls.", 1, "You should return to Hillfred Kinloch, at Cragged Spine, now that you have enough Ry'Gorr skulls.", 0, 4700115)
  31. AddQuestStepCompleteAction(Quest, 2, "CompleteQuest")
  32. end
  33. function CompleteQuest(Quest, QuestGiver, Player)
  34. GiveQuestReward(Quest, Player)
  35. end
  36. function Reload(Quest, QuestGiver, Player, Step)
  37. if Step == 1 then
  38. KilledOrcs(Quest, QuestGiver, Player)
  39. end
  40. end