ascensore opensim su edmondo

script pulsantiera:
===================
default
{
 state_entry()
 {
     llSetText("Chiama l'ascensore\nQuando arriva siediti\n e indica il piano",<1,1,1>,1);
 }
 touch_start(integer count)
 {
    llShout(45,llGetObjectName());
  }
}

script pedana:
==============
/*/|/ From the book:
/|/
/|/ Scripting Recipes for Second Life
/|/ by Jeff Heaton (Encog Dod in SL)
/|/ ISBN: 160439000X
/|/ Copyright 2007 by Heaton Research, Inc.
/|/
/|/ This script may be freely copied and modified so long as this header
/|/ remains unmodified.
/|/
/|/ For more information about this book visit the following web site:
/|/
/|/ http:/|/www.heatonresearch.com/articles/series/22/

*/

float target;
float SPEED = 2;
list MENU_MAIN = ["Piano 0", "Piano 1", "Piano 2", "Tetto"];
list COORD = [ 26.14, 33.19, 40.78, 47.88 ];
integer CHANNEL = 45;
float BOTTOM = 22.260;



default
{
    state_entry()
    {
        llListen(CHANNEL, "", NULL_KEY, "");
        llSitTarget(<-0.8,0.80,0.8>, llEuler2Rot(<0,0,90>) );
        llSetText("Sit Here to Ride Elevator",<0,0,0>,1.0);
        target = BOTTOM;
    }

    listen(integer channel, string name, key id, string message)
    {
        llSay(0,"received "+message);
        integer idx = llListFindList(MENU_MAIN, [message]);
        if( idx!=-1 )
        {
            llSay(0,"Elevator heading to " + message + "." );

            target=llList2Float(COORD,idx);
            state moving;
        }
    }

    touch_start(integer count)
    {
        llDialog(llDetectedKey(0), "Where to?", MENU_MAIN, CHANNEL);
    }

    changed(integer Change)
    {
        llDialog(llAvatarOnSitTarget(), "Where to?", MENU_MAIN, CHANNEL);
    }

}

state moving
{


    state_entry()
    {
        llSetTimerEvent(0.1);
    }

    timer()
    {
        vector pos = llGetPos();
        float myz=pos.z;

        if( myz != target )

        {
            if( pos.z>target )
            {
                pos.z = pos.z - SPEED;
            }
            else
            {
                pos.z = pos.z + SPEED;
            }
        }

        if(  llFabs(pos.z - target) < SPEED )
        {
            pos.z = target;
            llSetTimerEvent(0);
            llSetPos(pos);
            llSay(0,"Elevator has reached its target." );
            state default;
        }

        llSetPos(pos);

    }
}