PC Pro 1996 March/PCPRO0396.ISO/march/blender/shared.dir/00810_HELP1.ls

Text File | 1995-09-24 | 427 b | 19 lines

on mouseUp
  global s, cVID, CONTROLWINDOW
  sound playFile 2, "ting.AIF"
  repeat with s = 48 down to 1
    puppetSprite(s, 0)
  end repeat
  set cVID to the castNum of sprite 40
  if cVID > 0 then
    if the castType of cast cVID = #digitalVideo then
      set the movieRate of sprite 40 to 0
    end if
  end if
  tell the stage
    go("HELP")
  end tell
  set CONTROLWINDOW to window "CONTROLS"
  forget(CONTROLWINDOW)
end