home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2003 #3 / K-CD-3-2003.ISO / PagePlus / data1.cab / QuickTours / qt08mail.exe / qt08mail.dxr / 00008.ls < prev    next >
Encoding:
Text File  |  2002-07-29  |  590 b   |  27 lines
  1. on mouseDown
  2.   global sprNum, sprUp, sprDown
  3.   set sprNum to 15
  4.   set sprUp to 6
  5.   set sprDown to 7
  6.   puppetSprite(sprNum, 1)
  7.   set the memberNum of sprite sprNum to sprDown
  8.   updateStage()
  9.   repeat while the stillDown
  10.     if rollOver(sprNum) then
  11.       set the memberNum of sprite sprNum to sprDown
  12.     else
  13.       set the memberNum of sprite sprNum to sprUp
  14.     end if
  15.     updateStage()
  16.   end repeat
  17. end
  18.  
  19. on mouseUp
  20.   global sprNum, sprUp, sprDown
  21.   if the memberNum of sprite sprNum = sprDown then
  22.     set the memberNum of sprite sprNum to sprUp
  23.     updateStage()
  24.     quit()
  25.   end if
  26. end
  27.