home *** CD-ROM | disk | FTP | other *** search
/ Media Gallery 1995 June / MG6.ISO / mg.dig / 00170.ls < prev    next >
Encoding:
Text File  |  1995-04-20  |  747 b   |  22 lines
  1. on mouseDown
  2.   set spritenum to 4
  3.   set h to the height of sprite spritenum / 2
  4.   repeat while the mouseDown = 1
  5.     set the locV of sprite spritenum to the mouseV - h
  6.     if the locV of sprite spritenum < 60 then
  7.       set the locV of sprite spritenum to 60
  8.     else
  9.       if the locV of sprite spritenum > (420 - the height of sprite spritenum) then
  10.         set the locV of sprite spritenum to 420 - the height of sprite spritenum
  11.       end if
  12.     end if
  13.     updateStage()
  14.   end repeat
  15.   set scroll to (the locV of sprite spritenum - 60) / 20
  16.   set the locV of sprite spritenum to (scroll * 20) + 60
  17.   set the locV of sprite 14 to 60 - (scroll * 52)
  18.   set the locV of sprite 13 to the locV of sprite 14
  19.   ProductHilite(0)
  20.   ProductHilite(1)
  21. end
  22.