9
3

restocking_bog_faerie_wings.lua 2.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152
  1. --[[
  2. Script Name : Quests/Nettleville/restocking_bog_faerie_wings.lua
  3. Script Purpose : Handles the quest, "Restocking Bog Faerie Wings"
  4. Script Author : Scatman
  5. Script Date : 2009.08.12
  6. Zone : Nettleville
  7. Quest Giver: Varion Smitelin
  8. Preceded by: None
  9. Followed by: None
  10. --]]
  11. require "SpawnScripts/Generic/DialogModule"
  12. function Init(Quest)
  13. AddQuestStepKill(Quest, 1, "I need to collect eight bog faerie wings.", 8, 100, "I need to collect eight Bog Faerie Wings from the Peat Bog for Scribe Varion Smitelin.", 110, 8290002,8290003,8290052,8290008,8290009,8290010,8290013,8290014,8290011,8290012,8290017,8290018,8290019,8290053,8290044,8290001 )
  14. AddQuestStepCompleteAction(Quest, 1, "Step1_Complete_GotWings")
  15. end
  16. function Accepted(Quest, QuestGiver, Player)
  17. FaceTarget(QuestGiver, Player)
  18. Dialog.New(QuestGiver, Player)
  19. PlayFlavor(QuestGiver, "", "", "nod", 0, 0, Player)
  20. Dialog.AddDialog("Fabulous! I need a handful of the wings to restock my supply. Good luck in that nasty bog and be careful!")
  21. Dialog.AddVoiceover("voiceover/english/scribe_varion_smitelin/qey_village01/varionsmitelin004.mp3", 4154898846, 3738847882)
  22. Dialog.AddOption("You don't have to worry about me.")
  23. Dialog.Start()
  24. end
  25. function Declined(Quest, QuestGiver, Player)
  26. end
  27. function Step1_Complete_GotWings(Quest, QuestGiver, Player)
  28. UpdateQuestStepDescription(Quest, 1, "I have collected the wings Varion needed.")
  29. UpdateQuestTaskGroupDescription(Quest, 1, "I collected the eight Bog Faerie Wings for Scribe Varion Smitelin.")
  30. UpdateQuestZone(Quest, "Nettleville")
  31. AddQuestStepChat(Quest, 2, "I need to return to Scribe Varion Smitelin.", 1, "I should return these eight Bog Faerie Wings to Scribe Varion Smitelin in Nettleville.", 0, 2330056)
  32. AddQuestStepCompleteAction(Quest, 2, "Quest_Complete")
  33. end
  34. function Quest_Complete(Quest, QuestGiver, Player)
  35. UpdateQuestStepDescription(Quest, 2, "I turned in the wings to Scribe Varion.")
  36. UpdateQuestTaskGroupDescription(Quest, 2, "I turned in the eight Bog Faerie Wings to Scribe Varion Smitelin for money.")
  37. UpdateQuestDescription(Quest, "I was able to resupply Scribe Varion Smitelin with Bog Faerie Wings and he paid me for a job well done.")
  38. GiveQuestReward(Quest, Player)
  39. end
  40. function Reload(Quest, QuestGiver, Player, Step)
  41. if Step == 1 then
  42. Step1_Complete_GotWings(Quest, QuestGiver, Player)
  43. end
  44. end