DoorHax

DoorHax v0.1.0

--BETLOG Hax UTC+10: 20091110 2120 [SLT: 20091110 0420]

A smooth swinging door.
It seemed to work. Almost completely untested. <lsl> //============================================================== // BETLOG Hax // UTC+10: 20091110 2001 [SLT: 20091110 0301] // For Gutterblood Spoonhammer //---------------------------------- // **** LICENCE START **** // http://creativecommons.org/licenses/by-sa/3.0/ // Attribution licence: // You must: // -Include this unaltered licence information. // -Supply my original script with your modified version. // -Retain the original scripts' SL permissions. [+c/+m/+t] // Or: // -Link to the wiki URL from which you copied this script. // https://wiki.secondlife.com/wiki/DoorHax // -Document: "Uses parts of <scriptname> by BETLOG Hax" // **** LICENCE END **** //---------------------------------- // SHARED CONFIGURATION //---------------------------------- // CONFIGURATION float gShutAngle = 0.0; float gShutTau = 3.0; // float gOpenAngle = 90.0; float gOpenTau = 0.75; // string gSndOpening = "cb340647-9680-dd5e-49c0-86edfa01b3ac"; float gVolOpening = 1.0; string gSndOpened = "2ffd48fb-293c-d8c8-f2c5-c0ca76126baa"; float gVolOpened = 1.0;

string gSndClosing = "e7ff1054-003d-d134-66be-207573f2b535"; float gVolClosing = 1.0; string gSndClosed = "31b0c4db-e126-47c5-ac1c-60edb1c0103a"; float gVolClosed = 1.0; //---------------------------------- // CORE CODE integer gOpen; //========================================================================= f_toggle() { float f;

   llResetTime();
   if(gOpen)
   {   llTriggerSound(gSndOpening, gVolOpening);//opening
       do{ f=gShutAngle+(llGetTime()/gOpenTau*llFabs(gShutAngle-gOpenAngle));

//llSetText((string)f, <.0, 1.0, .0>, 1.0);

           llRotLookAt(llEuler2Rot(<0.0, 0.0, f>*DEG_TO_RAD),0.05,0.05);
       }while(f<=gOpenAngle);
       llTriggerSound(gSndOpened,gVolOpened);//opening end
   }
   else
   {   llTriggerSound(gSndClosing, gVolClosing);//closing
       do{ f=gOpenAngle-(llGetTime()/gShutTau*llFabs(gShutAngle-gOpenAngle));

//llSetText((string)f, <1.0, .0, .0>, 1.0);

           llRotLookAt(llEuler2Rot(<0.0, 0.0, f>*DEG_TO_RAD),0.05,0.05);
       }while(f>=gShutAngle);
       llTriggerSound(gSndClosed, gVolClosed);//closing end
   }

//llOwnerSay((string)llGetTime()); } //---------------------------------- default { state_entry()

   {   llSetText("", <1.0, 1.0, 1.0>, 1.0);
       f_toggle();
   }
   touch_start(integer num)
   {   gOpen=!gOpen;
       f_toggle();
   }

} //---------------------------------- </lsl>