Elevator

[Constance Peregrine]

From the script used in Garry Beaumonts 'The Fly Elevator'. [a cool build he gives for free in osgrid, btw]

Ohn, I noted in your world description http://www.kitely.com/virtual-world/Ohn ... n-freebies yours only goes to 100m so I went in and got this in my metropolis region for ya-)) Judy Muircastle helped me to modify it for my own use a little bit. I assume it goes to whatever height put in @ float FLOOR_HEIGHT = 93; but I have not tried it as I have not needed to yet-))

Code: Select all

    // 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/

    integer CHANNEL = 420; // dialog channel
    list MENU_MAIN = ["Floor 1", "Floor 2"]; // the main menu

    float BOTTOM = 21.0;
    float FLOOR_HEIGHT = 93;
    float SPEED = 2;
    float target;


    default
    {
        state_entry()
        {
            llListen(CHANNEL, "", NULL_KEY, ""); // listen for dialog answers (from multiple users)
           // llSitTarget(<0,-0.5,0.5>, llEuler2Rot(<0,0,-90>) );
           // llSetText("Sit center to control Elevator",<1,1,1>,1.0);
            target = BOTTOM;
        }
       
        listen(integer channel, string name, key id, string message)
        {
            integer idx = llListFindList(MENU_MAIN, [message]);
            if( idx!=-1 )
            {
                llSay(0,"Elevator heading to " + message + "." );
                target = BOTTOM + (idx*FLOOR_HEIGHT);
                state moving;
            }
        }

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

    state moving
    {
       
       
        state_entry()
        {
            llSetTimerEvent(0.1);
        }
       
        timer()
        {
            vector pos = llGetPos();
           
            if( pos.z!=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);
           
        }
    }