home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 24 / MacAddict_024_1998_08.iso / Media / Software.dxr / LingoLib_5.ls < prev    next >
Encoding:
Text File  |  1998-06-04  |  501 b   |  19 lines
  1. on TrackClick
  2.   set spriteNum to the clickOn
  3.   set offCast to the castNum of sprite spriteNum
  4.   set onCast to offCast + 1
  5.   set the castNum of sprite spriteNum to onCast
  6.   updateStage()
  7.   repeat while the mouseDown
  8.     if rollOver(spriteNum) then
  9.       set the castNum of sprite spriteNum to onCast
  10.     else
  11.       set the castNum of sprite spriteNum to offCast
  12.     end if
  13.     updateStage()
  14.   end repeat
  15.   set the castNum of sprite spriteNum to offCast
  16.   updateStage()
  17.   return rollOver(spriteNum)
  18. end
  19.