home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / image.dir / 00006.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  500 b   |  15 lines
  1. on exitFrame
  2.   global theImageList, recentPage
  3.   set whPage to 15 * recentPage
  4.   setPuppets(29, 44, 1)
  5.   repeat with n = 1 to 15
  6.     if line n + whPage - 15 of theImageList <> EMPTY then
  7.       createPath("Picons", string(item 1 of line n + whPage - 15 of theImageList))
  8.       set the fileName of cast value(n + 50) to the result
  9.       set the regPoint of cast value(n + 50) to point(0, 0)
  10.       set the castNum of sprite value(n + 29) to value(n + 50)
  11.       updateStage()
  12.     end if
  13.   end repeat
  14. end
  15.