Boot Disc 1/boot-disc-1996-08.iso/bootcd.dir/00440_Script_440

Text File | 1996-07-02 | 609b | 20 lines

-- point(149, 421) start
-- point(281, 421) end

on mouseDown
  set startx=369
  set endx=510
  set moviedur=the duration of member (the membernum of sprite 4)
  puppetsprite 9,true
  repeat while the mouseDown
    set curH=min(max(the mouseH,startx),endx)
    set the locH of sprite 9 to curH
    set the movieTime of sprite 4 to min(max(moviedur*(curH-startx)/(endx-startx),0),moviedur)
    updatestage
  end repeat
  if the membernum of sprite 12 = the number of member "playhigh" then
    set the movieRate of sprite 4 to 1.0
  else
    set the movieRate of sprite 4 to 0.0
  end if
end