9
3

gerbards_coins.lua 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051
  1. --[[
  2. Script Name : Quests/SunkenCity/gerbards_necklace.lua
  3. Script Purpose : Handles the quest, "Gerbard's Necklace
  4. Script Author : Scatman
  5. Script Date : 2009.08.01 (15.7.2022 by torsten)
  6. Zone : Sunken City
  7. Quest Giver: Gerbard the Snitch
  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 find five pirate coins.", 5, 75, "I need to find five pirate coins.", 1763, 1240044, 1240035, 1240036,8410004)
  14. AddQuestStepCompleteAction(Quest, 1, "Step1_Complete_FoundCoins")
  15. end
  16. function Accepted(Quest, QuestGiver, Player)
  17. FaceTarget(QuestGiver, Player)
  18. Dialog.New(QuestGiver, Player)
  19. Dialog.AddDialog("Where do you think they come from? They're pirate coins! Those undead buggers roam around where it's wet. I'd go get them myself, but I gambled my sword away in a sure bet.")
  20. Dialog.AddVoiceover("voiceover/english/gerbard_the_snitch/fprt_adv01_sunken/gerbard_the_snitch002.mp3", 4172245160, 2238267271)
  21. PlayFlavor(QuestGiver,"","","scream",0,0,Player)
  22. Dialog.AddOption("Thanks, I'll search out some pirate coins.")
  23. Dialog.Start()
  24. end
  25. function Declined(Quest, QuestGiver, Player)
  26. end
  27. function Step1_Complete_FoundCoins(Quest, QuestGiver, Player)
  28. UpdateQuestStepDescription(Quest, 1, "I found five pirate coins.")
  29. UpdateQuestTaskGroupDescription(Quest, 1, "I found the five pirate coins that Gerbard the Snitch needed.")
  30. AddQuestStepChat(Quest, 2, "I need to return to Gerbard.", 1, "I need to return to Gerbard in the Sunken City. I can reach the Sunken City by using any of the bells in and around the City of Freeport.", 1763, 1240021,8410014)
  31. AddQuestStepCompleteAction(Quest, 2, "Quest_Complete")
  32. end
  33. function Quest_Complete(Quest, QuestGiver, Player)
  34. UpdateQuestStepDescription(Quest, 2, "I returned to Gerbard.")
  35. UpdateQuestTaskGroupDescription(Quest, 2, "I returned to Gerbard.")
  36. GiveQuestReward(Quest, Player)
  37. UpdateQuestDescription(Quest, "I found the five pirate coins that Gerbard the Snitch needed.")
  38. end
  39. function Reload(Quest, QuestGiver, Player, Step)
  40. if Step == 1 then
  41. Step1_Complete_FoundCoins(Quest, QuestGiver, Player)
  42. end
  43. end