home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1997 February / PCA0297.ISO / demos / shine / aufzug.dxr / 00042.ls < prev    next >
Encoding:
Text File  |  1996-08-18  |  241 b   |  14 lines
  1. on mouseDown
  2.   puppetSound("oben")
  3.   set me to the clickOn
  4.   set my to the castNum of sprite me
  5.   set the castNum of sprite me to my + 1
  6.   repeat while the mouseDown
  7.     updateStage()
  8.   end repeat
  9. end
  10.  
  11. on mouseUp
  12.   goloc(label("NDown"))
  13. end
  14.