9
3

acarvedorcaxe.lua 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960
  1. --[[
  2. Script Name : ItemScripts/acarvedorcaxe.lua
  3. Script Author : Premierio015
  4. Script Date : 2021.06.25 07:06:22
  5. Script Purpose :
  6. :
  7. --]]
  8. local AnAxesRevenge = 5262
  9. function examined(Item, Player)
  10. if CanReceiveQuest(Player,AnAxesRevenge) then
  11. Dialog1(Item,Player)
  12. else
  13. conversation = CreateConversation()
  14. AddConversationOption(conversation, "[Keep the axe]")
  15. AddConversationOption(conversation, "[Toss the axe to the ground]", "QuestFinish")
  16. StartDialogConversation(conversation, 2, Item, Player, "This axe is familiar to you, but the orcish runes do not respond to your touch.")
  17. end
  18. end
  19. function Dialog1(Item,Player)
  20. conversation = CreateConversation()
  21. if CanReceiveQuest(Player,AnAxesRevenge) then
  22. AddConversationOption(conversation, "[Run your fingers over the markings]", "Dialog2")
  23. end
  24. AddConversationOption(conversation, "[Put the axe away]", "CloseItemConversation")
  25. if HasLanguage(Player, 17) then
  26. StartDialogConversation(conversation, 2, Item, Player, "This axe has orcish written across its surface. The markings look recent. You read \n\"Betrayed!\nThier blood will be mine.\n Revenge. Cleave. Restore Honor.\"")
  27. else
  28. StartDialogConversation(conversation, 2, Item, Player, "This orcish looking axe has scratch marks along its face. The markings look recent.")
  29. end
  30. end
  31. function Dialog2(Item,Player)
  32. conversation = CreateConversation()
  33. if CanReceiveQuest(Player,AnAxesRevenge) then
  34. AddConversationOption(conversation, "My rage calls for orc blood!", "Offer")
  35. end
  36. AddConversationOption(conversation, "[Put the axe away]", "CloseItemConversation")
  37. StartDialogConversation(conversation, 2, Item, Player, "Images flood your mind of an orc cast out of its clan, betrayed by those trusted for the sake of power. A sense of rage and injustice envelopes your thoughts.\n\nOne word drapes over all other thoughts,\"Revenge\".")
  38. end
  39. function Offer(Item,Player)
  40. if CanReceiveQuest(Player,AnAxesRevenge) then
  41. OfferQuest(nil,Player,AnAxesRevenge)
  42. end
  43. CloseItemConversation(Item,Player)
  44. end
  45. function QuestFinish(Item,Player)
  46. CloseItemConversation(Item,Player)
  47. if HasItem(Player,1335) then
  48. RemoveItem(Player,1335,1)
  49. end
  50. end