home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / shared.dir / 00995.ls < prev    next >
Encoding:
Text File  |  1996-08-11  |  2.2 KB  |  97 lines
  1. on displayMessage
  2.   set the castNum of sprite 43 to 795
  3.   spriteBox(43, -20, -20, 680, 520)
  4.   set the castNum of sprite 45 to 798
  5.   set the locH of sprite 45 to 170
  6.   set the locV of sprite 45 to 170
  7.   updateStage()
  8. end
  9.  
  10. on toolsUp
  11.   puppetSprite(47, 1)
  12.   puppetSprite(48, 1)
  13.   set the castNum of sprite 47 to 810
  14.   updateStage()
  15. end
  16.  
  17. on toolsDown
  18.   global dis
  19.   if dis = 1 then
  20.     if the mouseCast <> 797 then
  21.       set the castNum of sprite 47 to 799
  22.       updateStage()
  23.       puppetSprite(47, 0)
  24.       puppetSprite(48, 0)
  25.     end if
  26.   else
  27.     set the castNum of sprite 47 to 799
  28.     updateStage()
  29.     set dis to 0
  30.     puppetSprite(47, 0)
  31.     puppetSprite(48, 0)
  32.   end if
  33. end
  34.  
  35. on doCopy
  36. end
  37.  
  38. on doPaste
  39. end
  40.  
  41. on initRearWindow theColor
  42. end
  43.  
  44. on changeRearWindow theColor
  45. end
  46.  
  47. on disposeRearWindow
  48. end
  49.  
  50. on doZoom2 theSquare
  51.   global theCol, theRow, moviesList, frameList
  52.   go(the frame + 1)
  53.   set spC to 43
  54.   set endH to 27
  55.   set endV to 101
  56.   set endW to 586
  57.   set endT to 352
  58.   set startH to (theSquare * 65) + 160
  59.   set startV to 258
  60.   set startW to 63
  61.   set startT to 38
  62.   set incrH to (endH - startH) / 10
  63.   set incrV to (endV - startV) / 10
  64.   set incrW to (endW - startW) / 10
  65.   set incrT to (endT - startT) / 10
  66.   set the locV of sprite spC to startV
  67.   set the locH of sprite spC to startH
  68.   set the width of sprite spC to startW
  69.   set the height of sprite spC to startT
  70.   updateStage()
  71.   repeat with n = 1 to 9
  72.     set the locV of sprite spC to the locV of sprite spC + incrV
  73.     set the locH of sprite spC to the locH of sprite spC + incrH
  74.     set the width of sprite spC to the width of sprite spC + incrW
  75.     set the height of sprite spC to the height of sprite spC + incrT
  76.     updateStage()
  77.   end repeat
  78.   set the locV of sprite spC to endV
  79.   set the locH of sprite spC to endH
  80.   set the width of sprite spC to endW
  81.   set the height of sprite spC to endT
  82.   updateStage()
  83. end
  84.  
  85. on hintsGrid
  86.   global blueRect
  87.   set blueRect to the rect of sprite 43
  88.   clearLists()
  89.   set the castNum of sprite 43 to 818
  90.   spriteBox(43, -30, -30, 700, 540)
  91.   set the ink of sprite 44 to 36
  92.   set the castNum of sprite 44 to 814
  93.   set the locH of sprite 44 to 612
  94.   set the locV of sprite 44 to 101
  95.   updateStage()
  96. end
  97.