9
3

amysteriousarcanerod.lua 2.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  1. --[[
  2. Script Name : ItemScripts/amysteriousarcanerod.lua
  3. Script Author : Dorbin
  4. Script Date : 2023.11.15 03:11:11
  5. Script Purpose :
  6. :
  7. --]]
  8. local ShivosRod = 5928
  9. local ItemID = 2292
  10. function examined(Item, Player)
  11. if CanReceiveQuest(Player,ShivosRod) then
  12. Dialog1(Item,Player)
  13. else
  14. conversation = CreateConversation()
  15. AddConversationOption(conversation, "[Keep the arcane rod]")
  16. AddConversationOption(conversation, "[Put the arcane rod away]", "CloseItemConversation")
  17. StartDialogConversation(conversation, 2, Item, Player, "It appears to be a non descript rod of light metal. There are a few strange markings etched into it. You've seen this before, so you don't need it anymore.")
  18. end
  19. end
  20. function Dialog1(Item,Player)
  21. conversation = CreateConversation()
  22. if CanReceiveQuest(Player,ShivosRod) then
  23. AddConversationOption(conversation, "[Touch the markings with your fingertips]", "Dialog2")
  24. end
  25. AddConversationOption(conversation, "[Put the arcane rod away]", "CloseItemConversation")
  26. StartDialogConversation(conversation, 2, Item, Player, "It appears to be a non descript rod of light metal. There are a few strange markings etched into it.")
  27. end
  28. function Dialog2(Item,Player)
  29. conversation = CreateConversation()
  30. if CanReceiveQuest(Player,ShivosRod) then
  31. AddConversationOption(conversation, "[Consider where to ask about this.]", "Offer")
  32. end
  33. AddConversationOption(conversation, "[Put the arcane rod away]", "CloseItemConversation")
  34. StartDialogConversation(conversation, 2, Item, Player, "The rod seems to hum with magical energy, however, you can't seem to figure out its purpose or use at this time. It is very unlikely that the ratonga was the original owner of the rod.")
  35. end
  36. function Offer(Item,Player)
  37. if CanReceiveQuest(Player,ShivosRod) then
  38. OfferQuest(nil,Player,ShivosRod)
  39. end
  40. CloseItemConversation(Item,Player)
  41. end
  42. function QuestFinish(Item,Player)
  43. CloseItemConversation(Item,Player)
  44. if HasItem(Player,ItemID,1) then
  45. RemoveItem(Player,ItemID)
  46. end
  47. end