home *** CD-ROM | disk | FTP | other *** search
/ CD-X 3 / cdx_03.iso / microsft / mmcat / demos / publish / pub3demo.exe / pub3demo.DXR / 00127_unpushok.ls < prev    next >
Encoding:
Text File  |  1995-08-24  |  596 b   |  27 lines
  1. on mouseDown
  2.   puppetSprite(6, 1)
  3.   set the castNum of sprite 6 to the number of cast "pushok"
  4.   puppetTransition(4, 0, 60)
  5.   updateStage()
  6.   repeat while the stillDown
  7.     nothing()
  8.   end repeat
  9.   if the mouseCast = the number of cast "pushok" then
  10.     puppetSprite(6, 0)
  11.     updateStage()
  12.     go(2)
  13.   end if
  14.   if the mouseCast <> the number of cast "pushok" then
  15.     puppetSprite(6, 1)
  16.     set the castNum of sprite 6 to the number of cast "unpushok"
  17.     puppetTransition(4, 0, 60)
  18.     updateStage()
  19.     puppetSprite(6, 0)
  20.   end if
  21.   puppetSprite(6, 0)
  22. end
  23.  
  24. on mouseUp
  25.   puppetSprite(6, 0)
  26. end
  27.