home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / tokyo / panatve.dcr / 00025.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  1.5 KB  |  70 lines
  1. on startMovie
  2.   global natta, doko
  3.   set the cursor of sprite 1 to [32, 33]
  4. end
  5.  
  6. on adown
  7.   puppetSound("ON.aif")
  8.   set the cursor of sprite 3 to [30, 31]
  9.   puppetSprite(5, 1)
  10.   repeat while mouseDown()
  11.     set the castNum of sprite 3 to the number of cast "23"
  12.     updateStage()
  13.     wait(2)
  14.     set the castNum of sprite 3 to the number of cast "23"
  15.     updateStage()
  16.     wait(2)
  17.   end repeat
  18. end
  19.  
  20. on aup
  21.   set the cursor of sprite 3 to [34, 35]
  22.   puppetSound("OFF.aif")
  23.   set the castNum of sprite 3 to the number of cast "26"
  24.   updateStage()
  25.   wait(2)
  26.   set the castNum of sprite 3 to the number of cast "102"
  27.   updateStage()
  28.   wait(3)
  29.   set the castNum of sprite 1 to the number of cast "101"
  30.   updateStage()
  31. end
  32.  
  33. on onmuscek
  34.   global natta, doko
  35.   set doko to mouseCast()
  36.   if doko = 1 then
  37.     set the cursor of sprite 2 to [34, 35]
  38.     if natta = 1 then
  39.       play frame "on"
  40.       puppetSound("pi.aiff")
  41.     end if
  42.     puppetSprite(3, 1)
  43.     repeat while mouseCast() = 1
  44.       if the mouseDown then
  45.         exit repeat
  46.       end if
  47.       set the castNum of sprite 3 to the number of cast "29"
  48.       updateStage()
  49.       set the castNum of sprite 3 to the number of cast "19"
  50.       updateStage()
  51.     end repeat
  52.   end if
  53.   if doko = -1 then
  54.     set the castNum of sprite 3 to the number of cast "101"
  55.     set the cursor of sprite 2 to [44, 45]
  56.     set natta to 1
  57.     set doko to 0
  58.     puppetSound(0)
  59.   else
  60.     nothing()
  61.   end if
  62. end
  63.  
  64. on wait waitticks
  65.   startTimer()
  66.   repeat while the timer < waitticks
  67.     nothing()
  68.   end repeat
  69. end
  70.