EQ2EMu/server/SpawnScripts/WillowWood/SaliniaBrooklily.lua

--[[
    Script Name    : SpawnScripts/WillowWood/SaliniaBrooklily.lua
    Script Author  : Dorbin
    Script Date    : 2022.02.15 06:02:39
    Script Purpose : Quest Scavenging Rats w/ Woodelf language check
                   : 
--]]
dofile("SpawnScripts/Generic/UnknownLanguage.lua")
require "SpawnScripts/Generic/DialogModule"

local Rats = 5478

function spawn(NPC)
    ProvidesQuest(NPC,Rats)
    SetPlayerProximityFunction(NPC, 6, "InRange", "LeaveRange")
    SetInfoStructString(NPC, "action_state", "ponder")
end

function respawn(NPC)
	spawn(NPC)
end

function InRange(NPC, Spawn)
if math.random(1, 100) <= 75 then
   if not HasLanguage(Spawn, 16) then
            Garbled(NPC,Spawn)
    	end
	elseif not HasCompletedQuest (Spawn, Rats) and not HasQuest (Spawn, Rats) then 
            if math.random(1, 100) <= 60 then
            PlayFlavor(NPC, "", "The balance of nature is delicate, but all these newcomers...", "ponder", 0, 0, Spawn, 16)
            elseif HasCompletedQuest (Spawn, Rats) and math.random(1, 100) <= 30 then
            FaceTarget(NPC,Spawn)
            PlayFlavor(NPC, "voiceover/english/salinia_brooklily/qey_village05/100_salinia_brooklily_callout_b524f5d0.mp3", "Hello friend! Please, take your time and browse at your leisure.", "hello", 996096760, 49604074, Spawn, 16)
             end
    end
end


function hailed(NPC, Spawn)
    if not HasLanguage(Spawn, 16) then
        Garbled(NPC,Spawn)
	    else
        Dialog1(NPC, Spawn)
	 end
end

function Dialog1(NPC, Spawn)
	FaceTarget(NPC, Spawn)
	Dialog.New(NPC, Spawn)
	Dialog.AddDialog("Welcome to my little scribe shop, adventurer.  Are you interested in the wondrous magic of nature per chance?  I may have something here that would be of use to you.")
	Dialog.AddVoiceover("voiceover/english/salinia_brooklily/qey_village05/saliniabrooklily_x000.mp3", 1124223156, 142078310)
	PlayFlavor(NPC,  "", "","hello", 0, 0, Spawn)
	    if not HasQuest(Spawn, Rats) and not HasCompletedQuest(Spawn,Rats) then
	    Dialog.AddOption("I am interested in the power of nature.", "WhatRats")
	    elseif GetQuestStep(Spawn, Rats)==2 then
	    Dialog.AddOption("I've reduced the number of scavengers like you asked.", "DoneRats")
	    end
	    Dialog.AddOption("Just browsing. Thank you.")
	Dialog.Start()
end


function WhatRats(NPC, Spawn)
	FaceTarget(NPC, Spawn)
	Dialog.New(NPC, Spawn)
	Dialog.AddDialog("The amazing thing about nature is its ability to balance life with no assistance.  Unfortunately, the influx of people to this city is disrupting this balance.")
 	PlayFlavor(NPC, "", "", "ponder", 0,0 , Spawn)
	Dialog.AddOption("What problems do you mean?", "WhatMean")
	Dialog.AddOption("Well, people have to go somewhere. I don't have time for this.")
	Dialog.Start()
end

function WhatMean(NPC, Spawn)
	FaceTarget(NPC, Spawn)
	Dialog.New(NPC, Spawn)
	Dialog.AddDialog("Take those scavenger rats in the Peat Bog; those vermin overpower the other creatures that live there.  Normally, hawks or cats would prey on the rats, but they shy away from the ever-growing city. I know it may take time, but would you slay some rats and help restore the balance of nature?")
 	PlayFlavor(NPC, "", "", "nod", 0,0 , Spawn)
	Dialog.AddOption("I suppose I could help you with this.", "Helpping")
	Dialog.AddOption("Rats? You'll need to find someone else. I don't do rats.")
	Dialog.Start()
end

function Helpping(NPC, Spawn)
    FaceTarget(NPC, Spawn)
    OfferQuest(NPC, Spawn, Rats)
end


function DoneRats(NPC, Spawn)
    SetStepComplete(Spawn, Rats, 2)

	FaceTarget(NPC, Spawn)
	Dialog.New(NPC, Spawn)
	Dialog.AddDialog("Your actions, even though small, carry great weight in helping restore the balance of nature in our beloved city. Thank you for your help.")
 	PlayFlavor(NPC, "", "", "agree", 0,0 , Spawn)
	Dialog.AddOption("I'm glad I could help.")
	Dialog.Start()
end