UUID Song Generator

From Second Life Wiki
Revision as of 13:26, 23 September 2009 by Sendao Goodman (Talk | contribs)

Jump to: navigation, search

<lsl> // Sendao Goodman wrote this

integer max_note=7; // change this to the # of notes available! float speed=2.0; // change this to the length to wait before playing the next note

//Don't change anything else yo list playback; integer spot; list notes;

loadNotes() {

   integer i;
   integer ln;
   
   notes=[];
   
   for( i = llGetNumberOfPrims(); i > 0; i-- )
   {
       notes=(notes=[])+notes+[(integer)llGetLinkName(i)];
   }

// we tell the players how long each sound is

   llMessageLinked(LINK_SET, 3, (string)speed, "");

}

list transformKey(key uuid_k, integer max_note) { // convert a key into a string of numbers

   string uuid = (string)uuid_k;
   list uuid_untrans = llParseString2List(uuid, ["", "-"], []);
   list uuid_new;
   string mark;
   integer val;
   float conval;
   
   integer len = llStringLength(uuid);
   uuid_new=[];
   while( len > 0 ) {
       len--;
       mark = llGetSubString(uuid,len,len);
       val = (integer)mark;
       if( val == 0 ) {
           if( mark == "a" ) 
               val = 10;
           else if( mark == "b" )
               val = 11;
           else if( mark == "c" )
               val = 12;
           else if( mark == "d" )
               val = 13;
           else if( mark == "e" )
               val = 14;
           else if( mark == "f" )
               val = 15;
       }
       conval = (float)val / 16.0;
       if( mark != "-" )
           uuid_new=(uuid_new=[]) + uuid_new + [(integer)(conval*(float)max_note)];
   }
   return uuid_new;

}

playNote( integer notenum ) // send the message to trigger the note {

   llMessageLinked( llList2Integer(notes,notenum), 1, "", "" );

} default {

   on_rez(integer sp)
   {
       llResetScript();
   }
   
   state_entry()
   {
       loadNotes();
   }
   
   touch_start(integer total_number) // scan avatar key and start playback
   {
       playback = transformKey(llDetectedKey(0), max_note);
       spot = 0;

// llSay(0, "Your adjusted key is " + llDumpList2String(playback, ","));

       llSetTimerEvent(speed);
   }
   timer() // timer is used to play each sound
   {
       spot++;
       if( spot >= llGetListLength(playback) ) {
           llSetTimerEvent(0.0);
           llSay(0, "Song complete.");
           return;
       }
       playNote( llList2Integer(playback,spot) );

// llSay(0, "Play note " + (string)llList2Integer(playback,spot) + " link " + (string)(llList2Integer(notes,llList2Integer(playback,spot))));

   }

} </lsl>