Encyklopedia Omnia/Planeta.iso/data/f_gen.dir/00025_custom5.ls

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

on exitFrame
  if soundBusy(1) then
    swingStep(1, #right, 1.5)
    set angle to the PanAngle of sprite(1)
    set fileName to the BackBufferMovie of sprite(1)
    if (angle >= 130) and (angle < 250) then
      if not (fileName contains "f_in05.mov") then
        set the AreaOfInterest of sprite(1) to rect(400, 1195, 579, 1434)
        PlayBackBufferMovie(sprite(1), "@\files\f_in05.mov", #loop)
      end if
    else
      if not (fileName contains "f_in05b.mov") then
        set the AreaOfInterest of sprite(1) to rect(263, 2134, 342, 2373)
        PlayBackBufferMovie(sprite(1), "@\files\f_in05b.mov", #loop)
      end if
    end if
    go(the frame)
  end if
end