home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 3 #4 / Blender_3_4.iso / BLENDER / FILES / Shared.Cst / 00051.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  287 b   |  11 lines
  1. on mouseUp
  2.   global VID
  3.   set h = the mouseH
  4.   set sp = the clickOn
  5.   set a = the left of sprite sp
  6.   set w = the width of sprite sp
  7.   set t = integer((1.00 * h - a) / w * VID)
  8.   set the locH of sprite (sp + 1) to h  
  9.   set the movieTime of sprite 40 to min(t, VID - 1)
  10.   updateStage
  11. end