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

Text File | 1996-12-19 | 709 b | 30 lines

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

on mouseUp
  global Warten
  set the locV of sprite 36 to the locV of sprite 36 - 3
  set the locH of sprite 36 to the locH of sprite 36 - 2
  if the castNum of sprite 36 = 9 then
    set Warten to 0
    continue()
  end if
  if the castNum of sprite 36 = 8 then
    set the castNum of sprite 36 to 9
    set Warten to 1
    updateStage()
    pause()
  end if
  repeat with i = 30 to 38
    set the puppet of sprite i to 0
  end repeat
  if Warten = 0 then
    set the castNum of sprite 36 to 8
    updateStage()
  end if
end