9
3

tackling_the_basilisks.lua 2.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  1. --[[
  2. Script Name : Quests/FrostfangSea/tackling_the_basilisks.lua
  3. Script Purpose : for the quest "Tackling the Basilisks"
  4. Script Author : theFoof
  5. Script Date : 2013.5.31
  6. Script Notes :
  7. Zone : Frostfang Sea
  8. Quest Giver : Belka Thunderheart
  9. Preceded by : No Substitute for Shard Work
  10. Followed by : Domestication is the New Survivalism
  11. --]]
  12. function Init(Quest)
  13. AddQuestRewardCoin(Quest, math.random(5,90), math.random(13,25), 0, 0)
  14. AddQuestStepKill(Quest, 1, "I must kill several frostbiter basilisks.", 8, 100, "The basilisks can be found to the east of the Great Shelf, along the shoreline past the battlefield.", 611, 4700103)
  15. AddQuestStepCompleteAction(Quest, 1, "KilledBasilisks")
  16. end
  17. function Accepted(Quest, QuestGiver, Player)
  18. FaceTarget(QuestGiver, Player)
  19. conversation = CreateConversation()
  20. PlayFlavor(QuestGiver, "", "", "", 0, 0, Player)
  21. AddConversationOption(conversation, "I appreciate the vote of confidence.")
  22. AddConversationOption(conversation, "Of course they won't give me much trouble.")
  23. StartConversation(conversation, QuestGiver, Player, "I don't imagine they'll give you much trouble, " .. GetName(Player) .. ". If I could say that about the rest of the outsiders that have washed up on Erollis, we'd be much better off. ")
  24. end
  25. function Deleted(Quest, QuestGiver, Player)
  26. end
  27. function Declined(Quest, QuestGiver, Player)
  28. end
  29. function KilledBasilisks(Quest, QuestGiver, Player)
  30. UpdateQuestTaskGroupDescription(Quest, 1, "I have killed several frostbiter basilisks")
  31. AddQuestStepChat(Quest, 2, "I must speak with Belka Thunderheart.", 1, "I must speak with Belka Thunderheart, who can be found in the cave at the Great Shelf.", 0, 4700079)
  32. AddQuestStepCompleteAction(Quest, 2, "CompleteQuest")
  33. end
  34. function CompleteQuest(Quest, QuestGiver, Player)
  35. GiveQuestReward(Quest, Player)
  36. end
  37. function Reload(Quest, QuestGiver, Player, Step)
  38. if Step == 1 then
  39. KilledBasilisks(Quest, QuestGiver, Player)
  40. end
  41. end