home *** CD-ROM | disk | FTP | other *** search
/ Computer Arts Interactive 67 / computer-arts-cd67.iso / pc / websites.dir / 00030.ls < prev    next >
Encoding:
Text File  |  2002-01-07  |  427 b   |  19 lines
  1. on mouseUp
  2.   if rollover(20) then
  3.     h = 0
  4.     stageWidth = 100
  5.     speed = (h - (stageWidth / 2)) / 2
  6.     xpos = the locH of sprite 20
  7.     xpos = xpos - speed
  8.     set the locH of sprite 20 to xpos
  9.   else
  10.     h = 0
  11.     stageWidth = 100
  12.     speed = (h - (stageWidth / 2)) / 10
  13.     xpos = the locH of sprite 20
  14.     xpos = xpos + speed
  15.     set the locH of sprite 20 to xpos
  16.     set the constraint of sprite 20 to 21
  17.   end if
  18. end
  19.