Zones

"Everquest"                => 1,
"Ruins of Kunark"          => 2,
"Scars of Velious"         => 3,
"Shadows of Luclin"        => 4,
"Planes of Power"          => 5,
"Legacy of Ykesha"         => 6,
"Lost Dungeons of Norrath" => 7,
"Gates of Discord"         => 8,
"Omens of War"             => 9,
"Dragons of Norrath"       => 10,
"Depths of Darkhollow"     => 11,
"Prophecy of Ro"           => 12,
"The Serpents Spine"       => 13,
"The Buried Sea"           => 14,
"Secrets of Faydwer"       => 15,
"Seeds of Destruction"     => 16,
"Underfoot"                => 17,
"House of Thule"           => 18,
"Veil of Alaris"           => 19,
"Rain of Fear"             => 20
);

@disabled = (19, 20);

@EXP = (
"Everquest"
,"Ruins of Kunark"
,"Scars of Velious"
,"Shadows of Luclin"
,"Planes of Power"
,"Legacy of Ykesha"
,"Lost Dungeons of Norrath"
,"Gates of Discord"
,"Omens of War"
,"Dragons of Norrath"
,"Depths of Darkhollow"
,"Prophecy of Ro"
,"The Serpents Spine"
,"The Buried Sea"
,"Secrets of Faydwer"
,"Seeds of Destruction"
,"Underfoot"
,"House of Thule"
#,"Veil of Alaris"
#,"Reign of Fear"
);


sub EVENT_SAY {
my $List = quest::saylink("Expansion List", 1);
    if($text=~/hail/i)
    {
        plugin::Whisper("Hello $name, I can take you to any zone you wish. Would you like an $List?");
    }
    elsif($text =~/^Expansion list$/i)
    {
        $client->Message(315, "_");
        $client->Message(315, "Expansion List Start");
        $client->Message(315, "_");
        foreach $EL (@EXP)
        {
            $client->Message(315, "".quest::saylink("$EL",1)."");
            $client->Message(315, "_");
        }
        $client->Message(315, "Expansion List End");
    }
    elsif( grep { $_ eq $text } @EXP )
    {
        $client->Message(315, "_");
        $client->Message(315, "$text Zone list");
        $client->Message(315, "_");
        foreach $k (keys (%ZoneExp))
        {
            if($ZoneExp{$k}[0] eq $Expansions{$text})
            {
                $client->Message(315, "".quest::saylink("$k",1)."");
            }
        }
        $client->Message(315, "End of Zones for $text");
    }
    else
    {
        $text = lc($text);

        if( grep { $_ eq $ZoneExp{$text}[0] } @disabled )
        {
            plugin::Whisper("This expansion is disabled!");
        }
        elsif($ZoneExp{$text}[0] >= 1)
        {
            plugin::Whisper("Taking you to $text!");
        }
        else
        {
            plugin::Whisper("I do not know this zone!");
        }
    }

}