1 // From the book:
  2 //
  3 // Scripting Recipes for Second Life
  4 // by Jeff Heaton (Encog Dod in SL)
  5 // ISBN: 160439000
  6 X// Copyright 2007 by Heaton Research, Inc.
  7 //
  8 // This script may be freely copied and modified so long as this header
  9 // remains unmodified.
 10 //
 11 // For more information about this book visit the following web site:
 12 //
 13 // http://www.heatonresearch.com/articles/series/22/
 14 
 15 list slides = ["slide1","slide2","slide3","slide4"];
 16 integer index;
 17 
 18 newSlide()
 19 {
 20     string texture = llList2String(slides,index);
 21     llSetTexture(texture,1);
 22     index++;
 23     if(index>=llGetListLength(slides) )
 24         index = 0;
 25 }
 26 
 27 default
 28 {
 29     state_entry()
 30     {
 31         llSetTimerEvent(30);
 32         index = 0;
 33         newSlide();
 34     }
 35     
 36     touch_start(integer num)
 37     {
 38         index = 0;
 39         newSlide();
 40         llSay(0,"Starting slide show over");
 41     }
 42 
 43     timer()
 44     {
 45         newSlide();
 46     }
 47 }