snake_skin_for_soulforge.lua 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354
  1. --[[
  2. Script Name : snake_skin_for_soulforge.lua
  3. Script Purpose : Handles the quest, "Snake Skin for Soulforge"
  4. Script Author : Dorbin
  5. Script Date : 3/8/2022
  6. Script Notes :
  7. Zone : Graystone Yard
  8. Quest Giver : Weaponsmith Soulforge
  9. Preceded by : None
  10. Followed by : None
  11. --]]
  12. function Init(Quest)
  13. AddQuestStepKill(Quest, 1, "I need to gather cave snake skins from the Caves.", 10, 80, "I must hunt down ten cave serpents in the Caves.", 129, 1970008,1970009)
  14. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  15. UpdateQuestZone(Quest, "The Caves")
  16. end
  17. function Accepted(Quest, QuestGiver, Player)
  18. -- Add dialog here for when the quest is accepted
  19. end
  20. function Declined(Quest, QuestGiver, Player)
  21. -- Add dialog here for when the quest is declined
  22. end
  23. function Deleted(Quest, QuestGiver, Player)
  24. -- Remove any quest specific items here when the quest is deleted
  25. end
  26. function Step1Complete(Quest, QuestGiver, Player)
  27. UpdateQuestStepDescription(Quest, 1, "I've collected all ten cave snake skins.")
  28. UpdateQuestTaskGroupDescription(Quest, 1, "I've killed ten cave serpents, and gathered their skins.")
  29. UpdateQuestZone(Quest, "Graystone Yard")
  30. AddQuestStepChat(Quest, 2, "I need to deliver these snake skins to Soulforge.", 1, "I need to deliver these snake skins to Soulforge in Graystone Yard", 129, 2350013)
  31. AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
  32. end
  33. function QuestComplete(Quest, QuestGiver, Player)
  34. UpdateQuestTaskGroupDescription(Quest, 1, "I've delivered the snake skins to Weaponsmith Soulforge.")
  35. UpdateQuestDescription(Quest, "I guess the hunting wasn't so bad. I'm none the worse for wear; however, the snakes are. Soulforge stiffed me a bit on the price for them, just because they were damaged. I think it will make the weapons look more authentic!")
  36. GiveQuestReward(Quest, Player)
  37. end
  38. function Reload(Quest, QuestGiver, Player, Step)
  39. if Step == 1 then
  40. Step1Complete(Quest, QuestGiver, Player)
  41. elseif Step == 2 then
  42. QuestComplete(Quest, QuestGiver, Player)
  43. end
  44. end