Added Lua Scripts

This commit is contained in:
Gogs 2020-02-29 13:20:29 -08:00
parent b5e7a0bca1
commit c89f212aaa
4434 changed files with 213951 additions and 0 deletions

View file

@ -0,0 +1,18 @@
--[[
Script Name : ItemScripts/ABookOfGnollishOrders.lua
Script Purpose : A Book of Gnollish Orders
Script Author : Scatman
Script Date : 2009.10.08
Script Notes :
--]]
local QUEST_1_CONSULBREE = 223
function examined(Item, Player)
if HasQuest(Player, QUEST_1_CONSULBREE) and GetQuestStep(Player, QUEST_1_CONSULBREE) == 2 then
SetStepComplete(Player, QUEST_1_CONSULBREE, 2)
end
conversation = CreateConversation()
AddConversationOption(conversation, "Put the book away.")
StartDialogConversation(conversation, 2, Item, Player, "This is the book of gnollish orders that Bree was searching for. There is a symbol on each page of a paw held to an eye.")
end

View file

@ -0,0 +1,10 @@
--[[
Script Name : ItemScripts/afancyfirework.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.18.2019
Script Notes :
--]]
function used(Item, Player)
CastSpell(Player, 5004, 1)
end

View file

@ -0,0 +1,32 @@
--[[
Script Name : ItemScripts/ANoteFromTheQeynosQuartermaster.lua
Script Purpose : A Note from the Qeynos Quartermaster - Adventures in Antonica
Script Author : Scatman
Script Date : 2009.10.18
Script Notes :
--]]
local QUEST_1_ANTONICA = 300
function examined(Item, Player)
if not HasQuest(Player, QUEST_1_ANTONICA) and not HasCompletedQuest(Player, QUEST_1_ANTONICA) then
OfferQuest(nil, Player, QUEST_1_ANTONICA)
end
conversation = CreateConversation()
AddConversationOption(conversation, "continue.", "Continue")
AddConversationOption(conversation, "Put note away.")
StartDialogConversation(conversation, 2, Item, Player, "Greetings,\n\nThe city of Qeynos congratulates you on your recent accomplishments! Though certain amenties are provided to you now that you are a citizen of Qeynos, you may want to educate yourself on the everyday tasks that can provide you a path to other adventures. There are those you will find in Antonica that are loyal to Qeynos and will provide assistance with other things like food and drink if you require sustenance on your adventures.")
end
function Continue(Item, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "continue.", "Continue2")
AddConversationOption(conversation, "Put note away.")
StartDialogConversation(conversation, 2, Item, Player, "Masty Rollingpin is a retired cook for the Qeynos Guard and now assists weary travelers on the road with good, wholesome food. She usually only requires some chores around Sayer's Outfitters, which you can find on the road east of our good city. Her Coldwind chowder is known throughout the land and is a favorite of the Qeynos Guard.")
end
function Continue2(Item, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "Put note away.")
StartDialogConversation(conversation, 2, Item, Player, "Haddek Vimki has been providing refreshments for travelers at Sayer's Outfitters for many years now and is always willing to lend a hand. His beer and spirits are legendary. Hopefully you will find this information useful on your path to adventure. Once again, congratulations, and good luck!\n~The Quartermaster")
end

View file

@ -0,0 +1,6 @@
local QUEST = 385
function examined(Item, Player)
if CanReceiveQuest(Player, QUEST)
then OfferQuest(NPC, Player, QUEST)
end
end

View file

@ -0,0 +1,16 @@
--[[
Script Name : Ayr'Dal Language Primer
Script Purpose :
Script Author : Neatz09
Script Date : 1/19/2019
Script Notes :
--]]
function obtained(Item, Spawn)
if not HasLanguage(Spawn,7) then
AddLanguage(Spawn, 7)
SendMessage(Spawn, "Ayr'Dal", "White")
RemoveItem(Spawn, 901)
end
end

View file

View file

@ -0,0 +1,19 @@
--[[
Script Name : ItemScripts/Bogchild's_Iced_Trap.lua
Script Purpose : Handles the item "Bogchild's Iced Trap"
Script Author : theFoof
Script Date : 2013.5.20
Script Notes :
--]]
function used(Item, Player)
target = GetTarget(Player)
if GetName(target) == 'a snowpack' or GetName(target) == 'an iceflow' then
if IsInCombat(target) then
SendMessage(Player, "You can only use this on an iceflow or snowpack that is not currently engaged in combat.", "yellow")
else
CastEntityCommand(Player, target, 1274, "Bogchild's Iced Trap")
end
else
SendMessage(Player, "You can only use this on an iceflow or a snowpack.", "yellow")
end
end

View file

@ -0,0 +1,23 @@
--[[
Script Name : ItemScripts/BowlOfTerratrodderChuck.lua
Script Purpose : Handles the item "Bowl of Terratrodder Chuck"
Script Author : jakejp
Script Date : 6/10/2018
Script Notes :
--]]
local TerratrodderChuck = 45400
local AMindOfMyOwn = 294
function used(Item, Player)
if HasQuest(Player, AMindOfMyOwn) then
if GetZoneID(GetZone(Player)) == 108 then
RemoveItem(Player, TerratrodderChuck)
local bucket = SpawnMob(GetZone(Player), 1081002, 1, GetX(Player), GetY(Player), GetZ(Player), GetHeading(Player))
AddSpawnAccess(bucket, Player)
SetTempVariable(bucket, "PlayerPointer", Player)
end
end
end

View file

@ -0,0 +1,35 @@
--[[
Script Name : ItemScripts/BundleofSpiritsWards.lua
Script Purpose : for the quest item "Bundle of Spirits"
Script Author : theFoof
Script Date : 2013.5.28
Script Notes :
--]]
local CallingBack = 35
function used(Item, Player)
if HasQuest(Player, CallingBack) then
if GetZoneID(GetZone(Player)) == 470 then
local X = GetX(Player)
local Z = GetZ(Player)
if X >= 595 and X <= 605 then
if Z >= -268 and Z <= -258 then
SetStepComplete(Player, CallingBack, 4)
end
elseif X >= 576 and X <= 586 and Z >= -344 and Z <= -334 then
SetStepComplete(Player, CallingBack, 1)
elseif X >= 502 and X <= 512 then
if Z >= -238 and Z <= -228 then
SetStepComplete(Player, CallingBack, 2)
end
elseif X >= 579 and X <= 589 and Z >= -160 and Z <= -150 then
SetStepComplete(Player, CallingBack, 3)
elseif X >= 576 and X <= 586 and Z >= -217 and Z <= -207 then
SetStepComplete(Player, CallingBack, 5)
else
SendMessage(Player, "You cannot place a ward here.", "yellow")
end
end
end
end

View file

@ -0,0 +1,18 @@
--[[
Script Name : ItemScripts/CrustoseRepellentPrototype.lua
Script Purpose : Handles the item "crustose repellent prototype"
Script Author : theFoof
Script Date : 2013.5.12
Script Notes :
--]]
function used(Item, Player)
local target = GetTarget(Player)
if GetName(target) == "a crustose sporetender" then
CastEntityCommand(Player, target, 1269, "Spray")
elseif IsInCombat(target) and GetName(target) == "a crustose sporetender" then
SendMessage(Player, "This effect cannot be used on a crustose sporetender which is in combat.", "yellow")
elseif GetName(target) ~= "a crustose sporetender" then
SendMessage(Player, "You can only use the crustose repellent against crustose sporetenders.", "yellow")
end
end

28
Lua/ItemScripts/Darkheart.lua Executable file
View file

@ -0,0 +1,28 @@
--[[
Script Name : ItemScripts/DarkHeart.lua
Script Purpose : Necromancer Darkheart(Summoned Item)
Script Author : Neatz09
Script Date : 10/16/2019
Script Notes :
--]]
local SPELLID = 5013
local SPELL_TIERS = { [45872] = 1, [45870] = 2, [45871] = 3, [45874] = 4, [45869] = 5, [45873] = 7, [45875] = 9 }
function obtained(Item, Player)
end
function removed(Item, Player)
end
function destroyed(Item, Player)
end
function examined(Item, Player)
end
function used(Item, Player)
end
function used(Item, Player)
local item_id = GetItemID(Item)
CastSpell(Player, SPELLID, SPELL_TIERS[item_id])
end

View file

@ -0,0 +1,23 @@
--[[
Script Name : ItemScripts/DisassembledStorageBox.lua
Script Purpose : Harvest Storage Bank Box
Script Author : Ememjr
Script Date : 2017.03.30
Script Notes :
--]]
function examined(Item, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "Assemble the Storage box.","Unpack")
AddConversationOption(conversation, "Put Storage Box away.")
StartDialogConversation(conversation, 2, Item, Player, "Be sure you are near a bank as the assembled Storage Box is Heavy.")
end
function Unpack(Item, Player)
SummonItem(Player,20731,1)
if HasItem(Player, 22227) then
RemoveItem(Player, 22227)
end
CloseItemConversation(Item,Player)
end

24
Lua/ItemScripts/DrawingRay.lua Executable file
View file

@ -0,0 +1,24 @@
--[[
Script Name : ItemScripts/DrawingRay.lua
Script Purpose : Drawing Ray
Script Author : Scatman
Script Date : 2009.10.18
Script Notes :
--]]
local CAVES_CONSUL_BREE_QUEST_3 = 225
function used(Item, Player)
if HasQuest(Player, CAVES_CONSUL_BREE_QUEST_3) and not QuestStepIsComplete(Player, CAVES_CONSUL_BREE_QUEST_3, 4) then
spawn = GetTarget(Player)
if spawn ~= nil then
-- river behemoth remains
if GetSpawnID(spawn) == 1970147 then
AddPrimaryEntityCommand(Player, spawn, "Remove River Stone")
else
SendMessage(Player, "The Drawing Ray has no effect. Emma said it must be used on the remains of a river behemoth.")
end
end
end
end

View file

@ -0,0 +1,17 @@
--[[
Script Name : Dwarven Language Primer
Script Purpose : <purpose>
Script Author : <author-name>
Script Date : 1/19/2019
Script Notes : <special-instructions>
--]]
function obtained(Item, Spawn)
if not HasLanguage(Spawn,3) then
AddLanguage(Spawn, 3)
SendMessage(Spawn, "Dwarven", "White")
RemoveItem(Spawn, 900)
end
end

View file

@ -0,0 +1,16 @@
--[[
Script Name : Erudian Language Primer
Script Purpose :
Script Author : Neatz09
Script Date : 1/19/2019
Script Notes :
--]]
function obtained(Item, Spawn)
if not HasLanguage(Spawn,4) then
AddLanguage(Spawn, 4)
SendMessage(Spawn, "Erudian", "White")
RemoveItem(Spawn, 909)
end
end

20
Lua/ItemScripts/FabricPatch.lua Executable file
View file

@ -0,0 +1,20 @@
--[[
Script Name : ItemScripts/FabricPatch.lua
Script Purpose : Offers and updates the language quest, "The Patchwork Tapestry"
Script Author : Scatman
Script Date : 2009.10.08
Script Notes :
--]]
local LANGUAGE_QUEST = 299
function examined(Item, Player)
if not HasQuest(Player, LANGUAGE_QUEST) and not HasCompletedQuest(Player, LANGUAGE_QUEST) then
OfferQuest(nil, Player, LANGUAGE_QUEST)
-- Fabric Patch
if HasItem(Player, 6079) then
RemoveItem(Player, 6079)
end
end
end

View file

@ -0,0 +1,16 @@
--[[
Script Name : Feir'Dal Language Primer
Script Purpose :
Script Author : Neatz09
Script Date : 1/19/2019
Script Notes :
--]]
function obtained(Item, Spawn)
if not HasLanguage(Spawn,16) then
AddLanguage(Spawn, 16)
SendMessage(Spawn, "Feir'Dal", "White")
RemoveItem(Spawn, 902)
end
end

View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/FireworkConfettiShower.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.18.2019
Script Notes :
--]]
function used(Item, Player)
CastSpell(Player, 5005, 1)
end

View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/FireworkPrismaticBurst.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.18.2019
Script Notes :
--]]
function used(Item, Player)
CastSpell(Player, 5006, 1)
end

View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/FireworkRosePetalShower.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.18.2019
Script Notes :
--]]
function used(Item, Player)
CastSpell(Player, 5007, 1)
end

View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/SwirlingSnowflakes.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.18.2019
Script Notes :
--]]
function used(Item, Player)
CastSpell(Player, 5008, 1)
end

View file

@ -0,0 +1,40 @@
--[[
Script Name : ItemScripts/FoldingStand.lua
Script Purpose :
Script Author : Jabantiz
Script Date : 6/15/2018
Script Notes :
--]]
-- Quest ID's
local CONFRONTATION = 321
-- Item ID's
local FOLDING_STAND = 7379
function examined(Item, Player)
if HasQuest(Player, CONFRONTATION) and GetQuestStep(Player, CONFRONTATION) == 2 then
-- check distance to target location first
local con = CreateConversation()
AddConversationOption(con, "Place the stand.", "PlaceStand")
StartDialogConversation(con, 2, Item, Player, "This is the folding stand on which you will place the Soul Spike in order to destroy it.")
end
end
function PlaceStand(Item, Player)
local con = CreateConversation()
SpawnMob(GetZone(Player), 2340126, false, GetX(Player), GetY(Player), GetZ(Player), GetHeading(Player))
AddConversationOption(con, "Step back from the stand.", "StepBack")
StartDialogConversation(con, 2, Item, Player, "You place the stand on the ground.")
end
function StepBack(Item, Player)
CloseItemConversation(Item, Player)
while HasItem(Player, FOLDING_STAND, 1) do
RemoveItem(Player, FOLDING_STAND)
end
end

View file

@ -0,0 +1,12 @@
--[[
Script Name : ItemScripts/FriendlyGazerRunt.lua
Script Purpose :
Script Author : Neatz09
Script Date : 9.9.2019
Script Notes :
--]]
function used(Item, Player)
CastSpell(Player, 8337, 5)
end

View file

@ -0,0 +1,23 @@
--[[
Script Name : ItemScripts/FrondensFinest.lua
Script Purpose : for the item "Fronden's Finest"
Script Author : theFoof
Script Date : 2013.5.31
Script Notes :
--]]
local PouringSkellies = 40
function used(Item, Player)
target = GetTarget(Player)
if GetName(target) == "pile of Ry'Gorr bones" then
if GetQuestStep(Player, PouringSkellies) == 1 then
if not IsInCombat(Player) then
CastEntityCommand(Player, target, 1281, "pour one out")
else
SendMessage(Player, "You must not be in combat to use this.", "yellow")
end
end
else
SendMessage(Player, "You must find a pile of Ry'Gorr bones to use this on.", "yellow")
end
end

View file

@ -0,0 +1,33 @@
--[[
Script Name : ItemScripts/GeldranisVial.lua
Script Purpose : Handles the item "Geldrani's Vial"
Script Author : jakejp
Script Date : 2018.6.14
Script Notes :
--]]
local EmptyVial = 46457
local FilledVial = 7641
local AStrangeMix = 314
function used(Item, Player)
if GetQuestStep(Player, AStrangeMix) == 1 then
local X = GetX(Player)
local Z = GetZ(Player)
if GetZoneID(GetZone(Player)) == 108 then
if X < 15 and X > -17 then --setting radius to update the quest "Boatload of Work"
if Z > 558 and Z < 581 then
SetStepComplete(Player, AStrangeMix, 1)
RemoveItem(Player, EmptyVial)
if HasItem(Player, FilledVial) == false then
SummonItem(Player, FilledVial, 1)
end
else
SendMessage(Player, "You are not in the proper spot to use this.", "yellow")
end
else
SendMessage(Player, "You are not in the proper spot to use this.", "yellow")
end
end
end
end

View file

@ -0,0 +1,24 @@
--[[
Script Name : ItemScripts/GerlasElementalLullaby.lua
Script Purpose : for the item "Gerla's Elemental Lullaby"
Script Author : theFoof
Script Date : 2013.6.13
Script Notes :
--]]
local NapEvigis = 64
function used(Item, Player)
local target = GetTarget(Player)
if GetQuestStep(Player, NapEvigis) == 1 then
if GetName(target) == 'Evigis the Ancient' then
if GetHP(target) < GetMaxHP(target) * .2 then
CastEntityCommand(Player, target, 1291, "Gerla's Elemental Lullaby")
else
SendMessage(Player, "You must use this on Evigis when it is under 20 percent life.", "yellow")
end
else
SendMessage(Player, "You must use this on Evigis when it is under 20 percent life.", "yellow")
end
end
end

View file

@ -0,0 +1,16 @@
--[[
Script Name : Gnomish Language Primer
Script Purpose :
Script Author : Neatz09
Script Date : 1/19/2019
Script Notes :
--]]
function obtained(Item, Spawn)
if not HasLanguage(Spawn,6) then
AddLanguage(Spawn, 6)
SendMessage(Spawn, "Gnomish", "White")
RemoveItem(Spawn, 903)
end
end

29
Lua/ItemScripts/Griz.lua Executable file
View file

@ -0,0 +1,29 @@
--[[
Script Name : ItemScripts/Griz.lua
Script Purpose : the item Griz
Script Author : theFoof
Script Date : 2013.8.26
Script Notes :
--]]
local SometimesKnut = 84
function GrizChat1_1(Item, Spawn)
conversation = CreateConversation()
AddConversationOption(conversation, "I will never doubt him again.")
StartDialogConversation(conversation, 4, Item, Spawn, "Yes. Griz real. Knut's friend.")
end
function GrizChat2_1(Item, Spawn)
if GetQuestStep(Spawn, SometimesKnut) == 2 then
SetStepComplete(Spawn, SometimesKnut, 2)
AddSpawnAccess(GetSpawnByLocationID(Zone, 579551), Spawn)
end
if GetQuestStep(Spawn, SometimesKnut) == 2 or GetQuestStep(Spawn, SometimesKnut) == 3 then
if HasItemEquipped(Spawn, 157116) then
conversation = CreateConversation()
AddConversationOption(conversation, "I don't think it has guts.")
AddConversationOption(conversation, "All right, I'm doing it!")
StartDialogConversation(conversation, 4, Item, Spawn, "Grrrrrrrrrrr. I said strike! Claw it to bits! Tear it open, and spell its guts upon the ice!")
end
end
end

View file

@ -0,0 +1,14 @@
--[[
Script Name : ItemScripts/Guestroomkey01.lua
Script Purpose :
Script Author : smash
Script Date : 1/27/2016
Script Notes :
--]]
function examined(Item, Player)
if HasQuest(Player, 173) and GetQuestStep(Player, 173) == 2 then
SetStepComplete(Player, 173, 2)
RemoveItem(Player, 7979)
end
end

View file

@ -0,0 +1,16 @@
--[[
Script Name : Gukish Language Primer
Script Purpose :
Script Author : Neatz09
Script Date : 1/19/2019
Script Notes :
--]]
function obtained(Item, Spawn)
if not HasLanguage(Spawn, 5) then
AddLanguage(Spawn, 5)
SendMessage(Spawn, "Gukish", "White")
RemoveItem(Spawn, 906)
end
end

View file

@ -0,0 +1,16 @@
--[[
Script Name : Halasian Language Primer
Script Purpose :
Script Author : Neatz09
Script Date : 1/19/2019
Script Notes :
--]]
function obtained(Item, Spawn)
if not HasLanguage(Spawn,1) then
AddLanguage(Spawn, 1)
SendMessage(Spawn, "Halasian", "White")
RemoveItem(Spawn, 907)
end
end

32
Lua/ItemScripts/HawkBait.lua Executable file
View file

@ -0,0 +1,32 @@
--[[
Script Name : ItemScripts/HawkBait.lua
Script Purpose : Hawk Bait used in Preventative Maintenance Quest
Script Author : Cynnar
Script Date : 10/15/2018
Script Notes :
--]]
local Hawk_Bait = 8060
local Preventative_Maintenance = 365
local a_mole_rat = 2780089
function examined(Item, Player)
if HasQuest(Player, Preventative_Maintenance) then
if GetQuestStep(Player, Preventative_Maintenance) == 4 then
conversation = CreateConversation()
AddConversationOption(conversation, "Release the mole rat.", "ReleaseRat")
AddConversationOption(conversation, "Let him be for now.", "LetHimBe")
StartDialogConversation(conversation, 2, Item, Player, "This cute little guy would be perfect as bait to lure down the cliffdiver hawks.")
end
end
end
function ReleaseRat(Item, Player)
CloseItemConversation(Item, Player)
SpawnMob(GetZone(Player), a_mole_rat, false, GetX(Player), GetY(Player), GetZ(Player), GetHeading(Player))
RemoveItem(Player, Hawk_Bait)
end
function LetHimBe(Item, Player)
CloseItemConversation(Item, Player)
end

View file

@ -0,0 +1,11 @@
local IcemanesCometh = 18
function used(Item, Player)
if GetQuestStep(Player, IcemanesCometh) == 1 then
target = GetTarget(Player)
if GetName(target) == 'an icemane cub' then
if not IsInCombat(target) then
CastEntityCommand(Player, target, 1278, "Leash")
end
end
end
end

View file

@ -0,0 +1,16 @@
--[[
Script Name : Kerran Language Primer
Script Purpose :
Script Author : Neatz09
Script Date : 1/19/2019
Script Notes :
--]]
function obtained(Item, Spawn)
if not HasLanguage(Spawn, 13) then
AddLanguage(Spawn, 13)
SendMessage(Spawn, "Kerran", "White")
RemoveItem(Spawn, 908)
end
end

View file

@ -0,0 +1,16 @@
--[[
Script Name : Koada'Dal Language Primer
Script Purpose :
Script Author : Neatz09
Script Date : 1/19/2019
Script Notes :
--]]
function obtained(Item, Spawn)
if not HasLanguage(Spawn,9) then
AddLanguage(Spawn, 9)
SendMessage(Spawn, "Koada'Dal", "White")
RemoveItem(Spawn, 905)
end
end

View file

@ -0,0 +1,23 @@
--[[
Script Name : ItemScripts/LaserGoggles.lua
Script Purpose :
Script Author : fearfx
Script Date : 6/15/2016
Script Notes :
--]]
function used(Item, Player)
local target = GetTarget(Player)
if target ~= nil and IsEntity(target) then
local encounter = GetEncounter(target)
if encounter ~= nil then
doDamage(Player, target, damage)
else
doDamage(Player, target, damage)
end
end
end
function doDamage(Player, Target, damage)
local damage = math.floor(((GetHP(Target) / 100) * 50) + GetHP(Target))
ProcDamage(Player, Target, " Dev AE Slay", 4, damage)
end

View file

@ -0,0 +1,31 @@
--[[
Script Name : ItemScripts/MakeshiftBarricade.lua
Script Purpose : Handles the item "makeshift barricade"
Script Author : theFoof
Script Date : 2013.5.7
Script Notes :
--]]
local Barricade = 46842
local BoatloadWork = 4
function used(Item, Player)
if GetQuestStep(Player, BoatloadWork) == 3 then
local X = GetX(Player)
local Z = GetZ(Player)
if GetZoneID(GetZone(Player)) == 470 then
if X > -326 and X < -306 then --setting radius to update the quest "Boatload of Work"
if Z < -704 and Z > -724 then
SetStepComplete(Player, BoatloadWork, 3)
RemoveItem(Player, Barricade)
local barrier_spawn = GetSpawn(Player, 4701732)
AddSpawnAccess(barrier_spawn, Player)
else
SendMessage(Player, "You must be between the two torches along the barricade line on Pilgrims' Landing to use this.", "yellow")
end
else
SendMessage(Player, "You must be between the two torches along the barricade line on Pilgrims' Landing to use this.", "yellow")
end
end
end
end

43
Lua/ItemScripts/MavsStone.lua Executable file
View file

@ -0,0 +1,43 @@
--[[
Script Name : ItemScripts/MavsStone.lua
Script Purpose : Mav's Stone
Script Author : Scatman
Script Date : 2009.10.05
Script Notes :
--]]
local DWARF_MENTOR_QUEST_4 = 287
function examined(Item, Player)
conversation = CreateConversation()
if HasQuest(Player, DWARF_MENTOR_QUEST_4) then
local x1 = GetX(Player)
local y1 = GetY(Player)
local z1 = GetZ(Player)
local x2 = 897.01
local y2 = -22.31
local z2 = -113.83
local x = x2 - x1 --math.Pow(x2 - x1, 2)
x = x * x
local y =y2 - y1 -- math.pow(y2 - y1, 2)
y = y * y
local z = z2 - z1 -- math.pow(z2 - z1, 2)
z = z * z
local distance = math.sqrt((x + y + z))
if distance <= 10.0 then
AddConversationOption(conversation, "Hold the stone in your hand and focus on it.", "HoldStone")
end
end
AddConversationOption(conversation, "Put the stone away.", "CloseItemConversation")
StartDialogConversation(conversation, 2, Item, Player, "The stone is cold and rough, your instincts tell you it would be a good stone for building.")
end
function HoldStone(Item, Player)
if GetQuestStep(Player, DWARF_MENTOR_QUEST_4) == 1 then
SetStepComplete(Player, DWARF_MENTOR_QUEST_4, 1)
end
conversation = CreateConversation()
AddConversationOption(conversation, "Put the stone away.", "CloseItemConversation")
StartDialogConversation(conversation, 2, Item, Player, "When you focus on the stone there is an almost audible sense of hammers and chisels working at stone, carts moving back and forth, and a low hum of an ancient dwarven work song.")
end

View file

@ -0,0 +1,26 @@
--[[
Script Name : ItemScripts/NeezersQuestions.lua
Script Purpose : Neezer's Questions
Script Author : Scatman
Script Date : 2009.09.27
Script Notes :
--]]
local NEEZERS_SURVEY = 330 -- was 28
function examined(Item, Player)
if HasQuest(Player, NEEZERS_SURVEY) and GetQuestStep(Player, NEEZERS_SURVEY) == 1 then
SetStepComplete(Player, NEEZERS_SURVEY, 1)
end
conversation = CreateConversation()
AddConversationOption(conversation, "Continue Reading", "ContinueReading")
AddConversationOption(conversation, "Put note away.", "CloseItemConversation")
StartDialogConversation(conversation, 2, Item, Player, "It is very important these questions be asked in order and that none of them are skipped. Again, please remember the FIRST word in each person's answer.\n\nQuestion 1: If you were to calibrate a Fizzo Torque Wrench for work in Lavastorm and then attempt precisely the same in Everfrost what difference of calibration would be needed?\n\nQuestion 2: What is the average measurement between Keen and Preen on a Spectromatic Nest-Druther?\n\nQuestion 3: If given a choice in a vote for the new Queen of Qeynos, would you cast your vote for a nut or a bolt?")
end
function ContinueReading(Item, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "Put note away.", "CloseItemConversation")
StartDialogConversation(conversation, 2, Item, Player, "Question 4: Though not yet officially proven, which theory concerning thermodynamic particle acceleration and its correlation to metaphysical tides is widely accepted?\n\nQuestion 5: Isn't Neezer Grund amazing?\n\nQuestion 6: The Banton particle is supposed to generate high amounts of what?")
end

View file

@ -0,0 +1,19 @@
--[[
Script Name : Items/OverflowManifest.lua
Script Purpose : Overflow Manifest
Script Author : Scatman
Script Date : 2009.09.27
Script Notes :
--]]
local BARBARIAN_MENTOR_QUEST_2 = 290
function examined(Item, Player)
if HasQuest(Player, BARBARIAN_MENTOR_QUEST_2) and GetQuestStep(Player, BARBARIAN_MENTOR_QUEST_2) == 1 then
SetStepComplete(Player, BARBARIAN_MENTOR_QUEST_2, 1)
end
conversation = CreateConversation()
AddConversationOption(conversation, "Put the manifest away.", "CloseItemConversation")
StartDialogConversation(conversation, 2, Item, Player, "Overflow Manifest: Graystone Yard\n#3CF0F: Under the small ramp east of the docks.\n#3CF1G: Leaning against the north-wall just east of the docks, near Tacklmaster Moyna.\n#2DF0F: Just north of the most north-eastern building in Graystone, off the lip of the raised platform. #4QGCG: Along the eastern wall, behind the Scribe's shop.\n#CC4QF: Just west of the harbor entrance, near the Mail Kiosk and Bowyer.\n#CQC4F: Outside the bank and its western corner, piled between the raised platform and the wall.")
end

View file

@ -0,0 +1,62 @@
--[[
Script Name : ItemScripts/ParchmentScrap.lua
Script Purpose : Handles the quest item "Parchment Scrap (right-click this item to Examine it)" (10317)
Script Author : Jabantiz
Script Date : 9/8/2016
Script Notes :
--]]
local Tainted = 183
function examined(Item, Player)
local con = CreateConversation()
if HasQuest(Player, Tainted) then
if GetQuestStep(Player, Tainted) == 2 then
AddConversationOption(con, "Examine the parchment.", "Examine")
elseif GetQuestStep(Player, Tainted) == 4 then
AddConversationOption(con, "Put together the parchment pieces.", "PutTogether")
elseif GetQuestStep(Player, Tainted) == 7 then
AddConversationOption(con, "Piece together the parchment.", "PieceTogether")
end
end
AddConversationOption(con, "Put the parchment away.", "CloseItemConversation")
StartDialogConversation(con, 2, Item, Player, "The edges of the parchment are torn and jagged as though ripped from a much larger document.")
end
function Examine(Item, Player)
SetStepComplete(Player, Tainted, 2)
local con = CreateConversation();
AddConversationOption(con, "Put the parchment away.", "CloseItemConversation")
StartDialogConversation(con, 2, Item, Player, 'You can barely make out some writing on this scrap: "The toxic crawlers will be useful to cover our ... the totem ..." The reference to a totem is puzzling. Why would someone want a totem covered in spiders? There must be more pieces of this parchment amongst the toxic crawlers.')
end
function PutTogether(Item, Player)
local con = CreateConversation()
AddConversationOption(con, "Roll the parchment up.", "RollUp")
StartDialogConversation(con, 2, Item, Player, "You line up the parchment pieces. The newest piece adds enough new words that you can read: ''The toxic crawlers will be useful to cover our tracks. Leave the totem in the eastern rocks...'' Apparently Deianeira's concern about the spiders is well-placed, though not for the reasons she thinks. I must find more of this parchment to learn what this totem means.")
end
function RollUp(Item, Player)
local con = CreateConversation()
AddConversationOption(con, "Put the parchment away.", "CloseItemConversation")
StartDialogConversation(con, 2, Item, Player, "You carefully roll the parchment and stow it away.")
if GetQuestStep(Player, Tainted) == 4 then
SetStepComplete(Player, Tainted, 4)
elseif GetQuestStep(Player, Tainted) == 7 then
SetStepComplete(Player, Tainted, 7)
end
end
function PieceTogether(Item, Player)
local con = CreateConversation()
AddConversationOption(con, "Roll the parchment up.", "RollUp")
StartDialogConversation(con, 2, Item, Player, "The last bit of parchment was caught on the web near the large pile of rocks. You piece it together and read: ''The toxic crawlers will be useful to cover our tracks. Leave the totem in the eastern rocks beneath Direspike.'' Direspike must be a tainted spider with greater power. You realize you may have to flush him from his lair by picking off the nearby spiders until he appears to meet your challenge.")
end

20
Lua/ItemScripts/Poultice.lua Executable file
View file

@ -0,0 +1,20 @@
--[[
Script Name : ItemScripts/Poultice.lua
Script Purpose : for the item "Poultice"
Script Author : theFoof
Script Date : 2013.6.3
Script Notes :
--]]
local DisarmingRyGorr = 48
function used(Item, Player)
if GetQuestStep(Player, DisarmingRyGorr) == 1 then
local target = GetTarget(Player)
if GetName(target) == "a Ry'Gorr weapon" then
CastEntityCommand(Player, target, 1284, "Poultice")
end
else
SendMessage(Player, "You can only use this on a Ry'Gorr weapon.", "yellow")
end
end

View file

@ -0,0 +1,50 @@
--[[
Script Name : ItemScripts/PrankPreparednessKit.lua
Script Purpose : Prank Preparedness Kit
Script Author : Scatman
Script Date : 2009.09.27
Script Notes :
--]]
-- Quest ID's
local HELPING_SOME_FRIENDS = 325 -- was 72
function examined(Item, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "Read instructions.", "ReadInstructions")
StartDialogConversation(conversation, 2, Item, Player, "Inside the Prank Preparedness Kit there are a couple of pies, a note written and signed by Remmy Tumbum, and some instructions from Rondo Roundstew.")
end
function ReadInstructions(Item, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "Read the next page.", "NextPage")
StartDialogConversation(conversation, 2, Item, Player, "Greetings Pranked Preparedness Kit user. If you are reading this you have no doubt offered to help me in one of my amazing prank endeavors. Let me first give you my appreciation for helping me in such an effort. As you no doubt know I am a prankster of some infamy. Because of this, I am unable to perform pranks myself, as anyone I talk to suspects I'm pulling a prank on them (except you, and thank goodness for that).\nThe following pages have your targets and your instructions. The kit itself should hold all its materials.")
end
function NextPage(Item, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "Read about the next target.", "NextTarget")
StartDialogConversation(conversation, 2, Item, Player, "Target: Drundo Parn\n\nSuspected Locations: Tavern\n\nReason for Prank: Drundo stole my pint! He stole my pint and replaced it with some other brew that turned my lips purple for a WEEK! He's a good trickster, he is. I've learned that he's horrible allergic to nuts, however!\n\nPrank: A non-spiced walnut pie could easily be injected with cream and topped with berry frosting and thus disguised. Drundo won't know what hit him, his face will be fatter than a lush's gut on payday!")
end
function NextTarget(Item, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "Read about the next target.", "NextTarget2")
StartDialogConversation(conversation, 2, Item, Player, "Target: Jayla Midhop\n\nSuspected Location: Outside Armorer's Shop\n\nReason for Prank: Tricked me out of twenty silver pieces by using her charm on me! She may have beaten my wit face to face, but when backs are turned I'm betting she won't expect my comback!\n\nPrank: Jayla Midhop - I know she has a thing for Remmy Tumbum. I also know she has a thing for Marybelle's Meadowberry Pie. I ALSO know she does not welcome the advances of Bolo Brassharp. With a little help from Remmy--I know he'd be willing to write a fake note for me--I can set her up for a very uncomfortable situation.")
end
function NextTarget2(Item, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "Read the last page.", "LastPage")
StartDialogConversation(conversation, 2, Item, Player, "Target: Bolo Brassharp\n\nSuspected Location: Outside the Inn\n\nReason for Prank: This guy doesn't know how little everyone thinks of him. A prank won't change his opinion of himself, but if I'm lucky he'll want revenge and he'll be a fellow prankster for a time to come. At the very least everyone will get to laugh at him, which he most certainly deserves.\n\nPrank: Bolo Brassharp - I won't need to trick him into seeing Jayla. But her rejection alone isn't enough. Being rejected after both have had their fill of a Busselberry Bloat Pie will be MOST uncomfortable, however. Properly disguised, the bloat pie will loook just like a meadowberry pie.")
end
function LastPage(Item, Player)
if HasQuest(Player, HELPING_SOME_FRIENDS) and GetQuestStep(Player, HELPING_SOME_FRIENDS) == 1 then
SetStepComplete(Player, HELPING_SOME_FRIENDS, 1)
end
conversation = CreateConversation()
AddConversationOption(conversation, "Put the Prank Preparedness Kit away.", "CloseItemConversation")
StartDialogConversation(conversation, 2, Item, Player, "So there are the targets. Remember, do not let them suspect anything, and do not mention my name!\nGood luck,\nThe Prankster - R.R.")
end

View file

@ -0,0 +1,37 @@
--[[
Script Name : ItemScripts/RyGorrExplosiveMiningBarrel.lua
Script Purpose : for the item "Ry'Gorr Explosive Mining Barrel"
Script Author : theFoof
Script Date : 2013.6.12
Script Notes :
--]]
local RyGorrOperations = 60
function used(Item, Player)
if GetQuestStep(Player, RyGorrOperations) == 1 then
if GetZoneID(GetZone(Player)) == 470 then
local X = GetX(Player)
local Y = GetY(Player)
local Z = GetZ(Player)
if X > -20.27 and X < -10.27 then
if Y < -60 then
if Z > 150.07 and Z < 160.07 then
local barrel = SpawnByLocationID(GetZone(Player), 33980)
AddSpawnAccess(barrel, Player)
SetTempVariable(barrel, "player", Player)
RemoveItem(Player, 47881)
else
SendMessage(Player, "You cannot place the Ry'Gorr Explosive Mining Barrel here.", "yellow")
end
else
SendMessage(Player, "You cannot place the Ry'Gorr Explosive Mining Barrel here.", "yellow")
end
else
SendMessage(Player, "You cannot place the Ry'Gorr Explosive Mining Barrel here.", "yellow")
end
else
SendMessage(Player, "You cannot place the Ry'Gorr Explosive Mining Barrel here.", "yellow")
end
end
end

View file

@ -0,0 +1,13 @@
--[[
Script Name : ItemScripts/ShardofEssence.lua
Script Purpose : Shard of Essence Conj(Summoned Item)
Script Author : Neatz09
Script Date : 10/16/2019
Script Notes :
--]]
local SPELLID = 5014
local SPELL_TIERS = { [48003] = 1, [48004] = 2, [48005] = 3, [48010] = 4, [48002] = 5, [48009] = 7, [48012] = 9 }
function used(Item, Player)
local item_id = GetItemID(Item)
CastSpell(Player, SPELLID, SPELL_TIERS[item_id])
end

View file

@ -0,0 +1,17 @@
--[[
Script Name : ItemScripts/SilverTweezers.lua
Script Purpose :
Script Author : Jabantiz
Script Date : 6/23/2018
Script Notes :
--]]
function used(Item, Player)
local target = GetTarget(Player)
if target ~= nil then
local model = GetModelType(target)
if model == 81 or model == 82 or model == 91 or model == 93 or model == 94 or model == 95 or model == 96 or model == 97 or model == 98 or model == 99 or model == 100 or model == 101 or model == 102 then
CastSpell(target, 2550000, 1, Player)
end
end
end

View file

@ -0,0 +1,18 @@
--[[
Script Name : ItemScripts/SpiritReaper.lua
Script Purpose : Spirit Reaper used in quest "Reaping"
Script Author : Cynnar
Script Date : 1/4/2016
Script Notes : Spirit Reaper (Item ID = 48173) Reaping (quest ID = 152)
--]]
local Reaping = 152
function used(Item, Player)
if GetQuestStep(Player, Reaping) == 1 then
target = GetTarget(Player)
if GetName(target) == 'a pure spirit' then
CastEntityCommand(Player, target, 1312, "Reap")
end
end
end

View file

@ -0,0 +1,16 @@
--[[
Script Name : Stout Language Primer
Script Purpose :
Script Author : Neatz09
Script Date : 1/18/2019
Script Notes :
--]]
function obtained(Item, Spawn)
if not HasLanguage(Spawn,8) then
AddLanguage(Spawn, 8)
SendMessage(Spawn, "Stout", "White")
RemoveItem(Spawn, 904)
end
end

11
Lua/ItemScripts/T1Pickles.lua Executable file
View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/T1Pickles.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.21.2019
Script Notes :
--]]
function cast(Item, Player)
CastSpell(Player, 5011, 1)
end

11
Lua/ItemScripts/T2Pickles.lua Executable file
View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/T2Pickles.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.21.2019
Script Notes :
--]]
function cast(Item, Player)
CastSpell(Player, 5011, 2)
end

11
Lua/ItemScripts/T3Pickles.lua Executable file
View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/T3Pickles.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.21.2019
Script Notes :
--]]
function cast(Item, Player)
CastSpell(Player, 5011, 3)
end

11
Lua/ItemScripts/T4Pickles.lua Executable file
View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/T4Pickles.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.21.2019
Script Notes :
--]]
function cast(Item, Player)
CastSpell(Player, 5011, 4)
end

11
Lua/ItemScripts/T5Pickles.lua Executable file
View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/T5Pickles.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.21.2019
Script Notes :
--]]
function cast(Item, Player)
CastSpell(Player, 5011, 5)
end

11
Lua/ItemScripts/T6Pickles.lua Executable file
View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/T6Pickles.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.21.2019
Script Notes :
--]]
function cast(Item, Player)
CastSpell(Player, 5011, 6)
end

11
Lua/ItemScripts/T7Pickles.lua Executable file
View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/T7Pickles.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.21.2019
Script Notes :
--]]
function cast(Item, Player)
CastSpell(Player, 5011, 7)
end

11
Lua/ItemScripts/T8Pickles.lua Executable file
View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/T8Pickles.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.21.2019
Script Notes :
--]]
function cast(Item, Player)
CastSpell(Player, 5011, 8)
end

View file

@ -0,0 +1,37 @@
--[[
Script Name : ItemScripts/UrnFilledWithAshes.lua
Script Purpose : for the item "Urn Filled with Ashes"
Script Author : theFoof
Script Date : 2013.5.27
Script Notes :
--]]
local ScatteringAshes = 33
function used(Item, Player)
local X = GetX(Player)
local Y = GetY(Player)
local Z = GetZ(Player)
if GetZoneID(GetZone(Player)) == 470 then
if not IsInCombat(Player) then
if X >= 587 and X <= 627 then
if Y >= 61.2 and Y <= 71.2 then
if Z >= -526 and Z <= -486 then
SetStepComplete(Player, ScatteringAshes, 1)
else
LocMessage(Item, Player)
end
else
LocMessage(Item, Player)
end
else
LocMessage(Item, Player)
end
else
SendPopUpMessage(Player, "Non-Combat only", 0, 0, 255)
end
end
end
function LocMessage(Item, Player)
SendMessage(Player, "The ashes must be released at the peak of the cliff to the east of Herga's Choke.", "yellow")
end

29
Lua/ItemScripts/WaterFlask.lua Executable file
View file

@ -0,0 +1,29 @@
--[[
Script Name : ItemScripts/WaterFlask.lua
Script Purpose : Water Flask
Script Author : Scatman
Script Date : 2009.10.05
Script Notes :
--]]
local HIGH_ELF_MENTOR_QUEST_1 = 223
function examined(Item, Player)
conversation = CreateConversation()
if HasQuest(Player, HIGH_ELF_MENTOR_QUEST_1) and not QuestStepIsComplete(Player, HIGH_ELF_MENTOR_QUEST_1, 2) then
local fountain = GetSpawn(Player, 2360073)
if fountain ~= nil and GetDistance(Player, fountain) < 10 then
AddConversationOption(conversation, "Fill the flask.", "FillFlask")
end
end
AddConversationOption(conversation, "Put the flask away.", "CloseItemConversation")
StartDialogConversation(conversation, 2, Item, Player, "This is the flask of water that Vindain has asked you to fill with blessed water from the Fountain of Valor.")
end
function FillFlask(Item, Player)
SetStepComplete(Player, HIGH_ELF_MENTOR_QUEST_1, 2)
conversation = CreateConversation()
AddConversationOption(conversation, "Put the flask away.", "CloseItemConversation")
StartDialogConversation(conversation, 2, Item, Player, "You dip the flask into the fountain and fill it with some blessed water.")
end

View file

@ -0,0 +1,34 @@
--[[
Script Name : ItemScripts/WorthlessBronzeStatuette.lua
Script Purpose : <purpose>
Script Author : Jabantiz
Script Date : 6/15/2018
Script Notes : <special-instructions>
--]]
-- Quest ID's
local INFORMATION_MERCHANTS = 318
function examined(Item, Player)
if HasQuest(Player, INFORMATION_MERCHANTS) and GetQuestStep(Player, INFORMATION_MERCHANTS) == 2 then
local con = CreateConversation()
AddConversationOption(con, "Attempt to separate the halves.", "SeperateHalves")
StartDialogConversation(con, 2, Item, Player, "The statuette is dull and scratched. Any sheen it may have had is presently gone. There is a barely visible seam encircling the waist of the statuette as if the upper and lower halves were originally separate.")
end
end
function SeperateHalves(Item, Player)
local con = CreateConversation()
AddConversationOption(con, "Read the note.", "ReadNote")
StartDialogConversation(con, 2, Item, Player, "With only a minor twist the two halves come apart. The statuette is hollow on the inside and within rests a note.")
end
function ReadNote(Item, Player)
SetStepComplete(Player, INFORMATION_MERCHANTS, 2)
local con = CreateConversation()
AddConversationOption(con, "Put the note back in the statuette.", "CloseItemConversation")
StartDialogConversation(con, 2, Item, Player, "The note reads:\n\nClient-\n\nWe encountered your gray before you mentioned him, so it wasn't hard finding him. Once we got your request we stuck someone to him. You were right, he had something to hide. Some sort of package or crate or something. He must've thought he was being followed because he dumped it in the water in South Qeynos. We don't know what was in it but it's probably three feet deep in the mud in the Peat Bog by now, if you want us to go after that it'll cost you.")
end

View file

@ -0,0 +1,14 @@
--[[
Script Name : ItemScripts/ANeriakRecruitBadge.lua
Script Purpose : a Neriak recruit badge used in quest "A Guard Insignia?"
Script Author : Cynnar
Script Date : 1/4/2016
Script Notes : a Neriak recruit badge (Item ID = 2333) A Guard Insignia? (quest ID = 152)
Script Notes : UPDATE `eq2world`.`items` SET `lua_script`='ItemScripts/ANeriakRecruitBadge.lua' WHERE `id`=2333;
--]]
local AGuardInsignia =140
function examined(Item, Player)
OfferQuest(Player, Player, AGuardInsignia)
end

View file

@ -0,0 +1,17 @@
--[[
Script Name : ItemScripts/a_locked_chest.lua
Script Purpose :
Script Author : Ememjr
Script Date : 2019-10-07
Script Notes :
--]]
local quest = 480
function examined(Item, Player)
Say(Player, "item examined")
if not HasQuest(Player, quest) and not HasCompletedQuest(Player, quest) then
Say(Player, "offer quest")
OfferQuest(nil, Player, quest)
end
end

View file

@ -0,0 +1,21 @@
--[[
Script Name : ItemScripts/a_mystical_sphere.lua
Script Purpose :Quest Stater for The Spirit's Release
Script Author : Ememjr
Script Date : 2019-10-07
Script Notes :
--]]
local quest = 481
local itemID = 2304
function examined(Item, Player)
Say(Player, "item examined")
if not HasQuest(Player, quest) and not HasCompletedQuest(Player, quest) then
OfferQuest(nil, Player, quest)
elseif HasQuest(Player, quest) and QuestStepIsComplete(Player, quest, 2) then
SetStepComplete(Player, quest, 2)
while HasItem(Player, itemID, 1) do
RemoveItem(Player, itemID)
end
end
end

View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/abasicfirework.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.18.2019
Script Notes :
--]]
function used(Item, Player)
CastSpell(Player, 5003, 1)
end

View file

@ -0,0 +1,15 @@
--[[
Script Name : ItemScripts/an_old_darkblade_dagger.lua
Script Purpose :Quest Stater for The Darkblade Dagger
Script Author : Ememjr
Script Date : 2019-10-07
Script Notes :
--]]
local quest = 482
function examined(Item, Player)
if not HasQuest(Player, quest) and not HasCompletedQuest(Player, quest) then
OfferQuest(nil, Player, quest)
end
end

20
Lua/ItemScripts/anoldnote.lua Executable file
View file

@ -0,0 +1,20 @@
--[[
Script Name : ItemScripts/anoldnote.lua
Script Purpose :
Script Author : Ememjr
Script Date : 2017.05.09
Script Notes :
--]]
local quest = 235
function examined(Item, Player)
if not HasQuest(Player, quest) and not HasCompletedQuest(Player, quest) then
OfferQuest(nil, Player, quest)
--remove quest starter
if HasItem(Player, 3776) then
RemoveItem(Player, 3776)
end
end
end

View file

@ -0,0 +1,22 @@
--[[
Script Name : ItemScripts/awellspringcubleash.lua
Script Purpose : Leash used in quest "To Draw Upon Wellsprings"
Script Author : Cynnar
Script Date : 1/4/2016
Script Notes : a Wellspring Cub Leash (Item ID = 45117) To Draw Upon Wellsprings (quest ID = 156)
--]]
local DrawUponWellsprings = 155
function used(Item, Player)
target = GetTarget(Player)
if GetName(target) == 'a wellspring cub' and GetTempVariable(Player, "cub") == nil then
if not IsInCombat(target) then
CastEntityCommand(Player, target, 1278, "Leash")
end
elseif GetName(target) == 'a wellspring cub' and GetTempVariable(Player, "cub") ~= nil then
SendMessage(Player, "You need to bring your currently leashed wellspring cub back to Calnozz before leashing another.", "yellow")
elseif GetName(target) ~= "a wellspring cub" then
SendMessage(Player, "You can only use this on a wellspring cub.", "yellow")
end
end

View file

@ -0,0 +1,24 @@
--[[
Script Name : ItemScripts/cadavers_dram.lua
Script Purpose : cavader's dram
Script Author : theFoof
Script Date : 2013.7.24
Script Notes :
--]]
local BecomingOrcbane = 81
function used(Item, Player)
if GetQuestStep(Player, BecomingOrcbane) == 1 then
local target = GetTarget(Player)
if GetSpawnID(target) == 4700105 then
if GetHP(target) < GetMaxHP(target) * .20 then
CastEntityCommand(Player, target, 1299, "cadaver's dram")
else
SendMessage(Player, "You must use this on a Ry'Gorr tunneler that is under 20 percent life.", "yellow")
end
else
SendMessage(Player, "You can only use this on a Ry'Gorr tunneler.", "yellow")
end
end
end

View file

@ -0,0 +1,11 @@
--[[
Script Name : ItemScripts/flaskofwater.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.18.2019
Script Notes :
--]]
function cast(Item, Player)
CastSpell(Player, 5009, 2)
end

View file

@ -0,0 +1,7 @@
--[[
Script Name : ItemScripts/goblishtranslationnotes.lua
Script Purpose :
Script Author : Jabantiz
Script Date : 6/17/2016
Script Notes :
--]]

0
Lua/ItemScripts/guiderobes.lua Executable file
View file

View file

@ -0,0 +1,6 @@
local QUEST = 258
function examined(Item, Player)
if CanReceiveQuest(Player, QUEST)
then OfferQuest(NPC, Player, QUEST)
end
end

View file

@ -0,0 +1,28 @@
--[[
Script Name : ItemScripts/pouchofstunsporepowder.lua
Script Purpose : clickable used in quest "Dust to Dust"
Script Author : fearfx
Script Date : 21 Jan 2017
Script Notes : Pouch of Stunspore Powder (Item ID = 47613) used in Dust to Dust (quest ID = 158)
Temp spell in here until Stunspore Paralysis is added to DB
--]]
local DustToDust = 158
function used(Item, Player)
local target = GetTarget(Player)
local zone = GetZone(Player)
if GetZoneID(zone) == 34 and GetRace(target) == 9 and GetTempVariable(target, "stunned") == nil and GetDistance(target, Player, 0) < 6 then
CastSpell(target, 270086, 1, Player)
AddStepProgress(Player, 158, 1, 1)
SetTempVariable(target, "stunned", "1")
elseif GetRace(target) ~= 9 then
SendMessage(Player, "This item may only be used on a skeleton.", "yellow")
elseif GetTempVariable(target, "stunned") ~= nil then
SendMessage(Player, "This item can only be used once per target.", "yellow")
elseif GetDistance(target, Player, 0) > 6 then
SendMessage(Player, "Move closer to your target.", "yellow")
else
Say(Player, "Error... Please report to Dev team.")
end
end

12
Lua/ItemScripts/ration.lua Executable file
View file

@ -0,0 +1,12 @@
--[[
Script Name : ItemScripts/ration.lua
Script Purpose :
Script Author : Neatz09
Script Date : 8.18.2019
Script Notes :
--]]
function cast(Item, Player)
CastSpell(Player, 5010, 1)
end

20
Lua/ItemScripts/runedacorn.lua Executable file
View file

@ -0,0 +1,20 @@
--[[
Script Name : ItemScripts/runedacorn.lua
Script Purpose :
Script Author : Ememjr
Script Date : 2017.05.09
Script Notes :
--]]
local quest = 233
function examined(Item, Player)
if not HasQuest(Player, quest) and not HasCompletedQuest(Player, quest) then
OfferQuest(nil, Player, quest)
--remove quest starter
if HasItem(Player, 11780) then
RemoveItem(Player, 11780)
end
end
end

View file

@ -0,0 +1,32 @@
--[[
Script Name : ItemScripts/scarwurmpheromone.lua
Script Purpose : clickable used in quest "The Mother Lode"
Script Author : fearfx
Script Date : 24 Jan 2017
Script Notes : Summons "the wurm mother" (ID = 341051)
--]]
local TheMotherLode = 148
function used(Item, Player)
local zone = GetZone(Player)
local x = GetX(Player)
local y = GetY(Player)
local z = GetZ(Player)
if x >= -490 and x <= -438 and z <= -43 and z >= -76 and y <= -48 and y >= -53 and GetTempVariable(Player, "WurmMother") == nil and GetQuestStep(Player, TheMotherLode) ~= 3 then
local zone = GetZone(Player)
local newSpawn = SpawnMob(zone, 341051, 1, -464.18, -49.33, -60.43, 242.84)
if newSpawn ~= nil then
AddSpawnAccess(newSpawn, Player)
AddStepProgress(Player, TheMotherLode, 1, 1)
SetTempVariable(Player, "WurmMother", "1")
end
elseif GetQuestStep(Player, TheMotherLode) == 3 then
SendMessage(Player, "You have already killed The Wurm Mother.", "yellow")
elseif GetTempVariable(Player, "WurmMother") ~= nil then
SendMessage(Player, "The Wurm Mother has already been summoned.", "yellow")
else
SendMessage(Player, "You must use this item on the bridge that spans Innoruuk's Scar.", "yellow")
end
end

View file

@ -0,0 +1,62 @@
--[[
Script Name : ItemScripts/smolderingtrout.lua
Script Purpose : clickable used in quest "The Big One" (ID = 190)
Script Author : fearfx
Script Date : 25 Jan 2017
Script Notes : Smoldering trout (ID = 48104)
: Theres no Spawn for SmolderFin, so I have used a razortooth shark (2530014) instead.
--]]
local TheBigOne = 190
function used(Item, Player)
local target = GetTarget(Player)
local zone = GetZone(Player)
local x = GetX(Player)
local y = GetY(Player)
local z = GetZ(Player)
if GetTempVariable(Player, "TheBigOne") == nil then
spawnChance = 0
else
spawnChance = tonumber(GetTempVariable(Player, "TheBigOne"))
end
if GetZoneID(zone) == 34 and GetQuestStep(TheBigOne) == 1 then
if between(-91.3, 35.5, x) and between(-67, -60, y) and between(-186.79, -54.40, z) then
RemoveItem(Player, 48104)
spawnChance = spawnChance + 20
SetTempVariable(Player, "TheBigOne", spawnChance)
if tonumber(GetTempVariable(Player, "TheBigOne")) > 20 then
if tonumber(GetTempVariable(Player, "TheBigOne")) > math.random(30, 80) then
spawnSmolderFin(Player, zone)
end
end
else
SendMessage(Player, "Can only be used in Smoldering Lake.", "yellow")
end
else
SendMessage(Player, "Can only be used in Darklight Wood.", "yellow")
end
end
function spawnSmolderFin(Player, zone)
local newSpawn = SpawnMob(zone, 1240025, 1, -27.18, -65.33, -110.43, 167.84)
SpawnSet(newSpawn, "name", "Smolderfin")
SpawnSet(newSpawn, "faction", "1")
SpawnSet(newSpawn, "level", "11")
SpawnSet(newSpawn, "size", "90")
SpawnSet(newSpawn, "hp", "220")
if newSpawn ~= nil then
AddSpawnAccess(newSpawn, Player)
end
end
function between(low, higher, n)
if low <= n and n <= higher then
return true
else
return false
end
end

View file

@ -0,0 +1,28 @@
--[[
Script Name : ItemScripts/trappedspirits.lua
Script Purpose : trapped spirits used in quest "Condemned"
Script Author : Cynnar
Script Date : 1/6/2016
Script Notes : trapped spirits (Item ID = 48976) Condemned (quest ID = 153)
--]]
local Condemned = 153
function used(Item, Player)
if HasQuest(Player, Condemned) then
local playerX = GetX(Player)
local playerZ = GetZ(Player)
if GetQuestStep(Player, Condemned) == 1 then
if playerX <= -540 and playerX >= -575 then
if playerZ >= 137 and playerZ <= 166 then
AddStepProgress(Player, Condemned, 1, 1)
RemoveItem(Player, 48976)
else
SendMessage(Player, "You must be near the Wellspring of Nightmares to use this.", "yellow")
end
else
SendMessage(Player, "You must be near the Wellspring of Nightmares to use this.", "yellow")
end
end
end
end

View file

@ -0,0 +1,51 @@
--[[
Script Name : ACaptainsCommunique.lua
Script Purpose : Handles the quest, "A Captain's Communique: Eitoa to Sturman"
Script Author : geordie0511
Script Date : 19.03.2019
Script Notes :
Zone : Antonica
Quest Giver : Captain Eitoa
Preceded by : Gnoll Report
Followed by : Outland Brigade Reports
--]]
function Init(Quest)
AddQuestStepChat(Quest, 1, "Speak to Captain Sturman.", 1, "I need to deliver this communique to Captain Sturman at Bridge Keep in the Thundering Steppes.", 11, 2490194)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "Spoke to Captain Sturman.")
UpdateQuestTaskGroupDescription(Quest, 1, "I delivered the message to Captain Sturman.")
AddQuestStepChat(Quest, 2, "Speak to Captain Eitoa.", 1, "I should return to Captain Eitoa at the Qeynos Gates in Antonica and let her know of the situation in Bridge Keep.", 11, 120069)
AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 2, "Spoken with Captain Eitoa.")
UpdateQuestTaskGroupDescription(Quest, 2, "I returned to Captain Eitoa.")
UpdateQuestDescription(Quest, "I took the message to Captain Sturman. He was not happy to hear that he was unable to get reinforcements or replacements for his tired men in Bridge Keep. I let Captain Eitoa know of the situation in the Thundering Steppes.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
QuestComplete(Quest, QuestGiver, Player)
end
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end

View file

@ -0,0 +1,51 @@
--[[
Script Name : Achoo!AntonicanPepper.lua
Script Purpose : Handles the quest, "Achoo! Antonican Pepper"
Script Author : geordie0511
Script Date : 14.03.2019
Script Notes :
Zone : Antonica
Quest Giver : Matsy Rollingpin
Preceded by : None
Followed by : Blub Blub Something Smells Fishy
--]]
function Init(Quest)
AddQuestStepChat(Quest, 1, "I need to find Merchant Novak.", 1, "Matsy needs pepper for her chowder from Merchant Novak.", 797, 120099)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have the pepper.")
UpdateQuestTaskGroupDescription(Quest, 1, "I acquired the pepper from Merchant Novak.")
AddQuestStepChat(Quest, 2, "I must return to Matsy.", 1, "I have the pepper and should now return to Matsy.", 797, 120280)
AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 2, "I have given Matsy the pepper for her chowder.")
UpdateQuestTaskGroupDescription(Quest, 2, "I have given the pepper to Matsy.")
UpdateQuestDescription(Quest, "I helped Matsy finish her cooking by fetching some more pepper from Merchant Novak. She seemed very busy. I wonder if she needs any more help.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
QuestComplete(Quest, QuestGiver, Player)
end
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end

View file

@ -0,0 +1,52 @@
--[[
Script Name : Blub,Blub-SomethingSmellsFishy.lua
Script Purpose : Handles the quest, "Blub, Blub - Something Smells Fishy"
Script Author : geordie0511
Script Date : 14.03.2019
Script Notes :
Zone : Antonica
Quest Giver :
Preceded by : Achoo! Antonican Pepper
Followed by : Killing With Kindness, One Barbarian at a Time
--]]
function Init(Quest)
AddQuestStepKill(Quest, 1, "I need to rustle up some Coldwind fish for Matsy's Chowder.", 10, 100, "Matsy needs the special Coldwind fish for her soup. They can be found in the ocean or in the rivers.", 2547, 121237, 120079, 121249, 120094, 121250, 120096, 121252, 120093)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I managed to get enough Coldwind fish for Matsy's Chowder.")
UpdateQuestTaskGroupDescription(Quest, 1, "I have caught all the Coldwind fish I can carry.")
AddQuestStepChat(Quest, 2, "I should return to Matsy.", 1, "I need to return these fish to Matsy.", 2547, 120280)
AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 2, "Matsy now has enough Coldwind fish to make extra chowder.")
UpdateQuestTaskGroupDescription(Quest, 2, "I have brought Matsy the Coldwind fish.")
UpdateQuestDescription(Quest, "I have returned the Coldwind fish to Matsy.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
QuestComplete(Quest, QuestGiver, Player)
end
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end

View file

@ -0,0 +1,51 @@
--[[
Script Name : CarePackageforBlarton.lua
Script Purpose : Handles the quest, "Care Package for Blarton"
Script Author : geordie0511
Script Date : 14.03.2019
Script Notes :
Zone : Antonica
Quest Giver :
Preceded by : Killing with Kindness, One Barbarian at a Time
Followed by : Spicy Meat Pie
--]]
function Init(Quest)
AddQuestStepChat(Quest, 1, "I must find Blarton Blumble.", 1, "Matsy asked me to take these cookies to Blarton. He resides in Windstalker Village.", 2556, 120163)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have delivered the cookies to Blarton Blumble.")
UpdateQuestTaskGroupDescription(Quest, 1, "I took Blarton the cookies from Matsy.")
AddQuestStepChat(Quest, 2, "I should return to Matsy.", 1, "I need to go back and let Matsy know that her cousin enjoyed the cookies.", 2556, 120280)
AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 2, "Matsy gave me cookies for my trouble. Yum!")
UpdateQuestTaskGroupDescription(Quest, 2, "I told Matsy that Blarton got his cookies.")
UpdateQuestDescription(Quest, "The cookies seemed to make Blarton a much happier halfling.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
QuestComplete(Quest, QuestGiver, Player)
end
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end

View file

@ -0,0 +1,71 @@
--[[
Script Name : GnollReport.lua
Script Purpose : Handles the quest, "Gnoll Report"
Script Author : geordie0511
Script Date : 19.03.2019
Script Notes :
Zone : Antonica
Quest Giver : Captain Eitoa
Preceded by : The Keep of the Ardent Needle
Followed by : A Captain's Communique: Eitoa to Sturman
--]]
function Init(Quest)
AddQuestStepChat(Quest, 1, "Speak with Captain Beltho at Gnollslayer Keep.", 1, "I must go to Gnollslayer Keep. Follow the eastward road running from the North Gate of Qeynos. It leads towards the Thundering Steppes. Along the way I shall find the keep.", 11, 120400)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "Spoke with Captain Beltho.")
UpdateQuestTaskGroupDescription(Quest, 1, "I've spoken with Captain Beltho, though he does not have the report ready at this time.")
AddQuestStepLocation(Quest, 2, "Go to the hidden entrance of the gnoll lair.", 30, "I must find the hidden entrance to the gnoll lair somewhere near the southern islands.", 11, -1214, -3, 912)
AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
end
function Step2Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 2, "Found the hidden entrance of Blackburrow.")
UpdateQuestTaskGroupDescription(Quest, 2, "I've found the hidden entrance to the gnoll lair at the base of the southern range in Antonica.")
AddQuestStepChat(Quest, 3, "Speak to Captain Beltho at Gnollslayer Keep.", 1, "I must return with the location of the entrance to Captain Beltho in Gnollslayer Keep in Antonica.", 11, 120400)
AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
end
function Step3Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 3, "Spoke to Captain Beltho.")
UpdateQuestTaskGroupDescription(Quest, 3, "I've picked up the report from Captain Beltho in Gnollslayer Keep.")
AddQuestStepChat(Quest, 4, "Speak to Captain Eitoa near the North Qeynos gate.", 1, "I must deliver Captain Beltho's report safely to Captain Eitoa at the gates of Qeynos.", 75, 120069)
AddQuestStepCompleteAction(Quest, 4, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 4, "Spoke to Captain Eitoa.")
UpdateQuestTaskGroupDescription(Quest, 4, "I've safely delivered Captain Beltho's report to Captain Eitoa.")
UpdateQuestDescription(Quest, "Not only have I returned the report to Captain Eitoa, I've also discovered the origin of the gnoll presence in Antonica. Perhaps I can venture inside later. Who knows what waits within? The entrance has thought to have been sealed for ages.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
Step2Complete(Quest, QuestGiver, Player)
elseif Step == 3 then
Step3Complete(Quest, QuestGiver, Player)
elseif Step == 4 then
QuestComplete(Quest, QuestGiver, Player)
end
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end

View file

@ -0,0 +1,52 @@
--[[
Script Name : KillingwithKindness,OneBarbarianataTime.lua
Script Purpose : Handles the quest, "Killing with Kindness, One Barbarian at a Time"
Script Author : geordie0511
Script Date : 14.03.2019
Script Notes :
Zone : Antonica
Quest Giver :
Preceded by : Blub, Blub - Something Smells Fishy
Followed by : Care Package for Blarton
--]]
function Init(Quest)
AddQuestStepChat(Quest, 1, "I need to take this stew to Aroof.", 1, "Matsy gave me some of her chowder to give to Aroof.", 295, 121391)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have given Aroof the stew as Matsy requested.")
UpdateQuestTaskGroupDescription(Quest, 1, "I gave some of Matsy's good soup to Aroof.")
AddQuestStepChat(Quest, 2, "I need to talk to Matsy.", 1, "I should let Matsy know that Aroof enjoyed the stew.", 295, 120280)
AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 2, "The stew has been delivered.")
UpdateQuestTaskGroupDescription(Quest, 2, "Matsy was pleased that Aroof enjoyed his stew.")
UpdateQuestDescription(Quest, "I gave a drunken barbarian named Aroof some stew on behalf of Matsy.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
QuestComplete(Quest, QuestGiver, Player)
end
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end

View file

@ -0,0 +1,56 @@
--[[
Script Name : LuckyLure.lua
Script Purpose : Handles the quest, "Lucky Lure"
Script Author : geordie0511
Script Date : 12.03.2019
Script Notes : edited by geordie0511
Zone : Antonica
Quest Giver : Blarton Blumble
Preceded by : None
Followed by : Fishing Hole Hunt
--]]
function Init(Quest)
AddQuestStepHarvest(Quest, 1, "Find Blarton's fishing lure.", 1, 100, "I should search for Blarton's lost lure along the beach north of Windstalker Village in Antonica.", 1037, 121183)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end
function Deleted(Quest, QuestGiver, Player)
-- Remove any quest specific items here when the quest is deleted
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have found Blarton's fishing lure.")
UpdateQuestTaskGroupDescription(Quest, 1, "I have found the lost fishing lure.")
AddQuestStepChat(Quest, 2, "Return Blarton's lost fishing lure.", 1, "I have found the missing lure and must return it to Blarton in Windstalker Village.", 1037, 120163)
AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 2, "I brought the lure back to Blarton.")
UpdateQuestTaskGroupDescription(Quest, 2, "I have returned Blarton's fishing lure.")
UpdateQuestDescription(Quest, "I have retrieved Blarton's lost fishing lure and returned it to him. He seemed very happy about it. I wonder if he needs help with anything else.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
QuestComplete(Quest, QuestGiver, Player)
end
end

View file

@ -0,0 +1,41 @@
--[[
Script Name : MailDeliveryforMatsy.lua
Script Purpose : Handles the quest, "Mail Delivery for Matsy"
Script Author : geordie0511
Script Date : 19.03.2019
Script Notes :
Zone : Antonica
Quest Giver : Matsy Rollingpin
Preceded by : Spicy Meat Pie
Followed by : None
--]]
function Init(Quest)
AddQuestStepChat(Quest, 1, "Matsy gave me a letter to take to Jacques in The Thundering Steppes", 1, "I must bring Matsy's letter to Jacques in the Thundering Steppes near the gate to Antonica.", 11, 2490212)
AddQuestStepCompleteAction(Quest, 1, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 1, "I took the letter to Jacques in The Thundering Steppes.")
UpdateQuestTaskGroupDescription(Quest, 1, "I have delivered the mail for Matsy.")
UpdateQuestDescription(Quest, "I have delivered Matsy's letter to Jacques in the Thundering Steppes.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
QuestComplete(Quest, QuestGiver, Player)
end
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end

View file

@ -0,0 +1,69 @@
--[[
Script Name : SpicyMeatPie.lua
Script Purpose : Handles the quest, "Spicy Meat Pie"
Script Author : geordie0511
Script Date : 19.03.2019
Script Notes :
Zone : Antonica
Quest Giver : Matsy Rollingpin
Preceded by : Care Package for Blarton
Followed by : Mail Delivery for Matsy
--]]
function Init(Quest)
AddQuestStepKill(Quest, 1, "I need to go out and hunt wolves for Matsy's ingredients.", 5, 100, "Matsy has asked me to gather together some ingredients for her new pie.", 297, 120008, 120106, 120180, 120266, 120293, 121188, 121258, 121261, 121321, 121375, 121402)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have collected the wolf meat that Matsy requires.")
AddQuestStepKill(Quest, 2, "I need to go out and hunt birds for Matsy's ingredients.", 5, 100, "Matsy has asked me to gather together some ingredients for her new pie.", 297, 120011, 120119, 120257, 121191, 121266, 121370, 120064, 121222)
AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
end
function Step2Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 2, "I have collected the bird meat that Matsy requires.")
AddQuestStepKill(Quest, 3, "I need to go out and hunt bears for Matsy's ingredients.", 5, 100, "Matsy has asked me to gather together some ingredients for her new pie.", 297, 120029, 120064, 121208, 121222, 120011, 120257, 121191, 121266)
AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
end
function Step3Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 3, "I have collected the bear meat that Matsy requires.")
UpdateQuestTaskGroupDescription(Quest, 1, "I have gathered all of the ingredients for Matsy.")
AddQuestStepChat(Quest, 4, "I need to take these meats back to Matsy.", 1, "I now have all of the ingredients that Matsy needs for her special recipe.", 297, 120280)
AddQuestStepCompleteAction(Quest, 4, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 4, "Matsy made an excellent spicy meat pie with the ingredients that I collected for her.")
UpdateQuestTaskGroupDescription(Quest, 2, "I gave Matsy the ingredients.")
UpdateQuestDescription(Quest, "I have gathered the ingredients Matsy needs for her dish.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
Step2Complete(Quest, QuestGiver, Player)
elseif Step == 3 then
Step3Complete(Quest, QuestGiver, Player)
elseif Step == 4 then
QuestComplete(Quest, QuestGiver, Player)
end
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end

View file

@ -0,0 +1,51 @@
--[[
Script Name : TheKeepoftheArdentNeedle.lua
Script Purpose : Handles the quest, "The Keep of the Ardent Needle"
Script Author : geordie0511
Script Date : 19.03.2019
Script Notes :
Zone : Antonica
Quest Giver : Captain Eitoa
Preceded by : None
Followed by : Gnoll Report
--]]
function Init(Quest)
AddQuestStepLocation(Quest, 1, "Search the Keep of the Ardent Needle.", 30, "I must check the Keep of the Ardent Needle thoroughly.", 11, -555, -12, -327)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "Searched the Keep of the Ardent Needle.")
UpdateQuestTaskGroupDescription(Quest, 1, "I've inspected the Keep of the Ardent Needle, and found nothing suspicious.")
AddQuestStepChat(Quest, 2, "Speak with Captain Eitoa.", 1, "I must return to Captain Eitoa and inform her of the keep's status.", 11, 120069)
AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 2, "Spoken with Captain Eitoa.")
UpdateQuestTaskGroupDescription(Quest, 2, "I've spoken with Captain Eitoa and informed her of the keep's status.")
UpdateQuestDescription(Quest, "Captain Eitoa's suspicions were unfounded, yet for a moment she still seemed concerned. Guard Loxley's work defending the tower remains unquestioned, and the keep remains clear of any form of wrong-doing.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
QuestComplete(Quest, QuestGiver, Player)
end
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end

View file

@ -0,0 +1,93 @@
--[[
Script Name : Quests/Antonica/history_of_the_ayrdal_part_i.lua
Script Author : Ememjr
Script Date : 2019.03.25 05:03:17
Script Purpose :
Zone : Antonica
Quest Giver:
Preceded by: None
Followed by:
--]]
function Init(Quest)
AddQuestStepLocation(Quest, 1, "I need to visit Glade of the Coven.", 10, "I would like to visit the Glade of the Coven in Antonica.", 11, 160, -24, 441)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end
function Deleted(Quest, QuestGiver, Player)
-- Remove any quest specific items here when the quest is deleted
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have seen Glade of the Coven.")
UpdateQuestTaskGroupDescription(Quest, 1, "I have seen the Glade of the Coven.")
AddQuestStep(Quest, 2, "I should read the book.", 1, 100, "I should read the book now that I have a new page.", 2180)
AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
end
function Step2Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 2, "I have read the book.")
UpdateQuestTaskGroupDescription(Quest, 2, "I have read the book.")
AddQuestStepLocation(Quest, 3, "I need to visit the Crossroads.", 10, "I must visit the Crossroads in the Commonlands.", 11, -528, -43, -276 )
AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
end
function Step3Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 3, "I have seen the Crossroads.")
UpdateQuestTaskGroupDescription(Quest, 3, "I have seen the Crossroads.")
AddQuestStep(Quest, 4, "I should read the book.", 1, 100, "I should read the book now that I have a new page.", 2180)
AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
end
function Step4Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 4, "I have read the book.")
UpdateQuestTaskGroupDescription(Quest, 4, "I have read the book.")
AddQuestStepLocation(Quest, 5, "I need to visit Turmoil Cemetery.", 10, "I need to visit the Turmoil Cemetery in the Commonlands.", 11, -1342, -69, 372)
AddQuestStepCompleteAction(Quest, 5, "Step5Complete")
end
function Step5Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 5, "I have seen Turmoil Cemetery.")
UpdateQuestTaskGroupDescription(Quest, 5, "I have seen the Turmoil Cemetery.")
AddQuestStep(Quest, 6, "I should read the book.", 1, 100, "I should read the book now that I have a new page.", 2180)
AddQuestStepCompleteAction(Quest, 6, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 6, "I have read the book.")
UpdateQuestTaskGroupDescription(Quest, 6, "I have read the book.")
UpdateQuestDescription(Quest, "I have visited several sites and pondered their meaning, reading more of this tome along the way. Soon I shall have enough experience to consider Part Two.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
Step2Complete(Quest, QuestGiver, Player)
elseif Step == 3 then
Step3Complete(Quest, QuestGiver, Player)
elseif Step == 4 then
Step4Complete(Quest, QuestGiver, Player)
elseif Step == 5 then
Step5Complete(Quest, QuestGiver, Player)
elseif Step == 6 then
QuestComplete(Quest, QuestGiver, Player)
end
end

View file

@ -0,0 +1,103 @@
--[[
Script Name : Quests/Antonica/history_of_the_barbarians_part_i.lua
Script Author : Ememjr
Script Date : 2019.03.28 04:03:19
Script Purpose :
Zone : Antonica
Quest Giver:
Preceded by: None
Followed by:
Quest 477
this script is still being worked on
--]]
function Init(Quest)
-- updated via zone quest
AddQuestStepLocation(Quest, 1, "I need to visit Crater Pond.", 10, "I would like to visit the Crater Pond in Antonica.", 11, 160, -24, 441)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Accepted(Quest, QuestGiver, Player)
Item = GetTempVariable(Player, "Q477")
conversation = CreateConversation()
AddConversationOption(conversation, "Continue Story 1","ContStory1")
AddConversationOption(conversation, "Close")
StartDialogConversation(conversation, 2, Item, Player, "Q Our Name Struck Fear .... text needed")
end
function Declined(Quest, QuestGiver, Player)
Item = GetTempVariable(Player, "Q477")
CloseItemConversation(Item, Player)
end
function Deleted(Quest, QuestGiver, Player)
-- Remove any quest specific items here when the quest is deleted
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have seen Crater Pond.")
UpdateQuestTaskGroupDescription(Quest, 1, "I have seen Crater Pond.")
AddQuestStep(Quest, 2, "I should read the book.", 1, 100, "I should read the book now that I have a new page.", 2180)
AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
end
function Step2Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 2, "I have read the book.")
UpdateQuestTaskGroupDescription(Quest, 2, "I have read the book.")
AddQuestStepLocation(Quest, 3, "I need to visit the Collapsed Everfrost Tunnel.", 10, "I must visit the Collapsed Everfrost Tunnel in Blackburrow.", 11, -95, 0, -95)
AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
end
function Step3Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 3, "I have seen the Collapsed Everfrost Tunnel.")
UpdateQuestTaskGroupDescription(Quest, 3, "I have seen the Collapsed Everfrost Tunnel.")
AddQuestStep(Quest, 4, "I should read the book.", 1, 100, "I should read the book now that I have a new page.", 2180)
AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
end
function Step4Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 4, "I have read the book.")
UpdateQuestTaskGroupDescription(Quest, 4, "I have read the book.")
AddQuestStepLocation(Quest, 5, "I need to visit The Keep of the Gnollslayers.", 10, "I need to visit the Keep of the Gnollslayers in Antonica.", 11, -2104, -43, 438 )
AddQuestStepCompleteAction(Quest, 5, "Step5Complete")
end
function Step5Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 5, "I have seen The Keep of the Gnollslayers.")
UpdateQuestTaskGroupDescription(Quest, 5, "I have seen the Keep of the Gnollslayers in Antonica.")
AddQuestStep(Quest, 6, "I should read the book.", 1, 100, "I should read the book now that I have a new page.", 2180)
AddQuestStepCompleteAction(Quest, 6, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 6, "I have read the book.")
UpdateQuestTaskGroupDescription(Quest, 6, "I have read the book.")
UpdateQuestDescription(Quest, "I have visited several sites and pondered their meaning, reading more of this tome along the way. Soon I shall have enough experience to consider Part Two.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
Step2Complete(Quest, QuestGiver, Player)
elseif Step == 3 then
Step3Complete(Quest, QuestGiver, Player)
elseif Step == 4 then
Step4Complete(Quest, QuestGiver, Player)
elseif Step == 5 then
Step5Complete(Quest, QuestGiver, Player)
elseif Step == 6 then
QuestComplete(Quest, QuestGiver, Player)
end
end

View file

@ -0,0 +1,63 @@
--[[
Script Name : once_upon_an_isle_dreary.lua
Script Purpose : Handles the quest, "Once Upon an Isle Dreary"
Script Author : Jabantiz
Script Date : 9/1/2019
Script Notes : Auto generated with QuestParser.
Zone : Antonica
Quest Giver :
Preceded by : None
Followed by : None
--]]
require "SpawnScripts/Generic/DialogModule"
function Init(Quest)
AddQuestStepKill(Quest, 1, "Slay dankfur gnolls.", 4, 75, "I must swim to the isles off the southwest coast of Antonica. There I will slay dankfur gnolls.", 75, 120340, 120420, 121433, 121481)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Accepted(Quest, QuestGiver, Player)
FaceTarget(QuestGiver, Player)
Dialog.New(QuestGiver, Player)
Dialog.AddDialog("Will you?! Oh! Thank you! Search them well, yes, search them very well. I know my scrolls are being clutched by those furry paws!")
Dialog.AddVoiceover("voiceover/english/quallium/antonica/quallium002.mp3", 497416154, 1226676289)
Dialog.AddOption("I will return with your scrolls.")
Dialog.Start()
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end
function Deleted(Quest, QuestGiver, Player)
-- Remove any quest specific items here when the quest is deleted
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "Got four poems.")
UpdateQuestTaskGroupDescription(Quest, 1, "I swam to the isles off the southwest coast of Antonica. There I slew dankfur gnolls to gain the four poems.")
AddQuestStepChat(Quest, 2, "Speak to Quallium.", 1, "I must return the poems to Quallium in southwest Antonica.", 11, 120215)
AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 2, "Spoke to Quallium.")
UpdateQuestTaskGroupDescription(Quest, 2, "I returned the poems to Quallium in southwest Antonica.")
UpdateQuestDescription(Quest, "I retrieved all four poems from the gnolls on the isles. I gave the poems to Quallium.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
QuestComplete(Quest, QuestGiver, Player)
end
end

View file

@ -0,0 +1,71 @@
--[[
Script Name : QeynosianCivilService.lua
Script Purpose : Handles the quest, "Qeynosian Civil Service"
Script Author : geordie0511
Script Date : 13.03.2019
Script Notes :
Zone : Antonica
Quest Giver : Knight-Lieutenant Alesso
Preceded by : None
Followed by : None
--]]
function Init(Quest)
SetQuestFeatherColor(Quest, 3)
SetQuestRepeatable(Quest)
AddQuestStepKill(Quest, 1, "I need to kill ten rats.", 10, 100, "I need to head out into Antonica and kill the vermin that infest the land; rats, snakes and beetles. Knight-Lieutenant Alesso said I should kill about ten of each.", 99, 120066, 121224)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I've killed ten rats.")
AddQuestStepKill(Quest, 2, "I need to kill ten snakes.", 10, 100, "I need to head out into Antonica and kill the vermin that infest the land; rats, snakes and beetles. Knight-Lieutenant Alesso said I should kill about ten of each.", 1908, 120068, 121226, 121347)
AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
end
function Step2Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 2, "I have killed ten snakes.")
AddQuestStepKill(Quest, 3, "I need to kill ten beetles.", 10, 100, "I need to head out into Antonica and kill the vermin that infest the land; rats, snakes and beetles. Knight-Lieutenant Alesso said I should kill about ten of each.", 162, 120067, 121225, 120253, 120373, 120367, 121443, 120371, 121369)
AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
end
function Step3Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 3, "I have killed ten beetles.")
UpdateQuestTaskGroupDescription(Quest, 1, "I've killed the vermin that Sir Alesso tasked me with.")
AddQuestStepChat(Quest, 4, "I need to speak with Knight-Lieutenant Alesso.", 1, "I've killed a great many vermin that once infested Antonica. I should return to Knight-Lieutenant Alesso.", 11, 120083)
AddQuestStepCompleteAction(Quest, 4, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 4, "I've spoken with Knight-Lieutenant Alesso.")
UpdateQuestTaskGroupDescription(Quest, 2, "I've spoken with Knight-Lieutenant Alesso.")
UpdateQuestDescription(Quest, "I've lowered the vermin population quite a bit out in Antonica. Knight-Lieutenant Alesso was pleased with my efforts and paid me for my service to Qeynos.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
Step2Complete(Quest, QuestGiver, Player)
elseif Step == 3 then
Step3Complete(Quest, QuestGiver, Player)
elseif Step == 4 then
QuestComplete(Quest, QuestGiver, Player)
end
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end

View file

@ -0,0 +1,56 @@
--[[
Script Name : there_mite_be_trouble.lua
Script Purpose : Handles the quest, "There Mite be Trouble"
Script Author : geordie0511
Script Date : 12.03.2019
Script Notes : Edited by geordie0511
Zone : Antonica
Quest Giver : Farmer Walcott
Preceded by : None
Followed by : None
--]]
function Init(Quest)
AddQuestStepKill(Quest, 1, "Slay some klicnik mites.", 10, 100, "I need to slay 10 klicnik mites in the crops outside of the North Gates of Qeynos.", 611, 120067, 121225)
AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end
function Accepted(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is accepted
end
function Declined(Quest, QuestGiver, Player)
-- Add dialog here for when the quest is declined
end
function Deleted(Quest, QuestGiver, Player)
-- Remove any quest specific items here when the quest is deleted
end
function Step1Complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "Slew some klicnik mites.")
UpdateQuestTaskGroupDescription(Quest, 1, "I slew 10 of the klicnik mites in Antonica.")
AddQuestStepChat(Quest, 2, "Speak to Farmer Walcott.", 1, "I need to return to Farmer Walcott in Antonica.", 11, 120078)
AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
end
function QuestComplete(Quest, QuestGiver, Player)
-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
UpdateQuestStepDescription(Quest, 2, "Spoke to Farmer Walcott.")
UpdateQuestTaskGroupDescription(Quest, 2, "I returned to Farmer Walcott.")
UpdateQuestDescription(Quest, "I have slain a number of the pesky klicnik mites that plagued the crops of Farmer Walcott outside of the North Gates of Qeynos.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
Step1Complete(Quest, QuestGiver, Player)
elseif Step == 2 then
QuestComplete(Quest, QuestGiver, Player)
end
end

View file

@ -0,0 +1,40 @@
--[[
Script Name : Quests/Baubbleshire/a_budding_prankster.lua
Script Purpose : Handles the quest, "A Budding Prankster"
Script Author : Scatman
Script Date : 2009.09.27
Zone : The Baubbleshire
Quest Giver: Rondo "The Belly" Roundstew
Preceded by: Paying Off a Sweet Debt (paying_off_a_sweet_debt.lua)
Followed by: None
--]]
function Init(Quest)
AddQuestStepChat(Quest, 1, "I need to speak to Remmy Tumbub.", 1, "I need to find Remmy in the Forest Ruins and pretend to be from the Qeynos guard.", 0, 1960016)
AddQuestStepCompleteAction(Quest, 1, "quest_complete")
end
function Accepted(Quest, QuestGiver, Player)
FaceTarget(QuestGiver, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "I'm sure it will be great.")
StartConversation(conversation, QuestGiver, Player, "I just wish I could be there to see it.")
end
function Declined(Quest, QuestGiver, Player)
end
function Deleted(Quest, QuestGiver, Player)
end
function quest_complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have spoken with Remmy Tumbub.")
UpdateQuestTaskGroupDescription(Quest, 1, "I have found Remmy.")
UpdateQuestDescription(Quest, "I have played a practical joke on Remmy!")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
end

View file

@ -0,0 +1,50 @@
--[[
Script Name : Quests/Baubbleshire/badger_pelts_for_diggs.lua
Script Purpose : Handles the quest, "Badger Pelts for Diggs"
Script Author : Scatman
Script Date : 2009.09.27
Zone : Baubbleshire
Quest Giver: Diggin Digs
Preceded by: None
Followed by: None
--]]
function Init(Quest)
AddQuestStepKill(Quest, 1, "I need ten badger pelts.", 10, 100, "I must collect ten badger pelts in the Forest Ruins.", 93, 1960011, 1960017)
AddQuestStepCompleteAction(Quest, 1, "step1_complete_killedBadgers")
end
function Accepted(Quest, QuestGiver, Player)
FaceTarget(QuestGiver, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "Ok.")
StartConversation(conversation, QuestGiver, Player, "Try to make them high quality pelts!")
end
function Declined(Quest, QuestGiver, Player)
end
function step1_complete_killedBadgers(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have collected ten badger pelts.")
UpdateQuestTaskGroupDescription(Quest, 1, "I have collected then badger pelts for Diggs.")
UpdateQuestZone(Quest, "The Baubbleshire")
AddQuestStepChat(Quest, 2, "I must return to Armorsmith Diggs.", 1, "I must return to Armorsmith Diggs in Baubbleshire.", 0, 2380049)
AddQuestStepCompleteAction(Quest, 2, "quest_complete")
end
function quest_complete(Quest, QuestGiver, Player, Step)
UpdateQuestStepDescription(Quest, 2, "I returned to Armorsmith Diggs in Baubbleshire.")
UpdateQuestTaskGroupDescription(Quest, 2, "I returned to Armorsmith Diggs in Baubbleshire.")
UpdateQuestDescription(Quest, "I collected ten badger pelts for Armorsmith Diggs.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
step1_complete_killedBadgers(Quest, QuestGiver, Player)
end
end

View file

@ -0,0 +1,49 @@
--[[
Script Name : Quests/Baubbleshire/embers_for_xoort.lua
Script Purpose : Handles the quest, "Embers for Xoort"
Script Author : Scatman
Script Date : 2009.09.27
Zone : The Baubbleshire
Quest Giver: Sage Xoort
Preceded by: None
Followed by: None
--]]
function Init(Quest)
AddQuestStepKill(Quest, 1, "I need to gather coals from the fiery forgotten guardians in the Forest Ruins.", 1, 70, "I need to gather an everburning coal from the fiery forgotten guardians in the Forest Ruins.", 183, 1960019)
AddQuestStepCompleteAction(Quest, 1, "step1_complete_gotGoal")
end
function Accepted(Quest, QuestGiver, Player)
FaceTarget(QuestGiver, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "All right already!")
StartConversation(conversation, QuestGiver, Player, "Well? What are you waiting for? Go, go, GO!")
end
function Declined(Quest, QuestGiver, Player)
end
function step1_complete_gotGoal(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I gathered an everburning coal.")
UpdateQuestTaskGroupDescription(Quest, 1, "I gathered the embers that Sage Xoort needed from the guardians.")
UpdateQuestZone(Quest, "The Baubbleshire")
AddQuestStepChat(Quest, 2, "I need to speak with Sage Xoort in the Baubbleshire.", 1, "I need to speak with Sage Xoort and give him the embers I gathered.", 0, 2380043)
AddQuestStepCompleteAction(Quest, 2, "quest_complete")
end
function quest_complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 2, "I spoke with Sage Xoort in the Baubbleshire.")
UpdateQuestTaskGroupDescription(Quest, 2, "I gave Sage Xoort all five embers that I gathered from the guardians.")
UpdateQuestDescription(Quest, "I gathered the coals for Xoort's experimentation. Turns out to be a good thing that I did. Xoort gave me some coin for the job.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
step1_complete_gotGoal(Quest, QuestGiver, Player)
end
end

View file

@ -0,0 +1,50 @@
--[[
Script Name : Quests/Baubbleshire/fight_the_forgotten_guardians.lua
Script Purpose : Handles the quest, "Fight the Forgotten Guardians"
Script Author : Scatman
Script Date : 2009.01.14
Zone : Baubbleshire
Quest Giver: Marshal Surefoot
Preceded by: None
Followed by: None
--]]
function Init(Quest)
AddQuestStepKill(Quest, 1, "I must kill some forgotten guardians.", 5, 100, "I need to slay five Forgotten Guardians in the Forest Ruins.", 611, 1960038, 1960058)
AddQuestStepCompleteAction(Quest, 1, "step1_complete_killedGuardians")
end
function Accepted(Quest, QuestGiver, Player)
FaceTarget(QuestGiver, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "I will return victorious!")
StartConversation(conversation, QuestGiver, Player, "Good! Return when you've bested them!")
end
function Declined(Quest, QuestGiver, Player)
end
function step1_complete_killedGuardians(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have killed some forgotten guardians")
UpdateQuestTaskGroupDescription(Quest, 1, "I have slain five Forgotten Guardians.")
UpdateQuestZone(Quest, "The Baubbleshire")
AddQuestStepChat(Quest, 2, "I must return to Marshal Surefoot.", 1, "I need to return to Marshal Surefoot in Baubbleshire.", 0, 2380044)
AddQuestStepCompleteAction(Quest, 2, "quest_complete")
end
function quest_complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 2, "I have returned to Marshal Surefoot.")
UpdateQuestTaskGroupDescription(Quest, 2, "I have returned to tell my tale to Marshal Surefoot.")
UpdateQuestDescription(Quest, "I have faced and slain five Forgotten Guardians in the Forest Ruins per the orders of Marshal Surefoot. After telling him my tale of victory he was pleased and paid me for my service.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
step1_complete_killedGuardians(Quest, QuestGiver, Player)
end
end

View file

@ -0,0 +1,41 @@
--[[
Script Name : Quests/Baubbleshire/getting_to_know_poko.lua
Script Purpose : Handles the quest, "Getting to Know Poko"
Script Author : Scatman
Script Date : 2009.09.27
Zone : The Baubbleshire
Quest Giver: Neezer Grund
Preceded by: Neezer's Survey (neezers_survery.lua)
Followed by: None
--]]
function Init(Quest)
AddQuestStepChat(Quest, 1, "I need to speak with Poko Zing.", 1, "I need to speak with Poko Zing and give him this mechanical part.", 0, 1960003)
AddQuestStepCompleteAction(Quest, 1, "step1_complete")
end
function Accepted(Quest, QuestGiver, Player)
FaceTarget(NPC, Spawn)
conversation = CreateConversation()
PlayFlavor(NPC, "voiceover/english/tutorial_revamp/neezer_grund/qey_village06/quests/neezer_grund/neezer_grund050a.mp3", "", "", 494428162, 2433018345, Spawn)
AddConversationOption(conversation, "All right.")
StartConversation(conversation, NPC, Spawn, "Tell him Neezer sent you, I'm sure he'll be happy to see you.")
end
function Declined(Quest, QuestGiver, Player)
end
function Deleted(Quest, QuestGiver, Player)
end
function step1_complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have spoken with Poko Zing.")
UpdateQuestTaskGroupDescription(Quest, 1, "I have spoken with Poko Zing.")
UpdateQuestDescription(Quest, "I have delivered the part to Poko Zing.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
end

View file

@ -0,0 +1,51 @@
--[[
Script Name : Quests/Baubbleshire/helping_a_friend.lua
Script Purpose : Handles the quest, "Helping a Friend"
Script Author : Scatman
Script Date : 2009.09.27
Zone : The Baubbleshire
Quest Giver: Rondo "The Belly" Roundstew
Preceded by: None
Followed by: Helping a Friend, Again (helping_a_friend_again.lua)
--]]
function Init(Quest)
AddQuestStepChat(Quest, 1, "I need to speak with Maela Meadows near the waterfall in southeastern Baubbleshire.", 1, "I need to see if I can help Maela deal with any problems she may have.", 0, 2380035)
AddQuestStepCompleteAction(Quest, 1, "step1_complete_talkedToMaela")
end
function Accepted(Quest, QuestGiver, Player)
FaceTarget(QuestGiver, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "I'm on my way.")
StartConversation(conversation, QuestGiver, Player, "Thank you. She should be by the waterfall, find her and get her to share her feelings, please.")
end
function Declined(Quest, QuestGiver, Player)
end
function Deleted(Quest, QuestGiver, Player)
end
function step1_complete_talkedToMaela(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have spoken with Maela, she didn't have much to say.")
AddQuestStepChat(Quest, 2, "I should return to Rondo.", 1, "I need to see if I can help Maela deal with any problems she may have.", 0, 2380039)
AddQuestStepCompleteAction(Quest, 2, "quest_complete")
end
function quest_complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 2, "I have spoken with Rondo.")
UpdateQuestTaskGroupDescription(Quest, 1, "I was unable to help Maela, but Rondo has another plan.")
UpdateQuestDescription(Quest, "Maela wasn't very forthcoming, but Rondo has another plan to help her out.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
step1_complete_talkedToMaela(Quest, QuestGiver, Player)
end
end

View file

@ -0,0 +1,74 @@
--[[
Script Name : Quests/Baubbleshire/helping_a_friend_again.lua
Script Purpose : Handles the quest, "Helping a Friend, Again"
Script Author : Scatman
Script Date : 2009.09.26
Zone : The Baubbleshire
Quest Giver: Rondo "The Belly" Roundstew
Preceded by: Helping a Friend (helping_a_friend.lua)
Followed by: Helping Some 'Friends' (helping_some_friends.lua)
--]]
-- Race ID's
local HALFLING = 7
-- Item ID's
local MISTY_THICKET_SHADEBLOOM = 9868
function Init(Quest)
-- a Misty Thicket Shadebloom
AddQuestStepHarvest(Quest, 1, "I need to collect some Misty Thicket Shadeblooms from around the Baubbleshire.", 6, 100, "I need to collect some Misty Thicket Shadeblooms and see if they will help convince Maela to get her feelings off of her chest.", 1946, MISTY_THICKET_SHADEBLOOM)
AddQuestStepCompleteAction(Quest, 1, "step1_complete_gotFlowers")
end
function Accepted(Quest, QuestGiver, Player)
FaceTarget(QuestGiver, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "All right.")
StartConversation(conversation, QuestGiver, Player, "I don't know what I'll do if this doesn't work.")
end
function Declined(Quest, QuestGiver, Player)
end
function Deleted(Quest, QuestGiver, Player)
while HasItem(Player, MISTY_THICKET_SHADEBLOOM) do
RemoveItem(Player, MISTY_THICKET_SHADEBLOOM)
end
end
function step1_complete_gotFlowers(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have collected the Misty Thicket Shadeblooms.")
AddQuestStepChat(Quest, 2, "I should speak with Maela now that I have these Shadeblooms.", 1, "I need to collect some Misty Thicket Shadeblooms and see if they will help convince Maela to get her feelings off of her chest.", 0, 2380035)
AddQuestStepCompleteAction(Quest, 2, "step2_complete_talkedToMaela")
end
function step2_complete_talkedToMaela(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 2, "Maela came out of her shell.")
-- a Misty Thicket Shadebloom
while HasItem(Player, MISTY_THICKET_SHADEBLOOM) do
RemoveItem(Player, MISTY_THICKET_SHADEBLOOM)
end
AddQuestStepChat(Quest, 3, "I should return to Rondo and let him know the good news.", 1, "I need to collect some Misty Thicket Shadeblooms and see if they will help convince Maela to get her feelings off of her chest.", 0, 2380039)
AddQuestStepCompleteAction(Quest, 3, "quest_complete")
end
function quest_complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 3, "I have spoken with Rondo.")
UpdateQuestTaskGroupDescription(Quest, 1, "Maela opened up to me after I presented her with the Shadeblooms.")
UpdateQuestDescription(Quest, "After seeing the flowers Maela opened up and told me of her worries.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
step1_complete_gotFlowers(Quest, QuestGiver, Player)
elseif Step == 2 then
step2_complete_talkedToMaela(Quest, QuestGiver, Player)
end
end

View file

@ -0,0 +1,107 @@
--[[
Script Name : Quests/Baubbleshire/helping_some_friends.lua
Script Purpose : Handles the quest, "Helping Some 'Friends'"
Script Author : Scatman
Script Date : 2009.09.27
Zone : The Baubbleshire
Quest Giver: Rondo "The Belly" Roundstew
Preceded by: Helping a Friend, Again (helping_a_friend_again.lua)
Followed by: Paying Off a Sweet Debt (paying_off_a_sweet_debt.lua)
--]]
-- Quest ID's
local HELPING_SOME_FRIENDS = 325 -- was 72
-- Item ID's
local PRANK_PREPAREDNESS_KIT = 10574
function Init(Quest)
AddQuestStep(Quest, 1, "I need to examine the Prank Preparedness Kit that Rondo gave me.", 1, 100, "Before I execute Rondo's plan I must go through the Prank Preparedness Kit he has given me. Rondo will give me another kit if I misplace the first one.", 0)
AddQuestStepCompleteAction(Quest, 1, "step1_complete_examinedKit")
end
function Accepted(Quest, QuestGiver, Player)
FaceTarget(QuestGiver, Player)
conversation = CreateConversation()
AddConversationOption(conversation, "All right. Give me the kit.", "GiveMeKit")
StartConversation(conversation, QuestGiver, Player, "Delicious! I've put everything you'll need in this PPK, that's Prank Preparedness Kit. Remember, don't let them think you're up to anything, it's very important!")
end
function Declined(Quest, QuestGiver, Player)
end
function Deleted(Quest, QuestGiver, Player)
while HasItem(Player, PRANK_PREPAREDNESS_KIT) do
RemoveItem(Player, PRANK_PREPAREDNESS_KIT)
end
end
function step1_complete_examinedKit(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 1, "I have examined the Prank Preparedness Kit and know what I must do now.")
UpdateQuestTaskGroupDescription(Quest, 1, "After going through the Prank Preparedness Kit I know what I must do.")
AddQuestStepChat(Quest, 2, "I must find Drundo Parn in the tavern and give him a disguised walnut pie.", 1, "I need to visit Drundo, Jayla, and Bolo and set them up for Rondo's pranks.", 0, 2380026)
AddQuestStepChat(Quest, 3, "I must find Jayla Midhop outside the armory and give her this forged note.", 1, "I need to visit Drundo, Jayla, and Bolo and set them up for Rondo's pranks.", 0, 2380009)
AddQuestStepChat(Quest, 4, "I must find Bolo Brassharp outside of the inn and convince him to see Jayla with a bloat pie.", 1, "I need to visit Drundo, Jayla, and Bolo and set them up for Rondo's pranks.", 0, 2380017)
AddQuestStepCompleteAction(Quest, 2, "step2_complete_talkedToDrundo")
AddQuestStepCompleteAction(Quest, 3, "step3_complete_talkedToJayla")
AddQuestStepCompleteAction(Quest, 4, "step4_complete_talkedToBolo")
end
function step2_complete_talkedToDrundo(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 2, "I have given Drundo the walnut pie.")
if QuestIsComplete(Player, HELPING_SOME_FRIENDS) then
pranks_given(Quest, QuestGiver, Player)
end
end
function step3_complete_talkedToJayla(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 3, "I have given Jayla the forged note.")
if QuestIsComplete(Player, HELPING_SOME_FRIENDS) then
pranks_given(Quest, QuestGiver, Player)
end
end
function step4_complete_talkedToBolo(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 4, "I have given Bolo the bloat pie.")
if QuestIsComplete(Player, HELPING_SOME_FRIENDS) then
pranks_given(Quest, QuestGiver, Player)
end
end
function pranks_given(Quest, QuestGiver, Player)
UpdateQuestTaskGroupDescription(Quest, 2, "I have set Druno, Jayla, and Bolo up for Rondo's pranks.")
AddQuestStepChat(Quest, 5, "I have done what Rondo wanted and should return to him.", 1, "Now that Rondo's pranks are ready to go, I should speak with him.", 0, 2380039)
AddQuestStepCompleteAction(Quest, 5, "quest_complete")
end
function quest_complete(Quest, QuestGiver, Player)
UpdateQuestStepDescription(Quest, 5, "I have spoken with Rondo.")
UpdateQuestTaskGroupDescription(Quest, 3, "I have spoken with Rondo.")
-- Prank Preparedness Kit
while HasItem(Player, PRANK_PREPAREDNESS_KIT) do
RemoveItem(Player, PRANK_PREPAREDNESS_KIT)
end
UpdateQuestDescription(Quest, "I have helped Rondo set his friends up impending pranks. Rondo was absolutely giddy about it.")
GiveQuestReward(Quest, Player)
end
function Reload(Quest, QuestGiver, Player, Step)
if Step == 1 then
step1_complete_examinedKit(Quest, QuestGiver, Player)
elseif Step == 2 then
step2_complete_talkedToDrundo(Quest, QuestGiver, Player)
elseif Step == 3 then
step3_complete_talkedToJayla(Quest, QuestGiver, Player)
elseif Step == 4 then
step4_complete_talkedToBolo(Quest, QuestGiver, Player)
end
end

Some files were not shown because too many files have changed in this diff Show more