LSL1

This is the code for the 'slideshow' object that Linden Lab used in presenting Second Life to the organizers of the DEMO Conference in 2002. Originally dated 12/2001, and written in LSL version 1.0!

Slideshow
 
VARIABLES
 
   Hello STRING "Hello"
   frontslide S32 1
   checktouch S32 0
   ccount     S32 0
 
   command    STRING   ""
   name       STRING   ""
 
  lastslide S32 16
 
STATE HelloState
 
   SENSORS
 
   CODE
       frontslide = 1
       Say("Slideshow Init")
       pushstate setSlide
       @Forever
       checktouch = Touched()
 
       if (checktouch)
               Say("Next slide")
       frontslide = frontslide + 1
       if (frontslide > lastslide)
           frontslide = 1
       endif
               pushstate setSlide
   endif
 

 
       GetMessage(ccount, command, name)    
   if command == "back"
          Say("Back one slide")
       frontslide = frontslide - 1
       if (frontslide < 1)
                 frontslide = lastslide
       endif
           pushstate setSlide
   endif
 
       if command == "start"
          Say("First slide")
       frontslide = 1
       pushstate setSlide
   endif
 
       if command == "end"     
          Say("Last slide")
       frontslide = lastslide
       pushstate setSlide
   endif
       Sleep(0.5)            
       jump Forever
 

 
STATE setSlide
 
   SENSORS
   CODE
 
   if (frontslide == 1)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "adf08d20-f0b9-11d5-8a0a-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "3a4e6b8a-f0d2-11d5-8c14-00d0b7ac9404")
   endif
   if (frontslide == 2)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "3a4e6b8a-f0d2-11d5-8c14-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "689c8026-f0d2-11d5-8c14-00d0b7ac9404")
   endif
   if (frontslide == 3)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "689c8026-f0d2-11d5-8c14-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "1967748a-f0fe-11d5-95ad-00d0b7ac9404")
   endif
   if (frontslide == 4)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "1967748a-f0fe-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "2e095f04-f0d4-11d5-8c14-00d0b7ac9404")
   endif
   if (frontslide == 5)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "2e095f04-f0d4-11d5-8c14-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "6b062b12-f0e8-11d5-95ad-00d0b7ac9404")
   endif
   if (frontslide == 6)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "6b062b12-f0e8-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "ae8e6e3a-f0e8-11d5-95ad-00d0b7ac9404")
   endif
   if (frontslide == 7)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "ae8e6e3a-f0e8-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "d979cf04-f0e8-11d5-95ad-00d0b7ac9404")
   endif
   if (frontslide == 8)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "d979cf04-f0e8-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "01bc949c-f0e9-11d5-95ad-00d0b7ac9404")
   endif
   if (frontslide == 9)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "01bc949c-f0e9-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "42c60c7e-f0fe-11d5-95ad-00d0b7ac9404")
   endif
   if (frontslide == 10)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "42c60c7e-f0fe-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "2cd11e1e-f0e9-11d5-95ad-00d0b7ac9404")
   endif
   if (frontslide == 11)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "2cd11e1e-f0e9-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "34d00bc4-f0ea-11d5-95ad-00d0b7ac9404")
   endif
   if (frontslide == 12)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "34d00bc4-f0ea-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "6748d996-f0ea-11d5-95ad-00d0b7ac9404")
   endif
   if (frontslide == 13)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "6748d996-f0ea-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "5c887768-f0eb-11d5-95ad-00d0b7ac9404")
   endif     
   if (frontslide == 14)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "5c887768-f0eb-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "7e7b2848-f0eb-11d5-95ad-00d0b7ac9404")
   endif     
   if (frontslide == 15)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "7e7b2848-f0eb-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "fe49f15c-f0d3-11d5-8c14-00d0b7ac9404")
   endif
   if (frontslide == 16)
           Texture(1, 0.95, 0.71, 0.03, -0.01, 0, "a118c5f4-f0eb-11d5-95ad-00d0b7ac9404")
           Texture(3, 0.95, 0.71, 0.03, -0.01, 0, "a118c5f4-f0eb-11d5-95ad-00d0b7ac9404")
   endif
       Sound("00000000-0000-0000-0000-000000000110", 1)
       popstate
 

 

 

 
START HelloState

Links

Forum Link: LSL1 code posted, keys for slideshow images found to be still in asset server (amazingly)