sub EVENT_SPAWN {
    quest::settimer("Nimbus", 5);
}

sub EVENT_TIMER {
    if ($timer eq "Nimbus") {
    $npc->SpellEffect(669, 3000, 0, 1, 0, 0);
    #$npc->SpellEffect(469, 3000, 0, 1, 0, 0);
    quest::stoptimer("Nimbus");
    }
}

sub EVENT_SAY {
my $link1 = quest::saylink("do for me",1);
        if ($text=~/hail/i && defined $qglobals{"SmallRaid1"} && defined $qglobals{"SmallRaid2"}) {
plugin::Whisper("You have what it takes to move on, here is what you can [$link1]");
        }
        if ($text=~/do for me/i && defined $qglobals{"SmallRaid1"} && defined $qglobals{"SmallRaid2"}) {
            plugin::Whisper("Well thank you, yeah I have a few missions...");
            plugin::Whisper("-=RAIDS=-");
            my $link4 = quest::saylink("The Master of the Guard",1);
        }
##### MEDIUM RAIDS #####
        if($text=~/The Master of the Guard/i && defined $qglobals{"SmallRaid1"} && defined $qglobals{"SmallRaid2"} || ($text=~/hail/i && plugin::GetExpeditionVariable( "instance_name" ) eq "The Master of the Guard")){
        $expedition_description = "The Master of the Guard";
        plugin::HandleExpeditionOffer(
            $expedition_description, #Instance Identifier
            "18-24 Players", #Description of Adventure (Ex: Group)
            24, #Number of Players
            636, #Task ID Association
            $expedition_description, #Description of Adventure
            36000, #Duration Timer (Seconds)
            1, #Version
            "sleeper", #ZoneSN
            400.47, #Instance Destination X
            -181.02, #Instance Destination Y
            5, #Instance Destination Z
            128.1, #Instance Destination H
            60, #Required Average Level
            1, #Minimum # of Players
            1, #Is Shared Task (0/1)
            248400, #Lockout Duration
            0, ### Boot on completion
            0, # X Compass Loc
            0, # Y Compass Loc
            0, # Z Compass Loc
            1, # Force Initial Entry
            60, # Minimum Level
        );
} else {
       plugin::Whisper("You aren't worthy $name");
       plugin::Whisper("You need both of the 12 Character Missions to speak with me..");
       }
}

sub EVENT_ITEM {
    my %h = (100359 => [100887, 100894, "DragonPartisanArmsFinished"],
    100361 => [100885, 100892, "DragonPartisanHelmFinished"],
    100362 => [100884, 100891, "DragonPartisanGlovesFinished"],
    100358 => [100888, 100895, "DragonPartisanLegsFinished"],
    100363 => [100883, 100890, "DragonPartisanWristFinished"],
    100360 => [100886, 100893, "DragonPartisanBootsFinished"],
    100357 => [100889, 100896, "DragonPartisanBPFinished"]);
    {
        foreach my $key (keys %h) {
            if (plugin::check_handin(\%itemcount, $key => 1, 100918 => 1, $h{$key}[0] => 1 && defined $qglobals{"SmallRaid1"} && defined $qglobals{"SmallRaid2"} && defined $qglobals{"MediumRaid1"})) {
                quest::summonitem($_) for ($h{$key}[1]);
                quest::setglobal($h{$key}[2], 1, 5, "F");
                plugin::Whisper("Enjoy your new item!");
            }
        }
    }
    plugin::return_items(\%itemcount);
}