bear_bottoms.lua 2.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  1. --[[
  2. Script Name : Quests/FrostfangSea/bear_bottoms.lua
  3. Script Purpose : the quest Bear Bottoms
  4. Script Author : theFoof
  5. Script Date : 2013.5.20
  6. Zone : Frostfang Sea
  7. Quest Giver : Blorpisa Bogchild
  8. Preceded by : Arcane Elements
  9. Followed by : Cod and Chips
  10. --]]
  11. function Accepted(Quest, QuestGiver, Player)
  12. FaceTarget(QuestGiver, Player)
  13. conversation = CreateConversation()
  14. PlayFlavor(QuestGiver, "blorpisa_bogchild/halas/gwenevyns_cove/blorpisa_bogchild/blorpisa_bogchild_025.mp3", "", "", 3290905220, 1893346275, Player)
  15. AddConversationOption(conversation, "I will return to you once I have gathered the pelts.")
  16. StartConversation(conversation, QuestGiver, Player, "Thanks. I know it's distasteful to kill cubs, but I need their softer fur to make blankets. Thank you for doing this for me, " .. GetName(Player) .. ".")
  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 grizzly cubs to collect unmarred fur pelts.", 3, 100, "I must hunt blizzard grizzly cubs for their pelts. I can find the cubs northwest of Gwenevyn's Cove.", 122, 4700048)
  25. AddQuestStepCompleteAction(Quest, 1, "KilledCubs")
  26. end
  27. function KilledCubs(Quest, QuestGiver, Player)
  28. UpdateQuestTaskGroupDescription(Quest, 1, "I have collected the unmarred fur pelts from the blizzard grizzly cubs.")
  29. AddQuestStepChat(Quest, 2, "I must speak with Blorpisa Bogchild in Gwenevyn's Cove.", 1, "I must return the unmarred fur pelts to Blorpisa Bogchild in Gwenevyn's Cove.", 0, 4700039)
  30. AddQuestStepCompleteAction(Quest, 2, "CompleteQuest")
  31. end
  32. function CompleteQuest(Quest, QuestGiver, Player)
  33. GiveQuestReward(Quest, Player)
  34. end
  35. function Reload(Quest, QuestGiver, Player, Step)
  36. if Step == 1 then
  37. KilledCubs(Quest, QuestGiver, Player)
  38. elseif Step == 2 then
  39. CompleteQuest(Quest, QuestGiver, Player)
  40. end
  41. end