Helix Design System/HELIX_DESIGN_SYSTEM_DEMO.iso/portug/modeling.dxr/00027.ls

Text File | 1996-12-19 | 436 b | 18 lines

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

on mouseUp
  set the locV of sprite 37 to the locV of sprite 37 - 3
  set the locH of sprite 37 to the locH of sprite 37 - 2
  updateStage()
  repeat with i = 30 to 38
    set the puppet of sprite i to 0
  end repeat
  updateStage()
  go(marker(1))
end