eq2emu-content/ItemScripts/amysteriousarcanerod.lua
2024-10-26 11:37:28 +00:00

57 lines
No EOL
2.1 KiB
Lua
Executable file

--[[
Script Name : ItemScripts/amysteriousarcanerod.lua
Script Author : Dorbin
Script Date : 2023.11.15 03:11:11
Script Purpose :
:
--]]
local ShivosRod = 5928
local ItemID = 2292
function examined(Item, Player)
if CanReceiveQuest(Player,ShivosRod) then
Dialog1(Item,Player)
else
conversation = CreateConversation()
AddConversationOption(conversation, "[Keep the arcane rod]")
AddConversationOption(conversation, "[Put the arcane rod away]", "CloseItemConversation")
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.")
end
end
function Dialog1(Item,Player)
conversation = CreateConversation()
if CanReceiveQuest(Player,ShivosRod) then
AddConversationOption(conversation, "[Touch the markings with your fingertips]", "Dialog2")
end
AddConversationOption(conversation, "[Put the arcane rod away]", "CloseItemConversation")
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.")
end
function Dialog2(Item,Player)
conversation = CreateConversation()
if CanReceiveQuest(Player,ShivosRod) then
AddConversationOption(conversation, "[Consider where to ask about this.]", "Offer")
end
AddConversationOption(conversation, "[Put the arcane rod away]", "CloseItemConversation")
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.")
end
function Offer(Item,Player)
if CanReceiveQuest(Player,ShivosRod) then
OfferQuest(nil,Player,ShivosRod)
end
CloseItemConversation(Item,Player)
end
function QuestFinish(Item,Player)
CloseItemConversation(Item,Player)
if HasItem(Player,ItemID,1) then
RemoveItem(Player,ItemID)
end
end