-- NPC Korbuk Brimblade, pre-flag for Warrior Epic 1.5, quest for Warrior Epic 1.5 and 2.0.

function event_say(e)
    if(e.other:Class() == "Warrior") then
        if(e.message:findi("hail")) then
                -- Checks for completion of Epic 1.5
                if(e.other:HasItem(60321)) then  -- Has Champion's Sword of Eternal Power
                e.self:Say("Dat sword, there's something wrong with it. Was it my brother? This is terrible news. I had no idea he had been so corrupted by this place. I had no idea he'd turn into a monster and try to steal away dat which we have been charged to protect! Luckily you were able to stop him and recover da sword. You should keep it in your possession. I have a feeling you're da [one] I've been waiting for.");
                elseif -- Does not have Epic 1.5, start 1.5 or pre-quest
                    e.self:say("Well now, aren't you a meager one? Da name is Korbuk Brimblade. Have you felt anything strange lately?");
                    end
        elseif(e.message:findi("strange")) then
            e.self:Say("Aha, you have sensed it as well. For a while, I believed it was just me dat noticed it. Now dat you've confirmed my suspicions, I'm sure I can move forward with my [work].");
        elseif(e.message:findi("work")) then
                -- Checks start here to determine position in quest and response.
                if(e.other:HasItem(66175)) then  -- Has Jagged Blade of War, start Epic 1.5
                e.self:Say("Yeah, ok. You look like da respectable type. I wish it was an easy story to tell, but me thinks it's not so easy. I'm uncertain if you know da story of da red scabbard. I was named after my ancestor by da same name. In a great war, Rallos Zek bestowed to my ancestor da fabled red scabbard after Suteng was slain. It had been his charge and dat of my family to hold da scabbard until a [true warrior] would step forward to claim it as theirs once more.");
                elseif(e.other:HasItem(60293)) then  -- Korbuk's Blade of Mastery, start Epic 1.5
                e.self:Say("Yeah, ok. You look like da respectable type. I wish it was an easy story to tell, but me thinks it's not so easy. I'm uncertain if you know da story of da red scabbard. I was named after my ancestor by da same name. In a great war, Rallos Zek bestowed to my ancestor da fabled red scabbard after Suteng was slain. It had been his charge and dat of my family to hold da scabbard until a [true warrior] would step forward to claim it as theirs once more.");
                else  -- Has no epics, start 1.5 pre-quest
                    e.self:say("Hmm, I'm not sure if I should go into any more detail. After all, we've just met and I don't know how trustworthy you really are. Listen, if you really want to know what work I'm involved with, I'll need you to run a couple [errands] for me first, just so I know you're da real deal.");
                    end
        -- Epic 1.5 Pre-Quest
        elseif(e.message:findi("errands")) then
            e.self:Say("You see, I had some things taken from me. I want to get dem back. I'm very partial to my weapons, and had some great [plans] to make a sword dat would be unmatched by any other. I thought it would be nice to start da plans with my brethren by talking to some of dem about da tactics involved in creating a sword.");
        elseif(e.message:findi("plans")) then
            e.self:say("Da sword was going to be made of da finest metal with a hilt dat's handcrafted by someone I'm very close to. It was going to have my family seal engraved into da base of da blade and was to be my finest sword ever. But da plans were stolen by someone -- no doubt someone who oversees everything where I was working -- and I have yet to get them back. You look more than capable of recovering da plans for me. Hurry back when you've found dem.");
        elseif(e.message:findi("shank")) then
            e.self:say("I found dis shank during a battle dat raged on for many weeks. It was solid and strong, perfectly balanced and had an aura of cunning like I'd never seen before. I took it and stored it away in my vault at home. One night while I was away, a gang of pirates aboard da Hate's Fury plundered my home city and took da shank. I've heard dat it is in da hold of an undead pirate, long forgotten to da ages, so I need you to go recover it for me.");
        elseif(e.message:findi("job")) then
            e.self:say("I need the hilt, the blade and the plans taken to an ornery dwarf in the frozen tundra to the south. He hides among the coldain, mostly to keep himself drunk as much as possible. Unfortunately, he's the best person to combine the blade and the hilt into something I can use, so you need to find him and give him the three pieces. His name is Dardek.");
        -- Epic 1.5 Start
        elseif(e.message:findi("warrior")) then
            e.self:Say("Time passed and no warrior came forth. Then da terrible scourge took hold of da ogres and we began to lose ourselves. It was then dat another ancestor of mine, Grivnok Brimblade, asked a human to take charge of da scabbard until da scourge had waned. He would know dat time when a descendant of Korbuk with da same name would come forth. It was then dat da Redblade family, led by Thegrek, took over da charge of da scabbard until I would return to [reclaim da charge] in da name of da Brimblade family.");
        elseif(e.message:findi("charge")) then
            e.self:Say("'It was I who returned to da Redblades, who spoke with da descendant of Thegrek. But I could not reclaim da charge. I felt a greater power, something more amazing and powerful than even da red scabbard contained. What draw I felt from da scabbard I felt ten fold from this [new source], and I was unable to explain where it was coming from. I just know dat it has drawn me here, to this place, so that I might find da answers I seek here.");
        elseif(e.message:findi("source")) then
            e.self:Say("I can't express who or what it is dat is drawing me here. I only know dat this is where I must be. I feel as though this is something like da scabbard, but more powerful. Perhaps it is a new weapon? If so, I must be da one to lead da charge to protect its power until da right warrior comes along to claim it. Just as my family led da charge so long ago to protect da red scabbard, so shall I continue it with this new journey. Are you [willing to help] knowing all dat?");
        elseif(e.message:findi("help")) then
            e.self:Say("I had hoped so. Let's get started then. It seems the powerful lure is greatest when I am at this point, so I must remain here to ensure dat I can keep a grasp on where it resides. I'm hoping dat after you return with whatever you can find, I'll be able to uncover more information. From time to time, I get flashes of da things dat we need to find, like da picture of a place or a [thing]...");
        elseif(e.message:findi("thing")) then
            e.self:Say("Just now I had a flash of a book, or pages of a book. Just as quickly as the book was there, it split into da cover and three pages and then fell to da ground. I wonder if dat's going to happen often... In any case, maybe you should have a look around to see if you can find any pages from a book that are on da ground. Return to me if you find them.");
        elseif(e.message:findi("rock")) then
            e.self:Say("I was holding da rock when I had dat vision. Whatever happened to me was passed into da rock as well and I can sense some power within da rock now. Maybe holding da rock will lead you to da creature or maybe it will lead you to something near da creature, I don't really know. You have to keep a tight grip on it though, else I don't think you'll feel da power drawing you as I did. If you do find da beast, be careful. There's no telling what dangers lay in this place.");
                        -- Put the Energy Receptor on your cursor and wait. Eventually it will lead you to the Blackfall Borer. Follow it around for a while and it will drop Blackfall Ore at one of the following locations:
                        --  +1600, +200
                        --  -1070, +155
        elseif(e.message:findi("smith")) then
            e.self:Say("Blacksmith, yes. She's dealt with some of da more interesting things I've needed worked on lately and I know she'll be able to help with dat ore as well. She's in Nedaria's Landing, so you shouldn't have a lot of trouble finding her. Give her da ore and these smelting plans, she should know what to do wit them from there.");
                        -- Flag need to be added the Blackfall Ore was handed in to Korbuk?
            e.other:SummonItem(60301); -- Blackfall Ore
            e.other:SummonItem(60302); -- Smelting Plans
        elseif(e.message:findi("loose")) then
            e.self:Say("Somehow da creature dat left da ore has made its way back to Norrath and is tearing through da mountainsides! You have to head it off in da crumbling caverns of Vxed before it can get any further! Be careful, though. I had a vision of some of its spawn with it so you may have to take care of more than just da one creature when you get there. Now Hurry!");
                        -- Flag should be added for Vxed event
        elseif(e.message:findi("journey")) then
            e.self:Say("I noticed dat da blood gave me some kind of feeling. I'm not sure whether it was da same magic dat's been giving me visions or something new, but I'd like you to take it to a shaman I knew briefly growing up. He's a friend of da Redblade family and I'm sure he'd be willing to help. Just tell him I sent you. His name is Kimber Whitefoot and you shouldn't have trouble finding him, he's a very large barbarian.");
        elseif(e.message:findi("vision")) then
            e.self:Say("Da vision I had showed me an impish creature. It was dark and twisted and seemed to devour energy from da chaos surrounding us. I don't know what part it plays in this, but like everything else, I'm sure it's important. Perhaps there is another portal around dat was destroyed, like it was in Taelosia. See if you can find it and look for da creature there, then return to me whatever it may have in its possession dat we can use.");
        elseif(e.message:findi("hilt")) then
            e.self:Say("Right now it would fall apart if you tried to attach a blade to it. We're going to put some luster back into da hilt and I think I may know someone who can do it. I don't remember her name or even where I found her, but I do remember running into a [shady jeweler] on da outskirts of one of the larger cities of Kunark.");
        elseif(e.message:findi("jeweler")) then
            e.self:Say("he worked on da outskirts to sell to less reputable individuals, like myself. She didn't live on the outskirts though, only worked there. I want to say she was part of da port authority, but I can't quite remember. I also don't remember her name, or if I even ever knew it, but I do remember dat she was one of da best I ever dealt with. Take da hilt to her, if you can find her, and see what she can do with it. One more thing, she's a fan of her own tongues, so be prepared for dat when you speak with her.");
        elseif(e.message:findi("glimpse")) then
            e.self:Say("It was a series of images, really. One was of a [young combatant] within da Muramite ranks. One was of a [gorge] somewhere. Da third was a [maze] of some sort, and da final one was in a [field of blood]. At da end, I saw four eyes dat appeared in da center of da hilt. I'm guessing da eyes go in those four holes on each side of da hilt and dat one each can be found in those four places.");
        elseif(e.message:findi("combatant")) then
            e.self:Say("I noticed a creature dat walked like a man but looked like a dragon and was near a fortress. I can't say where exactly it was, but I can say it was a powerful looking creature unchanged by da onslaught of war. I'm guessing he is a relatively new champion of their people.");
        elseif(e.message:findi("gorge")) then
            e.self:Say("Giant creatures lumbered over da eye. I can't really say much else because dat's all I saw. They were massive and didn't look terribly friendly.");
        elseif(e.message:findi("maze")) then
            e.self:Say("Near a great crystal tower within da maze, I saw da eye gleaming up at da sky. You should take caution because da tower is unlike any I've ever seen before.");
        elseif(e.message:findi("field")) then
            e.self:Say("In a field of blood, near a large fortress, you'll find da fourth eye, though it may be out of da sight of prying eyes.");
        elseif(e.message:findi("image")) then
            e.self:Say("This one is of da completed sword. It's not too shabby, but it's not great either. It looks like there will be more dat needs to be done than just what we have so far. In any case, I know how to get da sword put back together. It'll involve a trip to see my brother, [Krekk].");
        elseif(e.message:findi("Krekk")) then
            e.self:Say("He's become one of da finest sword makers I've ever known. He'll know just how to put da hilt and da sword together to make a finely balanced weapon. He had come with me to this place, but went ahead to find new and precious metals he could use to make new blades. I think he mentioned visiting a ruined city somewhere, but I'm not certain.");
        end
    end
end

function event_trade(e)
    local item_lib = require("items");

    --Epic 1.5 pre-quest
    if(item_lib.check_turn_in(e.trade, {item1 = 60285})) then
        --Korbuk's Weapon Plans
        e.self:say("Ahh, da plans! You really gave it to dat overseer, huh? Not too bad, I must say. You're not done yet though. There are still a couple errands left dat I need finished. You know da most important part of any sword is da blade it's forged from, right? Well, it is. I had da perfect [shank] ready and waiting for me.");
        e.other:Ding();
        e.other:SummonItem(60285);
        --Korbuk's Weapon Plans returned
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60286})) then
        --Elegant Shank
        e.self:say("You found it?! Did you slay da beast dat had it locked away too? You must have! Good work, you're really proving yourself nicely. There's some more work to be done though, so don't get too excited yet. Dis next errand is actually a favor I owe to a long time family friend. Perhaps you know of da Redblade family? Specifically, I'm talking about Kargek Redblade. He's in need of some help and you're da perfect person to help him. Just tell him I [sent you to help].");
        e.other:Ding();
        e.other:SummonItem(60286);
        --Elegant Shank returned
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60288})) then
        --Emblazoned Champion's Hilt
        e.self:say("Kargek must have been very appreciative, especially to give you a hilt dis fine. I know he gave dis to you, but since my sword is almost completed I thought I could use dis hilt to accompany my blade. I'll repay you, have no doubt about dat. I have everything I need now though, so there's just one more [job] I need you to do for me.");
        e.other:Ding();
        e.other:AddEXP(10000);
        e.other:SummonItem(60288);
        --Emblazoned Champion's Hilt returned
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60292})) then
        --Dardek's Forged Blade
        e.self:say("At long last, my sword is completed! It's fantastic and just as amazing as ever I thought it could be. Thank you so much for helping me realize my dream and for helping me complete this sword. Now I think you're ready -- if you're still willing -- to help me with some other [work] I have to get done. Since you've helped so much, why don't you keep hold of da sword for a while longer? I think you may find it will come in handy.");
        e.other:Ding();
        e.other:AddEXP(10000);
        e.other:SummonItem(60293);
        --Korbuk's Blade of Mastery
    -- Epic 1.5 start
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60295,item2 = 60296,item3 = 60297, item4 = 60298})) then  -- Decomposing Page 1, 2, 3, and Decomposing Cover
        e.self:say("Those... those are da pages and da cover I saw. You don't suppose dat da two are linked, do you? What if they are, what could dat mean? I don't even know what these say! I think you should take these to a linguist to decipher them. I knew one in da abysmal sea, aboard da hulking boat, but I forget his name. I do recall dat it was a funny name, though.");
        e.other:Ding();
        e.other:SummonItem(60295);
        e.other:SummonItem(60296);
        e.other:SummonItem(60297);
        e.other:SummonItem(60298);
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60299})) then  -- Recounted History of War
        e.self:emote(" grimaces in pain for a moment before opening his eyes. 'Things are getting stranger by da moment. I just had a vision of a creature dat wanders about da area below, then it went dark. I'm not sure if this creature is part of everything else, but it certainly is something we should check out. I know it seems silly, but you should have this [rock].'");
        e.other:Ding();
        e.other:SummonItem(60300); -- Energy Receptor
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60301})) then  -- Blackfall Ore
        e.self:say("And you say you found this in a pile dat da creature left behind? I wonder what da story behind dat is... In any case, touching this gave me a brief glimpse of something sharp. It almost seemed like it was a blade. You should probably take this to get it looked at by a skilled [smith].");
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60303})) then  -- Blackfall Blade
        e.self:say("What a fine looking blade, I must say dat smith did good work in such a short time. Hopefully it wasn't too much touble for you. I... oh my, this can't be good. Da creature... it's [loose]!");
            -- See event_say section for [loose].  This gives you an invisible flag. Bring a group to Vxed, and three Blackfall Borerlings will spawn around the zone. The first one spawns near zone-in at -3250, -750 and has line-of-sight aggro. The second one is along the left path from zone-in: head straight at the first intersection until the path ends, then go left (location needed).
            -- The third one is located down the path along the right path from zone-in, just before crossing the bridge as though you were heading toward the NPC to win the trial (location needed). Once all three Borerlings are dead, you'll see a zonewide emote (text needed) saying that the beast is awaiting you up the hill. It is partially slowable and hits for 1100 max. Loot a Vial of Blackfall Blood.
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60304})) then  -- Vial of Blackfall Blood
        e.self:say("Dat was too close! You did a good job though and stopped dat beast before it could get too far on Norrath. We don't know what it might have been capable of otherwise. I've sealed da blood of da beast in a vial for you for da [journey]. I also got another [vision] when I took hold of da vial.");
        e.other:Ding();
        e.other:AddEXP(10000);
        e.other:SummonItem(60305); -- Sealed Vial of Blackfall Blood
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60306})) then  -- Potion of Blackfall Spirit
        e.self:emote("Korbuk Brimblade gags as he takes hold of the potion, then quickly returns it to you. 'I had no idea such a strong presence would be coming from this after Kimber worked with it. I hope he's ok. Now dat we've taken care of dat, we can focus on the last [vision] I had.'");
        e.other:SummonItem(60306); -- Potion of Blackfall Spirit
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60307})) then  -- Decrepit Hilt
        e.self:say("What a worthless specimen this is. I don't understand why my vision would show me dat creature if all it had was this mediocre quality hilt. I also don't understand why there's energy emanating from da hilt when it cannot be used to wield a blade in its current state. I think we're going to have to look into [cleaning up da hilt].");
        e.other:SummonItem(60307); -- Decrepit Hilt (Alla doesn't specify you get the hilt back, but later in the quest you have to turn it in)
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60311})) then  -- Glistening Hilt
        e.self:say("Ah yes, Corfia. I remember her now. She did quite a fine job cleaning up dat hilt, eh? It's more ornate than it looked before. Didn't you say she added a couple additional touches to make it stronger? I wonder if style changes were part of dat... in any case... I... oh boy. I just had another [glimpse] from touching da hilt. Here take it back.");
        e.other:SummonItem(60311); -- Glistening Hilt
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60312,item1 = 60313,item1 = 60314,item1 = 60315})) then  -- Stone of Eternal Power: Northeast Eye(Northwest,Southeast,Southwest)
        e.self:say("Yes, those must be da stones dat fit into those holes! I'm not entirely sure how... wait, I know! We need to have a gem setter put these back in place and I know just da one. His name is Gridbar Galund and he makes his stay out in da towering mountains of Butcherblock. He owes me a favor or two, so I'm sure he'd be more than willing to help you out with this.");
        e.other:Ding();
        e.other:AddEXP(10000);
    elseif(item_lib.check_turn_in(e.trade, {item1 = 60320})) then  -- Hilt of Eternal Power
        e.self:say("Met up with Gridbar did you? He's an oddball, for certain, but he's da best at what he does. I don't think I've ever seen stones set so finely into anything before, wouldn't you say? Alrighty, I think... wow [another image]...");
        e.other:Ding();
        e.other:AddEXP(10000);
        end

    item_lib.return_items(e.self, e.other, e.trade);

end


-------------------------------------------------------------------------------------------------
-- Kilz, 8/22/14
-------------------------------------------------------------------------------------------------