Lampenskript - Druckversion

Code:
// Konstanten



// Allgemeines

string  PRIMNAME = "light";                // Name der Prims die als Lampen fungieren

integer CHANNEL = -99999;                // Listenerkanal (0 wenn nicht gewünscht)



// Nachtschaltung

integer AUTOMATIC = TRUE;                // Soll automatisch eingeschaltet werden?

integer ON_AT_NIGHT = TRUE;                // Lampe an bei Nacht (wenn FALSE dann an bei Tag)



// Glühen

integer GLOW_ON = TRUE;                    // Glühen an oder nicht

float GLOW_INTENSITY = 0.5;                // Intensität des Glühens (0..1)

integer GLOW_SIDE = ALL_SIDES;            // Seite(n) fürs Glühen



// Leuchten

integer LIGHT_ON = TRUE;                // Licht an oder nicht

vector LIGHT_COLOR = <1.0, 1.0, 1.0>;    // Farbe für Licht

float LIGHT_INTENSITY = 1.0;             // Intensität des Leuchtens (0..1)

float LIGHT_RADIUS = 5.0;                // Lichtradius in m

float LIGHT_FALLOFF = 0.75;                // Abfall des Leuchtens

    

// Helligkeit

integer BRIGHT_ON = TRUE;                // Helligkeit an oder nicht

integer BRIGHT_SIDE = ALL_SIDES;        // Seite(n) für die Helligkeit



// Schalter-Sound

integer PLAY_SOUND = TRUE;                // Sound an oder nicht

float SOUND_VOL = 0.5;                    // Lautstärke (0..1)

string  SOUND = "bac3e333-9624-4b1a-ade2-d2b01d5960aa";    // ein Klicken



// Variablen



integer Mode;

integer On;

integer LastCheck = FALSE;



LightOn()

{

    list l = [];

    if(LIGHT_ON) l += [PRIM_POINT_LIGHT, TRUE, LIGHT_COLOR, LIGHT_INTENSITY, LIGHT_RADIUS, LIGHT_FALLOFF];

    if(GLOW_ON) l += [PRIM_GLOW, GLOW_SIDE, GLOW_INTENSITY];

    if(BRIGHT_ON) l += [PRIM_FULLBRIGHT, TRUE];

    integer i;

    integer x = llGetNumberOfPrims();

    for(i = 1; i <= x; i++) if(llGetLinkName(i) == PRIMNAME) llSetLinkPrimitiveParamsFast(i, l);

    if(CHANNEL != 0) llRegionSay(CHANNEL, (string)TRUE);

    On = TRUE;

}



LightOff()

{

    list l = [];

    if(LIGHT_ON) l += [PRIM_POINT_LIGHT, FALSE, LIGHT_COLOR, LIGHT_INTENSITY, LIGHT_RADIUS, LIGHT_FALLOFF];

    if(GLOW_ON) l += [PRIM_GLOW, GLOW_SIDE, 0.0];

    if(BRIGHT_ON) l += [PRIM_FULLBRIGHT, FALSE];

    integer i;

    integer x = llGetNumberOfPrims();

    for(i = 1; i <= x; i++) if(llGetLinkName(i) == PRIMNAME) llSetLinkPrimitiveParamsFast(i, l);

    if(CHANNEL != 0) llRegionSay(CHANNEL, (string)FALSE);

    On = FALSE;

}



Switch(integer on)

{

    if(on) LightOn(); else LightOff();

}



default {

    state_entry()

    {

        Mode = FALSE;

        On = FALSE;

        Switch(On);

        if(CHANNEL != 0) 

               {

                      llRegionSay(CHANNEL, (string)On);

                      llListen(CHANNEL, "", NULL_KEY, "");

               }

               if(AUTOMATIC) llSetTimerEvent(60.0);

    }

    touch_start(integer total_number)

    {

        if (PLAY_SOUND) llPlaySound(SOUND, SOUND_VOL);

        On = !On;

        Switch(On);

    }

    on_rez(integer start_param)

    {

        llResetScript();

    }

    timer()

    {

        vector v = llGetSunDirection();       

        if (v.z < 0.0) Mode = ON_AT_NIGHT;

        else Mode = !ON_AT_NIGHT;      

        if (Mode != LastCheck)

        {

            Switch(Mode);

            LastCheck = Mode;

        }

    }

    listen(integer channel, string name, key id, string message)

    {

        On = (integer)message;

        Switch(On);

    }

}