Advertisement
Guest User

Untitled

a guest
Nov 25th, 2012
1,365
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.69 KB | None | 0 0
  1. list stations = [
  2. "",
  3. "http://scfire-ntc-aa03.stream.aol.com:80/stream/1019",
  4. "http://160.79.128.30:7712",
  5. "http://scfire-mtc-aa03.stream.aol.com:80/stream/1040",
  6. "http://64.62.194.11:8095",
  7. "http://193.239.120.188:8404",
  8. "http://209.9.238.4:9104",
  9. "http://212.25.58.220:8002",
  10. "http://194.158.114.67:5000"
  11. ]; // add station URLs here between the [ ] in quotes seperated by commas "url1", "url2", "url3"....
  12.  
  13. list station_descriptions = ["Stop","","","","","","","","Disco" ]; // add station descriptions here between the [ ] in quotes seperated by commas... they should be in the same order as the urls they describe, you can use "" for any of them if you do not wish to add a description.
  14.  
  15. list djs = [
  16. "74a0c502-8b4d-4073-9955-20157dc16d53",
  17. "d2f0b9a9-a27f-404f-b0f3-88531f38b1aa",
  18. "f54e4d82-5558-41dc-9d1d-76028e75cda4"
  19. ]; // add the names of those authorized to change stations here between the [ ] in quotes seperated by commas
  20.  
  21. integer current_station = 0;
  22.  
  23. default
  24. {
  25. state_entry()
  26. {
  27. current_station = 0;
  28. }
  29.  
  30. on_rez(integer start_param)
  31. {
  32. llResetScript();
  33. }
  34.  
  35. touch_start(integer total_number)
  36. {
  37. if(llListFindList(djs, (list)llKey2Name(llDetectedKey(0))) != 0)
  38. {
  39. current_station++;
  40. if(current_station >= llGetListLength(stations))
  41. current_station = 0;
  42. llSetTimerEvent(3);
  43. llWhisper(0, "Now Playing Station " + (string)current_station + ": " + llList2String(station_descriptions, current_station));
  44. }
  45. }
  46.  
  47. timer()
  48. {
  49. llSetParcelMusicURL(llList2String(stations, current_station));
  50. llSetTimerEvent(0);
  51. }
  52. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement