llMapDestination workaround?

list = touched;

default
{
touch_start(integer num)
{
integer index;
if (index = llListFindList(touched,(list)llDetectedName(0)))
{
touched = llListReplaceList(touched, [], index, index); // delete name from list.
MapOpenFunction(llDetectedKey(0),llDetectedName(0),index);
}
else
{
touched += (list)llDetectedName(0); // alternatively, poplulate touched list when dialog gets returned with option selection.
DialogFunction(llDetectedKey(0));
}
}

}

default{
	state_entry(){
		llListen( -42, "", "", "OK" );
	}
	touch_start(integer total_number){
		llDialog( llDetectedKey( 0 ), "blah, blah blah", ["OK"], -42 );
	}
	
	listen( integer vIntNull, string vStrNull, key vKeyNull, string vStrOK ){
		llRequestInventoryData( llGetInventoryName( INVENTORY_LANDMARK, 0 ) );
	}
	
	dataserver( key vKeyNull, string vStrData ){
		llSetObjectDesc( vStrData );
	}
}

default{
	touch_start(integer total_number){
		while (llGetObjectDesc() == ""){
		}
		llSay( 0, llGetObjectDesc() );
		llMapDestination( llGetRegionName(), (vector)llGetObjectDesc(), ZERO_VECTOR );
		llSetObjectDesc( "" );
	}
}

//Script A - the main script

// These will likely be filled in by some other process
list vListMenu = ["BearDrmLdg","Ross","Anzere","Warmouth"];
list vListRegions = ["Bear","Ross","Anzere","Warmouth"];
list vListCoordinates = [<31,131,111>,<34,220,57>,<70,53,125>,<31,136,94>];


//globals for the llListen
integer vIntL1 = 0;
integer vIntChannel1;

//global to store description field that may exist already
string vStrOldDesc;


default
{
    state_entry()
    {
        //set a random listen channel
        vIntChannel1 = (integer) llFrand(-2147483647.0) - 1;
        vIntL1 = llListen(vIntChannel1, "", NULL_KEY, "");
    }
    
    touch_start(integer total_number)
    {
        //save current contents of description field to be able to restore it later
        vStrOldDesc = llGetObjectDesc();
        
        //start listening
        llListenControl(vIntL1,TRUE);
        
        llDialog( llDetectedKey( 0 ), "Select an infohub to which to teleport.", ["Cancel"] + vListMenu, vIntChannel1 );
        
        //Want to stop listening after 1 minute in case ignore was clicked, the user takes too long, etc.
        llSetTimerEvent(60.0);
    }

    listen( integer channel, string vStrNull, key vKeyNull, string vStrDest )
    {
        // is it coming in on the expected channel
        if (channel == vIntChannel1)
        {
            if (vStrDest != "Cancel")
            {
                // put the region name and coordinates into the description field of the object
                //preceed the string with "%#^*@" so script B can identify that it's coming from here
                //of course this presumes that the original description did not start with that string
                integer vIntIndex = llListFindList(vListMenu,[vStrDest]);
                string vStrTempDesc = "%#^*@" + llList2String(vListRegions,vIntIndex) + "^#*" + (string) llList2Vector(vListCoordinates,vIntIndex);
                llSetObjectDesc(vStrTempDesc);
            }
            else
            // if cancel was pressed stop the timer and reset the other script to get out of the while loop
            {
                llSetTimerEvent(0.0);
                llResetOtherScript("Script B");
            }
            llListenControl(vIntL1,FALSE);
        }
        
    }

    timer()
   {
       // reset the other script to get out of the while loop
        llResetOtherScript("Script B");
        //stop listening
        llListenControl(vIntL1,FALSE);
        //restore the description field to its original contents
        llSetObjectDesc(vStrOldDesc);
        //Tell the user s/he took too long to respond
        llSay(0,"Menu timed out.  Please try again.");
        //stop the timer
        llSetTimerEvent(0.0);
   }
   
    link_message(integer vIntSender, integer vIntNumb, string vStrStr, key vKeyId)
    {
        //message returned from the other script that it has completed successfully
        if (vIntNumb == 100)
        {   
            //restore the description field to its original contents
            llSetObjectDesc(vStrOldDesc);
            //stop the timer
            llSetTimerEvent(0.0);
        }
    } 
}

// Script B - brings up the map

default
{
    touch_start(integer total_number)
    {
        //This script will wait in the while loop until the description field changes to the expected string put there by script A
        // Script A will reset this script as needed if the expected string does not appear
        while (llGetSubString(llGetObjectDesc(),0,4) != "%#^*@")
            {}
        // get the string from the description field
        string vStrTempDesc = llDeleteSubString(llGetObjectDesc(),0,4);
        
        //parse it into the region name and vector coordinates
        list vListLocation = llParseString2List(vStrTempDesc,["^#*"],[]);
        string vStrRegion = llList2String(vListLocation,0);
        vector vVectorCoordinates = (vector) llList2String(vListLocation,1);
        
        //bring up the map
        llMapDestination( vStrRegion, vVectorCoordinates, ZERO_VECTOR );
        
        //notify the main script that it is done so it can clean up
        llMessageLinked(LINK_THIS,100,"",NULL_KEY);
    }
}

// These will likely be filled in by some other process
list vListMenu = ["BearDrmLdg","Ross","Anzere","Warmouth"];
list vListRegions = ["Bear","Ross","Anzere","Warmouth"];
list vListCoordinates = [<31,131,111>,<34,220,57>,<70,53,125>,<31,136,94>];
string Region;
vector Coordinates;


//globals for the llListen
integer vIntL1 = 0;
integer vIntChannel1;

default
{
	state_entry()
	{
		//set a random listen channel
		vIntChannel1 = (integer) llFrand(-2147483647.0) - 1;
		vIntL1 = llListen(vIntChannel1, "", NULL_KEY, "");
	}

	touch_start(integer total_number)
	{
		//start listening
		llListenControl(vIntL1,TRUE);

		llDialog( llDetectedKey( 0 ), "Select an infohub to which to teleport.", ["Cancel"] + vListMenu, vIntChannel1 );

		//Want to stop listening after 1 minute in case ignore was clicked, the user takes too long, etc.
		llSetTimerEvent(60.0);
	}

	listen( integer channel, string vStrNull, key vKeyNull, string vStrDest )
	{
		// is it coming in on the expected channel
		if (channel == vIntChannel1)
		{
			if (vStrDest != "Cancel")
			{
				integer vIntIndex = llListFindList(vListMenu,[vStrDest]);
				Region = llList2String(vListRegions,vIntIndex);
					Coordinates = llList2Vector(vListCoordinates,vIntIndex);
				state teleport;
			}
			else
				// if cancel was pressed stop the timer
			{
				llSetTimerEvent(0.0);
			}
			llListenControl(vIntL1,FALSE);
		}
	}

	timer()
	{
		//stop listening
		llListenControl(vIntL1,FALSE);
		//Tell the user s/he took too long to respond
		llSay(0,"Menu timed out.  Please try again.");
		//stop the timer
		llSetTimerEvent(0.0);
	}
}

state teleport
{
	state_entry()
	{
		llSay(0, "Touch me again to bring up map");
	}
	touch_start(integer total_number)
	{
		llMapDestination( Region, Coordinates, ZERO_VECTOR );
		state default;
	}
}

//Script A - the main script

// These will likely be filled in by some other process
list vListMenu = ["BearDrmLdg","Ross","Anzere","Warmouth"];
list vListRegions = ["Bear","Ross","Anzere","Warmouth"];
list vListCoordinates = [<31,131,111>,<34,220,57>,<70,53,125>,<31,136,94>];

//constants
string cStrOtherScriptName = "Script B";

//globals for the llListen
integer vIntL1 = 0;
integer vIntChannel1;

//global to store description field that may exist already
string vStrOldDesc;


default
{
    state_entry()
    {
        //set a random listen channel
        vIntChannel1 = (integer) llFrand(-2147483647.0) - 1;
        vIntL1 = llListen(vIntChannel1, "", NULL_KEY, "");
    }
    
    touch_start(integer total_number)
    {
        //save current contents of description field to be able to restore it later
        vStrOldDesc = llGetObjectDesc();
        
        //start listening for the response from the dialog
        llListenControl(vIntL1,TRUE);
        
        llDialog( llDetectedKey( 0 ), "Select an infohub to which to teleport.", ["Cancel"] + vListMenu, vIntChannel1 );

        // Stop the second script to keep it's while loop from churning unnecessarily
        llSetScriptState(cStrOtherScriptName,FALSE);
        
        //Want to stop listening after 10 minutes in case ignore was clicked, the user takes too long, etc.
        llSetTimerEvent(600.0);
    }

    listen( integer channel, string vStrNull, key vKeyNull, string vStrDest )
    {
        // is it coming in on the expected channel
        if (channel == vIntChannel1)
        {
            if (vStrDest != "Cancel")
            {
                // put the region name and coordinates into the description field of the object
                //preceed the string with "%#^*@" so script B can identify that it's coming from here
                //of course this presumes that the original description did not start with that string
                integer vIntIndex = llListFindList(vListMenu,[vStrDest]);
                string vStrTempDesc = "%#^*@" + llList2String(vListRegions,vIntIndex) + "^#*" + (string) llList2Vector(vListCoordinates,vIntIndex);
                llSetObjectDesc(vStrTempDesc);
                
                //now that a selection has been made, reactivate the second script to process it.
                llSetScriptState(cStrOtherScriptName,TRUE);
            }
            else
            // if cancel was pressed stop the timer and reset the other script to get out of the while loop
            {
                llSetTimerEvent(0.0);
                llSetScriptState(cStrOtherScriptName,TRUE);
                llResetOtherScript(cStrOtherScriptName);
            }
            llListenControl(vIntL1,FALSE);
        }
    }

    timer()
   {
       // reset the other script to get out of the while loop
        llSetScriptState(cStrOtherScriptName,TRUE);
        llResetOtherScript(cStrOtherScriptName);
        //stop listening
        llListenControl(vIntL1,FALSE);
        //restore the description field to its original contents
        llSetObjectDesc(vStrOldDesc);
        //Tell the user s/he took too long to respond
        llSay(0,"Menu timed out.  Please try again.");
        //stop the timer
        llSetTimerEvent(0.0);
   }
   
    link_message(integer vIntSender, integer vIntNumb, string vStrStr, key vKeyId)
    {
        //message returned from the other script that it has completed successfully
        if (vIntNumb == 100)
        {   
            //restore the description field to its original contents
            llSetObjectDesc(vStrOldDesc);
            //stop the timer
            llSetTimerEvent(0.0);
        }
    } 
}

// Script B - brings up the map

default
{
    touch_start(integer total_number)
    {
        //This script will wait in the while loop until the description field changes to the expected string put there by script A
        // Script A will reset this script as needed if the expected string does not appear
        while (llGetSubString(llGetObjectDesc(),0,4) != "%#^*@")
            {}
        // get the string from the description field
        string vStrTempDesc = llDeleteSubString(llGetObjectDesc(),0,4);
        
        //parse it into the region name and vector coordinates
        list vListLocation = llParseString2List(vStrTempDesc,["^#*"],[]);
        string vStrRegion = llList2String(vListLocation,0);
        vector vVectorCoordinates = (vector) llList2String(vListLocation,1);
        
        //bring up the map
        llMapDestination( vStrRegion, vVectorCoordinates, ZERO_VECTOR );
        
        //notify the main script that it is done so it can clean up
        llMessageLinked(LINK_THIS,100,"",NULL_KEY);
    }
}