Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Suche Tür Script
#6
Hier noch eine 1 Prim Doppel Slider Türe mit Sound und allem Komfort.
Einfach einen Würfel erstellen und Script rein und fertig.
Jetzt nur noch größe anpassen für den jeweiligen Zweck.
Tür öffnet bei Kollission und auf anklicken, anschliessend schliesst sie selbstständig.
Alles kann im script angepasst werden.

Code:
// Türanimation Öffnen und Schließen

// Original 1 prim Doppel-Glasschiebetür wurde von Seagel Neville als Public Domain, Nov 2006 hergestellt
// Geändert von Kevin Carbonaro (SL: Kevin Ballinger) 8. März 2007

// Gekauft von SL Free Scripts auf www.findensquare.org/sl
//
// Korrekturen:
// - FIX - Durch das Zurücksetzen des Skripts wird das Objekt nicht neu positioniert, skaliert und gedreht, sondern auf bestimmte vordefinierte Zahlen.
//


integer pitch = 5; //Schritte zum öffnen und schliessen der Tür. Je mehr schritte je langsammer.
float TimeInterval = 6.0; //Sekunden, die die Tür offen bleibt.
integer TouchFlag;
integer Holding;
integer SecureFlag;

Open()
{
TouchFlag = TRUE;
llTriggerSound("de7ac1a3-f31b-e1a4-5a21-5b9907921bf1", 1.0);
integer i;
for(i = 0; i < pitch + .5; i++)
{
llSetPrimitiveParams([PRIM_TYPE, 0, 0, <0.000000, 1.000000, 0.000000>,
0.949000, <0.000000, 0.000000, 0.000000>, <(float)i/pitch, 1.000000, 0.000000>,
<0.000000, 0.000000, 0.000000>]);
}
llSetTimerEvent(TimeInterval);
}

Close()
{
llSetTimerEvent(0);
TouchFlag = FALSE;
llTriggerSound("44f32d82-8604-1f29-37c9-a35baec646ee", 1.0);
integer i;
for(i = pitch - 1; i >= 0 ; i--)
{
llSetPrimitiveParams([PRIM_TYPE, 0, 0, <0.000000, 1.000000, 0.000000>,
0.949000, <0.000000, 0.000000, 0.000000>, <(float)i/pitch, 1.000000, 0.000000>,
<0.000000, 0.000000, 0.000000>]);
}
}

TouchOpen()
{
if(TouchFlag == FALSE)
{
Open();
}
else
{
Close();
}
}

CollideOpen()
{
if(TouchFlag == FALSE)
{
Open();
}
else
{
llSetTimerEvent(TimeInterval);
}
}
// Farbe und Material Einstellungen
Init()
{
llSetPrimitiveParams([PRIM_MATERIAL, PRIM_MATERIAL_GLASS, PRIM_SIZE, llGetScale(),
PRIM_TYPE, 0, 0, <0.0, 1.0, 0.0>, 0.949, <0.0, 0.0, 0.0>, <0.0, 1.0, 0.0>, <0.0, 0.0, 0.0>,
PRIM_FULLBRIGHT, ALL_SIDES, TRUE, PRIM_ROTATION, llGetRot(),
PRIM_COLOR, ALL_SIDES, <0.0, 0.0, 0.0>, 0.75, PRIM_POSITION, llGetPos() + (<0, 0, 0> * llGetRot()),
PRIM_TEXTURE, ALL_SIDES, "5748decc-f629-461c-9a36-a35a221fe21f",
<1.0, 1.0, 0.0>, <0.0, 0.0, 0.0>, 0.0]);
}

default
{
state_entry()
{
Init();
}
changed(integer change)
{
if(change & CHANGED_OWNER)
{
llResetScript();
}
}
touch(integer total_number)
{
if(llDetectedKey(0) == llGetOwner())
{
Holding++;
if(Holding == 50)
{
if(SecureFlag == FALSE)
{
llOwnerSay("Door Locked");
SecureFlag = TRUE;
}
else
{
llOwnerSay("Door Unlocked");
SecureFlag = FALSE;
}
}
}
}
touch_end(integer total_number)
{
Holding = 0;
if(SecureFlag == FALSE)
{
TouchOpen();
}
else
{
if(llDetectedKey(0) == llGetOwner())
{
TouchOpen();
}
else
{
llWhisper(0, "Sorry, this door is locked.");
}
}
}
collision_start(integer num_detected)
{
if(SecureFlag == FALSE)
{
CollideOpen();
}
else
{
if(llDetectedKey(0) == llGetOwner())
{
CollideOpen();
}
else
{
llWhisper(0, "Sorry, this door is locked.");
llSleep(5.0);
}
}
}
timer()
{
Close();
}
}
Ein Metaversum sind viele kleine Räume, die nahtlos aneinander passen,
sowie direkt sichtbar und begehbar sind, als wäre es aus einem Guss.



Zitieren


Nachrichten in diesem Thema
Suche Tür Script - von LadyContessa Barbosa - 03.12.2017, 04:54
RE: Suche Tür Script - von Anachron - 03.12.2017, 10:59
RE: Suche Tür Script - von Servex Congrejo - 03.12.2017, 18:26
RE: Suche Tür Script - von Manfred Aabye - 14.12.2017, 14:36

Möglicherweise verwandte Themen…
Thema Verfasser Antworten Ansichten Letzter Beitrag
Question Suche Garagentor script Kalkofe 4 1.928 20.07.2024, 12:06
Letzter Beitrag: Manfred Aabye
  Suche Lichtscript LadyContessa Barbosa 8 10.077 21.03.2024, 16:22
Letzter Beitrag: Manfred Aabye
Question Tür script gesucht, Tür soll bei Eintritt ein paar meter vorher öffnen Kalkofe 9 2.386 11.10.2023, 05:37
Letzter Beitrag: Christoph Balhaus
  Rufknopf Script für Aufzug gesucht Xenos Yifu 4 2.857 03.04.2022, 19:09
Letzter Beitrag: Mareta Dagostino
  Geber/ Rezz Script Xenos Yifu 10 6.510 28.11.2020, 14:28
Letzter Beitrag: Kubwa

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste