sub EVENT_SAY {
my %h = ("Warrior" => 100858,
"Cleric" => 100851,
"Paladin" => 100853,
"Ranger" => 100859,
"Shadowknight" => 100852,
"Druid" => 100860,
"Monk" => 100862,
"Bard" => 100863,
"Rogue" => 100854,
"Shaman" => 100857,
"Necromancer" => 100861,
"Wizard" => 100848,
"Magician" => 100850,
"Enchanter" => 100855,
"Beastlord" => 100856,
"Berserker" => 100849);
my %flags = (
## Somnium Solo Missions
0 => [1, "Stage1Somnium", 0, "The Battle of Somnium Stage 1"],
1 => [1, "Stage2Somnium", 0, "The Battle of Somnium Stage 2"],
2 => [1, "Stage3Somnium", 0, "The Battle of Somnium Stage 3"],
3 => [1, "Stage4Somnium", 0, "The Battle of Somnium Stage 4"],
4 => [1, "Stage5Somnium", 0, "The Battle of Somnium Stage 5"],
## Morell Castle Solo Missions
5 => [1, "Stage1Morell", 0, "The Battle of Morell's Castle Stage 1"],
6 => [1, "Stage2Morell", 0, "The Battle of Morell's Castle Stage 2"],
7 => [1, "Stage3Morell", 0, "The Battle of Morell's Castle Stage 3"],
8 => [1, "Stage4Morell", 0, "The Battle of Morell's Castle Stage 4"],
9 => [1, "Stage5Morell", 0, "The Battle of Morell's Castle Stage 5"],
## Sleepers Solo Missions
10 => [2, "Stage1Sleeper", 0, "Honor of the Dragon Part 1"],
11 => [2, "Stage2Sleeper", 0, "Honor of the Dragon Part 2"],
12 => [2, "Stage3Sleeper", 0, "Honor of the Dragon Part 3"],
13 => [2, "Stage4Sleeper", 0, "Honor of the Dragon Part 4"],
14 => [2, "Stage5Sleeper", 0, "Honor of the Dragon Part 5"],
## Small Group
15 => [3, "SmallGroup1", 0, "New Recruits Part 1"],
16 => [3, "SmallGroup2", 0, "New Recruits Part 2"],
17 => [3, "SmallGroup3", 0, "New Recruits Part 3"],
## Regular Group
18 => [4, "RegularGroup1", 0, "Knighthood and Chivalry Part 1"],
19 => [4, "RegularGroup2", 0, "Knighthood and Chivalry Part 2"],
## Small Raid
20 => [5, "SmallRaid1", 0, "Cursed Outcasts in Time Part 1"],
21 => [5, "SmallRaid2", 0, "Cursed Outcasts in Time Part 2"],
22 => [5, "MediumRaid1", 0, "The Master of the Guard"],
23 => [6, "Stage1Sebilis", 0, "Area A - Sebilis"],
## Kunark Missions
24 => [6, "Stage2Sebilis", 0, "Area B - Sebilis"],
25 => [6, "Stage3Sebilis", 0, "Area C - Sebilis"],
26 => [6, "Stage4Sebilis", 0, "Area D - Sebilis"],
27 => [6, "Stage5Sebilis", 0, "Area E - Sebilis (BOSS: Trakanon)"],
28 => [7, "Stage1Overthere", 0, "Camp 1 - Overthere"],
29 => [7, "Stage2Overthere", 0, "Camp 2 - Overthere"],
30 => [7, "Stage3Overthere", 0, "Camp 3 - Overthere"],
31 => [7, "Stage4Overthere", 0, "Camp 4 - Overthere"],
32 => [7, "Stage5Overthere", 0, "Camp 5 - Overthere (BOSS: General T'Vara)"],
33 => [8, "Stage1Fieldofbone", 0, "Spot 1 - Field of Bone"],
34 => [8, "Stage2Fieldofbone", 0, "Spot 2 - Field of Bone"],
35 => [8, "Stage3Fieldofbone", 0, "Spot 3 - Field of Bone"],
36 => [8, "Stage4Fieldofbone", 0, "Spot 4 - Field of Bone"],
37 => [8, "Stage5Fieldofbone", 0, "Spot 5 - Field of Bone (BOSS: The Tangrin)"],
## Electric Dog Flags
38 => [9, "electricdog", 0, "Electric Dog Mk. 1 (Required Flag to Obtain Electric Dog Mk. V)"],
39 => [9, "electricdogmk2", 0, "Electric Dog Mk. 2 (Required Flag to Obtain Electric Dog Mk. V)"],
40 => [9, "electricdogmk3", 0, "Electric Dog Mk. 3 (Required Flag to Obtain Electric Dog Mk. V)"],
41 => [9, "electricdogmk4", 0, "Electric Dog Mk. 4 (Required Flag to Obtain Electric Dog Mk. V)"]);
if ($text=~/Epic 6.0/i && !defined quest::get_data($client->CharacterID()."_epic60finished")) {#CHANGEME
if (defined quest::get_data($client->CharacterID()."_Stage1Somnium") && defined quest::get_data($client->CharacterID()."_Stage2Somnium") && defined quest::get_data($client->CharacterID()."_Stage3Somnium") && defined $qglobals{"Stage4Somnium"}  && defined $qglobals{"Stage5Somnium"}  && defined $qglobals{"Stage1Morell"}  && defined $qglobals{"Stage2Morell"}  && defined $qglobals{"Stage3Morell"}  && defined $qglobals{"Stage4Morell"}  && defined $qglobals{"Stage5Morell"}  && defined $qglobals{"Stage1Sleeper"}  && defined $qglobals{"Stage2Sleeper"} && defined $qglobals{"Stage3Sleeper"}  && defined $qglobals{"Stage4Sleeper"} && defined $qglobals{"Stage5Sleeper"} && defined $qglobals{"SmallGroup1"} && defined $qglobals{"SmallGroup2"} && defined $qglobals{"SmallGroup3"} && defined $qglobals{"RegularGroup1"} && defined $qglobals{"RegularGroup2"}) {#CHANGEME
quest::summonitem($h{$class});
plugin::Whisper("Here you are.");
quest::set_data($client->CharacterID()."_epic60finished",'1');#CHANGEME
} else {
plugin::Whisper("You don't have all the flags needed! Keep doing the missions in here, you need all the solo and group missions to obtain it.");
}
}
if ($text=~/Epic/i && defined quest::get_data($client->CharacterID()."_epic60finished")) {#CHANGEME
plugin::Whisper("You have already finished your Epic 6.0");
}
if ($text=~/Electric Dog Mk. V/i && !defined quest::get_data($client->CharacterID()."_electricdogmk5")) {
if (defined quest::get_data($client->CharacterID()."_electricdog") && defined quest::get_data($client->CharacterID()."_electricdogmk2") && defined quest::get_data($client->CharacterID()."_electricdogmk3") && defined $qglobals{"electricdogmk4"}  && defined $qglobals{"Stage1Sebilis"}  && defined $qglobals{"Stage2Sebilis"}  && defined $qglobals{"Stage3Sebilis"}  && defined $qglobals{"Stage4Sebilis"}  && defined $qglobals{"Stage5Sebilis"}  && defined $qglobals{"Stage1Overthere"}  && defined $qglobals{"Stage2Overthere"}  && defined $qglobals{"Stage3Overthere"} && defined $qglobals{"Stage4Overthere"}  && defined $qglobals{"Stage5Overthere"} && defined $qglobals{"Stage1Fieldofbone"} && defined $qglobals{"Stage2Fieldofbone"} && defined $qglobals{"Stage3Fieldofbone"} && defined $qglobals{"Stage4Fieldofbone"} && defined $qglobals{"Stage5Fieldofbone"}) {#CHANGEME
quest::summonitem(100943);
plugin::Whisper("Here you are.");
quest::set_data($client->CharacterID()."_electricdogmk5",'1');#CHANGEME
} else {
plugin::Whisper("You don't have all the flags needed! Keep doing the missions from Zaxonian Betrayer to obtain the flags.");
}
}
if ($text=~/Epic/i && defined quest::get_data($client->CharacterID()."_electricdogmk5")) {#CHANGEME
plugin::Whisper("You have already finished your Electric Dog Mk. 5");
}
if ($text=~/Hail/i) {
plugin::Whisper("Hail $name, I am here to check your " . quest::saylink("flags", 1) . " you will need all of these to obtain your " . quest::saylink("Epic 6.0", 1) . " or your " . quest::saylink("Electric Dog Mk. V", 1) . ".");
} elsif ($text=~/Flags/i) {
foreach my $key (keys %flags) {
if (quest::get_data($client->CharacterID() . "_" . $flags{$key}[1])) {#CHANGEME
$flags{$key}[2] = 1;
}
}
plugin::Message("Your mission flags are as follows:");
plugin::Message("");
foreach my $key (sort {$a <=> $b} keys %flags) {
if ($key != 0 && $flags{$key - 1}[0] != $flags{$key}[0]) {
plugin::Message(" ");
}
plugin::Message($flags{$key}[3] . " is " . ($flags{$key}[2] == 1 ? "complete" : "incomplete") . ".");
}
}
}
sub EVENT_ITEM {
if(plugin::check_handin(\%itemcount, 100000 => 4)) {
}
plugin::return_items(\%itemcount);
}