EQEmulator Forums - Translocator Quest To Many Common Zones

I haven't tried this yet, but I think this might do what you are wanting:
Code:
#Translocator for Multiple Zones



#Array for all available zones to be sent to

@ZoneList = qw(

        cazicthule

        akanon

        bothunder

        befallen

        blackburrow

        cabeast

        cabwest

        mistmoore

        chardok

        thurgadina

        veksar

        cobaltscar

        crystal

        dalnir

        necropolis

        dreadlands

        dulak

        freporte

        echo

        erudnext

        unrest

        everfrost

        fieldofbone

        fungusgrove

        greatdivide

        grobb

        guktop

        halas

        highkeep

        charasis

        paw

        kael

        kaesora

        karnor

        kurn

        lakeofillomen

        nurga

        soldungb

        najena

        nexus

        freportn

        nro

        oggok

        sebilis

        permafrost

        airplane

        fearplane

        growthplane

        hateplane

        poinnovation

        poknowledge

        mischiefplane

        ponightmare

        postorms

        povalor

        qeytoqrg

        rivervale

        runnyeye

        shadowhaven

        skyshrine

        soldunga

        sro

        felwitheb

        ssratemple

        qrg

        acrylia

        arena

        burningwood

        citymist

        sharvahl

        nadox

        dawnshroud

        thegrey

        gunthak

        hole

        jaggedpine

        maiden

        overthere

        paludal

        podisease

        hateplaneb

        pojustice

        scarlet

        umbral

        frozenshadow

        poeartha

        velketor

        vexthal

        warrens

        warslikswood

        freportw

);



sub EVENT_SAY{



        my $MatchCheck = 0;

        my $all = quest::saylink("All", 1);



        #Spacer between Text messages to make them easier to read

        $client->Message(7, "-");

        my $NPCName = $npc->GetCleanName();



        if ($text =~/Hail/i)

        {

                $client->Message(315, "$NPCName whispers to you, 'If there is a zone you would like to go to, just tell me the short name of it and I will see if I have a spell to send you there. If you do not know the full name, just type part of the name to search my list of possible zones.  Or, I can list [$all] of them if you like.'");

        }



        #Counts each row for the While

        my $count = 1;



        #Counts each element in the Array for the While

        my $n = 0;



        

        if ($text !~ /Hail/i)

        {

                #Use scalar form of Array

                while ($ZoneList[$n])

                {

                        #This uses the lc() function in perl to convert anything typed into all lowercase, since that is what the zone list is

                        #If the zone name contains part of the text said, or if the player wants to list all possible zones we list them

                        if (($ZoneList[$n] =~ lc($text) && $ZoneList[$n] ne lc($text)) || ($text =~ /^All$/i))

                        {

                                my $ZoneName = quest::saylink($ZoneList[$n]);

                                $client->Message(315, "$NPCName whispers to you, 'Possible match is: $ZoneName");

                                $MatchCheck++;

                        }

                        #If they say the full name of one of the zones in the Array, or click one of the saylinks, port them to the safe loc there

                        if ($ZoneList[$n] eq lc($text) && $text !~ /^All$/i)

                        {

                                $client->Message(315, "$NPCName whispers to you, 'Enjoy your adventure!'");

                                $client->Message(6, "$NPCName casts a spell to translocate you to another place.");

                                quest::zone("$ZoneList[$n]");

                                $MatchCheck++;

                        }

                        $n++;

                        $count++;

                }

                #If there are no matches found, let the player know it.

                if ($MatchCheck == 0)

                {

                        $client->Message(315, "$NPCName whispers to you, 'Sorry, $name, I was unable to find a match for '$text'.");

                }

        }

}