#rewrite
#Plane of Sky Warrior Aggro Clicky Quest
#First part starts in Guildlobby
#Second part on 4th Island in Sky
#GUILD LOBBY PART
#NPC: Zeran ID: 999273
#npc race: 89

sub EVENT_SAY {
my $globalname = "AggroClicky";
my $Sirran = quest::saylink("Sirran");
my $rid = quest::saylink("rid");
my $item = quest::saylink("item");

if (!defined $qglobals{$globalname}) {
    if ($class eq "Warrior") {
        if ($text =~/hail/i) {
            plugin::Whisper("Finally!  Are you a Warrior?  Perhaps you can help me.  My name is Zeran.  I have fled my home plane because of a Crazed Lunatic who calls himself [$Sirran].  His constant babbling has driven me insane and I had to leave.");
            }
            if ($text =~/Sirran/i) {
                plugin::Whisper("He is a mad man!  Perhaps you can help me get [$rid] of him?");
                }
                if ($text =~/rid/i) {
                    plugin::Whisper("As much as I would like to kill him, and be rid of him for good Attacking him only seems to make him more crazed.  But I have heard of an [$item] that Could be of use in ridding us of Sirran once and for all.");
                    }
                    if ($text =~/item/i) {
                        plugin::Whisper("Yes, of course!  I remember reading in the Library in my home plane of an Item which could be used to deal with someone like Sirran.  For the life of me I can not remember what it was called.  Tell you what!  Head to the Plane of Sky, My home realm, and retrieve my Journal from the Library there.  Return it to me quickly!");
                        quest::setglobal("$globalname",1,5,'F');
                        }
            }
    } elsif {
            if ($class ne "Warrior") {
                plugin::Whisper("Sorry $name.  I am only looking for Warriors to aid me.");
                }
            }
            elsif {
                    if (defined $qglobals{$globalname}) {
                        if ($qglobals{$globalname} == 1) {
                            plugin::Whisper("Have you found my journal yet $name?");
                            }
                        }
                    }
}