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

60 lines
No EOL
2.3 KiB
Lua
Executable file

--[[
Script Name : ItemScripts/acarvedorcaxe.lua
Script Author : Premierio015
Script Date : 2021.06.25 07:06:22
Script Purpose :
:
--]]
local AnAxesRevenge = 5262
function examined(Item, Player)
if CanReceiveQuest(Player,AnAxesRevenge) then
Dialog1(Item,Player)
else
conversation = CreateConversation()
AddConversationOption(conversation, "[Keep the axe]")
AddConversationOption(conversation, "[Toss the axe to the ground]", "QuestFinish")
StartDialogConversation(conversation, 2, Item, Player, "This axe is familiar to you, but the orcish runes do not respond to your touch.")
end
end
function Dialog1(Item,Player)
conversation = CreateConversation()
if CanReceiveQuest(Player,AnAxesRevenge) then
AddConversationOption(conversation, "[Run your fingers over the markings]", "Dialog2")
end
AddConversationOption(conversation, "[Put the axe away]", "CloseItemConversation")
if HasLanguage(Player, 17) then
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.\"")
else
StartDialogConversation(conversation, 2, Item, Player, "This orcish looking axe has scratch marks along its face. The markings look recent.")
end
end
function Dialog2(Item,Player)
conversation = CreateConversation()
if CanReceiveQuest(Player,AnAxesRevenge) then
AddConversationOption(conversation, "My rage calls for orc blood!", "Offer")
end
AddConversationOption(conversation, "[Put the axe away]", "CloseItemConversation")
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\".")
end
function Offer(Item,Player)
if CanReceiveQuest(Player,AnAxesRevenge) then
OfferQuest(nil,Player,AnAxesRevenge)
end
CloseItemConversation(Item,Player)
end
function QuestFinish(Item,Player)
CloseItemConversation(Item,Player)
if HasItem(Player,1335) then
RemoveItem(Player,1335,1)
end
end