Encyklopedia Omnia/Planeta.iso/data/f_gen.dir/00042_custom10.ls

Text File | 2000-11-09 | 686 b | 20 lines

on exitFrame
  if soundBusy(1) then
    swingStep(1, #right, 0.95000000000000007)
    set angle to the PanAngle of sprite(1)
    set fileName to the BackBufferMovie of sprite(1)
    if (angle >= 55) and (angle < 195) then
      if not (fileName contains "f_in09.mov") then
        set the AreaOfInterest of sprite(1) to rect(392, 764, 511, 1083)
        PlayBackBufferMovie(sprite(1), "@\files\f_in09.mov", #loop)
      end if
    else
      if not (fileName contains "f_in09b.mov") then
        set the AreaOfInterest of sprite(1) to rect(534, 1759, 653, 1998)
        PlayBackBufferMovie(sprite(1), "@\files\f_in09b.mov", #loop)
      end if
    end if
    go(the frame)
  end if
end