Advertisement
salahzar

Suona canzone intera

Oct 27th, 2013
474
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. integer index=-1;
  2. integer numpieces;
  3.  
  4. play()
  5. {
  6.     llSetText("Suonando "+(string)(index+1)+"/"+(string)numpieces,<0,1,0>,1);
  7.     llPlaySound(llGetInventoryName(INVENTORY_SOUND,index),1.0);
  8.     llSetTimerEvent(10);
  9. }
  10.  
  11.  
  12. default
  13. {
  14.     state_entry()
  15.     {
  16.         llSetText("Toccami per suonare\n Per Elisa \n Beethoven",<1,1,1>,1);
  17.     }
  18.     touch_start(integer count)    
  19.     {
  20.         numpieces=llGetInventoryNumber(INVENTORY_SOUND);
  21.         if(index>=0)
  22.         {
  23.             llStopSound();
  24.             llSetText("Interrotto",<1,0,0>,1);
  25.             llSleep(0.5);
  26.             llResetScript();
  27.             return;
  28.         }
  29.         index=0; play();
  30.  
  31.     }
  32.     timer()
  33.     {
  34.         llSetTimerEvent(0);        
  35.         index++;
  36.         if(index>=numpieces)
  37.         {
  38.             llResetScript();
  39.             return;
  40.         }
  41.         play();
  42.     }
  43. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement