9
3

an_unbearable_problem.lua 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051
  1. --[[
  2. Script Name : Quests/FrostfangSea/an_unbearable_problem.lua
  3. Script Purpose : the quest An Unbearable Problem
  4. Script Author : theFoof
  5. Script Date : 2013.5.21
  6. Zone : Frostfang Sea
  7. Quest Giver : Flibbit Quaqmarr
  8. Preceded by : None
  9. Followed by : Little Lost Froglok
  10. --]]
  11. function Accepted(Quest, QuestGiver, Player)
  12. FaceTarget(QuestGiver, Player)
  13. conversation = CreateConversation()
  14. PlayFlavor(QuestGiver, "flibbit_quagmarr/halas/gwenevyns_cove/flibbit_quagmarr/flibbit_quagmarr_023.mp3", "", "", 537970765, 1600868781, Player)
  15. AddConversationOption(conversation, "Goodbye, Flibbit.")
  16. StartConversation(conversation, QuestGiver, Player, "I shall watch for your return.")
  17. end
  18. function Declined(Quest, QuestGiver, Player)
  19. end
  20. function Deleted(Quest, QuestGiver, Player)
  21. end
  22. function Init(Quest)
  23. AddQuestRewardCoin(Quest, math.random(10,80), math.random(2,5), 0, 0)
  24. AddQuestStepKill(Quest, 1, "I must kill blizzard grizzlies.", 6, 100, "I must go south from Gwenevyn's Cove and kill blizzard grizzlies.", 611, 4700043, 4700048, 4700047, 4700052, 4701098, 4700050)
  25. AddQuestStepCompleteAction(Quest, 1, "KilledBears")
  26. end
  27. function KilledBears(Quest, QuestGiver, Player)
  28. RemoveSpawnAccess(GetSpawnByLocationID(GetZone(Player), 5217), Player)
  29. UpdateQuestTaskGroupDescription(Quest, 1, "I have killed blizzard grizzlies south of Gwenevyn's Cove.")
  30. AddQuestStepChat(Quest, 2, "I must speak with Flibbit Quagmarr. Flibbit is staying in Gwenevyn's Cove.", 1, "I must return to Flibbit Quagmarr in Gwenevyn's Cove and inform him that I have killed the blizzard grizzlies.", 0, 4700045)
  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. KilledBears(Quest, QuestGiver, Player)
  39. elseif Step == 2 then
  40. CompleteQuest(Quest, QuestGiver, Player)
  41. end
  42. end