home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / demos / sancwood / sancwood.dir / 00013.ls < prev    next >
Encoding:
Text File  |  1994-10-31  |  797 b   |  48 lines
  1. on takeMeTo location
  2.   puppetTransition(52, 2, 8)
  3.   go(label("e" & location))
  4. end
  5.  
  6. on goiTales
  7.   play movie "BirdΓÇÖs Life"
  8. end
  9.  
  10. on goiVentures
  11.   play movie "VampireΓÇÖs Coffin"
  12. end
  13.  
  14. on goiLearn
  15.   play movie "Farm"
  16. end
  17.  
  18. on goiLaugh
  19.   play movie "Laugh Clip"
  20. end
  21.  
  22. on initbuttons
  23.   puppetSprite(27, 1)
  24.   puppetSprite(28, 1)
  25.   puppetSprite(29, 1)
  26.   puppetSprite(30, 1)
  27. end
  28.  
  29. on butndown instruction
  30.   set chan to the clickOn
  31.   set the ink of sprite chan to 2
  32.   updateStage()
  33.   repeat while the mouseDown
  34.     if rollOver(chan) then
  35.       set the ink of sprite chan to 2
  36.     else
  37.       set the ink of sprite chan to 0
  38.     end if
  39.     updateStage()
  40.   end repeat
  41.   set chosen to the ink of sprite chan
  42.   set the ink of sprite chan to 0
  43.   updateStage()
  44.   if chosen = 2 then
  45.     do(instruction)
  46.   end if
  47. end
  48.