home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / f_gen.dir / 00037_custom8.ls < prev    next >
Encoding:
Text File  |  2000-11-09  |  579 b   |  17 lines
  1. on exitFrame
  2.   set angle to the PanAngle of sprite(1)
  3.   set fileName to the BackBufferMovie of sprite(1)
  4.   if (angle >= 30) and (angle < 172) then
  5.     if not (fileName contains "f_in08.mov") then
  6.       set the AreaOfInterest of sprite(1) to rect(290, 588, 409, 827)
  7.       PlayBackBufferMovie(sprite(1), "@\files\f_in08.mov", #loop)
  8.     end if
  9.   else
  10.     if not (fileName contains "f_in08b.mov") then
  11.       set the AreaOfInterest of sprite(1) to rect(278, 1542, 457, 1781)
  12.       PlayBackBufferMovie(sprite(1), "@\files\f_in08b.mov", #loop)
  13.     end if
  14.   end if
  15.   go(the frame)
  16. end
  17.