home *** CD-ROM | disk | FTP | other *** search
/ Helix Design System / HELIX_DESIGN_SYSTEM_DEMO.iso / portug / intro.dxr / 00084.ls < prev    next >
Encoding:
Text File  |  1996-12-19  |  441 b   |  17 lines
  1. on mouseDown
  2.   set the puppet of sprite 12 to 1
  3.   set the locV of sprite 12 to the locV of sprite 12 + 3
  4.   set the locH of sprite 12 to the locH of sprite 12 + 2
  5. end
  6.  
  7. on mouseUp
  8.   global Rootlang
  9.   set the locV of sprite 12 to the locV of sprite 12 - 3
  10.   set the locH of sprite 12 to the locH of sprite 12 - 2
  11.   updateStage()
  12.   repeat with i = 10 to 15
  13.     set the puppet of sprite i to 0
  14.   end repeat
  15.   go(1, Rootlang & "Modeling.dir")
  16. end
  17.