restocking_bog_faerie_wings.lua 2.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  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. function Init(Quest)
  12. 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, 1980007, 1980008, 1980010, 1980052, 1980026, 1980056, 1980061)
  13. AddQuestStepCompleteAction(Quest, 1, "Step1_Complete_GotWings")
  14. end
  15. function Accepted(Quest, QuestGiver, Player)
  16. FaceTarget(QuestGiver, Player)
  17. conversation = CreateConversation()
  18. PlayFlavor(QuestGiver, "voiceover/english/scribe_varion_smitelin/qey_village01/varionsmitelin004.mp3", "", "", 4154898846, 3738847882, Player)
  19. AddConversationOption(conversation, "You don't have to worry about me.")
  20. StartConversation(conversation, QuestGiver, Player, "Fabulous! I need a handful of the wings to restock my supply. Good luck in that nasty bog and be careful!")
  21. end
  22. function Declined(Quest, QuestGiver, Player)
  23. end
  24. function Step1_Complete_GotWings(Quest, QuestGiver, Player)
  25. UpdateQuestStepDescription(Quest, 1, "I have collected the wings Varion needed.")
  26. UpdateQuestTaskGroupDescription(Quest, 1, "I collected the eight Bog Faerie Wings for Scribe Varion Smitelin.")
  27. UpdateQuestZone(Quest, "Nettleville")
  28. 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)
  29. AddQuestStepCompleteAction(Quest, 2, "Quest_Complete")
  30. end
  31. function Quest_Complete(Quest, QuestGiver, Player)
  32. UpdateQuestStepDescription(Quest, 2, "I turned in the wings to Scribe Varion.")
  33. UpdateQuestTaskGroupDescription(Quest, 2, "I turned in the eight Bog Faerie Wings to Scribe Varion Smitelin for money.")
  34. UpdateQuestDescription(Quest, "I was able to resupply Scribe Varion Smitelin with Bog Faerie Wings and he paid me for a job well done.")
  35. GiveQuestReward(Quest, Player)
  36. end
  37. function Reload(Quest, QuestGiver, Player, Step)
  38. if Step == 1 then
  39. Step1_Complete_GotWings(Quest, QuestGiver, Player)
  40. end
  41. end