Helix Design System/HELIX_DESIGN_SYSTEM_DEMO.iso/french/modeling.dxr/00028.ls

Text File | 1996-12-19 | 462 b | 19 lines

on mouseDown
  set the puppet of sprite 38 to 1
  set the locV of sprite 38 to the locV of sprite 38 + 3
  set the locH of sprite 38 to the locH of sprite 38 + 2
  updateStage()
end

on mouseUp
  global Root
  set the locV of sprite 38 to the locV of sprite 38 - 3
  set the locH of sprite 38 to the locH of sprite 38 - 2
  updateStage()
  repeat with i = 30 to 38
    set the puppet of sprite i to 0
  end repeat
  updateStage()
  go(1, Root & "Logos.dir")
end