home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / toplevel.dir / 00003.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.8 KB  |  57 lines
  1. on startMovie
  2.   global menuShowHide, posH, posV, dispBG, moviesList, frameList
  3.   set dispBG to 0
  4.   set moviesList to "air.dir,land.dir,water.dir,animals.dir,people.dir,energy.dir,response.dir,dev.dir"
  5.   set frameList to "pre71,72-75,76-79,80-83,84-87,88-91,92-95"
  6.   set posH to "155,223,291,359,427,495,563"
  7.   set posV to "91,134,177,220,263,306,349,392,435"
  8. end
  9.  
  10. on buildLoc Fr, Mov
  11.   global theTargetFrame, theTargetMovie
  12.   set theTargetFrame to Fr
  13.   set theTargetMovie to Mov
  14. end
  15.  
  16. on doZoom
  17.   global theCol, theRow, moviesList, frameList
  18.   if theRow = 4 then
  19.     puppetSprite(4, 0)
  20.     set the castNum of sprite 6 to 0
  21.     go(the frame + 1)
  22.     set spC to the clickOn
  23.     set endH to 27
  24.     set endV to 101
  25.     set endW to 586
  26.     set endT to 352
  27.     set startH to the locH of sprite spC
  28.     set startV to the locV of sprite spC
  29.     set startW to the width of sprite spC
  30.     set startT to the height of sprite spC
  31.     set incrH to (endH - startH) / 10
  32.     set incrV to (endV - startV) / 10
  33.     set incrW to (endW - startW) / 10
  34.     set incrT to (endT - startT) / 10
  35.     set the locV of sprite spC to startV
  36.     set the locH of sprite spC to startH
  37.     set the width of sprite spC to startW
  38.     set the height of sprite spC to startT
  39.     updateStage()
  40.     repeat with n = 1 to 9
  41.       set the locV of sprite spC to the locV of sprite spC + incrV
  42.       set the locH of sprite spC to the locH of sprite spC + incrH
  43.       set the width of sprite spC to the width of sprite spC + incrW
  44.       set the height of sprite spC to the height of sprite spC + incrT
  45.       updateStage()
  46.     end repeat
  47.     set the locV of sprite spC to endV
  48.     set the locH of sprite spC to endH
  49.     set the width of sprite spC to endW
  50.     set the height of sprite spC to endT
  51.     updateStage()
  52.     buildLoc(item theCol of frameList, item theRow of moviesList)
  53.   else
  54.     go("m")
  55.   end if
  56. end
  57.